@@ -19,6 +19,7 @@ import Data.String.Conversions
1919import Data.Text
2020import Data.Text.Encoding
2121import Network.HTTP.Client
22+import Network.HTTP.Client.TLS
2223import Network.HTTP.Types
2324import Network.URI
2425import Servant.Common.BaseUrl
@@ -91,7 +92,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
9192
9293{-# NOINLINE __manager #-}
9394__manager :: MVar Manager
94−__manager = unsafePerformIO (newManager defaultManagerSettings >>= newMVar)
95+__manager = unsafePerformIO (newManager tlsManagerSettings >>= newMVar)
9596
9697__withGlobalManager :: (Manager -> IO a) -> IO a
9798__withGlobalManager action = modifyMVar __manager $ \ manager -> do