note parser issue

This commit is contained in:
Simon Michael 2007-07-02 14:37:13 +00:00
parent 738a59dfcf
commit 1e5e26878a

View File

@ -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")