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

whitespace parsing tweak

Browse Source
This commit is contained in:
Simon Michael 2009-06-21 14:42:59 +00:00
parent 9ff4a23492
commit f7e8ae1c55
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

@ -371,7 +371,7 @@ ledgerpostings :: GenParser Char LedgerFileCtx [Posting]
ledgerpostings = do ledgerpostings = do
ctx <- getState ctx <- getState
let parses p = isRight . parseWithCtx ctx p let parses p = isRight . parseWithCtx ctx p
ls <- many1 linebeginningwithspaces ls <- many1 $ try linebeginningwithspaces
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'