Fix K3 backend selftest to deal with formatting

diff --git a/src/Dyna/BackendK3/Selftest.hs b/src/Dyna/BackendK3/Selftest.hs
index b842ba0e3ad06933c1012cf047fe4d14abba4e9f..86283ec68e45bdb422c2e5b7f9c82e99bd0d29f8 100644 (file)
--- a/src/Dyna/BackendK3/Selftest.hs
+++ b/src/Dyna/BackendK3/Selftest.hs
@@ -27,7 +27,13 @@ displaySimple (SLine _   d) = showChar ' ' . displaySimple d
 displaySimple (SEffect _ d) =                displaySimple d
 
 render :: AsK3 e a -> String
-render = flip displaySimple [] . renderCompact . sh
+render = despace . flip displaySimple [] . renderCompact . sh
+ where
+  despace [] = []
+  despace [x] = [x]
+  despace (' ':xs@(' ':_)) = despace xs
+  despace (' ':xs) = ' ' : despace xs
+  despace (x  :xs) = x : despace xs
 
 ------------------------------------------------------------------------}}}
 -- Basic handling                                                       {{{