removing a warning.

This commit is contained in:
Kazu Yamamoto 2016-06-16 14:54:02 +09:00
parent 397d4e0f04
commit c25a6851d9

View File

@ -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 =