S3: Fix support for using https.

Was using the http-only Manager before, not the tls-capable one.
This commit is contained in:
Joey Hess 2015-10-15 10:37:06 -04:00
parent 45c9440cf9
commit c32a2429ed
Failed to extract signature
2 changed files with 4 additions and 4 deletions

View file

@ -22,7 +22,7 @@ import qualified Data.Map as M
import Data.Char import Data.Char
import Network.Socket (HostName) import Network.Socket (HostName)
import Network.HTTP.Conduit (Manager, newManager) 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 Network.HTTP.Types
import Control.Monad.Trans.Resource import Control.Monad.Trans.Resource
import Control.Monad.Catch import Control.Monad.Catch
@ -48,7 +48,7 @@ import Utility.Metered
import Utility.DataUnits import Utility.DataUnits
import Annex.Content import Annex.Content
import Annex.Url (withUrlOptions) import Annex.Url (withUrlOptions)
import Utility.Url (checkBoth, closeManager) import Utility.Url (checkBoth, managerSettings, closeManager)
type BucketName = String type BucketName = String
@ -418,7 +418,7 @@ withS3HandleMaybe c u a = do
Nothing -> a Nothing Nothing -> a Nothing
where where
s3cfg = s3Configuration c s3cfg = s3Configuration c
httpcfg = defaultManagerSettings httpcfg = managerSettings
{ managerResponseTimeout = Nothing } { managerResponseTimeout = Nothing }
s3Configuration :: RemoteConfig -> S3.S3Configuration AWS.NormalQuery s3Configuration :: RemoteConfig -> S3.S3Configuration AWS.NormalQuery

2
debian/changelog vendored
View file

@ -35,11 +35,11 @@ git-annex (5.20150931) UNRELEASED; urgency=medium
Fixed this bug, which was introduced in version 5.20150727. Fixed this bug, which was introduced in version 5.20150727.
* Avoid unncessary write to the location log when a file is unlocked * Avoid unncessary write to the location log when a file is unlocked
and then added back with unchanged content. and then added back with unchanged content.
* S3: Fix support for using https.
* Debian: Add torrent library to build-depends as it's packaged now, * Debian: Add torrent library to build-depends as it's packaged now,
and stop recommending bittornado | bittorrent. and stop recommending bittornado | bittorrent.
* Debian: Remove dependency on transformers library, as it is now * Debian: Remove dependency on transformers library, as it is now
included in ghc. included in ghc.
*
-- Joey Hess <id@joeyh.name> Thu, 01 Oct 2015 12:42:56 -0400 -- Joey Hess <id@joeyh.name> Thu, 01 Oct 2015 12:42:56 -0400