better postings parse error

This commit is contained in:
Simon Michael 2009-06-20 04:09:59 +00:00
parent f7e8ae1c55
commit 29bf134624

View File

@ -375,7 +375,7 @@ ledgerpostings = do
let ls' = filter (not . (ledgercommentline `parses`)) ls
guard (not $ null ls')
return $ map (fromparse . parseWithCtx ctx ledgerposting) ls'
<?> "ledger postings"
<?> "postings"
linebeginningwithspaces :: GenParser Char st String
linebeginningwithspaces = do