parsing: simpler high-level parse error message
This commit is contained in:
		
							parent
							
								
									25234f7c2b
								
							
						
					
					
						commit
						f46cf82bed
					
				| @ -244,7 +244,7 @@ ledgerFile = do items <- many ledgerItem | |||||||
|                           , ledgerEndTagDirective |                           , ledgerEndTagDirective | ||||||
|                           , emptyLine >> return (return id) |                           , emptyLine >> return (return id) | ||||||
|                           , liftM (return . addTimeLogEntry)  timelogentry |                           , liftM (return . addTimeLogEntry)  timelogentry | ||||||
|                           ] |                           ] <?> "ledger transaction, timelog entry, or directive" | ||||||
| 
 | 
 | ||||||
| emptyLine :: GenParser Char st () | emptyLine :: GenParser Char st () | ||||||
| emptyLine = do many spacenonewline | emptyLine = do many spacenonewline | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user