fix comments with numbers on same line as transactions without an amount

This commit is contained in:
Simon Michael 2007-07-03 16:16:26 +00:00
parent 6883ff419d
commit 7ff1b758c5

View File

@ -224,7 +224,7 @@ ledgeraccount = many1 (alphaNum <|> char ':' <|> char '/' <|> char '_' <|> try (
ledgeramount :: Parser Amount
ledgeramount = try (do
many1 spacenonewline
currency <- many (noneOf "-.0123456789\n") <?> "currency"
currency <- many (noneOf "-.0123456789;\n") <?> "currency"
quantity <- many1 (oneOf "-.,0123456789") <?> "quantity"
return (Amount (getcurrency currency) (read $ stripcommas quantity))
) <|>