hlint.

2010-04-23 18:09:38 +09:00
parent 9af4a74abe
commit efd71c5d81
3 changed files with 11 additions and 11 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -37,7 +37,7 @@ unfoldLines (x:xs) = x ++ unfold xs
    unfold [] = "\n"
    unfold (l:ls)
      | isAlpha (head l)           = ('\n':l) ++ unfold ls
-      | otherwise                  = (drop 4 l) ++ "\0" ++ unfold ls
+      | otherwise                  = drop 4 l ++ "\0" ++ unfold ls

 ----------------------------------------------------------------