@@ -68,7 +68,7 @@ testWithApplication = testWithApplicationSettings defaultSettings
69-- @since 3.2.7
69-- @since 3.2.7
70testWithApplicationSettings :: Settings -> IO Application -> (Port -> IO a) -> IO a
70testWithApplicationSettings :: Settings -> IO Application -> (Port -> IO a) -> IO a
71−testWithApplicationSettings _settings mkApp action = do
71+testWithApplicationSettings settings mkApp action = do
72 callingThread <- myThreadId
72 callingThread <- myThreadId
73 app <- mkApp
73 app <- mkApp
74 let wrappedApp request respond =
74 let wrappedApp request respond =
@@ -77,7 +77,7 @@ testWithApplicationSettings _settings mkApp action = do
77 (defaultShouldDisplayException e)
77 (defaultShouldDisplayException e)
78 (throwTo callingThread e)
78 (throwTo callingThread e)
80− withApplication (return wrappedApp) action
80+ withApplicationSettings settings (return wrappedApp) action
82data Waiter a
82data Waiter a
83 = Waiter {
83 = Waiter {