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

S3: The REDUCED_REDUNDANCY storage class is no longer cheaper

Browse source 
So stop documenting it, and stop offering it as a choice in the assistant.

Removed the code that parses it into S3.ReducedRedundancy, because
S3.OtherStorageClass with the value will work just the same and avoids a
special case for a deprecated this.
This commit is contained in:
Joey Hess 2020-06-16 12:04:29 -04:00
parent 6dac582f06
commit 41952204ce
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/S3.hs
View file

@ -84,7 +84,7 @@ remote = specialRemoteType $ RemoteType
, optionalStringParser partsizeField
(FieldDesc "part size for multipart upload (eg 1GiB)")
, optionalStringParser storageclassField
(FieldDesc "storage class, eg STANDARD or REDUCED_REDUNDANCY")
(FieldDesc "storage class, eg STANDARD or STANDARD_IA or ONEZONE_IA")
, optionalStringParser fileprefixField
(FieldDesc "prefix to add to filenames in the bucket")
, yesNoParser versioningField False
@ -939,7 +939,6 @@ getBucketName = map toLower <$$> getRemoteConfigValue bucketField
getStorageClass :: ParsedRemoteConfig -> S3.StorageClass
getStorageClass c = case getRemoteConfigValue storageclassField c of
Just "REDUCED_REDUNDANCY" -> S3.ReducedRedundancy
Just s -> S3.OtherStorageClass (T.pack s)
_ -> S3.Standard