git.iko.soy/typeable/wai
on master help sign in
Brought back missing withSocketsDo call.
f71f0c3Anton Dessiatov
warp/Network/Wai/Handler/Warp/Run.hs+1−1
compare with master
unifiedsplit
@@ -77,7 +77,7 @@ run p = runSettings defaultSettings { settingsPort = p }
77
77
78-- | Run an 'Application' with the given 'Settings'.
78-- | Run an 'Application' with the given 'Settings'.
79runSettings :: Settings -> Application -> IO ()
79runSettings :: Settings -> Application -> IO ()
80−runSettings set app =
80+runSettings set app = withSocketsDo $
81 bracket
81 bracket
82 (bindPortTCP (settingsPort set) (settingsHost set))
82 (bindPortTCP (settingsPort set) (settingsHost set))
83 sClose
83 sClose