S3 storage classes expansion

Added support for storageclass=STANDARD_IA to use Amazon's
new Infrequently Accessed storage.

Also allows using storageclass=NEARLINE to use Google's NearLine storage.

The necessary changes to aws to support this are in
https://github.com/aristidb/aws/pull/176
This commit is contained in:
Joey Hess 2015-09-17 17:20:01 -04:00
parent 89238e9595
commit 26d6566307
6 changed files with 42 additions and 7 deletions

View file

@ -499,8 +499,8 @@ getBucketName = map toLower <$$> M.lookup "bucket"
getStorageClass :: RemoteConfig -> S3.StorageClass
getStorageClass c = case M.lookup "storageclass" c of
Just "REDUCED_REDUNDANCY" -> S3.ReducedRedundancy
_ -> S3.Standard
Just s -> S3.OtherStorageClass (T.pack s)
Nothing -> S3.Standard
getPartSize :: RemoteConfig -> Maybe Integer
getPartSize c = readSize dataUnits =<< M.lookup "partsize" c