From 7ff1b758c54d87a07e4cd303fb491ea5be519d68 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 3 Jul 2007 16:16:26 +0000 Subject: [PATCH] fix comments with numbers on same line as transactions without an amount --- Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Parse.hs b/Parse.hs index e6ce14a5e..b89a52a1f 100644 --- a/Parse.hs +++ b/Parse.hs @@ -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)) ) <|>