restore transaction-aggregating (rather than filtering) in register --depth when there is a reporting interval

This commit is contained in:
Simon Michael 2009-04-02 09:36:24 +00:00
parent 98ba065c59
commit 743242698f

View File

@ -34,7 +34,8 @@ showRegisterReport opts args l
where
interval = intervalFromOpts opts
ts = filterempties $ filter matchapats $ filterdepth $ ledgerTransactions l
filterdepth = filter (\t -> (accountNameLevel $ account t) <= depth)
filterdepth | interval == NoInterval = filter (\t -> (accountNameLevel $ account t) <= depth)
| otherwise = id
filterempties
| Empty `elem` opts = id
| otherwise = filter (not . isZeroMixedAmount . amount)