From 9148bd8e8c306ae5c16653ed4fbffd0b5a97988e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 20 Apr 2013 19:57:19 -0700
Subject: [PATCH] web: don't use wai-handler-launch with yesod devel

---
 hledger-web/devel.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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 ()