diff --git a/WaiAppStatic/CmdLine.hs b/WaiAppStatic/CmdLine.hs
--- a/WaiAppStatic/CmdLine.hs
+++ b/WaiAppStatic/CmdLine.hs
@@ -8,7 +8,7 @@
 import Network.Wai (Middleware)
 import Network.Wai.Application.Static (staticApp, defaultFileServerSettings)
 import Network.Wai.Handler.Warp
-    ( runSettings, defaultSettings, settingsHost, settingsPort
+    ( runSettings, defaultSettings, setHost, setPort
     )
 import Options.Applicative
 import Text.Printf (printf)
@@ -100,10 +100,12 @@
     let middle = gzip def { gzipFiles = GzipCompress }
                . (if verbose then logStdout else id)
                . (middleware args)
-    runSettings defaultSettings
-        { settingsPort = port
-        , settingsHost = fromString host
-        } $ middle $ staticApp (defaultFileServerSettings $ fromString docroot)
+    runSettings
+        ( setPort port
+        $ setHost (fromString host)
+          defaultSettings
+        )
+        $ middle $ staticApp (defaultFileServerSettings $ fromString docroot)
         { ssIndices = if noindex then [] else mapMaybe (toPiece . pack) index
         , ssGetMimeType = return . mimeByExt mimeMap defaultMimeType . fromPiece . fileName
         }
diff --git a/wai-app-static.cabal b/wai-app-static.cabal
--- a/wai-app-static.cabal
+++ b/wai-app-static.cabal
@@ -1,5 +1,5 @@
 name:            wai-app-static
-version:         3.1.0
+version:         3.1.0.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -51,7 +51,7 @@
                    , filepath
                    , wai-extra                 >= 3.0      && < 3.1
                    , optparse-applicative      >= 0.7
-                   , warp                      >= 3.0.11   && < 3.1
+                   , warp                      >= 3.0.11   && < 3.2
                    -- Used exclusively for hashFile function
                    , cryptohash-conduit