require a non-empty description in ledger transactions

2009-04-10 04:39:54 +00:00 · 2009-04-10 04:39:54 +00:00 · eb3ec063d0
commit eb3ec063d0
parent 5d1f535b5e
1 changed files with 1 additions and 1 deletions
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@ -314,7 +314,7 @@ ledgerTransaction = do
 -- ledger treats entry comments as part of the description, we will too
 --   desc <- many (noneOf ";\n") <?> "description"
 --   let description = reverse $ dropWhile (==' ') $ reverse desc
-  description <- many (noneOf "\n") <?> "description"
+  description <- many1 (noneOf "\n") <?> "description"
  comment <- ledgercomment
  restofline
  postings <- ledgerpostings