From 7bde3345b89422c21ffee6f61712c8c225bc9577 Mon Sep 17 00:00:00 2001
From: aragaer <aragaer@gmail.com>
Date: Tue, 12 Jan 2021 20:15:35 +0300
Subject: [PATCH] cli,csv: Fix --drop option in csv output format

---
 hledger/Hledger/Cli/Commands/Balance.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index 2b41ac63b..bcfe7f161 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -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_]