From eb3ec063d07df76d7388dee84bcc726073f81edd Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 10 Apr 2009 04:39:54 +0000 Subject: [PATCH] require a non-empty description in ledger transactions --- Ledger/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs index fa11c8f65..4e3a7d95f 100644 --- 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