@@ -89,7 +89,7 @@ runSettings set app = withSocketsDo $
8989-- 'serverPort' record.
9090--
9191-- When the listen socket in the second argument is closed, all live
92−-- connections are gracefully shut-downed.
92+-- connections are gracefully shut down.
9393runSettingsSocket :: Settings -> Socket -> Application -> IO ()
9494runSettingsSocket set socket app = do
9595 settingsInstallShutdownHandler set closeListenSocket
@@ -259,7 +259,7 @@ fork set mkConn addr app dc fc tm counter = settingsFork set $ \ unmask ->
259259 bracket (onOpen addr) (onClose addr) $ \goingon ->
260260
261261 -- Actually serve this connection.
262− -- onnClose above ensures the termination of the connection.
262+ -- bracket with closeConn above ensures the connection is closed.
263263 when goingon $ serveConnection conn ii addr isSecure' set app
264264 where
265265 closeConn (conn, _isSecure) = connClose conn