From 3d33673b2585ef6c2cf2959d066d41f657486227 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 15 Nov 2012 17:53:10 +0000
Subject: [PATCH] web: obey command-line query options at startup again

---
 hledger-web/Hledger/Web/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index e3cfe135e..ce2f84398 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -55,7 +55,9 @@ withJournalDo' opts cmd = do
 web :: WebOpts -> Journal -> IO ()
 web opts j = do
   -- unless (debug_ $ cliopts_ opts) $ forkIO (browser baseurl) >> return ()
-  server (base_url_ opts) (port_ opts) opts j
+  d <- getCurrentDay
+  let j' = filterJournalTransactions (queryFromOpts d $ reportopts_ $ cliopts_ opts) j
+  server (base_url_ opts) (port_ opts) opts j'
 
 -- browser :: String -> IO ()
 -- browser baseurl = do