From cf254b0da390b004328566b7bf91bc09e4c88df2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 3 Apr 2014 17:44:47 -0700
Subject: [PATCH] show anumpostings in Account's show instance

---
 hledger-lib/Hledger/Data/Account.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Account.hs b/hledger-lib/Hledger/Data/Account.hs
index 0d35fa51b..662d7ac5d 100644
--- a/hledger-lib/Hledger/Data/Account.hs
+++ b/hledger-lib/Hledger/Data/Account.hs
@@ -25,9 +25,10 @@ import Hledger.Utils
 
 -- deriving instance Show Account
 instance Show Account where
-    show Account{..} = printf "Account %s (boring:%s, ebalance:%s, ibalance:%s)"
-                       aname  
+    show Account{..} = printf "Account %s (boring:%s, postings:%d, ebalance:%s, ibalance:%s)"
+                       aname
                        (if aboring then "y" else "n" :: String)
+                       anumpostings
                        (showMixedAmount aebalance)
                        (showMixedAmount aibalance)