S3: Fix support for using https.

Was using the http-only Manager before, not the tls-capable one.

1 files changed, 3 insertions, 3 deletions

diff --git a/Remote/S3.hs b/Remote/S3.hs
index d381e0b72..fa88b84bc 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -22,7 +22,7 @@ import qualified Data.Map as M
 import Data.Char
 import Network.Socket (HostName)
 import Network.HTTP.Conduit (Manager, newManager)
-import Network.HTTP.Client (defaultManagerSettings, managerResponseTimeout, responseStatus, responseBody, RequestBody(..))
+import Network.HTTP.Client (managerResponseTimeout, responseStatus, responseBody, RequestBody(..))
 import Network.HTTP.Types
 import Control.Monad.Trans.Resource
 import Control.Monad.Catch
@@ -48,7 +48,7 @@ import Utility.Metered
 import Utility.DataUnits
 import Annex.Content
 import Annex.Url (withUrlOptions)
-import Utility.Url (checkBoth, closeManager)
+import Utility.Url (checkBoth, managerSettings, closeManager)
 
 type BucketName = String
 
@@ -418,7 +418,7 @@ withS3HandleMaybe c u a = do
 		Nothing -> a Nothing
   where
 	s3cfg = s3Configuration c
-	httpcfg = defaultManagerSettings
+	httpcfg = managerSettings
 		{ managerResponseTimeout = Nothing }
 
 s3Configuration :: RemoteConfig -> S3.S3Configuration AWS.NormalQuery