Fixed ;-only bug

2008-12-08 07:20:29 +00:00 · 2008-12-08 07:20:29 +00:00 · 4ea30b7411
commit 4ea30b7411
parent 130e3bcd30
1 changed files with 1 additions and 1 deletions
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@ -230,7 +230,7 @@ See "Tests" for sample data.

 emptyLine :: GenParser Char st ()
 emptyLine = do many spacenonewline
-               optional $ char ';' >> spacenonewline >> many (noneOf "\n")
+               optional $ char ';' >> many (noneOf "\n")
               newline
               return ()