@@ -22,7 +22,7 @@ import Network.Wai.Middleware.Vhost
22import Network.Wai.Middleware.Autohead
22import Network.Wai.Middleware.Autohead
23import Network.Wai.Middleware.MethodOverride
23import Network.Wai.Middleware.MethodOverride
24import Network.Wai.Middleware.AcceptOverride
24import Network.Wai.Middleware.AcceptOverride
25−import Network.Wai.Middleware.RequestLogger (logHandle)
25+import Network.Wai.Middleware.RequestLogger (logCallback)
26import Codec.Compression.GZip (decompress)
26import Codec.Compression.GZip (decompress)
28import qualified Data.Conduit as C
28import qualified Data.Conduit as C
@@ -429,7 +429,7 @@ caseDebugRequestBody = do
429 -- FIXME getOutput _qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
429 -- FIXME getOutput _qs = T.pack $ "GET /location" ++ "\nAccept: \nGET " ++ (show params) -- \nAccept: \n" ++ (show params)
430 getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \n"
430 getOutput _qs = T.pack $ "GET /location?foo=bar&baz=bin Accept: \n"
432− debugApp output' = logHandle (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
432+ debugApp output' = logCallback (\t -> liftIO $ assertEqual "debug" output t) $ \_req -> do
433 return $ responseLBS status200 [ ] ""
433 return $ responseLBS status200 [ ] ""
435 output = TE.encodeUtf8 $ T.toStrict output'
435 output = TE.encodeUtf8 $ T.toStrict output'