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

cli,csv: Fix --drop option in csv output format

Browse Source
This commit is contained in:
aragaer 2021-01-12 20:15:35 +03:00 committed by Simon Michael
parent 84bf42a9fc
commit 7bde3345b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -357,7 +357,7 @@ balance opts@CliOpts{rawopts_=rawopts,reportspec_=rspec} j = do
balanceReportAsCsv :: ReportOpts -> BalanceReport -> CSV
balanceReportAsCsv opts (items, total) =
["account","balance"] :
[[a, wbToText $ showMixedAmountB oneLine b] | (a, _, _, b) <- items]
[[accountNameDrop (drop_ opts) a, wbToText $ showMixedAmountB oneLine b] | (a, _, _, b) <- items]
++
if no_total_ opts
then []
@ -450,7 +450,7 @@ multiBalanceReportAsCsv opts@ReportOpts{average_, row_total_}
++ ["Total" | row_total_]
++ ["Average" | average_]
) :
[displayFull a :
[displayName a :
map (wbToText . showMixedAmountB oneLine)
(amts
++ [rowtot | row_total_]