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

cli: Commands.Balance.budgetReportAsCsv, budgetReportAsSpreadsheet: remove duplicate transposition

Browse Source
This commit is contained in:
Henning Thielemann 2024-08-26 11:37:44 +02:00 committed by Simon Michael
parent 3fbad1892d
commit 2d59bc8591
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1189,16 +1189,12 @@ budgetReportAsTable ReportOpts{..} (PeriodicReport spans items totrow) =
-- but includes alternating actual and budget amount columns. -- but includes alternating actual and budget amount columns.
budgetReportAsCsv :: ReportOpts -> BudgetReport -> [[Text]] budgetReportAsCsv :: ReportOpts -> BudgetReport -> [[Text]]
budgetReportAsCsv ropts report budgetReportAsCsv ropts report
= (if transpose_ ropts then transpose else id) $ = map (map Ods.cellContent) $
map (map Ods.cellContent) $
budgetReportAsSpreadsheetHelper ropts report budgetReportAsSpreadsheetHelper ropts report
budgetReportAsSpreadsheet :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]] budgetReportAsSpreadsheet :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]]
budgetReportAsSpreadsheet ropts report budgetReportAsSpreadsheet ropts report
= (if transpose_ ropts = budgetReportAsSpreadsheetHelper ropts report
then error' "Sorry, --transpose with FODS or HTML output is not yet supported" -- PARTIAL:
else id)
budgetReportAsSpreadsheetHelper ropts report
budgetReportAsSpreadsheetHelper :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]] budgetReportAsSpreadsheetHelper :: ReportOpts -> BudgetReport -> [[Ods.Cell Text]]
budgetReportAsSpreadsheetHelper budgetReportAsSpreadsheetHelper