git.iko.soy/typeable/wai
on master help sign in
log response status in development
91bd299Greg Weber
wai-extra/Network/Wai/Middleware/RequestLogger.hs+12−3
compare with master
unifiedsplit
@@ -13,7 +13,7 @@ import System.IO (stdout, hFlush)
13import qualified Data.ByteString as BS
13import qualified Data.ByteString as BS
14import Data.ByteString.Char8 (pack)
14import Data.ByteString.Char8 (pack)
15import Control.Monad.IO.Class (liftIO)
15import Control.Monad.IO.Class (liftIO)
16−import Network.Wai (Request(..), Middleware)
16+import Network.Wai (Request(..), Middleware, responseStatus)
17import System.Log.FastLogger
17import System.Log.FastLogger
18import Network.HTTP.Types as H
18import Network.HTTP.Types as H
19
19
@@ -90,11 +90,20 @@ logCallbackDev cb app req = do
90 , maybe "" id $ lookup "Accept" $ requestHeaders req
90 , maybe "" id $ lookup "Accept" $ requestHeaders req
91 , paramsToBS "GET " getParams
91 , paramsToBS "GET " getParams
92 , paramsToBS "POST " postParams
92 , paramsToBS "POST " postParams
93− , "\n"
94 ]
93 ]
95 -- The body was consumed. Fill it back up so it is available again
94 -- The body was consumed. Fill it back up so it is available again
96− app req { requestBody = CL.sourceList body }
95+ rsp <- app req { requestBody = CL.sourceList body }
96+ liftIO $ cb $ BS.concat [
97+ "Status: "
98+ , code rsp
99+ , " "
100+ , msg rsp
101+ , "\n"
102+ ]
103+ return rsp
97 where
104 where
105+ code = pack . show . statusCode . responseStatus
106+ msg = statusMessage . responseStatus
98 paramsToBS prefix params =
107 paramsToBS prefix params =
99 if null params then ""
108 if null params then ""
100 else BS.concat ["\n", prefix, pack (show params)]
109 else BS.concat ["\n", prefix, pack (show params)]