simpler Ledger show

2007-03-12 01:56:06 +00:00 · 2007-03-12 01:56:06 +00:00 · 987659e3d4
commit 987659e3d4
parent d3c286d8b7
1 changed files with 4 additions and 4 deletions
--- 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