stats: fix number of accounts

This commit is contained in:
Simon Michael 2010-02-06 20:47:14 +00:00
parent 0734da2bbe
commit 812a800303

View File

@ -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 =