bal: warn that --budget -O csv doesn't work

This commit is contained in:
Simon Michael 2018-01-18 11:24:22 -08:00
parent 46d7893446
commit 3849ba7a9d

View File

@ -336,8 +336,7 @@ balance opts@CliOpts{rawopts_=rawopts,reportopts_=ropts} j = do
report = multiBalanceReport ropts (queryFromOpts d ropts) j' report = multiBalanceReport ropts (queryFromOpts d ropts) j'
budgetReport = multiBalanceReport ropts (queryFromOpts d ropts) budget budgetReport = multiBalanceReport ropts (queryFromOpts d ropts) budget
render = case format of render = case format of
-- XXX: implement csv rendering "csv" -> const $ error' "Sorry, CSV output is not yet implemented for this kind of report." -- TODO
"csv" -> (++ "\n") . printCSV . multiBalanceReportAsCsv ropts
"html" -> const $ error' "Sorry, HTML output is not yet implemented for this kind of report." -- TODO "html" -> const $ error' "Sorry, HTML output is not yet implemented for this kind of report." -- TODO
_ -> multiBalanceReportWithBudgetAsText ropts budgetReport _ -> multiBalanceReportWithBudgetAsText ropts budgetReport
writeOutput opts $ render report writeOutput opts $ render report