clearer error message when we can't balance an entry

2008-10-16 04:00:45 +00:00 · 2008-10-16 04:00:45 +00:00 · 861e2beb1c
commit 861e2beb1c
parent 0cfbced165
1 changed files with 1 additions and 1 deletions
--- a/Ledger/Entry.hs
+++ b/Ledger/Entry.hs
@ -31,7 +31,7 @@ isEntryBalanced (Entry {etransactions=ts}) = isZeroMixedAmount sum
 autofillEntry :: Entry -> Entry
 autofillEntry e@(Entry {etransactions=ts}) = e{etransactions=ts'}
    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)

 assertBalancedEntry :: Entry -> Entry