From a9f021eebe80db3d831b468ded57a4d4cfcdd572 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 12 Oct 2008 09:16:04 +0000
Subject: [PATCH] slightly less verbose Show Ledger

---
 Ledger/Ledger.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs
index d95fce283..d9e3db868 100644
--- a/Ledger/Ledger.hs
+++ b/Ledger/Ledger.hs
@@ -25,13 +25,12 @@ ledgertests = TestList [
               ]
 
 instance Show Ledger where
-    show l = printf "Ledger with %d entries, %d accounts: %s"
+    show l = printf "Ledger with %d entries, %d accounts\n%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)
+             (showtree $ accountnametree l)
 
 -- | Convert a raw ledger to a more efficient cached type, described above.  
 cacheLedger :: RawLedger -> Ledger