@@ -68,7 +68,7 @@ testWithApplication = testWithApplicationSettings defaultSettings
6868--
6969-- @since 3.2.7
7070testWithApplicationSettings :: Settings -> IO Application -> (Port -> IO a) -> IO a
71−testWithApplicationSettings _settings mkApp action = do
71+testWithApplicationSettings settings mkApp action = do
7272 callingThread <- myThreadId
7373 app <- mkApp
7474 let wrappedApp request respond =
@@ -77,7 +77,7 @@ testWithApplicationSettings _settings mkApp action = do
7777 (defaultShouldDisplayException e)
7878 (throwTo callingThread e)
7979 throwIO e
80− withApplication (return wrappedApp) action
80+ withApplicationSettings settings (return wrappedApp) action
8181
8282data Waiter a
8383 = Waiter {