openssl-streams 1.1.0.1 → 1.1.0.2

raw patch · 3 files changed

+14/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• openssl-streams.cabal +4/−1
• src/System/IO/Streams/SSL.hs +2/−1
• test/TestSuite.hs +8/−2

@@ -1,5 +1,5 @@ Name:                openssl-streams-Version:             1.1.0.1+Version:             1.1.0.2 License:             BSD3 License-file:        LICENSE Category:            Network, IO-Streams@@ -12,6 +12,9 @@   networking using OpenSSL (by way of HsOpenSSL).   .   /ChangeLog/+    [@1.1.0.2@] Fixed a bug in the \"connect\" routine uncovered by the recent+                network upgrade.+  .     [@1.1.0.1@] Widened @network@ dependency to include 2.5.   .     [@1.1.0.0@] Updated @openssl-streams@ to work with @io-streams@ 1.1.0.0.

@@ -99,5 +99,6 @@    where     hints = N.defaultHints {-              N.addrFlags = [N.AI_ADDRCONFIG, N.AI_NUMERICSERV]+              N.addrFlags      = [N.AI_ADDRCONFIG, N.AI_NUMERICSERV]+            , N.addrSocketType = N.Stream             }

@@ -58,9 +58,15 @@         maybe (return ()) N.sClose $ SSL.sslSocket ssl      server ctx mvar = do+        let hint = N.defaultHints {+                        N.addrFamily     = N.AF_INET,+                        N.addrSocketType = N.Stream,+                        N.addrFlags      = [N.AI_NUMERICHOST]+                      }+        xs <- N.getAddrInfo (Just hint) (Just "127.0.0.1") Nothing+        let [addr] = xs         sock  <- N.socket N.AF_INET N.Stream N.defaultProtocol-        addr  <- N.inet_addr "127.0.0.1"-        let saddr = N.SockAddrInet N.aNY_PORT addr+        let saddr = N.addrAddress addr         N.bind sock saddr         N.listen sock 5         port  <- N.socketPort sock