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:
parent
89238e9595
commit
26d6566307
6 changed files with 42 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue