note parser issue

2007-07-02 14:37:13 +00:00 · 2007-07-02 14:37:13 +00:00 · 1e5e26878a
commit 1e5e26878a
parent 738a59dfcf
1 changed files with 1 additions and 1 deletions
--- a/Parse.hs
+++ b/Parse.hs
@ -238,7 +238,7 @@ ledgeramount = try (do
 stripcommas = filter (',' /=)

 ledgereol :: Parser String
-ledgereol = ledgercomment <|> do {newline; return []}
+ledgereol = ledgercomment <|> do {newline; return []}  -- XXX problem, a transaction comment containing a digit fails

 spacenonewline :: Parser Char
 spacenonewline = satisfy (\c -> c `elem` " \v\f\t")