stats: fix number of accounts
This commit is contained in:
parent
0734da2bbe
commit
812a800303
@ -16,7 +16,7 @@ import System.IO.UTF8
|
|||||||
stats :: [Opt] -> [String] -> Ledger -> IO ()
|
stats :: [Opt] -> [String] -> Ledger -> IO ()
|
||||||
stats opts args l = do
|
stats opts args l = do
|
||||||
today <- getCurrentDay
|
today <- getCurrentDay
|
||||||
putStr $ showStats opts args l today
|
putStr $ showStats opts args (cacheLedger' l) today
|
||||||
|
|
||||||
showStats :: [Opt] -> [String] -> Ledger -> Day -> String
|
showStats :: [Opt] -> [String] -> Ledger -> Day -> String
|
||||||
showStats _ _ l today =
|
showStats _ _ l today =
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user