slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clearer error message when we can't balance an entry

Browse Source
This commit is contained in:
Simon Michael 2008-10-16 04:00:45 +00:00
parent 0cfbced165
commit 861e2beb1c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Entry.hs
View File

@ -31,7 +31,7 @@ isEntryBalanced (Entry {etransactions=ts}) = isZeroMixedAmount sum
autofillEntry :: Entry -> Entry autofillEntry :: Entry -> Entry
autofillEntry e@(Entry {etransactions=ts}) = e{etransactions=ts'} autofillEntry e@(Entry {etransactions=ts}) = e{etransactions=ts'}
where ts' = fromMaybe where ts' = fromMaybe
(error $ "too many blank transactions in this entry:\n" ++ show e) (error $ "too many missing amounts in this entry, could not auto-balance:\n" ++ show e)
(autofillTransactions ts) (autofillTransactions ts)
assertBalancedEntry :: Entry -> Entry assertBalancedEntry :: Entry -> Entry