summaryrefslogtreecommitdiff
path: root/Remote
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-09-22 11:03:44 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-09-22 11:04:26 -0400
commite37c4016bb46d20bf66ecb711b64fbd9af97533f (patch)
tree8089f6182cc2950d6e73d5f6c7d2dde0d0c4d3f9 /Remote
parent61421a4a686eef076b0592384a3ce6e8573bd04e (diff)
avoid hard dependency on new version of aws
Diffstat (limited to 'Remote')
-rw-r--r--Remote/S3.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs
index 5c5a43661..7b71df2b0 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -499,8 +499,11 @@ getBucketName = map toLower <$$> M.lookup "bucket"
getStorageClass :: RemoteConfig -> S3.StorageClass
getStorageClass c = case M.lookup "storageclass" c of
+ Just "REDUCED_REDUNDANCY" -> S3.ReducedRedundancy
+#if MIN_VERSION_aws(0,13,0)
Just s -> S3.OtherStorageClass (T.pack s)
- Nothing -> S3.Standard
+#endif
+ _ -> S3.Standard
getPartSize :: RemoteConfig -> Maybe Integer
getPartSize c = readSize dataUnits =<< M.lookup "partsize" c