slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better postings parse error

Browse Source
This commit is contained in:
Simon Michael 2009-06-20 04:09:59 +00:00
parent f7e8ae1c55
commit 29bf134624
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Parse.hs
View File

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