slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

stats: honour -p/--period option

Browse Source
This commit is contained in:
Simon Michael 2010-07-11 15:47:46 +00:00
parent 60d05f83b3
commit 913b3be7e3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hledger/Cli/Commands/Stats.hs
View File

@ -20,7 +20,9 @@ import qualified Data.Map as Map
stats :: [Opt] -> [String] -> Journal -> IO ()
stats opts args j = do
today <- getCurrentDay
putStr $ showStats opts args (journalToLedger nullfilterspec j) today
t <- getCurrentLocalTime
let filterspec = optsToFilterSpec opts args t
putStr $ showStats opts args (journalToLedger filterspec j) today
showStats :: [Opt] -> [String] -> Ledger -> Day -> String
showStats _ _ l today =