HTTP 4000.3.1 → 4000.3.2

raw patch · 2 files changed

+2/−13 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

HTTP.cabal +1/−5
Network/TCP.hs +1/−8

HTTP.cabal view

@@ -1,5 +1,5 @@ Name: HTTP-Version: 4000.3.1+Version: 4000.3.2 Cabal-Version: >= 1.8 Build-type: Simple License: BSD3@@ -115,8 +115,6 @@   else     Build-depends: network >= 2.2.1.8 && < 2.6 -  build-tools: ghc >= 7.0 && < 7.12-   if flag(warn-as-error)     ghc-options:      -Werror @@ -125,8 +123,6 @@  Test-Suite test   type: exitcode-stdio-1.0--  build-tools: ghc >= 7.0 && < 7.12    hs-source-dirs: test   main-is: httpTests.hs

Network/TCP.hs view

@@ -306,14 +306,7 @@ -- and that the connection peer matches the given -- host name (which is recorded locally). isConnectedTo :: Connection -> EndPoint -> IO Bool-isConnectedTo (Connection conn) endPoint = do-   v <- readMVar (getRef conn)-   case v of-     ConnClosed -> print "aa" >> return False-     _ -      | connEndPoint v == endPoint ->-          catchIO (getPeerName (connSock v) >> return True) (const $ return False)-      | otherwise -> return False+isConnectedTo (Connection conn) endPoint = isTCPConnectedTo conn endPoint  isTCPConnectedTo :: HandleStream ty -> EndPoint -> IO Bool isTCPConnectedTo conn endPoint = do