http-streams 0.6.0.1 → 0.6.0.2
raw patch · 4 files changed
+8/−7 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- http-streams.cabal +1/−1
- src/Network/Http/Client.hs +1/−1
- src/Network/Http/Connection.hs +5/−4
- src/Network/Http/Inconvenience.hs +1/−1
http-streams.cabal view
@@ -1,6 +1,6 @@ cabal-version: >= 1.10 name: http-streams-version: 0.6.0.1+version: 0.6.0.2 synopsis: An HTTP client using io-streams description: /Overview/
src/Network/Http/Client.hs view
@@ -47,7 +47,7 @@ \ 'sendRequest' c q 'emptyBody' \ `receiveResponse` c (\\p i -> do-\ x <- Streams.read b+\ x <- Streams.read i \ S.putStr $ fromMaybe \"\" x) \ 'closeConnection' c
src/Network/Http/Connection.hs view
@@ -226,11 +226,12 @@ -- openConnectionSSL :: SSLContext -> Hostname -> Port -> IO Connection openConnectionSSL ctx h1' p = do- s <- socket AF_INET Stream defaultProtocol- is <- getAddrInfo Nothing (Just h1) (Just $ show p) let a = addrAddress $ head is+ f = addrFamily $ head is+ s <- socket f Stream defaultProtocol+ connect s a ssl <- SSL.connection ctx s@@ -364,7 +365,7 @@ -- content from the server: -- -- > receiveResponse c (\p i -> do--- > m <- Streams.read b+-- > m <- Streams.read i -- > case m of -- > Just bytes -> putStr bytes -- > Nothing -> return ())@@ -373,7 +374,7 @@ -- 'InputStream', which is the whole point of having an @io-streams@ -- based HTTP client library. ----- The final value from the handler function. is the return value of+-- The final value from the handler function is the return value of -- @receiveResponse@, if you need it. -- {-
src/Network/Http/Inconvenience.hs view
@@ -219,7 +219,7 @@ SSL.contextSetDefaultCiphers ctx #if defined __MACOSX__ SSL.contextSetVerificationMode ctx SSL.VerifyNone-#elif defined __WIN32__+#elif defined __WINDOWS__ SSL.contextSetVerificationMode ctx SSL.VerifyNone #else SSL.contextSetCADirectory ctx "/etc/ssl/certs"