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