require a non-empty description in ledger transactions

This commit is contained in:
Simon Michael 2009-04-10 04:39:54 +00:00
parent 5d1f535b5e
commit eb3ec063d0

View File

@ -314,7 +314,7 @@ ledgerTransaction = do
-- ledger treats entry comments as part of the description, we will too -- ledger treats entry comments as part of the description, we will too
-- desc <- many (noneOf ";\n") <?> "description" -- desc <- many (noneOf ";\n") <?> "description"
-- let description = reverse $ dropWhile (==' ') $ reverse desc -- let description = reverse $ dropWhile (==' ') $ reverse desc
description <- many (noneOf "\n") <?> "description" description <- many1 (noneOf "\n") <?> "description"
comment <- ledgercomment comment <- ledgercomment
restofline restofline
postings <- ledgerpostings postings <- ledgerpostings