From ccc605a6a0d06557cffe15f1018e7e529ba856e8 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Thu, 3 Oct 2024 18:51:59 +0200 Subject: [PATCH] cli: Cli.Commands.Balance.renderBalanceAcct: respect that depth is zero-based here (bugfix) The depth in BalanceReportItem is zero-based, whereas prrDepth in PeriodicReportRow DisplayName is one-based. --- hledger/Hledger/Cli/Commands/Balance.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs index 5b69826e5..fe5c1040a 100644 --- a/hledger/Hledger/Cli/Commands/Balance.hs +++ b/hledger/Hledger/Cli/Commands/Balance.hs @@ -1333,7 +1333,7 @@ renderBalanceAcct :: ReportOpts -> Text -> (AccountName, AccountName, Int) -> Text renderBalanceAcct opts space (fullName, displayName, dep) = case accountlistmode_ opts of - ALTree -> T.replicate ((dep - 1)*2) space <> displayName + ALTree -> T.replicate (dep*2) space <> displayName ALFlat -> accountNameDrop (drop_ opts) fullName -- FIXME. Have to check explicitly for which to render here, since @@ -1343,7 +1343,7 @@ renderPeriodicAcct :: ReportOpts -> Text -> PeriodicReportRow DisplayName a -> Text renderPeriodicAcct opts space row = renderBalanceAcct opts space - (prrFullName row, prrDisplayName row, prrDepth row) + (prrFullName row, prrDisplayName row, prrDepth row - 1) -- tests