git.iko.soy/servant
on master help sign in
Add TLS support
4228447Timo von Holtz
servant-client.cabal+1
compare with master
unifiedsplit
@@ -44,6 +44,7 @@ library
44 , either
44 , either
45 , exceptions
45 , exceptions
46 , http-client
46 , http-client
47+ , http-client-tls
47 , http-types
48 , http-types
48 , network-uri >= 2.6
49 , network-uri >= 2.6
49 , safe
50 , safe
src/Servant/Common/Req.hs+2−1
@@ -19,6 +19,7 @@ import Data.String.Conversions
19import Data.Text
19import Data.Text
20import Data.Text.Encoding
20import Data.Text.Encoding
21import Network.HTTP.Client
21import Network.HTTP.Client
22+import Network.HTTP.Client.TLS
22import Network.HTTP.Types
23import Network.HTTP.Types
23import Network.URI
24import Network.URI
24import Servant.Common.BaseUrl
25import Servant.Common.BaseUrl
@@ -91,7 +92,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
91
92
92{-# NOINLINE __manager #-}
93{-# NOINLINE __manager #-}
93__manager :: MVar Manager
94__manager :: MVar Manager
94−__manager = unsafePerformIO (newManager defaultManagerSettings >>= newMVar)
95+__manager = unsafePerformIO (newManager tlsManagerSettings >>= newMVar)
95
96
96__withGlobalManager :: (Manager -> IO a) -> IO a
97__withGlobalManager :: (Manager -> IO a) -> IO a
97__withGlobalManager action = modifyMVar __manager $ \ manager -> do
98__withGlobalManager action = modifyMVar __manager $ \ manager -> do