parsing: allow transactions with empty descriptions
This commit is contained in:
		
							parent
							
								
									c8cd88ba5f
								
							
						
					
					
						commit
						7b026ef6f4
					
				| @ -394,7 +394,7 @@ ledgerTransaction = do | |||||||
|   edate <- try (ledgereffectivedate date <?> "effective date") <|> return Nothing |   edate <- try (ledgereffectivedate date <?> "effective date") <|> return Nothing | ||||||
|   status <- ledgerstatus |   status <- ledgerstatus | ||||||
|   code <- ledgercode |   code <- ledgercode | ||||||
|   description <- many1 spacenonewline >> liftM rstrip (many1 (noneOf ";\n") <?> "description") |   description <- many1 spacenonewline >> liftM rstrip (many (noneOf ";\n") <?> "description") | ||||||
|   comment <- ledgercomment <|> return "" |   comment <- ledgercomment <|> return "" | ||||||
|   restofline |   restofline | ||||||
|   postings <- ledgerpostings |   postings <- ledgerpostings | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user