parsing: simpler high-level parse error message

2010-04-15 16:14:50 +00:00 · 2010-04-15 16:14:50 +00:00 · f46cf82bed
commit f46cf82bed
parent 25234f7c2b
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Data/Parse.hs
+++ b/hledger-lib/Hledger/Data/Parse.hs
@ -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