From 05fd8e1d69e23fea7e2063161efedacb5fe51d9d Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 8 Oct 2024 22:29:02 -1000 Subject: [PATCH] dev: refactor --- hledger/Hledger/Cli/Commands/Balance.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs index 6fa3c9b32..97d99e1fa 100644 --- a/hledger/Hledger/Cli/Commands/Balance.hs +++ b/hledger/Hledger/Cli/Commands/Balance.hs @@ -927,12 +927,12 @@ multiBalanceReportAsTable opts@ReportOpts{summary_only_, average_, row_total_, b ++ (if not summary_only_ then map (reportPeriodName balanceaccum_ spans) spans else []) ++ [" Total" | totalscolumn] ++ ["Average" | average_] - fullRowAsTexts row = - let rs = multiBalanceRowAsText opts row - in (replicate (length rs) (renderacct row), rs) (accts, rows) = unzip $ fmap fullRowAsTexts items - renderacct row = - T.replicate ((prrIndent row - 1) * 2) " " <> prrDisplayName row + where + fullRowAsTexts row = (replicate (length rs) (renderacct row), rs) + where + rs = multiBalanceRowAsText opts row + renderacct row' = T.replicate ((prrIndent row' - 1) * 2) " " <> prrDisplayName row' addtotalrow | no_total_ opts = id | otherwise =