slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 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 Text.Printf
import Hledger
import Hledger.Cli.Options
import Hledger.Data
import Hledger.Reports
import Hledger.Query
import Prelude hiding (putStr)
import Hledger.Utils.UTF8IOCompat (putStr)
@ -54,10 +52,7 @@ showHistogram opts q j = concatMap (printDayWith countBar) spanps
-- same as Register
-- should count transactions, not postings ?
-- ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j
ps = sortBy (comparing postingDate) $ filterempties $ filter (q `matchesPosting`) $ journalPostings j
filterempties
| queryEmpty q = id
| otherwise = filter (not . isZeroMixedAmount . pamount)
ps = sortBy (comparing postingDate) $ filter (q `matchesPosting`) $ journalPostings j
printDayWith f (DateSpan b _, ps) = printf "%s %s\n" (show $ fromJust b) (f ps)