better unfold.

2010-03-11 19:12:15 +09:00 · 2010-03-11 19:12:15 +09:00 · 36fee672f3
commit 36fee672f3
parent 1e445097b7
1 changed files with 1 additions and 1 deletions
--- a/Check.hs
+++ b/Check.hs
@ -22,4 +22,4 @@ unfoldLines p = drop 1 . unfold
    unfold [] = "\n"
    unfold (l:ls)
      | p l       = ('\n':l) ++ unfold ls
-      | otherwise = l ++ " " ++ unfold ls
+      | otherwise = (' ' :l) ++ unfold ls