@@ -13,7 +13,7 @@ import System.IO (stdout, hFlush)
1313import qualified Data.ByteString as BS
1414import Data.ByteString.Char8 (pack)
1515import Control.Monad.IO.Class (liftIO)
16−import Network.Wai (Request(..), Middleware)
16+import Network.Wai (Request(..), Middleware, responseStatus)
1717import System.Log.FastLogger
1818import Network.HTTP.Types as H
1919
@@ -90,11 +90,20 @@ logCallbackDev cb app req = do
9090 , maybe "" id $ lookup "Accept" $ requestHeaders req
9191 , paramsToBS "GET " getParams
9292 , paramsToBS "POST " postParams
93− , "\n"
9493 ]
9594 -- 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
97104 where
105+ code = pack . show . statusCode . responseStatus
106+ msg = statusMessage . responseStatus
98107 paramsToBS prefix params =
99108 if null params then ""
100109 else BS.concat ["\n", prefix, pack (show params)]