@@ -84,6 +84,9 @@ runSettings set app = withSocketsDo $
8484--
8585-- Note that the 'settingsPort' will still be passed to 'Application's via the
8686-- 'serverPort' record.
87+--
88+-- When the listen socket in the second argument is closed, all live
89+-- connections are gracefully shut-downed.
8790runSettingsSocket :: Settings -> Socket -> Application -> IO ()
8891runSettingsSocket set socket app = do
8992 settingsInstallShutdownHandler set closeListenSocket