mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

aws-0.22 improved its support for setting etags, which improves support for versioned S3 buckets.

Browse source 
Remove placeholder version number I used when implementing the feature in
aws.

This commit was sponsored by Ethan Aubin.
This commit is contained in:
Joey Hess 2020-09-14 18:37:49 -04:00
parent c87f73f638
commit 5844a54869
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Remote/S3.hs
View file

@ -347,10 +347,7 @@ storeHelper info h magic f object p = liftIO $ case partSize info of
resp <- sendS3Handle h req
vid <- mkS3VersionID object
<$> extractFromResourceT (S3.porVersionId resp)
-- FIXME Actual aws version that supports this is not known,
-- patch not merged yet.
-- https://github.com/aristidb/aws/issues/258
#if MIN_VERSION_aws(0,99,0)
#if MIN_VERSION_aws(0,22,0)
etag <- extractFromResourceT (Just (S3.porETag resp))
return (etag, vid)
#else
@ -685,10 +682,7 @@ rewritePreconditionException a = catchJust (Url.matchStatusCodeException want) a
storeExportWithContentIdentifierS3 :: S3HandleVar -> Remote -> RemoteStateHandle -> S3Info -> Maybe Magic -> FilePath -> Key -> ExportLocation -> [ContentIdentifier] -> MeterUpdate -> Annex ContentIdentifier
storeExportWithContentIdentifierS3 hv r rs info magic src k loc _overwritablecids p
| versioning info = go
-- FIXME Actual aws version that supports getting Etag for a store
-- is not known; patch not merged yet.
-- https://github.com/aristidb/aws/issues/258
#if MIN_VERSION_aws(0,99,0)
#if MIN_VERSION_aws(0,22,0)
| otherwise = go
#else
| otherwise = giveup "git-annex is built with too old a version of the aws library to support this operation"