web: try using wai-launch-handler.. not working yet

hledger-web/Hledger/Web/Main.hs

@@ -17,6 +17,7 @@ import Settings            --  (parseExtra)
 import Application          (makeApplication)
 import Data.Conduit.Network (HostPreference(HostIPv4))
 import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
+import Network.Wai.Handler.Launch (run, runUrl, runUrlPort)
 --
 import Prelude hiding (putStrLn)
 import Control.Monad (when)
@@ -74,6 +75,7 @@ server baseurl port opts j = do
             , appHost = HostIPv4
             , appExtra = Extra "" Nothing
             })
-    runSettings defaultSettings
+    -- runSettings defaultSettings
-        { settingsPort = port_ opts
+    --     { settingsPort = port_ opts
-        } app
+    --     } app
+    run app

hledger-web/devel.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE PackageImports #-}
 import "hledger-web" Application (getApplicationDev)
-import Network.Wai.Handler.Warp
+import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
-    (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,9 +12,10 @@ main = do
     putStrLn "Starting devel application"
     (port, app) <- getApplicationDev
     forkIO $
-        runSettings defaultSettings
+        -- runSettings defaultSettings
-          { settingsPort = port
+        --   { settingsPort = port
-          } app
+        --   } app
+        run app
     loop
 
 loop :: IO ()

hledger-web/hledger-web.cabal

@@ -156,6 +156,7 @@ library
                    , transformers
                    , wai
                    , wai-extra
+                   , wai-handler-launch       >= 1.3 && < 1.4
                    , warp
                    , yaml
 
@@ -245,6 +246,7 @@ executable         hledger-web
                    , transformers
                    , wai
                    , wai-extra
+                   , wai-handler-launch       >= 1.3 && < 1.4
                    , warp
                    , yaml
                    , hjsmin                        >= 0.1        && < 0.2