warp 3.0.0.7 → 3.0.0.8

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

• test/ExceptionSpec.hs +1/−1
• test/RunSpec.hs +2/−1
• warp.cabal +1/−1

@@ -21,7 +21,7 @@  withTestServer :: (Int -> IO a) -> IO a withTestServer inner = bracket-    (N.bindRandomPortTCP "*4")+    (N.bindRandomPortTCP "127.0.0.1")     (sClose . snd)     $ \(prt, lsocket) -> do         withAsync (runSettingsSocket defaultSettings lsocket testApp)

@@ -79,7 +79,7 @@ getPort :: IO Int getPort = do     port <- I.atomicModifyIORef nextPort $ \p -> (p + 1, p)-    esocket <- try $ bindPortTCP port "*4"+    esocket <- try $ bindPortTCP port "127.0.0.1"     case esocket of         Left (_ :: IOException) -> RunSpec.getPort         Right socket -> do@@ -91,6 +91,7 @@     port <- RunSpec.getPort     baton <- newEmptyMVar     let settings' = setPort port+                  $ setHost "127.0.0.1"                   $ setBeforeMainLoop (putMVar baton ())                     settings     bracket

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