don't ignore unparsed text following an amount

This commit is contained in:
Simon Michael 2010-04-05 20:37:19 +00:00
parent 8bfb4abfd5
commit dbb8576d8b

View File

@ -424,7 +424,7 @@ ledgerposting = do
amount <- postingamount amount <- postingamount
many spacenonewline many spacenonewline
comment <- ledgercomment <|> return "" comment <- ledgercomment <|> return ""
restofline newline
return (Posting status account' amount comment ptype Nothing) return (Posting status account' amount comment ptype Nothing)
-- Qualify with the parent account from parsing context -- Qualify with the parent account from parsing context