@@ -374,15 +374,25 @@ setSlowlorisSize x y = y { settingsSlowlorisSize = x }
374374setHTTP2Disabled :: Settings -> Settings
375375setHTTP2Disabled y = y { settingsHTTP2Enabled = False }
376376
377−-- | Setting a log function. `Integer` is the body length of a response.
377+-- | Setting a log function.
378378--
379379-- Since 3.X.X
380−setLogger :: (Request -> H.Status -> Maybe Integer -> IO ())
381− -> Settings -> Settings
380+setLogger :: (Request -> H.Status -> Maybe Integer -> IO ()) -- ^ request, status, maybe file-size
381+ -> Settings
382+ -> Settings
382383setLogger lgr y = y { settingsLogger = lgr }
383384
384−setServerPushLogger :: (SockAddr -> ByteString -> Integer -> ByteString -> Maybe ByteString -> IO ())
385− -> Settings -> Settings
385+-- | Setting a log function for HTTP/2 server push.
386+--
387+-- Since: 3.2.7
388+setServerPushLogger :: (SockAddr
389+ -> ByteString
390+ -> Integer
391+ -> ByteString
392+ -> Maybe ByteString
393+ -> IO ()) -- ^ socket address, URL path, file size, referer, maybe user-agent
394+ -> Settings
395+ -> Settings
386396setServerPushLogger lgr y = y { settingsServerPushLogger = lgr }
387397
388398-- | Set the graceful shutdown timeout. A timeout of `Nothing' will