From efad3a767d35a460e01f914037263d9bcf7c750b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 7 Apr 2014 08:32:23 -0700 Subject: [PATCH] balance: support --drop in flat multicolumn reports --- hledger/Hledger/Cli/Balance.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger/Hledger/Cli/Balance.hs b/hledger/Hledger/Cli/Balance.hs index bd3ffb04c..babd16c70 100644 --- a/hledger/Hledger/Cli/Balance.hs +++ b/hledger/Hledger/Cli/Balance.hs @@ -388,7 +388,7 @@ periodBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltotals)) accts = map renderacct items' renderacct ((a,a',i),_) | tree_ opts = replicate (i*2) ' ' ++ a' - | otherwise = a + | otherwise = accountNameDrop (drop_ opts) a acctswidth = maximum $ map length $ accts totalrow | no_total_ opts = row "" [] | otherwise = row "" coltotals @@ -409,7 +409,7 @@ cumulativeBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltota accts = map renderacct items renderacct ((a,a',i),_) | tree_ opts = replicate (i*2) ' ' ++ a' - | otherwise = a + | otherwise = accountNameDrop (drop_ opts) a acctswidth = maximum $ map length $ accts addtotalrow | no_total_ opts = id | otherwise = (+----+ row "" coltotals) @@ -430,7 +430,7 @@ historicalBalanceReportAsText opts (MultiBalanceReport (colspans, items, coltota accts = map renderacct items renderacct ((a,a',i),_) | tree_ opts = replicate (i*2) ' ' ++ a' - | otherwise = a + | otherwise = accountNameDrop (drop_ opts) a acctswidth = maximum $ map length $ accts addtotalrow | no_total_ opts = id | otherwise = (+----+ row "" coltotals)