From 812a800303ee38cf9eb0b36cffa25b8fab74d8e6 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 6 Feb 2010 20:47:14 +0000
Subject: [PATCH] stats: fix number of accounts

---
 Commands/Stats.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands/Stats.hs b/Commands/Stats.hs
index 9eef04aec..4c477b60c 100644
--- a/Commands/Stats.hs
+++ b/Commands/Stats.hs
@@ -16,7 +16,7 @@ import System.IO.UTF8
 stats :: [Opt] -> [String] -> Ledger -> IO ()
 stats opts args l = do
   today <- getCurrentDay
-  putStr $ showStats opts args l today
+  putStr $ showStats opts args (cacheLedger' l) today
 
 showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 showStats _ _ l today =