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

cli: Commands.Balance: remove some trailing spaces and unnecessary parentheses

Browse Source
This commit is contained in:
Henning Thielemann 2024-10-12 12:21:12 +02:00 committed by Simon Michael
parent 4d88b47aa7
commit dce24ea08f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger/Hledger/Cli/Commands/Balance.hs
View File

@ -500,9 +500,9 @@ balanceReportAsText opts ((items, total)) = case layout_ opts of
-- | Render a single-column balance report as plain text with a separate commodity column (--layout=bare) -- | Render a single-column balance report as plain text with a separate commodity column (--layout=bare)
bareLayoutBalanceReportAsText :: ReportOpts -> BalanceReport -> TB.Builder bareLayoutBalanceReportAsText :: ReportOpts -> BalanceReport -> TB.Builder
bareLayoutBalanceReportAsText opts ((items, total)) = bareLayoutBalanceReportAsText opts (items, total) =
unlinesB . unlinesB .
map map
(renderColumns def{tableBorders=singleColumnTableOuterBorder} sizes . (renderColumns def{tableBorders=singleColumnTableOuterBorder} sizes .
Group singleColumnTableInterColumnBorder . map Header) $ Group singleColumnTableInterColumnBorder . map Header) $
ls ++ concat [[[overline], totalline] | not (no_total_ opts)] ls ++ concat [[[overline], totalline] | not (no_total_ opts)]
@ -542,7 +542,7 @@ balanceReportItemAsText opts (_, accountName, dep, amt) =
renderBalanceReportItem opts (accountName, dep, amt) renderBalanceReportItem opts (accountName, dep, amt)
-- | Render a balance report item, using the StringFormat specified by --format. -- | Render a balance report item, using the StringFormat specified by --format.
-- --
renderBalanceReportItem :: ReportOpts -> (AccountName, Int, MixedAmount) -> (TB.Builder, [Int]) renderBalanceReportItem :: ReportOpts -> (AccountName, Int, MixedAmount) -> (TB.Builder, [Int])
renderBalanceReportItem opts (acctname, dep, total) = renderBalanceReportItem opts (acctname, dep, total) =
case format_ opts of case format_ opts of
@ -1054,7 +1054,7 @@ budgetReportAsTable ropts@ReportOpts{..} (PeriodicReport spans items totrow) =
addtotalrow addtotalrow
| no_total_ = id | no_total_ = id
| otherwise = | otherwise =
let let
rowhdrs = Group NoLine $ map Header $ totalRowHeadingBudgetText : replicate (length totalrows - 1) "" rowhdrs = Group NoLine $ map Header $ totalRowHeadingBudgetText : replicate (length totalrows - 1) ""
colhdrs = Header [] -- ignored by concatTables colhdrs = Header [] -- ignored by concatTables
in in
@ -1152,7 +1152,7 @@ budgetReportAsTable ropts@ReportOpts{..} (PeriodicReport spans items totrow) =
showntotrow :: [[(WideBuilder, BudgetDisplayRow)]] showntotrow :: [[(WideBuilder, BudgetDisplayRow)]]
showntotrow = [showrow False $ rowToBudgetCells totrow] showntotrow = [showrow False $ rowToBudgetCells totrow]
-- | Get the data cells from a row or totals row, maybe adding -- | Get the data cells from a row or totals row, maybe adding
-- the row total and/or row average depending on options. -- the row total and/or row average depending on options.
rowToBudgetCells :: PeriodicReportRow a BudgetCell -> [BudgetCell] rowToBudgetCells :: PeriodicReportRow a BudgetCell -> [BudgetCell]
rowToBudgetCells (PeriodicReportRow _ as rowtot rowavg) = as rowToBudgetCells (PeriodicReportRow _ as rowtot rowavg) = as