amazonka-s3 0.3.6 → 1.0.0

raw patch · 73 files changed

+13130/−11712 lines, 73 filesdep +amazonka-s3dep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-s3, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +22/−9
• amazonka-s3.cabal +61/−23
• gen/Network/AWS/S3.hs +703/−115
• gen/Network/AWS/S3/AbortMultipartUpload.hs +112/−104
• gen/Network/AWS/S3/CompleteMultipartUpload.hs +195/−178
• gen/Network/AWS/S3/CopyObject.hs +419/−422
• gen/Network/AWS/S3/CreateBucket.hs +146/−134
• gen/Network/AWS/S3/CreateMultipartUpload.hs +339/−337
• gen/Network/AWS/S3/DeleteBucket.hs +63/−68
• gen/Network/AWS/S3/DeleteBucketCORS.hs +90/−0
• gen/Network/AWS/S3/DeleteBucketCors.hs +0/−95
• gen/Network/AWS/S3/DeleteBucketLifecycle.hs +62/−66
• gen/Network/AWS/S3/DeleteBucketPolicy.hs +62/−66
• gen/Network/AWS/S3/DeleteBucketReplication.hs +64/−65
• gen/Network/AWS/S3/DeleteBucketTagging.hs +62/−66
• gen/Network/AWS/S3/DeleteBucketWebsite.hs +62/−66
• gen/Network/AWS/S3/DeleteObject.hs +139/−132
• gen/Network/AWS/S3/DeleteObjects.hs +139/−122
• gen/Network/AWS/S3/GetBucketACL.hs +128/−0
• gen/Network/AWS/S3/GetBucketAcl.hs +0/−122
• gen/Network/AWS/S3/GetBucketCORS.hs +117/−0
• gen/Network/AWS/S3/GetBucketCors.hs +0/−112
• gen/Network/AWS/S3/GetBucketLifecycle.hs +88/−82
• gen/Network/AWS/S3/GetBucketLocation.hs +85/−82
• gen/Network/AWS/S3/GetBucketLogging.hs +87/−84
• gen/Network/AWS/S3/GetBucketNotification.hs +0/−135
• gen/Network/AWS/S3/GetBucketNotificationConfiguration.hs +63/−115
• gen/Network/AWS/S3/GetBucketPolicy.hs +85/−82
• gen/Network/AWS/S3/GetBucketReplication.hs +87/−82
• gen/Network/AWS/S3/GetBucketRequestPayment.hs +86/−82
• gen/Network/AWS/S3/GetBucketTagging.hs +86/−87
• gen/Network/AWS/S3/GetBucketVersioning.hs +89/−95
• gen/Network/AWS/S3/GetBucketWebsite.hs +114/−108
• gen/Network/AWS/S3/GetObject.hs +456/−441
• gen/Network/AWS/S3/GetObjectACL.hs +168/−0
• gen/Network/AWS/S3/GetObjectAcl.hs +0/−163
• gen/Network/AWS/S3/GetObjectTorrent.hs +110/−104
• gen/Network/AWS/S3/HeadBucket.hs +61/−66
• gen/Network/AWS/S3/HeadObject.hs +391/−377
• gen/Network/AWS/S3/ListBuckets.hs +86/−76
• gen/Network/AWS/S3/ListMultipartUploads.hs +244/−239
• gen/Network/AWS/S3/ListObjectVersions.hs +248/−240
• gen/Network/AWS/S3/ListObjects.hs +222/−200
• gen/Network/AWS/S3/ListParts.hs +225/−215
• gen/Network/AWS/S3/PutBucketACL.hs +179/−0
• gen/Network/AWS/S3/PutBucketAcl.hs +0/−177
• gen/Network/AWS/S3/PutBucketCORS.hs +116/−0
• gen/Network/AWS/S3/PutBucketCors.hs +0/−115
• gen/Network/AWS/S3/PutBucketLifecycle.hs +86/−85
• gen/Network/AWS/S3/PutBucketLogging.hs +84/−83
• gen/Network/AWS/S3/PutBucketNotification.hs +0/−117
• gen/Network/AWS/S3/PutBucketNotificationConfiguration.hs +83/−75
• gen/Network/AWS/S3/PutBucketPolicy.hs +78/−81
• gen/Network/AWS/S3/PutBucketReplication.hs +83/−82
• gen/Network/AWS/S3/PutBucketRequestPayment.hs +89/−87
• gen/Network/AWS/S3/PutBucketTagging.hs +82/−80
• gen/Network/AWS/S3/PutBucketVersioning.hs +93/−91
• gen/Network/AWS/S3/PutBucketWebsite.hs +82/−81
• gen/Network/AWS/S3/PutObject.hs +363/−351
• gen/Network/AWS/S3/PutObjectACL.hs +227/−0
• gen/Network/AWS/S3/PutObjectAcl.hs +0/−213
• gen/Network/AWS/S3/RestoreObject.hs +120/−108
• gen/Network/AWS/S3/Types.hs +509/−3860
• gen/Network/AWS/S3/Types/Product.hs +2365/−0
• gen/Network/AWS/S3/Types/Sum.hs +700/−0
• gen/Network/AWS/S3/UploadPart.hs +229/−212
• gen/Network/AWS/S3/UploadPartCopy.hs +292/−298
• gen/Network/AWS/S3/Waiters.hs +52/−45
• src/Network/AWS/S3/Internal.hs +118/−14
• test/Main.hs +21/−0
• test/Test/AWS/Gen/S3.hs +901/−0
• test/Test/AWS/S3.hs +95/−0
• test/Test/AWS/S3/Internal.hs +17/−0

@@ -1,24 +1,37 @@ # Amazon Simple Storage Service SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon Simple Storage Service is storage for the Internet. Amazon S3 has a-simple web services interface that you can use to store and retrieve any-amount of data, at any time, from anywhere on the web. It gives any developer-access to the same highly scalable, reliable, fast, inexpensive data storage-infrastructure that Amazon uses to run its own global network of web sites.-The service aims to maximize benefits of scale and to pass those benefits on-to developers.+Amazon Simple Storage Service is storage for the Internet. Amazon S3 has+a simple web services interface that you can use to store and retrieve+any amount of data, at any time, from anywhere on the web. It gives any+developer access to the same highly scalable, reliable, fast,+inexpensive data storage infrastructure that Amazon uses to run its own+global network of web sites. The service aims to maximize benefits of+scale and to pass those benefits on to developers.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-s3) and the [AWS API Reference](http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,31 +1,39 @@ name:                  amazonka-s3-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon Simple Storage Service is storage for the Internet. Amazon S3 has a-    simple web services interface that you can use to store and retrieve any-    amount of data, at any time, from anywhere on the web. It gives any developer-    access to the same highly scalable, reliable, fast, inexpensive data storage-    infrastructure that Amazon uses to run its own global network of web sites.-    The service aims to maximize benefits of scale and to pass those benefits on-    to developers.-+    Amazon Simple Storage Service is storage for the Internet. Amazon S3 has+    a simple web services interface that you can use to store and retrieve+    any amount of data, at any time, from anywhere on the web. It gives any+    developer access to the same highly scalable, reliable, fast,+    inexpensive data storage infrastructure that Amazon uses to run its own+    global network of web sites. The service aims to maximize benefits of+    scale and to pass those benefits on to developers.     .-    /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.S3" and the <http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -45,7 +53,7 @@         , Network.AWS.S3.CreateBucket         , Network.AWS.S3.CreateMultipartUpload         , Network.AWS.S3.DeleteBucket-        , Network.AWS.S3.DeleteBucketCors+        , Network.AWS.S3.DeleteBucketCORS         , Network.AWS.S3.DeleteBucketLifecycle         , Network.AWS.S3.DeleteBucketPolicy         , Network.AWS.S3.DeleteBucketReplication@@ -53,12 +61,11 @@         , Network.AWS.S3.DeleteBucketWebsite         , Network.AWS.S3.DeleteObject         , Network.AWS.S3.DeleteObjects-        , Network.AWS.S3.GetBucketAcl-        , Network.AWS.S3.GetBucketCors+        , Network.AWS.S3.GetBucketACL+        , Network.AWS.S3.GetBucketCORS         , Network.AWS.S3.GetBucketLifecycle         , Network.AWS.S3.GetBucketLocation         , Network.AWS.S3.GetBucketLogging-        , Network.AWS.S3.GetBucketNotification         , Network.AWS.S3.GetBucketNotificationConfiguration         , Network.AWS.S3.GetBucketPolicy         , Network.AWS.S3.GetBucketReplication@@ -67,7 +74,7 @@         , Network.AWS.S3.GetBucketVersioning         , Network.AWS.S3.GetBucketWebsite         , Network.AWS.S3.GetObject-        , Network.AWS.S3.GetObjectAcl+        , Network.AWS.S3.GetObjectACL         , Network.AWS.S3.GetObjectTorrent         , Network.AWS.S3.HeadBucket         , Network.AWS.S3.HeadObject@@ -76,11 +83,10 @@         , Network.AWS.S3.ListObjectVersions         , Network.AWS.S3.ListObjects         , Network.AWS.S3.ListParts-        , Network.AWS.S3.PutBucketAcl-        , Network.AWS.S3.PutBucketCors+        , Network.AWS.S3.PutBucketACL+        , Network.AWS.S3.PutBucketCORS         , Network.AWS.S3.PutBucketLifecycle         , Network.AWS.S3.PutBucketLogging-        , Network.AWS.S3.PutBucketNotification         , Network.AWS.S3.PutBucketNotificationConfiguration         , Network.AWS.S3.PutBucketPolicy         , Network.AWS.S3.PutBucketReplication@@ -89,7 +95,7 @@         , Network.AWS.S3.PutBucketVersioning         , Network.AWS.S3.PutBucketWebsite         , Network.AWS.S3.PutObject-        , Network.AWS.S3.PutObjectAcl+        , Network.AWS.S3.PutObjectACL         , Network.AWS.S3.RestoreObject         , Network.AWS.S3.Types         , Network.AWS.S3.UploadPart@@ -98,7 +104,39 @@      other-modules:           Network.AWS.S3.Internal+        , Network.AWS.S3.Types.Product+        , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5+        , lens >= 4.4+        , text >= 1.1++test-suite amazonka-s3-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.S3+        , Test.AWS.Gen.S3+        , Test.AWS.S3.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-s3 == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,134 +1,722 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.S3--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Simple Storage Service is storage for the Internet. Amazon S3 has a--- simple web services interface that you can use to store and retrieve any--- amount of data, at any time, from anywhere on the web. It gives any developer--- access to the same highly scalable, reliable, fast, inexpensive data storage--- infrastructure that Amazon uses to run its own global network of web sites.--- The service aims to maximize benefits of scale and to pass those benefits on--- to developers.+-- Amazon Simple Storage Service is storage for the Internet. Amazon S3 has+-- a simple web services interface that you can use to store and retrieve+-- any amount of data, at any time, from anywhere on the web. It gives any+-- developer access to the same highly scalable, reliable, fast,+-- inexpensive data storage infrastructure that Amazon uses to run its own+-- global network of web sites. The service aims to maximize benefits of+-- scale and to pass those benefits on to developers.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html AWS API Reference> module Network.AWS.S3-    ( module Network.AWS.S3.AbortMultipartUpload-    , module Network.AWS.S3.CompleteMultipartUpload-    , module Network.AWS.S3.CopyObject-    , module Network.AWS.S3.CreateBucket-    , module Network.AWS.S3.CreateMultipartUpload+    (+    -- * Service+      S3++    -- * Errors+    -- $errors++    -- ** ObjectAlreadyInActiveTierError+    , _ObjectAlreadyInActiveTierError++    -- ** BucketAlreadyExists+    , _BucketAlreadyExists++    -- ** ObjectNotInActiveTierError+    , _ObjectNotInActiveTierError++    -- ** NoSuchUpload+    , _NoSuchUpload++    -- ** NoSuchBucket+    , _NoSuchBucket++    -- ** NoSuchKey+    , _NoSuchKey++    -- * Waiters+    -- $waiters++    -- ** ObjectNotExists+    , objectNotExists++    -- ** BucketExists+    , bucketExists++    -- ** ObjectExists+    , objectExists++    -- ** BucketNotExists+    , bucketNotExists++    -- * Operations+    -- $operations++    -- ** PutBucketRequestPayment+    , module Network.AWS.S3.PutBucketRequestPayment++    -- ** PutObject+    , module Network.AWS.S3.PutObject++    -- ** PutBucketLogging+    , module Network.AWS.S3.PutBucketLogging++    -- ** DeleteObject+    , module Network.AWS.S3.DeleteObject++    -- ** DeleteBucket     , module Network.AWS.S3.DeleteBucket-    , module Network.AWS.S3.DeleteBucketCors-    , module Network.AWS.S3.DeleteBucketLifecycle-    , module Network.AWS.S3.DeleteBucketPolicy-    , module Network.AWS.S3.DeleteBucketReplication++    -- ** ListBuckets+    , module Network.AWS.S3.ListBuckets++    -- ** CreateBucket+    , module Network.AWS.S3.CreateBucket++    -- ** PutBucketTagging+    , module Network.AWS.S3.PutBucketTagging++    -- ** DeleteBucketTagging     , module Network.AWS.S3.DeleteBucketTagging-    , module Network.AWS.S3.DeleteBucketWebsite-    , module Network.AWS.S3.DeleteObject-    , module Network.AWS.S3.DeleteObjects-    , module Network.AWS.S3.GetBucketAcl-    , module Network.AWS.S3.GetBucketCors-    , module Network.AWS.S3.GetBucketLifecycle-    , module Network.AWS.S3.GetBucketLocation-    , module Network.AWS.S3.GetBucketLogging-    , module Network.AWS.S3.GetBucketNotification++    -- ** PutObjectACL+    , module Network.AWS.S3.PutObjectACL++    -- ** GetBucketNotificationConfiguration     , module Network.AWS.S3.GetBucketNotificationConfiguration-    , module Network.AWS.S3.GetBucketPolicy-    , module Network.AWS.S3.GetBucketReplication-    , module Network.AWS.S3.GetBucketRequestPayment-    , module Network.AWS.S3.GetBucketTagging-    , module Network.AWS.S3.GetBucketVersioning++    -- ** GetBucketLocation+    , module Network.AWS.S3.GetBucketLocation++    -- ** PutBucketReplication+    , module Network.AWS.S3.PutBucketReplication++    -- ** GetBucketWebsite     , module Network.AWS.S3.GetBucketWebsite++    -- ** GetObject     , module Network.AWS.S3.GetObject-    , module Network.AWS.S3.GetObjectAcl-    , module Network.AWS.S3.GetObjectTorrent++    -- ** DeleteBucketReplication+    , module Network.AWS.S3.DeleteBucketReplication++    -- ** GetBucketRequestPayment+    , module Network.AWS.S3.GetBucketRequestPayment++    -- ** ListObjectVersions (Paginated)+    , module Network.AWS.S3.ListObjectVersions++    -- ** GetBucketLifecycle+    , module Network.AWS.S3.GetBucketLifecycle++    -- ** HeadBucket     , module Network.AWS.S3.HeadBucket-    , module Network.AWS.S3.HeadObject-    , module Network.AWS.S3.ListBuckets++    -- ** PutBucketLifecycle+    , module Network.AWS.S3.PutBucketLifecycle++    -- ** CreateMultipartUpload+    , module Network.AWS.S3.CreateMultipartUpload++    -- ** DeleteBucketLifecycle+    , module Network.AWS.S3.DeleteBucketLifecycle++    -- ** GetBucketReplication+    , module Network.AWS.S3.GetBucketReplication++    -- ** PutBucketWebsite+    , module Network.AWS.S3.PutBucketWebsite++    -- ** CompleteMultipartUpload+    , module Network.AWS.S3.CompleteMultipartUpload++    -- ** UploadPart+    , module Network.AWS.S3.UploadPart++    -- ** ListMultipartUploads (Paginated)     , module Network.AWS.S3.ListMultipartUploads-    , module Network.AWS.S3.ListObjectVersions++    -- ** DeleteBucketWebsite+    , module Network.AWS.S3.DeleteBucketWebsite++    -- ** ListObjects (Paginated)     , module Network.AWS.S3.ListObjects-    , module Network.AWS.S3.ListParts-    , module Network.AWS.S3.PutBucketAcl-    , module Network.AWS.S3.PutBucketCors-    , module Network.AWS.S3.PutBucketLifecycle-    , module Network.AWS.S3.PutBucketLogging-    , module Network.AWS.S3.PutBucketNotification-    , module Network.AWS.S3.PutBucketNotificationConfiguration++    -- ** DeleteObjects+    , module Network.AWS.S3.DeleteObjects++    -- ** PutBucketPolicy     , module Network.AWS.S3.PutBucketPolicy-    , module Network.AWS.S3.PutBucketReplication-    , module Network.AWS.S3.PutBucketRequestPayment-    , module Network.AWS.S3.PutBucketTagging++    -- ** DeleteBucketPolicy+    , module Network.AWS.S3.DeleteBucketPolicy++    -- ** AbortMultipartUpload+    , module Network.AWS.S3.AbortMultipartUpload++    -- ** GetObjectTorrent+    , module Network.AWS.S3.GetObjectTorrent++    -- ** PutBucketCORS+    , module Network.AWS.S3.PutBucketCORS++    -- ** DeleteBucketCORS+    , module Network.AWS.S3.DeleteBucketCORS++    -- ** GetBucketVersioning+    , module Network.AWS.S3.GetBucketVersioning++    -- ** PutBucketNotificationConfiguration+    , module Network.AWS.S3.PutBucketNotificationConfiguration++    -- ** GetBucketTagging+    , module Network.AWS.S3.GetBucketTagging++    -- ** HeadObject+    , module Network.AWS.S3.HeadObject++    -- ** PutBucketVersioning     , module Network.AWS.S3.PutBucketVersioning-    , module Network.AWS.S3.PutBucketWebsite-    , module Network.AWS.S3.PutObject-    , module Network.AWS.S3.PutObjectAcl++    -- ** GetObjectACL+    , module Network.AWS.S3.GetObjectACL++    -- ** RestoreObject     , module Network.AWS.S3.RestoreObject-    , module Network.AWS.S3.Types-    , module Network.AWS.S3.UploadPart++    -- ** GetBucketCORS+    , module Network.AWS.S3.GetBucketCORS++    -- ** CopyObject+    , module Network.AWS.S3.CopyObject++    -- ** GetBucketPolicy+    , module Network.AWS.S3.GetBucketPolicy++    -- ** GetBucketLogging+    , module Network.AWS.S3.GetBucketLogging++    -- ** ListParts (Paginated)+    , module Network.AWS.S3.ListParts++    -- ** GetBucketACL+    , module Network.AWS.S3.GetBucketACL++    -- ** PutBucketACL+    , module Network.AWS.S3.PutBucketACL++    -- ** UploadPartCopy     , module Network.AWS.S3.UploadPartCopy-    , module Network.AWS.S3.Waiters++    -- * Types++    -- ** Re-exported Types+    , module Network.AWS.S3.Internal++    -- ** BucketCannedACL+    , BucketCannedACL (..)++    -- ** BucketLogsPermission+    , BucketLogsPermission (..)++    -- ** BucketVersioningStatus+    , BucketVersioningStatus (..)++    -- ** EncodingType+    , EncodingType (..)++    -- ** Event+    , Event (..)++    -- ** ExpirationStatus+    , ExpirationStatus (..)++    -- ** MFADelete+    , MFADelete (..)++    -- ** MFADeleteStatus+    , MFADeleteStatus (..)++    -- ** MetadataDirective+    , MetadataDirective (..)++    -- ** ObjectCannedACL+    , ObjectCannedACL (..)++    -- ** ObjectStorageClass+    , ObjectStorageClass (..)++    -- ** ObjectVersionStorageClass+    , ObjectVersionStorageClass (..)++    -- ** Payer+    , Payer (..)++    -- ** Permission+    , Permission (..)++    -- ** Protocol+    , Protocol (..)++    -- ** ReplicationRuleStatus+    , ReplicationRuleStatus (..)++    -- ** ReplicationStatus+    , ReplicationStatus (..)++    -- ** RequestCharged+    , RequestCharged (..)++    -- ** RequestPayer+    , RequestPayer (..)++    -- ** ServerSideEncryption+    , ServerSideEncryption (..)++    -- ** StorageClass+    , StorageClass (..)++    -- ** TransitionStorageClass+    , TransitionStorageClass (..)++    -- ** Type+    , Type (..)++    -- ** AccessControlPolicy+    , AccessControlPolicy+    , accessControlPolicy+    , acpGrants+    , acpOwner++    -- ** Bucket+    , Bucket+    , bucket+    , bCreationDate+    , bName++    -- ** BucketLoggingStatus+    , BucketLoggingStatus+    , bucketLoggingStatus+    , blsLoggingEnabled++    -- ** CORSConfiguration+    , CORSConfiguration+    , corsConfiguration+    , ccCORSRules++    -- ** CORSRule+    , CORSRule+    , corsRule+    , crAllowedMethods+    , crMaxAgeSeconds+    , crAllowedHeaders+    , crAllowedOrigins+    , crExposeHeaders++    -- ** CommonPrefix+    , CommonPrefix+    , commonPrefix+    , cpPrefix++    -- ** CompletedMultipartUpload+    , CompletedMultipartUpload+    , completedMultipartUpload+    , cmuParts++    -- ** CompletedPart+    , CompletedPart+    , completedPart+    , cpPartNumber+    , cpETag++    -- ** Condition+    , Condition+    , condition+    , cKeyPrefixEquals+    , cHTTPErrorCodeReturnedEquals++    -- ** CopyObjectResult+    , CopyObjectResult+    , copyObjectResult+    , corETag+    , corLastModified++    -- ** CopyPartResult+    , CopyPartResult+    , copyPartResult+    , cprETag+    , cprLastModified++    -- ** CreateBucketConfiguration+    , CreateBucketConfiguration+    , createBucketConfiguration+    , cbcLocationConstraint++    -- ** Delete+    , Delete+    , delete'+    , dQuiet+    , dObjects++    -- ** DeleteMarkerEntry+    , DeleteMarkerEntry+    , deleteMarkerEntry+    , dmeVersionId+    , dmeIsLatest+    , dmeOwner+    , dmeKey+    , dmeLastModified++    -- ** DeletedObject+    , DeletedObject+    , deletedObject+    , dVersionId+    , dDeleteMarker+    , dDeleteMarkerVersionId+    , dKey++    -- ** Destination+    , Destination+    , destination+    , dBucket++    -- ** ErrorDocument+    , ErrorDocument+    , errorDocument+    , edKey++    -- ** Grant+    , Grant+    , grant+    , gPermission+    , gGrantee++    -- ** Grantee+    , Grantee+    , grantee+    , gURI+    , gEmailAddress+    , gId+    , gDisplayName+    , gType++    -- ** IndexDocument+    , IndexDocument+    , indexDocument+    , idSuffix++    -- ** Initiator+    , Initiator+    , initiator+    , iId+    , iDisplayName++    -- ** LambdaFunctionConfiguration+    , LambdaFunctionConfiguration+    , lambdaFunctionConfiguration+    , lfcId+    , lfcLambdaFunctionARN+    , lfcEvents++    -- ** LifecycleConfiguration+    , LifecycleConfiguration+    , lifecycleConfiguration+    , lcRules++    -- ** LifecycleExpiration+    , LifecycleExpiration+    , lifecycleExpiration+    , leDays+    , leDate++    -- ** LoggingEnabled+    , LoggingEnabled+    , loggingEnabled+    , leTargetBucket+    , leTargetGrants+    , leTargetPrefix++    -- ** MultipartUpload+    , MultipartUpload+    , multipartUpload+    , muInitiated+    , muInitiator+    , muOwner+    , muKey+    , muStorageClass+    , muUploadId++    -- ** NoncurrentVersionExpiration+    , NoncurrentVersionExpiration+    , noncurrentVersionExpiration+    , nveNoncurrentDays++    -- ** NoncurrentVersionTransition+    , NoncurrentVersionTransition+    , noncurrentVersionTransition+    , nvtNoncurrentDays+    , nvtStorageClass++    -- ** NotificationConfiguration+    , NotificationConfiguration+    , notificationConfiguration+    , ncQueueConfigurations+    , ncTopicConfigurations+    , ncLambdaFunctionConfigurations++    -- ** Object+    , Object+    , object'+    , oOwner+    , oETag+    , oSize+    , oKey+    , oStorageClass+    , oLastModified++    -- ** ObjectIdentifier+    , ObjectIdentifier+    , objectIdentifier+    , oiVersionId+    , oiKey++    -- ** ObjectVersion+    , ObjectVersion+    , objectVersion+    , ovVersionId+    , ovETag+    , ovSize+    , ovIsLatest+    , ovOwner+    , ovKey+    , ovStorageClass+    , ovLastModified++    -- ** Owner+    , Owner+    , owner+    , oId+    , oDisplayName++    -- ** Part+    , Part+    , part+    , pETag+    , pSize+    , pPartNumber+    , pLastModified++    -- ** QueueConfiguration+    , QueueConfiguration+    , queueConfiguration+    , qcId+    , qcQueueARN+    , qcEvents++    -- ** Redirect+    , Redirect+    , redirect+    , rHostName+    , rProtocol+    , rHTTPRedirectCode+    , rReplaceKeyWith+    , rReplaceKeyPrefixWith++    -- ** RedirectAllRequestsTo+    , RedirectAllRequestsTo+    , redirectAllRequestsTo+    , rartProtocol+    , rartHostName++    -- ** ReplicationConfiguration+    , ReplicationConfiguration+    , replicationConfiguration+    , rcRole+    , rcRules++    -- ** ReplicationRule+    , ReplicationRule+    , replicationRule+    , rrId+    , rrPrefix+    , rrStatus+    , rrDestination++    -- ** RequestPaymentConfiguration+    , RequestPaymentConfiguration+    , requestPaymentConfiguration+    , rpcPayer++    -- ** RestoreRequest+    , RestoreRequest+    , restoreRequest+    , rrDays++    -- ** RoutingRule+    , RoutingRule+    , routingRule+    , rrCondition+    , rrRedirect++    -- ** Rule+    , Rule+    , rule+    , rNoncurrentVersionExpiration+    , rTransition+    , rExpiration+    , rNoncurrentVersionTransition+    , rId+    , rPrefix+    , rStatus++    -- ** S3ServiceError+    , S3ServiceError+    , s3ServiceError+    , sseVersionId+    , sseKey+    , sseCode+    , sseMessage++    -- ** Tag+    , Tag+    , tag+    , tagKey+    , tagValue++    -- ** Tagging+    , Tagging+    , tagging+    , tTagSet++    -- ** TargetGrant+    , TargetGrant+    , targetGrant+    , tgPermission+    , tgGrantee++    -- ** TopicConfiguration+    , TopicConfiguration+    , topicConfiguration+    , tcId+    , tcTopicARN+    , tcEvents++    -- ** Transition+    , Transition+    , transition+    , tDays+    , tDate+    , tStorageClass++    -- ** VersioningConfiguration+    , VersioningConfiguration+    , versioningConfiguration+    , vcStatus+    , vcMFADelete++    -- ** WebsiteConfiguration+    , WebsiteConfiguration+    , websiteConfiguration+    , wcRedirectAllRequestsTo+    , wcErrorDocument+    , wcRoutingRules+    , wcIndexDocument     ) 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.DeleteBucketCors-import Network.AWS.S3.DeleteBucketLifecycle-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.GetBucketAcl-import Network.AWS.S3.GetBucketCors-import Network.AWS.S3.GetBucketLifecycle-import Network.AWS.S3.GetBucketLocation-import Network.AWS.S3.GetBucketLogging-import Network.AWS.S3.GetBucketNotification-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.GetObjectTorrent-import Network.AWS.S3.HeadBucket-import Network.AWS.S3.HeadObject-import Network.AWS.S3.ListBuckets-import Network.AWS.S3.ListMultipartUploads-import Network.AWS.S3.ListObjectVersions-import Network.AWS.S3.ListObjects-import Network.AWS.S3.ListParts-import Network.AWS.S3.PutBucketAcl-import Network.AWS.S3.PutBucketCors-import Network.AWS.S3.PutBucketLifecycle-import Network.AWS.S3.PutBucketLogging-import Network.AWS.S3.PutBucketNotification-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.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.DeleteBucketCORS+import           Network.AWS.S3.DeleteBucketLifecycle+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.GetBucketACL+import           Network.AWS.S3.GetBucketCORS+import           Network.AWS.S3.GetBucketLifecycle+import           Network.AWS.S3.GetBucketLocation+import           Network.AWS.S3.GetBucketLogging+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.GetObjectTorrent+import           Network.AWS.S3.HeadBucket+import           Network.AWS.S3.HeadObject+import           Network.AWS.S3.Internal+import           Network.AWS.S3.ListBuckets+import           Network.AWS.S3.ListMultipartUploads+import           Network.AWS.S3.ListObjects+import           Network.AWS.S3.ListObjectVersions+import           Network.AWS.S3.ListParts+import           Network.AWS.S3.PutBucketACL+import           Network.AWS.S3.PutBucketCORS+import           Network.AWS.S3.PutBucketLifecycle+import           Network.AWS.S3.PutBucketLogging+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.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+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'S3'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,145 +1,153 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AbortMultipartUpload--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Aborts a multipart upload.+-- Aborts a multipart upload. ----- To verify that all parts have been removed, so you don't get charged for the--- part storage, you should call the List Parts operation and ensure the parts--- list is empty.+-- To verify that all parts have been removed, so you don\'t get charged+-- for the part storage, you should call the List Parts operation and+-- ensure the parts list is empty. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/AbortMultipartUpload.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/AbortMultipartUpload.html AWS API Reference> for AbortMultipartUpload. module Network.AWS.S3.AbortMultipartUpload     (-    -- * Request-      AbortMultipartUpload-    -- ** Request constructor-    , abortMultipartUpload-    -- ** Request lenses+    -- * Creating a Request+      abortMultipartUpload+    , AbortMultipartUpload+    -- * Request Lenses+    , amuRequestPayer     , amuBucket     , amuKey-    , amuRequestPayer     , amuUploadId -    -- * Response-    , AbortMultipartUploadResponse-    -- ** Response constructor+    -- * Destructuring the Response     , abortMultipartUploadResponse-    -- ** Response lenses-    , amurRequestCharged+    , AbortMultipartUploadResponse+    -- * Response Lenses+    , amursRequestCharged+    , amursStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -data AbortMultipartUpload = AbortMultipartUpload-    { _amuBucket       :: Text-    , _amuKey          :: Text-    , _amuRequestPayer :: Maybe RequestPayer-    , _amuUploadId     :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'abortMultipartUpload' smart constructor.+data AbortMultipartUpload = AbortMultipartUpload'+    { _amuRequestPayer :: !(Maybe RequestPayer)+    , _amuBucket       :: !BucketName+    , _amuKey          :: !ObjectKey+    , _amuUploadId     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AbortMultipartUpload' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AbortMultipartUpload' with the minimum fields required to make a request. ----- * 'amuBucket' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'amuKey' @::@ 'Text'+-- * 'amuRequestPayer' ----- * 'amuRequestPayer' @::@ 'Maybe' 'RequestPayer'+-- * 'amuBucket' ----- * 'amuUploadId' @::@ 'Text'+-- * 'amuKey' ---abortMultipartUpload :: Text -- ^ 'amuBucket'-                     -> Text -- ^ 'amuKey'-                     -> Text -- ^ 'amuUploadId'-                     -> AbortMultipartUpload-abortMultipartUpload p1 p2 p3 = AbortMultipartUpload-    { _amuBucket       = p1-    , _amuKey          = p2-    , _amuUploadId     = p3-    , _amuRequestPayer = Nothing+-- * 'amuUploadId'+abortMultipartUpload+    :: BucketName -- ^ 'amuBucket'+    -> ObjectKey -- ^ 'amuKey'+    -> Text -- ^ 'amuUploadId'+    -> AbortMultipartUpload+abortMultipartUpload pBucket_ pKey_ pUploadId_ =+    AbortMultipartUpload'+    { _amuRequestPayer = Nothing+    , _amuBucket = pBucket_+    , _amuKey = pKey_+    , _amuUploadId = pUploadId_     } -amuBucket :: Lens' AbortMultipartUpload Text-amuBucket = lens _amuBucket (\s a -> s { _amuBucket = a })+-- | Undocumented member.+amuRequestPayer :: Lens' AbortMultipartUpload (Maybe RequestPayer)+amuRequestPayer = lens _amuRequestPayer (\ s a -> s{_amuRequestPayer = a}); -amuKey :: Lens' AbortMultipartUpload Text-amuKey = lens _amuKey (\s a -> s { _amuKey = a })+-- | Undocumented member.+amuBucket :: Lens' AbortMultipartUpload BucketName+amuBucket = lens _amuBucket (\ s a -> s{_amuBucket = a}); -amuRequestPayer :: Lens' AbortMultipartUpload (Maybe RequestPayer)-amuRequestPayer = lens _amuRequestPayer (\s a -> s { _amuRequestPayer = a })+-- | Undocumented member.+amuKey :: Lens' AbortMultipartUpload ObjectKey+amuKey = lens _amuKey (\ s a -> s{_amuKey = a}); +-- | Undocumented member. amuUploadId :: Lens' AbortMultipartUpload Text-amuUploadId = lens _amuUploadId (\s a -> s { _amuUploadId = a })--newtype AbortMultipartUploadResponse = AbortMultipartUploadResponse-    { _amurRequestCharged :: Maybe RequestCharged-    } deriving (Eq, Read, Show)+amuUploadId = lens _amuUploadId (\ s a -> s{_amuUploadId = a}); --- | 'AbortMultipartUploadResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'amurRequestCharged' @::@ 'Maybe' 'RequestCharged'----abortMultipartUploadResponse :: AbortMultipartUploadResponse-abortMultipartUploadResponse = AbortMultipartUploadResponse-    { _amurRequestCharged = Nothing-    }+instance AWSRequest AbortMultipartUpload where+        type Sv AbortMultipartUpload = S3+        type Rs AbortMultipartUpload =+             AbortMultipartUploadResponse+        request = delete+        response+          = receiveEmpty+              (\ s h x ->+                 AbortMultipartUploadResponse' <$>+                   (h .#? "x-amz-request-charged") <*>+                     (pure (fromEnum s))) -amurRequestCharged :: Lens' AbortMultipartUploadResponse (Maybe RequestCharged)-amurRequestCharged =-    lens _amurRequestCharged (\s a -> s { _amurRequestCharged = a })+instance ToHeaders AbortMultipartUpload where+        toHeaders AbortMultipartUpload'{..}+          = mconcat ["x-amz-request-payer" =# _amuRequestPayer]  instance ToPath AbortMultipartUpload where-    toPath AbortMultipartUpload{..} = mconcat-        [ "/"-        , toText _amuBucket-        , "/"-        , toText _amuKey-        ]+        toPath AbortMultipartUpload'{..}+          = mconcat ["/", toBS _amuBucket, "/", toBS _amuKey]  instance ToQuery AbortMultipartUpload where-    toQuery rq = "uploadId" =? _amuUploadId rq--instance ToHeaders AbortMultipartUpload where-    toHeaders AbortMultipartUpload{..} = mconcat-        [ "x-amz-request-payer" =: _amuRequestPayer-        ]+        toQuery AbortMultipartUpload'{..}+          = mconcat ["uploadId" =: _amuUploadId] -instance ToXMLRoot AbortMultipartUpload where-    toXMLRoot = const (namespaced ns "AbortMultipartUpload" [])+-- | /See:/ 'abortMultipartUploadResponse' smart constructor.+data AbortMultipartUploadResponse = AbortMultipartUploadResponse'+    { _amursRequestCharged :: !(Maybe RequestCharged)+    , _amursStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToXML AbortMultipartUpload+-- | 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:+--+-- * 'amursRequestCharged'+--+-- * 'amursStatus'+abortMultipartUploadResponse+    :: Int -- ^ 'amursStatus'+    -> AbortMultipartUploadResponse+abortMultipartUploadResponse pStatus_ =+    AbortMultipartUploadResponse'+    { _amursRequestCharged = Nothing+    , _amursStatus = pStatus_+    } -instance AWSRequest AbortMultipartUpload where-    type Sv AbortMultipartUpload = S3-    type Rs AbortMultipartUpload = AbortMultipartUploadResponse+-- | Undocumented member.+amursRequestCharged :: Lens' AbortMultipartUploadResponse (Maybe RequestCharged)+amursRequestCharged = lens _amursRequestCharged (\ s a -> s{_amursRequestCharged = a}); -    request  = delete-    response = headerResponse $ \h -> AbortMultipartUploadResponse-        <$> h ~:? "x-amz-request-charged"+-- | The response status code.+amursStatus :: Lens' AbortMultipartUploadResponse Int+amursStatus = lens _amursStatus (\ s a -> s{_amursStatus = a});

@@ -1,232 +1,249 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CompleteMultipartUpload--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Completes a multipart upload by assembling previously uploaded parts.+-- Completes a multipart upload by assembling previously uploaded parts. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/CompleteMultipartUpload.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/CompleteMultipartUpload.html AWS API Reference> for CompleteMultipartUpload. module Network.AWS.S3.CompleteMultipartUpload     (-    -- * Request-      CompleteMultipartUpload-    -- ** Request constructor-    , completeMultipartUpload-    -- ** Request lenses-    , cmu1Bucket-    , cmu1Key-    , cmu1MultipartUpload-    , cmu1RequestPayer-    , cmu1UploadId+    -- * Creating a Request+      completeMultipartUpload+    , CompleteMultipartUpload+    -- * Request Lenses+    , cRequestPayer+    , cMultipartUpload+    , cBucket+    , cKey+    , cUploadId -    -- * Response-    , CompleteMultipartUploadResponse-    -- ** Response constructor+    -- * Destructuring the Response     , completeMultipartUploadResponse-    -- ** Response lenses-    , cmur1Bucket-    , cmur1ETag-    , cmur1Expiration-    , cmur1Key-    , cmur1Location-    , cmur1RequestCharged-    , cmur1SSEKMSKeyId-    , cmur1ServerSideEncryption-    , cmur1VersionId+    , CompleteMultipartUploadResponse+    -- * Response Lenses+    , crsVersionId+    , crsETag+    , crsRequestCharged+    , crsLocation+    , crsExpiration+    , crsBucket+    , crsKey+    , crsSSEKMSKeyId+    , crsServerSideEncryption+    , crsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -data CompleteMultipartUpload = CompleteMultipartUpload-    { _cmu1Bucket          :: Text-    , _cmu1Key             :: Text-    , _cmu1MultipartUpload :: Maybe CompletedMultipartUpload-    , _cmu1RequestPayer    :: Maybe RequestPayer-    , _cmu1UploadId        :: Text-    } deriving (Eq, Read, Show)+-- | /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) --- | 'CompleteMultipartUpload' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CompleteMultipartUpload' with the minimum fields required to make a request. ----- * 'cmu1Bucket' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cmu1Key' @::@ 'Text'+-- * 'cRequestPayer' ----- * 'cmu1MultipartUpload' @::@ 'Maybe' 'CompletedMultipartUpload'+-- * 'cMultipartUpload' ----- * 'cmu1RequestPayer' @::@ 'Maybe' 'RequestPayer'+-- * 'cBucket' ----- * 'cmu1UploadId' @::@ 'Text'+-- * 'cKey' ---completeMultipartUpload :: Text -- ^ 'cmu1Bucket'-                        -> Text -- ^ 'cmu1Key'-                        -> Text -- ^ 'cmu1UploadId'-                        -> CompleteMultipartUpload-completeMultipartUpload p1 p2 p3 = CompleteMultipartUpload-    { _cmu1Bucket          = p1-    , _cmu1Key             = p2-    , _cmu1UploadId        = p3-    , _cmu1MultipartUpload = Nothing-    , _cmu1RequestPayer    = Nothing+-- * 'cUploadId'+completeMultipartUpload+    :: BucketName -- ^ 'cBucket'+    -> ObjectKey -- ^ 'cKey'+    -> Text -- ^ 'cUploadId'+    -> CompleteMultipartUpload+completeMultipartUpload pBucket_ pKey_ pUploadId_ =+    CompleteMultipartUpload'+    { _cRequestPayer = Nothing+    , _cMultipartUpload = Nothing+    , _cBucket = pBucket_+    , _cKey = pKey_+    , _cUploadId = pUploadId_     } -cmu1Bucket :: Lens' CompleteMultipartUpload Text-cmu1Bucket = lens _cmu1Bucket (\s a -> s { _cmu1Bucket = a })+-- | Undocumented member.+cRequestPayer :: Lens' CompleteMultipartUpload (Maybe RequestPayer)+cRequestPayer = lens _cRequestPayer (\ s a -> s{_cRequestPayer = a}); -cmu1Key :: Lens' CompleteMultipartUpload Text-cmu1Key = lens _cmu1Key (\s a -> s { _cmu1Key = a })+-- | Undocumented member.+cMultipartUpload :: Lens' CompleteMultipartUpload (Maybe CompletedMultipartUpload)+cMultipartUpload = lens _cMultipartUpload (\ s a -> s{_cMultipartUpload = a}); -cmu1MultipartUpload :: Lens' CompleteMultipartUpload (Maybe CompletedMultipartUpload)-cmu1MultipartUpload =-    lens _cmu1MultipartUpload (\s a -> s { _cmu1MultipartUpload = a })+-- | Undocumented member.+cBucket :: Lens' CompleteMultipartUpload BucketName+cBucket = lens _cBucket (\ s a -> s{_cBucket = a}); -cmu1RequestPayer :: Lens' CompleteMultipartUpload (Maybe RequestPayer)-cmu1RequestPayer = lens _cmu1RequestPayer (\s a -> s { _cmu1RequestPayer = a })+-- | Undocumented member.+cKey :: Lens' CompleteMultipartUpload ObjectKey+cKey = lens _cKey (\ s a -> s{_cKey = a}); -cmu1UploadId :: Lens' CompleteMultipartUpload Text-cmu1UploadId = lens _cmu1UploadId (\s a -> s { _cmu1UploadId = a })+-- | Undocumented member.+cUploadId :: Lens' CompleteMultipartUpload Text+cUploadId = lens _cUploadId (\ s a -> s{_cUploadId = a}); -data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse-    { _cmur1Bucket               :: Maybe Text-    , _cmur1ETag                 :: Maybe Text-    , _cmur1Expiration           :: Maybe Text-    , _cmur1Key                  :: Maybe Text-    , _cmur1Location             :: Maybe Text-    , _cmur1RequestCharged       :: Maybe RequestCharged-    , _cmur1SSEKMSKeyId          :: Maybe (Sensitive Text)-    , _cmur1ServerSideEncryption :: Maybe ServerSideEncryption-    , _cmur1VersionId            :: Maybe Text-    } deriving (Eq, Read, Show)+instance AWSRequest CompleteMultipartUpload where+        type Sv CompleteMultipartUpload = S3+        type Rs CompleteMultipartUpload =+             CompleteMultipartUploadResponse+        request = postXML+        response+          = receiveXML+              (\ s h x ->+                 CompleteMultipartUploadResponse' <$>+                   (h .#? "x-amz-version-id") <*> (x .@? "ETag") <*>+                     (h .#? "x-amz-request-charged")+                     <*> (x .@? "Location")+                     <*> (h .#? "x-amz-expiration")+                     <*> (x .@? "Bucket")+                     <*> (x .@? "Key")+                     <*>+                     (h .#? "x-amz-server-side-encryption-aws-kms-key-id")+                     <*> (h .#? "x-amz-server-side-encryption")+                     <*> (pure (fromEnum s))) --- | 'CompleteMultipartUploadResponse' constructor.+instance ToElement CompleteMultipartUpload where+        toElement+          = mkElement+              "{http://s3.amazonaws.com/doc/2006-03-01/}CompleteMultipartUpload"+              .+              _cMultipartUpload++instance ToHeaders CompleteMultipartUpload where+        toHeaders CompleteMultipartUpload'{..}+          = mconcat ["x-amz-request-payer" =# _cRequestPayer]++instance ToPath CompleteMultipartUpload where+        toPath CompleteMultipartUpload'{..}+          = mconcat ["/", toBS _cBucket, "/", toBS _cKey]++instance ToQuery CompleteMultipartUpload where+        toQuery CompleteMultipartUpload'{..}+          = mconcat ["uploadId" =: _cUploadId]++-- | /See:/ 'completeMultipartUploadResponse' smart constructor.+data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse'+    { _crsVersionId            :: !(Maybe ObjectVersionId)+    , _crsETag                 :: !(Maybe ETag)+    , _crsRequestCharged       :: !(Maybe RequestCharged)+    , _crsLocation             :: !(Maybe Text)+    , _crsExpiration           :: !(Maybe Text)+    , _crsBucket               :: !(Maybe BucketName)+    , _crsKey                  :: !(Maybe ObjectKey)+    , _crsSSEKMSKeyId          :: !(Maybe (Sensitive Text))+    , _crsServerSideEncryption :: !(Maybe ServerSideEncryption)+    , _crsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CompleteMultipartUploadResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'cmur1Bucket' @::@ 'Maybe' 'Text'+-- * 'crsVersionId' ----- * 'cmur1ETag' @::@ 'Maybe' 'Text'+-- * 'crsETag' ----- * 'cmur1Expiration' @::@ 'Maybe' 'Text'+-- * 'crsRequestCharged' ----- * 'cmur1Key' @::@ 'Maybe' 'Text'+-- * 'crsLocation' ----- * 'cmur1Location' @::@ 'Maybe' 'Text'+-- * 'crsExpiration' ----- * 'cmur1RequestCharged' @::@ 'Maybe' 'RequestCharged'+-- * 'crsBucket' ----- * 'cmur1SSEKMSKeyId' @::@ 'Maybe' 'Text'+-- * 'crsKey' ----- * 'cmur1ServerSideEncryption' @::@ 'Maybe' 'ServerSideEncryption'+-- * 'crsSSEKMSKeyId' ----- * 'cmur1VersionId' @::@ 'Maybe' 'Text'+-- * 'crsServerSideEncryption' ---completeMultipartUploadResponse :: CompleteMultipartUploadResponse-completeMultipartUploadResponse = CompleteMultipartUploadResponse-    { _cmur1Location             = Nothing-    , _cmur1Bucket               = Nothing-    , _cmur1Key                  = Nothing-    , _cmur1Expiration           = Nothing-    , _cmur1ETag                 = Nothing-    , _cmur1ServerSideEncryption = Nothing-    , _cmur1VersionId            = Nothing-    , _cmur1SSEKMSKeyId          = Nothing-    , _cmur1RequestCharged       = Nothing+-- * 'crsStatus'+completeMultipartUploadResponse+    :: Int -- ^ 'crsStatus'+    -> CompleteMultipartUploadResponse+completeMultipartUploadResponse pStatus_ =+    CompleteMultipartUploadResponse'+    { _crsVersionId = Nothing+    , _crsETag = Nothing+    , _crsRequestCharged = Nothing+    , _crsLocation = Nothing+    , _crsExpiration = Nothing+    , _crsBucket = Nothing+    , _crsKey = Nothing+    , _crsSSEKMSKeyId = Nothing+    , _crsServerSideEncryption = Nothing+    , _crsStatus = pStatus_     } -cmur1Bucket :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1Bucket = lens _cmur1Bucket (\s a -> s { _cmur1Bucket = a })+-- | Version of the object.+crsVersionId :: Lens' CompleteMultipartUploadResponse (Maybe ObjectVersionId)+crsVersionId = lens _crsVersionId (\ s a -> s{_crsVersionId = a});  -- | Entity tag of the object.-cmur1ETag :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1ETag = lens _cmur1ETag (\s a -> s { _cmur1ETag = a })+crsETag :: Lens' CompleteMultipartUploadResponse (Maybe ETag)+crsETag = lens _crsETag (\ s a -> s{_crsETag = a}); --- | If the object expiration is configured, this will contain the expiration date--- (expiry-date) and rule ID (rule-id). The value of rule-id is URL encoded.-cmur1Expiration :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1Expiration = lens _cmur1Expiration (\s a -> s { _cmur1Expiration = a })+-- | Undocumented member.+crsRequestCharged :: Lens' CompleteMultipartUploadResponse (Maybe RequestCharged)+crsRequestCharged = lens _crsRequestCharged (\ s a -> s{_crsRequestCharged = a}); -cmur1Key :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1Key = lens _cmur1Key (\s a -> s { _cmur1Key = a })+-- | Undocumented member.+crsLocation :: Lens' CompleteMultipartUploadResponse (Maybe Text)+crsLocation = lens _crsLocation (\ s a -> s{_crsLocation = a}); -cmur1Location :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1Location = lens _cmur1Location (\s a -> s { _cmur1Location = a })+-- | If the object expiration is configured, this will contain the expiration+-- date (expiry-date) and rule ID (rule-id). The value of rule-id is URL+-- encoded.+crsExpiration :: Lens' CompleteMultipartUploadResponse (Maybe Text)+crsExpiration = lens _crsExpiration (\ s a -> s{_crsExpiration = a}); -cmur1RequestCharged :: Lens' CompleteMultipartUploadResponse (Maybe RequestCharged)-cmur1RequestCharged =-    lens _cmur1RequestCharged (\s a -> s { _cmur1RequestCharged = a })+-- | Undocumented member.+crsBucket :: Lens' CompleteMultipartUploadResponse (Maybe BucketName)+crsBucket = lens _crsBucket (\ s a -> s{_crsBucket = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS) master--- encryption key that was used for the object.-cmur1SSEKMSKeyId :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1SSEKMSKeyId = lens _cmur1SSEKMSKeyId (\s a -> s { _cmur1SSEKMSKeyId = a }) . mapping _Sensitive+-- | Undocumented member.+crsKey :: Lens' CompleteMultipartUploadResponse (Maybe ObjectKey)+crsKey = lens _crsKey (\ s a -> s{_crsKey = a}); +-- | If present, specifies the ID of the AWS Key Management Service (KMS)+-- master encryption key that was used for the object.+crsSSEKMSKeyId :: Lens' CompleteMultipartUploadResponse (Maybe Text)+crsSSEKMSKeyId = lens _crsSSEKMSKeyId (\ s a -> s{_crsSSEKMSKeyId = a}) . mapping _Sensitive;+ -- | The Server-side encryption algorithm used when storing this object in S3 -- (e.g., AES256, aws:kms).-cmur1ServerSideEncryption :: Lens' CompleteMultipartUploadResponse (Maybe ServerSideEncryption)-cmur1ServerSideEncryption =-    lens _cmur1ServerSideEncryption-        (\s a -> s { _cmur1ServerSideEncryption = a })---- | Version of the object.-cmur1VersionId :: Lens' CompleteMultipartUploadResponse (Maybe Text)-cmur1VersionId = lens _cmur1VersionId (\s a -> s { _cmur1VersionId = a })--instance ToPath CompleteMultipartUpload where-    toPath CompleteMultipartUpload{..} = mconcat-        [ "/"-        , toText _cmu1Bucket-        , "/"-        , toText _cmu1Key-        ]--instance ToQuery CompleteMultipartUpload where-    toQuery rq = "uploadId" =? _cmu1UploadId rq--instance ToHeaders CompleteMultipartUpload where-    toHeaders CompleteMultipartUpload{..} = mconcat-        [ "x-amz-request-payer" =: _cmu1RequestPayer-        ]--instance ToXMLRoot CompleteMultipartUpload where-    toXMLRoot = extractRoot ns . toXML . _cmu1MultipartUpload--instance ToXML CompleteMultipartUpload--instance AWSRequest CompleteMultipartUpload where-    type Sv CompleteMultipartUpload = S3-    type Rs CompleteMultipartUpload = CompleteMultipartUploadResponse+crsServerSideEncryption :: Lens' CompleteMultipartUploadResponse (Maybe ServerSideEncryption)+crsServerSideEncryption = lens _crsServerSideEncryption (\ s a -> s{_crsServerSideEncryption = a}); -    request  = post-    response = xmlHeaderResponse $ \h x -> CompleteMultipartUploadResponse-        <$> x .@? "Bucket"-        <*> x .@? "ETag"-        <*> h ~:? "x-amz-expiration"-        <*> x .@? "Key"-        <*> x .@? "Location"-        <*> h ~:? "x-amz-request-charged"-        <*> h ~:? "x-amz-server-side-encryption-aws-kms-key-id"-        <*> h ~:? "x-amz-server-side-encryption"-        <*> h ~:? "x-amz-version-id"+-- | The response status code.+crsStatus :: Lens' CompleteMultipartUploadResponse Int+crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});

@@ -1,541 +1,538 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CopyObject--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a copy of an object that is already stored in Amazon S3.+-- Creates a copy of an object that is already stored in Amazon S3. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/CopyObject.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/CopyObject.html AWS API Reference> for CopyObject. module Network.AWS.S3.CopyObject     (-    -- * Request-      CopyObject-    -- ** Request constructor-    , copyObject-    -- ** Request lenses-    , coACL-    , coBucket-    , coCacheControl-    , coContentDisposition-    , coContentEncoding-    , coContentLanguage-    , coContentType-    , coCopySource-    , coCopySourceIfMatch+    -- * Creating a Request+      copyObject+    , CopyObject+    -- * Request Lenses     , coCopySourceIfModifiedSince-    , coCopySourceIfNoneMatch     , coCopySourceIfUnmodifiedSince-    , coCopySourceSSECustomerAlgorithm-    , coCopySourceSSECustomerKey     , coCopySourceSSECustomerKeyMD5-    , coExpires-    , coGrantFullControl-    , coGrantRead-    , coGrantReadACP-    , coGrantWriteACP-    , coKey-    , coMetadata     , coMetadataDirective-    , coRequestPayer+    , coExpires     , coSSECustomerAlgorithm+    , coCopySourceIfNoneMatch+    , coGrantReadACP     , coSSECustomerKey-    , coSSECustomerKeyMD5+    , coRequestPayer+    , coGrantWriteACP+    , coWebsiteRedirectLocation+    , coCopySourceIfMatch+    , coGrantRead+    , coStorageClass+    , coContentEncoding     , coSSEKMSKeyId+    , coGrantFullControl+    , coSSECustomerKeyMD5+    , coMetadata+    , coCacheControl+    , coContentLanguage+    , coACL+    , coCopySourceSSECustomerKey+    , coContentDisposition+    , coCopySourceSSECustomerAlgorithm     , coServerSideEncryption-    , coStorageClass-    , coWebsiteRedirectLocation+    , coContentType+    , coBucket+    , coCopySource+    , coKey -    -- * Response-    , CopyObjectResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copyObjectResponse-    -- ** Response lenses-    , corCopyObjectResult-    , corCopySourceVersionId-    , corExpiration-    , corRequestCharged-    , corSSECustomerAlgorithm-    , corSSECustomerKeyMD5-    , corSSEKMSKeyId-    , corServerSideEncryption+    , CopyObjectResponse+    -- * Response Lenses+    , corsRequestCharged+    , corsExpiration+    , corsSSECustomerAlgorithm+    , corsCopySourceVersionId+    , corsSSEKMSKeyId+    , corsSSECustomerKeyMD5+    , corsServerSideEncryption+    , corsCopyObjectResult+    , corsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -data CopyObject = CopyObject-    { _coACL                            :: Maybe ObjectCannedACL-    , _coBucket                         :: Text-    , _coCacheControl                   :: Maybe Text-    , _coContentDisposition             :: Maybe Text-    , _coContentEncoding                :: Maybe Text-    , _coContentLanguage                :: Maybe Text-    , _coContentType                    :: Maybe Text-    , _coCopySource                     :: Text-    , _coCopySourceIfMatch              :: Maybe Text-    , _coCopySourceIfModifiedSince      :: Maybe RFC822-    , _coCopySourceIfNoneMatch          :: Maybe Text-    , _coCopySourceIfUnmodifiedSince    :: Maybe RFC822-    , _coCopySourceSSECustomerAlgorithm :: Maybe Text-    , _coCopySourceSSECustomerKey       :: Maybe (Sensitive Text)-    , _coCopySourceSSECustomerKeyMD5    :: Maybe Text-    , _coExpires                        :: Maybe RFC822-    , _coGrantFullControl               :: Maybe Text-    , _coGrantRead                      :: Maybe Text-    , _coGrantReadACP                   :: Maybe Text-    , _coGrantWriteACP                  :: Maybe Text-    , _coKey                            :: Text-    , _coMetadata                       :: Map (CI Text) Text-    , _coMetadataDirective              :: Maybe MetadataDirective-    , _coRequestPayer                   :: Maybe RequestPayer-    , _coSSECustomerAlgorithm           :: Maybe Text-    , _coSSECustomerKey                 :: Maybe (Sensitive Text)-    , _coSSECustomerKeyMD5              :: Maybe Text-    , _coSSEKMSKeyId                    :: Maybe (Sensitive Text)-    , _coServerSideEncryption           :: Maybe ServerSideEncryption-    , _coStorageClass                   :: Maybe StorageClass-    , _coWebsiteRedirectLocation        :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'copyObject' smart constructor.+data CopyObject = CopyObject'+    { _coCopySourceIfModifiedSince      :: !(Maybe RFC822)+    , _coCopySourceIfUnmodifiedSince    :: !(Maybe RFC822)+    , _coCopySourceSSECustomerKeyMD5    :: !(Maybe Text)+    , _coMetadataDirective              :: !(Maybe MetadataDirective)+    , _coExpires                        :: !(Maybe RFC822)+    , _coSSECustomerAlgorithm           :: !(Maybe Text)+    , _coCopySourceIfNoneMatch          :: !(Maybe Text)+    , _coGrantReadACP                   :: !(Maybe Text)+    , _coSSECustomerKey                 :: !(Maybe (Sensitive Text))+    , _coRequestPayer                   :: !(Maybe RequestPayer)+    , _coGrantWriteACP                  :: !(Maybe Text)+    , _coWebsiteRedirectLocation        :: !(Maybe Text)+    , _coCopySourceIfMatch              :: !(Maybe Text)+    , _coGrantRead                      :: !(Maybe Text)+    , _coStorageClass                   :: !(Maybe StorageClass)+    , _coContentEncoding                :: !(Maybe Text)+    , _coSSEKMSKeyId                    :: !(Maybe (Sensitive Text))+    , _coGrantFullControl               :: !(Maybe Text)+    , _coSSECustomerKeyMD5              :: !(Maybe Text)+    , _coMetadata                       :: !(Map Text Text)+    , _coCacheControl                   :: !(Maybe Text)+    , _coContentLanguage                :: !(Maybe Text)+    , _coACL                            :: !(Maybe ObjectCannedACL)+    , _coCopySourceSSECustomerKey       :: !(Maybe (Sensitive Text))+    , _coContentDisposition             :: !(Maybe Text)+    , _coCopySourceSSECustomerAlgorithm :: !(Maybe Text)+    , _coServerSideEncryption           :: !(Maybe ServerSideEncryption)+    , _coContentType                    :: !(Maybe Text)+    , _coBucket                         :: !BucketName+    , _coCopySource                     :: !Text+    , _coKey                            :: !ObjectKey+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CopyObject' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CopyObject' with the minimum fields required to make a request. ----- * 'coACL' @::@ 'Maybe' 'ObjectCannedACL'+-- Use one of the following lenses to modify other fields as desired: ----- * 'coBucket' @::@ 'Text'+-- * 'coCopySourceIfModifiedSince' ----- * 'coCacheControl' @::@ 'Maybe' 'Text'+-- * 'coCopySourceIfUnmodifiedSince' ----- * 'coContentDisposition' @::@ 'Maybe' 'Text'+-- * 'coCopySourceSSECustomerKeyMD5' ----- * 'coContentEncoding' @::@ 'Maybe' 'Text'+-- * 'coMetadataDirective' ----- * 'coContentLanguage' @::@ 'Maybe' 'Text'+-- * 'coExpires' ----- * 'coContentType' @::@ 'Maybe' 'Text'+-- * 'coSSECustomerAlgorithm' ----- * 'coCopySource' @::@ 'Text'+-- * 'coCopySourceIfNoneMatch' ----- * 'coCopySourceIfMatch' @::@ 'Maybe' 'Text'+-- * 'coGrantReadACP' ----- * 'coCopySourceIfModifiedSince' @::@ 'Maybe' 'UTCTime'+-- * 'coSSECustomerKey' ----- * 'coCopySourceIfNoneMatch' @::@ 'Maybe' 'Text'+-- * 'coRequestPayer' ----- * 'coCopySourceIfUnmodifiedSince' @::@ 'Maybe' 'UTCTime'+-- * 'coGrantWriteACP' ----- * 'coCopySourceSSECustomerAlgorithm' @::@ 'Maybe' 'Text'+-- * 'coWebsiteRedirectLocation' ----- * 'coCopySourceSSECustomerKey' @::@ 'Maybe' 'Text'+-- * 'coCopySourceIfMatch' ----- * 'coCopySourceSSECustomerKeyMD5' @::@ 'Maybe' 'Text'+-- * 'coGrantRead' ----- * 'coExpires' @::@ 'Maybe' 'UTCTime'+-- * 'coStorageClass' ----- * 'coGrantFullControl' @::@ 'Maybe' 'Text'+-- * 'coContentEncoding' ----- * 'coGrantRead' @::@ 'Maybe' 'Text'+-- * 'coSSEKMSKeyId' ----- * 'coGrantReadACP' @::@ 'Maybe' 'Text'+-- * 'coGrantFullControl' ----- * 'coGrantWriteACP' @::@ 'Maybe' 'Text'+-- * 'coSSECustomerKeyMD5' ----- * 'coKey' @::@ 'Text'+-- * 'coMetadata' ----- * 'coMetadata' @::@ 'HashMap' ('CI' 'Text') 'Text'+-- * 'coCacheControl' ----- * 'coMetadataDirective' @::@ 'Maybe' 'MetadataDirective'+-- * 'coContentLanguage' ----- * 'coRequestPayer' @::@ 'Maybe' 'RequestPayer'+-- * 'coACL' ----- * 'coSSECustomerAlgorithm' @::@ 'Maybe' 'Text'+-- * 'coCopySourceSSECustomerKey' ----- * 'coSSECustomerKey' @::@ 'Maybe' 'Text'+-- * 'coContentDisposition' ----- * 'coSSECustomerKeyMD5' @::@ 'Maybe' 'Text'+-- * 'coCopySourceSSECustomerAlgorithm' ----- * 'coSSEKMSKeyId' @::@ 'Maybe' 'Text'+-- * 'coServerSideEncryption' ----- * 'coServerSideEncryption' @::@ 'Maybe' 'ServerSideEncryption'+-- * 'coContentType' ----- * 'coStorageClass' @::@ 'Maybe' 'StorageClass'+-- * 'coBucket' ----- * 'coWebsiteRedirectLocation' @::@ 'Maybe' 'Text'+-- * 'coCopySource' ---copyObject :: Text -- ^ 'coBucket'-           -> Text -- ^ 'coCopySource'-           -> Text -- ^ 'coKey'-           -> CopyObject-copyObject p1 p2 p3 = CopyObject-    { _coBucket                         = p1-    , _coCopySource                     = p2-    , _coKey                            = p3-    , _coACL                            = Nothing-    , _coCacheControl                   = Nothing-    , _coContentDisposition             = Nothing-    , _coContentEncoding                = Nothing-    , _coContentLanguage                = Nothing-    , _coContentType                    = Nothing-    , _coCopySourceIfMatch              = Nothing-    , _coCopySourceIfModifiedSince      = Nothing-    , _coCopySourceIfNoneMatch          = Nothing-    , _coCopySourceIfUnmodifiedSince    = Nothing-    , _coExpires                        = Nothing-    , _coGrantFullControl               = Nothing-    , _coGrantRead                      = Nothing-    , _coGrantReadACP                   = Nothing-    , _coGrantWriteACP                  = Nothing-    , _coMetadata                       = mempty-    , _coMetadataDirective              = Nothing-    , _coServerSideEncryption           = Nothing-    , _coStorageClass                   = Nothing-    , _coWebsiteRedirectLocation        = Nothing-    , _coSSECustomerAlgorithm           = Nothing-    , _coSSECustomerKey                 = Nothing-    , _coSSECustomerKeyMD5              = Nothing-    , _coSSEKMSKeyId                    = Nothing+-- * 'coKey'+copyObject+    :: BucketName -- ^ 'coBucket'+    -> Text -- ^ 'coCopySource'+    -> ObjectKey -- ^ 'coKey'+    -> CopyObject+copyObject pBucket_ pCopySource_ pKey_ =+    CopyObject'+    { _coCopySourceIfModifiedSince = Nothing+    , _coCopySourceIfUnmodifiedSince = Nothing+    , _coCopySourceSSECustomerKeyMD5 = Nothing+    , _coMetadataDirective = Nothing+    , _coExpires = Nothing+    , _coSSECustomerAlgorithm = Nothing+    , _coCopySourceIfNoneMatch = Nothing+    , _coGrantReadACP = Nothing+    , _coSSECustomerKey = Nothing+    , _coRequestPayer = Nothing+    , _coGrantWriteACP = Nothing+    , _coWebsiteRedirectLocation = Nothing+    , _coCopySourceIfMatch = Nothing+    , _coGrantRead = Nothing+    , _coStorageClass = Nothing+    , _coContentEncoding = Nothing+    , _coSSEKMSKeyId = Nothing+    , _coGrantFullControl = Nothing+    , _coSSECustomerKeyMD5 = Nothing+    , _coMetadata = mempty+    , _coCacheControl = Nothing+    , _coContentLanguage = Nothing+    , _coACL = Nothing+    , _coCopySourceSSECustomerKey = Nothing+    , _coContentDisposition = Nothing     , _coCopySourceSSECustomerAlgorithm = Nothing-    , _coCopySourceSSECustomerKey       = Nothing-    , _coCopySourceSSECustomerKeyMD5    = Nothing-    , _coRequestPayer                   = Nothing+    , _coServerSideEncryption = Nothing+    , _coContentType = Nothing+    , _coBucket = pBucket_+    , _coCopySource = pCopySource_+    , _coKey = pKey_     } --- | The canned ACL to apply to the object.-coACL :: Lens' CopyObject (Maybe ObjectCannedACL)-coACL = lens _coACL (\s a -> s { _coACL = a })--coBucket :: Lens' CopyObject Text-coBucket = lens _coBucket (\s a -> s { _coBucket = a })---- | Specifies caching behavior along the request/reply chain.-coCacheControl :: Lens' CopyObject (Maybe Text)-coCacheControl = lens _coCacheControl (\s a -> s { _coCacheControl = a })---- | Specifies presentational information for the object.-coContentDisposition :: Lens' CopyObject (Maybe Text)-coContentDisposition =-    lens _coContentDisposition (\s a -> s { _coContentDisposition = a })---- | 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.-coContentEncoding :: Lens' CopyObject (Maybe Text)-coContentEncoding =-    lens _coContentEncoding (\s a -> s { _coContentEncoding = a })+-- | 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; --- | The language the content is in.-coContentLanguage :: Lens' CopyObject (Maybe Text)-coContentLanguage =-    lens _coContentLanguage (\s a -> s { _coContentLanguage = a })+-- | Copies the object if it hasn\'t been modified since the specified time.+coCopySourceIfUnmodifiedSince :: Lens' CopyObject (Maybe UTCTime)+coCopySourceIfUnmodifiedSince = lens _coCopySourceIfUnmodifiedSince (\ s a -> s{_coCopySourceIfUnmodifiedSince = a}) . mapping _Time; --- | A standard MIME type describing the format of the object data.-coContentType :: Lens' CopyObject (Maybe Text)-coContentType = lens _coContentType (\s a -> s { _coContentType = a })+-- | Specifies the 128-bit MD5 digest of the encryption key according to RFC+-- 1321. Amazon S3 uses this header for a message integrity check to ensure+-- the encryption key was transmitted without error.+coCopySourceSSECustomerKeyMD5 :: Lens' CopyObject (Maybe Text)+coCopySourceSSECustomerKeyMD5 = lens _coCopySourceSSECustomerKeyMD5 (\ s a -> s{_coCopySourceSSECustomerKeyMD5 = a}); --- | The name of the source bucket and key name of the source object, separated by--- a slash (/). Must be URL-encoded.-coCopySource :: Lens' CopyObject Text-coCopySource = lens _coCopySource (\s a -> s { _coCopySource = a })+-- | Specifies whether the metadata is copied from the source object or+-- replaced with metadata provided in the request.+coMetadataDirective :: Lens' CopyObject (Maybe MetadataDirective)+coMetadataDirective = lens _coMetadataDirective (\ s a -> s{_coMetadataDirective = a}); --- | Copies the object if its entity tag (ETag) matches the specified tag.-coCopySourceIfMatch :: Lens' CopyObject (Maybe Text)-coCopySourceIfMatch =-    lens _coCopySourceIfMatch (\s a -> s { _coCopySourceIfMatch = a })+-- | The date and time at which the object is no longer cacheable.+coExpires :: Lens' CopyObject (Maybe UTCTime)+coExpires = lens _coExpires (\ s a -> s{_coExpires = a}) . mapping _Time; --- | 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+-- | Specifies the algorithm to use to when encrypting the object (e.g.,+-- AES256).+coSSECustomerAlgorithm :: Lens' CopyObject (Maybe Text)+coSSECustomerAlgorithm = lens _coSSECustomerAlgorithm (\ s a -> s{_coSSECustomerAlgorithm = a}); --- | Copies the object if its entity tag (ETag) is different than the specified--- ETag.+-- | Copies the object if its entity tag (ETag) is different than the+-- specified ETag. coCopySourceIfNoneMatch :: Lens' CopyObject (Maybe Text)-coCopySourceIfNoneMatch =-    lens _coCopySourceIfNoneMatch (\s a -> s { _coCopySourceIfNoneMatch = a })+coCopySourceIfNoneMatch = lens _coCopySourceIfNoneMatch (\ s a -> s{_coCopySourceIfNoneMatch = a}); --- | Copies the object if it hasn't been modified since the specified time.-coCopySourceIfUnmodifiedSince :: Lens' CopyObject (Maybe UTCTime)-coCopySourceIfUnmodifiedSince =-    lens _coCopySourceIfUnmodifiedSince-        (\s a -> s { _coCopySourceIfUnmodifiedSince = a })-            . mapping _Time+-- | Allows grantee to read the object ACL.+coGrantReadACP :: Lens' CopyObject (Maybe Text)+coGrantReadACP = lens _coGrantReadACP (\ s a -> s{_coGrantReadACP = a}); --- | Specifies the algorithm to use when decrypting the source object (e.g.,--- AES256).-coCopySourceSSECustomerAlgorithm :: Lens' CopyObject (Maybe Text)-coCopySourceSSECustomerAlgorithm =-    lens _coCopySourceSSECustomerAlgorithm-        (\s a -> s { _coCopySourceSSECustomerAlgorithm = a })+-- | Specifies the customer-provided encryption key for Amazon S3 to use in+-- encrypting data. This value is used to store the object and then it is+-- discarded; Amazon does not store the encryption key. The key must be+-- appropriate for use with the algorithm specified in the+-- x-amz-server-side​-encryption​-customer-algorithm header.+coSSECustomerKey :: Lens' CopyObject (Maybe Text)+coSSECustomerKey = lens _coSSECustomerKey (\ s a -> s{_coSSECustomerKey = a}) . mapping _Sensitive; --- | Specifies the customer-provided encryption key for Amazon S3 to use to--- decrypt the source object. The encryption key provided in this header must be--- one that was used when the source object was created.-coCopySourceSSECustomerKey :: Lens' CopyObject (Maybe Text)-coCopySourceSSECustomerKey =-    lens _coCopySourceSSECustomerKey-        (\s a -> s { _coCopySourceSSECustomerKey = a })-            . mapping _Sensitive+-- | Undocumented member.+coRequestPayer :: Lens' CopyObject (Maybe RequestPayer)+coRequestPayer = lens _coRequestPayer (\ s a -> s{_coRequestPayer = a}); --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC 1321.--- Amazon S3 uses this header for a message integrity check to ensure the--- encryption key was transmitted without error.-coCopySourceSSECustomerKeyMD5 :: Lens' CopyObject (Maybe Text)-coCopySourceSSECustomerKeyMD5 =-    lens _coCopySourceSSECustomerKeyMD5-        (\s a -> s { _coCopySourceSSECustomerKeyMD5 = a })+-- | Allows grantee to write the ACL for the applicable object.+coGrantWriteACP :: Lens' CopyObject (Maybe Text)+coGrantWriteACP = lens _coGrantWriteACP (\ s a -> s{_coGrantWriteACP = a}); --- | The date and time at which the object is no longer cacheable.-coExpires :: Lens' CopyObject (Maybe UTCTime)-coExpires = lens _coExpires (\s a -> s { _coExpires = a }) . mapping _Time+-- | If the bucket is configured as a website, redirects requests for this+-- object to another object in the same bucket or to an external URL.+-- Amazon S3 stores the value of this header in the object metadata.+coWebsiteRedirectLocation :: Lens' CopyObject (Maybe Text)+coWebsiteRedirectLocation = lens _coWebsiteRedirectLocation (\ s a -> s{_coWebsiteRedirectLocation = a}); --- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the object.-coGrantFullControl :: Lens' CopyObject (Maybe Text)-coGrantFullControl =-    lens _coGrantFullControl (\s a -> s { _coGrantFullControl = a })+-- | Copies the object if its entity tag (ETag) matches the specified tag.+coCopySourceIfMatch :: Lens' CopyObject (Maybe Text)+coCopySourceIfMatch = lens _coCopySourceIfMatch (\ s a -> s{_coCopySourceIfMatch = a});  -- | Allows grantee to read the object data and its metadata. coGrantRead :: Lens' CopyObject (Maybe Text)-coGrantRead = lens _coGrantRead (\s a -> s { _coGrantRead = a })+coGrantRead = lens _coGrantRead (\ s a -> s{_coGrantRead = a}); --- | Allows grantee to read the object ACL.-coGrantReadACP :: Lens' CopyObject (Maybe Text)-coGrantReadACP = lens _coGrantReadACP (\s a -> s { _coGrantReadACP = a })+-- | The type of storage to use for the object. Defaults to \'STANDARD\'.+coStorageClass :: Lens' CopyObject (Maybe StorageClass)+coStorageClass = lens _coStorageClass (\ s a -> s{_coStorageClass = a}); --- | Allows grantee to write the ACL for the applicable object.-coGrantWriteACP :: Lens' CopyObject (Maybe Text)-coGrantWriteACP = lens _coGrantWriteACP (\s a -> s { _coGrantWriteACP = a })+-- | 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.+coContentEncoding :: Lens' CopyObject (Maybe Text)+coContentEncoding = lens _coContentEncoding (\ s a -> s{_coContentEncoding = a}); -coKey :: Lens' CopyObject Text-coKey = lens _coKey (\s a -> s { _coKey = a })+-- | Specifies the AWS KMS key ID to use for object encryption. All GET and+-- PUT requests for an object protected by AWS KMS will fail if not made+-- via SSL or using SigV4. Documentation on configuring any of the+-- officially supported AWS SDKs and CLI can be found at+-- http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/UsingAWSSDK.html#specify-signature-version+coSSEKMSKeyId :: Lens' CopyObject (Maybe Text)+coSSEKMSKeyId = lens _coSSEKMSKeyId (\ s a -> s{_coSSEKMSKeyId = a}) . mapping _Sensitive; +-- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the+-- object.+coGrantFullControl :: Lens' CopyObject (Maybe Text)+coGrantFullControl = lens _coGrantFullControl (\ s a -> s{_coGrantFullControl = a});++-- | Specifies the 128-bit MD5 digest of the encryption key according to RFC+-- 1321. Amazon S3 uses this header for a message integrity check to ensure+-- the encryption key was transmitted without error.+coSSECustomerKeyMD5 :: Lens' CopyObject (Maybe Text)+coSSECustomerKeyMD5 = lens _coSSECustomerKeyMD5 (\ s a -> s{_coSSECustomerKeyMD5 = a});+ -- | A map of metadata to store with the object in S3.-coMetadata :: Lens' CopyObject (HashMap (CI Text) Text)-coMetadata = lens _coMetadata (\s a -> s { _coMetadata = a }) . _Map+coMetadata :: Lens' CopyObject (HashMap Text Text)+coMetadata = lens _coMetadata (\ s a -> s{_coMetadata = a}) . _Map; --- | Specifies whether the metadata is copied from the source object or replaced--- with metadata provided in the request.-coMetadataDirective :: Lens' CopyObject (Maybe MetadataDirective)-coMetadataDirective =-    lens _coMetadataDirective (\s a -> s { _coMetadataDirective = a })+-- | Specifies caching behavior along the request\/reply chain.+coCacheControl :: Lens' CopyObject (Maybe Text)+coCacheControl = lens _coCacheControl (\ s a -> s{_coCacheControl = a}); -coRequestPayer :: Lens' CopyObject (Maybe RequestPayer)-coRequestPayer = lens _coRequestPayer (\s a -> s { _coRequestPayer = a })+-- | The language the content is in.+coContentLanguage :: Lens' CopyObject (Maybe Text)+coContentLanguage = lens _coContentLanguage (\ s a -> s{_coContentLanguage = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,--- aws:kms).-coSSECustomerAlgorithm :: Lens' CopyObject (Maybe Text)-coSSECustomerAlgorithm =-    lens _coSSECustomerAlgorithm (\s a -> s { _coSSECustomerAlgorithm = a })+-- | The canned ACL to apply to the object.+coACL :: Lens' CopyObject (Maybe ObjectCannedACL)+coACL = lens _coACL (\ s a -> s{_coACL = a}); --- | Specifies the customer-provided encryption key for Amazon S3 to use in--- encrypting data. This value is used to store the object and then it is--- discarded; Amazon does not store the encryption key. The key must be--- appropriate for use with the algorithm specified in the--- x-amz-server-side​-encryption​-customer-algorithm header.-coSSECustomerKey :: Lens' CopyObject (Maybe Text)-coSSECustomerKey = lens _coSSECustomerKey (\s a -> s { _coSSECustomerKey = a }) . mapping _Sensitive+-- | Specifies the customer-provided encryption key for Amazon S3 to use to+-- decrypt the source object. The encryption key provided in this header+-- must be one that was used when the source object was created.+coCopySourceSSECustomerKey :: Lens' CopyObject (Maybe Text)+coCopySourceSSECustomerKey = lens _coCopySourceSSECustomerKey (\ s a -> s{_coCopySourceSSECustomerKey = a}) . mapping _Sensitive; --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC 1321.--- Amazon S3 uses this header for a message integrity check to ensure the--- encryption key was transmitted without error.-coSSECustomerKeyMD5 :: Lens' CopyObject (Maybe Text)-coSSECustomerKeyMD5 =-    lens _coSSECustomerKeyMD5 (\s a -> s { _coSSECustomerKeyMD5 = a })+-- | Specifies presentational information for the object.+coContentDisposition :: Lens' CopyObject (Maybe Text)+coContentDisposition = lens _coContentDisposition (\ s a -> s{_coContentDisposition = a}); --- | Specifies the AWS KMS key ID to use for object encryption. All GET and PUT--- requests for an object protected by AWS KMS will fail if not made via SSL or--- using SigV4. Documentation on configuring any of the officially supported AWS--- SDKs and CLI can be found at--- http://docs.aws.amazon.com/AmazonS3/latest/dev/UsingAWSSDK.html#specify-signature-version-coSSEKMSKeyId :: Lens' CopyObject (Maybe Text)-coSSEKMSKeyId = lens _coSSEKMSKeyId (\s a -> s { _coSSEKMSKeyId = a }) . mapping _Sensitive+-- | Specifies the algorithm to use when decrypting the source object (e.g.,+-- AES256).+coCopySourceSSECustomerAlgorithm :: Lens' CopyObject (Maybe Text)+coCopySourceSSECustomerAlgorithm = lens _coCopySourceSSECustomerAlgorithm (\ s a -> s{_coCopySourceSSECustomerAlgorithm = a});  -- | The Server-side encryption algorithm used when storing this object in S3 -- (e.g., AES256, aws:kms). coServerSideEncryption :: Lens' CopyObject (Maybe ServerSideEncryption)-coServerSideEncryption =-    lens _coServerSideEncryption (\s a -> s { _coServerSideEncryption = a })+coServerSideEncryption = lens _coServerSideEncryption (\ s a -> s{_coServerSideEncryption = a}); --- | The type of storage to use for the object. Defaults to 'STANDARD'.-coStorageClass :: Lens' CopyObject (Maybe StorageClass)-coStorageClass = lens _coStorageClass (\s a -> s { _coStorageClass = a })+-- | A standard MIME type describing the format of the object data.+coContentType :: Lens' CopyObject (Maybe Text)+coContentType = lens _coContentType (\ s a -> s{_coContentType = a}); --- | If the bucket is configured as a website, redirects requests for this object--- to another object in the same bucket or to an external URL. Amazon S3 stores--- the value of this header in the object metadata.-coWebsiteRedirectLocation :: Lens' CopyObject (Maybe Text)-coWebsiteRedirectLocation =-    lens _coWebsiteRedirectLocation-        (\s a -> s { _coWebsiteRedirectLocation = a })+-- | Undocumented member.+coBucket :: Lens' CopyObject BucketName+coBucket = lens _coBucket (\ s a -> s{_coBucket = a}); -data CopyObjectResponse = CopyObjectResponse-    { _corCopyObjectResult     :: Maybe CopyObjectResult-    , _corCopySourceVersionId  :: Maybe Text-    , _corExpiration           :: Maybe Text-    , _corRequestCharged       :: Maybe RequestCharged-    , _corSSECustomerAlgorithm :: Maybe Text-    , _corSSECustomerKeyMD5    :: Maybe Text-    , _corSSEKMSKeyId          :: Maybe (Sensitive Text)-    , _corServerSideEncryption :: Maybe ServerSideEncryption-    } deriving (Eq, Read, Show)+-- | The name of the source bucket and key name of the source object,+-- separated by a slash (\/). Must be URL-encoded.+coCopySource :: Lens' CopyObject Text+coCopySource = lens _coCopySource (\ s a -> s{_coCopySource = a}); --- | 'CopyObjectResponse' constructor.+-- | Undocumented member.+coKey :: Lens' CopyObject ObjectKey+coKey = lens _coKey (\ s a -> s{_coKey = a});++instance AWSRequest CopyObject where+        type Sv CopyObject = S3+        type Rs CopyObject = CopyObjectResponse+        request = put+        response+          = receiveXML+              (\ s h x ->+                 CopyObjectResponse' <$>+                   (h .#? "x-amz-request-charged") <*>+                     (h .#? "x-amz-expiration")+                     <*>+                     (h .#?+                        "x-amz-server-side-encryption-customer-algorithm")+                     <*> (h .#? "x-amz-copy-source-version-id")+                     <*>+                     (h .#? "x-amz-server-side-encryption-aws-kms-key-id")+                     <*>+                     (h .#?+                        "x-amz-server-side-encryption-customer-key-MD5")+                     <*> (h .#? "x-amz-server-side-encryption")+                     <*> (parseXML x)+                     <*> (pure (fromEnum s)))++instance ToHeaders CopyObject where+        toHeaders CopyObject'{..}+          = mconcat+              ["x-amz-copy-source-if-modified-since" =#+                 _coCopySourceIfModifiedSince,+               "x-amz-copy-source-if-unmodified-since" =#+                 _coCopySourceIfUnmodifiedSince,+               "x-amz-copy-source-server-side-encryption-customer-key-MD5"+                 =# _coCopySourceSSECustomerKeyMD5,+               "x-amz-metadata-directive" =# _coMetadataDirective,+               "Expires" =# _coExpires,+               "x-amz-server-side-encryption-customer-algorithm" =#+                 _coSSECustomerAlgorithm,+               "x-amz-copy-source-if-none-match" =#+                 _coCopySourceIfNoneMatch,+               "x-amz-grant-read-acp" =# _coGrantReadACP,+               "x-amz-server-side-encryption-customer-key" =#+                 _coSSECustomerKey,+               "x-amz-request-payer" =# _coRequestPayer,+               "x-amz-grant-write-acp" =# _coGrantWriteACP,+               "x-amz-website-redirect-location" =#+                 _coWebsiteRedirectLocation,+               "x-amz-copy-source-if-match" =# _coCopySourceIfMatch,+               "x-amz-grant-read" =# _coGrantRead,+               "x-amz-storage-class" =# _coStorageClass,+               "Content-Encoding" =# _coContentEncoding,+               "x-amz-server-side-encryption-aws-kms-key-id" =#+                 _coSSEKMSKeyId,+               "x-amz-grant-full-control" =# _coGrantFullControl,+               "x-amz-server-side-encryption-customer-key-MD5" =#+                 _coSSECustomerKeyMD5,+               "x-amz-meta-" =# _coMetadata,+               "Cache-Control" =# _coCacheControl,+               "Content-Language" =# _coContentLanguage,+               "x-amz-acl" =# _coACL,+               "x-amz-copy-source-server-side-encryption-customer-key"+                 =# _coCopySourceSSECustomerKey,+               "Content-Disposition" =# _coContentDisposition,+               "x-amz-copy-source-server-side-encryption-customer-algorithm"+                 =# _coCopySourceSSECustomerAlgorithm,+               "x-amz-server-side-encryption" =#+                 _coServerSideEncryption,+               "Content-Type" =# _coContentType,+               "x-amz-copy-source" =# _coCopySource]++instance ToPath CopyObject where+        toPath CopyObject'{..}+          = mconcat ["/", toBS _coBucket, "/", toBS _coKey]++instance ToQuery CopyObject where+        toQuery = const mempty++-- | /See:/ 'copyObjectResponse' smart constructor.+data CopyObjectResponse = CopyObjectResponse'+    { _corsRequestCharged       :: !(Maybe RequestCharged)+    , _corsExpiration           :: !(Maybe Text)+    , _corsSSECustomerAlgorithm :: !(Maybe Text)+    , _corsCopySourceVersionId  :: !(Maybe Text)+    , _corsSSEKMSKeyId          :: !(Maybe (Sensitive Text))+    , _corsSSECustomerKeyMD5    :: !(Maybe Text)+    , _corsServerSideEncryption :: !(Maybe ServerSideEncryption)+    , _corsCopyObjectResult     :: !(Maybe CopyObjectResult)+    , _corsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CopyObjectResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'corCopyObjectResult' @::@ 'Maybe' 'CopyObjectResult'+-- * 'corsRequestCharged' ----- * 'corCopySourceVersionId' @::@ 'Maybe' 'Text'+-- * 'corsExpiration' ----- * 'corExpiration' @::@ 'Maybe' 'Text'+-- * 'corsSSECustomerAlgorithm' ----- * 'corRequestCharged' @::@ 'Maybe' 'RequestCharged'+-- * 'corsCopySourceVersionId' ----- * 'corSSECustomerAlgorithm' @::@ 'Maybe' 'Text'+-- * 'corsSSEKMSKeyId' ----- * 'corSSECustomerKeyMD5' @::@ 'Maybe' 'Text'+-- * 'corsSSECustomerKeyMD5' ----- * 'corSSEKMSKeyId' @::@ 'Maybe' 'Text'+-- * 'corsServerSideEncryption' ----- * 'corServerSideEncryption' @::@ 'Maybe' 'ServerSideEncryption'+-- * 'corsCopyObjectResult' ---copyObjectResponse :: CopyObjectResponse-copyObjectResponse = CopyObjectResponse-    { _corCopyObjectResult     = Nothing-    , _corExpiration           = Nothing-    , _corCopySourceVersionId  = Nothing-    , _corServerSideEncryption = Nothing-    , _corSSECustomerAlgorithm = Nothing-    , _corSSECustomerKeyMD5    = Nothing-    , _corSSEKMSKeyId          = Nothing-    , _corRequestCharged       = Nothing+-- * 'corsStatus'+copyObjectResponse+    :: Int -- ^ 'corsStatus'+    -> CopyObjectResponse+copyObjectResponse pStatus_ =+    CopyObjectResponse'+    { _corsRequestCharged = Nothing+    , _corsExpiration = Nothing+    , _corsSSECustomerAlgorithm = Nothing+    , _corsCopySourceVersionId = Nothing+    , _corsSSEKMSKeyId = Nothing+    , _corsSSECustomerKeyMD5 = Nothing+    , _corsServerSideEncryption = Nothing+    , _corsCopyObjectResult = Nothing+    , _corsStatus = pStatus_     } -corCopyObjectResult :: Lens' CopyObjectResponse (Maybe CopyObjectResult)-corCopyObjectResult =-    lens _corCopyObjectResult (\s a -> s { _corCopyObjectResult = a })+-- | Undocumented member.+corsRequestCharged :: Lens' CopyObjectResponse (Maybe RequestCharged)+corsRequestCharged = lens _corsRequestCharged (\ s a -> s{_corsRequestCharged = a}); -corCopySourceVersionId :: Lens' CopyObjectResponse (Maybe Text)-corCopySourceVersionId =-    lens _corCopySourceVersionId (\s a -> s { _corCopySourceVersionId = a })+-- | If the object expiration is configured, the response includes this+-- header.+corsExpiration :: Lens' CopyObjectResponse (Maybe Text)+corsExpiration = lens _corsExpiration (\ s a -> s{_corsExpiration = a}); --- | If the object expiration is configured, the response includes this header.-corExpiration :: Lens' CopyObjectResponse (Maybe Text)-corExpiration = lens _corExpiration (\s a -> s { _corExpiration = a })+-- | If server-side encryption with a customer-provided encryption key was+-- requested, the response will include this header confirming the+-- encryption algorithm used.+corsSSECustomerAlgorithm :: Lens' CopyObjectResponse (Maybe Text)+corsSSECustomerAlgorithm = lens _corsSSECustomerAlgorithm (\ s a -> s{_corsSSECustomerAlgorithm = a}); -corRequestCharged :: Lens' CopyObjectResponse (Maybe RequestCharged)-corRequestCharged =-    lens _corRequestCharged (\s a -> s { _corRequestCharged = a })+-- | Undocumented member.+corsCopySourceVersionId :: Lens' CopyObjectResponse (Maybe Text)+corsCopySourceVersionId = lens _corsCopySourceVersionId (\ s a -> s{_corsCopySourceVersionId = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the encryption--- algorithm used.-corSSECustomerAlgorithm :: Lens' CopyObjectResponse (Maybe Text)-corSSECustomerAlgorithm =-    lens _corSSECustomerAlgorithm (\s a -> s { _corSSECustomerAlgorithm = a })+-- | If present, specifies the ID of the AWS Key Management Service (KMS)+-- master encryption key that was used for the object.+corsSSEKMSKeyId :: Lens' CopyObjectResponse (Maybe Text)+corsSSEKMSKeyId = lens _corsSSEKMSKeyId (\ s a -> s{_corsSSEKMSKeyId = a}) . mapping _Sensitive;  -- | If server-side encryption with a customer-provided encryption key was -- requested, the response will include this header to provide round trip -- message integrity verification of the customer-provided encryption key.-corSSECustomerKeyMD5 :: Lens' CopyObjectResponse (Maybe Text)-corSSECustomerKeyMD5 =-    lens _corSSECustomerKeyMD5 (\s a -> s { _corSSECustomerKeyMD5 = a })---- | If present, specifies the ID of the AWS Key Management Service (KMS) master--- encryption key that was used for the object.-corSSEKMSKeyId :: Lens' CopyObjectResponse (Maybe Text)-corSSEKMSKeyId = lens _corSSEKMSKeyId (\s a -> s { _corSSEKMSKeyId = a }) . mapping _Sensitive+corsSSECustomerKeyMD5 :: Lens' CopyObjectResponse (Maybe Text)+corsSSECustomerKeyMD5 = lens _corsSSECustomerKeyMD5 (\ s a -> s{_corsSSECustomerKeyMD5 = a});  -- | The Server-side encryption algorithm used when storing this object in S3 -- (e.g., AES256, aws:kms).-corServerSideEncryption :: Lens' CopyObjectResponse (Maybe ServerSideEncryption)-corServerSideEncryption =-    lens _corServerSideEncryption (\s a -> s { _corServerSideEncryption = a })--instance ToPath CopyObject where-    toPath CopyObject{..} = mconcat-        [ "/"-        , toText _coBucket-        , "/"-        , toText _coKey-        ]--instance ToQuery CopyObject where-    toQuery = const mempty--instance ToHeaders CopyObject where-    toHeaders CopyObject{..} = mconcat-        [ "x-amz-acl"                                                   =: _coACL-        , "Cache-Control"                                               =: _coCacheControl-        , "Content-Disposition"                                         =: _coContentDisposition-        , "Content-Encoding"                                            =: _coContentEncoding-        , "Content-Language"                                            =: _coContentLanguage-        , "Content-Type"                                                =: _coContentType-        , "x-amz-copy-source"                                           =: _coCopySource-        , "x-amz-copy-source-if-match"                                  =: _coCopySourceIfMatch-        , "x-amz-copy-source-if-modified-since"                         =: _coCopySourceIfModifiedSince-        , "x-amz-copy-source-if-none-match"                             =: _coCopySourceIfNoneMatch-        , "x-amz-copy-source-if-unmodified-since"                       =: _coCopySourceIfUnmodifiedSince-        , "Expires"                                                     =: _coExpires-        , "x-amz-grant-full-control"                                    =: _coGrantFullControl-        , "x-amz-grant-read"                                            =: _coGrantRead-        , "x-amz-grant-read-acp"                                        =: _coGrantReadACP-        , "x-amz-grant-write-acp"                                       =: _coGrantWriteACP-        , "x-amz-meta-"                                                 =: _coMetadata-        , "x-amz-metadata-directive"                                    =: _coMetadataDirective-        , "x-amz-server-side-encryption"                                =: _coServerSideEncryption-        , "x-amz-storage-class"                                         =: _coStorageClass-        , "x-amz-website-redirect-location"                             =: _coWebsiteRedirectLocation-        , "x-amz-server-side-encryption-customer-algorithm"             =: _coSSECustomerAlgorithm-        , "x-amz-server-side-encryption-customer-key"                   =: _coSSECustomerKey-        , "x-amz-server-side-encryption-customer-key-MD5"               =: _coSSECustomerKeyMD5-        , "x-amz-server-side-encryption-aws-kms-key-id"                 =: _coSSEKMSKeyId-        , "x-amz-copy-source-server-side-encryption-customer-algorithm" =: _coCopySourceSSECustomerAlgorithm-        , "x-amz-copy-source-server-side-encryption-customer-key"       =: _coCopySourceSSECustomerKey-        , "x-amz-copy-source-server-side-encryption-customer-key-MD5"   =: _coCopySourceSSECustomerKeyMD5-        , "x-amz-request-payer"                                         =: _coRequestPayer-        ]--instance ToXMLRoot CopyObject where-    toXMLRoot = const (namespaced ns "CopyObject" [])--instance ToXML CopyObject+corsServerSideEncryption :: Lens' CopyObjectResponse (Maybe ServerSideEncryption)+corsServerSideEncryption = lens _corsServerSideEncryption (\ s a -> s{_corsServerSideEncryption = a}); -instance AWSRequest CopyObject where-    type Sv CopyObject = S3-    type Rs CopyObject = CopyObjectResponse+-- | Undocumented member.+corsCopyObjectResult :: Lens' CopyObjectResponse (Maybe CopyObjectResult)+corsCopyObjectResult = lens _corsCopyObjectResult (\ s a -> s{_corsCopyObjectResult = a}); -    request  = put-    response = xmlHeaderResponse $ \h x -> CopyObjectResponse-        <$> x .@? "CopyObjectResult"-        <*> h ~:? "x-amz-copy-source-version-id"-        <*> h ~:? "x-amz-expiration"-        <*> h ~:? "x-amz-request-charged"-        <*> h ~:? "x-amz-server-side-encryption-customer-algorithm"-        <*> h ~:? "x-amz-server-side-encryption-customer-key-MD5"-        <*> h ~:? "x-amz-server-side-encryption-aws-kms-key-id"-        <*> h ~:? "x-amz-server-side-encryption"+-- | The response status code.+corsStatus :: Lens' CopyObjectResponse Int+corsStatus = lens _corsStatus (\ s a -> s{_corsStatus = a});

@@ -1,183 +1,195 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateBucket--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new bucket.+-- Creates a new bucket. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/CreateBucket.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/CreateBucket.html AWS API Reference> for CreateBucket. module Network.AWS.S3.CreateBucket     (-    -- * Request-      CreateBucket-    -- ** Request constructor-    , createBucket-    -- ** Request lenses-    , cbACL-    , cbBucket-    , cbCreateBucketConfiguration-    , cbGrantFullControl-    , cbGrantRead+    -- * Creating a Request+      createBucket+    , CreateBucket+    -- * Request Lenses     , cbGrantReadACP-    , cbGrantWrite     , cbGrantWriteACP+    , cbGrantRead+    , cbGrantFullControl+    , cbCreateBucketConfiguration+    , cbGrantWrite+    , cbACL+    , cbBucket -    -- * Response-    , CreateBucketResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createBucketResponse-    -- ** Response lenses-    , cbrLocation+    , CreateBucketResponse+    -- * Response Lenses+    , cbrsLocation+    , cbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -data CreateBucket = CreateBucket-    { _cbACL                       :: Maybe BucketCannedACL-    , _cbBucket                    :: Text-    , _cbCreateBucketConfiguration :: Maybe CreateBucketConfiguration-    , _cbGrantFullControl          :: Maybe Text-    , _cbGrantRead                 :: Maybe Text-    , _cbGrantReadACP              :: Maybe Text-    , _cbGrantWrite                :: Maybe Text-    , _cbGrantWriteACP             :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /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) --- | 'CreateBucket' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateBucket' with the minimum fields required to make a request. ----- * 'cbACL' @::@ 'Maybe' 'BucketCannedACL'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cbBucket' @::@ 'Text'+-- * 'cbGrantReadACP' ----- * 'cbCreateBucketConfiguration' @::@ 'Maybe' 'CreateBucketConfiguration'+-- * 'cbGrantWriteACP' ----- * 'cbGrantFullControl' @::@ 'Maybe' 'Text'+-- * 'cbGrantRead' ----- * 'cbGrantRead' @::@ 'Maybe' 'Text'+-- * 'cbGrantFullControl' ----- * 'cbGrantReadACP' @::@ 'Maybe' 'Text'+-- * 'cbCreateBucketConfiguration' ----- * 'cbGrantWrite' @::@ 'Maybe' 'Text'+-- * 'cbGrantWrite' ----- * 'cbGrantWriteACP' @::@ 'Maybe' 'Text'+-- * 'cbACL' ---createBucket :: Text -- ^ 'cbBucket'-             -> CreateBucket-createBucket p1 = CreateBucket-    { _cbBucket                    = p1-    , _cbACL                       = Nothing+-- * 'cbBucket'+createBucket+    :: BucketName -- ^ 'cbBucket'+    -> CreateBucket+createBucket pBucket_ =+    CreateBucket'+    { _cbGrantReadACP = Nothing+    , _cbGrantWriteACP = Nothing+    , _cbGrantRead = Nothing+    , _cbGrantFullControl = Nothing     , _cbCreateBucketConfiguration = Nothing-    , _cbGrantFullControl          = Nothing-    , _cbGrantRead                 = Nothing-    , _cbGrantReadACP              = Nothing-    , _cbGrantWrite                = Nothing-    , _cbGrantWriteACP             = Nothing+    , _cbGrantWrite = Nothing+    , _cbACL = Nothing+    , _cbBucket = pBucket_     } --- | The canned ACL to apply to the bucket.-cbACL :: Lens' CreateBucket (Maybe BucketCannedACL)-cbACL = lens _cbACL (\s a -> s { _cbACL = a })--cbBucket :: Lens' CreateBucket Text-cbBucket = lens _cbBucket (\s a -> s { _cbBucket = a })--cbCreateBucketConfiguration :: Lens' CreateBucket (Maybe CreateBucketConfiguration)-cbCreateBucketConfiguration =-    lens _cbCreateBucketConfiguration-        (\s a -> s { _cbCreateBucketConfiguration = a })+-- | Allows grantee to read the bucket ACL.+cbGrantReadACP :: Lens' CreateBucket (Maybe Text)+cbGrantReadACP = lens _cbGrantReadACP (\ s a -> s{_cbGrantReadACP = a}); --- | Allows grantee the read, write, read ACP, and write ACP permissions on the--- bucket.-cbGrantFullControl :: Lens' CreateBucket (Maybe Text)-cbGrantFullControl =-    lens _cbGrantFullControl (\s a -> s { _cbGrantFullControl = a })+-- | Allows grantee to write the ACL for the applicable bucket.+cbGrantWriteACP :: Lens' CreateBucket (Maybe Text)+cbGrantWriteACP = lens _cbGrantWriteACP (\ s a -> s{_cbGrantWriteACP = a});  -- | Allows grantee to list the objects in the bucket. cbGrantRead :: Lens' CreateBucket (Maybe Text)-cbGrantRead = lens _cbGrantRead (\s a -> s { _cbGrantRead = a })+cbGrantRead = lens _cbGrantRead (\ s a -> s{_cbGrantRead = a}); --- | Allows grantee to read the bucket ACL.-cbGrantReadACP :: Lens' CreateBucket (Maybe Text)-cbGrantReadACP = lens _cbGrantReadACP (\s a -> s { _cbGrantReadACP = a })+-- | Allows grantee the read, write, read ACP, and write ACP permissions on+-- the bucket.+cbGrantFullControl :: Lens' CreateBucket (Maybe Text)+cbGrantFullControl = lens _cbGrantFullControl (\ s a -> s{_cbGrantFullControl = a}); --- | Allows grantee to create, overwrite, and delete any object in the bucket.+-- | Undocumented member.+cbCreateBucketConfiguration :: Lens' CreateBucket (Maybe CreateBucketConfiguration)+cbCreateBucketConfiguration = lens _cbCreateBucketConfiguration (\ s a -> s{_cbCreateBucketConfiguration = a});++-- | Allows grantee to create, overwrite, and delete any object in the+-- bucket. cbGrantWrite :: Lens' CreateBucket (Maybe Text)-cbGrantWrite = lens _cbGrantWrite (\s a -> s { _cbGrantWrite = a })+cbGrantWrite = lens _cbGrantWrite (\ s a -> s{_cbGrantWrite = a}); --- | Allows grantee to write the ACL for the applicable bucket.-cbGrantWriteACP :: Lens' CreateBucket (Maybe Text)-cbGrantWriteACP = lens _cbGrantWriteACP (\s a -> s { _cbGrantWriteACP = a })+-- | The canned ACL to apply to the bucket.+cbACL :: Lens' CreateBucket (Maybe BucketCannedACL)+cbACL = lens _cbACL (\ s a -> s{_cbACL = a}); -newtype CreateBucketResponse = CreateBucketResponse-    { _cbrLocation :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | Undocumented member.+cbBucket :: Lens' CreateBucket BucketName+cbBucket = lens _cbBucket (\ s a -> s{_cbBucket = a}); --- | 'CreateBucketResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cbrLocation' @::@ 'Maybe' 'Text'----createBucketResponse :: CreateBucketResponse-createBucketResponse = CreateBucketResponse-    { _cbrLocation = Nothing-    }+instance AWSRequest CreateBucket where+        type Sv CreateBucket = S3+        type Rs CreateBucket = CreateBucketResponse+        request = putXML+        response+          = receiveEmpty+              (\ s h x ->+                 CreateBucketResponse' <$>+                   (h .#? "Location") <*> (pure (fromEnum s))) -cbrLocation :: Lens' CreateBucketResponse (Maybe Text)-cbrLocation = lens _cbrLocation (\s a -> s { _cbrLocation = a })+instance ToElement CreateBucket where+        toElement+          = mkElement+              "{http://s3.amazonaws.com/doc/2006-03-01/}CreateBucketConfiguration"+              .+              _cbCreateBucketConfiguration +instance ToHeaders CreateBucket where+        toHeaders CreateBucket'{..}+          = mconcat+              ["x-amz-grant-read-acp" =# _cbGrantReadACP,+               "x-amz-grant-write-acp" =# _cbGrantWriteACP,+               "x-amz-grant-read" =# _cbGrantRead,+               "x-amz-grant-full-control" =# _cbGrantFullControl,+               "x-amz-grant-write" =# _cbGrantWrite,+               "x-amz-acl" =# _cbACL]+ instance ToPath CreateBucket where-    toPath CreateBucket{..} = mconcat-        [ "/"-        , toText _cbBucket-        ]+        toPath CreateBucket'{..}+          = mconcat ["/", toBS _cbBucket]  instance ToQuery CreateBucket where-    toQuery = const mempty--instance ToHeaders CreateBucket where-    toHeaders CreateBucket{..} = mconcat-        [ "x-amz-acl"                =: _cbACL-        , "x-amz-grant-full-control" =: _cbGrantFullControl-        , "x-amz-grant-read"         =: _cbGrantRead-        , "x-amz-grant-read-acp"     =: _cbGrantReadACP-        , "x-amz-grant-write"        =: _cbGrantWrite-        , "x-amz-grant-write-acp"    =: _cbGrantWriteACP-        ]+        toQuery = const mempty -instance ToXMLRoot CreateBucket where-    toXMLRoot = extractRoot ns . toXML . _cbCreateBucketConfiguration+-- | /See:/ 'createBucketResponse' smart constructor.+data CreateBucketResponse = CreateBucketResponse'+    { _cbrsLocation :: !(Maybe Text)+    , _cbrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToXML CreateBucket+-- | 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:+--+-- * 'cbrsLocation'+--+-- * 'cbrsStatus'+createBucketResponse+    :: Int -- ^ 'cbrsStatus'+    -> CreateBucketResponse+createBucketResponse pStatus_ =+    CreateBucketResponse'+    { _cbrsLocation = Nothing+    , _cbrsStatus = pStatus_+    } -instance AWSRequest CreateBucket where-    type Sv CreateBucket = S3-    type Rs CreateBucket = CreateBucketResponse+-- | Undocumented member.+cbrsLocation :: Lens' CreateBucketResponse (Maybe Text)+cbrsLocation = lens _cbrsLocation (\ s a -> s{_cbrsLocation = a}); -    request  = put-    response = headerResponse $ \h -> CreateBucketResponse-        <$> h ~:? "Location"+-- | The response status code.+cbrsStatus :: Lens' CreateBucketResponse Int+cbrsStatus = lens _cbrsStatus (\ s a -> s{_cbrsStatus = a});

@@ -1,436 +1,438 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateMultipartUpload--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Initiates a multipart upload and returns an upload ID.+-- Initiates a multipart upload and returns an upload ID. ----- Note: After you initiate multipart upload and upload one or more parts, you--- must either complete or abort multipart upload in order to stop getting--- charged for storage of the uploaded parts. Only after you either complete or--- abort multipart upload, Amazon S3 frees up the parts storage and stops--- charging you for the parts storage.+-- __Note:__ After you initiate multipart upload and upload one or more+-- parts, you must either complete or abort multipart upload in order to+-- stop getting charged for storage of the uploaded parts. Only after you+-- either complete or abort multipart upload, Amazon S3 frees up the parts+-- storage and stops charging you for the parts storage. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/CreateMultipartUpload.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/CreateMultipartUpload.html AWS API Reference> for CreateMultipartUpload. module Network.AWS.S3.CreateMultipartUpload     (-    -- * Request-      CreateMultipartUpload-    -- ** Request constructor-    , createMultipartUpload-    -- ** Request lenses-    , cmuACL-    , cmuBucket-    , cmuCacheControl-    , cmuContentDisposition-    , cmuContentEncoding-    , cmuContentLanguage-    , cmuContentType+    -- * Creating a Request+      createMultipartUpload+    , CreateMultipartUpload+    -- * Request Lenses     , cmuExpires-    , cmuGrantFullControl-    , cmuGrantRead-    , cmuGrantReadACP-    , cmuGrantWriteACP-    , cmuKey-    , cmuMetadata-    , cmuRequestPayer     , cmuSSECustomerAlgorithm+    , cmuGrantReadACP     , cmuSSECustomerKey-    , cmuSSECustomerKeyMD5+    , cmuRequestPayer+    , cmuGrantWriteACP+    , cmuWebsiteRedirectLocation+    , cmuGrantRead+    , cmuStorageClass+    , cmuContentEncoding     , cmuSSEKMSKeyId+    , cmuGrantFullControl+    , cmuSSECustomerKeyMD5+    , cmuMetadata+    , cmuCacheControl+    , cmuContentLanguage+    , cmuACL+    , cmuContentDisposition     , cmuServerSideEncryption-    , cmuStorageClass-    , cmuWebsiteRedirectLocation+    , cmuContentType+    , cmuBucket+    , cmuKey -    -- * Response-    , CreateMultipartUploadResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createMultipartUploadResponse-    -- ** Response lenses-    , cmurBucket-    , cmurKey-    , cmurRequestCharged-    , cmurSSECustomerAlgorithm-    , cmurSSECustomerKeyMD5-    , cmurSSEKMSKeyId-    , cmurServerSideEncryption-    , cmurUploadId+    , CreateMultipartUploadResponse+    -- * Response Lenses+    , cmursRequestCharged+    , cmursSSECustomerAlgorithm+    , cmursBucket+    , cmursKey+    , cmursSSEKMSKeyId+    , cmursSSECustomerKeyMD5+    , cmursUploadId+    , cmursServerSideEncryption+    , cmursStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -data CreateMultipartUpload = CreateMultipartUpload-    { _cmuACL                     :: Maybe ObjectCannedACL-    , _cmuBucket                  :: Text-    , _cmuCacheControl            :: Maybe Text-    , _cmuContentDisposition      :: Maybe Text-    , _cmuContentEncoding         :: Maybe Text-    , _cmuContentLanguage         :: Maybe Text-    , _cmuContentType             :: Maybe Text-    , _cmuExpires                 :: Maybe RFC822-    , _cmuGrantFullControl        :: Maybe Text-    , _cmuGrantRead               :: Maybe Text-    , _cmuGrantReadACP            :: Maybe Text-    , _cmuGrantWriteACP           :: Maybe Text-    , _cmuKey                     :: Text-    , _cmuMetadata                :: Map (CI Text) Text-    , _cmuRequestPayer            :: Maybe RequestPayer-    , _cmuSSECustomerAlgorithm    :: Maybe Text-    , _cmuSSECustomerKey          :: Maybe (Sensitive Text)-    , _cmuSSECustomerKeyMD5       :: Maybe Text-    , _cmuSSEKMSKeyId             :: Maybe (Sensitive Text)-    , _cmuServerSideEncryption    :: Maybe ServerSideEncryption-    , _cmuStorageClass            :: Maybe StorageClass-    , _cmuWebsiteRedirectLocation :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createMultipartUpload' smart constructor.+data CreateMultipartUpload = CreateMultipartUpload'+    { _cmuExpires                 :: !(Maybe RFC822)+    , _cmuSSECustomerAlgorithm    :: !(Maybe Text)+    , _cmuGrantReadACP            :: !(Maybe Text)+    , _cmuSSECustomerKey          :: !(Maybe (Sensitive Text))+    , _cmuRequestPayer            :: !(Maybe RequestPayer)+    , _cmuGrantWriteACP           :: !(Maybe Text)+    , _cmuWebsiteRedirectLocation :: !(Maybe Text)+    , _cmuGrantRead               :: !(Maybe Text)+    , _cmuStorageClass            :: !(Maybe StorageClass)+    , _cmuContentEncoding         :: !(Maybe Text)+    , _cmuSSEKMSKeyId             :: !(Maybe (Sensitive Text))+    , _cmuGrantFullControl        :: !(Maybe Text)+    , _cmuSSECustomerKeyMD5       :: !(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) --- | 'CreateMultipartUpload' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateMultipartUpload' with the minimum fields required to make a request. ----- * 'cmuACL' @::@ 'Maybe' 'ObjectCannedACL'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cmuBucket' @::@ 'Text'+-- * 'cmuExpires' ----- * 'cmuCacheControl' @::@ 'Maybe' 'Text'+-- * 'cmuSSECustomerAlgorithm' ----- * 'cmuContentDisposition' @::@ 'Maybe' 'Text'+-- * 'cmuGrantReadACP' ----- * 'cmuContentEncoding' @::@ 'Maybe' 'Text'+-- * 'cmuSSECustomerKey' ----- * 'cmuContentLanguage' @::@ 'Maybe' 'Text'+-- * 'cmuRequestPayer' ----- * 'cmuContentType' @::@ 'Maybe' 'Text'+-- * 'cmuGrantWriteACP' ----- * 'cmuExpires' @::@ 'Maybe' 'UTCTime'+-- * 'cmuWebsiteRedirectLocation' ----- * 'cmuGrantFullControl' @::@ 'Maybe' 'Text'+-- * 'cmuGrantRead' ----- * 'cmuGrantRead' @::@ 'Maybe' 'Text'+-- * 'cmuStorageClass' ----- * 'cmuGrantReadACP' @::@ 'Maybe' 'Text'+-- * 'cmuContentEncoding' ----- * 'cmuGrantWriteACP' @::@ 'Maybe' 'Text'+-- * 'cmuSSEKMSKeyId' ----- * 'cmuKey' @::@ 'Text'+-- * 'cmuGrantFullControl' ----- * 'cmuMetadata' @::@ 'HashMap' ('CI' 'Text') 'Text'+-- * 'cmuSSECustomerKeyMD5' ----- * 'cmuRequestPayer' @::@ 'Maybe' 'RequestPayer'+-- * 'cmuMetadata' ----- * 'cmuSSECustomerAlgorithm' @::@ 'Maybe' 'Text'+-- * 'cmuCacheControl' ----- * 'cmuSSECustomerKey' @::@ 'Maybe' 'Text'+-- * 'cmuContentLanguage' ----- * 'cmuSSECustomerKeyMD5' @::@ 'Maybe' 'Text'+-- * 'cmuACL' ----- * 'cmuSSEKMSKeyId' @::@ 'Maybe' 'Text'+-- * 'cmuContentDisposition' ----- * 'cmuServerSideEncryption' @::@ 'Maybe' 'ServerSideEncryption'+-- * 'cmuServerSideEncryption' ----- * 'cmuStorageClass' @::@ 'Maybe' 'StorageClass'+-- * 'cmuContentType' ----- * 'cmuWebsiteRedirectLocation' @::@ 'Maybe' 'Text'+-- * 'cmuBucket' ---createMultipartUpload :: Text -- ^ 'cmuBucket'-                      -> Text -- ^ 'cmuKey'-                      -> CreateMultipartUpload-createMultipartUpload p1 p2 = CreateMultipartUpload-    { _cmuBucket                  = p1-    , _cmuKey                     = p2-    , _cmuACL                     = Nothing-    , _cmuCacheControl            = Nothing-    , _cmuContentDisposition      = Nothing-    , _cmuContentEncoding         = Nothing-    , _cmuContentLanguage         = Nothing-    , _cmuContentType             = Nothing-    , _cmuExpires                 = Nothing-    , _cmuGrantFullControl        = Nothing-    , _cmuGrantRead               = Nothing-    , _cmuGrantReadACP            = Nothing-    , _cmuGrantWriteACP           = Nothing-    , _cmuMetadata                = mempty-    , _cmuServerSideEncryption    = Nothing-    , _cmuStorageClass            = Nothing+-- * 'cmuKey'+createMultipartUpload+    :: BucketName -- ^ 'cmuBucket'+    -> ObjectKey -- ^ 'cmuKey'+    -> CreateMultipartUpload+createMultipartUpload pBucket_ pKey_ =+    CreateMultipartUpload'+    { _cmuExpires = Nothing+    , _cmuSSECustomerAlgorithm = Nothing+    , _cmuGrantReadACP = Nothing+    , _cmuSSECustomerKey = Nothing+    , _cmuRequestPayer = Nothing+    , _cmuGrantWriteACP = Nothing     , _cmuWebsiteRedirectLocation = Nothing-    , _cmuSSECustomerAlgorithm    = Nothing-    , _cmuSSECustomerKey          = Nothing-    , _cmuSSECustomerKeyMD5       = Nothing-    , _cmuSSEKMSKeyId             = Nothing-    , _cmuRequestPayer            = Nothing+    , _cmuGrantRead = Nothing+    , _cmuStorageClass = Nothing+    , _cmuContentEncoding = Nothing+    , _cmuSSEKMSKeyId = Nothing+    , _cmuGrantFullControl = Nothing+    , _cmuSSECustomerKeyMD5 = Nothing+    , _cmuMetadata = mempty+    , _cmuCacheControl = Nothing+    , _cmuContentLanguage = Nothing+    , _cmuACL = Nothing+    , _cmuContentDisposition = Nothing+    , _cmuServerSideEncryption = Nothing+    , _cmuContentType = Nothing+    , _cmuBucket = pBucket_+    , _cmuKey = pKey_     } --- | The canned ACL to apply to the object.-cmuACL :: Lens' CreateMultipartUpload (Maybe ObjectCannedACL)-cmuACL = lens _cmuACL (\s a -> s { _cmuACL = a })--cmuBucket :: Lens' CreateMultipartUpload Text-cmuBucket = lens _cmuBucket (\s a -> s { _cmuBucket = a })---- | Specifies caching behavior along the request/reply chain.-cmuCacheControl :: Lens' CreateMultipartUpload (Maybe Text)-cmuCacheControl = lens _cmuCacheControl (\s a -> s { _cmuCacheControl = a })+-- | 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; --- | Specifies presentational information for the object.-cmuContentDisposition :: Lens' CreateMultipartUpload (Maybe Text)-cmuContentDisposition =-    lens _cmuContentDisposition (\s a -> s { _cmuContentDisposition = a })+-- | Specifies the algorithm to use to when encrypting the object (e.g.,+-- AES256).+cmuSSECustomerAlgorithm :: Lens' CreateMultipartUpload (Maybe Text)+cmuSSECustomerAlgorithm = lens _cmuSSECustomerAlgorithm (\ s a -> s{_cmuSSECustomerAlgorithm = a}); --- | 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.-cmuContentEncoding :: Lens' CreateMultipartUpload (Maybe Text)-cmuContentEncoding =-    lens _cmuContentEncoding (\s a -> s { _cmuContentEncoding = a })+-- | Allows grantee to read the object ACL.+cmuGrantReadACP :: Lens' CreateMultipartUpload (Maybe Text)+cmuGrantReadACP = lens _cmuGrantReadACP (\ s a -> s{_cmuGrantReadACP = a}); --- | The language the content is in.-cmuContentLanguage :: Lens' CreateMultipartUpload (Maybe Text)-cmuContentLanguage =-    lens _cmuContentLanguage (\s a -> s { _cmuContentLanguage = a })+-- | Specifies the customer-provided encryption key for Amazon S3 to use in+-- encrypting data. This value is used to store the object and then it is+-- discarded; Amazon does not store the encryption key. The key must be+-- appropriate for use with the algorithm specified in the+-- x-amz-server-side​-encryption​-customer-algorithm header.+cmuSSECustomerKey :: Lens' CreateMultipartUpload (Maybe Text)+cmuSSECustomerKey = lens _cmuSSECustomerKey (\ s a -> s{_cmuSSECustomerKey = a}) . mapping _Sensitive; --- | A standard MIME type describing the format of the object data.-cmuContentType :: Lens' CreateMultipartUpload (Maybe Text)-cmuContentType = lens _cmuContentType (\s a -> s { _cmuContentType = a })+-- | Undocumented member.+cmuRequestPayer :: Lens' CreateMultipartUpload (Maybe RequestPayer)+cmuRequestPayer = lens _cmuRequestPayer (\ s a -> s{_cmuRequestPayer = a}); --- | 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+-- | Allows grantee to write the ACL for the applicable object.+cmuGrantWriteACP :: Lens' CreateMultipartUpload (Maybe Text)+cmuGrantWriteACP = lens _cmuGrantWriteACP (\ s a -> s{_cmuGrantWriteACP = a}); --- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the object.-cmuGrantFullControl :: Lens' CreateMultipartUpload (Maybe Text)-cmuGrantFullControl =-    lens _cmuGrantFullControl (\s a -> s { _cmuGrantFullControl = a })+-- | If the bucket is configured as a website, redirects requests for this+-- object to another object in the same bucket or to an external URL.+-- Amazon S3 stores the value of this header in the object metadata.+cmuWebsiteRedirectLocation :: Lens' CreateMultipartUpload (Maybe Text)+cmuWebsiteRedirectLocation = lens _cmuWebsiteRedirectLocation (\ s a -> s{_cmuWebsiteRedirectLocation = a});  -- | Allows grantee to read the object data and its metadata. cmuGrantRead :: Lens' CreateMultipartUpload (Maybe Text)-cmuGrantRead = lens _cmuGrantRead (\s a -> s { _cmuGrantRead = a })+cmuGrantRead = lens _cmuGrantRead (\ s a -> s{_cmuGrantRead = a}); --- | Allows grantee to read the object ACL.-cmuGrantReadACP :: Lens' CreateMultipartUpload (Maybe Text)-cmuGrantReadACP = lens _cmuGrantReadACP (\s a -> s { _cmuGrantReadACP = a })+-- | The type of storage to use for the object. Defaults to \'STANDARD\'.+cmuStorageClass :: Lens' CreateMultipartUpload (Maybe StorageClass)+cmuStorageClass = lens _cmuStorageClass (\ s a -> s{_cmuStorageClass = a}); --- | Allows grantee to write the ACL for the applicable object.-cmuGrantWriteACP :: Lens' CreateMultipartUpload (Maybe Text)-cmuGrantWriteACP = lens _cmuGrantWriteACP (\s a -> s { _cmuGrantWriteACP = a })+-- | 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.+cmuContentEncoding :: Lens' CreateMultipartUpload (Maybe Text)+cmuContentEncoding = lens _cmuContentEncoding (\ s a -> s{_cmuContentEncoding = a}); -cmuKey :: Lens' CreateMultipartUpload Text-cmuKey = lens _cmuKey (\s a -> s { _cmuKey = a })+-- | Specifies the AWS KMS key ID to use for object encryption. All GET and+-- PUT requests for an object protected by AWS KMS will fail if not made+-- via SSL or using SigV4. Documentation on configuring any of the+-- officially supported AWS SDKs and CLI can be found at+-- http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/UsingAWSSDK.html#specify-signature-version+cmuSSEKMSKeyId :: Lens' CreateMultipartUpload (Maybe Text)+cmuSSEKMSKeyId = lens _cmuSSEKMSKeyId (\ s a -> s{_cmuSSEKMSKeyId = a}) . mapping _Sensitive; --- | A map of metadata to store with the object in S3.-cmuMetadata :: Lens' CreateMultipartUpload (HashMap (CI Text) Text)-cmuMetadata = lens _cmuMetadata (\s a -> s { _cmuMetadata = a }) . _Map+-- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the+-- object.+cmuGrantFullControl :: Lens' CreateMultipartUpload (Maybe Text)+cmuGrantFullControl = lens _cmuGrantFullControl (\ s a -> s{_cmuGrantFullControl = a}); -cmuRequestPayer :: Lens' CreateMultipartUpload (Maybe RequestPayer)-cmuRequestPayer = lens _cmuRequestPayer (\s a -> s { _cmuRequestPayer = a })+-- | Specifies the 128-bit MD5 digest of the encryption key according to RFC+-- 1321. Amazon S3 uses this header for a message integrity check to ensure+-- the encryption key was transmitted without error.+cmuSSECustomerKeyMD5 :: Lens' CreateMultipartUpload (Maybe Text)+cmuSSECustomerKeyMD5 = lens _cmuSSECustomerKeyMD5 (\ s a -> s{_cmuSSECustomerKeyMD5 = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,--- aws:kms).-cmuSSECustomerAlgorithm :: Lens' CreateMultipartUpload (Maybe Text)-cmuSSECustomerAlgorithm =-    lens _cmuSSECustomerAlgorithm (\s a -> s { _cmuSSECustomerAlgorithm = 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; --- | Specifies the customer-provided encryption key for Amazon S3 to use in--- encrypting data. This value is used to store the object and then it is--- discarded; Amazon does not store the encryption key. The key must be--- appropriate for use with the algorithm specified in the--- x-amz-server-side​-encryption​-customer-algorithm header.-cmuSSECustomerKey :: Lens' CreateMultipartUpload (Maybe Text)-cmuSSECustomerKey =-    lens _cmuSSECustomerKey (\s a -> s { _cmuSSECustomerKey = a })-        . mapping _Sensitive+-- | Specifies caching behavior along the request\/reply chain.+cmuCacheControl :: Lens' CreateMultipartUpload (Maybe Text)+cmuCacheControl = lens _cmuCacheControl (\ s a -> s{_cmuCacheControl = a}); --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC 1321.--- Amazon S3 uses this header for a message integrity check to ensure the--- encryption key was transmitted without error.-cmuSSECustomerKeyMD5 :: Lens' CreateMultipartUpload (Maybe Text)-cmuSSECustomerKeyMD5 =-    lens _cmuSSECustomerKeyMD5 (\s a -> s { _cmuSSECustomerKeyMD5 = a })+-- | The language the content is in.+cmuContentLanguage :: Lens' CreateMultipartUpload (Maybe Text)+cmuContentLanguage = lens _cmuContentLanguage (\ s a -> s{_cmuContentLanguage = a}); --- | Specifies the AWS KMS key ID to use for object encryption. All GET and PUT--- requests for an object protected by AWS KMS will fail if not made via SSL or--- using SigV4. Documentation on configuring any of the officially supported AWS--- SDKs and CLI can be found at--- http://docs.aws.amazon.com/AmazonS3/latest/dev/UsingAWSSDK.html#specify-signature-version-cmuSSEKMSKeyId :: Lens' CreateMultipartUpload (Maybe Text)-cmuSSEKMSKeyId = lens _cmuSSEKMSKeyId (\s a -> s { _cmuSSEKMSKeyId = a }) . mapping _Sensitive+-- | The canned ACL to apply to the object.+cmuACL :: Lens' CreateMultipartUpload (Maybe ObjectCannedACL)+cmuACL = lens _cmuACL (\ s a -> s{_cmuACL = a}); +-- | Specifies presentational information for the object.+cmuContentDisposition :: Lens' CreateMultipartUpload (Maybe Text)+cmuContentDisposition = lens _cmuContentDisposition (\ s a -> s{_cmuContentDisposition = a});+ -- | The Server-side encryption algorithm used when storing this object in S3 -- (e.g., AES256, aws:kms). cmuServerSideEncryption :: Lens' CreateMultipartUpload (Maybe ServerSideEncryption)-cmuServerSideEncryption =-    lens _cmuServerSideEncryption (\s a -> s { _cmuServerSideEncryption = a })+cmuServerSideEncryption = lens _cmuServerSideEncryption (\ s a -> s{_cmuServerSideEncryption = a}); --- | The type of storage to use for the object. Defaults to 'STANDARD'.-cmuStorageClass :: Lens' CreateMultipartUpload (Maybe StorageClass)-cmuStorageClass = lens _cmuStorageClass (\s a -> s { _cmuStorageClass = a })+-- | A standard MIME type describing the format of the object data.+cmuContentType :: Lens' CreateMultipartUpload (Maybe Text)+cmuContentType = lens _cmuContentType (\ s a -> s{_cmuContentType = a}); --- | If the bucket is configured as a website, redirects requests for this object--- to another object in the same bucket or to an external URL. Amazon S3 stores--- the value of this header in the object metadata.-cmuWebsiteRedirectLocation :: Lens' CreateMultipartUpload (Maybe Text)-cmuWebsiteRedirectLocation =-    lens _cmuWebsiteRedirectLocation-        (\s a -> s { _cmuWebsiteRedirectLocation = a })+-- | Undocumented member.+cmuBucket :: Lens' CreateMultipartUpload BucketName+cmuBucket = lens _cmuBucket (\ s a -> s{_cmuBucket = a}); -data CreateMultipartUploadResponse = CreateMultipartUploadResponse-    { _cmurBucket               :: Maybe Text-    , _cmurKey                  :: Maybe Text-    , _cmurRequestCharged       :: Maybe RequestCharged-    , _cmurSSECustomerAlgorithm :: Maybe Text-    , _cmurSSECustomerKeyMD5    :: Maybe Text-    , _cmurSSEKMSKeyId          :: Maybe (Sensitive Text)-    , _cmurServerSideEncryption :: Maybe ServerSideEncryption-    , _cmurUploadId             :: Maybe Text-    } deriving (Eq, Read, Show)+-- | Undocumented member.+cmuKey :: Lens' CreateMultipartUpload ObjectKey+cmuKey = lens _cmuKey (\ s a -> s{_cmuKey = a}); --- | 'CreateMultipartUploadResponse' constructor.+instance AWSRequest CreateMultipartUpload where+        type Sv CreateMultipartUpload = S3+        type Rs CreateMultipartUpload =+             CreateMultipartUploadResponse+        request = post+        response+          = receiveXML+              (\ s h x ->+                 CreateMultipartUploadResponse' <$>+                   (h .#? "x-amz-request-charged") <*>+                     (h .#?+                        "x-amz-server-side-encryption-customer-algorithm")+                     <*> (x .@? "Bucket")+                     <*> (x .@? "Key")+                     <*>+                     (h .#? "x-amz-server-side-encryption-aws-kms-key-id")+                     <*>+                     (h .#?+                        "x-amz-server-side-encryption-customer-key-MD5")+                     <*> (x .@? "UploadId")+                     <*> (h .#? "x-amz-server-side-encryption")+                     <*> (pure (fromEnum s)))++instance ToHeaders CreateMultipartUpload where+        toHeaders CreateMultipartUpload'{..}+          = mconcat+              ["Expires" =# _cmuExpires,+               "x-amz-server-side-encryption-customer-algorithm" =#+                 _cmuSSECustomerAlgorithm,+               "x-amz-grant-read-acp" =# _cmuGrantReadACP,+               "x-amz-server-side-encryption-customer-key" =#+                 _cmuSSECustomerKey,+               "x-amz-request-payer" =# _cmuRequestPayer,+               "x-amz-grant-write-acp" =# _cmuGrantWriteACP,+               "x-amz-website-redirect-location" =#+                 _cmuWebsiteRedirectLocation,+               "x-amz-grant-read" =# _cmuGrantRead,+               "x-amz-storage-class" =# _cmuStorageClass,+               "Content-Encoding" =# _cmuContentEncoding,+               "x-amz-server-side-encryption-aws-kms-key-id" =#+                 _cmuSSEKMSKeyId,+               "x-amz-grant-full-control" =# _cmuGrantFullControl,+               "x-amz-server-side-encryption-customer-key-MD5" =#+                 _cmuSSECustomerKeyMD5,+               "x-amz-meta-" =# _cmuMetadata,+               "Cache-Control" =# _cmuCacheControl,+               "Content-Language" =# _cmuContentLanguage,+               "x-amz-acl" =# _cmuACL,+               "Content-Disposition" =# _cmuContentDisposition,+               "x-amz-server-side-encryption" =#+                 _cmuServerSideEncryption,+               "Content-Type" =# _cmuContentType]++instance ToPath CreateMultipartUpload where+        toPath CreateMultipartUpload'{..}+          = mconcat ["/", toBS _cmuBucket, "/", toBS _cmuKey]++instance ToQuery CreateMultipartUpload where+        toQuery = const (mconcat ["uploads"])++-- | /See:/ 'createMultipartUploadResponse' smart constructor.+data CreateMultipartUploadResponse = CreateMultipartUploadResponse'+    { _cmursRequestCharged       :: !(Maybe RequestCharged)+    , _cmursSSECustomerAlgorithm :: !(Maybe Text)+    , _cmursBucket               :: !(Maybe BucketName)+    , _cmursKey                  :: !(Maybe ObjectKey)+    , _cmursSSEKMSKeyId          :: !(Maybe (Sensitive Text))+    , _cmursSSECustomerKeyMD5    :: !(Maybe Text)+    , _cmursUploadId             :: !(Maybe Text)+    , _cmursServerSideEncryption :: !(Maybe ServerSideEncryption)+    , _cmursStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateMultipartUploadResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'cmurBucket' @::@ 'Maybe' 'Text'+-- * 'cmursRequestCharged' ----- * 'cmurKey' @::@ 'Maybe' 'Text'+-- * 'cmursSSECustomerAlgorithm' ----- * 'cmurRequestCharged' @::@ 'Maybe' 'RequestCharged'+-- * 'cmursBucket' ----- * 'cmurSSECustomerAlgorithm' @::@ 'Maybe' 'Text'+-- * 'cmursKey' ----- * 'cmurSSECustomerKeyMD5' @::@ 'Maybe' 'Text'+-- * 'cmursSSEKMSKeyId' ----- * 'cmurSSEKMSKeyId' @::@ 'Maybe' 'Text'+-- * 'cmursSSECustomerKeyMD5' ----- * 'cmurServerSideEncryption' @::@ 'Maybe' 'ServerSideEncryption'+-- * 'cmursUploadId' ----- * 'cmurUploadId' @::@ 'Maybe' 'Text'+-- * 'cmursServerSideEncryption' ---createMultipartUploadResponse :: CreateMultipartUploadResponse-createMultipartUploadResponse = CreateMultipartUploadResponse-    { _cmurBucket               = Nothing-    , _cmurKey                  = Nothing-    , _cmurUploadId             = Nothing-    , _cmurServerSideEncryption = Nothing-    , _cmurSSECustomerAlgorithm = Nothing-    , _cmurSSECustomerKeyMD5    = Nothing-    , _cmurSSEKMSKeyId          = Nothing-    , _cmurRequestCharged       = Nothing+-- * 'cmursStatus'+createMultipartUploadResponse+    :: Int -- ^ 'cmursStatus'+    -> CreateMultipartUploadResponse+createMultipartUploadResponse pStatus_ =+    CreateMultipartUploadResponse'+    { _cmursRequestCharged = Nothing+    , _cmursSSECustomerAlgorithm = Nothing+    , _cmursBucket = Nothing+    , _cmursKey = Nothing+    , _cmursSSEKMSKeyId = Nothing+    , _cmursSSECustomerKeyMD5 = Nothing+    , _cmursUploadId = Nothing+    , _cmursServerSideEncryption = Nothing+    , _cmursStatus = pStatus_     } +-- | Undocumented member.+cmursRequestCharged :: Lens' CreateMultipartUploadResponse (Maybe RequestCharged)+cmursRequestCharged = lens _cmursRequestCharged (\ s a -> s{_cmursRequestCharged = a});++-- | If server-side encryption with a customer-provided encryption key was+-- requested, the response will include this header confirming the+-- encryption algorithm used.+cmursSSECustomerAlgorithm :: Lens' CreateMultipartUploadResponse (Maybe Text)+cmursSSECustomerAlgorithm = lens _cmursSSECustomerAlgorithm (\ s a -> s{_cmursSSECustomerAlgorithm = a});+ -- | Name of the bucket to which the multipart upload was initiated.-cmurBucket :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurBucket = lens _cmurBucket (\s a -> s { _cmurBucket = a })+cmursBucket :: Lens' CreateMultipartUploadResponse (Maybe BucketName)+cmursBucket = lens _cmursBucket (\ s a -> s{_cmursBucket = a});  -- | Object key for which the multipart upload was initiated.-cmurKey :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurKey = lens _cmurKey (\s a -> s { _cmurKey = a })--cmurRequestCharged :: Lens' CreateMultipartUploadResponse (Maybe RequestCharged)-cmurRequestCharged =-    lens _cmurRequestCharged (\s a -> s { _cmurRequestCharged = a })+cmursKey :: Lens' CreateMultipartUploadResponse (Maybe ObjectKey)+cmursKey = lens _cmursKey (\ s a -> s{_cmursKey = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the encryption--- algorithm used.-cmurSSECustomerAlgorithm :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurSSECustomerAlgorithm =-    lens _cmurSSECustomerAlgorithm-        (\s a -> s { _cmurSSECustomerAlgorithm = a })+-- | If present, specifies the ID of the AWS Key Management Service (KMS)+-- master encryption key that was used for the object.+cmursSSEKMSKeyId :: Lens' CreateMultipartUploadResponse (Maybe Text)+cmursSSEKMSKeyId = lens _cmursSSEKMSKeyId (\ s a -> s{_cmursSSEKMSKeyId = a}) . mapping _Sensitive;  -- | If server-side encryption with a customer-provided encryption key was -- requested, the response will include this header to provide round trip -- message integrity verification of the customer-provided encryption key.-cmurSSECustomerKeyMD5 :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurSSECustomerKeyMD5 =-    lens _cmurSSECustomerKeyMD5 (\s a -> s { _cmurSSECustomerKeyMD5 = a })+cmursSSECustomerKeyMD5 :: Lens' CreateMultipartUploadResponse (Maybe Text)+cmursSSECustomerKeyMD5 = lens _cmursSSECustomerKeyMD5 (\ s a -> s{_cmursSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS) master--- encryption key that was used for the object.-cmurSSEKMSKeyId :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurSSEKMSKeyId = lens _cmurSSEKMSKeyId (\s a -> s { _cmurSSEKMSKeyId = a }) . mapping _Sensitive+-- | ID for the initiated multipart upload.+cmursUploadId :: Lens' CreateMultipartUploadResponse (Maybe Text)+cmursUploadId = lens _cmursUploadId (\ s a -> s{_cmursUploadId = a});  -- | The Server-side encryption algorithm used when storing this object in S3 -- (e.g., AES256, aws:kms).-cmurServerSideEncryption :: Lens' CreateMultipartUploadResponse (Maybe ServerSideEncryption)-cmurServerSideEncryption =-    lens _cmurServerSideEncryption-        (\s a -> s { _cmurServerSideEncryption = a })---- | ID for the initiated multipart upload.-cmurUploadId :: Lens' CreateMultipartUploadResponse (Maybe Text)-cmurUploadId = lens _cmurUploadId (\s a -> s { _cmurUploadId = a })--instance ToPath CreateMultipartUpload where-    toPath CreateMultipartUpload{..} = mconcat-        [ "/"-        , toText _cmuBucket-        , "/"-        , toText _cmuKey-        ]--instance ToQuery CreateMultipartUpload where-    toQuery = const "uploads"--instance ToHeaders CreateMultipartUpload where-    toHeaders CreateMultipartUpload{..} = mconcat-        [ "x-amz-acl"                                       =: _cmuACL-        , "Cache-Control"                                   =: _cmuCacheControl-        , "Content-Disposition"                             =: _cmuContentDisposition-        , "Content-Encoding"                                =: _cmuContentEncoding-        , "Content-Language"                                =: _cmuContentLanguage-        , "Content-Type"                                    =: _cmuContentType-        , "Expires"                                         =: _cmuExpires-        , "x-amz-grant-full-control"                        =: _cmuGrantFullControl-        , "x-amz-grant-read"                                =: _cmuGrantRead-        , "x-amz-grant-read-acp"                            =: _cmuGrantReadACP-        , "x-amz-grant-write-acp"                           =: _cmuGrantWriteACP-        , "x-amz-meta-"                                     =: _cmuMetadata-        , "x-amz-server-side-encryption"                    =: _cmuServerSideEncryption-        , "x-amz-storage-class"                             =: _cmuStorageClass-        , "x-amz-website-redirect-location"                 =: _cmuWebsiteRedirectLocation-        , "x-amz-server-side-encryption-customer-algorithm" =: _cmuSSECustomerAlgorithm-        , "x-amz-server-side-encryption-customer-key"       =: _cmuSSECustomerKey-        , "x-amz-server-side-encryption-customer-key-MD5"   =: _cmuSSECustomerKeyMD5-        , "x-amz-server-side-encryption-aws-kms-key-id"     =: _cmuSSEKMSKeyId-        , "x-amz-request-payer"                             =: _cmuRequestPayer-        ]--instance ToXMLRoot CreateMultipartUpload where-    toXMLRoot = const (namespaced ns "CreateMultipartUpload" [])--instance ToXML CreateMultipartUpload--instance AWSRequest CreateMultipartUpload where-    type Sv CreateMultipartUpload = S3-    type Rs CreateMultipartUpload = CreateMultipartUploadResponse+cmursServerSideEncryption :: Lens' CreateMultipartUploadResponse (Maybe ServerSideEncryption)+cmursServerSideEncryption = lens _cmursServerSideEncryption (\ s a -> s{_cmursServerSideEncryption = a}); -    request  = post-    response = xmlHeaderResponse $ \h x -> CreateMultipartUploadResponse-        <$> x .@? "Bucket"-        <*> x .@? "Key"-        <*> h ~:? "x-amz-request-charged"-        <*> h ~:? "x-amz-server-side-encryption-customer-algorithm"-        <*> h ~:? "x-amz-server-side-encryption-customer-key-MD5"-        <*> h ~:? "x-amz-server-side-encryption-aws-kms-key-id"-        <*> h ~:? "x-amz-server-side-encryption"-        <*> x .@? "UploadId"+-- | The response status code.+cmursStatus :: Lens' CreateMultipartUploadResponse Int+cmursStatus = lens _cmursStatus (\ s a -> s{_cmursStatus = a});

@@ -1,97 +1,92 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteBucket--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the bucket. All objects (including all object versions and Delete--- Markers) in the bucket must be deleted before the bucket itself can be--- deleted.+-- Deletes the bucket. All objects (including all object versions and+-- Delete Markers) in the bucket must be deleted before the bucket itself+-- can be deleted. ----- <http://docs.aws.amazon.com/AmazonS3/latest/API/DeleteBucket.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/DeleteBucket.html AWS API Reference> for DeleteBucket. module Network.AWS.S3.DeleteBucket     (-    -- * Request-      DeleteBucket-    -- ** Request constructor-    , deleteBucket-    -- ** Request lenses+    -- * Creating a Request+      deleteBucket+    , DeleteBucket+    -- * Request Lenses     , dbBucket -    -- * Response-    , DeleteBucketResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteBucketResponse+    , DeleteBucketResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product -newtype DeleteBucket = DeleteBucket-    { _dbBucket :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+-- | /See:/ 'deleteBucket' smart constructor.+newtype DeleteBucket = DeleteBucket'+    { _dbBucket :: BucketName+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteBucket' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteBucket' with the minimum fields required to make a request. ----- * 'dbBucket' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteBucket :: Text -- ^ 'dbBucket'-             -> DeleteBucket-deleteBucket p1 = DeleteBucket-    { _dbBucket = p1+-- * 'dbBucket'+deleteBucket+    :: BucketName -- ^ 'dbBucket'+    -> DeleteBucket+deleteBucket pBucket_ =+    DeleteBucket'+    { _dbBucket = pBucket_     } -dbBucket :: Lens' DeleteBucket Text-dbBucket = lens _dbBucket (\s a -> s { _dbBucket = a })+-- | Undocumented member.+dbBucket :: Lens' DeleteBucket BucketName+dbBucket = lens _dbBucket (\ s a -> s{_dbBucket = a}); -data DeleteBucketResponse = DeleteBucketResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteBucket where+        type Sv DeleteBucket = S3+        type Rs DeleteBucket = DeleteBucketResponse+        request = delete+        response = receiveNull DeleteBucketResponse' --- | 'DeleteBucketResponse' constructor.-deleteBucketResponse :: DeleteBucketResponse-deleteBucketResponse = DeleteBucketResponse+instance ToHeaders DeleteBucket where+        toHeaders = const mempty  instance ToPath DeleteBucket where-    toPath DeleteBucket{..} = mconcat-        [ "/"-        , toText _dbBucket-        ]+        toPath DeleteBucket'{..}+          = mconcat ["/", toBS _dbBucket]  instance ToQuery DeleteBucket where-    toQuery = const mempty--instance ToHeaders DeleteBucket--instance ToXMLRoot DeleteBucket where-    toXMLRoot = const (namespaced ns "DeleteBucket" [])--instance ToXML DeleteBucket+        toQuery = const mempty -instance AWSRequest DeleteBucket where-    type Sv DeleteBucket = S3-    type Rs DeleteBucket = DeleteBucketResponse+-- | /See:/ 'deleteBucketResponse' smart constructor.+data DeleteBucketResponse =+    DeleteBucketResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = delete-    response = nullResponse DeleteBucketResponse+-- | Creates a value of 'DeleteBucketResponse' with the minimum fields required to make a request.+--+deleteBucketResponse+    :: DeleteBucketResponse+deleteBucketResponse = DeleteBucketResponse'

@@ -0,0 +1,90 @@+{-# 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.DeleteBucketCORS+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the cors configuration information set for the bucket.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/DeleteBucketCORS.html AWS API Reference> for DeleteBucketCORS.+module Network.AWS.S3.DeleteBucketCORS+    (+    -- * Creating a Request+      deleteBucketCORS+    , DeleteBucketCORS+    -- * Request Lenses+    , dbcBucket++    -- * Destructuring the Response+    , deleteBucketCORSResponse+    , DeleteBucketCORSResponse+    ) where++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)++-- | 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:+--+-- * 'dbcBucket'+deleteBucketCORS+    :: BucketName -- ^ 'dbcBucket'+    -> DeleteBucketCORS+deleteBucketCORS pBucket_ =+    DeleteBucketCORS'+    { _dbcBucket = pBucket_+    }++-- | Undocumented member.+dbcBucket :: Lens' DeleteBucketCORS BucketName+dbcBucket = lens _dbcBucket (\ s a -> s{_dbcBucket = a});++instance AWSRequest DeleteBucketCORS where+        type Sv DeleteBucketCORS = S3+        type Rs DeleteBucketCORS = DeleteBucketCORSResponse+        request = delete+        response = receiveNull DeleteBucketCORSResponse'++instance ToHeaders DeleteBucketCORS where+        toHeaders = const mempty++instance ToPath DeleteBucketCORS where+        toPath DeleteBucketCORS'{..}+          = mconcat ["/", toBS _dbcBucket]++instance ToQuery DeleteBucketCORS where+        toQuery = const (mconcat ["cors"])++-- | /See:/ 'deleteBucketCORSResponse' smart constructor.+data DeleteBucketCORSResponse =+    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'

@@ -1,95 +0,0 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.S3.DeleteBucketCors--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the cors configuration information set for the bucket.------ <http://docs.aws.amazon.com/AmazonS3/latest/API/DeleteBucketCors.html>-module Network.AWS.S3.DeleteBucketCors-    (-    -- * Request-      DeleteBucketCors-    -- ** Request constructor-    , deleteBucketCors-    -- ** Request lenses-    , dbcBucket--    -- * Response-    , DeleteBucketCorsResponse-    -- ** Response constructor-    , deleteBucketCorsResponse-    ) where--import Network.AWS.Prelude-import Network.AWS.Request.S3-import Network.AWS.S3.Types-import qualified GHC.Exts--newtype DeleteBucketCors = DeleteBucketCors-    { _dbcBucket :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)---- | 'DeleteBucketCors' constructor.------ The fields accessible through corresponding lenses are:------ * 'dbcBucket' @::@ 'Text'----deleteBucketCors :: Text -- ^ 'dbcBucket'-                 -> DeleteBucketCors-deleteBucketCors p1 = DeleteBucketCors-    { _dbcBucket = p1-    }--dbcBucket :: Lens' DeleteBucketCors Text-dbcBucket = lens _dbcBucket (\s a -> s { _dbcBucket = a })--data DeleteBucketCorsResponse = DeleteBucketCorsResponse-    deriving (Eq, Ord, Read, Show, Generic)---- | 'DeleteBucketCorsResponse' constructor.-deleteBucketCorsResponse :: DeleteBucketCorsResponse-deleteBucketCorsResponse = DeleteBucketCorsResponse--instance ToPath DeleteBucketCors where-    toPath DeleteBucketCors{..} = mconcat-        [ "/"-        , toText _dbcBucket-        ]--instance ToQuery DeleteBucketCors where-    toQuery = const "cors"--instance ToHeaders DeleteBucketCors--instance ToXMLRoot DeleteBucketCors where-    toXMLRoot = const (namespaced ns "DeleteBucketCors" [])--instance ToXML DeleteBucketCors--instance AWSRequest DeleteBucketCors where-    type Sv DeleteBucketCors = S3-    type Rs DeleteBucketCors = DeleteBucketCorsResponse--    request  = delete-    response = nullResponse DeleteBucketCorsResponse