From 7df9a40750917d96a4509c5bce3b383624413e87 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 31 Jul 2020 18:02:38 -0700
Subject: [PATCH] ;web: ensure sidebar accounts are in tree mode, fixing a
 regression

---
 hledger-web/Hledger/Web/Foundation.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hledger-web/Hledger/Web/Foundation.hs b/hledger-web/Hledger/Web/Foundation.hs
index ea4b05426..ba7e58aa2 100644
--- a/hledger-web/Hledger/Web/Foundation.hs
+++ b/hledger-web/Hledger/Web/Foundation.hs
@@ -119,8 +119,10 @@ instance Yesod App where
     hideEmptyAccts <- (== Just "1") . lookup "hideemptyaccts" . reqCookies <$> getRequest
 
     let ropts = reportopts_ (cliopts_ opts)
-        -- flip the default for items with zero amounts, show them by default
-        ropts' = ropts { empty_ = not (empty_ ropts) }
+        ropts' = ropts
+          {accountlistmode_ = ALTree  -- force tree mode for sidebar
+          ,empty_           = not (empty_ ropts)  -- show zero items by default
+          }
         accounts =
           balanceReportAsHtml (JournalR, RegisterR) here hideEmptyAccts j q qopts $
           balanceReport ropts' m j