@@ -22,7 +22,7 @@ import Network.Wai.Middleware.Vhost
2222import Network.Wai.Middleware.Autohead
2323import Network.Wai.Middleware.MethodOverride
2424import Network.Wai.Middleware.AcceptOverride
25−import Network.Wai.Middleware.RequestLogger (logHandle)
25+import Network.Wai.Middleware.RequestLogger (logCallback)
2626import Codec.Compression.GZip (decompress)
2727
2828import qualified Data.Conduit as C
@@ -429,7 +429,7 @@ caseDebugRequestBody = do
429429 -- FIXME getOutput _qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
430430 getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \n"
431431
432− debugApp output' = logHandle (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
432+ debugApp output' = logCallback (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
433433 return $ responseLBS status200 [ ] ""
434434 where
435435 output = TE.encodeUtf8 $ T.toStrict output'