require a non-empty description in ledger transactions
This commit is contained in:
		
							parent
							
								
									5d1f535b5e
								
							
						
					
					
						commit
						eb3ec063d0
					
				@ -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
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user