on master help sign in
Use :: instead of | for accept-type
4e6188cGreg Weber
wai-extra/Network/Wai/Middleware/RequestLogger.hs+1−1
@@ -234,7 +234,7 @@ detailedMiddleware' cb getAddColor app req = do
234 liftIO $ cb $ mconcat $ map toLogStr $ addColor (requestMethod req) ++
234 liftIO $ cb $ mconcat $ map toLogStr $ addColor (requestMethod req) ++
235 [ " "
235 [ " "
236 , rawPathInfo req
236 , rawPathInfo req
237− , " | "
237+ , " :: "
238 , accept
238 , accept
239 , paramsToBS "GET " getParams
239 , paramsToBS "GET " getParams
240 , paramsToBS "POST " postParams
240 , paramsToBS "POST " postParams