diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -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
diff --git a/Network/Wai/Handler/Launch.hs b/Network/Wai/Handler/Launch.hs
--- a/Network/Wai/Handler/Launch.hs
+++ b/Network/Wai/Handler/Launch.hs
@@ -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
diff --git a/wai-handler-launch.cabal b/wai-handler-launch.cabal
--- a/wai-handler-launch.cabal
+++ b/wai-handler-launch.cabal
@@ -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