From 505833020f86d84bb06818337e733d85626da5d6 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 6 Jul 2010 20:57:29 +0000 Subject: [PATCH] webyesod: small cleanup --- Hledger/Cli/Commands/WebYesod.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Hledger/Cli/Commands/WebYesod.hs b/Hledger/Cli/Commands/WebYesod.hs index de979dd99..1af8cc925 100644 --- a/Hledger/Cli/Commands/WebYesod.hs +++ b/Hledger/Cli/Commands/WebYesod.hs @@ -36,9 +36,12 @@ import Paths_hledger (getDataFileName) #endif -tcpport = 5000 :: Int -browserdelay = 100000 -- microseconds -homeurl = printf "http://localhost:%d" tcpport +hostname = "localhost" +tcpport = 5000 + +browserstartdelay = 100000 -- microseconds + +homeurl = printf "http://%s:%d" hostname tcpport hledgerurl = "http://hledger.org" manualurl = hledgerurl++"/MANUAL.html" @@ -48,7 +51,7 @@ web opts args j = do server opts args j browser :: IO () -browser = putStrLn "starting web browser" >> threadDelay browserdelay >> openBrowserOn homeurl >> return () +browser = putStrLn "starting web browser" >> threadDelay browserstartdelay >> openBrowserOn homeurl >> return () server :: [Opt] -> [String] -> Journal -> IO () server opts args j = do