Fixed ;-only bug
This commit is contained in:
parent
130e3bcd30
commit
4ea30b7411
@ -230,7 +230,7 @@ See "Tests" for sample data.
|
|||||||
|
|
||||||
emptyLine :: GenParser Char st ()
|
emptyLine :: GenParser Char st ()
|
||||||
emptyLine = do many spacenonewline
|
emptyLine = do many spacenonewline
|
||||||
optional $ char ';' >> spacenonewline >> many (noneOf "\n")
|
optional $ char ';' >> many (noneOf "\n")
|
||||||
newline
|
newline
|
||||||
return ()
|
return ()
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user