diff --git a/hledger-web/devel.hs b/hledger-web/devel.hs index d7408bd3d..551043854 100644 --- a/hledger-web/devel.hs +++ b/hledger-web/devel.hs @@ -1,7 +1,6 @@ {-# LANGUAGE PackageImports #-} import "hledger-web" Application (getApplicationDev) import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort) -import Network.Wai.Handler.Launch (run, runUrl, runUrlPort) import Control.Concurrent (forkIO) import System.Directory (doesFileExist, removeFile) import System.Exit (exitSuccess) @@ -12,10 +11,9 @@ main = do putStrLn "Starting devel application" (port, app) <- getApplicationDev forkIO $ - -- runSettings defaultSettings - -- { settingsPort = port - -- } app - run app + runSettings defaultSettings + { settingsPort = port + } app loop loop :: IO ()