From 165945cf201ce2256a90e9c020607da1a93b9fdc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 9 Oct 2008 09:25:58 +0000
Subject: [PATCH] better RawLedger string representation

---
 Ledger/RawLedger.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Ledger/RawLedger.hs b/Ledger/RawLedger.hs
index f89e31627..9a3940747 100644
--- a/Ledger/RawLedger.hs
+++ b/Ledger/RawLedger.hs
@@ -17,10 +17,13 @@ import Ledger.Transaction
 
 
 instance Show RawLedger where
-    show l = printf "RawLedger with %d entries"
+    show l = printf "RawLedger with %d entries, %d accounts: %s"
              ((length $ entries l) +
               (length $ modifier_entries l) +
               (length $ periodic_entries l))
+             (length accounts)
+             (show accounts)
+             where accounts = flatten $ rawLedgerAccountNameTree l
 
 rawLedgerTransactions :: RawLedger -> [Transaction]
 rawLedgerTransactions = txns . entries