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

use putBucket to future-proof

Browse source 
New fields can be added to PutBucket in the future.
This commit is contained in:
Joey Hess 2018-12-31 13:09:20 -04:00
parent 6512b40bac
commit 2e069eb9f6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Remote/S3.hs
View file

@ -433,13 +433,14 @@ genBucket c gc u = do
Right _ -> noop Right _ -> noop
Left _ -> do Left _ -> do
showAction $ "creating bucket in " ++ datacenter showAction $ "creating bucket in " ++ datacenter
void $ sendS3Handle h $ S3.PutBucket void $ sendS3Handle h $
(bucket info) (S3.putBucket (bucket info))
(acl info) { S3.pbCannedAcl = acl info
locconstraint , S3.pbLocationConstraint = locconstraint
#if MIN_VERSION_aws(0,13,0) #if MIN_VERSION_aws(0,13,0)
storageclass , S3.pbXStorageClass = storageclass
#endif #endif
}
writeUUIDFile c u info h writeUUIDFile c u info h
locconstraint = mkLocationConstraint $ T.pack datacenter locconstraint = mkLocationConstraint $ T.pack datacenter