eat space between code and description

This commit is contained in:
Simon Michael 2007-01-28 21:29:39 +00:00
parent 9e043db386
commit eddcb6b92a

View File

@ -322,7 +322,7 @@ ledgerdate = do date <- many1 (digit <|> char '/'); many1 spacenonewline; return
ledgerstatus = try (do { char '*'; many1 spacenonewline; return True } ) <|> return False
ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; return code } ) <|> return ""
ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; many1 spacenonewline; return code } ) <|> return ""
ledgertransaction = do
many1 spacenonewline