simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 12:24:43 +03:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Michael 2007-07-03 16:16:26 +00:00
parent 6883ff419d
commit 7ff1b758c5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Parse.hs
View File

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