parsing: simpler high-level parse error message
This commit is contained in:
parent
25234f7c2b
commit
f46cf82bed
@ -244,7 +244,7 @@ ledgerFile = do items <- many ledgerItem
|
|||||||
, ledgerEndTagDirective
|
, ledgerEndTagDirective
|
||||||
, emptyLine >> return (return id)
|
, emptyLine >> return (return id)
|
||||||
, liftM (return . addTimeLogEntry) timelogentry
|
, liftM (return . addTimeLogEntry) timelogentry
|
||||||
]
|
] <?> "ledger transaction, timelog entry, or directive"
|
||||||
|
|
||||||
emptyLine :: GenParser Char st ()
|
emptyLine :: GenParser Char st ()
|
||||||
emptyLine = do many spacenonewline
|
emptyLine = do many spacenonewline
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user