diff options
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index fe407f204..7b71df2b0 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -500,6 +500,9 @@ 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) +#endif _ -> S3.Standard getPartSize :: RemoteConfig -> Maybe Integer |