From cd41404fd4588a25a559d550987f1bf626d3d0bf Mon Sep 17 00:00:00 2001 From: Stephen Morgan Date: Sat, 13 Jun 2020 22:21:14 +1000 Subject: [PATCH] lib: multiBalanceReport: Get --drop working with multiBalanceReports. --- hledger-lib/Hledger/Reports/MultiBalanceReport.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Reports/MultiBalanceReport.hs b/hledger-lib/Hledger/Reports/MultiBalanceReport.hs index bc2a89f88..293012623 100644 --- a/hledger-lib/Hledger/Reports/MultiBalanceReport.hs +++ b/hledger-lib/Hledger/Reports/MultiBalanceReport.hs @@ -348,7 +348,7 @@ displayedAccounts ropts q valuedaccts = displayedName name | depth == 0 = DisplayName "..." "..." 0 | tree_ ropts = treeDisplayName name - | otherwise = flatDisplayName name + | otherwise = DisplayName name (accountNameDrop (drop_ ropts) name) 0 where elided = accountNameFromComponents . reverse . map accountLeafName $ name : takeWhile (not . isDisplayed) parents