lib: show txn's file position in assertion errors
This commit is contained in:
		
							parent
							
								
									92d5b0ab3d
								
							
						
					
					
						commit
						c9937db10e
					
				| @ -494,7 +494,11 @@ checkBalanceAssertion (errs,startbal) ps | ||||
|                  (showMixedAmount finalsinglebal) | ||||
|                  (diffplus ++ showMixedAmount diff) | ||||
|                  (showPostingLine p) | ||||
|                  (maybe "" (("in transaction:\n"++).show) $ ptransaction p) | ||||
|                  (case ptransaction p of | ||||
|                     Nothing -> "" | ||||
|                     Just t -> printf "in transaction at %s line %d:\n%s" f l (show t) | ||||
|                               where GenericSourcePos f l _ = tsourcepos t | ||||
|                  ) | ||||
| 
 | ||||
| -- Given a sequence of postings to a single account, split it into | ||||
| -- sub-sequences consisting of ordinary postings followed by a single | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user