From a9cffe52b8f2b180ab5b1916c9c52ae53bf7e21b Mon Sep 17 00:00:00 2001 From: Nathaniel Wesley Filardo Date: Wed, 17 Oct 2012 16:43:34 -0400 Subject: [PATCH] Fix K3 backend selftest to deal with formatting --- src/Dyna/BackendK3/Selftest.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 {{{ -- 2.50.1