From 987659e3d415f40a668f4d88bab1ba133df20263 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 12 Mar 2007 01:56:06 +0000
Subject: [PATCH] simpler Ledger show

---
 Ledger.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Ledger.hs b/Ledger.hs
index 8b0da7c83..9b99b8b2e 100644
--- a/Ledger.hs
+++ b/Ledger.hs
@@ -16,10 +16,10 @@ data Ledger = Ledger {
                      } deriving (Eq)
 
 instance Show Ledger where
-    show l = printf "Ledger with %d normal, %d modifier, %d periodic entries"
-             (length $ entries l)
-             (length $ modifier_entries l)
-             (length $ periodic_entries l)
+    show l = printf "Ledger with %d entries"
+             ((length $ entries l) +
+              (length $ modifier_entries l) +
+              (length $ periodic_entries l))
 
 ledgerTransactions :: Ledger -> [EntryTransaction]
 ledgerTransactions l = entryTransactionsFrom $ entries l