From cfee04215fb8c3407a223cab62213d58e7fe65e7 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 5 May 2018 16:12:27 -0700
Subject: [PATCH] bal: always ignore --drop when not in flat mode (fix #754)

---
 hledger-lib/Hledger/Reports/BudgetReport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Reports/BudgetReport.hs b/hledger-lib/Hledger/Reports/BudgetReport.hs
index 83eb0bbaf..9f988c032 100644
--- a/hledger-lib/Hledger/Reports/BudgetReport.hs
+++ b/hledger-lib/Hledger/Reports/BudgetReport.hs
@@ -353,8 +353,8 @@ budgetReportAsTable
 -- XXX here for now
 -- | Drop leading components of accounts names as specified by --drop, but only in --flat mode.
 maybeAccountNameDrop :: ReportOpts -> AccountName -> AccountName
-maybeAccountNameDrop opts a | tree_ opts = a
-                            | otherwise  = accountNameDrop (drop_ opts) a
+maybeAccountNameDrop opts a | flat_ opts = accountNameDrop (drop_ opts) a
+                            | otherwise  = a
 
 tests_Hledger_Reports_BudgetReport :: Test
 tests_Hledger_Reports_BudgetReport = TestList [