From 774434fcf2c4fb03428413a6857825b52c6d19ea Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 14 Jun 2011 19:39:49 +0000
Subject: [PATCH] web: always show empty and boring accounts too

---
 hledger-web/Hledger/Web/Handlers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs
index df5e96091..f91308d2d 100644
--- a/hledger-web/Hledger/Web/Handlers.hs
+++ b/hledger-web/Hledger/Web/Handlers.hs
@@ -865,7 +865,7 @@ viewdataWithDateAndParams d q a p =
 getViewData :: Handler ViewData
 getViewData = do
   app        <- getYesod
-  let opts = appOpts app
+  let opts = appOpts app ++ [NoElide]
   (j, err)   <- getCurrentJournal opts
   msg        <- getMessageOr err
   Just here  <- getCurrentRoute