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

note an issue

Browse Source
This commit is contained in:
Simon Michael 2009-08-26 17:19:26 +00:00
parent afa2d065bd
commit 87fc165918
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Commands/Histogram.hs
View File

@ -29,6 +29,7 @@ showHistogram opts args l = concatMap (printDayWith countBar) daytxns
days = filter (DateSpan Nothing Nothing /=) $ splitSpan interval fullspan days = filter (DateSpan Nothing Nothing /=) $ splitSpan interval fullspan
daytxns = [(s, filter (isTransactionInDateSpan s) ts) | s <- days] daytxns = [(s, filter (isTransactionInDateSpan s) ts) | s <- days]
-- same as Register -- same as Register
-- should count raw transactions, not posting transactions
ts = sortBy (comparing tdate) $ filterempties $ filter matchapats $ filterdepth $ ledgerTransactions l ts = sortBy (comparing tdate) $ filterempties $ filter matchapats $ filterdepth $ ledgerTransactions l
filterempties filterempties
| Empty `elem` opts = id | Empty `elem` opts = id