086d48b · typeable/wai

git.iko.soy/typeable/wai

Moved params above accept in logger output.

commit086d48b1b558a8a00472d6f2b8a2d3551306e0e4 authorAnte Salinovic <antes@qti.qualcomm.com> dateFri 22 Aug 2014, 10:20 (12 years ago) parent2339e28

2 files changed+4−4

unifiedsplit

wai-extra/Network/Wai/Middleware/RequestLogger.hs+3−3

@@ -144,8 +144,8 @@ logStdoutDev = unsafePerformIO $ mkRequestLogger def

144144-- > Status: 200 OK 0.010555s

145145-- >

146146-- > GET static/css/normalize.css

147−-- > Accept: text/css,*/*;q=0.1

148147-- > Params: [("LXwioiBG","")]

148+-- > Accept: text/css,*/*;q=0.1

149149-- > Status: 304 Not Modified 0.010555s

150150

151151detailedMiddleware :: Callback -> Bool -> IO Middleware

@@ -233,8 +233,8 @@ detailedMiddleware' cb ansiColor ansiMethod ansiStatusCode app req sendResponse

233233 -- log the request immediately.

234234 liftIO $ cb $ mconcat $ map toLogStr $

235235 ansiMethod (requestMethod req) ++ [" ", rawPathInfo req, "\n"] ++

236− ansiColor White " Accept: " ++ [accept, "\n"] ++

237− params

236+ params ++

237+ ansiColor White " Accept: " ++ [accept, "\n"]

238238

239239 t0 <- getCurrentTime

240240 app req' $ \rsp -> do

wai-extra/test/WaiExtraTest.hs+1−1

@@ -551,7 +551,7 @@ caseDebugRequestBody = do

551551 -- postOutput = T.pack $ "POST \nAccept: \n Params: " ++ (show params)

552552 -- the time cannot be known, so match around it

553553 postOutput = ("POST /\n Accept: \n Status: 200 OK 0", "s\n")

554− getOutput params' = ("GET /location\n Accept: \n Params: " <> T.pack (show params') <> "\n Status: 200 OK 0", "s\n")

554+ getOutput params' = ("GET /location\n Params: " <> T.pack (show params') <> "\n Accept: \n Status: 200 OK 0", "s\n")

555555

556556 debugApp (beginning, ending) req send = do

557557 iactual <- I.newIORef mempty