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

don't let ledgercomment parser always pass

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

16
Ledger/Parse.hs
View File

@ -251,13 +251,11 @@ emptyLine = do many spacenonewline
return ()
ledgercomment :: GenParser Char st String
ledgercomment =
try (do
char ';'
many spacenonewline
many (noneOf "\n")
)
<|> return "" <?> "comment"
ledgercomment = do
many1 $ char ';'
many spacenonewline
many (noneOf "\n")
<?> "comment"
ledgercommentline :: GenParser Char st String
ledgercommentline = do
@ -316,7 +314,7 @@ ledgerTransaction = do
status <- ledgerstatus
code <- ledgercode
description <- many1 spacenonewline >> liftM rstrip (many1 (noneOf ";\n") <?> "description")
comment <- ledgercomment
comment <- ledgercomment <|> return ""
restofline
postings <- ledgerpostings
let t = LedgerTransaction date edate status code description comment postings ""
@ -392,7 +390,7 @@ ledgerposting = do
let (ptype, account') = (postingTypeFromAccountName account, unbracket account)
amount <- postingamount
many spacenonewline
comment <- ledgercomment
comment <- ledgercomment <|> return ""
restofline
return (Posting status account' amount comment ptype)