warp 3.2.16 → 3.2.17

raw patch · 4 files changed

+12/−1 lines, 4 files

Files

Network/Wai/Handler/Warp/Internal.hs +4/−0
Network/Wai/Handler/Warp/Run.hs +4/−0
Network/Wai/Handler/Warp/Windows.hs +3/−0
warp.cabal +1/−1

Network/Wai/Handler/Warp/Internal.hs view

@@ -64,6 +64,9 @@   , Source   , recvRequest   , sendResponse+    -- * Platform dependent helper functions+  , setSocketCloseOnExec+  , windowsThreadBlockHack   ) where  import Network.Wai.Handler.Warp.Buffer@@ -79,3 +82,4 @@ import Network.Wai.Handler.Warp.Settings import Network.Wai.Handler.Warp.Timeout import Network.Wai.Handler.Warp.Types+import Network.Wai.Handler.Warp.Windows

Network/Wai/Handler/Warp/Run.hs view

@@ -522,7 +522,11 @@         when (S.length bs >= slowlorisSize || bufsize <= slowlorisSize) $ T.tickle th     return bs +-- | Set flag FileCloseOnExec flag on a socket (on Unix)+-- -- Copied from: https://github.com/mzero/plush/blob/master/src/Plush/Server/Warp.hs+--+-- @since 3.2.17 setSocketCloseOnExec :: Socket -> IO () #if WINDOWS setSocketCloseOnExec _ = return ()

Network/Wai/Handler/Warp/Windows.hs view

@@ -10,6 +10,9 @@  import Network.Wai.Handler.Warp.Imports +-- | Allow main socket listening thread to be interrupted on Windows platform+--+-- @since 3.2.17 windowsThreadBlockHack :: IO a -> IO a windowsThreadBlockHack act = do     var <- newEmptyMVar :: IO (MVar (Either SomeException a))

warp.cabal view

@@ -1,5 +1,5 @@ Name:                warp-Version:             3.2.16+Version:             3.2.17 Synopsis:            A fast, light-weight web server for WAI applications. License:             MIT License-file:        LICENSE