amazonka-s3 1.4.0 → 1.4.1

raw patch · 66 files changed

+728/−9 lines, 66 filesdep ~amazonka-coredep ~amazonka-s3dep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-s3, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-s3.cabal +7/−5
• fixture/GetBucketAccelerateConfiguration.yaml +0/−0
• fixture/GetBucketAccelerateConfigurationResponse.proto +0/−0
• fixture/PutBucketAccelerateConfiguration.yaml +0/−0
• fixture/PutBucketAccelerateConfigurationResponse.proto +0/−0
• gen/Network/AWS/S3.hs +16/−0
• gen/Network/AWS/S3/AbortMultipartUpload.hs +4/−0
• gen/Network/AWS/S3/CompleteMultipartUpload.hs +4/−0
• gen/Network/AWS/S3/CopyObject.hs +4/−0
• gen/Network/AWS/S3/CreateBucket.hs +4/−0
• gen/Network/AWS/S3/CreateMultipartUpload.hs +4/−0
• gen/Network/AWS/S3/DeleteBucket.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketCORS.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketLifecycle.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketPolicy.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketReplication.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketTagging.hs +4/−0
• gen/Network/AWS/S3/DeleteBucketWebsite.hs +4/−0
• gen/Network/AWS/S3/DeleteObject.hs +4/−0
• gen/Network/AWS/S3/DeleteObjects.hs +4/−0
• gen/Network/AWS/S3/GetBucketACL.hs +4/−0
• gen/Network/AWS/S3/GetBucketAccelerateConfiguration.hs +126/−0
• gen/Network/AWS/S3/GetBucketCORS.hs +4/−0
• gen/Network/AWS/S3/GetBucketLifecycleConfiguration.hs +5/−0
• gen/Network/AWS/S3/GetBucketLocation.hs +4/−0
• gen/Network/AWS/S3/GetBucketLogging.hs +4/−0
• gen/Network/AWS/S3/GetBucketNotificationConfiguration.hs +2/−0
• gen/Network/AWS/S3/GetBucketPolicy.hs +4/−0
• gen/Network/AWS/S3/GetBucketReplication.hs +4/−0
• gen/Network/AWS/S3/GetBucketRequestPayment.hs +4/−0
• gen/Network/AWS/S3/GetBucketTagging.hs +4/−0
• gen/Network/AWS/S3/GetBucketVersioning.hs +4/−0
• gen/Network/AWS/S3/GetBucketWebsite.hs +4/−0
• gen/Network/AWS/S3/GetObject.hs +2/−0
• gen/Network/AWS/S3/GetObjectACL.hs +4/−0
• gen/Network/AWS/S3/GetObjectTorrent.hs +2/−0
• gen/Network/AWS/S3/HeadBucket.hs +4/−0
• gen/Network/AWS/S3/HeadObject.hs +4/−0
• gen/Network/AWS/S3/ListBuckets.hs +4/−0
• gen/Network/AWS/S3/ListMultipartUploads.hs +4/−0
• gen/Network/AWS/S3/ListObjectVersions.hs +4/−0
• gen/Network/AWS/S3/ListObjects.hs +4/−0
• gen/Network/AWS/S3/ListParts.hs +4/−0
• gen/Network/AWS/S3/PutBucketACL.hs +4/−0
• gen/Network/AWS/S3/PutBucketAccelerateConfiguration.hs +121/−0
• gen/Network/AWS/S3/PutBucketCORS.hs +4/−0
• gen/Network/AWS/S3/PutBucketLifecycleConfiguration.hs +5/−0
• gen/Network/AWS/S3/PutBucketLogging.hs +4/−0
• gen/Network/AWS/S3/PutBucketNotificationConfiguration.hs +5/−0
• gen/Network/AWS/S3/PutBucketPolicy.hs +4/−0
• gen/Network/AWS/S3/PutBucketReplication.hs +4/−0
• gen/Network/AWS/S3/PutBucketRequestPayment.hs +4/−0
• gen/Network/AWS/S3/PutBucketTagging.hs +4/−0
• gen/Network/AWS/S3/PutBucketVersioning.hs +4/−0
• gen/Network/AWS/S3/PutBucketWebsite.hs +4/−0
• gen/Network/AWS/S3/PutObject.hs +2/−0
• gen/Network/AWS/S3/PutObjectACL.hs +17/−3
• gen/Network/AWS/S3/RestoreObject.hs +4/−0
• gen/Network/AWS/S3/Types.hs +10/−0
• gen/Network/AWS/S3/Types/Product.hs +139/−0
• gen/Network/AWS/S3/Types/Sum.hs +53/−0
• gen/Network/AWS/S3/UploadPart.hs +2/−0
• gen/Network/AWS/S3/UploadPartCopy.hs +4/−0
• src/Network/AWS/S3/Internal.hs +5/−0
• test/Test/AWS/Gen/S3.hs +36/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-s3-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -62,6 +62,7 @@         , Network.AWS.S3.DeleteObject         , Network.AWS.S3.DeleteObjects         , Network.AWS.S3.GetBucketACL+        , Network.AWS.S3.GetBucketAccelerateConfiguration         , Network.AWS.S3.GetBucketCORS         , Network.AWS.S3.GetBucketLifecycleConfiguration         , Network.AWS.S3.GetBucketLocation@@ -84,6 +85,7 @@         , Network.AWS.S3.ListObjects         , Network.AWS.S3.ListParts         , Network.AWS.S3.PutBucketACL+        , Network.AWS.S3.PutBucketAccelerateConfiguration         , Network.AWS.S3.PutBucketCORS         , Network.AWS.S3.PutBucketLifecycleConfiguration         , Network.AWS.S3.PutBucketLogging@@ -108,7 +110,7 @@         , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5         , lens >= 4.4         , text >= 1.1@@ -130,9 +132,9 @@         , Test.AWS.S3.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-s3 == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-s3 == 1.4.1.*         , base         , bytestring         , tasty

@@ -101,6 +101,9 @@     -- ** GetBucketNotificationConfiguration     , module Network.AWS.S3.GetBucketNotificationConfiguration +    -- ** PutBucketAccelerateConfiguration+    , module Network.AWS.S3.PutBucketAccelerateConfiguration+     -- ** GetObject     , module Network.AWS.S3.GetObject @@ -161,6 +164,9 @@     -- ** PutBucketPolicy     , module Network.AWS.S3.PutBucketPolicy +    -- ** GetBucketAccelerateConfiguration+    , module Network.AWS.S3.GetBucketAccelerateConfiguration+     -- ** GetObjectTorrent     , module Network.AWS.S3.GetObjectTorrent @@ -226,6 +232,9 @@     -- ** Re-exported Types     , module Network.AWS.S3.Internal +    -- ** BucketAccelerateStatus+    , BucketAccelerateStatus (..)+     -- ** BucketCannedACL     , BucketCannedACL (..) @@ -303,6 +312,11 @@     , abortIncompleteMultipartUpload     , aimuDaysAfterInitiation +    -- ** AccelerateConfiguration+    , AccelerateConfiguration+    , accelerateConfiguration+    , acStatus+     -- ** AccessControlPolicy     , AccessControlPolicy     , accessControlPolicy@@ -680,6 +694,7 @@ import           Network.AWS.S3.DeleteBucketWebsite import           Network.AWS.S3.DeleteObject import           Network.AWS.S3.DeleteObjects+import           Network.AWS.S3.GetBucketAccelerateConfiguration import           Network.AWS.S3.GetBucketACL import           Network.AWS.S3.GetBucketCORS import           Network.AWS.S3.GetBucketLifecycleConfiguration@@ -703,6 +718,7 @@ import           Network.AWS.S3.ListObjects import           Network.AWS.S3.ListObjectVersions import           Network.AWS.S3.ListParts+import           Network.AWS.S3.PutBucketAccelerateConfiguration import           Network.AWS.S3.PutBucketACL import           Network.AWS.S3.PutBucketCORS import           Network.AWS.S3.PutBucketLifecycleConfiguration

@@ -110,6 +110,8 @@  instance Hashable AbortMultipartUpload +instance NFData AbortMultipartUpload+ instance ToHeaders AbortMultipartUpload where         toHeaders AbortMultipartUpload'{..}           = mconcat ["x-amz-request-payer" =# _amuRequestPayer]@@ -151,3 +153,5 @@ -- | The response status code. amursResponseStatus :: Lens' AbortMultipartUploadResponse Int amursResponseStatus = lens _amursResponseStatus (\ s a -> s{_amursResponseStatus = a});++instance NFData AbortMultipartUploadResponse

@@ -131,6 +131,8 @@  instance Hashable CompleteMultipartUpload +instance NFData CompleteMultipartUpload+ instance ToElement CompleteMultipartUpload where         toElement           = mkElement@@ -247,3 +249,5 @@ -- | The response status code. crsResponseStatus :: Lens' CompleteMultipartUploadResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});++instance NFData CompleteMultipartUploadResponse

@@ -394,6 +394,8 @@  instance Hashable CopyObject +instance NFData CopyObject+ instance ToHeaders CopyObject where         toHeaders CopyObject'{..}           = mconcat@@ -546,3 +548,5 @@ -- | The response status code. corsResponseStatus :: Lens' CopyObjectResponse Int corsResponseStatus = lens _corsResponseStatus (\ s a -> s{_corsResponseStatus = a});++instance NFData CopyObjectResponse

@@ -140,6 +140,8 @@  instance Hashable CreateBucket +instance NFData CreateBucket+ instance ToElement CreateBucket where         toElement           = mkElement@@ -193,3 +195,5 @@ -- | The response status code. cbrsResponseStatus :: Lens' CreateBucketResponse Int cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a});++instance NFData CreateBucketResponse

@@ -312,6 +312,8 @@  instance Hashable CreateMultipartUpload +instance NFData CreateMultipartUpload+ instance ToHeaders CreateMultipartUpload where         toHeaders CreateMultipartUpload'{..}           = mconcat@@ -458,3 +460,5 @@ -- | The response status code. cmursResponseStatus :: Lens' CreateMultipartUploadResponse Int cmursResponseStatus = lens _cmursResponseStatus (\ s a -> s{_cmursResponseStatus = a});++instance NFData CreateMultipartUploadResponse

@@ -70,6 +70,8 @@  instance Hashable DeleteBucket +instance NFData DeleteBucket+ instance ToHeaders DeleteBucket where         toHeaders = const mempty @@ -90,3 +92,5 @@ deleteBucketResponse     :: DeleteBucketResponse deleteBucketResponse = DeleteBucketResponse'++instance NFData DeleteBucketResponse

@@ -68,6 +68,8 @@  instance Hashable DeleteBucketCORS +instance NFData DeleteBucketCORS+ instance ToHeaders DeleteBucketCORS where         toHeaders = const mempty @@ -88,3 +90,5 @@ deleteBucketCORSResponse     :: DeleteBucketCORSResponse deleteBucketCORSResponse = DeleteBucketCORSResponse'++instance NFData DeleteBucketCORSResponse

@@ -69,6 +69,8 @@  instance Hashable DeleteBucketLifecycle +instance NFData DeleteBucketLifecycle+ instance ToHeaders DeleteBucketLifecycle where         toHeaders = const mempty @@ -89,3 +91,5 @@ deleteBucketLifecycleResponse     :: DeleteBucketLifecycleResponse deleteBucketLifecycleResponse = DeleteBucketLifecycleResponse'++instance NFData DeleteBucketLifecycleResponse

@@ -69,6 +69,8 @@  instance Hashable DeleteBucketPolicy +instance NFData DeleteBucketPolicy+ instance ToHeaders DeleteBucketPolicy where         toHeaders = const mempty @@ -89,3 +91,5 @@ deleteBucketPolicyResponse     :: DeleteBucketPolicyResponse deleteBucketPolicyResponse = DeleteBucketPolicyResponse'++instance NFData DeleteBucketPolicyResponse

@@ -70,6 +70,8 @@  instance Hashable DeleteBucketReplication +instance NFData DeleteBucketReplication+ instance ToHeaders DeleteBucketReplication where         toHeaders = const mempty @@ -90,3 +92,5 @@ deleteBucketReplicationResponse     :: DeleteBucketReplicationResponse deleteBucketReplicationResponse = DeleteBucketReplicationResponse'++instance NFData DeleteBucketReplicationResponse

@@ -69,6 +69,8 @@  instance Hashable DeleteBucketTagging +instance NFData DeleteBucketTagging+ instance ToHeaders DeleteBucketTagging where         toHeaders = const mempty @@ -89,3 +91,5 @@ deleteBucketTaggingResponse     :: DeleteBucketTaggingResponse deleteBucketTaggingResponse = DeleteBucketTaggingResponse'++instance NFData DeleteBucketTaggingResponse

@@ -69,6 +69,8 @@  instance Hashable DeleteBucketWebsite +instance NFData DeleteBucketWebsite+ instance ToHeaders DeleteBucketWebsite where         toHeaders = const mempty @@ -89,3 +91,5 @@ deleteBucketWebsiteResponse     :: DeleteBucketWebsiteResponse deleteBucketWebsiteResponse = DeleteBucketWebsiteResponse'++instance NFData DeleteBucketWebsiteResponse

@@ -120,6 +120,8 @@  instance Hashable DeleteObject +instance NFData DeleteObject+ instance ToHeaders DeleteObject where         toHeaders DeleteObject'{..}           = mconcat@@ -181,3 +183,5 @@ -- | The response status code. dorsResponseStatus :: Lens' DeleteObjectResponse Int dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a});++instance NFData DeleteObjectResponse

@@ -110,6 +110,8 @@  instance Hashable DeleteObjects +instance NFData DeleteObjects+ instance ToElement DeleteObjects where         toElement           = mkElement@@ -175,3 +177,5 @@ -- | The response status code. drsResponseStatus :: Lens' DeleteObjectsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DeleteObjectsResponse

@@ -79,6 +79,8 @@  instance Hashable GetBucketACL +instance NFData GetBucketACL+ instance ToHeaders GetBucketACL where         toHeaders = const mempty @@ -126,3 +128,5 @@ -- | The response status code. gbarsResponseStatus :: Lens' GetBucketACLResponse Int gbarsResponseStatus = lens _gbarsResponseStatus (\ s a -> s{_gbarsResponseStatus = a});++instance NFData GetBucketACLResponse

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.S3.GetBucketAccelerateConfiguration+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the accelerate configuration of a bucket.+module Network.AWS.S3.GetBucketAccelerateConfiguration+    (+    -- * Creating a Request+      getBucketAccelerateConfiguration+    , GetBucketAccelerateConfiguration+    -- * Request Lenses+    , gbacBucket++    -- * Destructuring the Response+    , getBucketAccelerateConfigurationResponse+    , GetBucketAccelerateConfigurationResponse+    -- * Response Lenses+    , gbacrsStatus+    , gbacrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product++-- | /See:/ 'getBucketAccelerateConfiguration' smart constructor.+newtype GetBucketAccelerateConfiguration = GetBucketAccelerateConfiguration'+    { _gbacBucket :: BucketName+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetBucketAccelerateConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbacBucket'+getBucketAccelerateConfiguration+    :: BucketName -- ^ 'gbacBucket'+    -> GetBucketAccelerateConfiguration+getBucketAccelerateConfiguration pBucket_ =+    GetBucketAccelerateConfiguration'+    { _gbacBucket = pBucket_+    }++-- | Name of the bucket for which the accelerate configuration is retrieved.+gbacBucket :: Lens' GetBucketAccelerateConfiguration BucketName+gbacBucket = lens _gbacBucket (\ s a -> s{_gbacBucket = a});++instance AWSRequest GetBucketAccelerateConfiguration+         where+        type Rs GetBucketAccelerateConfiguration =+             GetBucketAccelerateConfigurationResponse+        request = get s3+        response+          = receiveXML+              (\ s h x ->+                 GetBucketAccelerateConfigurationResponse' <$>+                   (x .@? "Status") <*> (pure (fromEnum s)))++instance Hashable GetBucketAccelerateConfiguration++instance NFData GetBucketAccelerateConfiguration++instance ToHeaders GetBucketAccelerateConfiguration+         where+        toHeaders = const mempty++instance ToPath GetBucketAccelerateConfiguration+         where+        toPath GetBucketAccelerateConfiguration'{..}+          = mconcat ["/", toBS _gbacBucket]++instance ToQuery GetBucketAccelerateConfiguration+         where+        toQuery = const (mconcat ["accelerate"])++-- | /See:/ 'getBucketAccelerateConfigurationResponse' smart constructor.+data GetBucketAccelerateConfigurationResponse = GetBucketAccelerateConfigurationResponse'+    { _gbacrsStatus         :: !(Maybe BucketAccelerateStatus)+    , _gbacrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetBucketAccelerateConfigurationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbacrsStatus'+--+-- * 'gbacrsResponseStatus'+getBucketAccelerateConfigurationResponse+    :: Int -- ^ 'gbacrsResponseStatus'+    -> GetBucketAccelerateConfigurationResponse+getBucketAccelerateConfigurationResponse pResponseStatus_ =+    GetBucketAccelerateConfigurationResponse'+    { _gbacrsStatus = Nothing+    , _gbacrsResponseStatus = pResponseStatus_+    }++-- | The accelerate configuration of the bucket.+gbacrsStatus :: Lens' GetBucketAccelerateConfigurationResponse (Maybe BucketAccelerateStatus)+gbacrsStatus = lens _gbacrsStatus (\ s a -> s{_gbacrsStatus = a});++-- | The response status code.+gbacrsResponseStatus :: Lens' GetBucketAccelerateConfigurationResponse Int+gbacrsResponseStatus = lens _gbacrsResponseStatus (\ s a -> s{_gbacrsResponseStatus = a});++instance NFData+         GetBucketAccelerateConfigurationResponse

@@ -76,6 +76,8 @@  instance Hashable GetBucketCORS +instance NFData GetBucketCORS+ instance ToHeaders GetBucketCORS where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | The response status code. gbcrsResponseStatus :: Lens' GetBucketCORSResponse Int gbcrsResponseStatus = lens _gbcrsResponseStatus (\ s a -> s{_gbcrsResponseStatus = a});++instance NFData GetBucketCORSResponse

@@ -78,6 +78,8 @@  instance Hashable GetBucketLifecycleConfiguration +instance NFData GetBucketLifecycleConfiguration+ instance ToHeaders GetBucketLifecycleConfiguration          where         toHeaders = const mempty@@ -119,3 +121,6 @@ -- | The response status code. gblcrsResponseStatus :: Lens' GetBucketLifecycleConfigurationResponse Int gblcrsResponseStatus = lens _gblcrsResponseStatus (\ s a -> s{_gblcrsResponseStatus = a});++instance NFData+         GetBucketLifecycleConfigurationResponse

@@ -75,6 +75,8 @@  instance Hashable GetBucketLocation +instance NFData GetBucketLocation+ instance ToHeaders GetBucketLocation where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | Undocumented member. grsLocationConstraint :: Lens' GetBucketLocationResponse LocationConstraint grsLocationConstraint = lens _grsLocationConstraint (\ s a -> s{_grsLocationConstraint = a});++instance NFData GetBucketLocationResponse

@@ -76,6 +76,8 @@  instance Hashable GetBucketLogging +instance NFData GetBucketLogging+ instance ToHeaders GetBucketLogging where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | The response status code. gblrsResponseStatus :: Lens' GetBucketLoggingResponse Int gblrsResponseStatus = lens _gblrsResponseStatus (\ s a -> s{_gblrsResponseStatus = a});++instance NFData GetBucketLoggingResponse

@@ -74,6 +74,8 @@  instance Hashable GetBucketNotificationConfiguration +instance NFData GetBucketNotificationConfiguration+ instance ToHeaders GetBucketNotificationConfiguration          where         toHeaders = const mempty

@@ -75,6 +75,8 @@  instance Hashable GetBucketPolicy +instance NFData GetBucketPolicy+ instance ToHeaders GetBucketPolicy where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | The bucket policy as a JSON document. gbprsPolicy :: Lens' GetBucketPolicyResponse (HashMap Text Value) gbprsPolicy = lens _gbprsPolicy (\ s a -> s{_gbprsPolicy = a});++instance NFData GetBucketPolicyResponse

@@ -76,6 +76,8 @@  instance Hashable GetBucketReplication +instance NFData GetBucketReplication+ instance ToHeaders GetBucketReplication where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | The response status code. gbrrsResponseStatus :: Lens' GetBucketReplicationResponse Int gbrrsResponseStatus = lens _gbrrsResponseStatus (\ s a -> s{_gbrrsResponseStatus = a});++instance NFData GetBucketReplicationResponse

@@ -76,6 +76,8 @@  instance Hashable GetBucketRequestPayment +instance NFData GetBucketRequestPayment+ instance ToHeaders GetBucketRequestPayment where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | The response status code. gbrprsResponseStatus :: Lens' GetBucketRequestPaymentResponse Int gbrprsResponseStatus = lens _gbrprsResponseStatus (\ s a -> s{_gbrprsResponseStatus = a});++instance NFData GetBucketRequestPaymentResponse

@@ -76,6 +76,8 @@  instance Hashable GetBucketTagging +instance NFData GetBucketTagging+ instance ToHeaders GetBucketTagging where         toHeaders = const mempty @@ -115,3 +117,5 @@ -- | Undocumented member. gbtrsTagSet :: Lens' GetBucketTaggingResponse [Tag] gbtrsTagSet = lens _gbtrsTagSet (\ s a -> s{_gbtrsTagSet = a}) . _Coerce;++instance NFData GetBucketTaggingResponse

@@ -78,6 +78,8 @@  instance Hashable GetBucketVersioning +instance NFData GetBucketVersioning+ instance ToHeaders GetBucketVersioning where         toHeaders = const mempty @@ -128,3 +130,5 @@ -- | The response status code. gbvrsResponseStatus :: Lens' GetBucketVersioningResponse Int gbvrsResponseStatus = lens _gbvrsResponseStatus (\ s a -> s{_gbvrsResponseStatus = a});++instance NFData GetBucketVersioningResponse

@@ -84,6 +84,8 @@  instance Hashable GetBucketWebsite +instance NFData GetBucketWebsite+ instance ToHeaders GetBucketWebsite where         toHeaders = const mempty @@ -147,3 +149,5 @@ -- | The response status code. gbwrsResponseStatus :: Lens' GetBucketWebsiteResponse Int gbwrsResponseStatus = lens _gbwrsResponseStatus (\ s a -> s{_gbwrsResponseStatus = a});++instance NFData GetBucketWebsiteResponse

@@ -297,6 +297,8 @@  instance Hashable GetObject +instance NFData GetObject+ instance ToHeaders GetObject where         toHeaders GetObject'{..}           = mconcat

@@ -109,6 +109,8 @@  instance Hashable GetObjectACL +instance NFData GetObjectACL+ instance ToHeaders GetObjectACL where         toHeaders GetObjectACL'{..}           = mconcat ["x-amz-request-payer" =# _goaRequestPayer]@@ -166,3 +168,5 @@ -- | The response status code. goarsResponseStatus :: Lens' GetObjectACLResponse Int goarsResponseStatus = lens _goarsResponseStatus (\ s a -> s{_goarsResponseStatus = a});++instance NFData GetObjectACLResponse

@@ -97,6 +97,8 @@  instance Hashable GetObjectTorrent +instance NFData GetObjectTorrent+ instance ToHeaders GetObjectTorrent where         toHeaders GetObjectTorrent'{..}           = mconcat ["x-amz-request-payer" =# _gotRequestPayer]

@@ -69,6 +69,8 @@  instance Hashable HeadBucket +instance NFData HeadBucket+ instance ToHeaders HeadBucket where         toHeaders = const mempty @@ -89,3 +91,5 @@ headBucketResponse     :: HeadBucketResponse headBucketResponse = HeadBucketResponse'++instance NFData HeadBucketResponse

@@ -242,6 +242,8 @@  instance Hashable HeadObject +instance NFData HeadObject+ instance ToHeaders HeadObject where         toHeaders HeadObject'{..}           = mconcat@@ -500,3 +502,5 @@ -- | The response status code. horsResponseStatus :: Lens' HeadObjectResponse Int horsResponseStatus = lens _horsResponseStatus (\ s a -> s{_horsResponseStatus = a});++instance NFData HeadObjectResponse

@@ -67,6 +67,8 @@  instance Hashable ListBuckets +instance NFData ListBuckets+ instance ToHeaders ListBuckets where         toHeaders = const mempty @@ -113,3 +115,5 @@ -- | The response status code. lbrsResponseStatus :: Lens' ListBucketsResponse Int lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a});++instance NFData ListBucketsResponse

@@ -171,6 +171,8 @@  instance Hashable ListMultipartUploads +instance NFData ListMultipartUploads+ instance ToHeaders ListMultipartUploads where         toHeaders = const mempty @@ -314,3 +316,5 @@ -- | The response status code. lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a});++instance NFData ListMultipartUploadsResponse

@@ -169,6 +169,8 @@  instance Hashable ListObjectVersions +instance NFData ListObjectVersions+ instance ToHeaders ListObjectVersions where         toHeaders = const mempty @@ -317,3 +319,5 @@ -- | The response status code. lovrsResponseStatus :: Lens' ListObjectVersionsResponse Int lovrsResponseStatus = lens _lovrsResponseStatus (\ s a -> s{_lovrsResponseStatus = a});++instance NFData ListObjectVersionsResponse

@@ -160,6 +160,8 @@  instance Hashable ListObjects +instance NFData ListObjects+ instance ToHeaders ListObjects where         toHeaders = const mempty @@ -284,3 +286,5 @@ -- | The response status code. lorsResponseStatus :: Lens' ListObjectsResponse Int lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a});++instance NFData ListObjectsResponse

@@ -162,6 +162,8 @@  instance Hashable ListParts +instance NFData ListParts+ instance ToHeaders ListParts where         toHeaders ListParts'{..}           = mconcat ["x-amz-request-payer" =# _lpRequestPayer]@@ -314,3 +316,5 @@ -- | The response status code. lprsResponseStatus :: Lens' ListPartsResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});++instance NFData ListPartsResponse

@@ -142,6 +142,8 @@  instance Hashable PutBucketACL +instance NFData PutBucketACL+ instance ToElement PutBucketACL where         toElement           = mkElement@@ -177,3 +179,5 @@ putBucketACLResponse     :: PutBucketACLResponse putBucketACLResponse = PutBucketACLResponse'++instance NFData PutBucketACLResponse

@@ -0,0 +1,121 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.S3.PutBucketAccelerateConfiguration+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the accelerate configuration of an existing bucket.+module Network.AWS.S3.PutBucketAccelerateConfiguration+    (+    -- * Creating a Request+      putBucketAccelerateConfiguration+    , PutBucketAccelerateConfiguration+    -- * Request Lenses+    , pbacBucket+    , pbacAccelerateConfiguration++    -- * Destructuring the Response+    , putBucketAccelerateConfigurationResponse+    , PutBucketAccelerateConfigurationResponse+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product++-- | /See:/ 'putBucketAccelerateConfiguration' smart constructor.+data PutBucketAccelerateConfiguration = PutBucketAccelerateConfiguration'+    { _pbacBucket                  :: !BucketName+    , _pbacAccelerateConfiguration :: !AccelerateConfiguration+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PutBucketAccelerateConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pbacBucket'+--+-- * 'pbacAccelerateConfiguration'+putBucketAccelerateConfiguration+    :: BucketName -- ^ 'pbacBucket'+    -> AccelerateConfiguration -- ^ 'pbacAccelerateConfiguration'+    -> PutBucketAccelerateConfiguration+putBucketAccelerateConfiguration pBucket_ pAccelerateConfiguration_ =+    PutBucketAccelerateConfiguration'+    { _pbacBucket = pBucket_+    , _pbacAccelerateConfiguration = pAccelerateConfiguration_+    }++-- | Name of the bucket for which the accelerate configuration is set.+pbacBucket :: Lens' PutBucketAccelerateConfiguration BucketName+pbacBucket = lens _pbacBucket (\ s a -> s{_pbacBucket = a});++-- | Specifies the Accelerate Configuration you want to set for the bucket.+pbacAccelerateConfiguration :: Lens' PutBucketAccelerateConfiguration AccelerateConfiguration+pbacAccelerateConfiguration = lens _pbacAccelerateConfiguration (\ s a -> s{_pbacAccelerateConfiguration = a});++instance AWSRequest PutBucketAccelerateConfiguration+         where+        type Rs PutBucketAccelerateConfiguration =+             PutBucketAccelerateConfigurationResponse+        request = putXML s3+        response+          = receiveNull+              PutBucketAccelerateConfigurationResponse'++instance Hashable PutBucketAccelerateConfiguration++instance NFData PutBucketAccelerateConfiguration++instance ToElement PutBucketAccelerateConfiguration+         where+        toElement+          = mkElement+              "{http://s3.amazonaws.com/doc/2006-03-01/}AccelerateConfiguration"+              .+              _pbacAccelerateConfiguration++instance ToHeaders PutBucketAccelerateConfiguration+         where+        toHeaders = const mempty++instance ToPath PutBucketAccelerateConfiguration+         where+        toPath PutBucketAccelerateConfiguration'{..}+          = mconcat ["/", toBS _pbacBucket]++instance ToQuery PutBucketAccelerateConfiguration+         where+        toQuery = const (mconcat ["accelerate"])++-- | /See:/ 'putBucketAccelerateConfigurationResponse' smart constructor.+data PutBucketAccelerateConfigurationResponse =+    PutBucketAccelerateConfigurationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PutBucketAccelerateConfigurationResponse' with the minimum fields required to make a request.+--+putBucketAccelerateConfigurationResponse+    :: PutBucketAccelerateConfigurationResponse+putBucketAccelerateConfigurationResponse =+    PutBucketAccelerateConfigurationResponse'++instance NFData+         PutBucketAccelerateConfigurationResponse

@@ -87,6 +87,8 @@  instance Hashable PutBucketCORS +instance NFData PutBucketCORS+ instance ToElement PutBucketCORS where         toElement           = mkElement@@ -115,3 +117,5 @@ putBucketCORSResponse     :: PutBucketCORSResponse putBucketCORSResponse = PutBucketCORSResponse'++instance NFData PutBucketCORSResponse

@@ -82,6 +82,8 @@  instance Hashable PutBucketLifecycleConfiguration +instance NFData PutBucketLifecycleConfiguration+ instance ToElement PutBucketLifecycleConfiguration          where         toElement@@ -113,3 +115,6 @@     :: PutBucketLifecycleConfigurationResponse putBucketLifecycleConfigurationResponse =     PutBucketLifecycleConfigurationResponse'++instance NFData+         PutBucketLifecycleConfigurationResponse

@@ -89,6 +89,8 @@  instance Hashable PutBucketLogging +instance NFData PutBucketLogging+ instance ToElement PutBucketLogging where         toElement           = mkElement@@ -117,3 +119,5 @@ putBucketLoggingResponse     :: PutBucketLoggingResponse putBucketLoggingResponse = PutBucketLoggingResponse'++instance NFData PutBucketLoggingResponse

@@ -82,6 +82,8 @@  instance Hashable PutBucketNotificationConfiguration +instance NFData PutBucketNotificationConfiguration+ instance ToElement PutBucketNotificationConfiguration          where         toElement@@ -114,3 +116,6 @@     :: PutBucketNotificationConfigurationResponse putBucketNotificationConfigurationResponse =     PutBucketNotificationConfigurationResponse'++instance NFData+         PutBucketNotificationConfigurationResponse

@@ -88,6 +88,8 @@  instance Hashable PutBucketPolicy +instance NFData PutBucketPolicy+ instance ToBody PutBucketPolicy where         toBody = toBody . _pbpPolicy @@ -112,3 +114,5 @@ putBucketPolicyResponse     :: PutBucketPolicyResponse putBucketPolicyResponse = PutBucketPolicyResponse'++instance NFData PutBucketPolicyResponse

@@ -89,6 +89,8 @@  instance Hashable PutBucketReplication +instance NFData PutBucketReplication+ instance ToElement PutBucketReplication where         toElement           = mkElement@@ -117,3 +119,5 @@ putBucketReplicationResponse     :: PutBucketReplicationResponse putBucketReplicationResponse = PutBucketReplicationResponse'++instance NFData PutBucketReplicationResponse

@@ -94,6 +94,8 @@  instance Hashable PutBucketRequestPayment +instance NFData PutBucketRequestPayment+ instance ToElement PutBucketRequestPayment where         toElement           = mkElement@@ -122,3 +124,5 @@ putBucketRequestPaymentResponse     :: PutBucketRequestPaymentResponse putBucketRequestPaymentResponse = PutBucketRequestPaymentResponse'++instance NFData PutBucketRequestPaymentResponse

@@ -87,6 +87,8 @@  instance Hashable PutBucketTagging +instance NFData PutBucketTagging+ instance ToElement PutBucketTagging where         toElement           = mkElement@@ -115,3 +117,5 @@ putBucketTaggingResponse     :: PutBucketTaggingResponse putBucketTaggingResponse = PutBucketTaggingResponse'++instance NFData PutBucketTaggingResponse

@@ -99,6 +99,8 @@  instance Hashable PutBucketVersioning +instance NFData PutBucketVersioning+ instance ToElement PutBucketVersioning where         toElement           = mkElement@@ -129,3 +131,5 @@ putBucketVersioningResponse     :: PutBucketVersioningResponse putBucketVersioningResponse = PutBucketVersioningResponse'++instance NFData PutBucketVersioningResponse

@@ -87,6 +87,8 @@  instance Hashable PutBucketWebsite +instance NFData PutBucketWebsite+ instance ToElement PutBucketWebsite where         toElement           = mkElement@@ -115,3 +117,5 @@ putBucketWebsiteResponse     :: PutBucketWebsiteResponse putBucketWebsiteResponse = PutBucketWebsiteResponse'++instance NFData PutBucketWebsiteResponse

@@ -463,3 +463,5 @@ -- | The response status code. porsResponseStatus :: Lens' PutObjectResponse Int porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a});++instance NFData PutObjectResponse

@@ -26,6 +26,7 @@       putObjectACL     , PutObjectACL     -- * Request Lenses+    , poaVersionId     , poaGrantReadACP     , poaRequestPayer     , poaGrantWriteACP@@ -55,7 +56,8 @@  -- | /See:/ 'putObjectACL' smart constructor. data PutObjectACL = PutObjectACL'-    { _poaGrantReadACP        :: !(Maybe Text)+    { _poaVersionId           :: !(Maybe ObjectVersionId)+    , _poaGrantReadACP        :: !(Maybe Text)     , _poaRequestPayer        :: !(Maybe RequestPayer)     , _poaGrantWriteACP       :: !(Maybe Text)     , _poaGrantRead           :: !(Maybe Text)@@ -72,6 +74,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'poaVersionId'+-- -- * 'poaGrantReadACP' -- -- * 'poaRequestPayer'@@ -99,7 +103,8 @@     -> PutObjectACL putObjectACL pBucket_ pKey_ =     PutObjectACL'-    { _poaGrantReadACP = Nothing+    { _poaVersionId = Nothing+    , _poaGrantReadACP = Nothing     , _poaRequestPayer = Nothing     , _poaGrantWriteACP = Nothing     , _poaGrantRead = Nothing@@ -112,6 +117,10 @@     , _poaKey = pKey_     } +-- | VersionId used to reference a specific version of the object.+poaVersionId :: Lens' PutObjectACL (Maybe ObjectVersionId)+poaVersionId = lens _poaVersionId (\ s a -> s{_poaVersionId = a});+ -- | Allows grantee to read the bucket ACL. poaGrantReadACP :: Lens' PutObjectACL (Maybe Text) poaGrantReadACP = lens _poaGrantReadACP (\ s a -> s{_poaGrantReadACP = a});@@ -170,6 +179,8 @@  instance Hashable PutObjectACL +instance NFData PutObjectACL+ instance ToElement PutObjectACL where         toElement           = mkElement@@ -194,7 +205,8 @@           = mconcat ["/", toBS _poaBucket, "/", toBS _poaKey]  instance ToQuery PutObjectACL where-        toQuery = const (mconcat ["acl"])+        toQuery PutObjectACL'{..}+          = mconcat ["versionId" =: _poaVersionId, "acl"]  -- | /See:/ 'putObjectACLResponse' smart constructor. data PutObjectACLResponse = PutObjectACLResponse'@@ -225,3 +237,5 @@ -- | The response status code. poarsResponseStatus :: Lens' PutObjectACLResponse Int poarsResponseStatus = lens _poarsResponseStatus (\ s a -> s{_poarsResponseStatus = a});++instance NFData PutObjectACLResponse

@@ -113,6 +113,8 @@  instance Hashable RestoreObject +instance NFData RestoreObject+ instance ToElement RestoreObject where         toElement           = mkElement@@ -161,3 +163,5 @@ -- | The response status code. rorsResponseStatus :: Lens' RestoreObjectResponse Int rorsResponseStatus = lens _rorsResponseStatus (\ s a -> s{_rorsResponseStatus = a});++instance NFData RestoreObjectResponse

@@ -27,6 +27,9 @@     -- * Re-exported Types     , module Network.AWS.S3.Internal +    -- * BucketAccelerateStatus+    , BucketAccelerateStatus (..)+     -- * BucketCannedACL     , BucketCannedACL (..) @@ -104,6 +107,11 @@     , abortIncompleteMultipartUpload     , aimuDaysAfterInitiation +    -- * AccelerateConfiguration+    , AccelerateConfiguration+    , accelerateConfiguration+    , acStatus+     -- * AccessControlPolicy     , AccessControlPolicy     , accessControlPolicy@@ -501,7 +509,9 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasCode "BadDigest" . hasStatus 400) e = Just "contentmd5"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasCode "RequestTimeout" . hasStatus 400) e = Just "timeouts"       | has (hasStatus 500) e = Just "general_server_error"

@@ -55,11 +55,42 @@  instance Hashable AbortIncompleteMultipartUpload +instance NFData AbortIncompleteMultipartUpload+ instance ToXML AbortIncompleteMultipartUpload where         toXML AbortIncompleteMultipartUpload'{..}           = mconcat               ["DaysAfterInitiation" @= _aimuDaysAfterInitiation] +-- | /See:/ 'accelerateConfiguration' smart constructor.+newtype AccelerateConfiguration = AccelerateConfiguration'+    { _acStatus :: Maybe BucketAccelerateStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AccelerateConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acStatus'+accelerateConfiguration+    :: AccelerateConfiguration+accelerateConfiguration =+    AccelerateConfiguration'+    { _acStatus = Nothing+    }++-- | The accelerate configuration of the bucket.+acStatus :: Lens' AccelerateConfiguration (Maybe BucketAccelerateStatus)+acStatus = lens _acStatus (\ s a -> s{_acStatus = a});++instance Hashable AccelerateConfiguration++instance NFData AccelerateConfiguration++instance ToXML AccelerateConfiguration where+        toXML AccelerateConfiguration'{..}+          = mconcat ["Status" @= _acStatus]+ -- | /See:/ 'accessControlPolicy' smart constructor. data AccessControlPolicy = AccessControlPolicy'     { _acpGrants :: !(Maybe [Grant])@@ -91,6 +122,8 @@  instance Hashable AccessControlPolicy +instance NFData AccessControlPolicy+ instance ToXML AccessControlPolicy where         toXML AccessControlPolicy'{..}           = mconcat@@ -135,6 +168,8 @@  instance Hashable Bucket +instance NFData Bucket+ -- | /See:/ 'bucketLifecycleConfiguration' smart constructor. newtype BucketLifecycleConfiguration = BucketLifecycleConfiguration'     { _blcRules :: [LifecycleRule]@@ -158,6 +193,8 @@  instance Hashable BucketLifecycleConfiguration +instance NFData BucketLifecycleConfiguration+ instance ToXML BucketLifecycleConfiguration where         toXML BucketLifecycleConfiguration'{..}           = mconcat [toXMLList "Rule" _blcRules]@@ -185,6 +222,8 @@  instance Hashable BucketLoggingStatus +instance NFData BucketLoggingStatus+ instance ToXML BucketLoggingStatus where         toXML BucketLoggingStatus'{..}           = mconcat ["LoggingEnabled" @= _blsLoggingEnabled]@@ -212,6 +251,8 @@  instance Hashable CORSConfiguration +instance NFData CORSConfiguration+ instance ToXML CORSConfiguration where         toXML CORSConfiguration'{..}           = mconcat [toXMLList "CORSRule" _ccCORSRules]@@ -285,6 +326,8 @@  instance Hashable CORSRule +instance NFData CORSRule+ instance ToXML CORSRule where         toXML CORSRule'{..}           = mconcat@@ -322,6 +365,8 @@  instance Hashable CommonPrefix +instance NFData CommonPrefix+ -- | /See:/ 'completedMultipartUpload' smart constructor. newtype CompletedMultipartUpload = CompletedMultipartUpload'     { _cmuParts :: Maybe (List1 CompletedPart)@@ -345,6 +390,8 @@  instance Hashable CompletedMultipartUpload +instance NFData CompletedMultipartUpload+ instance ToXML CompletedMultipartUpload where         toXML CompletedMultipartUpload'{..}           = mconcat [toXML (toXMLList "Part" <$> _cmuParts)]@@ -383,6 +430,8 @@  instance Hashable CompletedPart +instance NFData CompletedPart+ instance ToXML CompletedPart where         toXML CompletedPart'{..}           = mconcat@@ -436,6 +485,8 @@  instance Hashable Condition +instance NFData Condition+ instance ToXML Condition where         toXML Condition'{..}           = mconcat@@ -479,6 +530,8 @@  instance Hashable CopyObjectResult +instance NFData CopyObjectResult+ -- | /See:/ 'copyPartResult' smart constructor. data CopyPartResult = CopyPartResult'     { _cprETag         :: !(Maybe ETag)@@ -515,6 +568,8 @@  instance Hashable CopyPartResult +instance NFData CopyPartResult+ -- | /See:/ 'createBucketConfiguration' smart constructor. newtype CreateBucketConfiguration = CreateBucketConfiguration'     { _cbcLocationConstraint :: Maybe LocationConstraint@@ -539,6 +594,8 @@  instance Hashable CreateBucketConfiguration +instance NFData CreateBucketConfiguration+ instance ToXML CreateBucketConfiguration where         toXML CreateBucketConfiguration'{..}           = mconcat@@ -576,6 +633,8 @@  instance Hashable Delete +instance NFData Delete+ instance ToXML Delete where         toXML Delete'{..}           = mconcat@@ -645,6 +704,8 @@  instance Hashable DeleteMarkerEntry +instance NFData DeleteMarkerEntry+ -- | /See:/ 'deletedObject' smart constructor. data DeletedObject = DeletedObject'     { _dVersionId             :: !(Maybe ObjectVersionId)@@ -699,6 +760,8 @@  instance Hashable DeletedObject +instance NFData DeletedObject+ -- | /See:/ 'destination' smart constructor. data Destination = Destination'     { _dStorageClass :: !(Maybe StorageClass)@@ -737,6 +800,8 @@  instance Hashable Destination +instance NFData Destination+ instance ToXML Destination where         toXML Destination'{..}           = mconcat@@ -770,6 +835,8 @@  instance Hashable ErrorDocument +instance NFData ErrorDocument+ instance ToXML ErrorDocument where         toXML ErrorDocument'{..} = mconcat ["Key" @= _edKey] @@ -816,6 +883,8 @@  instance Hashable FilterRule +instance NFData FilterRule+ instance ToXML FilterRule where         toXML FilterRule'{..}           = mconcat ["Value" @= _frValue, "Name" @= _frName]@@ -856,6 +925,8 @@  instance Hashable Grant +instance NFData Grant+ instance ToXML Grant where         toXML Grant'{..}           = mconcat@@ -926,6 +997,8 @@  instance Hashable Grantee +instance NFData Grantee+ instance ToXML Grantee where         toXML Grantee'{..}           = mconcat@@ -964,6 +1037,8 @@  instance Hashable IndexDocument +instance NFData IndexDocument+ instance ToXML IndexDocument where         toXML IndexDocument'{..}           = mconcat ["Suffix" @= _idSuffix]@@ -1005,6 +1080,8 @@  instance Hashable Initiator +instance NFData Initiator+ -- | Container for specifying the AWS Lambda notification configuration. -- -- /See:/ 'lambdaFunctionConfiguration' smart constructor.@@ -1063,6 +1140,8 @@  instance Hashable LambdaFunctionConfiguration +instance NFData LambdaFunctionConfiguration+ instance ToXML LambdaFunctionConfiguration where         toXML LambdaFunctionConfiguration'{..}           = mconcat@@ -1120,6 +1199,8 @@  instance Hashable LifecycleExpiration +instance NFData LifecycleExpiration+ instance ToXML LifecycleExpiration where         toXML LifecycleExpiration'{..}           = mconcat@@ -1223,6 +1304,8 @@  instance Hashable LifecycleRule +instance NFData LifecycleRule+ instance ToXML LifecycleRule where         toXML LifecycleRule'{..}           = mconcat@@ -1290,6 +1373,8 @@  instance Hashable LoggingEnabled +instance NFData LoggingEnabled+ instance ToXML LoggingEnabled where         toXML LoggingEnabled'{..}           = mconcat@@ -1370,6 +1455,8 @@  instance Hashable MultipartUpload +instance NFData MultipartUpload+ -- | Specifies when noncurrent object versions expire. Upon expiration, -- Amazon S3 permanently deletes the noncurrent object versions. You set -- this lifecycle configuration action on a bucket that has versioning@@ -1409,6 +1496,8 @@  instance Hashable NoncurrentVersionExpiration +instance NFData NoncurrentVersionExpiration+ instance ToXML NoncurrentVersionExpiration where         toXML NoncurrentVersionExpiration'{..}           = mconcat ["NoncurrentDays" @= _nveNoncurrentDays]@@ -1462,6 +1551,8 @@  instance Hashable NoncurrentVersionTransition +instance NFData NoncurrentVersionTransition+ instance ToXML NoncurrentVersionTransition where         toXML NoncurrentVersionTransition'{..}           = mconcat@@ -1518,6 +1609,8 @@  instance Hashable NotificationConfiguration +instance NFData NotificationConfiguration+ instance ToXML NotificationConfiguration where         toXML NotificationConfiguration'{..}           = mconcat@@ -1565,6 +1658,8 @@  instance Hashable NotificationConfigurationFilter +instance NFData NotificationConfigurationFilter+ instance ToXML NotificationConfigurationFilter where         toXML NotificationConfigurationFilter'{..}           = mconcat ["S3Key" @= _ncfKey]@@ -1645,6 +1740,8 @@  instance Hashable Object +instance NFData Object+ -- | /See:/ 'objectIdentifier' smart constructor. data ObjectIdentifier = ObjectIdentifier'     { _oiVersionId :: !(Maybe ObjectVersionId)@@ -1677,6 +1774,8 @@  instance Hashable ObjectIdentifier +instance NFData ObjectIdentifier+ instance ToXML ObjectIdentifier where         toXML ObjectIdentifier'{..}           = mconcat@@ -1773,6 +1872,8 @@  instance Hashable ObjectVersion +instance NFData ObjectVersion+ -- | /See:/ 'owner' smart constructor. data Owner = Owner'     { _oDisplayName :: !(Maybe Text)@@ -1808,6 +1909,8 @@  instance Hashable Owner +instance NFData Owner+ instance ToXML Owner where         toXML Owner'{..}           = mconcat@@ -1868,6 +1971,8 @@  instance Hashable Part +instance NFData Part+ -- | Container for specifying an configuration when you want Amazon S3 to -- publish events to an Amazon Simple Queue Service (Amazon SQS) queue. --@@ -1926,6 +2031,8 @@  instance Hashable QueueConfiguration +instance NFData QueueConfiguration+ instance ToXML QueueConfiguration where         toXML QueueConfiguration'{..}           = mconcat@@ -2004,6 +2111,8 @@  instance Hashable Redirect +instance NFData Redirect+ instance ToXML Redirect where         toXML Redirect'{..}           = mconcat@@ -2050,6 +2159,8 @@  instance Hashable RedirectAllRequestsTo +instance NFData RedirectAllRequestsTo+ instance ToXML RedirectAllRequestsTo where         toXML RedirectAllRequestsTo'{..}           = mconcat@@ -2099,6 +2210,8 @@  instance Hashable ReplicationConfiguration +instance NFData ReplicationConfiguration+ instance ToXML ReplicationConfiguration where         toXML ReplicationConfiguration'{..}           = mconcat@@ -2163,6 +2276,8 @@  instance Hashable ReplicationRule +instance NFData ReplicationRule+ instance ToXML ReplicationRule where         toXML ReplicationRule'{..}           = mconcat@@ -2194,6 +2309,8 @@  instance Hashable RequestPaymentConfiguration +instance NFData RequestPaymentConfiguration+ instance ToXML RequestPaymentConfiguration where         toXML RequestPaymentConfiguration'{..}           = mconcat ["Payer" @= _rpcPayer]@@ -2222,6 +2339,8 @@  instance Hashable RestoreRequest +instance NFData RestoreRequest+ instance ToXML RestoreRequest where         toXML RestoreRequest'{..}           = mconcat ["Days" @= _rrDays]@@ -2269,6 +2388,8 @@  instance Hashable RoutingRule +instance NFData RoutingRule+ instance ToXML RoutingRule where         toXML RoutingRule'{..}           = mconcat@@ -2305,6 +2426,8 @@  instance Hashable S3KeyFilter +instance NFData S3KeyFilter+ instance ToXML S3KeyFilter where         toXML S3KeyFilter'{..}           = mconcat@@ -2364,6 +2487,8 @@  instance Hashable S3ServiceError +instance NFData S3ServiceError+ -- | /See:/ 'tag' smart constructor. data Tag = Tag'     { _tagKey   :: !ObjectKey@@ -2400,6 +2525,8 @@  instance Hashable Tag +instance NFData Tag+ instance ToXML Tag where         toXML Tag'{..}           = mconcat ["Key" @= _tagKey, "Value" @= _tagValue]@@ -2427,6 +2554,8 @@  instance Hashable Tagging +instance NFData Tagging+ instance ToXML Tagging where         toXML Tagging'{..}           = mconcat ["TagSet" @= toXMLList "Tag" _tTagSet]@@ -2467,6 +2596,8 @@  instance Hashable TargetGrant +instance NFData TargetGrant+ instance ToXML TargetGrant where         toXML TargetGrant'{..}           = mconcat@@ -2532,6 +2663,8 @@  instance Hashable TopicConfiguration +instance NFData TopicConfiguration+ instance ToXML TopicConfiguration where         toXML TopicConfiguration'{..}           = mconcat@@ -2585,6 +2718,8 @@  instance Hashable Transition +instance NFData Transition+ instance ToXML Transition where         toXML Transition'{..}           = mconcat@@ -2625,6 +2760,8 @@  instance Hashable VersioningConfiguration +instance NFData VersioningConfiguration+ instance ToXML VersioningConfiguration where         toXML VersioningConfiguration'{..}           = mconcat@@ -2676,6 +2813,8 @@ wcRoutingRules = lens _wcRoutingRules (\ s a -> s{_wcRoutingRules = a}) . _Default . _Coerce;  instance Hashable WebsiteConfiguration++instance NFData WebsiteConfiguration  instance ToXML WebsiteConfiguration where         toXML WebsiteConfiguration'{..}

@@ -20,6 +20,35 @@ import           Network.AWS.Prelude import           Network.AWS.S3.Internal +data BucketAccelerateStatus+    = BASEnabled+    | BASSuspended+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText BucketAccelerateStatus where+    parser = takeLowerText >>= \case+        "enabled" -> pure BASEnabled+        "suspended" -> pure BASSuspended+        e -> fromTextError $ "Failure parsing BucketAccelerateStatus from value: '" <> e+           <> "'. Accepted values: Enabled, Suspended"++instance ToText BucketAccelerateStatus where+    toText = \case+        BASEnabled -> "Enabled"+        BASSuspended -> "Suspended"++instance Hashable     BucketAccelerateStatus+instance NFData       BucketAccelerateStatus+instance ToByteString BucketAccelerateStatus+instance ToQuery      BucketAccelerateStatus+instance ToHeader     BucketAccelerateStatus++instance FromXML BucketAccelerateStatus where+    parseXML = parseXMLText "BucketAccelerateStatus"++instance ToXML BucketAccelerateStatus where+    toXML = toXMLText+ data BucketCannedACL     = BAuthenticatedRead     | BPrivate@@ -44,6 +73,7 @@         BPublicReadWrite -> "public-read-write"  instance Hashable     BucketCannedACL+instance NFData       BucketCannedACL instance ToByteString BucketCannedACL instance ToQuery      BucketCannedACL instance ToHeader     BucketCannedACL@@ -72,6 +102,7 @@         Write -> "WRITE"  instance Hashable     BucketLogsPermission+instance NFData       BucketLogsPermission instance ToByteString BucketLogsPermission instance ToQuery      BucketLogsPermission instance ToHeader     BucketLogsPermission@@ -100,6 +131,7 @@         BVSSuspended -> "Suspended"  instance Hashable     BucketVersioningStatus+instance NFData       BucketVersioningStatus instance ToByteString BucketVersioningStatus instance ToQuery      BucketVersioningStatus instance ToHeader     BucketVersioningStatus@@ -131,6 +163,7 @@         URL -> "url"  instance Hashable     EncodingType+instance NFData       EncodingType instance ToByteString EncodingType instance ToQuery      EncodingType instance ToHeader     EncodingType@@ -181,6 +214,7 @@         S3ReducedRedundancyLostObject -> "s3:ReducedRedundancyLostObject"  instance Hashable     Event+instance NFData       Event instance ToByteString Event instance ToQuery      Event instance ToHeader     Event@@ -209,6 +243,7 @@         ESEnabled -> "Enabled"  instance Hashable     ExpirationStatus+instance NFData       ExpirationStatus instance ToByteString ExpirationStatus instance ToQuery      ExpirationStatus instance ToHeader     ExpirationStatus@@ -237,6 +272,7 @@         Suffix -> "suffix"  instance Hashable     FilterRuleName+instance NFData       FilterRuleName instance ToByteString FilterRuleName instance ToQuery      FilterRuleName instance ToHeader     FilterRuleName@@ -265,6 +301,7 @@         MDEnabled -> "Enabled"  instance Hashable     MFADelete+instance NFData       MFADelete instance ToByteString MFADelete instance ToQuery      MFADelete instance ToHeader     MFADelete@@ -290,6 +327,7 @@         MDSEnabled -> "Enabled"  instance Hashable     MFADeleteStatus+instance NFData       MFADeleteStatus instance ToByteString MFADeleteStatus instance ToQuery      MFADeleteStatus instance ToHeader     MFADeleteStatus@@ -315,6 +353,7 @@         Replace -> "REPLACE"  instance Hashable     MetadataDirective+instance NFData       MetadataDirective instance ToByteString MetadataDirective instance ToQuery      MetadataDirective instance ToHeader     MetadataDirective@@ -355,6 +394,7 @@         OPublicReadWrite -> "public-read-write"  instance Hashable     ObjectCannedACL+instance NFData       ObjectCannedACL instance ToByteString ObjectCannedACL instance ToQuery      ObjectCannedACL instance ToHeader     ObjectCannedACL@@ -386,6 +426,7 @@         OSCStandardIA -> "STANDARD_IA"  instance Hashable     ObjectStorageClass+instance NFData       ObjectStorageClass instance ToByteString ObjectStorageClass instance ToQuery      ObjectStorageClass instance ToHeader     ObjectStorageClass@@ -408,6 +449,7 @@         OVSCStandard -> "STANDARD"  instance Hashable     ObjectVersionStorageClass+instance NFData       ObjectVersionStorageClass instance ToByteString ObjectVersionStorageClass instance ToQuery      ObjectVersionStorageClass instance ToHeader     ObjectVersionStorageClass@@ -433,6 +475,7 @@         Requester -> "Requester"  instance Hashable     Payer+instance NFData       Payer instance ToByteString Payer instance ToQuery      Payer instance ToHeader     Payer@@ -470,6 +513,7 @@         PWriteAcp -> "WRITE_ACP"  instance Hashable     Permission+instance NFData       Permission instance ToByteString Permission instance ToQuery      Permission instance ToHeader     Permission@@ -498,6 +542,7 @@         HTTPS -> "https"  instance Hashable     Protocol+instance NFData       Protocol instance ToByteString Protocol instance ToQuery      Protocol instance ToHeader     Protocol@@ -526,6 +571,7 @@         Enabled -> "Enabled"  instance Hashable     ReplicationRuleStatus+instance NFData       ReplicationRuleStatus instance ToByteString ReplicationRuleStatus instance ToQuery      ReplicationRuleStatus instance ToHeader     ReplicationRuleStatus@@ -560,6 +606,7 @@         Replica -> "REPLICA"  instance Hashable     ReplicationStatus+instance NFData       ReplicationStatus instance ToByteString ReplicationStatus instance ToQuery      ReplicationStatus instance ToHeader     ReplicationStatus@@ -584,6 +631,7 @@         RCRequester -> "requester"  instance Hashable     RequestCharged+instance NFData       RequestCharged instance ToByteString RequestCharged instance ToQuery      RequestCharged instance ToHeader     RequestCharged@@ -611,6 +659,7 @@         RPRequester -> "requester"  instance Hashable     RequestPayer+instance NFData       RequestPayer instance ToByteString RequestPayer instance ToQuery      RequestPayer instance ToHeader     RequestPayer@@ -636,6 +685,7 @@         AWSKMS -> "aws:kms"  instance Hashable     ServerSideEncryption+instance NFData       ServerSideEncryption instance ToByteString ServerSideEncryption instance ToQuery      ServerSideEncryption instance ToHeader     ServerSideEncryption@@ -667,6 +717,7 @@         StandardIA -> "STANDARD_IA"  instance Hashable     StorageClass+instance NFData       StorageClass instance ToByteString StorageClass instance ToQuery      StorageClass instance ToHeader     StorageClass@@ -695,6 +746,7 @@         TSCStandardIA -> "STANDARD_IA"  instance Hashable     TransitionStorageClass+instance NFData       TransitionStorageClass instance ToByteString TransitionStorageClass instance ToQuery      TransitionStorageClass instance ToHeader     TransitionStorageClass@@ -726,6 +778,7 @@         Group -> "Group"  instance Hashable     Type+instance NFData       Type instance ToByteString Type instance ToQuery      Type instance ToHeader     Type

@@ -300,3 +300,5 @@ -- | The response status code. uprsResponseStatus :: Lens' UploadPartResponse Int uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});++instance NFData UploadPartResponse

@@ -260,6 +260,8 @@  instance Hashable UploadPartCopy +instance NFData UploadPartCopy+ instance ToHeaders UploadPartCopy where         toHeaders UploadPartCopy'{..}           = mconcat@@ -381,3 +383,5 @@ -- | The response status code. upcrsResponseStatus :: Lens' UploadPartCopyResponse Int upcrsResponseStatus = lens _upcrsResponseStatus (\ s a -> s{_upcrsResponseStatus = a});++instance NFData UploadPartCopyResponse

@@ -64,6 +64,7 @@         )  instance Hashable BucketName+instance NFData   BucketName  -- FIXME: Add the difference between weak + strong ETags and their respective -- equalities if necessary, see: https://github.com/brendanhay/amazonka/issues/76@@ -87,6 +88,7 @@         )  instance Hashable ETag+instance NFData   ETag  newtype ObjectVersionId = ObjectVersionId Text     deriving@@ -108,6 +110,7 @@         )  instance Hashable ObjectVersionId+instance NFData   ObjectVersionId  newtype LocationConstraint = LocationConstraint { constraintRegion :: Region }     deriving@@ -127,6 +130,7 @@ _LocationConstraint = iso constraintRegion LocationConstraint  instance Hashable LocationConstraint+instance NFData   LocationConstraint  instance FromText LocationConstraint where     parser = LocationConstraint <$> (parser <|> go)@@ -168,6 +172,7 @@         )  instance Hashable ObjectKey+instance NFData   ObjectKey  type Delimiter = Char 

@@ -64,6 +64,9 @@ --         , testGetBucketNotificationConfiguration $ --             getBucketNotificationConfiguration --+--         , testPutBucketAccelerateConfiguration $+--             putBucketAccelerateConfiguration+-- --         , testGetObject $ --             getObject --@@ -124,6 +127,9 @@ --         , testPutBucketPolicy $ --             putBucketPolicy --+--         , testGetBucketAccelerateConfiguration $+--             getBucketAccelerateConfiguration+-- --         , testGetObjectTorrent $ --             getObjectTorrent --@@ -223,6 +229,9 @@ --         , testGetBucketNotificationConfigurationResponse $ --             notificationConfiguration --+--         , testPutBucketAccelerateConfigurationResponse $+--             putBucketAccelerateConfigurationResponse+-- --         , testGetObjectResponse $ --             getObjectResponse --@@ -283,6 +292,9 @@ --         , testPutBucketPolicyResponse $ --             putBucketPolicyResponse --+--         , testGetBucketAccelerateConfigurationResponse $+--             getBucketAccelerateConfigurationResponse+-- --         , testGetObjectTorrentResponse $ --             getObjectTorrentResponse --@@ -403,6 +415,11 @@     "GetBucketNotificationConfiguration"     "fixture/GetBucketNotificationConfiguration.yaml" +testPutBucketAccelerateConfiguration :: PutBucketAccelerateConfiguration -> TestTree+testPutBucketAccelerateConfiguration = req+    "PutBucketAccelerateConfiguration"+    "fixture/PutBucketAccelerateConfiguration.yaml"+ testGetObject :: GetObject -> TestTree testGetObject = req     "GetObject"@@ -498,6 +515,11 @@     "PutBucketPolicy"     "fixture/PutBucketPolicy.yaml" +testGetBucketAccelerateConfiguration :: GetBucketAccelerateConfiguration -> TestTree+testGetBucketAccelerateConfiguration = req+    "GetBucketAccelerateConfiguration"+    "fixture/GetBucketAccelerateConfiguration.yaml"+ testGetObjectTorrent :: GetObjectTorrent -> TestTree testGetObjectTorrent = req     "GetObjectTorrent"@@ -684,6 +706,13 @@     s3     (Proxy :: Proxy GetBucketNotificationConfiguration) +testPutBucketAccelerateConfigurationResponse :: PutBucketAccelerateConfigurationResponse -> TestTree+testPutBucketAccelerateConfigurationResponse = res+    "PutBucketAccelerateConfigurationResponse"+    "fixture/PutBucketAccelerateConfigurationResponse.proto"+    s3+    (Proxy :: Proxy PutBucketAccelerateConfiguration)+ testPutBucketReplicationResponse :: PutBucketReplicationResponse -> TestTree testPutBucketReplicationResponse = res     "PutBucketReplicationResponse"@@ -816,6 +845,13 @@     "fixture/PutBucketPolicyResponse.proto"     s3     (Proxy :: Proxy PutBucketPolicy)++testGetBucketAccelerateConfigurationResponse :: GetBucketAccelerateConfigurationResponse -> TestTree+testGetBucketAccelerateConfigurationResponse = res+    "GetBucketAccelerateConfigurationResponse"+    "fixture/GetBucketAccelerateConfigurationResponse.proto"+    s3+    (Proxy :: Proxy GetBucketAccelerateConfiguration)  testDeleteObjectsResponse :: DeleteObjectsResponse -> TestTree testDeleteObjectsResponse = res