git.iko.soy/typeable/wai
on master help sign in
add newline to request logger
73edd4aGreg Weber
wai-extra/Network/Wai/Middleware/RequestLogger.hs+2
compare with master
unifiedsplit
@@ -47,6 +47,7 @@ logHandle cb app req = do
47 , " "
47 , " "
48 , "Accept: "
48 , "Accept: "
49 , maybe "" toBS $ lookup "Accept" $ requestHeaders req
49 , maybe "" toBS $ lookup "Accept" $ requestHeaders req
50+ , "\n"
50 ]
51 ]
51 app req
52 app req
52
53
@@ -85,6 +86,7 @@ logHandleDev cb app req = do
85 , maybe "" id $ lookup "Accept" $ requestHeaders req
86 , maybe "" id $ lookup "Accept" $ requestHeaders req
86 , paramsToBS "GET " getParams
87 , paramsToBS "GET " getParams
87 , paramsToBS "POST " postParams
88 , paramsToBS "POST " postParams
89+ , "\n"
88 ]
90 ]
89 -- we just consumed the body- fill the enumerator back up so it is available again
91 -- we just consumed the body- fill the enumerator back up so it is available again
90 body' <- C.bufferSource $ CL.sourceList body
92 body' <- C.bufferSource $ CL.sourceList body