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

activity: don't exclude 0-amount postings by default

Browse Source
This commit is contained in:
Simon Michael 2015-05-21 16:38:17 -07:00
parent 131259105d
commit 20acc45fbb
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger/Hledger/Cli/Histogram.hs
View File

@ -13,10 +13,8 @@ import Data.Ord
import System.Console.CmdArgs.Explicit import System.Console.CmdArgs.Explicit
import Text.Printf import Text.Printf
import Hledger
import Hledger.Cli.Options import Hledger.Cli.Options
import Hledger.Data
import Hledger.Reports
import Hledger.Query
import Prelude hiding (putStr) import Prelude hiding (putStr)
import Hledger.Utils.UTF8IOCompat (putStr) import Hledger.Utils.UTF8IOCompat (putStr)
@ -54,10 +52,7 @@ showHistogram opts q j = concatMap (printDayWith countBar) spanps
-- same as Register -- same as Register
-- should count transactions, not postings ? -- should count transactions, not postings ?
-- ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j -- ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j
ps = sortBy (comparing postingDate) $ filterempties $ filter (q `matchesPosting`) $ journalPostings j ps = sortBy (comparing postingDate) $ filter (q `matchesPosting`) $ journalPostings j
filterempties
| queryEmpty q = id
| otherwise = filter (not . isZeroMixedAmount . pamount)
printDayWith f (DateSpan b _, ps) = printf "%s %s\n" (show $ fromJust b) (f ps) printDayWith f (DateSpan b _, ps) = printf "%s %s\n" (show $ fromJust b) (f ps)