parsing: allow transactions with empty descriptions

2010-03-10 01:25:02 +00:00 · 2010-03-10 01:25:02 +00:00 · 7b026ef6f4
commit 7b026ef6f4
parent c8cd88ba5f
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Ledger/Parse.hs
+++ b/hledger-lib/Ledger/Parse.hs
@ -394,7 +394,7 @@ ledgerTransaction = do
  edate <- try (ledgereffectivedate date <?> "effective date") <|> return Nothing
  status <- ledgerstatus
  code <- ledgercode
-  description <- many1 spacenonewline >> liftM rstrip (many1 (noneOf ";\n") <?> "description")
+  description <- many1 spacenonewline >> liftM rstrip (many (noneOf ";\n") <?> "description")
  comment <- ledgercomment <|> return ""
  restofline
  postings <- ledgerpostings