From 57b2d02760cdb55fe9cd3a1fcd94adcac853da11 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Thu, 29 Aug 2024 07:07:15 +0200 Subject: [PATCH] cli: Commands.Balance.budgetReportAsSpreadsheetHelper: no longer needed --- hledger/Hledger/Cli/Commands/Balance.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs index b8260043c..755fb6ddc 100644 --- a/hledger/Hledger/Cli/Commands/Balance.hs +++ b/hledger/Hledger/Cli/Commands/Balance.hs @@ -1190,14 +1190,10 @@ budgetReportAsTable ReportOpts{..} (PeriodicReport spans items totrow) = budgetReportAsCsv :: ReportOpts -> BudgetReport -> [[Text]] budgetReportAsCsv ropts report = map (map Ods.cellContent) $ - budgetReportAsSpreadsheetHelper ropts report + budgetReportAsSpreadsheet ropts report budgetReportAsSpreadsheet :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]] -budgetReportAsSpreadsheet ropts report - = budgetReportAsSpreadsheetHelper ropts report - -budgetReportAsSpreadsheetHelper :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]] -budgetReportAsSpreadsheetHelper +budgetReportAsSpreadsheet ReportOpts{..} (PeriodicReport colspans items totrow) = (if transpose_ then transpose else id) $