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

lib: multiBalanceReport: Remove unnecessary addition of parent accounts.

Browse Source
This commit is contained in:
Stephen Morgan 2020-06-14 01:23:55 +10:00
parent e079c8b808
commit fcaec1540a
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Reports/MultiBalanceReport.hs
View File

@ -344,7 +344,7 @@ displayedAccounts ropts q valuedaccts
| otherwise = HM.mapWithKey (\a _ -> displayedName a) displayedAccts | otherwise = HM.mapWithKey (\a _ -> displayedName a) displayedAccts
where where
-- Accounts which are to be displayed -- Accounts which are to be displayed
displayedAccts = HM.filterWithKey keep (valuedaccts <> allParents) displayedAccts = HM.filterWithKey keep valuedaccts
where where
keep name amts = isInteresting name amts || isInterestingParent name keep name amts = isInteresting name amts || isInterestingParent name
@ -381,10 +381,6 @@ displayedAccounts ropts q valuedaccts
| empty_ ropts || no_elide_ ropts = const True | empty_ ropts || no_elide_ ropts = const True
| otherwise = (`HM.member` interestingParents) | otherwise = (`HM.member` interestingParents)
allParents
| tree_ ropts = HM.fromList [(a,[]) | a <- expandAccountNames $ HM.keys interestingAccounts]
| otherwise = mempty
isZeroRow balance = all (mixedAmountLooksZero . balance) isZeroRow balance = all (mixedAmountLooksZero . balance)
keepEmpty = empty_ ropts || depth == 0 keepEmpty = empty_ ropts || depth == 0
depth = queryDepth q depth = queryDepth q