From e5fc1357075da825f6c9062ba308ed54a5446a84 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 10 Mar 2007 07:45:58 +0000
Subject: [PATCH] fix ledger show

---
 Ledger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger.hs b/Ledger.hs
index 65f369044..8b0da7c83 100644
--- a/Ledger.hs
+++ b/Ledger.hs
@@ -17,9 +17,9 @@ data Ledger = Ledger {
 
 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)
-             (length $ entries l)
 
 ledgerTransactions :: Ledger -> [EntryTransaction]
 ledgerTransactions l = entryTransactionsFrom $ entries l