diff --git a/warp/Network/Wai/Handler/Warp/WithApplication.hs b/warp/Network/Wai/Handler/Warp/WithApplication.hs
index e3975bba..1e8a8f2f 100644
--- a/warp/Network/Wai/Handler/Warp/WithApplication.hs
+++ b/warp/Network/Wai/Handler/Warp/WithApplication.hs
@@ -66,7 +66,7 @@ testWithApplication = testWithApplicationSettings defaultSettings
 --
 -- @since 3.2.7
 testWithApplicationSettings :: Settings -> IO Application -> (Port -> IO a) -> IO a
-testWithApplicationSettings settings mkApp action = do
+testWithApplicationSettings _settings mkApp action = do
   callingThread <- myThreadId
   app <- mkApp
   let wrappedApp request respond =