parsing: simpler high-level parse error message

This commit is contained in:
Simon Michael 2010-04-15 16:14:50 +00:00
parent 25234f7c2b
commit f46cf82bed

View File

@ -244,7 +244,7 @@ ledgerFile = do items <- many ledgerItem
, ledgerEndTagDirective
, emptyLine >> return (return id)
, liftM (return . addTimeLogEntry) timelogentry
]
] <?> "ledger transaction, timelog entry, or directive"
emptyLine :: GenParser Char st ()
emptyLine = do many spacenonewline