@@ -247,6 +247,8 @@ getOnException :: Settings -> Maybe Request -> SomeException -> IO ()
247247getOnException = settingsOnException
248248
249249-- | Get the graceful shutdown timeout
250+--
251+-- Since 3.2.8
250252getGracefulShutdownTimeout :: Settings -> Maybe Int
251253getGracefulShutdownTimeout = settingsGracefulShutdownTimeout
252254
@@ -356,6 +358,8 @@ setLogger lgr y = y { settingsLogger = lgr }
356358-- | Set the graceful shutdown timeout. A timeout of `Nothing' will
357359-- wait indefinitely, and a number, if provided, will be treated as seconds
358360-- to wait for requests to finish, before shutting down the server entirely.
361+--
362+-- Since 3.2.8
359363setGracefulShutdownTimeout :: Maybe Int
360364 -> Settings -> Settings
361365setGracefulShutdownTimeout time y = y { settingsGracefulShutdownTimeout = time }