parsing: allow transactions with empty descriptions
This commit is contained in:
parent
c8cd88ba5f
commit
7b026ef6f4
@ -394,7 +394,7 @@ ledgerTransaction = do
|
|||||||
edate <- try (ledgereffectivedate date <?> "effective date") <|> return Nothing
|
edate <- try (ledgereffectivedate date <?> "effective date") <|> return Nothing
|
||||||
status <- ledgerstatus
|
status <- ledgerstatus
|
||||||
code <- ledgercode
|
code <- ledgercode
|
||||||
description <- many1 spacenonewline >> liftM rstrip (many1 (noneOf ";\n") <?> "description")
|
description <- many1 spacenonewline >> liftM rstrip (many (noneOf ";\n") <?> "description")
|
||||||
comment <- ledgercomment <|> return ""
|
comment <- ledgercomment <|> return ""
|
||||||
restofline
|
restofline
|
||||||
postings <- ledgerpostings
|
postings <- ledgerpostings
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user