From 861e2beb1c6fb82bf9139c0ca1e80638bccabbae Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 16 Oct 2008 04:00:45 +0000
Subject: [PATCH] clearer error message when we can't balance an entry

---
 Ledger/Entry.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Entry.hs b/Ledger/Entry.hs
index 1306db343..b6c5a034b 100644
--- 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