hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better unfold.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-03-11 19:12:15 +09:00
parent 1e445097b7
commit 36fee672f3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Check.hs
View File

@ -22,4 +22,4 @@ unfoldLines p = drop 1 . unfold
unfold [] = "\n" unfold [] = "\n"
unfold (l:ls) unfold (l:ls)
| p l = ('\n':l) ++ unfold ls | p l = ('\n':l) ++ unfold ls
| otherwise = l ++ " " ++ unfold ls | otherwise = (' ' :l) ++ unfold ls