Brought back missing withSocketsDo call.
commitf71f0c3e560f6d169b9e67bf4b418f80f9d50d01
authorAnton Dessiatov <anton.dessiatov@gmail.com>
dateMon 28 Apr 2014, 10:25 (12 years ago)
parent923f7d5
warp/Network/Wai/Handler/Warp/Run.hs+1−1
@@ -77,7 +77,7 @@ run p = runSettings defaultSettings { settingsPort = p }
7777
7878-- | Run an 'Application' with the given 'Settings'.
7979runSettings :: Settings -> Application -> IO ()
80−runSettings set app =
80+runSettings set app = withSocketsDo $
8181 bracket
8282 (bindPortTCP (settingsPort set) (settingsHost set))
8383 sClose