@@ -222,6 +222,7 @@ detailedMiddleware' cb ansiColor ansiMethod ansiStatusCode app req sendResponse
222222 return (req', body)
223223 _ -> return (req, [])
224224
225+ let reqbody = if null body then [""] else ansiColor White " Request Body: " <> body <> ["\n"]
225226 postParams <- if requestMethod req `elem` ["GET", "HEAD"]
226227 then return []
227228 else do postParams <- liftIO $ allPostParams body
@@ -247,7 +248,7 @@ detailedMiddleware' cb ansiColor ansiMethod ansiStatusCode app req sendResponse
247248 -- log the status of the response
248249 cb $ mconcat $ map toLogStr $
249250 ansiMethod (requestMethod req) ++ [" ", rawPathInfo req, "\n"] ++
250− params ++
251+ params ++ reqbody ++
251252 ansiColor White " Accept: " ++ [accept, "\n"] ++
252253 if isRaw then [] else
253254 ansiColor White " Status: " ++