Share the global connection manager with the rest of the program

Author: chreekat

src/Stackage/Package/HttpLib.hs

@@ -21,7 +21,7 @@ import Data.List (intercalate)
 import Network.HTTP.Client
        (Manager, Request(..), Response(..), requestFromURI)
 import qualified Network.HTTP.Client as HTTP
-import Network.HTTP.Client.TLS (newTlsManager)
+import Network.HTTP.Client.TLS (getGlobalManager)
 import Network.HTTP.Types (statusCode)
 import Network.URI (URI)
 
@@ -30,10 +30,11 @@ import Hackage.Security.Client.Repository.HttpLib
 import Hackage.Security.Util.Checked
 import Hackage.Security.Util.Pretty (Pretty(..))
 
--- | Run an action with an 'HttpLib' backed by a shared TLS-capable manager.
+-- | Run an action with an 'HttpLib' backed by the same connection pool that
+-- @Network.HTTP.Simple@ uses elsewhere in this program.
 withHttpLib :: (HttpLib -> IO a) -> IO a
 withHttpLib callback = do
-  manager <- newTlsManager
+  manager <- getGlobalManager
   callback
     HttpLib
     { httpGet = get manager