diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-09-17 17:20:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-17 17:20:01 -0400 |
| commit | 61421a4a686eef076b0592384a3ce6e8573bd04e (patch) | |
| tree | e4bcd9cd4c82c7b559eee7ddf0159ebfb799f99e /Remote/S3.hs | |
| parent | 253f1b2b6c988b1b2148b9d41e4de5bedaa73fba (diff) | |
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
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index fe407f204..5c5a43661 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -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 |