slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: obey command-line query options at startup again

Browse Source
This commit is contained in:
Simon Michael 2012-11-15 17:53:10 +00:00
parent 2ed17f29e6
commit 3d33673b25
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Hledger/Web/Main.hs
View File

@ -55,7 +55,9 @@ withJournalDo' opts cmd = do
web :: WebOpts -> Journal -> IO () web :: WebOpts -> Journal -> IO ()
web opts j = do web opts j = do
-- unless (debug_ $ cliopts_ opts) $ forkIO (browser baseurl) >> return () -- 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 :: String -> IO ()
-- browser baseurl = do -- browser baseurl = do