on master help sign in
add newline to request logger
commit73edd4a22fbbc5621eb144d9d145bfdc6b829213 authorGreg Weber <greg@gregweber.info> dateFri 6 Jan 2012, 01:51 (15 years ago) parent067e04b
1 file changed+2
wai-extra/Network/Wai/Middleware/RequestLogger.hs+2
wai-extra/Network/Wai/Middleware/RequestLogger.hs+2
@@ -47,6 +47,7 @@ logHandle cb app req = do
4747 , " "
4848 , "Accept: "
4949 , maybe "" toBS $ lookup "Accept" $ requestHeaders req
50+ , "\n"
5051 ]
5152 app req
5253
@@ -85,6 +86,7 @@ logHandleDev cb app req = do
8586 , maybe "" id $ lookup "Accept" $ requestHeaders req
8687 , paramsToBS "GET " getParams
8788 , paramsToBS "POST " postParams
89+ , "\n"
8890 ]
8991 -- we just consumed the body- fill the enumerator back up so it is available again
9092 body' <- C.bufferSource $ CL.sourceList body