From b3ba124ce952274d59820a476206b9287a6b7706 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 9 Oct 2008 12:59:05 +0000
Subject: [PATCH] more informative show output

---
 Ledger/Ledger.hs | 5 ++++-
 Ledger/Utils.hs  | 3 +++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs
index 2779899fd..3da90a1a1 100644
--- a/Ledger/Ledger.hs
+++ b/Ledger/Ledger.hs
@@ -37,11 +37,14 @@ import Ledger.Entry
 
 
 instance Show Ledger where
-    show l = printf "Ledger with %d entries, %d accounts"
+    show l = printf "Ledger with %d entries, %d accounts: %s"
              ((length $ entries $ rawledger l) +
               (length $ modifier_entries $ rawledger l) +
               (length $ periodic_entries $ rawledger l))
              (length $ accountnames l)
+             (show $ accountnames l)
+             ++ "\n" ++ (showtree $ accountnametree l)
+             ++ "\n" ++ (showtree $ filteredaccountnametree l)
 
 -- | Convert a raw ledger to a more efficient cached type, described above.  
 cacheLedger :: RawLedger -> Ledger
diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index 8871720bf..d7080b8d6 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -109,6 +109,9 @@ treeany f t = (f $ root t) || (any (treeany f) $ branches t)
 -- treedrop -- remove the leaves which do fulfill predicate. 
 -- treedropall -- do this repeatedly.
 
+showtree :: Show a => Tree a -> String
+showtree = drawTree . treemap show
+
 -- debugging
 
 strace a = trace (show a) a -- trace a showable expression