From 2d59bc85918e391e8b88076415fd78ec29c87d5d Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Mon, 26 Aug 2024 11:37:44 +0200
Subject: [PATCH] cli: Commands.Balance.budgetReportAsCsv,
 budgetReportAsSpreadsheet: remove duplicate transposition

---
 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 81b5b634b..b8260043c 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -1189,16 +1189,12 @@ budgetReportAsTable ReportOpts{..} (PeriodicReport spans items totrow) =
 -- but includes alternating actual and budget amount columns.
 budgetReportAsCsv :: ReportOpts -> BudgetReport -> [[Text]]
 budgetReportAsCsv ropts report
-  = (if transpose_ ropts then transpose else id) $
-    map (map Ods.cellContent) $
+  = map (map Ods.cellContent) $
     budgetReportAsSpreadsheetHelper ropts report
 
 budgetReportAsSpreadsheet :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]]
 budgetReportAsSpreadsheet ropts report
-  = (if transpose_ ropts
-      then error' "Sorry, --transpose with FODS or HTML output is not yet supported"  -- PARTIAL:
-      else id)
-    budgetReportAsSpreadsheetHelper ropts report
+  = budgetReportAsSpreadsheetHelper ropts report
 
 budgetReportAsSpreadsheetHelper :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]]
 budgetReportAsSpreadsheetHelper