From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Wed, 17 Oct 2012 20:43:34 +0000 (-0400)
Subject: Fix K3 backend selftest to deal with formatting
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=a9cffe52b8f2b180ab5b1916c9c52ae53bf7e21b;p=dyna2

Fix K3 backend selftest to deal with formatting
---

diff --git a/src/Dyna/BackendK3/Selftest.hs b/src/Dyna/BackendK3/Selftest.hs
index b842ba0..86283ec 100644
--- 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                                                       {{{