amazonka-s3 1.4.5 → 1.5.0

raw patch · 90 files changed

+7607/−6245 lines, 90 filesdep ~amazonka-coredep ~amazonka-s3dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-s3.cabal +19/−11
• fixture/DeleteBucketEncryption.yaml +10/−0
• fixture/DeleteBucketEncryptionResponse.proto +0/−0
• fixture/GetBucketACLResponse.proto +15/−0
• fixture/GetBucketEncryption.yaml +10/−0
• fixture/GetBucketEncryptionResponse.proto +0/−0
• fixture/PutBucketEncryption.yaml +10/−0
• fixture/PutBucketEncryptionResponse.proto +0/−0
• gen/Network/AWS/S3.hs +149/−75
• gen/Network/AWS/S3/AbortMultipartUpload.hs +31/−29
• gen/Network/AWS/S3/CompleteMultipartUpload.hs +51/−47
• gen/Network/AWS/S3/CopyObject.hs +107/−103
• gen/Network/AWS/S3/CreateBucket.hs +39/−37
• gen/Network/AWS/S3/CreateMultipartUpload.hs +97/−83
• gen/Network/AWS/S3/DeleteBucket.hs +20/−19
• gen/Network/AWS/S3/DeleteBucketAnalyticsConfiguration.hs +25/−20
• gen/Network/AWS/S3/DeleteBucketCORS.hs +20/−19
• gen/Network/AWS/S3/DeleteBucketEncryption.hs +98/−0
• gen/Network/AWS/S3/DeleteBucketInventoryConfiguration.hs +25/−20
• gen/Network/AWS/S3/DeleteBucketLifecycle.hs +20/−19
• gen/Network/AWS/S3/DeleteBucketMetricsConfiguration.hs +23/−19
• gen/Network/AWS/S3/DeleteBucketPolicy.hs +20/−19
• gen/Network/AWS/S3/DeleteBucketReplication.hs +20/−18
• gen/Network/AWS/S3/DeleteBucketTagging.hs +20/−19
• gen/Network/AWS/S3/DeleteBucketWebsite.hs +20/−19
• gen/Network/AWS/S3/DeleteObject.hs +39/−35
• gen/Network/AWS/S3/DeleteObjectTagging.hs +26/−27
• gen/Network/AWS/S3/DeleteObjects.hs +37/−33
• gen/Network/AWS/S3/GetBucketACL.hs +27/−26
• gen/Network/AWS/S3/GetBucketAccelerateConfiguration.hs +24/−21
• gen/Network/AWS/S3/GetBucketAnalyticsConfiguration.hs +27/−24
• gen/Network/AWS/S3/GetBucketCORS.hs +23/−24
• gen/Network/AWS/S3/GetBucketEncryption.hs +122/−0
• gen/Network/AWS/S3/GetBucketInventoryConfiguration.hs +27/−24
• gen/Network/AWS/S3/GetBucketLifecycleConfiguration.hs +24/−22
• gen/Network/AWS/S3/GetBucketLocation.hs +25/−24
• gen/Network/AWS/S3/GetBucketLogging.hs +23/−24
• gen/Network/AWS/S3/GetBucketMetricsConfiguration.hs +26/−24
• gen/Network/AWS/S3/GetBucketNotificationConfiguration.hs +17/−14
• gen/Network/AWS/S3/GetBucketPolicy.hs +23/−24
• gen/Network/AWS/S3/GetBucketReplication.hs +25/−24
• gen/Network/AWS/S3/GetBucketRequestPayment.hs +23/−23
• gen/Network/AWS/S3/GetBucketTagging.hs +23/−24
• gen/Network/AWS/S3/GetBucketVersioning.hs +27/−26
• gen/Network/AWS/S3/GetBucketWebsite.hs +31/−30
• gen/Network/AWS/S3/GetObject.hs +116/−112
• gen/Network/AWS/S3/GetObjectACL.hs +37/−33
• gen/Network/AWS/S3/GetObjectTagging.hs +40/−39
• gen/Network/AWS/S3/GetObjectTorrent.hs +29/−28
• gen/Network/AWS/S3/HeadBucket.hs +20/−19
• gen/Network/AWS/S3/HeadObject.hs +99/−95
• gen/Network/AWS/S3/ListBucketAnalyticsConfigurations.hs +34/−29
• gen/Network/AWS/S3/ListBucketInventoryConfigurations.hs +34/−29
• gen/Network/AWS/S3/ListBucketMetricsConfigurations.hs +34/−30
• gen/Network/AWS/S3/ListBuckets.hs +26/−22
• gen/Network/AWS/S3/ListMultipartUploads.hs +62/−58
• gen/Network/AWS/S3/ListObjectVersions.hs +64/−60
• gen/Network/AWS/S3/ListObjects.hs +58/−54
• gen/Network/AWS/S3/ListObjectsV.hs +65/−61
• gen/Network/AWS/S3/ListParts.hs +64/−60
• gen/Network/AWS/S3/PutBucketACL.hs +38/−34
• gen/Network/AWS/S3/PutBucketAccelerateConfiguration.hs +26/−19
• gen/Network/AWS/S3/PutBucketAnalyticsConfiguration.hs +28/−22
• gen/Network/AWS/S3/PutBucketCORS.hs +26/−22
• gen/Network/AWS/S3/PutBucketEncryption.hs +126/−0
• gen/Network/AWS/S3/PutBucketInventoryConfiguration.hs +28/−22
• gen/Network/AWS/S3/PutBucketLifecycleConfiguration.hs +24/−20
• gen/Network/AWS/S3/PutBucketLogging.hs +26/−22
• gen/Network/AWS/S3/PutBucketMetricsConfiguration.hs +26/−21
• gen/Network/AWS/S3/PutBucketNotificationConfiguration.hs +28/−20
• gen/Network/AWS/S3/PutBucketPolicy.hs +39/−23
• gen/Network/AWS/S3/PutBucketReplication.hs +26/−22
• gen/Network/AWS/S3/PutBucketRequestPayment.hs +26/−22
• gen/Network/AWS/S3/PutBucketTagging.hs +23/−22
• gen/Network/AWS/S3/PutBucketVersioning.hs +28/−24
• gen/Network/AWS/S3/PutBucketWebsite.hs +26/−22
• gen/Network/AWS/S3/PutObject.hs +89/−85
• gen/Network/AWS/S3/PutObjectACL.hs +47/−45
• gen/Network/AWS/S3/PutObjectTagging.hs +43/−41
• gen/Network/AWS/S3/RestoreObject.hs +33/−31
• gen/Network/AWS/S3/Types.hs +105/−34
• gen/Network/AWS/S3/Types/Product.hs +4027/−3594
• gen/Network/AWS/S3/Types/Sum.hs +222/−129
• gen/Network/AWS/S3/UploadPart.hs +55/−51
• gen/Network/AWS/S3/UploadPartCopy.hs +71/−67
• gen/Network/AWS/S3/Waiters.hs +40/−36
• test/Main.hs +2/−2
• test/Test/AWS/Gen/S3.hs +58/−4
• test/Test/AWS/S3.hs +20/−10

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-s3-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-s3  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.S3@@ -48,6 +53,7 @@         , Network.AWS.S3.DeleteBucket         , Network.AWS.S3.DeleteBucketAnalyticsConfiguration         , Network.AWS.S3.DeleteBucketCORS+        , Network.AWS.S3.DeleteBucketEncryption         , Network.AWS.S3.DeleteBucketInventoryConfiguration         , Network.AWS.S3.DeleteBucketLifecycle         , Network.AWS.S3.DeleteBucketMetricsConfiguration@@ -62,6 +68,7 @@         , Network.AWS.S3.GetBucketAccelerateConfiguration         , Network.AWS.S3.GetBucketAnalyticsConfiguration         , Network.AWS.S3.GetBucketCORS+        , Network.AWS.S3.GetBucketEncryption         , Network.AWS.S3.GetBucketInventoryConfiguration         , Network.AWS.S3.GetBucketLifecycleConfiguration         , Network.AWS.S3.GetBucketLocation@@ -93,6 +100,7 @@         , Network.AWS.S3.PutBucketAccelerateConfiguration         , Network.AWS.S3.PutBucketAnalyticsConfiguration         , Network.AWS.S3.PutBucketCORS+        , Network.AWS.S3.PutBucketEncryption         , Network.AWS.S3.PutBucketInventoryConfiguration         , Network.AWS.S3.PutBucketLifecycleConfiguration         , Network.AWS.S3.PutBucketLogging@@ -119,7 +127,7 @@         , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5         , lens >= 4.4         , text >= 1.1@@ -141,9 +149,9 @@         , Test.AWS.S3.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-s3 == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-s3         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/s3/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  s3.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,15 @@+<AccessControlPolicy xmlns="http://s3.amazonaws.com/doc/2006-03-01/">+  <Owner>+    <ID>fedcba0987654321</ID>+    <DisplayName>foo</DisplayName>+  </Owner>+  <AccessControlList>+    <Grant>+      <Grantee xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="CanonicalUser">+        <ID>1234567890abcdef</ID>+        <DisplayName>bar</DisplayName>+      </Grantee>+      <Permission>FULL_CONTROL</Permission>+    </Grant>+  </AccessControlList>+</AccessControlPolicy>

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/s3/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  s3.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/s3/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  s3.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.S3--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -185,6 +185,9 @@     -- ** DeleteBucketPolicy     , module Network.AWS.S3.DeleteBucketPolicy +    -- ** GetBucketEncryption+    , module Network.AWS.S3.GetBucketEncryption+     -- ** AbortMultipartUpload     , module Network.AWS.S3.AbortMultipartUpload @@ -239,6 +242,12 @@     -- ** GetBucketPolicy     , module Network.AWS.S3.GetBucketPolicy +    -- ** PutBucketEncryption+    , module Network.AWS.S3.PutBucketEncryption++    -- ** DeleteBucketEncryption+    , module Network.AWS.S3.DeleteBucketEncryption+     -- ** GetBucketLogging     , module Network.AWS.S3.GetBucketLogging @@ -331,6 +340,9 @@     -- ** ObjectVersionStorageClass     , ObjectVersionStorageClass (..) +    -- ** OwnerOverride+    , OwnerOverride (..)+     -- ** Payer     , Payer (..) @@ -355,6 +367,9 @@     -- ** ServerSideEncryption     , ServerSideEncryption (..) +    -- ** SseKMSEncryptedObjectsStatus+    , SseKMSEncryptedObjectsStatus (..)+     -- ** StorageClass     , StorageClass (..) @@ -389,6 +404,11 @@     , acpGrants     , acpOwner +    -- ** AccessControlTranslation+    , AccessControlTranslation+    , accessControlTranslation+    , actOwner+     -- ** AnalyticsAndOperator     , AnalyticsAndOperator     , analyticsAndOperator@@ -517,9 +537,17 @@     -- ** Destination     , Destination     , destination+    , dAccessControlTranslation+    , dAccount     , dStorageClass+    , dEncryptionConfiguration     , dBucket +    -- ** EncryptionConfiguration+    , EncryptionConfiguration+    , encryptionConfiguration+    , ecReplicaKMSKeyId+     -- ** ErrorDocument     , ErrorDocument     , errorDocument@@ -578,6 +606,12 @@     , inventoryDestination     , idS3BucketDestination +    -- ** InventoryEncryption+    , InventoryEncryption+    , inventoryEncryption+    , ieSSES3+    , ieSSEKMS+     -- ** InventoryFilter     , InventoryFilter     , inventoryFilter@@ -588,6 +622,7 @@     , inventoryS3BucketDestination     , isbdPrefix     , isbdAccountId+    , isbdEncryption     , isbdBucket     , isbdFormat @@ -771,6 +806,7 @@     , ReplicationRule     , replicationRule     , rrId+    , rrSourceSelectionCriteria     , rrPrefix     , rrStatus     , rrDestination@@ -805,6 +841,41 @@     , sseCode     , sseMessage +    -- ** SSEKMS+    , SSEKMS+    , sSEKMS+    , ssekKeyId++    -- ** SSES3+    , SSES3+    , sSES3++    -- ** ServerSideEncryptionByDefault+    , ServerSideEncryptionByDefault+    , serverSideEncryptionByDefault+    , ssebdKMSMasterKeyId+    , ssebdSSEAlgorithm++    -- ** ServerSideEncryptionConfiguration+    , ServerSideEncryptionConfiguration+    , serverSideEncryptionConfiguration+    , ssecRules++    -- ** ServerSideEncryptionRule+    , ServerSideEncryptionRule+    , serverSideEncryptionRule+    , sserApplyServerSideEncryptionByDefault++    -- ** SourceSelectionCriteria+    , SourceSelectionCriteria+    , sourceSelectionCriteria+    , sscSseKMSEncryptedObjects++    -- ** SseKMSEncryptedObjects+    , SseKMSEncryptedObjects+    , sseKMSEncryptedObjects+    , skeoStatus+     -- ** StorageClassAnalysis     , StorageClassAnalysis     , storageClassAnalysis@@ -863,79 +934,82 @@     , wcRoutingRules     ) where -import           Network.AWS.S3.AbortMultipartUpload-import           Network.AWS.S3.CompleteMultipartUpload-import           Network.AWS.S3.CopyObject-import           Network.AWS.S3.CreateBucket-import           Network.AWS.S3.CreateMultipartUpload-import           Network.AWS.S3.DeleteBucket-import           Network.AWS.S3.DeleteBucketAnalyticsConfiguration-import           Network.AWS.S3.DeleteBucketCORS-import           Network.AWS.S3.DeleteBucketInventoryConfiguration-import           Network.AWS.S3.DeleteBucketLifecycle-import           Network.AWS.S3.DeleteBucketMetricsConfiguration-import           Network.AWS.S3.DeleteBucketPolicy-import           Network.AWS.S3.DeleteBucketReplication-import           Network.AWS.S3.DeleteBucketTagging-import           Network.AWS.S3.DeleteBucketWebsite-import           Network.AWS.S3.DeleteObject-import           Network.AWS.S3.DeleteObjects-import           Network.AWS.S3.DeleteObjectTagging-import           Network.AWS.S3.GetBucketAccelerateConfiguration-import           Network.AWS.S3.GetBucketACL-import           Network.AWS.S3.GetBucketAnalyticsConfiguration-import           Network.AWS.S3.GetBucketCORS-import           Network.AWS.S3.GetBucketInventoryConfiguration-import           Network.AWS.S3.GetBucketLifecycleConfiguration-import           Network.AWS.S3.GetBucketLocation-import           Network.AWS.S3.GetBucketLogging-import           Network.AWS.S3.GetBucketMetricsConfiguration-import           Network.AWS.S3.GetBucketNotificationConfiguration-import           Network.AWS.S3.GetBucketPolicy-import           Network.AWS.S3.GetBucketReplication-import           Network.AWS.S3.GetBucketRequestPayment-import           Network.AWS.S3.GetBucketTagging-import           Network.AWS.S3.GetBucketVersioning-import           Network.AWS.S3.GetBucketWebsite-import           Network.AWS.S3.GetObject-import           Network.AWS.S3.GetObjectACL-import           Network.AWS.S3.GetObjectTagging-import           Network.AWS.S3.GetObjectTorrent-import           Network.AWS.S3.HeadBucket-import           Network.AWS.S3.HeadObject-import           Network.AWS.S3.Internal-import           Network.AWS.S3.ListBucketAnalyticsConfigurations-import           Network.AWS.S3.ListBucketInventoryConfigurations-import           Network.AWS.S3.ListBucketMetricsConfigurations-import           Network.AWS.S3.ListBuckets-import           Network.AWS.S3.ListMultipartUploads-import           Network.AWS.S3.ListObjects-import           Network.AWS.S3.ListObjectsV-import           Network.AWS.S3.ListObjectVersions-import           Network.AWS.S3.ListParts-import           Network.AWS.S3.PutBucketAccelerateConfiguration-import           Network.AWS.S3.PutBucketACL-import           Network.AWS.S3.PutBucketAnalyticsConfiguration-import           Network.AWS.S3.PutBucketCORS-import           Network.AWS.S3.PutBucketInventoryConfiguration-import           Network.AWS.S3.PutBucketLifecycleConfiguration-import           Network.AWS.S3.PutBucketLogging-import           Network.AWS.S3.PutBucketMetricsConfiguration-import           Network.AWS.S3.PutBucketNotificationConfiguration-import           Network.AWS.S3.PutBucketPolicy-import           Network.AWS.S3.PutBucketReplication-import           Network.AWS.S3.PutBucketRequestPayment-import           Network.AWS.S3.PutBucketTagging-import           Network.AWS.S3.PutBucketVersioning-import           Network.AWS.S3.PutBucketWebsite-import           Network.AWS.S3.PutObject-import           Network.AWS.S3.PutObjectACL-import           Network.AWS.S3.PutObjectTagging-import           Network.AWS.S3.RestoreObject-import           Network.AWS.S3.Types-import           Network.AWS.S3.UploadPart-import           Network.AWS.S3.UploadPartCopy-import           Network.AWS.S3.Waiters+import Network.AWS.S3.AbortMultipartUpload+import Network.AWS.S3.CompleteMultipartUpload+import Network.AWS.S3.CopyObject+import Network.AWS.S3.CreateBucket+import Network.AWS.S3.CreateMultipartUpload+import Network.AWS.S3.DeleteBucket+import Network.AWS.S3.DeleteBucketAnalyticsConfiguration+import Network.AWS.S3.DeleteBucketCORS+import Network.AWS.S3.DeleteBucketEncryption+import Network.AWS.S3.DeleteBucketInventoryConfiguration+import Network.AWS.S3.DeleteBucketLifecycle+import Network.AWS.S3.DeleteBucketMetricsConfiguration+import Network.AWS.S3.DeleteBucketPolicy+import Network.AWS.S3.DeleteBucketReplication+import Network.AWS.S3.DeleteBucketTagging+import Network.AWS.S3.DeleteBucketWebsite+import Network.AWS.S3.DeleteObject+import Network.AWS.S3.DeleteObjects+import Network.AWS.S3.DeleteObjectTagging+import Network.AWS.S3.GetBucketAccelerateConfiguration+import Network.AWS.S3.GetBucketACL+import Network.AWS.S3.GetBucketAnalyticsConfiguration+import Network.AWS.S3.GetBucketCORS+import Network.AWS.S3.GetBucketEncryption+import Network.AWS.S3.GetBucketInventoryConfiguration+import Network.AWS.S3.GetBucketLifecycleConfiguration+import Network.AWS.S3.GetBucketLocation+import Network.AWS.S3.GetBucketLogging+import Network.AWS.S3.GetBucketMetricsConfiguration+import Network.AWS.S3.GetBucketNotificationConfiguration+import Network.AWS.S3.GetBucketPolicy+import Network.AWS.S3.GetBucketReplication+import Network.AWS.S3.GetBucketRequestPayment+import Network.AWS.S3.GetBucketTagging+import Network.AWS.S3.GetBucketVersioning+import Network.AWS.S3.GetBucketWebsite+import Network.AWS.S3.GetObject+import Network.AWS.S3.GetObjectACL+import Network.AWS.S3.GetObjectTagging+import Network.AWS.S3.GetObjectTorrent+import Network.AWS.S3.HeadBucket+import Network.AWS.S3.HeadObject+import Network.AWS.S3.Internal+import Network.AWS.S3.ListBucketAnalyticsConfigurations+import Network.AWS.S3.ListBucketInventoryConfigurations+import Network.AWS.S3.ListBucketMetricsConfigurations+import Network.AWS.S3.ListBuckets+import Network.AWS.S3.ListMultipartUploads+import Network.AWS.S3.ListObjects+import Network.AWS.S3.ListObjectsV+import Network.AWS.S3.ListObjectVersions+import Network.AWS.S3.ListParts+import Network.AWS.S3.PutBucketAccelerateConfiguration+import Network.AWS.S3.PutBucketACL+import Network.AWS.S3.PutBucketAnalyticsConfiguration+import Network.AWS.S3.PutBucketCORS+import Network.AWS.S3.PutBucketEncryption+import Network.AWS.S3.PutBucketInventoryConfiguration+import Network.AWS.S3.PutBucketLifecycleConfiguration+import Network.AWS.S3.PutBucketLogging+import Network.AWS.S3.PutBucketMetricsConfiguration+import Network.AWS.S3.PutBucketNotificationConfiguration+import Network.AWS.S3.PutBucketPolicy+import Network.AWS.S3.PutBucketReplication+import Network.AWS.S3.PutBucketRequestPayment+import Network.AWS.S3.PutBucketTagging+import Network.AWS.S3.PutBucketVersioning+import Network.AWS.S3.PutBucketWebsite+import Network.AWS.S3.PutObject+import Network.AWS.S3.PutObjectACL+import Network.AWS.S3.PutObjectTagging+import Network.AWS.S3.RestoreObject+import Network.AWS.S3.Types+import Network.AWS.S3.UploadPart+import Network.AWS.S3.UploadPartCopy+import Network.AWS.S3.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.AbortMultipartUpload--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,21 +42,22 @@     , amursResponseStatus     ) 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+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:/ 'abortMultipartUpload' smart constructor. data AbortMultipartUpload = AbortMultipartUpload'-    { _amuRequestPayer :: !(Maybe RequestPayer)-    , _amuBucket       :: !BucketName-    , _amuKey          :: !ObjectKey-    , _amuUploadId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _amuRequestPayer :: !(Maybe RequestPayer)+  , _amuBucket       :: !BucketName+  , _amuKey          :: !ObjectKey+  , _amuUploadId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@     -> Text -- ^ 'amuUploadId'     -> AbortMultipartUpload abortMultipartUpload pBucket_ pKey_ pUploadId_ =-    AbortMultipartUpload'-    { _amuRequestPayer = Nothing-    , _amuBucket = pBucket_-    , _amuKey = pKey_-    , _amuUploadId = pUploadId_-    }+  AbortMultipartUpload'+  { _amuRequestPayer = Nothing+  , _amuBucket = pBucket_+  , _amuKey = pKey_+  , _amuUploadId = pUploadId_+  } + -- | Undocumented member. amuRequestPayer :: Lens' AbortMultipartUpload (Maybe RequestPayer) amuRequestPayer = lens _amuRequestPayer (\ s a -> s{_amuRequestPayer = a});@@ -108,9 +110,9 @@                    (h .#? "x-amz-request-charged") <*>                      (pure (fromEnum s))) -instance Hashable AbortMultipartUpload+instance Hashable AbortMultipartUpload where -instance NFData AbortMultipartUpload+instance NFData AbortMultipartUpload where  instance ToHeaders AbortMultipartUpload where         toHeaders AbortMultipartUpload'{..}@@ -126,10 +128,11 @@  -- | /See:/ 'abortMultipartUploadResponse' smart constructor. data AbortMultipartUploadResponse = AbortMultipartUploadResponse'-    { _amursRequestCharged :: !(Maybe RequestCharged)-    , _amursResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _amursRequestCharged :: !(Maybe RequestCharged)+  , _amursResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AbortMultipartUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,11 +144,10 @@     :: Int -- ^ 'amursResponseStatus'     -> AbortMultipartUploadResponse abortMultipartUploadResponse pResponseStatus_ =-    AbortMultipartUploadResponse'-    { _amursRequestCharged = Nothing-    , _amursResponseStatus = pResponseStatus_-    }+  AbortMultipartUploadResponse'+  {_amursRequestCharged = Nothing, _amursResponseStatus = pResponseStatus_} + -- | Undocumented member. amursRequestCharged :: Lens' AbortMultipartUploadResponse (Maybe RequestCharged) amursRequestCharged = lens _amursRequestCharged (\ s a -> s{_amursRequestCharged = a});@@ -154,4 +156,4 @@ amursResponseStatus :: Lens' AbortMultipartUploadResponse Int amursResponseStatus = lens _amursResponseStatus (\ s a -> s{_amursResponseStatus = a}); -instance NFData AbortMultipartUploadResponse+instance NFData AbortMultipartUploadResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.CompleteMultipartUpload--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,22 +47,23 @@     , crsResponseStatus     ) 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+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:/ 'completeMultipartUpload' smart constructor. data CompleteMultipartUpload = CompleteMultipartUpload'-    { _cRequestPayer    :: !(Maybe RequestPayer)-    , _cMultipartUpload :: !(Maybe CompletedMultipartUpload)-    , _cBucket          :: !BucketName-    , _cKey             :: !ObjectKey-    , _cUploadId        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cRequestPayer    :: !(Maybe RequestPayer)+  , _cMultipartUpload :: !(Maybe CompletedMultipartUpload)+  , _cBucket          :: !BucketName+  , _cKey             :: !ObjectKey+  , _cUploadId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CompleteMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,14 +83,15 @@     -> Text -- ^ 'cUploadId'     -> CompleteMultipartUpload completeMultipartUpload pBucket_ pKey_ pUploadId_ =-    CompleteMultipartUpload'-    { _cRequestPayer = Nothing-    , _cMultipartUpload = Nothing-    , _cBucket = pBucket_-    , _cKey = pKey_-    , _cUploadId = pUploadId_-    }+  CompleteMultipartUpload'+  { _cRequestPayer = Nothing+  , _cMultipartUpload = Nothing+  , _cBucket = pBucket_+  , _cKey = pKey_+  , _cUploadId = pUploadId_+  } + -- | Undocumented member. cRequestPayer :: Lens' CompleteMultipartUpload (Maybe RequestPayer) cRequestPayer = lens _cRequestPayer (\ s a -> s{_cRequestPayer = a});@@ -129,9 +131,9 @@                      <*> (h .#? "x-amz-server-side-encryption")                      <*> (pure (fromEnum s))) -instance Hashable CompleteMultipartUpload+instance Hashable CompleteMultipartUpload where -instance NFData CompleteMultipartUpload+instance NFData CompleteMultipartUpload where  instance ToElement CompleteMultipartUpload where         toElement@@ -154,18 +156,19 @@  -- | /See:/ 'completeMultipartUploadResponse' smart constructor. data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse'-    { _crsRequestCharged       :: !(Maybe RequestCharged)-    , _crsETag                 :: !(Maybe ETag)-    , _crsVersionId            :: !(Maybe ObjectVersionId)-    , _crsLocation             :: !(Maybe Text)-    , _crsExpiration           :: !(Maybe Text)-    , _crsBucket               :: !(Maybe BucketName)-    , _crsKey                  :: !(Maybe ObjectKey)-    , _crsSSEKMSKeyId          :: !(Maybe (Sensitive Text))-    , _crsServerSideEncryption :: !(Maybe ServerSideEncryption)-    , _crsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsRequestCharged       :: !(Maybe RequestCharged)+  , _crsETag                 :: !(Maybe ETag)+  , _crsVersionId            :: !(Maybe ObjectVersionId)+  , _crsLocation             :: !(Maybe Text)+  , _crsExpiration           :: !(Maybe Text)+  , _crsBucket               :: !(Maybe BucketName)+  , _crsKey                  :: !(Maybe ObjectKey)+  , _crsSSEKMSKeyId          :: !(Maybe (Sensitive Text))+  , _crsServerSideEncryption :: !(Maybe ServerSideEncryption)+  , _crsResponseStatus       :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CompleteMultipartUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -193,19 +196,20 @@     :: Int -- ^ 'crsResponseStatus'     -> CompleteMultipartUploadResponse completeMultipartUploadResponse pResponseStatus_ =-    CompleteMultipartUploadResponse'-    { _crsRequestCharged = Nothing-    , _crsETag = Nothing-    , _crsVersionId = Nothing-    , _crsLocation = Nothing-    , _crsExpiration = Nothing-    , _crsBucket = Nothing-    , _crsKey = Nothing-    , _crsSSEKMSKeyId = Nothing-    , _crsServerSideEncryption = Nothing-    , _crsResponseStatus = pResponseStatus_-    }+  CompleteMultipartUploadResponse'+  { _crsRequestCharged = Nothing+  , _crsETag = Nothing+  , _crsVersionId = Nothing+  , _crsLocation = Nothing+  , _crsExpiration = Nothing+  , _crsBucket = Nothing+  , _crsKey = Nothing+  , _crsSSEKMSKeyId = Nothing+  , _crsServerSideEncryption = Nothing+  , _crsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. crsRequestCharged :: Lens' CompleteMultipartUploadResponse (Maybe RequestCharged) crsRequestCharged = lens _crsRequestCharged (\ s a -> s{_crsRequestCharged = a});@@ -246,4 +250,4 @@ crsResponseStatus :: Lens' CompleteMultipartUploadResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CompleteMultipartUploadResponse+instance NFData CompleteMultipartUploadResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.CopyObject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -75,50 +75,51 @@     , corsResponseStatus     ) 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+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:/ 'copyObject' smart constructor. data CopyObject = CopyObject'-    { _coCopySourceIfModifiedSince      :: !(Maybe RFC822)-    , _coCopySourceIfUnmodifiedSince    :: !(Maybe RFC822)-    , _coCopySourceSSECustomerKeyMD5    :: !(Maybe Text)-    , _coTaggingDirective               :: !(Maybe TaggingDirective)-    , _coMetadataDirective              :: !(Maybe MetadataDirective)-    , _coExpires                        :: !(Maybe RFC822)-    , _coGrantReadACP                   :: !(Maybe Text)-    , _coCopySourceIfNoneMatch          :: !(Maybe Text)-    , _coSSECustomerAlgorithm           :: !(Maybe Text)-    , _coSSECustomerKey                 :: !(Maybe (Sensitive Text))-    , _coRequestPayer                   :: !(Maybe RequestPayer)-    , _coGrantWriteACP                  :: !(Maybe Text)-    , _coCopySourceIfMatch              :: !(Maybe Text)-    , _coWebsiteRedirectLocation        :: !(Maybe Text)-    , _coGrantRead                      :: !(Maybe Text)-    , _coStorageClass                   :: !(Maybe StorageClass)-    , _coSSECustomerKeyMD5              :: !(Maybe Text)-    , _coSSEKMSKeyId                    :: !(Maybe (Sensitive Text))-    , _coGrantFullControl               :: !(Maybe Text)-    , _coContentEncoding                :: !(Maybe Text)-    , _coTagging                        :: !(Maybe Text)-    , _coMetadata                       :: !(Map Text Text)-    , _coCacheControl                   :: !(Maybe Text)-    , _coContentLanguage                :: !(Maybe Text)-    , _coCopySourceSSECustomerKey       :: !(Maybe (Sensitive Text))-    , _coCopySourceSSECustomerAlgorithm :: !(Maybe Text)-    , _coACL                            :: !(Maybe ObjectCannedACL)-    , _coContentDisposition             :: !(Maybe Text)-    , _coServerSideEncryption           :: !(Maybe ServerSideEncryption)-    , _coContentType                    :: !(Maybe Text)-    , _coBucket                         :: !BucketName-    , _coCopySource                     :: !Text-    , _coKey                            :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _coCopySourceIfModifiedSince      :: !(Maybe RFC822)+  , _coCopySourceIfUnmodifiedSince    :: !(Maybe RFC822)+  , _coCopySourceSSECustomerKeyMD5    :: !(Maybe Text)+  , _coTaggingDirective               :: !(Maybe TaggingDirective)+  , _coMetadataDirective              :: !(Maybe MetadataDirective)+  , _coExpires                        :: !(Maybe RFC822)+  , _coGrantReadACP                   :: !(Maybe Text)+  , _coCopySourceIfNoneMatch          :: !(Maybe Text)+  , _coSSECustomerAlgorithm           :: !(Maybe Text)+  , _coSSECustomerKey                 :: !(Maybe (Sensitive Text))+  , _coRequestPayer                   :: !(Maybe RequestPayer)+  , _coGrantWriteACP                  :: !(Maybe Text)+  , _coCopySourceIfMatch              :: !(Maybe Text)+  , _coWebsiteRedirectLocation        :: !(Maybe Text)+  , _coGrantRead                      :: !(Maybe Text)+  , _coStorageClass                   :: !(Maybe StorageClass)+  , _coSSECustomerKeyMD5              :: !(Maybe Text)+  , _coSSEKMSKeyId                    :: !(Maybe (Sensitive Text))+  , _coGrantFullControl               :: !(Maybe Text)+  , _coContentEncoding                :: !(Maybe Text)+  , _coTagging                        :: !(Maybe Text)+  , _coMetadata                       :: !(Map Text Text)+  , _coCacheControl                   :: !(Maybe Text)+  , _coContentLanguage                :: !(Maybe Text)+  , _coCopySourceSSECustomerKey       :: !(Maybe (Sensitive Text))+  , _coCopySourceSSECustomerAlgorithm :: !(Maybe Text)+  , _coACL                            :: !(Maybe ObjectCannedACL)+  , _coContentDisposition             :: !(Maybe Text)+  , _coServerSideEncryption           :: !(Maybe ServerSideEncryption)+  , _coContentType                    :: !(Maybe Text)+  , _coBucket                         :: !BucketName+  , _coCopySource                     :: !Text+  , _coKey                            :: !ObjectKey+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -194,42 +195,43 @@     -> ObjectKey -- ^ 'coKey'     -> CopyObject copyObject pBucket_ pCopySource_ pKey_ =-    CopyObject'-    { _coCopySourceIfModifiedSince = Nothing-    , _coCopySourceIfUnmodifiedSince = Nothing-    , _coCopySourceSSECustomerKeyMD5 = Nothing-    , _coTaggingDirective = Nothing-    , _coMetadataDirective = Nothing-    , _coExpires = Nothing-    , _coGrantReadACP = Nothing-    , _coCopySourceIfNoneMatch = Nothing-    , _coSSECustomerAlgorithm = Nothing-    , _coSSECustomerKey = Nothing-    , _coRequestPayer = Nothing-    , _coGrantWriteACP = Nothing-    , _coCopySourceIfMatch = Nothing-    , _coWebsiteRedirectLocation = Nothing-    , _coGrantRead = Nothing-    , _coStorageClass = Nothing-    , _coSSECustomerKeyMD5 = Nothing-    , _coSSEKMSKeyId = Nothing-    , _coGrantFullControl = Nothing-    , _coContentEncoding = Nothing-    , _coTagging = Nothing-    , _coMetadata = mempty-    , _coCacheControl = Nothing-    , _coContentLanguage = Nothing-    , _coCopySourceSSECustomerKey = Nothing-    , _coCopySourceSSECustomerAlgorithm = Nothing-    , _coACL = Nothing-    , _coContentDisposition = Nothing-    , _coServerSideEncryption = Nothing-    , _coContentType = Nothing-    , _coBucket = pBucket_-    , _coCopySource = pCopySource_-    , _coKey = pKey_-    }+  CopyObject'+  { _coCopySourceIfModifiedSince = Nothing+  , _coCopySourceIfUnmodifiedSince = Nothing+  , _coCopySourceSSECustomerKeyMD5 = Nothing+  , _coTaggingDirective = Nothing+  , _coMetadataDirective = Nothing+  , _coExpires = Nothing+  , _coGrantReadACP = Nothing+  , _coCopySourceIfNoneMatch = Nothing+  , _coSSECustomerAlgorithm = Nothing+  , _coSSECustomerKey = Nothing+  , _coRequestPayer = Nothing+  , _coGrantWriteACP = Nothing+  , _coCopySourceIfMatch = Nothing+  , _coWebsiteRedirectLocation = Nothing+  , _coGrantRead = Nothing+  , _coStorageClass = Nothing+  , _coSSECustomerKeyMD5 = Nothing+  , _coSSEKMSKeyId = Nothing+  , _coGrantFullControl = Nothing+  , _coContentEncoding = Nothing+  , _coTagging = Nothing+  , _coMetadata = mempty+  , _coCacheControl = Nothing+  , _coContentLanguage = Nothing+  , _coCopySourceSSECustomerKey = Nothing+  , _coCopySourceSSECustomerAlgorithm = Nothing+  , _coACL = Nothing+  , _coContentDisposition = Nothing+  , _coServerSideEncryption = Nothing+  , _coContentType = Nothing+  , _coBucket = pBucket_+  , _coCopySource = pCopySource_+  , _coKey = pKey_+  } + -- | Copies the object if it has been modified since the specified time. coCopySourceIfModifiedSince :: Lens' CopyObject (Maybe UTCTime) coCopySourceIfModifiedSince = lens _coCopySourceIfModifiedSince (\ s a -> s{_coCopySourceIfModifiedSince = a}) . mapping _Time;@@ -385,9 +387,9 @@                      <*> (parseXML x)                      <*> (pure (fromEnum s))) -instance Hashable CopyObject+instance Hashable CopyObject where -instance NFData CopyObject+instance NFData CopyObject where  instance ToHeaders CopyObject where         toHeaders CopyObject'{..}@@ -445,18 +447,19 @@  -- | /See:/ 'copyObjectResponse' smart constructor. data CopyObjectResponse = CopyObjectResponse'-    { _corsRequestCharged       :: !(Maybe RequestCharged)-    , _corsVersionId            :: !(Maybe ObjectVersionId)-    , _corsExpiration           :: !(Maybe Text)-    , _corsSSECustomerAlgorithm :: !(Maybe Text)-    , _corsCopySourceVersionId  :: !(Maybe Text)-    , _corsSSECustomerKeyMD5    :: !(Maybe Text)-    , _corsSSEKMSKeyId          :: !(Maybe (Sensitive Text))-    , _corsServerSideEncryption :: !(Maybe ServerSideEncryption)-    , _corsCopyObjectResult     :: !(Maybe CopyObjectResult)-    , _corsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _corsRequestCharged       :: !(Maybe RequestCharged)+  , _corsVersionId            :: !(Maybe ObjectVersionId)+  , _corsExpiration           :: !(Maybe Text)+  , _corsSSECustomerAlgorithm :: !(Maybe Text)+  , _corsCopySourceVersionId  :: !(Maybe Text)+  , _corsSSECustomerKeyMD5    :: !(Maybe Text)+  , _corsSSEKMSKeyId          :: !(Maybe (Sensitive Text))+  , _corsServerSideEncryption :: !(Maybe ServerSideEncryption)+  , _corsCopyObjectResult     :: !(Maybe CopyObjectResult)+  , _corsResponseStatus       :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyObjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -484,19 +487,20 @@     :: Int -- ^ 'corsResponseStatus'     -> CopyObjectResponse copyObjectResponse pResponseStatus_ =-    CopyObjectResponse'-    { _corsRequestCharged = Nothing-    , _corsVersionId = Nothing-    , _corsExpiration = Nothing-    , _corsSSECustomerAlgorithm = Nothing-    , _corsCopySourceVersionId = Nothing-    , _corsSSECustomerKeyMD5 = Nothing-    , _corsSSEKMSKeyId = Nothing-    , _corsServerSideEncryption = Nothing-    , _corsCopyObjectResult = Nothing-    , _corsResponseStatus = pResponseStatus_-    }+  CopyObjectResponse'+  { _corsRequestCharged = Nothing+  , _corsVersionId = Nothing+  , _corsExpiration = Nothing+  , _corsSSECustomerAlgorithm = Nothing+  , _corsCopySourceVersionId = Nothing+  , _corsSSECustomerKeyMD5 = Nothing+  , _corsSSEKMSKeyId = Nothing+  , _corsServerSideEncryption = Nothing+  , _corsCopyObjectResult = Nothing+  , _corsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. corsRequestCharged :: Lens' CopyObjectResponse (Maybe RequestCharged) corsRequestCharged = lens _corsRequestCharged (\ s a -> s{_corsRequestCharged = a});@@ -537,4 +541,4 @@ corsResponseStatus :: Lens' CopyObjectResponse Int corsResponseStatus = lens _corsResponseStatus (\ s a -> s{_corsResponseStatus = a}); -instance NFData CopyObjectResponse+instance NFData CopyObjectResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.CreateBucket--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,25 +42,26 @@     , cbrsResponseStatus     ) 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+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:/ 'createBucket' smart constructor. data CreateBucket = CreateBucket'-    { _cbGrantReadACP              :: !(Maybe Text)-    , _cbGrantWriteACP             :: !(Maybe Text)-    , _cbGrantRead                 :: !(Maybe Text)-    , _cbGrantFullControl          :: !(Maybe Text)-    , _cbCreateBucketConfiguration :: !(Maybe CreateBucketConfiguration)-    , _cbGrantWrite                :: !(Maybe Text)-    , _cbACL                       :: !(Maybe BucketCannedACL)-    , _cbBucket                    :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbGrantReadACP              :: !(Maybe Text)+  , _cbGrantWriteACP             :: !(Maybe Text)+  , _cbGrantRead                 :: !(Maybe Text)+  , _cbGrantFullControl          :: !(Maybe Text)+  , _cbCreateBucketConfiguration :: !(Maybe CreateBucketConfiguration)+  , _cbGrantWrite                :: !(Maybe Text)+  , _cbACL                       :: !(Maybe BucketCannedACL)+  , _cbBucket                    :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,17 +85,18 @@     :: BucketName -- ^ 'cbBucket'     -> CreateBucket createBucket pBucket_ =-    CreateBucket'-    { _cbGrantReadACP = Nothing-    , _cbGrantWriteACP = Nothing-    , _cbGrantRead = Nothing-    , _cbGrantFullControl = Nothing-    , _cbCreateBucketConfiguration = Nothing-    , _cbGrantWrite = Nothing-    , _cbACL = Nothing-    , _cbBucket = pBucket_-    }+  CreateBucket'+  { _cbGrantReadACP = Nothing+  , _cbGrantWriteACP = Nothing+  , _cbGrantRead = Nothing+  , _cbGrantFullControl = Nothing+  , _cbCreateBucketConfiguration = Nothing+  , _cbGrantWrite = Nothing+  , _cbACL = Nothing+  , _cbBucket = pBucket_+  } + -- | Allows grantee to read the bucket ACL. cbGrantReadACP :: Lens' CreateBucket (Maybe Text) cbGrantReadACP = lens _cbGrantReadACP (\ s a -> s{_cbGrantReadACP = a});@@ -136,9 +138,9 @@                  CreateBucketResponse' <$>                    (h .#? "Location") <*> (pure (fromEnum s))) -instance Hashable CreateBucket+instance Hashable CreateBucket where -instance NFData CreateBucket+instance NFData CreateBucket where  instance ToElement CreateBucket where         toElement@@ -166,10 +168,11 @@  -- | /See:/ 'createBucketResponse' smart constructor. data CreateBucketResponse = CreateBucketResponse'-    { _cbrsLocation       :: !(Maybe Text)-    , _cbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbrsLocation       :: !(Maybe Text)+  , _cbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBucketResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -181,11 +184,10 @@     :: Int -- ^ 'cbrsResponseStatus'     -> CreateBucketResponse createBucketResponse pResponseStatus_ =-    CreateBucketResponse'-    { _cbrsLocation = Nothing-    , _cbrsResponseStatus = pResponseStatus_-    }+  CreateBucketResponse'+  {_cbrsLocation = Nothing, _cbrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cbrsLocation :: Lens' CreateBucketResponse (Maybe Text) cbrsLocation = lens _cbrsLocation (\ s a -> s{_cbrsLocation = a});@@ -194,4 +196,4 @@ cbrsResponseStatus :: Lens' CreateBucketResponse Int cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a}); -instance NFData CreateBucketResponse+instance NFData CreateBucketResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.CreateMultipartUpload--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,6 +42,7 @@     , cmuSSEKMSKeyId     , cmuGrantFullControl     , cmuContentEncoding+    , cmuTagging     , cmuMetadata     , cmuCacheControl     , cmuContentLanguage@@ -69,39 +70,41 @@     , cmursResponseStatus     ) 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+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:/ 'createMultipartUpload' smart constructor. data CreateMultipartUpload = CreateMultipartUpload'-    { _cmuExpires                 :: !(Maybe RFC822)-    , _cmuGrantReadACP            :: !(Maybe Text)-    , _cmuSSECustomerAlgorithm    :: !(Maybe Text)-    , _cmuSSECustomerKey          :: !(Maybe (Sensitive Text))-    , _cmuRequestPayer            :: !(Maybe RequestPayer)-    , _cmuGrantWriteACP           :: !(Maybe Text)-    , _cmuWebsiteRedirectLocation :: !(Maybe Text)-    , _cmuGrantRead               :: !(Maybe Text)-    , _cmuStorageClass            :: !(Maybe StorageClass)-    , _cmuSSECustomerKeyMD5       :: !(Maybe Text)-    , _cmuSSEKMSKeyId             :: !(Maybe (Sensitive Text))-    , _cmuGrantFullControl        :: !(Maybe Text)-    , _cmuContentEncoding         :: !(Maybe Text)-    , _cmuMetadata                :: !(Map Text Text)-    , _cmuCacheControl            :: !(Maybe Text)-    , _cmuContentLanguage         :: !(Maybe Text)-    , _cmuACL                     :: !(Maybe ObjectCannedACL)-    , _cmuContentDisposition      :: !(Maybe Text)-    , _cmuServerSideEncryption    :: !(Maybe ServerSideEncryption)-    , _cmuContentType             :: !(Maybe Text)-    , _cmuBucket                  :: !BucketName-    , _cmuKey                     :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cmuExpires                 :: !(Maybe RFC822)+  , _cmuGrantReadACP            :: !(Maybe Text)+  , _cmuSSECustomerAlgorithm    :: !(Maybe Text)+  , _cmuSSECustomerKey          :: !(Maybe (Sensitive Text))+  , _cmuRequestPayer            :: !(Maybe RequestPayer)+  , _cmuGrantWriteACP           :: !(Maybe Text)+  , _cmuWebsiteRedirectLocation :: !(Maybe Text)+  , _cmuGrantRead               :: !(Maybe Text)+  , _cmuStorageClass            :: !(Maybe StorageClass)+  , _cmuSSECustomerKeyMD5       :: !(Maybe Text)+  , _cmuSSEKMSKeyId             :: !(Maybe (Sensitive Text))+  , _cmuGrantFullControl        :: !(Maybe Text)+  , _cmuContentEncoding         :: !(Maybe Text)+  , _cmuTagging                 :: !(Maybe Text)+  , _cmuMetadata                :: !(Map Text Text)+  , _cmuCacheControl            :: !(Maybe Text)+  , _cmuContentLanguage         :: !(Maybe Text)+  , _cmuACL                     :: !(Maybe ObjectCannedACL)+  , _cmuContentDisposition      :: !(Maybe Text)+  , _cmuServerSideEncryption    :: !(Maybe ServerSideEncryption)+  , _cmuContentType             :: !(Maybe Text)+  , _cmuBucket                  :: !BucketName+  , _cmuKey                     :: !ObjectKey+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateMultipartUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -132,6 +135,8 @@ -- -- * 'cmuContentEncoding' - Specifies what content encodings have been applied to the object and thus what decoding mechanisms must be applied to obtain the media-type referenced by the Content-Type header field. --+-- * 'cmuTagging' - The tag-set for the object. The tag-set must be encoded as URL Query parameters+-- -- * 'cmuMetadata' - A map of metadata to store with the object in S3. -- -- * 'cmuCacheControl' - Specifies caching behavior along the request/reply chain.@@ -154,31 +159,33 @@     -> ObjectKey -- ^ 'cmuKey'     -> CreateMultipartUpload createMultipartUpload pBucket_ pKey_ =-    CreateMultipartUpload'-    { _cmuExpires = Nothing-    , _cmuGrantReadACP = Nothing-    , _cmuSSECustomerAlgorithm = Nothing-    , _cmuSSECustomerKey = Nothing-    , _cmuRequestPayer = Nothing-    , _cmuGrantWriteACP = Nothing-    , _cmuWebsiteRedirectLocation = Nothing-    , _cmuGrantRead = Nothing-    , _cmuStorageClass = Nothing-    , _cmuSSECustomerKeyMD5 = Nothing-    , _cmuSSEKMSKeyId = Nothing-    , _cmuGrantFullControl = Nothing-    , _cmuContentEncoding = Nothing-    , _cmuMetadata = mempty-    , _cmuCacheControl = Nothing-    , _cmuContentLanguage = Nothing-    , _cmuACL = Nothing-    , _cmuContentDisposition = Nothing-    , _cmuServerSideEncryption = Nothing-    , _cmuContentType = Nothing-    , _cmuBucket = pBucket_-    , _cmuKey = pKey_-    }+  CreateMultipartUpload'+  { _cmuExpires = Nothing+  , _cmuGrantReadACP = Nothing+  , _cmuSSECustomerAlgorithm = Nothing+  , _cmuSSECustomerKey = Nothing+  , _cmuRequestPayer = Nothing+  , _cmuGrantWriteACP = Nothing+  , _cmuWebsiteRedirectLocation = Nothing+  , _cmuGrantRead = Nothing+  , _cmuStorageClass = Nothing+  , _cmuSSECustomerKeyMD5 = Nothing+  , _cmuSSEKMSKeyId = Nothing+  , _cmuGrantFullControl = Nothing+  , _cmuContentEncoding = Nothing+  , _cmuTagging = Nothing+  , _cmuMetadata = mempty+  , _cmuCacheControl = Nothing+  , _cmuContentLanguage = Nothing+  , _cmuACL = Nothing+  , _cmuContentDisposition = Nothing+  , _cmuServerSideEncryption = Nothing+  , _cmuContentType = Nothing+  , _cmuBucket = pBucket_+  , _cmuKey = pKey_+  } + -- | The date and time at which the object is no longer cacheable. cmuExpires :: Lens' CreateMultipartUpload (Maybe UTCTime) cmuExpires = lens _cmuExpires (\ s a -> s{_cmuExpires = a}) . mapping _Time;@@ -231,6 +238,10 @@ cmuContentEncoding :: Lens' CreateMultipartUpload (Maybe Text) cmuContentEncoding = lens _cmuContentEncoding (\ s a -> s{_cmuContentEncoding = a}); +-- | The tag-set for the object. The tag-set must be encoded as URL Query parameters+cmuTagging :: Lens' CreateMultipartUpload (Maybe Text)+cmuTagging = lens _cmuTagging (\ s a -> s{_cmuTagging = a});+ -- | A map of metadata to store with the object in S3. cmuMetadata :: Lens' CreateMultipartUpload (HashMap Text Text) cmuMetadata = lens _cmuMetadata (\ s a -> s{_cmuMetadata = a}) . _Map;@@ -291,9 +302,9 @@                      <*> (h .#? "x-amz-server-side-encryption")                      <*> (pure (fromEnum s))) -instance Hashable CreateMultipartUpload+instance Hashable CreateMultipartUpload where -instance NFData CreateMultipartUpload+instance NFData CreateMultipartUpload where  instance ToHeaders CreateMultipartUpload where         toHeaders CreateMultipartUpload'{..}@@ -316,6 +327,7 @@                  _cmuSSEKMSKeyId,                "x-amz-grant-full-control" =# _cmuGrantFullControl,                "Content-Encoding" =# _cmuContentEncoding,+               "x-amz-tagging" =# _cmuTagging,                "x-amz-meta-" =# _cmuMetadata,                "Cache-Control" =# _cmuCacheControl,                "Content-Language" =# _cmuContentLanguage,@@ -334,19 +346,20 @@  -- | /See:/ 'createMultipartUploadResponse' smart constructor. data CreateMultipartUploadResponse = CreateMultipartUploadResponse'-    { _cmursRequestCharged       :: !(Maybe RequestCharged)-    , _cmursBucket               :: !(Maybe BucketName)-    , _cmursSSECustomerAlgorithm :: !(Maybe Text)-    , _cmursAbortDate            :: !(Maybe RFC822)-    , _cmursAbortRuleId          :: !(Maybe Text)-    , _cmursKey                  :: !(Maybe ObjectKey)-    , _cmursSSECustomerKeyMD5    :: !(Maybe Text)-    , _cmursSSEKMSKeyId          :: !(Maybe (Sensitive Text))-    , _cmursUploadId             :: !(Maybe Text)-    , _cmursServerSideEncryption :: !(Maybe ServerSideEncryption)-    , _cmursResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cmursRequestCharged       :: !(Maybe RequestCharged)+  , _cmursBucket               :: !(Maybe BucketName)+  , _cmursSSECustomerAlgorithm :: !(Maybe Text)+  , _cmursAbortDate            :: !(Maybe RFC822)+  , _cmursAbortRuleId          :: !(Maybe Text)+  , _cmursKey                  :: !(Maybe ObjectKey)+  , _cmursSSECustomerKeyMD5    :: !(Maybe Text)+  , _cmursSSEKMSKeyId          :: !(Maybe (Sensitive Text))+  , _cmursUploadId             :: !(Maybe Text)+  , _cmursServerSideEncryption :: !(Maybe ServerSideEncryption)+  , _cmursResponseStatus       :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateMultipartUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -376,20 +389,21 @@     :: Int -- ^ 'cmursResponseStatus'     -> CreateMultipartUploadResponse createMultipartUploadResponse pResponseStatus_ =-    CreateMultipartUploadResponse'-    { _cmursRequestCharged = Nothing-    , _cmursBucket = Nothing-    , _cmursSSECustomerAlgorithm = Nothing-    , _cmursAbortDate = Nothing-    , _cmursAbortRuleId = Nothing-    , _cmursKey = Nothing-    , _cmursSSECustomerKeyMD5 = Nothing-    , _cmursSSEKMSKeyId = Nothing-    , _cmursUploadId = Nothing-    , _cmursServerSideEncryption = Nothing-    , _cmursResponseStatus = pResponseStatus_-    }+  CreateMultipartUploadResponse'+  { _cmursRequestCharged = Nothing+  , _cmursBucket = Nothing+  , _cmursSSECustomerAlgorithm = Nothing+  , _cmursAbortDate = Nothing+  , _cmursAbortRuleId = Nothing+  , _cmursKey = Nothing+  , _cmursSSECustomerKeyMD5 = Nothing+  , _cmursSSEKMSKeyId = Nothing+  , _cmursUploadId = Nothing+  , _cmursServerSideEncryption = Nothing+  , _cmursResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cmursRequestCharged :: Lens' CreateMultipartUploadResponse (Maybe RequestCharged) cmursRequestCharged = lens _cmursRequestCharged (\ s a -> s{_cmursRequestCharged = a});@@ -434,4 +448,4 @@ cmursResponseStatus :: Lens' CreateMultipartUploadResponse Int cmursResponseStatus = lens _cmursResponseStatus (\ s a -> s{_cmursResponseStatus = a}); -instance NFData CreateMultipartUploadResponse+instance NFData CreateMultipartUploadResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucket--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketResponse     ) 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+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:/ 'deleteBucket' smart constructor. newtype DeleteBucket = DeleteBucket'-    { _dbBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucket     :: BucketName -- ^ 'dbBucket'     -> DeleteBucket-deleteBucket pBucket_ =-    DeleteBucket'-    { _dbBucket = pBucket_-    }+deleteBucket pBucket_ = DeleteBucket' {_dbBucket = pBucket_} + -- | Undocumented member. dbBucket :: Lens' DeleteBucket BucketName dbBucket = lens _dbBucket (\ s a -> s{_dbBucket = a});@@ -66,9 +65,9 @@         request = delete s3         response = receiveNull DeleteBucketResponse' -instance Hashable DeleteBucket+instance Hashable DeleteBucket where -instance NFData DeleteBucket+instance NFData DeleteBucket where  instance ToHeaders DeleteBucket where         toHeaders = const mempty@@ -82,13 +81,15 @@  -- | /See:/ 'deleteBucketResponse' smart constructor. data DeleteBucketResponse =-    DeleteBucketResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketResponse' with the minimum fields required to make a request. -- deleteBucketResponse     :: DeleteBucketResponse deleteBucketResponse = DeleteBucketResponse' -instance NFData DeleteBucketResponse++instance NFData DeleteBucketResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketAnalyticsConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,19 +33,20 @@     , DeleteBucketAnalyticsConfigurationResponse     ) 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+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:/ 'deleteBucketAnalyticsConfiguration' smart constructor. data DeleteBucketAnalyticsConfiguration = DeleteBucketAnalyticsConfiguration'-    { _dbacBucket :: !BucketName-    , _dbacId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbacBucket :: !BucketName+  , _dbacId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketAnalyticsConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@     -> Text -- ^ 'dbacId'     -> DeleteBucketAnalyticsConfiguration deleteBucketAnalyticsConfiguration pBucket_ pId_ =-    DeleteBucketAnalyticsConfiguration'-    { _dbacBucket = pBucket_-    , _dbacId = pId_-    }+  DeleteBucketAnalyticsConfiguration' {_dbacBucket = pBucket_, _dbacId = pId_} + -- | The name of the bucket from which an analytics configuration is deleted. dbacBucket :: Lens' DeleteBucketAnalyticsConfiguration BucketName dbacBucket = lens _dbacBucket (\ s a -> s{_dbacBucket = a});@@ -72,7 +71,8 @@ dbacId = lens _dbacId (\ s a -> s{_dbacId = a});  instance AWSRequest-         DeleteBucketAnalyticsConfiguration where+           DeleteBucketAnalyticsConfiguration+         where         type Rs DeleteBucketAnalyticsConfiguration =              DeleteBucketAnalyticsConfigurationResponse         request = delete s3@@ -81,8 +81,10 @@               DeleteBucketAnalyticsConfigurationResponse'  instance Hashable DeleteBucketAnalyticsConfiguration+         where  instance NFData DeleteBucketAnalyticsConfiguration+         where  instance ToHeaders DeleteBucketAnalyticsConfiguration          where@@ -100,15 +102,18 @@  -- | /See:/ 'deleteBucketAnalyticsConfigurationResponse' smart constructor. data DeleteBucketAnalyticsConfigurationResponse =-    DeleteBucketAnalyticsConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketAnalyticsConfigurationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketAnalyticsConfigurationResponse' with the minimum fields required to make a request. -- deleteBucketAnalyticsConfigurationResponse     :: DeleteBucketAnalyticsConfigurationResponse deleteBucketAnalyticsConfigurationResponse =-    DeleteBucketAnalyticsConfigurationResponse'+  DeleteBucketAnalyticsConfigurationResponse' + instance NFData-         DeleteBucketAnalyticsConfigurationResponse+           DeleteBucketAnalyticsConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketCORS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketCORSResponse     ) 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+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:/ 'deleteBucketCORS' smart constructor. newtype DeleteBucketCORS = DeleteBucketCORS'-    { _dbcBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbcBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketCORS' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucketCORS     :: BucketName -- ^ 'dbcBucket'     -> DeleteBucketCORS-deleteBucketCORS pBucket_ =-    DeleteBucketCORS'-    { _dbcBucket = pBucket_-    }+deleteBucketCORS pBucket_ = DeleteBucketCORS' {_dbcBucket = pBucket_} + -- | Undocumented member. dbcBucket :: Lens' DeleteBucketCORS BucketName dbcBucket = lens _dbcBucket (\ s a -> s{_dbcBucket = a});@@ -66,9 +65,9 @@         request = delete s3         response = receiveNull DeleteBucketCORSResponse' -instance Hashable DeleteBucketCORS+instance Hashable DeleteBucketCORS where -instance NFData DeleteBucketCORS+instance NFData DeleteBucketCORS where  instance ToHeaders DeleteBucketCORS where         toHeaders = const mempty@@ -82,13 +81,15 @@  -- | /See:/ 'deleteBucketCORSResponse' smart constructor. data DeleteBucketCORSResponse =-    DeleteBucketCORSResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketCORSResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketCORSResponse' with the minimum fields required to make a request. -- deleteBucketCORSResponse     :: DeleteBucketCORSResponse deleteBucketCORSResponse = DeleteBucketCORSResponse' -instance NFData DeleteBucketCORSResponse++instance NFData DeleteBucketCORSResponse where

@@ -0,0 +1,98 @@+{-# 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.DeleteBucketEncryption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the server-side encryption configuration from the bucket.+module Network.AWS.S3.DeleteBucketEncryption+    (+    -- * Creating a Request+      deleteBucketEncryption+    , DeleteBucketEncryption+    -- * Request Lenses+    , dbeBucket++    -- * Destructuring the Response+    , deleteBucketEncryptionResponse+    , DeleteBucketEncryptionResponse+    ) 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:/ 'deleteBucketEncryption' smart constructor.+newtype DeleteBucketEncryption = DeleteBucketEncryption'+  { _dbeBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteBucketEncryption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbeBucket' - The name of the bucket containing the server-side encryption configuration to delete.+deleteBucketEncryption+    :: BucketName -- ^ 'dbeBucket'+    -> DeleteBucketEncryption+deleteBucketEncryption pBucket_ =+  DeleteBucketEncryption' {_dbeBucket = pBucket_}+++-- | The name of the bucket containing the server-side encryption configuration to delete.+dbeBucket :: Lens' DeleteBucketEncryption BucketName+dbeBucket = lens _dbeBucket (\ s a -> s{_dbeBucket = a});++instance AWSRequest DeleteBucketEncryption where+        type Rs DeleteBucketEncryption =+             DeleteBucketEncryptionResponse+        request = delete s3+        response+          = receiveNull DeleteBucketEncryptionResponse'++instance Hashable DeleteBucketEncryption where++instance NFData DeleteBucketEncryption where++instance ToHeaders DeleteBucketEncryption where+        toHeaders = const mempty++instance ToPath DeleteBucketEncryption where+        toPath DeleteBucketEncryption'{..}+          = mconcat ["/", toBS _dbeBucket]++instance ToQuery DeleteBucketEncryption where+        toQuery = const (mconcat ["encryption"])++-- | /See:/ 'deleteBucketEncryptionResponse' smart constructor.+data DeleteBucketEncryptionResponse =+  DeleteBucketEncryptionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteBucketEncryptionResponse' with the minimum fields required to make a request.+--+deleteBucketEncryptionResponse+    :: DeleteBucketEncryptionResponse+deleteBucketEncryptionResponse = DeleteBucketEncryptionResponse'+++instance NFData DeleteBucketEncryptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketInventoryConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,19 +33,20 @@     , DeleteBucketInventoryConfigurationResponse     ) 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+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:/ 'deleteBucketInventoryConfiguration' smart constructor. data DeleteBucketInventoryConfiguration = DeleteBucketInventoryConfiguration'-    { _dbicBucket :: !BucketName-    , _dbicId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbicBucket :: !BucketName+  , _dbicId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketInventoryConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@     -> Text -- ^ 'dbicId'     -> DeleteBucketInventoryConfiguration deleteBucketInventoryConfiguration pBucket_ pId_ =-    DeleteBucketInventoryConfiguration'-    { _dbicBucket = pBucket_-    , _dbicId = pId_-    }+  DeleteBucketInventoryConfiguration' {_dbicBucket = pBucket_, _dbicId = pId_} + -- | The name of the bucket containing the inventory configuration to delete. dbicBucket :: Lens' DeleteBucketInventoryConfiguration BucketName dbicBucket = lens _dbicBucket (\ s a -> s{_dbicBucket = a});@@ -72,7 +71,8 @@ dbicId = lens _dbicId (\ s a -> s{_dbicId = a});  instance AWSRequest-         DeleteBucketInventoryConfiguration where+           DeleteBucketInventoryConfiguration+         where         type Rs DeleteBucketInventoryConfiguration =              DeleteBucketInventoryConfigurationResponse         request = delete s3@@ -81,8 +81,10 @@               DeleteBucketInventoryConfigurationResponse'  instance Hashable DeleteBucketInventoryConfiguration+         where  instance NFData DeleteBucketInventoryConfiguration+         where  instance ToHeaders DeleteBucketInventoryConfiguration          where@@ -100,15 +102,18 @@  -- | /See:/ 'deleteBucketInventoryConfigurationResponse' smart constructor. data DeleteBucketInventoryConfigurationResponse =-    DeleteBucketInventoryConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketInventoryConfigurationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketInventoryConfigurationResponse' with the minimum fields required to make a request. -- deleteBucketInventoryConfigurationResponse     :: DeleteBucketInventoryConfigurationResponse deleteBucketInventoryConfigurationResponse =-    DeleteBucketInventoryConfigurationResponse'+  DeleteBucketInventoryConfigurationResponse' + instance NFData-         DeleteBucketInventoryConfigurationResponse+           DeleteBucketInventoryConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketLifecycle--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketLifecycleResponse     ) 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+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:/ 'deleteBucketLifecycle' smart constructor. newtype DeleteBucketLifecycle = DeleteBucketLifecycle'-    { _dblBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dblBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketLifecycle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucketLifecycle     :: BucketName -- ^ 'dblBucket'     -> DeleteBucketLifecycle-deleteBucketLifecycle pBucket_ =-    DeleteBucketLifecycle'-    { _dblBucket = pBucket_-    }+deleteBucketLifecycle pBucket_ = DeleteBucketLifecycle' {_dblBucket = pBucket_} + -- | Undocumented member. dblBucket :: Lens' DeleteBucketLifecycle BucketName dblBucket = lens _dblBucket (\ s a -> s{_dblBucket = a});@@ -67,9 +66,9 @@         request = delete s3         response = receiveNull DeleteBucketLifecycleResponse' -instance Hashable DeleteBucketLifecycle+instance Hashable DeleteBucketLifecycle where -instance NFData DeleteBucketLifecycle+instance NFData DeleteBucketLifecycle where  instance ToHeaders DeleteBucketLifecycle where         toHeaders = const mempty@@ -83,13 +82,15 @@  -- | /See:/ 'deleteBucketLifecycleResponse' smart constructor. data DeleteBucketLifecycleResponse =-    DeleteBucketLifecycleResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketLifecycleResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketLifecycleResponse' with the minimum fields required to make a request. -- deleteBucketLifecycleResponse     :: DeleteBucketLifecycleResponse deleteBucketLifecycleResponse = DeleteBucketLifecycleResponse' -instance NFData DeleteBucketLifecycleResponse++instance NFData DeleteBucketLifecycleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketMetricsConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,19 +33,20 @@     , DeleteBucketMetricsConfigurationResponse     ) 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+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:/ 'deleteBucketMetricsConfiguration' smart constructor. data DeleteBucketMetricsConfiguration = DeleteBucketMetricsConfiguration'-    { _dbmcBucket :: !BucketName-    , _dbmcId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbmcBucket :: !BucketName+  , _dbmcId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketMetricsConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@     -> Text -- ^ 'dbmcId'     -> DeleteBucketMetricsConfiguration deleteBucketMetricsConfiguration pBucket_ pId_ =-    DeleteBucketMetricsConfiguration'-    { _dbmcBucket = pBucket_-    , _dbmcId = pId_-    }+  DeleteBucketMetricsConfiguration' {_dbmcBucket = pBucket_, _dbmcId = pId_} + -- | The name of the bucket containing the metrics configuration to delete. dbmcBucket :: Lens' DeleteBucketMetricsConfiguration BucketName dbmcBucket = lens _dbmcBucket (\ s a -> s{_dbmcBucket = a});@@ -81,8 +80,10 @@               DeleteBucketMetricsConfigurationResponse'  instance Hashable DeleteBucketMetricsConfiguration+         where  instance NFData DeleteBucketMetricsConfiguration+         where  instance ToHeaders DeleteBucketMetricsConfiguration          where@@ -100,15 +101,18 @@  -- | /See:/ 'deleteBucketMetricsConfigurationResponse' smart constructor. data DeleteBucketMetricsConfigurationResponse =-    DeleteBucketMetricsConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketMetricsConfigurationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketMetricsConfigurationResponse' with the minimum fields required to make a request. -- deleteBucketMetricsConfigurationResponse     :: DeleteBucketMetricsConfigurationResponse deleteBucketMetricsConfigurationResponse =-    DeleteBucketMetricsConfigurationResponse'+  DeleteBucketMetricsConfigurationResponse' + instance NFData-         DeleteBucketMetricsConfigurationResponse+           DeleteBucketMetricsConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketPolicyResponse     ) 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+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:/ 'deleteBucketPolicy' smart constructor. newtype DeleteBucketPolicy = DeleteBucketPolicy'-    { _dbpBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbpBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucketPolicy     :: BucketName -- ^ 'dbpBucket'     -> DeleteBucketPolicy-deleteBucketPolicy pBucket_ =-    DeleteBucketPolicy'-    { _dbpBucket = pBucket_-    }+deleteBucketPolicy pBucket_ = DeleteBucketPolicy' {_dbpBucket = pBucket_} + -- | Undocumented member. dbpBucket :: Lens' DeleteBucketPolicy BucketName dbpBucket = lens _dbpBucket (\ s a -> s{_dbpBucket = a});@@ -67,9 +66,9 @@         request = delete s3         response = receiveNull DeleteBucketPolicyResponse' -instance Hashable DeleteBucketPolicy+instance Hashable DeleteBucketPolicy where -instance NFData DeleteBucketPolicy+instance NFData DeleteBucketPolicy where  instance ToHeaders DeleteBucketPolicy where         toHeaders = const mempty@@ -83,13 +82,15 @@  -- | /See:/ 'deleteBucketPolicyResponse' smart constructor. data DeleteBucketPolicyResponse =-    DeleteBucketPolicyResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketPolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketPolicyResponse' with the minimum fields required to make a request. -- deleteBucketPolicyResponse     :: DeleteBucketPolicyResponse deleteBucketPolicyResponse = DeleteBucketPolicyResponse' -instance NFData DeleteBucketPolicyResponse++instance NFData DeleteBucketPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketReplication--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketReplicationResponse     ) 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+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:/ 'deleteBucketReplication' smart constructor. newtype DeleteBucketReplication = DeleteBucketReplication'-    { _dbrBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketReplication' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -53,10 +54,9 @@     :: BucketName -- ^ 'dbrBucket'     -> DeleteBucketReplication deleteBucketReplication pBucket_ =-    DeleteBucketReplication'-    { _dbrBucket = pBucket_-    }+  DeleteBucketReplication' {_dbrBucket = pBucket_} + -- | Undocumented member. dbrBucket :: Lens' DeleteBucketReplication BucketName dbrBucket = lens _dbrBucket (\ s a -> s{_dbrBucket = a});@@ -68,9 +68,9 @@         response           = receiveNull DeleteBucketReplicationResponse' -instance Hashable DeleteBucketReplication+instance Hashable DeleteBucketReplication where -instance NFData DeleteBucketReplication+instance NFData DeleteBucketReplication where  instance ToHeaders DeleteBucketReplication where         toHeaders = const mempty@@ -84,13 +84,15 @@  -- | /See:/ 'deleteBucketReplicationResponse' smart constructor. data DeleteBucketReplicationResponse =-    DeleteBucketReplicationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketReplicationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketReplicationResponse' with the minimum fields required to make a request. -- deleteBucketReplicationResponse     :: DeleteBucketReplicationResponse deleteBucketReplicationResponse = DeleteBucketReplicationResponse' -instance NFData DeleteBucketReplicationResponse++instance NFData DeleteBucketReplicationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketTagging--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketTaggingResponse     ) 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+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:/ 'deleteBucketTagging' smart constructor. newtype DeleteBucketTagging = DeleteBucketTagging'-    { _dbtBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbtBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketTagging' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucketTagging     :: BucketName -- ^ 'dbtBucket'     -> DeleteBucketTagging-deleteBucketTagging pBucket_ =-    DeleteBucketTagging'-    { _dbtBucket = pBucket_-    }+deleteBucketTagging pBucket_ = DeleteBucketTagging' {_dbtBucket = pBucket_} + -- | Undocumented member. dbtBucket :: Lens' DeleteBucketTagging BucketName dbtBucket = lens _dbtBucket (\ s a -> s{_dbtBucket = a});@@ -67,9 +66,9 @@         request = delete s3         response = receiveNull DeleteBucketTaggingResponse' -instance Hashable DeleteBucketTagging+instance Hashable DeleteBucketTagging where -instance NFData DeleteBucketTagging+instance NFData DeleteBucketTagging where  instance ToHeaders DeleteBucketTagging where         toHeaders = const mempty@@ -83,13 +82,15 @@  -- | /See:/ 'deleteBucketTaggingResponse' smart constructor. data DeleteBucketTaggingResponse =-    DeleteBucketTaggingResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketTaggingResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketTaggingResponse' with the minimum fields required to make a request. -- deleteBucketTaggingResponse     :: DeleteBucketTaggingResponse deleteBucketTaggingResponse = DeleteBucketTaggingResponse' -instance NFData DeleteBucketTaggingResponse++instance NFData DeleteBucketTaggingResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteBucketWebsite--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , DeleteBucketWebsiteResponse     ) 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+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:/ 'deleteBucketWebsite' smart constructor. newtype DeleteBucketWebsite = DeleteBucketWebsite'-    { _dbwBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbwBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketWebsite' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ deleteBucketWebsite     :: BucketName -- ^ 'dbwBucket'     -> DeleteBucketWebsite-deleteBucketWebsite pBucket_ =-    DeleteBucketWebsite'-    { _dbwBucket = pBucket_-    }+deleteBucketWebsite pBucket_ = DeleteBucketWebsite' {_dbwBucket = pBucket_} + -- | Undocumented member. dbwBucket :: Lens' DeleteBucketWebsite BucketName dbwBucket = lens _dbwBucket (\ s a -> s{_dbwBucket = a});@@ -67,9 +66,9 @@         request = delete s3         response = receiveNull DeleteBucketWebsiteResponse' -instance Hashable DeleteBucketWebsite+instance Hashable DeleteBucketWebsite where -instance NFData DeleteBucketWebsite+instance NFData DeleteBucketWebsite where  instance ToHeaders DeleteBucketWebsite where         toHeaders = const mempty@@ -83,13 +82,15 @@  -- | /See:/ 'deleteBucketWebsiteResponse' smart constructor. data DeleteBucketWebsiteResponse =-    DeleteBucketWebsiteResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBucketWebsiteResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBucketWebsiteResponse' with the minimum fields required to make a request. -- deleteBucketWebsiteResponse     :: DeleteBucketWebsiteResponse deleteBucketWebsiteResponse = DeleteBucketWebsiteResponse' -instance NFData DeleteBucketWebsiteResponse++instance NFData DeleteBucketWebsiteResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteObject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,22 +41,23 @@     , dorsResponseStatus     ) 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+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:/ 'deleteObject' smart constructor. data DeleteObject = DeleteObject'-    { _doVersionId    :: !(Maybe ObjectVersionId)-    , _doMFA          :: !(Maybe Text)-    , _doRequestPayer :: !(Maybe RequestPayer)-    , _doBucket       :: !BucketName-    , _doKey          :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _doVersionId    :: !(Maybe ObjectVersionId)+  , _doMFA          :: !(Maybe Text)+  , _doRequestPayer :: !(Maybe RequestPayer)+  , _doBucket       :: !BucketName+  , _doKey          :: !ObjectKey+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,14 +76,15 @@     -> ObjectKey -- ^ 'doKey'     -> DeleteObject deleteObject pBucket_ pKey_ =-    DeleteObject'-    { _doVersionId = Nothing-    , _doMFA = Nothing-    , _doRequestPayer = Nothing-    , _doBucket = pBucket_-    , _doKey = pKey_-    }+  DeleteObject'+  { _doVersionId = Nothing+  , _doMFA = Nothing+  , _doRequestPayer = Nothing+  , _doBucket = pBucket_+  , _doKey = pKey_+  } + -- | VersionId used to reference a specific version of the object. doVersionId :: Lens' DeleteObject (Maybe ObjectVersionId) doVersionId = lens _doVersionId (\ s a -> s{_doVersionId = a});@@ -115,9 +117,9 @@                      <*> (h .#? "x-amz-delete-marker")                      <*> (pure (fromEnum s))) -instance Hashable DeleteObject+instance Hashable DeleteObject where -instance NFData DeleteObject+instance NFData DeleteObject where  instance ToHeaders DeleteObject where         toHeaders DeleteObject'{..}@@ -135,12 +137,13 @@  -- | /See:/ 'deleteObjectResponse' smart constructor. data DeleteObjectResponse = DeleteObjectResponse'-    { _dorsRequestCharged :: !(Maybe RequestCharged)-    , _dorsVersionId      :: !(Maybe ObjectVersionId)-    , _dorsDeleteMarker   :: !(Maybe Bool)-    , _dorsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dorsRequestCharged :: !(Maybe RequestCharged)+  , _dorsVersionId      :: !(Maybe ObjectVersionId)+  , _dorsDeleteMarker   :: !(Maybe Bool)+  , _dorsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,13 +159,14 @@     :: Int -- ^ 'dorsResponseStatus'     -> DeleteObjectResponse deleteObjectResponse pResponseStatus_ =-    DeleteObjectResponse'-    { _dorsRequestCharged = Nothing-    , _dorsVersionId = Nothing-    , _dorsDeleteMarker = Nothing-    , _dorsResponseStatus = pResponseStatus_-    }+  DeleteObjectResponse'+  { _dorsRequestCharged = Nothing+  , _dorsVersionId = Nothing+  , _dorsDeleteMarker = Nothing+  , _dorsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dorsRequestCharged :: Lens' DeleteObjectResponse (Maybe RequestCharged) dorsRequestCharged = lens _dorsRequestCharged (\ s a -> s{_dorsRequestCharged = a});@@ -179,4 +183,4 @@ dorsResponseStatus :: Lens' DeleteObjectResponse Int dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a}); -instance NFData DeleteObjectResponse+instance NFData DeleteObjectResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteObjectTagging--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,20 +37,21 @@     , dotrsResponseStatus     ) 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+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:/ 'deleteObjectTagging' smart constructor. data DeleteObjectTagging = DeleteObjectTagging'-    { _dotVersionId :: !(Maybe ObjectVersionId)-    , _dotBucket    :: !BucketName-    , _dotKey       :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dotVersionId :: !(Maybe ObjectVersionId)+  , _dotBucket    :: !BucketName+  , _dotKey       :: !ObjectKey+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObjectTagging' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,12 +66,10 @@     -> ObjectKey -- ^ 'dotKey'     -> DeleteObjectTagging deleteObjectTagging pBucket_ pKey_ =-    DeleteObjectTagging'-    { _dotVersionId = Nothing-    , _dotBucket = pBucket_-    , _dotKey = pKey_-    }+  DeleteObjectTagging'+  {_dotVersionId = Nothing, _dotBucket = pBucket_, _dotKey = pKey_} + -- | The versionId of the object that the tag-set will be removed from. dotVersionId :: Lens' DeleteObjectTagging (Maybe ObjectVersionId) dotVersionId = lens _dotVersionId (\ s a -> s{_dotVersionId = a});@@ -93,9 +92,9 @@                  DeleteObjectTaggingResponse' <$>                    (h .#? "x-amz-version-id") <*> (pure (fromEnum s))) -instance Hashable DeleteObjectTagging+instance Hashable DeleteObjectTagging where -instance NFData DeleteObjectTagging+instance NFData DeleteObjectTagging where  instance ToHeaders DeleteObjectTagging where         toHeaders = const mempty@@ -110,10 +109,11 @@  -- | /See:/ 'deleteObjectTaggingResponse' smart constructor. data DeleteObjectTaggingResponse = DeleteObjectTaggingResponse'-    { _dotrsVersionId      :: !(Maybe ObjectVersionId)-    , _dotrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dotrsVersionId      :: !(Maybe ObjectVersionId)+  , _dotrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObjectTaggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +125,10 @@     :: Int -- ^ 'dotrsResponseStatus'     -> DeleteObjectTaggingResponse deleteObjectTaggingResponse pResponseStatus_ =-    DeleteObjectTaggingResponse'-    { _dotrsVersionId = Nothing-    , _dotrsResponseStatus = pResponseStatus_-    }+  DeleteObjectTaggingResponse'+  {_dotrsVersionId = Nothing, _dotrsResponseStatus = pResponseStatus_} + -- | The versionId of the object the tag-set was removed from. dotrsVersionId :: Lens' DeleteObjectTaggingResponse (Maybe ObjectVersionId) dotrsVersionId = lens _dotrsVersionId (\ s a -> s{_dotrsVersionId = a});@@ -138,4 +137,4 @@ dotrsResponseStatus :: Lens' DeleteObjectTaggingResponse Int dotrsResponseStatus = lens _dotrsResponseStatus (\ s a -> s{_dotrsResponseStatus = a}); -instance NFData DeleteObjectTaggingResponse+instance NFData DeleteObjectTaggingResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.DeleteObjects--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,21 +40,22 @@     , drsResponseStatus     ) 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+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:/ 'deleteObjects' smart constructor. data DeleteObjects = DeleteObjects'-    { _dosMFA          :: !(Maybe Text)-    , _dosRequestPayer :: !(Maybe RequestPayer)-    , _dosBucket       :: !BucketName-    , _dosDelete       :: !Delete-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dosMFA          :: !(Maybe Text)+  , _dosRequestPayer :: !(Maybe RequestPayer)+  , _dosBucket       :: !BucketName+  , _dosDelete       :: !Delete+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,13 +72,14 @@     -> Delete -- ^ 'dosDelete'     -> DeleteObjects deleteObjects pBucket_ pDelete_ =-    DeleteObjects'-    { _dosMFA = Nothing-    , _dosRequestPayer = Nothing-    , _dosBucket = pBucket_-    , _dosDelete = pDelete_-    }+  DeleteObjects'+  { _dosMFA = Nothing+  , _dosRequestPayer = Nothing+  , _dosBucket = pBucket_+  , _dosDelete = pDelete_+  } + -- | The concatenation of the authentication device's serial number, a space, and the value that is displayed on your authentication device. dosMFA :: Lens' DeleteObjects (Maybe Text) dosMFA = lens _dosMFA (\ s a -> s{_dosMFA = a});@@ -106,9 +108,9 @@                      <*> (may (parseXMLList "Error") x)                      <*> (pure (fromEnum s))) -instance Hashable DeleteObjects+instance Hashable DeleteObjects where -instance NFData DeleteObjects+instance NFData DeleteObjects where  instance ToElement DeleteObjects where         toElement@@ -132,12 +134,13 @@  -- | /See:/ 'deleteObjectsResponse' smart constructor. data DeleteObjectsResponse = DeleteObjectsResponse'-    { _drsRequestCharged :: !(Maybe RequestCharged)-    , _drsDeleted        :: !(Maybe [DeletedObject])-    , _drsErrors         :: !(Maybe [S3ServiceError])-    , _drsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsRequestCharged :: !(Maybe RequestCharged)+  , _drsDeleted        :: !(Maybe [DeletedObject])+  , _drsErrors         :: !(Maybe [S3ServiceError])+  , _drsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteObjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,13 +156,14 @@     :: Int -- ^ 'drsResponseStatus'     -> DeleteObjectsResponse deleteObjectsResponse pResponseStatus_ =-    DeleteObjectsResponse'-    { _drsRequestCharged = Nothing-    , _drsDeleted = Nothing-    , _drsErrors = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DeleteObjectsResponse'+  { _drsRequestCharged = Nothing+  , _drsDeleted = Nothing+  , _drsErrors = Nothing+  , _drsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. drsRequestCharged :: Lens' DeleteObjectsResponse (Maybe RequestCharged) drsRequestCharged = lens _drsRequestCharged (\ s a -> s{_drsRequestCharged = a});@@ -176,4 +180,4 @@ drsResponseStatus :: Lens' DeleteObjectsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteObjectsResponse+instance NFData DeleteObjectsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,18 +36,19 @@     , gbarsResponseStatus     ) 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+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:/ 'getBucketACL' smart constructor. newtype GetBucketACL = GetBucketACL'-    { _gbaBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbaBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,11 +57,9 @@ getBucketACL     :: BucketName -- ^ 'gbaBucket'     -> GetBucketACL-getBucketACL pBucket_ =-    GetBucketACL'-    { _gbaBucket = pBucket_-    }+getBucketACL pBucket_ = GetBucketACL' {_gbaBucket = pBucket_} + -- | Undocumented member. gbaBucket :: Lens' GetBucketACL BucketName gbaBucket = lens _gbaBucket (\ s a -> s{_gbaBucket = a});@@ -77,9 +76,9 @@                      <*> (x .@? "Owner")                      <*> (pure (fromEnum s))) -instance Hashable GetBucketACL+instance Hashable GetBucketACL where -instance NFData GetBucketACL+instance NFData GetBucketACL where  instance ToHeaders GetBucketACL where         toHeaders = const mempty@@ -93,11 +92,12 @@  -- | /See:/ 'getBucketACLResponse' smart constructor. data GetBucketACLResponse = GetBucketACLResponse'-    { _gbarsGrants         :: !(Maybe [Grant])-    , _gbarsOwner          :: !(Maybe Owner)-    , _gbarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbarsGrants         :: !(Maybe [Grant])+  , _gbarsOwner          :: !(Maybe Owner)+  , _gbarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketACLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,12 +111,13 @@     :: Int -- ^ 'gbarsResponseStatus'     -> GetBucketACLResponse getBucketACLResponse pResponseStatus_ =-    GetBucketACLResponse'-    { _gbarsGrants = Nothing-    , _gbarsOwner = Nothing-    , _gbarsResponseStatus = pResponseStatus_-    }+  GetBucketACLResponse'+  { _gbarsGrants = Nothing+  , _gbarsOwner = Nothing+  , _gbarsResponseStatus = pResponseStatus_+  } + -- | A list of grants. gbarsGrants :: Lens' GetBucketACLResponse [Grant] gbarsGrants = lens _gbarsGrants (\ s a -> s{_gbarsGrants = a}) . _Default . _Coerce;@@ -129,4 +130,4 @@ gbarsResponseStatus :: Lens' GetBucketACLResponse Int gbarsResponseStatus = lens _gbarsResponseStatus (\ s a -> s{_gbarsResponseStatus = a}); -instance NFData GetBucketACLResponse+instance NFData GetBucketACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketAccelerateConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , grsResponseStatus     ) 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+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)+  { _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:@@ -56,10 +57,9 @@     :: BucketName -- ^ 'gbacBucket'     -> GetBucketAccelerateConfiguration getBucketAccelerateConfiguration pBucket_ =-    GetBucketAccelerateConfiguration'-    { _gbacBucket = 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});@@ -76,8 +76,10 @@                    (x .@? "Status") <*> (pure (fromEnum s)))  instance Hashable GetBucketAccelerateConfiguration+         where  instance NFData GetBucketAccelerateConfiguration+         where  instance ToHeaders GetBucketAccelerateConfiguration          where@@ -94,10 +96,11 @@  -- | /See:/ 'getBucketAccelerateConfigurationResponse' smart constructor. data GetBucketAccelerateConfigurationResponse = GetBucketAccelerateConfigurationResponse'-    { _grsStatus         :: !(Maybe BucketAccelerateStatus)-    , _grsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _grsStatus         :: !(Maybe BucketAccelerateStatus)+  , _grsResponseStatus :: !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:@@ -109,11 +112,10 @@     :: Int -- ^ 'grsResponseStatus'     -> GetBucketAccelerateConfigurationResponse getBucketAccelerateConfigurationResponse pResponseStatus_ =-    GetBucketAccelerateConfigurationResponse'-    { _grsStatus = Nothing-    , _grsResponseStatus = pResponseStatus_-    }+  GetBucketAccelerateConfigurationResponse'+  {_grsStatus = Nothing, _grsResponseStatus = pResponseStatus_} + -- | The accelerate configuration of the bucket. grsStatus :: Lens' GetBucketAccelerateConfigurationResponse (Maybe BucketAccelerateStatus) grsStatus = lens _grsStatus (\ s a -> s{_grsStatus = a});@@ -123,4 +125,5 @@ grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});  instance NFData-         GetBucketAccelerateConfigurationResponse+           GetBucketAccelerateConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketAnalyticsConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , 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+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:/ 'getBucketAnalyticsConfiguration' smart constructor. data GetBucketAnalyticsConfiguration = GetBucketAnalyticsConfiguration'-    { _getBucket :: !BucketName-    , _getId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _getBucket :: !BucketName+  , _getId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketAnalyticsConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@     -> Text -- ^ 'getId'     -> GetBucketAnalyticsConfiguration getBucketAnalyticsConfiguration pBucket_ pId_ =-    GetBucketAnalyticsConfiguration'-    { _getBucket = pBucket_-    , _getId = pId_-    }+  GetBucketAnalyticsConfiguration' {_getBucket = pBucket_, _getId = pId_} + -- | The name of the bucket from which an analytics configuration is retrieved. getBucket :: Lens' GetBucketAnalyticsConfiguration BucketName getBucket = lens _getBucket (\ s a -> s{_getBucket = a});@@ -86,8 +85,9 @@                    (parseXML x) <*> (pure (fromEnum s)))  instance Hashable GetBucketAnalyticsConfiguration+         where -instance NFData GetBucketAnalyticsConfiguration+instance NFData GetBucketAnalyticsConfiguration where  instance ToHeaders GetBucketAnalyticsConfiguration          where@@ -104,10 +104,11 @@  -- | /See:/ 'getBucketAnalyticsConfigurationResponse' smart constructor. data GetBucketAnalyticsConfigurationResponse = GetBucketAnalyticsConfigurationResponse'-    { _gbacrsAnalyticsConfiguration :: !(Maybe AnalyticsConfiguration)-    , _gbacrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbacrsAnalyticsConfiguration :: !(Maybe AnalyticsConfiguration)+  , _gbacrsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketAnalyticsConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,11 +120,12 @@     :: Int -- ^ 'gbacrsResponseStatus'     -> GetBucketAnalyticsConfigurationResponse getBucketAnalyticsConfigurationResponse pResponseStatus_ =-    GetBucketAnalyticsConfigurationResponse'-    { _gbacrsAnalyticsConfiguration = Nothing-    , _gbacrsResponseStatus = pResponseStatus_-    }+  GetBucketAnalyticsConfigurationResponse'+  { _gbacrsAnalyticsConfiguration = Nothing+  , _gbacrsResponseStatus = pResponseStatus_+  } + -- | The configuration and any analyses for the analytics filter. gbacrsAnalyticsConfiguration :: Lens' GetBucketAnalyticsConfigurationResponse (Maybe AnalyticsConfiguration) gbacrsAnalyticsConfiguration = lens _gbacrsAnalyticsConfiguration (\ s a -> s{_gbacrsAnalyticsConfiguration = a});@@ -133,4 +135,5 @@ gbacrsResponseStatus = lens _gbacrsResponseStatus (\ s a -> s{_gbacrsResponseStatus = a});  instance NFData-         GetBucketAnalyticsConfigurationResponse+           GetBucketAnalyticsConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketCORS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gbcrsResponseStatus     ) 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+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:/ 'getBucketCORS' smart constructor. newtype GetBucketCORS = GetBucketCORS'-    { _gbcBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbcBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketCORS' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketCORS     :: BucketName -- ^ 'gbcBucket'     -> GetBucketCORS-getBucketCORS pBucket_ =-    GetBucketCORS'-    { _gbcBucket = pBucket_-    }+getBucketCORS pBucket_ = GetBucketCORS' {_gbcBucket = pBucket_} + -- | Undocumented member. gbcBucket :: Lens' GetBucketCORS BucketName gbcBucket = lens _gbcBucket (\ s a -> s{_gbcBucket = a});@@ -74,9 +73,9 @@                    (may (parseXMLList "CORSRule") x) <*>                      (pure (fromEnum s))) -instance Hashable GetBucketCORS+instance Hashable GetBucketCORS where -instance NFData GetBucketCORS+instance NFData GetBucketCORS where  instance ToHeaders GetBucketCORS where         toHeaders = const mempty@@ -90,10 +89,11 @@  -- | /See:/ 'getBucketCORSResponse' smart constructor. data GetBucketCORSResponse = GetBucketCORSResponse'-    { _gbcrsCORSRules      :: !(Maybe [CORSRule])-    , _gbcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbcrsCORSRules      :: !(Maybe [CORSRule])+  , _gbcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketCORSResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +105,10 @@     :: Int -- ^ 'gbcrsResponseStatus'     -> GetBucketCORSResponse getBucketCORSResponse pResponseStatus_ =-    GetBucketCORSResponse'-    { _gbcrsCORSRules = Nothing-    , _gbcrsResponseStatus = pResponseStatus_-    }+  GetBucketCORSResponse'+  {_gbcrsCORSRules = Nothing, _gbcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. gbcrsCORSRules :: Lens' GetBucketCORSResponse [CORSRule] gbcrsCORSRules = lens _gbcrsCORSRules (\ s a -> s{_gbcrsCORSRules = a}) . _Default . _Coerce;@@ -118,4 +117,4 @@ gbcrsResponseStatus :: Lens' GetBucketCORSResponse Int gbcrsResponseStatus = lens _gbcrsResponseStatus (\ s a -> s{_gbcrsResponseStatus = a}); -instance NFData GetBucketCORSResponse+instance NFData GetBucketCORSResponse where

@@ -0,0 +1,122 @@+{-# 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.GetBucketEncryption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the server-side encryption configuration of a bucket.+module Network.AWS.S3.GetBucketEncryption+    (+    -- * Creating a Request+      getBucketEncryption+    , GetBucketEncryption+    -- * Request Lenses+    , gbeBucket++    -- * Destructuring the Response+    , getBucketEncryptionResponse+    , GetBucketEncryptionResponse+    -- * Response Lenses+    , gbersServerSideEncryptionConfiguration+    , gbersResponseStatus+    ) 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:/ 'getBucketEncryption' smart constructor.+newtype GetBucketEncryption = GetBucketEncryption'+  { _gbeBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetBucketEncryption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbeBucket' - The name of the bucket from which the server-side encryption configuration is retrieved.+getBucketEncryption+    :: BucketName -- ^ 'gbeBucket'+    -> GetBucketEncryption+getBucketEncryption pBucket_ = GetBucketEncryption' {_gbeBucket = pBucket_}+++-- | The name of the bucket from which the server-side encryption configuration is retrieved.+gbeBucket :: Lens' GetBucketEncryption BucketName+gbeBucket = lens _gbeBucket (\ s a -> s{_gbeBucket = a});++instance AWSRequest GetBucketEncryption where+        type Rs GetBucketEncryption =+             GetBucketEncryptionResponse+        request = get s3+        response+          = receiveXML+              (\ s h x ->+                 GetBucketEncryptionResponse' <$>+                   (parseXML x) <*> (pure (fromEnum s)))++instance Hashable GetBucketEncryption where++instance NFData GetBucketEncryption where++instance ToHeaders GetBucketEncryption where+        toHeaders = const mempty++instance ToPath GetBucketEncryption where+        toPath GetBucketEncryption'{..}+          = mconcat ["/", toBS _gbeBucket]++instance ToQuery GetBucketEncryption where+        toQuery = const (mconcat ["encryption"])++-- | /See:/ 'getBucketEncryptionResponse' smart constructor.+data GetBucketEncryptionResponse = GetBucketEncryptionResponse'+  { _gbersServerSideEncryptionConfiguration :: !(Maybe ServerSideEncryptionConfiguration)+  , _gbersResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetBucketEncryptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbersServerSideEncryptionConfiguration' - Undocumented member.+--+-- * 'gbersResponseStatus' - -- | The response status code.+getBucketEncryptionResponse+    :: Int -- ^ 'gbersResponseStatus'+    -> GetBucketEncryptionResponse+getBucketEncryptionResponse pResponseStatus_ =+  GetBucketEncryptionResponse'+  { _gbersServerSideEncryptionConfiguration = Nothing+  , _gbersResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+gbersServerSideEncryptionConfiguration :: Lens' GetBucketEncryptionResponse (Maybe ServerSideEncryptionConfiguration)+gbersServerSideEncryptionConfiguration = lens _gbersServerSideEncryptionConfiguration (\ s a -> s{_gbersServerSideEncryptionConfiguration = a});++-- | -- | The response status code.+gbersResponseStatus :: Lens' GetBucketEncryptionResponse Int+gbersResponseStatus = lens _gbersResponseStatus (\ s a -> s{_gbersResponseStatus = a});++instance NFData GetBucketEncryptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketInventoryConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , gbicrsResponseStatus     ) 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+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:/ 'getBucketInventoryConfiguration' smart constructor. data GetBucketInventoryConfiguration = GetBucketInventoryConfiguration'-    { _gbicBucket :: !BucketName-    , _gbicId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbicBucket :: !BucketName+  , _gbicId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketInventoryConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@     -> Text -- ^ 'gbicId'     -> GetBucketInventoryConfiguration getBucketInventoryConfiguration pBucket_ pId_ =-    GetBucketInventoryConfiguration'-    { _gbicBucket = pBucket_-    , _gbicId = pId_-    }+  GetBucketInventoryConfiguration' {_gbicBucket = pBucket_, _gbicId = pId_} + -- | The name of the bucket containing the inventory configuration to retrieve. gbicBucket :: Lens' GetBucketInventoryConfiguration BucketName gbicBucket = lens _gbicBucket (\ s a -> s{_gbicBucket = a});@@ -86,8 +85,9 @@                    (parseXML x) <*> (pure (fromEnum s)))  instance Hashable GetBucketInventoryConfiguration+         where -instance NFData GetBucketInventoryConfiguration+instance NFData GetBucketInventoryConfiguration where  instance ToHeaders GetBucketInventoryConfiguration          where@@ -104,10 +104,11 @@  -- | /See:/ 'getBucketInventoryConfigurationResponse' smart constructor. data GetBucketInventoryConfigurationResponse = GetBucketInventoryConfigurationResponse'-    { _gbicrsInventoryConfiguration :: !(Maybe InventoryConfiguration)-    , _gbicrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbicrsInventoryConfiguration :: !(Maybe InventoryConfiguration)+  , _gbicrsResponseStatus         :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketInventoryConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,11 +120,12 @@     :: Int -- ^ 'gbicrsResponseStatus'     -> GetBucketInventoryConfigurationResponse getBucketInventoryConfigurationResponse pResponseStatus_ =-    GetBucketInventoryConfigurationResponse'-    { _gbicrsInventoryConfiguration = Nothing-    , _gbicrsResponseStatus = pResponseStatus_-    }+  GetBucketInventoryConfigurationResponse'+  { _gbicrsInventoryConfiguration = Nothing+  , _gbicrsResponseStatus = pResponseStatus_+  } + -- | Specifies the inventory configuration. gbicrsInventoryConfiguration :: Lens' GetBucketInventoryConfigurationResponse (Maybe InventoryConfiguration) gbicrsInventoryConfiguration = lens _gbicrsInventoryConfiguration (\ s a -> s{_gbicrsInventoryConfiguration = a});@@ -133,4 +135,5 @@ gbicrsResponseStatus = lens _gbicrsResponseStatus (\ s a -> s{_gbicrsResponseStatus = a});  instance NFData-         GetBucketInventoryConfigurationResponse+           GetBucketInventoryConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketLifecycleConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gblcrsResponseStatus     ) 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+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:/ 'getBucketLifecycleConfiguration' smart constructor. newtype GetBucketLifecycleConfiguration = GetBucketLifecycleConfiguration'-    { _gblcBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gblcBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLifecycleConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: BucketName -- ^ 'gblcBucket'     -> GetBucketLifecycleConfiguration getBucketLifecycleConfiguration pBucket_ =-    GetBucketLifecycleConfiguration'-    { _gblcBucket = pBucket_-    }+  GetBucketLifecycleConfiguration' {_gblcBucket = pBucket_} + -- | Undocumented member. gblcBucket :: Lens' GetBucketLifecycleConfiguration BucketName gblcBucket = lens _gblcBucket (\ s a -> s{_gblcBucket = a});@@ -77,8 +77,9 @@                      (pure (fromEnum s)))  instance Hashable GetBucketLifecycleConfiguration+         where -instance NFData GetBucketLifecycleConfiguration+instance NFData GetBucketLifecycleConfiguration where  instance ToHeaders GetBucketLifecycleConfiguration          where@@ -94,10 +95,11 @@  -- | /See:/ 'getBucketLifecycleConfigurationResponse' smart constructor. data GetBucketLifecycleConfigurationResponse = GetBucketLifecycleConfigurationResponse'-    { _gblcrsRules          :: !(Maybe [LifecycleRule])-    , _gblcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gblcrsRules          :: !(Maybe [LifecycleRule])+  , _gblcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLifecycleConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -109,11 +111,10 @@     :: Int -- ^ 'gblcrsResponseStatus'     -> GetBucketLifecycleConfigurationResponse getBucketLifecycleConfigurationResponse pResponseStatus_ =-    GetBucketLifecycleConfigurationResponse'-    { _gblcrsRules = Nothing-    , _gblcrsResponseStatus = pResponseStatus_-    }+  GetBucketLifecycleConfigurationResponse'+  {_gblcrsRules = Nothing, _gblcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. gblcrsRules :: Lens' GetBucketLifecycleConfigurationResponse [LifecycleRule] gblcrsRules = lens _gblcrsRules (\ s a -> s{_gblcrsRules = a}) . _Default . _Coerce;@@ -123,4 +124,5 @@ gblcrsResponseStatus = lens _gblcrsResponseStatus (\ s a -> s{_gblcrsResponseStatus = a});  instance NFData-         GetBucketLifecycleConfigurationResponse+           GetBucketLifecycleConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketLocation--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gblbrsLocationConstraint     ) 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+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:/ 'getBucketLocation' smart constructor. newtype GetBucketLocation = GetBucketLocation'-    { _gblBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gblBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketLocation     :: BucketName -- ^ 'gblBucket'     -> GetBucketLocation-getBucketLocation pBucket_ =-    GetBucketLocation'-    { _gblBucket = pBucket_-    }+getBucketLocation pBucket_ = GetBucketLocation' {_gblBucket = pBucket_} + -- | Undocumented member. gblBucket :: Lens' GetBucketLocation BucketName gblBucket = lens _gblBucket (\ s a -> s{_gblBucket = a});@@ -73,9 +72,9 @@                  GetBucketLocationResponse' <$>                    (pure (fromEnum s)) <*> (parseXML x)) -instance Hashable GetBucketLocation+instance Hashable GetBucketLocation where -instance NFData GetBucketLocation+instance NFData GetBucketLocation where  instance ToHeaders GetBucketLocation where         toHeaders = const mempty@@ -89,10 +88,11 @@  -- | /See:/ 'getBucketLocationResponse' smart constructor. data GetBucketLocationResponse = GetBucketLocationResponse'-    { _gblbrsResponseStatus     :: !Int-    , _gblbrsLocationConstraint :: !LocationConstraint-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gblbrsResponseStatus     :: !Int+  , _gblbrsLocationConstraint :: !LocationConstraint+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLocationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +105,12 @@     -> LocationConstraint -- ^ 'gblbrsLocationConstraint'     -> GetBucketLocationResponse getBucketLocationResponse pResponseStatus_ pLocationConstraint_ =-    GetBucketLocationResponse'-    { _gblbrsResponseStatus = pResponseStatus_-    , _gblbrsLocationConstraint = pLocationConstraint_-    }+  GetBucketLocationResponse'+  { _gblbrsResponseStatus = pResponseStatus_+  , _gblbrsLocationConstraint = pLocationConstraint_+  } + -- | -- | The response status code. gblbrsResponseStatus :: Lens' GetBucketLocationResponse Int gblbrsResponseStatus = lens _gblbrsResponseStatus (\ s a -> s{_gblbrsResponseStatus = a});@@ -118,4 +119,4 @@ gblbrsLocationConstraint :: Lens' GetBucketLocationResponse LocationConstraint gblbrsLocationConstraint = lens _gblbrsLocationConstraint (\ s a -> s{_gblbrsLocationConstraint = a}); -instance NFData GetBucketLocationResponse+instance NFData GetBucketLocationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketLogging--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gblrsResponseStatus     ) 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+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:/ 'getBucketLogging' smart constructor. newtype GetBucketLogging = GetBucketLogging'-    { _gBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLogging' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketLogging     :: BucketName -- ^ 'gBucket'     -> GetBucketLogging-getBucketLogging pBucket_ =-    GetBucketLogging'-    { _gBucket = pBucket_-    }+getBucketLogging pBucket_ = GetBucketLogging' {_gBucket = pBucket_} + -- | Undocumented member. gBucket :: Lens' GetBucketLogging BucketName gBucket = lens _gBucket (\ s a -> s{_gBucket = a});@@ -73,9 +72,9 @@                  GetBucketLoggingResponse' <$>                    (x .@? "LoggingEnabled") <*> (pure (fromEnum s))) -instance Hashable GetBucketLogging+instance Hashable GetBucketLogging where -instance NFData GetBucketLogging+instance NFData GetBucketLogging where  instance ToHeaders GetBucketLogging where         toHeaders = const mempty@@ -89,10 +88,11 @@  -- | /See:/ 'getBucketLoggingResponse' smart constructor. data GetBucketLoggingResponse = GetBucketLoggingResponse'-    { _gblrsLoggingEnabled :: !(Maybe LoggingEnabled)-    , _gblrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gblrsLoggingEnabled :: !(Maybe LoggingEnabled)+  , _gblrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketLoggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,11 +104,10 @@     :: Int -- ^ 'gblrsResponseStatus'     -> GetBucketLoggingResponse getBucketLoggingResponse pResponseStatus_ =-    GetBucketLoggingResponse'-    { _gblrsLoggingEnabled = Nothing-    , _gblrsResponseStatus = pResponseStatus_-    }+  GetBucketLoggingResponse'+  {_gblrsLoggingEnabled = Nothing, _gblrsResponseStatus = pResponseStatus_} + -- | Undocumented member. gblrsLoggingEnabled :: Lens' GetBucketLoggingResponse (Maybe LoggingEnabled) gblrsLoggingEnabled = lens _gblrsLoggingEnabled (\ s a -> s{_gblrsLoggingEnabled = a});@@ -117,4 +116,4 @@ gblrsResponseStatus :: Lens' GetBucketLoggingResponse Int gblrsResponseStatus = lens _gblrsResponseStatus (\ s a -> s{_gblrsResponseStatus = a}); -instance NFData GetBucketLoggingResponse+instance NFData GetBucketLoggingResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketMetricsConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , gbmcrsResponseStatus     ) 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+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:/ 'getBucketMetricsConfiguration' smart constructor. data GetBucketMetricsConfiguration = GetBucketMetricsConfiguration'-    { _gbmcBucket :: !BucketName-    , _gbmcId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbmcBucket :: !BucketName+  , _gbmcId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketMetricsConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@     -> Text -- ^ 'gbmcId'     -> GetBucketMetricsConfiguration getBucketMetricsConfiguration pBucket_ pId_ =-    GetBucketMetricsConfiguration'-    { _gbmcBucket = pBucket_-    , _gbmcId = pId_-    }+  GetBucketMetricsConfiguration' {_gbmcBucket = pBucket_, _gbmcId = pId_} + -- | The name of the bucket containing the metrics configuration to retrieve. gbmcBucket :: Lens' GetBucketMetricsConfiguration BucketName gbmcBucket = lens _gbmcBucket (\ s a -> s{_gbmcBucket = a});@@ -85,9 +84,9 @@                  GetBucketMetricsConfigurationResponse' <$>                    (parseXML x) <*> (pure (fromEnum s))) -instance Hashable GetBucketMetricsConfiguration+instance Hashable GetBucketMetricsConfiguration where -instance NFData GetBucketMetricsConfiguration+instance NFData GetBucketMetricsConfiguration where  instance ToHeaders GetBucketMetricsConfiguration          where@@ -103,10 +102,11 @@  -- | /See:/ 'getBucketMetricsConfigurationResponse' smart constructor. data GetBucketMetricsConfigurationResponse = GetBucketMetricsConfigurationResponse'-    { _gbmcrsMetricsConfiguration :: !(Maybe MetricsConfiguration)-    , _gbmcrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbmcrsMetricsConfiguration :: !(Maybe MetricsConfiguration)+  , _gbmcrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketMetricsConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,11 +118,12 @@     :: Int -- ^ 'gbmcrsResponseStatus'     -> GetBucketMetricsConfigurationResponse getBucketMetricsConfigurationResponse pResponseStatus_ =-    GetBucketMetricsConfigurationResponse'-    { _gbmcrsMetricsConfiguration = Nothing-    , _gbmcrsResponseStatus = pResponseStatus_-    }+  GetBucketMetricsConfigurationResponse'+  { _gbmcrsMetricsConfiguration = Nothing+  , _gbmcrsResponseStatus = pResponseStatus_+  } + -- | Specifies the metrics configuration. gbmcrsMetricsConfiguration :: Lens' GetBucketMetricsConfigurationResponse (Maybe MetricsConfiguration) gbmcrsMetricsConfiguration = lens _gbmcrsMetricsConfiguration (\ s a -> s{_gbmcrsMetricsConfiguration = a});@@ -132,3 +133,4 @@ gbmcrsResponseStatus = lens _gbmcrsResponseStatus (\ s a -> s{_gbmcrsResponseStatus = a});  instance NFData GetBucketMetricsConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketNotificationConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,18 +36,19 @@     , ncLambdaFunctionConfigurations     ) 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+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:/ 'getBucketNotificationConfiguration' smart constructor. newtype GetBucketNotificationConfiguration = GetBucketNotificationConfiguration'-    { _gbncBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbncBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketNotificationConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -57,24 +58,26 @@     :: BucketName -- ^ 'gbncBucket'     -> GetBucketNotificationConfiguration getBucketNotificationConfiguration pBucket_ =-    GetBucketNotificationConfiguration'-    { _gbncBucket = pBucket_-    }+  GetBucketNotificationConfiguration' {_gbncBucket = pBucket_} + -- | Name of the bucket to get the notification configuration for. gbncBucket :: Lens' GetBucketNotificationConfiguration BucketName gbncBucket = lens _gbncBucket (\ s a -> s{_gbncBucket = a});  instance AWSRequest-         GetBucketNotificationConfiguration where+           GetBucketNotificationConfiguration+         where         type Rs GetBucketNotificationConfiguration =              NotificationConfiguration         request = get s3         response = receiveXML (\ s h x -> parseXML x)  instance Hashable GetBucketNotificationConfiguration+         where  instance NFData GetBucketNotificationConfiguration+         where  instance ToHeaders GetBucketNotificationConfiguration          where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gbprsPolicy     ) 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+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:/ 'getBucketPolicy' smart constructor. newtype GetBucketPolicy = GetBucketPolicy'-    { _gbpBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbpBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketPolicy     :: BucketName -- ^ 'gbpBucket'     -> GetBucketPolicy-getBucketPolicy pBucket_ =-    GetBucketPolicy'-    { _gbpBucket = pBucket_-    }+getBucketPolicy pBucket_ = GetBucketPolicy' {_gbpBucket = pBucket_} + -- | Undocumented member. gbpBucket :: Lens' GetBucketPolicy BucketName gbpBucket = lens _gbpBucket (\ s a -> s{_gbpBucket = a});@@ -73,9 +72,9 @@                  GetBucketPolicyResponse' <$>                    (pure (fromEnum s)) <*> (pure x)) -instance Hashable GetBucketPolicy+instance Hashable GetBucketPolicy where -instance NFData GetBucketPolicy+instance NFData GetBucketPolicy where  instance ToHeaders GetBucketPolicy where         toHeaders = const mempty@@ -89,10 +88,11 @@  -- | /See:/ 'getBucketPolicyResponse' smart constructor. data GetBucketPolicyResponse = GetBucketPolicyResponse'-    { _gbprsResponseStatus :: !Int-    , _gbprsPolicy         :: !(HashMap Text Value)-    } deriving (Eq,Show,Data,Typeable,Generic)+  { _gbprsResponseStatus :: !Int+  , _gbprsPolicy         :: !(HashMap Text Value)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +105,10 @@     -> HashMap Text Value -- ^ 'gbprsPolicy'     -> GetBucketPolicyResponse getBucketPolicyResponse pResponseStatus_ pPolicy_ =-    GetBucketPolicyResponse'-    { _gbprsResponseStatus = pResponseStatus_-    , _gbprsPolicy = pPolicy_-    }+  GetBucketPolicyResponse'+  {_gbprsResponseStatus = pResponseStatus_, _gbprsPolicy = pPolicy_} + -- | -- | The response status code. gbprsResponseStatus :: Lens' GetBucketPolicyResponse Int gbprsResponseStatus = lens _gbprsResponseStatus (\ s a -> s{_gbprsResponseStatus = a});@@ -118,4 +117,4 @@ gbprsPolicy :: Lens' GetBucketPolicyResponse (HashMap Text Value) gbprsPolicy = lens _gbprsPolicy (\ s a -> s{_gbprsPolicy = a}); -instance NFData GetBucketPolicyResponse+instance NFData GetBucketPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketReplication--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gbrrsResponseStatus     ) 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+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:/ 'getBucketReplication' smart constructor. newtype GetBucketReplication = GetBucketReplication'-    { _gbrBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbrBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketReplication' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketReplication     :: BucketName -- ^ 'gbrBucket'     -> GetBucketReplication-getBucketReplication pBucket_ =-    GetBucketReplication'-    { _gbrBucket = pBucket_-    }+getBucketReplication pBucket_ = GetBucketReplication' {_gbrBucket = pBucket_} + -- | Undocumented member. gbrBucket :: Lens' GetBucketReplication BucketName gbrBucket = lens _gbrBucket (\ s a -> s{_gbrBucket = a});@@ -74,9 +73,9 @@                  GetBucketReplicationResponse' <$>                    (parseXML x) <*> (pure (fromEnum s))) -instance Hashable GetBucketReplication+instance Hashable GetBucketReplication where -instance NFData GetBucketReplication+instance NFData GetBucketReplication where  instance ToHeaders GetBucketReplication where         toHeaders = const mempty@@ -90,10 +89,11 @@  -- | /See:/ 'getBucketReplicationResponse' smart constructor. data GetBucketReplicationResponse = GetBucketReplicationResponse'-    { _gbrrsReplicationConfiguration :: !(Maybe ReplicationConfiguration)-    , _gbrrsResponseStatus           :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbrrsReplicationConfiguration :: !(Maybe ReplicationConfiguration)+  , _gbrrsResponseStatus           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketReplicationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +105,12 @@     :: Int -- ^ 'gbrrsResponseStatus'     -> GetBucketReplicationResponse getBucketReplicationResponse pResponseStatus_ =-    GetBucketReplicationResponse'-    { _gbrrsReplicationConfiguration = Nothing-    , _gbrrsResponseStatus = pResponseStatus_-    }+  GetBucketReplicationResponse'+  { _gbrrsReplicationConfiguration = Nothing+  , _gbrrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. gbrrsReplicationConfiguration :: Lens' GetBucketReplicationResponse (Maybe ReplicationConfiguration) gbrrsReplicationConfiguration = lens _gbrrsReplicationConfiguration (\ s a -> s{_gbrrsReplicationConfiguration = a});@@ -118,4 +119,4 @@ gbrrsResponseStatus :: Lens' GetBucketReplicationResponse Int gbrrsResponseStatus = lens _gbrrsResponseStatus (\ s a -> s{_gbrrsResponseStatus = a}); -instance NFData GetBucketReplicationResponse+instance NFData GetBucketReplicationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketRequestPayment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gbrprsResponseStatus     ) 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+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:/ 'getBucketRequestPayment' smart constructor. newtype GetBucketRequestPayment = GetBucketRequestPayment'-    { _gbrpBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbrpBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketRequestPayment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: BucketName -- ^ 'gbrpBucket'     -> GetBucketRequestPayment getBucketRequestPayment pBucket_ =-    GetBucketRequestPayment'-    { _gbrpBucket = pBucket_-    }+  GetBucketRequestPayment' {_gbrpBucket = pBucket_} + -- | Undocumented member. gbrpBucket :: Lens' GetBucketRequestPayment BucketName gbrpBucket = lens _gbrpBucket (\ s a -> s{_gbrpBucket = a});@@ -74,9 +74,9 @@                  GetBucketRequestPaymentResponse' <$>                    (x .@? "Payer") <*> (pure (fromEnum s))) -instance Hashable GetBucketRequestPayment+instance Hashable GetBucketRequestPayment where -instance NFData GetBucketRequestPayment+instance NFData GetBucketRequestPayment where  instance ToHeaders GetBucketRequestPayment where         toHeaders = const mempty@@ -90,10 +90,11 @@  -- | /See:/ 'getBucketRequestPaymentResponse' smart constructor. data GetBucketRequestPaymentResponse = GetBucketRequestPaymentResponse'-    { _gbrprsPayer          :: !(Maybe Payer)-    , _gbrprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbrprsPayer          :: !(Maybe Payer)+  , _gbrprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketRequestPaymentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +106,10 @@     :: Int -- ^ 'gbrprsResponseStatus'     -> GetBucketRequestPaymentResponse getBucketRequestPaymentResponse pResponseStatus_ =-    GetBucketRequestPaymentResponse'-    { _gbrprsPayer = Nothing-    , _gbrprsResponseStatus = pResponseStatus_-    }+  GetBucketRequestPaymentResponse'+  {_gbrprsPayer = Nothing, _gbrprsResponseStatus = pResponseStatus_} + -- | Specifies who pays for the download and request fees. gbrprsPayer :: Lens' GetBucketRequestPaymentResponse (Maybe Payer) gbrprsPayer = lens _gbrprsPayer (\ s a -> s{_gbrprsPayer = a});@@ -118,4 +118,4 @@ gbrprsResponseStatus :: Lens' GetBucketRequestPaymentResponse Int gbrprsResponseStatus = lens _gbrprsResponseStatus (\ s a -> s{_gbrprsResponseStatus = a}); -instance NFData GetBucketRequestPaymentResponse+instance NFData GetBucketRequestPaymentResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketTagging--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gbtrsTagSet     ) 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+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:/ 'getBucketTagging' smart constructor. newtype GetBucketTagging = GetBucketTagging'-    { _gbtBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbtBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketTagging' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,11 +56,9 @@ getBucketTagging     :: BucketName -- ^ 'gbtBucket'     -> GetBucketTagging-getBucketTagging pBucket_ =-    GetBucketTagging'-    { _gbtBucket = pBucket_-    }+getBucketTagging pBucket_ = GetBucketTagging' {_gbtBucket = pBucket_} + -- | Undocumented member. gbtBucket :: Lens' GetBucketTagging BucketName gbtBucket = lens _gbtBucket (\ s a -> s{_gbtBucket = a});@@ -74,9 +73,9 @@                    (pure (fromEnum s)) <*>                      (x .@? "TagSet" .!@ mempty >>= parseXMLList "Tag")) -instance Hashable GetBucketTagging+instance Hashable GetBucketTagging where -instance NFData GetBucketTagging+instance NFData GetBucketTagging where  instance ToHeaders GetBucketTagging where         toHeaders = const mempty@@ -90,10 +89,11 @@  -- | /See:/ 'getBucketTaggingResponse' smart constructor. data GetBucketTaggingResponse = GetBucketTaggingResponse'-    { _gbtrsResponseStatus :: !Int-    , _gbtrsTagSet         :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbtrsResponseStatus :: !Int+  , _gbtrsTagSet         :: ![Tag]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketTaggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +105,10 @@     :: Int -- ^ 'gbtrsResponseStatus'     -> GetBucketTaggingResponse getBucketTaggingResponse pResponseStatus_ =-    GetBucketTaggingResponse'-    { _gbtrsResponseStatus = pResponseStatus_-    , _gbtrsTagSet = mempty-    }+  GetBucketTaggingResponse'+  {_gbtrsResponseStatus = pResponseStatus_, _gbtrsTagSet = mempty} + -- | -- | The response status code. gbtrsResponseStatus :: Lens' GetBucketTaggingResponse Int gbtrsResponseStatus = lens _gbtrsResponseStatus (\ s a -> s{_gbtrsResponseStatus = a});@@ -118,4 +117,4 @@ gbtrsTagSet :: Lens' GetBucketTaggingResponse [Tag] gbtrsTagSet = lens _gbtrsTagSet (\ s a -> s{_gbtrsTagSet = a}) . _Coerce; -instance NFData GetBucketTaggingResponse+instance NFData GetBucketTaggingResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketVersioning--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,18 +36,19 @@     , gbvrsResponseStatus     ) 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+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:/ 'getBucketVersioning' smart constructor. newtype GetBucketVersioning = GetBucketVersioning'-    { _gbvBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbvBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketVersioning' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,11 +57,9 @@ getBucketVersioning     :: BucketName -- ^ 'gbvBucket'     -> GetBucketVersioning-getBucketVersioning pBucket_ =-    GetBucketVersioning'-    { _gbvBucket = pBucket_-    }+getBucketVersioning pBucket_ = GetBucketVersioning' {_gbvBucket = pBucket_} + -- | Undocumented member. gbvBucket :: Lens' GetBucketVersioning BucketName gbvBucket = lens _gbvBucket (\ s a -> s{_gbvBucket = a});@@ -76,9 +75,9 @@                    (x .@? "Status") <*> (x .@? "MfaDelete") <*>                      (pure (fromEnum s))) -instance Hashable GetBucketVersioning+instance Hashable GetBucketVersioning where -instance NFData GetBucketVersioning+instance NFData GetBucketVersioning where  instance ToHeaders GetBucketVersioning where         toHeaders = const mempty@@ -92,11 +91,12 @@  -- | /See:/ 'getBucketVersioningResponse' smart constructor. data GetBucketVersioningResponse = GetBucketVersioningResponse'-    { _gbvrsStatus         :: !(Maybe BucketVersioningStatus)-    , _gbvrsMFADelete      :: !(Maybe MFADeleteStatus)-    , _gbvrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbvrsStatus         :: !(Maybe BucketVersioningStatus)+  , _gbvrsMFADelete      :: !(Maybe MFADeleteStatus)+  , _gbvrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketVersioningResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,12 +110,13 @@     :: Int -- ^ 'gbvrsResponseStatus'     -> GetBucketVersioningResponse getBucketVersioningResponse pResponseStatus_ =-    GetBucketVersioningResponse'-    { _gbvrsStatus = Nothing-    , _gbvrsMFADelete = Nothing-    , _gbvrsResponseStatus = pResponseStatus_-    }+  GetBucketVersioningResponse'+  { _gbvrsStatus = Nothing+  , _gbvrsMFADelete = Nothing+  , _gbvrsResponseStatus = pResponseStatus_+  } + -- | The versioning state of the bucket. gbvrsStatus :: Lens' GetBucketVersioningResponse (Maybe BucketVersioningStatus) gbvrsStatus = lens _gbvrsStatus (\ s a -> s{_gbvrsStatus = a});@@ -128,4 +129,4 @@ gbvrsResponseStatus :: Lens' GetBucketVersioningResponse Int gbvrsResponseStatus = lens _gbvrsResponseStatus (\ s a -> s{_gbvrsResponseStatus = a}); -instance NFData GetBucketVersioningResponse+instance NFData GetBucketVersioningResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetBucketWebsite--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,18 +38,19 @@     , gbwrsResponseStatus     ) 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+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:/ 'getBucketWebsite' smart constructor. newtype GetBucketWebsite = GetBucketWebsite'-    { _gbwBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbwBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketWebsite' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +59,9 @@ getBucketWebsite     :: BucketName -- ^ 'gbwBucket'     -> GetBucketWebsite-getBucketWebsite pBucket_ =-    GetBucketWebsite'-    { _gbwBucket = pBucket_-    }+getBucketWebsite pBucket_ = GetBucketWebsite' {_gbwBucket = pBucket_} + -- | Undocumented member. gbwBucket :: Lens' GetBucketWebsite BucketName gbwBucket = lens _gbwBucket (\ s a -> s{_gbwBucket = a});@@ -82,9 +81,9 @@                         may (parseXMLList "RoutingRule"))                      <*> (pure (fromEnum s))) -instance Hashable GetBucketWebsite+instance Hashable GetBucketWebsite where -instance NFData GetBucketWebsite+instance NFData GetBucketWebsite where  instance ToHeaders GetBucketWebsite where         toHeaders = const mempty@@ -98,13 +97,14 @@  -- | /See:/ 'getBucketWebsiteResponse' smart constructor. data GetBucketWebsiteResponse = GetBucketWebsiteResponse'-    { _gbwrsRedirectAllRequestsTo :: !(Maybe RedirectAllRequestsTo)-    , _gbwrsErrorDocument         :: !(Maybe ErrorDocument)-    , _gbwrsIndexDocument         :: !(Maybe IndexDocument)-    , _gbwrsRoutingRules          :: !(Maybe [RoutingRule])-    , _gbwrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gbwrsRedirectAllRequestsTo :: !(Maybe RedirectAllRequestsTo)+  , _gbwrsErrorDocument         :: !(Maybe ErrorDocument)+  , _gbwrsIndexDocument         :: !(Maybe IndexDocument)+  , _gbwrsRoutingRules          :: !(Maybe [RoutingRule])+  , _gbwrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBucketWebsiteResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,14 +122,15 @@     :: Int -- ^ 'gbwrsResponseStatus'     -> GetBucketWebsiteResponse getBucketWebsiteResponse pResponseStatus_ =-    GetBucketWebsiteResponse'-    { _gbwrsRedirectAllRequestsTo = Nothing-    , _gbwrsErrorDocument = Nothing-    , _gbwrsIndexDocument = Nothing-    , _gbwrsRoutingRules = Nothing-    , _gbwrsResponseStatus = pResponseStatus_-    }+  GetBucketWebsiteResponse'+  { _gbwrsRedirectAllRequestsTo = Nothing+  , _gbwrsErrorDocument = Nothing+  , _gbwrsIndexDocument = Nothing+  , _gbwrsRoutingRules = Nothing+  , _gbwrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. gbwrsRedirectAllRequestsTo :: Lens' GetBucketWebsiteResponse (Maybe RedirectAllRequestsTo) gbwrsRedirectAllRequestsTo = lens _gbwrsRedirectAllRequestsTo (\ s a -> s{_gbwrsRedirectAllRequestsTo = a});@@ -150,4 +151,4 @@ gbwrsResponseStatus :: Lens' GetBucketWebsiteResponse Int gbwrsResponseStatus = lens _gbwrsResponseStatus (\ s a -> s{_gbwrsResponseStatus = a}); -instance NFData GetBucketWebsiteResponse+instance NFData GetBucketWebsiteResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetObject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -80,36 +80,37 @@     , gorsBody     ) 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+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:/ 'getObject' smart constructor. data GetObject = GetObject'-    { _goIfMatch                    :: !(Maybe Text)-    , _goVersionId                  :: !(Maybe ObjectVersionId)-    , _goResponseContentType        :: !(Maybe Text)-    , _goResponseContentDisposition :: !(Maybe Text)-    , _goResponseContentLanguage    :: !(Maybe Text)-    , _goSSECustomerAlgorithm       :: !(Maybe Text)-    , _goSSECustomerKey             :: !(Maybe (Sensitive Text))-    , _goRequestPayer               :: !(Maybe RequestPayer)-    , _goResponseContentEncoding    :: !(Maybe Text)-    , _goIfModifiedSince            :: !(Maybe RFC822)-    , _goPartNumber                 :: !(Maybe Int)-    , _goRange                      :: !(Maybe Text)-    , _goIfUnmodifiedSince          :: !(Maybe RFC822)-    , _goSSECustomerKeyMD5          :: !(Maybe Text)-    , _goResponseCacheControl       :: !(Maybe Text)-    , _goResponseExpires            :: !(Maybe RFC822)-    , _goIfNoneMatch                :: !(Maybe Text)-    , _goBucket                     :: !BucketName-    , _goKey                        :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _goIfMatch                    :: !(Maybe Text)+  , _goVersionId                  :: !(Maybe ObjectVersionId)+  , _goResponseContentType        :: !(Maybe Text)+  , _goResponseContentDisposition :: !(Maybe Text)+  , _goResponseContentLanguage    :: !(Maybe Text)+  , _goSSECustomerAlgorithm       :: !(Maybe Text)+  , _goSSECustomerKey             :: !(Maybe (Sensitive Text))+  , _goRequestPayer               :: !(Maybe RequestPayer)+  , _goResponseContentEncoding    :: !(Maybe Text)+  , _goIfModifiedSince            :: !(Maybe RFC822)+  , _goPartNumber                 :: !(Maybe Int)+  , _goRange                      :: !(Maybe Text)+  , _goIfUnmodifiedSince          :: !(Maybe RFC822)+  , _goSSECustomerKeyMD5          :: !(Maybe Text)+  , _goResponseCacheControl       :: !(Maybe Text)+  , _goResponseExpires            :: !(Maybe RFC822)+  , _goIfNoneMatch                :: !(Maybe Text)+  , _goBucket                     :: !BucketName+  , _goKey                        :: !ObjectKey+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,28 +157,29 @@     -> ObjectKey -- ^ 'goKey'     -> GetObject getObject pBucket_ pKey_ =-    GetObject'-    { _goIfMatch = Nothing-    , _goVersionId = Nothing-    , _goResponseContentType = Nothing-    , _goResponseContentDisposition = Nothing-    , _goResponseContentLanguage = Nothing-    , _goSSECustomerAlgorithm = Nothing-    , _goSSECustomerKey = Nothing-    , _goRequestPayer = Nothing-    , _goResponseContentEncoding = Nothing-    , _goIfModifiedSince = Nothing-    , _goPartNumber = Nothing-    , _goRange = Nothing-    , _goIfUnmodifiedSince = Nothing-    , _goSSECustomerKeyMD5 = Nothing-    , _goResponseCacheControl = Nothing-    , _goResponseExpires = Nothing-    , _goIfNoneMatch = Nothing-    , _goBucket = pBucket_-    , _goKey = pKey_-    }+  GetObject'+  { _goIfMatch = Nothing+  , _goVersionId = Nothing+  , _goResponseContentType = Nothing+  , _goResponseContentDisposition = Nothing+  , _goResponseContentLanguage = Nothing+  , _goSSECustomerAlgorithm = Nothing+  , _goSSECustomerKey = Nothing+  , _goRequestPayer = Nothing+  , _goResponseContentEncoding = Nothing+  , _goIfModifiedSince = Nothing+  , _goPartNumber = Nothing+  , _goRange = Nothing+  , _goIfUnmodifiedSince = Nothing+  , _goSSECustomerKeyMD5 = Nothing+  , _goResponseCacheControl = Nothing+  , _goResponseExpires = Nothing+  , _goIfNoneMatch = Nothing+  , _goBucket = pBucket_+  , _goKey = pKey_+  } + -- | Return the object only if its entity tag (ETag) is the same as the one specified, otherwise return a 412 (precondition failed). goIfMatch :: Lens' GetObject (Maybe Text) goIfMatch = lens _goIfMatch (\ s a -> s{_goIfMatch = a});@@ -296,9 +298,9 @@                      <*> (pure (fromEnum s))                      <*> (pure x)) -instance Hashable GetObject+instance Hashable GetObject where -instance NFData GetObject+instance NFData GetObject where  instance ToHeaders GetObject where         toHeaders GetObject'{..}@@ -337,37 +339,38 @@  -- | /See:/ 'getObjectResponse' smart constructor. data GetObjectResponse = GetObjectResponse'-    { _gorsRequestCharged          :: !(Maybe RequestCharged)-    , _gorsPartsCount              :: !(Maybe Int)-    , _gorsETag                    :: !(Maybe ETag)-    , _gorsVersionId               :: !(Maybe ObjectVersionId)-    , _gorsContentLength           :: !(Maybe Integer)-    , _gorsExpires                 :: !(Maybe RFC822)-    , _gorsRestore                 :: !(Maybe Text)-    , _gorsExpiration              :: !(Maybe Text)-    , _gorsDeleteMarker            :: !(Maybe Bool)-    , _gorsSSECustomerAlgorithm    :: !(Maybe Text)-    , _gorsTagCount                :: !(Maybe Int)-    , _gorsMissingMeta             :: !(Maybe Int)-    , _gorsWebsiteRedirectLocation :: !(Maybe Text)-    , _gorsAcceptRanges            :: !(Maybe Text)-    , _gorsStorageClass            :: !(Maybe StorageClass)-    , _gorsSSECustomerKeyMD5       :: !(Maybe Text)-    , _gorsSSEKMSKeyId             :: !(Maybe (Sensitive Text))-    , _gorsContentEncoding         :: !(Maybe Text)-    , _gorsMetadata                :: !(Map Text Text)-    , _gorsReplicationStatus       :: !(Maybe ReplicationStatus)-    , _gorsCacheControl            :: !(Maybe Text)-    , _gorsContentLanguage         :: !(Maybe Text)-    , _gorsLastModified            :: !(Maybe RFC822)-    , _gorsContentDisposition      :: !(Maybe Text)-    , _gorsContentRange            :: !(Maybe Text)-    , _gorsServerSideEncryption    :: !(Maybe ServerSideEncryption)-    , _gorsContentType             :: !(Maybe Text)-    , _gorsResponseStatus          :: !Int-    , _gorsBody                    :: !RsBody-    } deriving (Show,Generic)+  { _gorsRequestCharged          :: !(Maybe RequestCharged)+  , _gorsPartsCount              :: !(Maybe Int)+  , _gorsETag                    :: !(Maybe ETag)+  , _gorsVersionId               :: !(Maybe ObjectVersionId)+  , _gorsContentLength           :: !(Maybe Integer)+  , _gorsExpires                 :: !(Maybe RFC822)+  , _gorsRestore                 :: !(Maybe Text)+  , _gorsExpiration              :: !(Maybe Text)+  , _gorsDeleteMarker            :: !(Maybe Bool)+  , _gorsSSECustomerAlgorithm    :: !(Maybe Text)+  , _gorsTagCount                :: !(Maybe Int)+  , _gorsMissingMeta             :: !(Maybe Int)+  , _gorsWebsiteRedirectLocation :: !(Maybe Text)+  , _gorsAcceptRanges            :: !(Maybe Text)+  , _gorsStorageClass            :: !(Maybe StorageClass)+  , _gorsSSECustomerKeyMD5       :: !(Maybe Text)+  , _gorsSSEKMSKeyId             :: !(Maybe (Sensitive Text))+  , _gorsContentEncoding         :: !(Maybe Text)+  , _gorsMetadata                :: !(Map Text Text)+  , _gorsReplicationStatus       :: !(Maybe ReplicationStatus)+  , _gorsCacheControl            :: !(Maybe Text)+  , _gorsContentLanguage         :: !(Maybe Text)+  , _gorsLastModified            :: !(Maybe RFC822)+  , _gorsContentDisposition      :: !(Maybe Text)+  , _gorsContentRange            :: !(Maybe Text)+  , _gorsServerSideEncryption    :: !(Maybe ServerSideEncryption)+  , _gorsContentType             :: !(Maybe Text)+  , _gorsResponseStatus          :: !Int+  , _gorsBody                    :: !RsBody+  } deriving (Show, Generic) + -- | Creates a value of 'GetObjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -434,37 +437,38 @@     -> RsBody -- ^ 'gorsBody'     -> GetObjectResponse getObjectResponse pResponseStatus_ pBody_ =-    GetObjectResponse'-    { _gorsRequestCharged = Nothing-    , _gorsPartsCount = Nothing-    , _gorsETag = Nothing-    , _gorsVersionId = Nothing-    , _gorsContentLength = Nothing-    , _gorsExpires = Nothing-    , _gorsRestore = Nothing-    , _gorsExpiration = Nothing-    , _gorsDeleteMarker = Nothing-    , _gorsSSECustomerAlgorithm = Nothing-    , _gorsTagCount = Nothing-    , _gorsMissingMeta = Nothing-    , _gorsWebsiteRedirectLocation = Nothing-    , _gorsAcceptRanges = Nothing-    , _gorsStorageClass = Nothing-    , _gorsSSECustomerKeyMD5 = Nothing-    , _gorsSSEKMSKeyId = Nothing-    , _gorsContentEncoding = Nothing-    , _gorsMetadata = mempty-    , _gorsReplicationStatus = Nothing-    , _gorsCacheControl = Nothing-    , _gorsContentLanguage = Nothing-    , _gorsLastModified = Nothing-    , _gorsContentDisposition = Nothing-    , _gorsContentRange = Nothing-    , _gorsServerSideEncryption = Nothing-    , _gorsContentType = Nothing-    , _gorsResponseStatus = pResponseStatus_-    , _gorsBody = pBody_-    }+  GetObjectResponse'+  { _gorsRequestCharged = Nothing+  , _gorsPartsCount = Nothing+  , _gorsETag = Nothing+  , _gorsVersionId = Nothing+  , _gorsContentLength = Nothing+  , _gorsExpires = Nothing+  , _gorsRestore = Nothing+  , _gorsExpiration = Nothing+  , _gorsDeleteMarker = Nothing+  , _gorsSSECustomerAlgorithm = Nothing+  , _gorsTagCount = Nothing+  , _gorsMissingMeta = Nothing+  , _gorsWebsiteRedirectLocation = Nothing+  , _gorsAcceptRanges = Nothing+  , _gorsStorageClass = Nothing+  , _gorsSSECustomerKeyMD5 = Nothing+  , _gorsSSEKMSKeyId = Nothing+  , _gorsContentEncoding = Nothing+  , _gorsMetadata = mempty+  , _gorsReplicationStatus = Nothing+  , _gorsCacheControl = Nothing+  , _gorsContentLanguage = Nothing+  , _gorsLastModified = Nothing+  , _gorsContentDisposition = Nothing+  , _gorsContentRange = Nothing+  , _gorsServerSideEncryption = Nothing+  , _gorsContentType = Nothing+  , _gorsResponseStatus = pResponseStatus_+  , _gorsBody = pBody_+  }+  -- | Undocumented member. gorsRequestCharged :: Lens' GetObjectResponse (Maybe RequestCharged)

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetObjectACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,21 +40,22 @@     , goarsResponseStatus     ) 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+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:/ 'getObjectACL' smart constructor. data GetObjectACL = GetObjectACL'-    { _goaVersionId    :: !(Maybe ObjectVersionId)-    , _goaRequestPayer :: !(Maybe RequestPayer)-    , _goaBucket       :: !BucketName-    , _goaKey          :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _goaVersionId    :: !(Maybe ObjectVersionId)+  , _goaRequestPayer :: !(Maybe RequestPayer)+  , _goaBucket       :: !BucketName+  , _goaKey          :: !ObjectKey+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObjectACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,13 +72,14 @@     -> ObjectKey -- ^ 'goaKey'     -> GetObjectACL getObjectACL pBucket_ pKey_ =-    GetObjectACL'-    { _goaVersionId = Nothing-    , _goaRequestPayer = Nothing-    , _goaBucket = pBucket_-    , _goaKey = pKey_-    }+  GetObjectACL'+  { _goaVersionId = Nothing+  , _goaRequestPayer = Nothing+  , _goaBucket = pBucket_+  , _goaKey = pKey_+  } + -- | VersionId used to reference a specific version of the object. goaVersionId :: Lens' GetObjectACL (Maybe ObjectVersionId) goaVersionId = lens _goaVersionId (\ s a -> s{_goaVersionId = a});@@ -107,9 +109,9 @@                      <*> (x .@? "Owner")                      <*> (pure (fromEnum s))) -instance Hashable GetObjectACL+instance Hashable GetObjectACL where -instance NFData GetObjectACL+instance NFData GetObjectACL where  instance ToHeaders GetObjectACL where         toHeaders GetObjectACL'{..}@@ -125,12 +127,13 @@  -- | /See:/ 'getObjectACLResponse' smart constructor. data GetObjectACLResponse = GetObjectACLResponse'-    { _goarsRequestCharged :: !(Maybe RequestCharged)-    , _goarsGrants         :: !(Maybe [Grant])-    , _goarsOwner          :: !(Maybe Owner)-    , _goarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _goarsRequestCharged :: !(Maybe RequestCharged)+  , _goarsGrants         :: !(Maybe [Grant])+  , _goarsOwner          :: !(Maybe Owner)+  , _goarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObjectACLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,13 +149,14 @@     :: Int -- ^ 'goarsResponseStatus'     -> GetObjectACLResponse getObjectACLResponse pResponseStatus_ =-    GetObjectACLResponse'-    { _goarsRequestCharged = Nothing-    , _goarsGrants = Nothing-    , _goarsOwner = Nothing-    , _goarsResponseStatus = pResponseStatus_-    }+  GetObjectACLResponse'+  { _goarsRequestCharged = Nothing+  , _goarsGrants = Nothing+  , _goarsOwner = Nothing+  , _goarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. goarsRequestCharged :: Lens' GetObjectACLResponse (Maybe RequestCharged) goarsRequestCharged = lens _goarsRequestCharged (\ s a -> s{_goarsRequestCharged = a});@@ -169,4 +173,4 @@ goarsResponseStatus :: Lens' GetObjectACLResponse Int goarsResponseStatus = lens _goarsResponseStatus (\ s a -> s{_goarsResponseStatus = a}); -instance NFData GetObjectACLResponse+instance NFData GetObjectACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetObjectTagging--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,9 +25,9 @@       getObjectTagging     , GetObjectTagging     -- * Request Lenses+    , gotoVersionId     , gotoBucket     , gotoKey-    , gotoVersionId      -- * Destructuring the Response     , getObjectTaggingResponse@@ -38,42 +38,44 @@     , gotrsTagSet     ) 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+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:/ 'getObjectTagging' smart constructor. data GetObjectTagging = GetObjectTagging'-    { _gotoBucket    :: !BucketName-    , _gotoKey       :: !ObjectKey-    , _gotoVersionId :: !ObjectVersionId-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gotoVersionId :: !(Maybe ObjectVersionId)+  , _gotoBucket    :: !BucketName+  , _gotoKey       :: !ObjectKey+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObjectTagging' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gotoVersionId' - Undocumented member.+-- -- * 'gotoBucket' - Undocumented member. -- -- * 'gotoKey' - Undocumented member.------ * 'gotoVersionId' - Undocumented member. getObjectTagging     :: BucketName -- ^ 'gotoBucket'     -> ObjectKey -- ^ 'gotoKey'-    -> ObjectVersionId -- ^ 'gotoVersionId'     -> GetObjectTagging-getObjectTagging pBucket_ pKey_ pVersionId_ =-    GetObjectTagging'-    { _gotoBucket = pBucket_-    , _gotoKey = pKey_-    , _gotoVersionId = pVersionId_-    }+getObjectTagging pBucket_ pKey_ =+  GetObjectTagging'+  {_gotoVersionId = Nothing, _gotoBucket = pBucket_, _gotoKey = pKey_} + -- | Undocumented member.+gotoVersionId :: Lens' GetObjectTagging (Maybe ObjectVersionId)+gotoVersionId = lens _gotoVersionId (\ s a -> s{_gotoVersionId = a});++-- | Undocumented member. gotoBucket :: Lens' GetObjectTagging BucketName gotoBucket = lens _gotoBucket (\ s a -> s{_gotoBucket = a}); @@ -81,10 +83,6 @@ gotoKey :: Lens' GetObjectTagging ObjectKey gotoKey = lens _gotoKey (\ s a -> s{_gotoKey = a}); --- | Undocumented member.-gotoVersionId :: Lens' GetObjectTagging ObjectVersionId-gotoVersionId = lens _gotoVersionId (\ s a -> s{_gotoVersionId = a});- instance AWSRequest GetObjectTagging where         type Rs GetObjectTagging = GetObjectTaggingResponse         request = get s3@@ -96,9 +94,9 @@                      <*>                      (x .@? "TagSet" .!@ mempty >>= parseXMLList "Tag")) -instance Hashable GetObjectTagging+instance Hashable GetObjectTagging where -instance NFData GetObjectTagging+instance NFData GetObjectTagging where  instance ToHeaders GetObjectTagging where         toHeaders = const mempty@@ -108,15 +106,17 @@           = mconcat ["/", toBS _gotoBucket, "/", toBS _gotoKey]  instance ToQuery GetObjectTagging where-        toQuery = const (mconcat ["tagging"])+        toQuery GetObjectTagging'{..}+          = mconcat ["versionId" =: _gotoVersionId, "tagging"]  -- | /See:/ 'getObjectTaggingResponse' smart constructor. data GetObjectTaggingResponse = GetObjectTaggingResponse'-    { _gotrsVersionId      :: !(Maybe ObjectVersionId)-    , _gotrsResponseStatus :: !Int-    , _gotrsTagSet         :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gotrsVersionId      :: !(Maybe ObjectVersionId)+  , _gotrsResponseStatus :: !Int+  , _gotrsTagSet         :: ![Tag]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObjectTaggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +130,13 @@     :: Int -- ^ 'gotrsResponseStatus'     -> GetObjectTaggingResponse getObjectTaggingResponse pResponseStatus_ =-    GetObjectTaggingResponse'-    { _gotrsVersionId = Nothing-    , _gotrsResponseStatus = pResponseStatus_-    , _gotrsTagSet = mempty-    }+  GetObjectTaggingResponse'+  { _gotrsVersionId = Nothing+  , _gotrsResponseStatus = pResponseStatus_+  , _gotrsTagSet = mempty+  } + -- | Undocumented member. gotrsVersionId :: Lens' GetObjectTaggingResponse (Maybe ObjectVersionId) gotrsVersionId = lens _gotrsVersionId (\ s a -> s{_gotrsVersionId = a});@@ -148,4 +149,4 @@ gotrsTagSet :: Lens' GetObjectTaggingResponse [Tag] gotrsTagSet = lens _gotrsTagSet (\ s a -> s{_gotrsTagSet = a}) . _Coerce; -instance NFData GetObjectTaggingResponse+instance NFData GetObjectTaggingResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.GetObjectTorrent--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,20 +38,21 @@     , getrsBody     ) 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+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:/ 'getObjectTorrent' smart constructor. data GetObjectTorrent = GetObjectTorrent'-    { _gotRequestPayer :: !(Maybe RequestPayer)-    , _gotBucket       :: !BucketName-    , _gotKey          :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gotRequestPayer :: !(Maybe RequestPayer)+  , _gotBucket       :: !BucketName+  , _gotKey          :: !ObjectKey+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetObjectTorrent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,12 +67,10 @@     -> ObjectKey -- ^ 'gotKey'     -> GetObjectTorrent getObjectTorrent pBucket_ pKey_ =-    GetObjectTorrent'-    { _gotRequestPayer = Nothing-    , _gotBucket = pBucket_-    , _gotKey = pKey_-    }+  GetObjectTorrent'+  {_gotRequestPayer = Nothing, _gotBucket = pBucket_, _gotKey = pKey_} + -- | Undocumented member. gotRequestPayer :: Lens' GetObjectTorrent (Maybe RequestPayer) gotRequestPayer = lens _gotRequestPayer (\ s a -> s{_gotRequestPayer = a});@@ -95,9 +94,9 @@                      (pure (fromEnum s))                      <*> (pure x)) -instance Hashable GetObjectTorrent+instance Hashable GetObjectTorrent where -instance NFData GetObjectTorrent+instance NFData GetObjectTorrent where  instance ToHeaders GetObjectTorrent where         toHeaders GetObjectTorrent'{..}@@ -112,11 +111,12 @@  -- | /See:/ 'getObjectTorrentResponse' smart constructor. data GetObjectTorrentResponse = GetObjectTorrentResponse'-    { _getrsRequestCharged :: !(Maybe RequestCharged)-    , _getrsResponseStatus :: !Int-    , _getrsBody           :: !RsBody-    } deriving (Show,Generic)+  { _getrsRequestCharged :: !(Maybe RequestCharged)+  , _getrsResponseStatus :: !Int+  , _getrsBody           :: !RsBody+  } deriving (Show, Generic) + -- | Creates a value of 'GetObjectTorrentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +131,12 @@     -> RsBody -- ^ 'getrsBody'     -> GetObjectTorrentResponse getObjectTorrentResponse pResponseStatus_ pBody_ =-    GetObjectTorrentResponse'-    { _getrsRequestCharged = Nothing-    , _getrsResponseStatus = pResponseStatus_-    , _getrsBody = pBody_-    }+  GetObjectTorrentResponse'+  { _getrsRequestCharged = Nothing+  , _getrsResponseStatus = pResponseStatus_+  , _getrsBody = pBody_+  }+  -- | Undocumented member. getrsRequestCharged :: Lens' GetObjectTorrentResponse (Maybe RequestCharged)

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.HeadBucket--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -32,18 +32,19 @@     , HeadBucketResponse     ) 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+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:/ 'headBucket' smart constructor. newtype HeadBucket = HeadBucket'-    { _hbBucket :: BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _hbBucket :: BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'HeadBucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -52,11 +53,9 @@ headBucket     :: BucketName -- ^ 'hbBucket'     -> HeadBucket-headBucket pBucket_ =-    HeadBucket'-    { _hbBucket = pBucket_-    }+headBucket pBucket_ = HeadBucket' {_hbBucket = pBucket_} + -- | Undocumented member. hbBucket :: Lens' HeadBucket BucketName hbBucket = lens _hbBucket (\ s a -> s{_hbBucket = a});@@ -66,9 +65,9 @@         request = head' s3         response = receiveNull HeadBucketResponse' -instance Hashable HeadBucket+instance Hashable HeadBucket where -instance NFData HeadBucket+instance NFData HeadBucket where  instance ToHeaders HeadBucket where         toHeaders = const mempty@@ -82,13 +81,15 @@  -- | /See:/ 'headBucketResponse' smart constructor. data HeadBucketResponse =-    HeadBucketResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  HeadBucketResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'HeadBucketResponse' with the minimum fields required to make a request. -- headBucketResponse     :: HeadBucketResponse headBucketResponse = HeadBucketResponse' -instance NFData HeadBucketResponse++instance NFData HeadBucketResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.HeadObject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -71,30 +71,31 @@     , horsResponseStatus     ) 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+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:/ 'headObject' smart constructor. data HeadObject = HeadObject'-    { _hoIfMatch              :: !(Maybe Text)-    , _hoVersionId            :: !(Maybe ObjectVersionId)-    , _hoSSECustomerAlgorithm :: !(Maybe Text)-    , _hoSSECustomerKey       :: !(Maybe (Sensitive Text))-    , _hoRequestPayer         :: !(Maybe RequestPayer)-    , _hoIfModifiedSince      :: !(Maybe RFC822)-    , _hoPartNumber           :: !(Maybe Int)-    , _hoRange                :: !(Maybe Text)-    , _hoIfUnmodifiedSince    :: !(Maybe RFC822)-    , _hoSSECustomerKeyMD5    :: !(Maybe Text)-    , _hoIfNoneMatch          :: !(Maybe Text)-    , _hoBucket               :: !BucketName-    , _hoKey                  :: !ObjectKey-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _hoIfMatch              :: !(Maybe Text)+  , _hoVersionId            :: !(Maybe ObjectVersionId)+  , _hoSSECustomerAlgorithm :: !(Maybe Text)+  , _hoSSECustomerKey       :: !(Maybe (Sensitive Text))+  , _hoRequestPayer         :: !(Maybe RequestPayer)+  , _hoIfModifiedSince      :: !(Maybe RFC822)+  , _hoPartNumber           :: !(Maybe Int)+  , _hoRange                :: !(Maybe Text)+  , _hoIfUnmodifiedSince    :: !(Maybe RFC822)+  , _hoSSECustomerKeyMD5    :: !(Maybe Text)+  , _hoIfNoneMatch          :: !(Maybe Text)+  , _hoBucket               :: !BucketName+  , _hoKey                  :: !ObjectKey+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HeadObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,22 +130,23 @@     -> ObjectKey -- ^ 'hoKey'     -> HeadObject headObject pBucket_ pKey_ =-    HeadObject'-    { _hoIfMatch = Nothing-    , _hoVersionId = Nothing-    , _hoSSECustomerAlgorithm = Nothing-    , _hoSSECustomerKey = Nothing-    , _hoRequestPayer = Nothing-    , _hoIfModifiedSince = Nothing-    , _hoPartNumber = Nothing-    , _hoRange = Nothing-    , _hoIfUnmodifiedSince = Nothing-    , _hoSSECustomerKeyMD5 = Nothing-    , _hoIfNoneMatch = Nothing-    , _hoBucket = pBucket_-    , _hoKey = pKey_-    }+  HeadObject'+  { _hoIfMatch = Nothing+  , _hoVersionId = Nothing+  , _hoSSECustomerAlgorithm = Nothing+  , _hoSSECustomerKey = Nothing+  , _hoRequestPayer = Nothing+  , _hoIfModifiedSince = Nothing+  , _hoPartNumber = Nothing+  , _hoRange = Nothing+  , _hoIfUnmodifiedSince = Nothing+  , _hoSSECustomerKeyMD5 = Nothing+  , _hoIfNoneMatch = Nothing+  , _hoBucket = pBucket_+  , _hoKey = pKey_+  } + -- | Return the object only if its entity tag (ETag) is the same as the one specified, otherwise return a 412 (precondition failed). hoIfMatch :: Lens' HeadObject (Maybe Text) hoIfMatch = lens _hoIfMatch (\ s a -> s{_hoIfMatch = a});@@ -236,9 +238,9 @@                      <*> (h .#? "Content-Type")                      <*> (pure (fromEnum s))) -instance Hashable HeadObject+instance Hashable HeadObject where -instance NFData HeadObject+instance NFData HeadObject where  instance ToHeaders HeadObject where         toHeaders HeadObject'{..}@@ -268,34 +270,35 @@  -- | /See:/ 'headObjectResponse' smart constructor. data HeadObjectResponse = HeadObjectResponse'-    { _horsRequestCharged          :: !(Maybe RequestCharged)-    , _horsPartsCount              :: !(Maybe Int)-    , _horsETag                    :: !(Maybe ETag)-    , _horsVersionId               :: !(Maybe ObjectVersionId)-    , _horsContentLength           :: !(Maybe Integer)-    , _horsExpires                 :: !(Maybe RFC822)-    , _horsRestore                 :: !(Maybe Text)-    , _horsExpiration              :: !(Maybe Text)-    , _horsDeleteMarker            :: !(Maybe Bool)-    , _horsSSECustomerAlgorithm    :: !(Maybe Text)-    , _horsMissingMeta             :: !(Maybe Int)-    , _horsWebsiteRedirectLocation :: !(Maybe Text)-    , _horsAcceptRanges            :: !(Maybe Text)-    , _horsStorageClass            :: !(Maybe StorageClass)-    , _horsSSECustomerKeyMD5       :: !(Maybe Text)-    , _horsSSEKMSKeyId             :: !(Maybe (Sensitive Text))-    , _horsContentEncoding         :: !(Maybe Text)-    , _horsMetadata                :: !(Map Text Text)-    , _horsReplicationStatus       :: !(Maybe ReplicationStatus)-    , _horsCacheControl            :: !(Maybe Text)-    , _horsContentLanguage         :: !(Maybe Text)-    , _horsLastModified            :: !(Maybe RFC822)-    , _horsContentDisposition      :: !(Maybe Text)-    , _horsServerSideEncryption    :: !(Maybe ServerSideEncryption)-    , _horsContentType             :: !(Maybe Text)-    , _horsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _horsRequestCharged          :: !(Maybe RequestCharged)+  , _horsPartsCount              :: !(Maybe Int)+  , _horsETag                    :: !(Maybe ETag)+  , _horsVersionId               :: !(Maybe ObjectVersionId)+  , _horsContentLength           :: !(Maybe Integer)+  , _horsExpires                 :: !(Maybe RFC822)+  , _horsRestore                 :: !(Maybe Text)+  , _horsExpiration              :: !(Maybe Text)+  , _horsDeleteMarker            :: !(Maybe Bool)+  , _horsSSECustomerAlgorithm    :: !(Maybe Text)+  , _horsMissingMeta             :: !(Maybe Int)+  , _horsWebsiteRedirectLocation :: !(Maybe Text)+  , _horsAcceptRanges            :: !(Maybe Text)+  , _horsStorageClass            :: !(Maybe StorageClass)+  , _horsSSECustomerKeyMD5       :: !(Maybe Text)+  , _horsSSEKMSKeyId             :: !(Maybe (Sensitive Text))+  , _horsContentEncoding         :: !(Maybe Text)+  , _horsMetadata                :: !(Map Text Text)+  , _horsReplicationStatus       :: !(Maybe ReplicationStatus)+  , _horsCacheControl            :: !(Maybe Text)+  , _horsContentLanguage         :: !(Maybe Text)+  , _horsLastModified            :: !(Maybe RFC822)+  , _horsContentDisposition      :: !(Maybe Text)+  , _horsServerSideEncryption    :: !(Maybe ServerSideEncryption)+  , _horsContentType             :: !(Maybe Text)+  , _horsResponseStatus          :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HeadObjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -355,35 +358,36 @@     :: Int -- ^ 'horsResponseStatus'     -> HeadObjectResponse headObjectResponse pResponseStatus_ =-    HeadObjectResponse'-    { _horsRequestCharged = Nothing-    , _horsPartsCount = Nothing-    , _horsETag = Nothing-    , _horsVersionId = Nothing-    , _horsContentLength = Nothing-    , _horsExpires = Nothing-    , _horsRestore = Nothing-    , _horsExpiration = Nothing-    , _horsDeleteMarker = Nothing-    , _horsSSECustomerAlgorithm = Nothing-    , _horsMissingMeta = Nothing-    , _horsWebsiteRedirectLocation = Nothing-    , _horsAcceptRanges = Nothing-    , _horsStorageClass = Nothing-    , _horsSSECustomerKeyMD5 = Nothing-    , _horsSSEKMSKeyId = Nothing-    , _horsContentEncoding = Nothing-    , _horsMetadata = mempty-    , _horsReplicationStatus = Nothing-    , _horsCacheControl = Nothing-    , _horsContentLanguage = Nothing-    , _horsLastModified = Nothing-    , _horsContentDisposition = Nothing-    , _horsServerSideEncryption = Nothing-    , _horsContentType = Nothing-    , _horsResponseStatus = pResponseStatus_-    }+  HeadObjectResponse'+  { _horsRequestCharged = Nothing+  , _horsPartsCount = Nothing+  , _horsETag = Nothing+  , _horsVersionId = Nothing+  , _horsContentLength = Nothing+  , _horsExpires = Nothing+  , _horsRestore = Nothing+  , _horsExpiration = Nothing+  , _horsDeleteMarker = Nothing+  , _horsSSECustomerAlgorithm = Nothing+  , _horsMissingMeta = Nothing+  , _horsWebsiteRedirectLocation = Nothing+  , _horsAcceptRanges = Nothing+  , _horsStorageClass = Nothing+  , _horsSSECustomerKeyMD5 = Nothing+  , _horsSSEKMSKeyId = Nothing+  , _horsContentEncoding = Nothing+  , _horsMetadata = mempty+  , _horsReplicationStatus = Nothing+  , _horsCacheControl = Nothing+  , _horsContentLanguage = Nothing+  , _horsLastModified = Nothing+  , _horsContentDisposition = Nothing+  , _horsServerSideEncryption = Nothing+  , _horsContentType = Nothing+  , _horsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. horsRequestCharged :: Lens' HeadObjectResponse (Maybe RequestCharged) horsRequestCharged = lens _horsRequestCharged (\ s a -> s{_horsRequestCharged = a});@@ -488,4 +492,4 @@ horsResponseStatus :: Lens' HeadObjectResponse Int horsResponseStatus = lens _horsResponseStatus (\ s a -> s{_horsResponseStatus = a}); -instance NFData HeadObjectResponse+instance NFData HeadObjectResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListBucketAnalyticsConfigurations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,19 +39,20 @@     , lbacrsResponseStatus     ) 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+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:/ 'listBucketAnalyticsConfigurations' smart constructor. data ListBucketAnalyticsConfigurations = ListBucketAnalyticsConfigurations'-    { _lbacContinuationToken :: !(Maybe Text)-    , _lbacBucket            :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbacContinuationToken :: !(Maybe Text)+  , _lbacBucket            :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketAnalyticsConfigurations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,10 @@     :: BucketName -- ^ 'lbacBucket'     -> ListBucketAnalyticsConfigurations listBucketAnalyticsConfigurations pBucket_ =-    ListBucketAnalyticsConfigurations'-    { _lbacContinuationToken = Nothing-    , _lbacBucket = pBucket_-    }+  ListBucketAnalyticsConfigurations'+  {_lbacContinuationToken = Nothing, _lbacBucket = pBucket_} + -- | The ContinuationToken that represents a placeholder from where this request should begin. lbacContinuationToken :: Lens' ListBucketAnalyticsConfigurations (Maybe Text) lbacContinuationToken = lens _lbacContinuationToken (\ s a -> s{_lbacContinuationToken = a});@@ -92,8 +92,10 @@                      <*> (pure (fromEnum s)))  instance Hashable ListBucketAnalyticsConfigurations+         where  instance NFData ListBucketAnalyticsConfigurations+         where  instance ToHeaders ListBucketAnalyticsConfigurations          where@@ -113,13 +115,14 @@  -- | /See:/ 'listBucketAnalyticsConfigurationsResponse' smart constructor. data ListBucketAnalyticsConfigurationsResponse = ListBucketAnalyticsConfigurationsResponse'-    { _lbacrsAnalyticsConfigurationList :: !(Maybe [AnalyticsConfiguration])-    , _lbacrsContinuationToken          :: !(Maybe Text)-    , _lbacrsNextContinuationToken      :: !(Maybe Text)-    , _lbacrsIsTruncated                :: !(Maybe Bool)-    , _lbacrsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbacrsAnalyticsConfigurationList :: !(Maybe [AnalyticsConfiguration])+  , _lbacrsContinuationToken          :: !(Maybe Text)+  , _lbacrsNextContinuationToken      :: !(Maybe Text)+  , _lbacrsIsTruncated                :: !(Maybe Bool)+  , _lbacrsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketAnalyticsConfigurationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,14 +140,15 @@     :: Int -- ^ 'lbacrsResponseStatus'     -> ListBucketAnalyticsConfigurationsResponse listBucketAnalyticsConfigurationsResponse pResponseStatus_ =-    ListBucketAnalyticsConfigurationsResponse'-    { _lbacrsAnalyticsConfigurationList = Nothing-    , _lbacrsContinuationToken = Nothing-    , _lbacrsNextContinuationToken = Nothing-    , _lbacrsIsTruncated = Nothing-    , _lbacrsResponseStatus = pResponseStatus_-    }+  ListBucketAnalyticsConfigurationsResponse'+  { _lbacrsAnalyticsConfigurationList = Nothing+  , _lbacrsContinuationToken = Nothing+  , _lbacrsNextContinuationToken = Nothing+  , _lbacrsIsTruncated = Nothing+  , _lbacrsResponseStatus = pResponseStatus_+  } + -- | The list of analytics configurations for a bucket. lbacrsAnalyticsConfigurationList :: Lens' ListBucketAnalyticsConfigurationsResponse [AnalyticsConfiguration] lbacrsAnalyticsConfigurationList = lens _lbacrsAnalyticsConfigurationList (\ s a -> s{_lbacrsAnalyticsConfigurationList = a}) . _Default . _Coerce;@@ -166,4 +170,5 @@ lbacrsResponseStatus = lens _lbacrsResponseStatus (\ s a -> s{_lbacrsResponseStatus = a});  instance NFData-         ListBucketAnalyticsConfigurationsResponse+           ListBucketAnalyticsConfigurationsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListBucketInventoryConfigurations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,19 +39,20 @@     , lbicrsResponseStatus     ) 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+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:/ 'listBucketInventoryConfigurations' smart constructor. data ListBucketInventoryConfigurations = ListBucketInventoryConfigurations'-    { _lbicContinuationToken :: !(Maybe Text)-    , _lbicBucket            :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbicContinuationToken :: !(Maybe Text)+  , _lbicBucket            :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketInventoryConfigurations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,10 @@     :: BucketName -- ^ 'lbicBucket'     -> ListBucketInventoryConfigurations listBucketInventoryConfigurations pBucket_ =-    ListBucketInventoryConfigurations'-    { _lbicContinuationToken = Nothing-    , _lbicBucket = pBucket_-    }+  ListBucketInventoryConfigurations'+  {_lbicContinuationToken = Nothing, _lbicBucket = pBucket_} + -- | The marker used to continue an inventory configuration listing that has been truncated. Use the NextContinuationToken from a previously truncated list response to continue the listing. The continuation token is an opaque value that Amazon S3 understands. lbicContinuationToken :: Lens' ListBucketInventoryConfigurations (Maybe Text) lbicContinuationToken = lens _lbicContinuationToken (\ s a -> s{_lbicContinuationToken = a});@@ -92,8 +92,10 @@                      <*> (pure (fromEnum s)))  instance Hashable ListBucketInventoryConfigurations+         where  instance NFData ListBucketInventoryConfigurations+         where  instance ToHeaders ListBucketInventoryConfigurations          where@@ -113,13 +115,14 @@  -- | /See:/ 'listBucketInventoryConfigurationsResponse' smart constructor. data ListBucketInventoryConfigurationsResponse = ListBucketInventoryConfigurationsResponse'-    { _lbicrsContinuationToken          :: !(Maybe Text)-    , _lbicrsInventoryConfigurationList :: !(Maybe [InventoryConfiguration])-    , _lbicrsNextContinuationToken      :: !(Maybe Text)-    , _lbicrsIsTruncated                :: !(Maybe Bool)-    , _lbicrsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbicrsContinuationToken          :: !(Maybe Text)+  , _lbicrsInventoryConfigurationList :: !(Maybe [InventoryConfiguration])+  , _lbicrsNextContinuationToken      :: !(Maybe Text)+  , _lbicrsIsTruncated                :: !(Maybe Bool)+  , _lbicrsResponseStatus             :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketInventoryConfigurationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,14 +140,15 @@     :: Int -- ^ 'lbicrsResponseStatus'     -> ListBucketInventoryConfigurationsResponse listBucketInventoryConfigurationsResponse pResponseStatus_ =-    ListBucketInventoryConfigurationsResponse'-    { _lbicrsContinuationToken = Nothing-    , _lbicrsInventoryConfigurationList = Nothing-    , _lbicrsNextContinuationToken = Nothing-    , _lbicrsIsTruncated = Nothing-    , _lbicrsResponseStatus = pResponseStatus_-    }+  ListBucketInventoryConfigurationsResponse'+  { _lbicrsContinuationToken = Nothing+  , _lbicrsInventoryConfigurationList = Nothing+  , _lbicrsNextContinuationToken = Nothing+  , _lbicrsIsTruncated = Nothing+  , _lbicrsResponseStatus = pResponseStatus_+  } + -- | If sent in the request, the marker that is used as a starting point for this inventory configuration list response. lbicrsContinuationToken :: Lens' ListBucketInventoryConfigurationsResponse (Maybe Text) lbicrsContinuationToken = lens _lbicrsContinuationToken (\ s a -> s{_lbicrsContinuationToken = a});@@ -166,4 +170,5 @@ lbicrsResponseStatus = lens _lbicrsResponseStatus (\ s a -> s{_lbicrsResponseStatus = a});  instance NFData-         ListBucketInventoryConfigurationsResponse+           ListBucketInventoryConfigurationsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListBucketMetricsConfigurations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,19 +39,20 @@     , lbmcrsResponseStatus     ) 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+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:/ 'listBucketMetricsConfigurations' smart constructor. data ListBucketMetricsConfigurations = ListBucketMetricsConfigurations'-    { _lbmcContinuationToken :: !(Maybe Text)-    , _lbmcBucket            :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbmcContinuationToken :: !(Maybe Text)+  , _lbmcBucket            :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketMetricsConfigurations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,10 @@     :: BucketName -- ^ 'lbmcBucket'     -> ListBucketMetricsConfigurations listBucketMetricsConfigurations pBucket_ =-    ListBucketMetricsConfigurations'-    { _lbmcContinuationToken = Nothing-    , _lbmcBucket = pBucket_-    }+  ListBucketMetricsConfigurations'+  {_lbmcContinuationToken = Nothing, _lbmcBucket = pBucket_} + -- | The marker that is used to continue a metrics configuration listing that has been truncated. Use the NextContinuationToken from a previously truncated list response to continue the listing. The continuation token is an opaque value that Amazon S3 understands. lbmcContinuationToken :: Lens' ListBucketMetricsConfigurations (Maybe Text) lbmcContinuationToken = lens _lbmcContinuationToken (\ s a -> s{_lbmcContinuationToken = a});@@ -92,8 +92,9 @@                      <*> (pure (fromEnum s)))  instance Hashable ListBucketMetricsConfigurations+         where -instance NFData ListBucketMetricsConfigurations+instance NFData ListBucketMetricsConfigurations where  instance ToHeaders ListBucketMetricsConfigurations          where@@ -112,13 +113,14 @@  -- | /See:/ 'listBucketMetricsConfigurationsResponse' smart constructor. data ListBucketMetricsConfigurationsResponse = ListBucketMetricsConfigurationsResponse'-    { _lbmcrsContinuationToken        :: !(Maybe Text)-    , _lbmcrsMetricsConfigurationList :: !(Maybe [MetricsConfiguration])-    , _lbmcrsNextContinuationToken    :: !(Maybe Text)-    , _lbmcrsIsTruncated              :: !(Maybe Bool)-    , _lbmcrsResponseStatus           :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbmcrsContinuationToken        :: !(Maybe Text)+  , _lbmcrsMetricsConfigurationList :: !(Maybe [MetricsConfiguration])+  , _lbmcrsNextContinuationToken    :: !(Maybe Text)+  , _lbmcrsIsTruncated              :: !(Maybe Bool)+  , _lbmcrsResponseStatus           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketMetricsConfigurationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,14 +138,15 @@     :: Int -- ^ 'lbmcrsResponseStatus'     -> ListBucketMetricsConfigurationsResponse listBucketMetricsConfigurationsResponse pResponseStatus_ =-    ListBucketMetricsConfigurationsResponse'-    { _lbmcrsContinuationToken = Nothing-    , _lbmcrsMetricsConfigurationList = Nothing-    , _lbmcrsNextContinuationToken = Nothing-    , _lbmcrsIsTruncated = Nothing-    , _lbmcrsResponseStatus = pResponseStatus_-    }+  ListBucketMetricsConfigurationsResponse'+  { _lbmcrsContinuationToken = Nothing+  , _lbmcrsMetricsConfigurationList = Nothing+  , _lbmcrsNextContinuationToken = Nothing+  , _lbmcrsIsTruncated = Nothing+  , _lbmcrsResponseStatus = pResponseStatus_+  } + -- | The marker that is used as a starting point for this metrics configuration list response. This value is present if it was sent in the request. lbmcrsContinuationToken :: Lens' ListBucketMetricsConfigurationsResponse (Maybe Text) lbmcrsContinuationToken = lens _lbmcrsContinuationToken (\ s a -> s{_lbmcrsContinuationToken = a});@@ -165,4 +168,5 @@ lbmcrsResponseStatus = lens _lbmcrsResponseStatus (\ s a -> s{_lbmcrsResponseStatus = a});  instance NFData-         ListBucketMetricsConfigurationsResponse+           ListBucketMetricsConfigurationsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListBuckets--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,24 +34,26 @@     , lbrsResponseStatus     ) 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+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:/ 'listBuckets' smart constructor. data ListBuckets =-    ListBuckets'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  ListBuckets'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuckets' with the minimum fields required to make a request. -- listBuckets     :: ListBuckets listBuckets = ListBuckets' + instance AWSRequest ListBuckets where         type Rs ListBuckets = ListBucketsResponse         request = get s3@@ -64,9 +66,9 @@                      <*> (x .@? "Owner")                      <*> (pure (fromEnum s))) -instance Hashable ListBuckets+instance Hashable ListBuckets where -instance NFData ListBuckets+instance NFData ListBuckets where  instance ToHeaders ListBuckets where         toHeaders = const mempty@@ -79,11 +81,12 @@  -- | /See:/ 'listBucketsResponse' smart constructor. data ListBucketsResponse = ListBucketsResponse'-    { _lbrsBuckets        :: !(Maybe [Bucket])-    , _lbrsOwner          :: !(Maybe Owner)-    , _lbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbrsBuckets        :: !(Maybe [Bucket])+  , _lbrsOwner          :: !(Maybe Owner)+  , _lbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBucketsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,12 +100,13 @@     :: Int -- ^ 'lbrsResponseStatus'     -> ListBucketsResponse listBucketsResponse pResponseStatus_ =-    ListBucketsResponse'-    { _lbrsBuckets = Nothing-    , _lbrsOwner = Nothing-    , _lbrsResponseStatus = pResponseStatus_-    }+  ListBucketsResponse'+  { _lbrsBuckets = Nothing+  , _lbrsOwner = Nothing+  , _lbrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lbrsBuckets :: Lens' ListBucketsResponse [Bucket] lbrsBuckets = lens _lbrsBuckets (\ s a -> s{_lbrsBuckets = a}) . _Default . _Coerce;@@ -115,4 +119,4 @@ lbrsResponseStatus :: Lens' ListBucketsResponse Int lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a}); -instance NFData ListBucketsResponse+instance NFData ListBucketsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListMultipartUploads--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -54,25 +54,26 @@     , lmursResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.S3.Types-import           Network.AWS.S3.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.S3.Types+import Network.AWS.S3.Types.Product  -- | /See:/ 'listMultipartUploads' smart constructor. data ListMultipartUploads = ListMultipartUploads'-    { _lmuKeyMarker      :: !(Maybe Text)-    , _lmuPrefix         :: !(Maybe Text)-    , _lmuEncodingType   :: !(Maybe EncodingType)-    , _lmuUploadIdMarker :: !(Maybe Text)-    , _lmuMaxUploads     :: !(Maybe Int)-    , _lmuDelimiter      :: !(Maybe Delimiter)-    , _lmuBucket         :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lmuKeyMarker      :: !(Maybe Text)+  , _lmuPrefix         :: !(Maybe Text)+  , _lmuEncodingType   :: !(Maybe EncodingType)+  , _lmuUploadIdMarker :: !(Maybe Text)+  , _lmuMaxUploads     :: !(Maybe Int)+  , _lmuDelimiter      :: !(Maybe Delimiter)+  , _lmuBucket         :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMultipartUploads' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,16 +95,17 @@     :: BucketName -- ^ 'lmuBucket'     -> ListMultipartUploads listMultipartUploads pBucket_ =-    ListMultipartUploads'-    { _lmuKeyMarker = Nothing-    , _lmuPrefix = Nothing-    , _lmuEncodingType = Nothing-    , _lmuUploadIdMarker = Nothing-    , _lmuMaxUploads = Nothing-    , _lmuDelimiter = Nothing-    , _lmuBucket = pBucket_-    }+  ListMultipartUploads'+  { _lmuKeyMarker = Nothing+  , _lmuPrefix = Nothing+  , _lmuEncodingType = Nothing+  , _lmuUploadIdMarker = Nothing+  , _lmuMaxUploads = Nothing+  , _lmuDelimiter = Nothing+  , _lmuBucket = pBucket_+  } + -- | Together with upload-id-marker, this parameter specifies the multipart upload after which listing should begin. lmuKeyMarker :: Lens' ListMultipartUploads (Maybe Text) lmuKeyMarker = lens _lmuKeyMarker (\ s a -> s{_lmuKeyMarker = a});@@ -163,9 +165,9 @@                      <*> (x .@? "Delimiter")                      <*> (pure (fromEnum s))) -instance Hashable ListMultipartUploads+instance Hashable ListMultipartUploads where -instance NFData ListMultipartUploads+instance NFData ListMultipartUploads where  instance ToHeaders ListMultipartUploads where         toHeaders = const mempty@@ -186,21 +188,22 @@  -- | /See:/ 'listMultipartUploadsResponse' smart constructor. data ListMultipartUploadsResponse = ListMultipartUploadsResponse'-    { _lmursKeyMarker          :: !(Maybe Text)-    , _lmursPrefix             :: !(Maybe Text)-    , _lmursCommonPrefixes     :: !(Maybe [CommonPrefix])-    , _lmursEncodingType       :: !(Maybe EncodingType)-    , _lmursBucket             :: !(Maybe BucketName)-    , _lmursUploadIdMarker     :: !(Maybe Text)-    , _lmursMaxUploads         :: !(Maybe Int)-    , _lmursNextKeyMarker      :: !(Maybe Text)-    , _lmursUploads            :: !(Maybe [MultipartUpload])-    , _lmursIsTruncated        :: !(Maybe Bool)-    , _lmursNextUploadIdMarker :: !(Maybe Text)-    , _lmursDelimiter          :: !(Maybe Delimiter)-    , _lmursResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lmursKeyMarker          :: !(Maybe Text)+  , _lmursPrefix             :: !(Maybe Text)+  , _lmursCommonPrefixes     :: !(Maybe [CommonPrefix])+  , _lmursEncodingType       :: !(Maybe EncodingType)+  , _lmursBucket             :: !(Maybe BucketName)+  , _lmursUploadIdMarker     :: !(Maybe Text)+  , _lmursMaxUploads         :: !(Maybe Int)+  , _lmursNextKeyMarker      :: !(Maybe Text)+  , _lmursUploads            :: !(Maybe [MultipartUpload])+  , _lmursIsTruncated        :: !(Maybe Bool)+  , _lmursNextUploadIdMarker :: !(Maybe Text)+  , _lmursDelimiter          :: !(Maybe Delimiter)+  , _lmursResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMultipartUploadsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -234,22 +237,23 @@     :: Int -- ^ 'lmursResponseStatus'     -> ListMultipartUploadsResponse listMultipartUploadsResponse pResponseStatus_ =-    ListMultipartUploadsResponse'-    { _lmursKeyMarker = Nothing-    , _lmursPrefix = Nothing-    , _lmursCommonPrefixes = Nothing-    , _lmursEncodingType = Nothing-    , _lmursBucket = Nothing-    , _lmursUploadIdMarker = Nothing-    , _lmursMaxUploads = Nothing-    , _lmursNextKeyMarker = Nothing-    , _lmursUploads = Nothing-    , _lmursIsTruncated = Nothing-    , _lmursNextUploadIdMarker = Nothing-    , _lmursDelimiter = Nothing-    , _lmursResponseStatus = pResponseStatus_-    }+  ListMultipartUploadsResponse'+  { _lmursKeyMarker = Nothing+  , _lmursPrefix = Nothing+  , _lmursCommonPrefixes = Nothing+  , _lmursEncodingType = Nothing+  , _lmursBucket = Nothing+  , _lmursUploadIdMarker = Nothing+  , _lmursMaxUploads = Nothing+  , _lmursNextKeyMarker = Nothing+  , _lmursUploads = Nothing+  , _lmursIsTruncated = Nothing+  , _lmursNextUploadIdMarker = Nothing+  , _lmursDelimiter = Nothing+  , _lmursResponseStatus = pResponseStatus_+  } + -- | The key at or after which the listing began. lmursKeyMarker :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursKeyMarker = lens _lmursKeyMarker (\ s a -> s{_lmursKeyMarker = a});@@ -302,4 +306,4 @@ lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a}); -instance NFData ListMultipartUploadsResponse+instance NFData ListMultipartUploadsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListObjectVersions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -55,25 +55,26 @@     , lovrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.S3.Types-import           Network.AWS.S3.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.S3.Types+import Network.AWS.S3.Types.Product  -- | /See:/ 'listObjectVersions' smart constructor. data ListObjectVersions = ListObjectVersions'-    { _lovKeyMarker       :: !(Maybe Text)-    , _lovPrefix          :: !(Maybe Text)-    , _lovEncodingType    :: !(Maybe EncodingType)-    , _lovVersionIdMarker :: !(Maybe Text)-    , _lovMaxKeys         :: !(Maybe Int)-    , _lovDelimiter       :: !(Maybe Delimiter)-    , _lovBucket          :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lovKeyMarker       :: !(Maybe Text)+  , _lovPrefix          :: !(Maybe Text)+  , _lovEncodingType    :: !(Maybe EncodingType)+  , _lovVersionIdMarker :: !(Maybe Text)+  , _lovMaxKeys         :: !(Maybe Int)+  , _lovDelimiter       :: !(Maybe Delimiter)+  , _lovBucket          :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjectVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,16 +96,17 @@     :: BucketName -- ^ 'lovBucket'     -> ListObjectVersions listObjectVersions pBucket_ =-    ListObjectVersions'-    { _lovKeyMarker = Nothing-    , _lovPrefix = Nothing-    , _lovEncodingType = Nothing-    , _lovVersionIdMarker = Nothing-    , _lovMaxKeys = Nothing-    , _lovDelimiter = Nothing-    , _lovBucket = pBucket_-    }+  ListObjectVersions'+  { _lovKeyMarker = Nothing+  , _lovPrefix = Nothing+  , _lovEncodingType = Nothing+  , _lovVersionIdMarker = Nothing+  , _lovMaxKeys = Nothing+  , _lovDelimiter = Nothing+  , _lovBucket = pBucket_+  } + -- | Specifies the key to start with when listing objects in a bucket. lovKeyMarker :: Lens' ListObjectVersions (Maybe Text) lovKeyMarker = lens _lovKeyMarker (\ s a -> s{_lovKeyMarker = a});@@ -166,9 +168,9 @@                      <*> (x .@? "Delimiter")                      <*> (pure (fromEnum s))) -instance Hashable ListObjectVersions+instance Hashable ListObjectVersions where -instance NFData ListObjectVersions+instance NFData ListObjectVersions where  instance ToHeaders ListObjectVersions where         toHeaders = const mempty@@ -189,22 +191,23 @@  -- | /See:/ 'listObjectVersionsResponse' smart constructor. data ListObjectVersionsResponse = ListObjectVersionsResponse'-    { _lovrsNextVersionIdMarker :: !(Maybe Text)-    , _lovrsKeyMarker           :: !(Maybe Text)-    , _lovrsDeleteMarkers       :: !(Maybe [DeleteMarkerEntry])-    , _lovrsPrefix              :: !(Maybe Text)-    , _lovrsCommonPrefixes      :: !(Maybe [CommonPrefix])-    , _lovrsEncodingType        :: !(Maybe EncodingType)-    , _lovrsVersions            :: !(Maybe [ObjectVersion])-    , _lovrsName                :: !(Maybe BucketName)-    , _lovrsNextKeyMarker       :: !(Maybe Text)-    , _lovrsVersionIdMarker     :: !(Maybe Text)-    , _lovrsMaxKeys             :: !(Maybe Int)-    , _lovrsIsTruncated         :: !(Maybe Bool)-    , _lovrsDelimiter           :: !(Maybe Delimiter)-    , _lovrsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lovrsNextVersionIdMarker :: !(Maybe Text)+  , _lovrsKeyMarker           :: !(Maybe Text)+  , _lovrsDeleteMarkers       :: !(Maybe [DeleteMarkerEntry])+  , _lovrsPrefix              :: !(Maybe Text)+  , _lovrsCommonPrefixes      :: !(Maybe [CommonPrefix])+  , _lovrsEncodingType        :: !(Maybe EncodingType)+  , _lovrsVersions            :: !(Maybe [ObjectVersion])+  , _lovrsName                :: !(Maybe BucketName)+  , _lovrsNextKeyMarker       :: !(Maybe Text)+  , _lovrsVersionIdMarker     :: !(Maybe Text)+  , _lovrsMaxKeys             :: !(Maybe Int)+  , _lovrsIsTruncated         :: !(Maybe Bool)+  , _lovrsDelimiter           :: !(Maybe Delimiter)+  , _lovrsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjectVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -240,23 +243,24 @@     :: Int -- ^ 'lovrsResponseStatus'     -> ListObjectVersionsResponse listObjectVersionsResponse pResponseStatus_ =-    ListObjectVersionsResponse'-    { _lovrsNextVersionIdMarker = Nothing-    , _lovrsKeyMarker = Nothing-    , _lovrsDeleteMarkers = Nothing-    , _lovrsPrefix = Nothing-    , _lovrsCommonPrefixes = Nothing-    , _lovrsEncodingType = Nothing-    , _lovrsVersions = Nothing-    , _lovrsName = Nothing-    , _lovrsNextKeyMarker = Nothing-    , _lovrsVersionIdMarker = Nothing-    , _lovrsMaxKeys = Nothing-    , _lovrsIsTruncated = Nothing-    , _lovrsDelimiter = Nothing-    , _lovrsResponseStatus = pResponseStatus_-    }+  ListObjectVersionsResponse'+  { _lovrsNextVersionIdMarker = Nothing+  , _lovrsKeyMarker = Nothing+  , _lovrsDeleteMarkers = Nothing+  , _lovrsPrefix = Nothing+  , _lovrsCommonPrefixes = Nothing+  , _lovrsEncodingType = Nothing+  , _lovrsVersions = Nothing+  , _lovrsName = Nothing+  , _lovrsNextKeyMarker = Nothing+  , _lovrsVersionIdMarker = Nothing+  , _lovrsMaxKeys = Nothing+  , _lovrsIsTruncated = Nothing+  , _lovrsDelimiter = Nothing+  , _lovrsResponseStatus = pResponseStatus_+  } + -- | Use this value for the next version id marker parameter in a subsequent request. lovrsNextVersionIdMarker :: Lens' ListObjectVersionsResponse (Maybe Text) lovrsNextVersionIdMarker = lens _lovrsNextVersionIdMarker (\ s a -> s{_lovrsNextVersionIdMarker = a});@@ -313,4 +317,4 @@ lovrsResponseStatus :: Lens' ListObjectVersionsResponse Int lovrsResponseStatus = lens _lovrsResponseStatus (\ s a -> s{_lovrsResponseStatus = a}); -instance NFData ListObjectVersionsResponse+instance NFData ListObjectVersionsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListObjects--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -52,25 +52,26 @@     , lorsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.S3.Types-import           Network.AWS.S3.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.S3.Types+import Network.AWS.S3.Types.Product  -- | /See:/ 'listObjects' smart constructor. data ListObjects = ListObjects'-    { _loPrefix       :: !(Maybe Text)-    , _loEncodingType :: !(Maybe EncodingType)-    , _loRequestPayer :: !(Maybe RequestPayer)-    , _loMarker       :: !(Maybe Text)-    , _loMaxKeys      :: !(Maybe Int)-    , _loDelimiter    :: !(Maybe Delimiter)-    , _loBucket       :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _loPrefix       :: !(Maybe Text)+  , _loEncodingType :: !(Maybe EncodingType)+  , _loRequestPayer :: !(Maybe RequestPayer)+  , _loMarker       :: !(Maybe Text)+  , _loMaxKeys      :: !(Maybe Int)+  , _loDelimiter    :: !(Maybe Delimiter)+  , _loBucket       :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,16 +93,17 @@     :: BucketName -- ^ 'loBucket'     -> ListObjects listObjects pBucket_ =-    ListObjects'-    { _loPrefix = Nothing-    , _loEncodingType = Nothing-    , _loRequestPayer = Nothing-    , _loMarker = Nothing-    , _loMaxKeys = Nothing-    , _loDelimiter = Nothing-    , _loBucket = pBucket_-    }+  ListObjects'+  { _loPrefix = Nothing+  , _loEncodingType = Nothing+  , _loRequestPayer = Nothing+  , _loMarker = Nothing+  , _loMaxKeys = Nothing+  , _loDelimiter = Nothing+  , _loBucket = pBucket_+  } + -- | Limits the response to keys that begin with the specified prefix. loPrefix :: Lens' ListObjects (Maybe Text) loPrefix = lens _loPrefix (\ s a -> s{_loPrefix = a});@@ -164,9 +166,9 @@                      <*> (x .@? "Delimiter")                      <*> (pure (fromEnum s))) -instance Hashable ListObjects+instance Hashable ListObjects where -instance NFData ListObjects+instance NFData ListObjects where  instance ToHeaders ListObjects where         toHeaders ListObjects'{..}@@ -186,19 +188,20 @@  -- | /See:/ 'listObjectsResponse' smart constructor. data ListObjectsResponse = ListObjectsResponse'-    { _lorsContents       :: !(Maybe [Object])-    , _lorsPrefix         :: !(Maybe Text)-    , _lorsCommonPrefixes :: !(Maybe [CommonPrefix])-    , _lorsEncodingType   :: !(Maybe EncodingType)-    , _lorsName           :: !(Maybe BucketName)-    , _lorsMarker         :: !(Maybe Text)-    , _lorsNextMarker     :: !(Maybe Text)-    , _lorsMaxKeys        :: !(Maybe Int)-    , _lorsIsTruncated    :: !(Maybe Bool)-    , _lorsDelimiter      :: !(Maybe Delimiter)-    , _lorsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lorsContents       :: !(Maybe [Object])+  , _lorsPrefix         :: !(Maybe Text)+  , _lorsCommonPrefixes :: !(Maybe [CommonPrefix])+  , _lorsEncodingType   :: !(Maybe EncodingType)+  , _lorsName           :: !(Maybe BucketName)+  , _lorsMarker         :: !(Maybe Text)+  , _lorsNextMarker     :: !(Maybe Text)+  , _lorsMaxKeys        :: !(Maybe Int)+  , _lorsIsTruncated    :: !(Maybe Bool)+  , _lorsDelimiter      :: !(Maybe Delimiter)+  , _lorsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -228,20 +231,21 @@     :: Int -- ^ 'lorsResponseStatus'     -> ListObjectsResponse listObjectsResponse pResponseStatus_ =-    ListObjectsResponse'-    { _lorsContents = Nothing-    , _lorsPrefix = Nothing-    , _lorsCommonPrefixes = Nothing-    , _lorsEncodingType = Nothing-    , _lorsName = Nothing-    , _lorsMarker = Nothing-    , _lorsNextMarker = Nothing-    , _lorsMaxKeys = Nothing-    , _lorsIsTruncated = Nothing-    , _lorsDelimiter = Nothing-    , _lorsResponseStatus = pResponseStatus_-    }+  ListObjectsResponse'+  { _lorsContents = Nothing+  , _lorsPrefix = Nothing+  , _lorsCommonPrefixes = Nothing+  , _lorsEncodingType = Nothing+  , _lorsName = Nothing+  , _lorsMarker = Nothing+  , _lorsNextMarker = Nothing+  , _lorsMaxKeys = Nothing+  , _lorsIsTruncated = Nothing+  , _lorsDelimiter = Nothing+  , _lorsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lorsContents :: Lens' ListObjectsResponse [Object] lorsContents = lens _lorsContents (\ s a -> s{_lorsContents = a}) . _Default . _Coerce;@@ -286,4 +290,4 @@ lorsResponseStatus :: Lens' ListObjectsResponse Int lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a}); -instance NFData ListObjectsResponse+instance NFData ListObjectsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListObjectsV--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -54,26 +54,27 @@     , lrsResponseStatus     ) 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+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:/ 'listObjectsV' smart constructor. data ListObjectsV = ListObjectsV'-    { _lStartAfter        :: !(Maybe Text)-    , _lContinuationToken :: !(Maybe Text)-    , _lFetchOwner        :: !(Maybe Bool)-    , _lPrefix            :: !(Maybe Text)-    , _lEncodingType      :: !(Maybe EncodingType)-    , _lRequestPayer      :: !(Maybe RequestPayer)-    , _lMaxKeys           :: !(Maybe Int)-    , _lDelimiter         :: !(Maybe Delimiter)-    , _lBucket            :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lStartAfter        :: !(Maybe Text)+  , _lContinuationToken :: !(Maybe Text)+  , _lFetchOwner        :: !(Maybe Bool)+  , _lPrefix            :: !(Maybe Text)+  , _lEncodingType      :: !(Maybe EncodingType)+  , _lRequestPayer      :: !(Maybe RequestPayer)+  , _lMaxKeys           :: !(Maybe Int)+  , _lDelimiter         :: !(Maybe Delimiter)+  , _lBucket            :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjectsV' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,18 +100,19 @@     :: BucketName -- ^ 'lBucket'     -> ListObjectsV listObjectsV pBucket_ =-    ListObjectsV'-    { _lStartAfter = Nothing-    , _lContinuationToken = Nothing-    , _lFetchOwner = Nothing-    , _lPrefix = Nothing-    , _lEncodingType = Nothing-    , _lRequestPayer = Nothing-    , _lMaxKeys = Nothing-    , _lDelimiter = Nothing-    , _lBucket = pBucket_-    }+  ListObjectsV'+  { _lStartAfter = Nothing+  , _lContinuationToken = Nothing+  , _lFetchOwner = Nothing+  , _lPrefix = Nothing+  , _lEncodingType = Nothing+  , _lRequestPayer = Nothing+  , _lMaxKeys = Nothing+  , _lDelimiter = Nothing+  , _lBucket = pBucket_+  } + -- | StartAfter is where you want Amazon S3 to start listing from. Amazon S3 starts listing after this specified key. StartAfter can be any key in the bucket lStartAfter :: Lens' ListObjectsV (Maybe Text) lStartAfter = lens _lStartAfter (\ s a -> s{_lStartAfter = a});@@ -167,9 +169,9 @@                      <*> (x .@? "Delimiter")                      <*> (pure (fromEnum s))) -instance Hashable ListObjectsV+instance Hashable ListObjectsV where -instance NFData ListObjectsV+instance NFData ListObjectsV where  instance ToHeaders ListObjectsV where         toHeaders ListObjectsV'{..}@@ -191,21 +193,22 @@  -- | /See:/ 'listObjectsVResponse' smart constructor. data ListObjectsVResponse = ListObjectsVResponse'-    { _lrsStartAfter            :: !(Maybe Text)-    , _lrsKeyCount              :: !(Maybe Int)-    , _lrsContents              :: !(Maybe [Object])-    , _lrsContinuationToken     :: !(Maybe Text)-    , _lrsPrefix                :: !(Maybe Text)-    , _lrsCommonPrefixes        :: !(Maybe [CommonPrefix])-    , _lrsEncodingType          :: !(Maybe EncodingType)-    , _lrsName                  :: !(Maybe BucketName)-    , _lrsNextContinuationToken :: !(Maybe Text)-    , _lrsMaxKeys               :: !(Maybe Int)-    , _lrsIsTruncated           :: !(Maybe Bool)-    , _lrsDelimiter             :: !(Maybe Delimiter)-    , _lrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lrsStartAfter            :: !(Maybe Text)+  , _lrsKeyCount              :: !(Maybe Int)+  , _lrsContents              :: !(Maybe [Object])+  , _lrsContinuationToken     :: !(Maybe Text)+  , _lrsPrefix                :: !(Maybe Text)+  , _lrsCommonPrefixes        :: !(Maybe [CommonPrefix])+  , _lrsEncodingType          :: !(Maybe EncodingType)+  , _lrsName                  :: !(Maybe BucketName)+  , _lrsNextContinuationToken :: !(Maybe Text)+  , _lrsMaxKeys               :: !(Maybe Int)+  , _lrsIsTruncated           :: !(Maybe Bool)+  , _lrsDelimiter             :: !(Maybe Delimiter)+  , _lrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListObjectsVResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -239,22 +242,23 @@     :: Int -- ^ 'lrsResponseStatus'     -> ListObjectsVResponse listObjectsVResponse pResponseStatus_ =-    ListObjectsVResponse'-    { _lrsStartAfter = Nothing-    , _lrsKeyCount = Nothing-    , _lrsContents = Nothing-    , _lrsContinuationToken = Nothing-    , _lrsPrefix = Nothing-    , _lrsCommonPrefixes = Nothing-    , _lrsEncodingType = Nothing-    , _lrsName = Nothing-    , _lrsNextContinuationToken = Nothing-    , _lrsMaxKeys = Nothing-    , _lrsIsTruncated = Nothing-    , _lrsDelimiter = Nothing-    , _lrsResponseStatus = pResponseStatus_-    }+  ListObjectsVResponse'+  { _lrsStartAfter = Nothing+  , _lrsKeyCount = Nothing+  , _lrsContents = Nothing+  , _lrsContinuationToken = Nothing+  , _lrsPrefix = Nothing+  , _lrsCommonPrefixes = Nothing+  , _lrsEncodingType = Nothing+  , _lrsName = Nothing+  , _lrsNextContinuationToken = Nothing+  , _lrsMaxKeys = Nothing+  , _lrsIsTruncated = Nothing+  , _lrsDelimiter = Nothing+  , _lrsResponseStatus = pResponseStatus_+  } + -- | StartAfter is where you want Amazon S3 to start listing from. Amazon S3 starts listing after this specified key. StartAfter can be any key in the bucket lrsStartAfter :: Lens' ListObjectsVResponse (Maybe Text) lrsStartAfter = lens _lrsStartAfter (\ s a -> s{_lrsStartAfter = a});@@ -307,4 +311,4 @@ lrsResponseStatus :: Lens' ListObjectsVResponse Int lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a}); -instance NFData ListObjectsVResponse+instance NFData ListObjectsVResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.ListParts--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -55,24 +55,25 @@     , lprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.S3.Types-import           Network.AWS.S3.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.S3.Types+import Network.AWS.S3.Types.Product  -- | /See:/ 'listParts' smart constructor. data ListParts = ListParts'-    { _lpMaxParts         :: !(Maybe Int)-    , _lpRequestPayer     :: !(Maybe RequestPayer)-    , _lpPartNumberMarker :: !(Maybe Int)-    , _lpBucket           :: !BucketName-    , _lpKey              :: !ObjectKey-    , _lpUploadId         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpMaxParts         :: !(Maybe Int)+  , _lpRequestPayer     :: !(Maybe RequestPayer)+  , _lpPartNumberMarker :: !(Maybe Int)+  , _lpBucket           :: !BucketName+  , _lpKey              :: !ObjectKey+  , _lpUploadId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListParts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,15 +95,16 @@     -> Text -- ^ 'lpUploadId'     -> ListParts listParts pBucket_ pKey_ pUploadId_ =-    ListParts'-    { _lpMaxParts = Nothing-    , _lpRequestPayer = Nothing-    , _lpPartNumberMarker = Nothing-    , _lpBucket = pBucket_-    , _lpKey = pKey_-    , _lpUploadId = pUploadId_-    }+  ListParts'+  { _lpMaxParts = Nothing+  , _lpRequestPayer = Nothing+  , _lpPartNumberMarker = Nothing+  , _lpBucket = pBucket_+  , _lpKey = pKey_+  , _lpUploadId = pUploadId_+  } + -- | Sets the maximum number of parts to return. lpMaxParts :: Lens' ListParts (Maybe Int) lpMaxParts = lens _lpMaxParts (\ s a -> s{_lpMaxParts = a});@@ -159,9 +161,9 @@                      <*> (x .@? "UploadId")                      <*> (pure (fromEnum s))) -instance Hashable ListParts+instance Hashable ListParts where -instance NFData ListParts+instance NFData ListParts where  instance ToHeaders ListParts where         toHeaders ListParts'{..}@@ -180,23 +182,24 @@  -- | /See:/ 'listPartsResponse' smart constructor. data ListPartsResponse = ListPartsResponse'-    { _lprsParts                :: !(Maybe [Part])-    , _lprsRequestCharged       :: !(Maybe RequestCharged)-    , _lprsMaxParts             :: !(Maybe Int)-    , _lprsInitiator            :: !(Maybe Initiator)-    , _lprsBucket               :: !(Maybe BucketName)-    , _lprsAbortDate            :: !(Maybe RFC822)-    , _lprsNextPartNumberMarker :: !(Maybe Int)-    , _lprsAbortRuleId          :: !(Maybe Text)-    , _lprsOwner                :: !(Maybe Owner)-    , _lprsKey                  :: !(Maybe ObjectKey)-    , _lprsStorageClass         :: !(Maybe StorageClass)-    , _lprsIsTruncated          :: !(Maybe Bool)-    , _lprsPartNumberMarker     :: !(Maybe Int)-    , _lprsUploadId             :: !(Maybe Text)-    , _lprsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lprsParts                :: !(Maybe [Part])+  , _lprsRequestCharged       :: !(Maybe RequestCharged)+  , _lprsMaxParts             :: !(Maybe Int)+  , _lprsInitiator            :: !(Maybe Initiator)+  , _lprsBucket               :: !(Maybe BucketName)+  , _lprsAbortDate            :: !(Maybe RFC822)+  , _lprsNextPartNumberMarker :: !(Maybe Int)+  , _lprsAbortRuleId          :: !(Maybe Text)+  , _lprsOwner                :: !(Maybe Owner)+  , _lprsKey                  :: !(Maybe ObjectKey)+  , _lprsStorageClass         :: !(Maybe StorageClass)+  , _lprsIsTruncated          :: !(Maybe Bool)+  , _lprsPartNumberMarker     :: !(Maybe Int)+  , _lprsUploadId             :: !(Maybe Text)+  , _lprsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPartsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -234,24 +237,25 @@     :: Int -- ^ 'lprsResponseStatus'     -> ListPartsResponse listPartsResponse pResponseStatus_ =-    ListPartsResponse'-    { _lprsParts = Nothing-    , _lprsRequestCharged = Nothing-    , _lprsMaxParts = Nothing-    , _lprsInitiator = Nothing-    , _lprsBucket = Nothing-    , _lprsAbortDate = Nothing-    , _lprsNextPartNumberMarker = Nothing-    , _lprsAbortRuleId = Nothing-    , _lprsOwner = Nothing-    , _lprsKey = Nothing-    , _lprsStorageClass = Nothing-    , _lprsIsTruncated = Nothing-    , _lprsPartNumberMarker = Nothing-    , _lprsUploadId = Nothing-    , _lprsResponseStatus = pResponseStatus_-    }+  ListPartsResponse'+  { _lprsParts = Nothing+  , _lprsRequestCharged = Nothing+  , _lprsMaxParts = Nothing+  , _lprsInitiator = Nothing+  , _lprsBucket = Nothing+  , _lprsAbortDate = Nothing+  , _lprsNextPartNumberMarker = Nothing+  , _lprsAbortRuleId = Nothing+  , _lprsOwner = Nothing+  , _lprsKey = Nothing+  , _lprsStorageClass = Nothing+  , _lprsIsTruncated = Nothing+  , _lprsPartNumberMarker = Nothing+  , _lprsUploadId = Nothing+  , _lprsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lprsParts :: Lens' ListPartsResponse [Part] lprsParts = lens _lprsParts (\ s a -> s{_lprsParts = a}) . _Default . _Coerce;@@ -312,4 +316,4 @@ lprsResponseStatus :: Lens' ListPartsResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); -instance NFData ListPartsResponse+instance NFData ListPartsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.PutBucketACL--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,26 +40,27 @@     , PutBucketACLResponse     ) 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+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:/ 'putBucketACL' smart constructor. data PutBucketACL = PutBucketACL'-    { _pbaGrantReadACP        :: !(Maybe Text)-    , _pbaGrantWriteACP       :: !(Maybe Text)-    , _pbaGrantRead           :: !(Maybe Text)-    , _pbaGrantFullControl    :: !(Maybe Text)-    , _pbaContentMD5          :: !(Maybe Text)-    , _pbaAccessControlPolicy :: !(Maybe AccessControlPolicy)-    , _pbaGrantWrite          :: !(Maybe Text)-    , _pbaACL                 :: !(Maybe BucketCannedACL)-    , _pbaBucket              :: !BucketName-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pbaGrantReadACP        :: !(Maybe Text)+  , _pbaGrantWriteACP       :: !(Maybe Text)+  , _pbaGrantRead           :: !(Maybe Text)+  , _pbaGrantFullControl    :: !(Maybe Text)+  , _pbaContentMD5          :: !(Maybe Text)+  , _pbaAccessControlPolicy :: !(Maybe AccessControlPolicy)+  , _pbaGrantWrite          :: !(Maybe Text)+  , _pbaACL                 :: !(Maybe BucketCannedACL)+  , _pbaBucket              :: !BucketName+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,18 +86,19 @@     :: BucketName -- ^ 'pbaBucket'     -> PutBucketACL putBucketACL pBucket_ =-    PutBucketACL'-    { _pbaGrantReadACP = Nothing-    , _pbaGrantWriteACP = Nothing-    , _pbaGrantRead = Nothing-    , _pbaGrantFullControl = Nothing-    , _pbaContentMD5 = Nothing-    , _pbaAccessControlPolicy = Nothing-    , _pbaGrantWrite = Nothing-    , _pbaACL = Nothing-    , _pbaBucket = pBucket_-    }+  PutBucketACL'+  { _pbaGrantReadACP = Nothing+  , _pbaGrantWriteACP = Nothing+  , _pbaGrantRead = Nothing+  , _pbaGrantFullControl = Nothing+  , _pbaContentMD5 = Nothing+  , _pbaAccessControlPolicy = Nothing+  , _pbaGrantWrite = Nothing+  , _pbaACL = Nothing+  , _pbaBucket = pBucket_+  } + -- | Allows grantee to read the bucket ACL. pbaGrantReadACP :: Lens' PutBucketACL (Maybe Text) pbaGrantReadACP = lens _pbaGrantReadACP (\ s a -> s{_pbaGrantReadACP = a});@@ -138,9 +140,9 @@         request = putXML s3         response = receiveNull PutBucketACLResponse' -instance Hashable PutBucketACL+instance Hashable PutBucketACL where -instance NFData PutBucketACL+instance NFData PutBucketACL where  instance ToElement PutBucketACL where         toElement@@ -169,13 +171,15 @@  -- | /See:/ 'putBucketACLResponse' smart constructor. data PutBucketACLResponse =-    PutBucketACLResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutBucketACLResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketACLResponse' with the minimum fields required to make a request. -- putBucketACLResponse     :: PutBucketACLResponse putBucketACLResponse = PutBucketACLResponse' -instance NFData PutBucketACLResponse++instance NFData PutBucketACLResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.PutBucketAccelerateConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,19 +33,20 @@     , 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+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)+  { _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:@@ -58,11 +59,12 @@     -> AccelerateConfiguration -- ^ 'pbacAccelerateConfiguration'     -> PutBucketAccelerateConfiguration putBucketAccelerateConfiguration pBucket_ pAccelerateConfiguration_ =-    PutBucketAccelerateConfiguration'-    { _pbacBucket = pBucket_-    , _pbacAccelerateConfiguration = 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});@@ -81,8 +83,10 @@               PutBucketAccelerateConfigurationResponse'  instance Hashable PutBucketAccelerateConfiguration+         where  instance NFData PutBucketAccelerateConfiguration+         where  instance ToElement PutBucketAccelerateConfiguration          where@@ -107,15 +111,18 @@  -- | /See:/ 'putBucketAccelerateConfigurationResponse' smart constructor. data PutBucketAccelerateConfigurationResponse =-    PutBucketAccelerateConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  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'+  PutBucketAccelerateConfigurationResponse' + instance NFData-         PutBucketAccelerateConfigurationResponse+           PutBucketAccelerateConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.PutBucketAnalyticsConfiguration--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,20 +34,21 @@     , PutBucketAnalyticsConfigurationResponse     ) 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+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:/ 'putBucketAnalyticsConfiguration' smart constructor. data PutBucketAnalyticsConfiguration = PutBucketAnalyticsConfiguration'-    { _pBucket                 :: !BucketName-    , _pId                     :: !Text-    , _pAnalyticsConfiguration :: !AnalyticsConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pBucket                 :: !BucketName+  , _pId                     :: !Text+  , _pAnalyticsConfiguration :: !AnalyticsConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketAnalyticsConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,12 +64,13 @@     -> AnalyticsConfiguration -- ^ 'pAnalyticsConfiguration'     -> PutBucketAnalyticsConfiguration putBucketAnalyticsConfiguration pBucket_ pId_ pAnalyticsConfiguration_ =-    PutBucketAnalyticsConfiguration'-    { _pBucket = pBucket_-    , _pId = pId_-    , _pAnalyticsConfiguration = pAnalyticsConfiguration_-    }+  PutBucketAnalyticsConfiguration'+  { _pBucket = pBucket_+  , _pId = pId_+  , _pAnalyticsConfiguration = pAnalyticsConfiguration_+  } + -- | The name of the bucket to which an analytics configuration is stored. pBucket :: Lens' PutBucketAnalyticsConfiguration BucketName pBucket = lens _pBucket (\ s a -> s{_pBucket = a});@@ -91,8 +93,9 @@               PutBucketAnalyticsConfigurationResponse'  instance Hashable PutBucketAnalyticsConfiguration+         where -instance NFData PutBucketAnalyticsConfiguration+instance NFData PutBucketAnalyticsConfiguration where  instance ToElement PutBucketAnalyticsConfiguration          where@@ -117,15 +120,18 @@  -- | /See:/ 'putBucketAnalyticsConfigurationResponse' smart constructor. data PutBucketAnalyticsConfigurationResponse =-    PutBucketAnalyticsConfigurationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutBucketAnalyticsConfigurationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketAnalyticsConfigurationResponse' with the minimum fields required to make a request. -- putBucketAnalyticsConfigurationResponse     :: PutBucketAnalyticsConfigurationResponse putBucketAnalyticsConfigurationResponse =-    PutBucketAnalyticsConfigurationResponse'+  PutBucketAnalyticsConfigurationResponse' + instance NFData-         PutBucketAnalyticsConfigurationResponse+           PutBucketAnalyticsConfigurationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.S3.PutBucketCORS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,20 +34,21 @@     , PutBucketCORSResponse     ) 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+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:/ 'putBucketCORS' smart constructor. data PutBucketCORS = PutBucketCORS'-    { _pbcContentMD5        :: !(Maybe Text)-    , _pbcBucket            :: !BucketName-    , _pbcCORSConfiguration :: !CORSConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pbcContentMD5        :: !(Maybe Text)+  , _pbcBucket            :: !BucketName+  , _pbcCORSConfiguration :: !CORSConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketCORS' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,12 +63,13 @@     -> CORSConfiguration -- ^ 'pbcCORSConfiguration'     -> PutBucketCORS putBucketCORS pBucket_ pCORSConfiguration_ =-    PutBucketCORS'-    { _pbcContentMD5 = Nothing-    , _pbcBucket = pBucket_-    , _pbcCORSConfiguration = pCORSConfiguration_-    }+  PutBucketCORS'+  { _pbcContentMD5 = Nothing+  , _pbcBucket = pBucket_+  , _pbcCORSConfiguration = pCORSConfiguration_+  } + -- | Undocumented member. pbcContentMD5 :: Lens' PutBucketCORS (Maybe Text) pbcContentMD5 = lens _pbcContentMD5 (\ s a -> s{_pbcContentMD5 = a});@@ -85,9 +87,9 @@         request = putXML s3         response = receiveNull PutBucketCORSResponse' -instance Hashable PutBucketCORS+instance Hashable PutBucketCORS where -instance NFData PutBucketCORS+instance NFData PutBucketCORS where  instance ToElement PutBucketCORS where         toElement@@ -109,13 +111,15 @@  -- | /See:/ 'putBucketCORSResponse' smart constructor. data PutBucketCORSResponse =-    PutBucketCORSResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutBucketCORSResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutBucketCORSResponse' with the minimum fields required to make a request. -- putBucketCORSResponse     :: PutBucketCORSResponse putBucketCORSResponse = PutBucketCORSResponse' -instance NFData PutBucketCORSResponse++instance NFData PutBucketCORSResponse where

@@ -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.PutBucketEncryption+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new server-side encryption configuration (or replaces an existing one, if present).+module Network.AWS.S3.PutBucketEncryption+    (+    -- * Creating a Request+      putBucketEncryption+    , PutBucketEncryption+    -- * Request Lenses+    , pbeContentMD5+    , pbeBucket+    , pbeServerSideEncryptionConfiguration++    -- * Destructuring the Response+    , putBucketEncryptionResponse+    , PutBucketEncryptionResponse+    ) 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:/ 'putBucketEncryption' smart constructor.+data PutBucketEncryption = PutBucketEncryption'+  { _pbeContentMD5                        :: !(Maybe Text)+  , _pbeBucket                            :: !BucketName+  , _pbeServerSideEncryptionConfiguration :: !ServerSideEncryptionConfiguration+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutBucketEncryption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pbeContentMD5' - The base64-encoded 128-bit MD5 digest of the server-side encryption configuration.+--+-- * 'pbeBucket' - The name of the bucket for which the server-side encryption configuration is set.+--+-- * 'pbeServerSideEncryptionConfiguration' - Undocumented member.+putBucketEncryption+    :: BucketName -- ^ 'pbeBucket'+    -> ServerSideEncryptionConfiguration -- ^ 'pbeServerSideEncryptionConfiguration'+    -> PutBucketEncryption+putBucketEncryption pBucket_ pServerSideEncryptionConfiguration_ =+  PutBucketEncryption'+  { _pbeContentMD5 = Nothing+  , _pbeBucket = pBucket_+  , _pbeServerSideEncryptionConfiguration = pServerSideEncryptionConfiguration_+  }+++-- | The base64-encoded 128-bit MD5 digest of the server-side encryption configuration.+pbeContentMD5 :: Lens' PutBucketEncryption (Maybe Text)+pbeContentMD5 = lens _pbeContentMD5 (\ s a -> s{_pbeContentMD5 = a});++-- | The name of the bucket for which the server-side encryption configuration is set.+pbeBucket :: Lens' PutBucketEncryption BucketName+pbeBucket = lens _pbeBucket (\ s a -> s{_pbeBucket = a});++-- | Undocumented member.+pbeServerSideEncryptionConfiguration :: Lens' PutBucketEncryption ServerSideEncryptionConfiguration+pbeServerSideEncryptionConfiguration = lens _pbeServerSideEncryptionConfiguration (\ s a -> s{_pbeServerSideEncryptionConfiguration = a});++instance AWSRequest PutBucketEncryption where+        type Rs PutBucketEncryption =+             PutBucketEncryptionResponse+        request = putXML s3+        response = receiveNull PutBucketEncryptionResponse'++instance Hashable PutBucketEncryption where++instance NFData PutBucketEncryption where++instance ToElement PutBucketEncryption where+        toElement+          = mkElement+              "{http://s3.amazonaws.com/doc/2006-03-01/}ServerSideEncryptionConfiguration"+              .+              _pbeServerSideEncryptionConfiguration++instance ToHeaders PutBucketEncryption where+        toHeaders PutBucketEncryption'{..}+          = mconcat ["Content-MD5" =# _pbeContentMD5]++instance ToPath PutBucketEncryption where+        toPath PutBucketEncryption'{..}+          = mconcat ["/", toBS _pbeBucket]++instance ToQuery PutBucketEncryption where+        toQuery = const (mconcat ["encryption"])++-- | /See:/ 'putBucketEncryptionResponse' smart constructor.+data PutBucketEncryptionResponse =+  PutBucketEncryptionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutBucketEncryptionResponse' with the minimum fields required to make a request.+--+putBucketEncryptionResponse+    :: PutBucketEncryptionResponse+putBucketEncryptionResponse = PutBucketEncryptionResponse'+++instance NFData PutBucketEncryptionResponse where