bal: warn that --budget -O csv doesn't work
This commit is contained in:
parent
46d7893446
commit
3849ba7a9d
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user