wai-handler-launch 3.0.0.5 → 3.0.1

raw patch · 3 files changed

+15/−3 lines, 3 files

Files

• ChangeLog.md +4/−0
• Network/Wai/Handler/Launch.hs +10/−2
• wai-handler-launch.cabal +1/−1

@@ -1,3 +1,7 @@+## 3.0.1++* make host configurable too (fixes #538) [#539](https://github.com/yesodweb/wai/pull/539)+ ## 3.0.0.5  * Support wai/warp 3.2

@@ -5,6 +5,7 @@     ( run     , runUrl     , runUrlPort+    , runHostPortUrl     ) where  import Network.Wai@@ -13,6 +14,7 @@ import qualified Network.Wai.Handler.Warp as Warp import Data.IORef import Data.Monoid (mappend)+import Data.String (fromString) import Control.Concurrent (forkIO, threadDelay) import Control.Monad.IO.Class (liftIO) import Control.Monad (unless)@@ -186,12 +188,18 @@ runUrl = runUrlPort 4587  runUrlPort :: Int -> String -> Application -> IO ()-runUrlPort port url app = do+runUrlPort = runHostPortUrl "*4"++-- |+--+-- @since 3.0.1+runHostPortUrl :: String -> Int -> String -> Application -> IO ()+runHostPortUrl host port url app = do     x <- newIORef True     _ <- forkIO $ Warp.runSettings         ( Warp.setPort port         $ Warp.setOnException (\_ _ -> return ())-        $ Warp.setHost "*4" Warp.defaultSettings)+        $ Warp.setHost (fromString host) Warp.defaultSettings)         $ ping x app     launch port url     loop x

@@ -1,5 +1,5 @@ Name:                wai-handler-launch-Version:             3.0.0.5+Version:             3.0.1 Synopsis:            Launch a web app in the default browser. description:         API docs and the README are available at <http://www.stackage.org/package/wai-handler-launch>. License:             MIT