packages feed

amazonka-s3 1.4.2 → 1.4.3

raw patch · 38 files changed

+556/−977 lines, 38 filesdep ~amazonka-coredep ~amazonka-s3dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

README.md view
@@ -8,18 +8,12 @@  ## Version -`1.4.2`+`1.4.3`   ## 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](https://aws.amazon.com/documentation/).
amazonka-s3.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-s3-version:               1.4.2+version:               1.4.3 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,13 +13,7 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto 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.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -110,7 +104,7 @@         , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 1.4.2.*+          amazonka-core == 1.4.3.*         , base          >= 4.7     && < 5         , lens >= 4.4         , text >= 1.1@@ -132,9 +126,9 @@         , Test.AWS.S3.Internal      build-depends:-          amazonka-core == 1.4.2.*-        , amazonka-test == 1.4.2.*-        , amazonka-s3 == 1.4.2.*+          amazonka-core == 1.4.3.*+        , amazonka-test == 1.4.3.*+        , amazonka-s3 == 1.4.3.*         , base         , bytestring         , tasty
gen/Network/AWS/S3.hs view
@@ -11,13 +11,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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. module Network.AWS.S3     (     -- * Service Configuration
gen/Network/AWS/S3/AbortMultipartUpload.hs view
@@ -20,9 +20,7 @@ -- -- 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. module Network.AWS.S3.AbortMultipartUpload     (     -- * Creating a Request
gen/Network/AWS/S3/CompleteMultipartUpload.hs view
@@ -222,9 +222,7 @@ crsLocation :: Lens' CompleteMultipartUploadResponse (Maybe Text) crsLocation = lens _crsLocation (\ s a -> s{_crsLocation = 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.+-- | 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}); @@ -236,13 +234,11 @@ 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.+-- | 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).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). crsServerSideEncryption :: Lens' CompleteMultipartUploadResponse (Maybe ServerSideEncryption) crsServerSideEncryption = lens _crsServerSideEncryption (\ s a -> s{_crsServerSideEncryption = a});
gen/Network/AWS/S3/CopyObject.hs view
@@ -228,14 +228,11 @@ coCopySourceIfUnmodifiedSince :: Lens' CopyObject (Maybe UTCTime) coCopySourceIfUnmodifiedSince = lens _coCopySourceIfUnmodifiedSince (\ s a -> s{_coCopySourceIfUnmodifiedSince = a}) . mapping _Time; --- | 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.+-- | 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}); --- | Specifies whether the metadata is copied from the source object or--- replaced with metadata provided in the request.+-- | 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}); @@ -247,21 +244,15 @@ coGrantReadACP :: Lens' CopyObject (Maybe Text) coGrantReadACP = lens _coGrantReadACP (\ s a -> s{_coGrantReadACP = 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}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | 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}); --- | 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.+-- | 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; @@ -277,9 +268,7 @@ coCopySourceIfMatch :: Lens' CopyObject (Maybe Text) coCopySourceIfMatch = lens _coCopySourceIfMatch (\ s a -> s{_coCopySourceIfMatch = 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.+-- | 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}); @@ -291,28 +280,19 @@ coStorageClass :: Lens' CopyObject (Maybe StorageClass) coStorageClass = lens _coStorageClass (\ s a -> s{_coStorageClass = 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.+-- | 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 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+-- | 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.+-- | 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 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.+-- | 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}); @@ -328,14 +308,11 @@ coContentLanguage :: Lens' CopyObject (Maybe Text) coContentLanguage = lens _coContentLanguage (\ s a -> s{_coContentLanguage = a}); --- | 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.+-- | 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 algorithm to use when decrypting the source object (e.g.,--- AES256).+-- | 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}); @@ -347,8 +324,7 @@ coContentDisposition :: Lens' CopyObject (Maybe Text) coContentDisposition = lens _coContentDisposition (\ s a -> s{_coContentDisposition = a}); --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | 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}); @@ -360,8 +336,7 @@ coBucket :: Lens' CopyObject BucketName coBucket = lens _coBucket (\ s a -> s{_coBucket = a}); --- | The name of the source bucket and key name of the source object,--- separated by a slash (\/). Must be URL-encoded.+-- | 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}); @@ -510,14 +485,11 @@ corsVersionId :: Lens' CopyObjectResponse (Maybe ObjectVersionId) corsVersionId = lens _corsVersionId (\ s a -> s{_corsVersionId = a}); --- | If the object expiration is configured, the response includes this--- header.+-- | 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 server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | 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}); @@ -525,19 +497,15 @@ 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 to provide round trip--- message integrity verification of the customer-provided encryption key.+-- | 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. corsSSECustomerKeyMD5 :: Lens' CopyObjectResponse (Maybe Text) corsSSECustomerKeyMD5 = lens _corsSSECustomerKeyMD5 (\ s a -> s{_corsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | 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; --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). corsServerSideEncryption :: Lens' CopyObjectResponse (Maybe ServerSideEncryption) corsServerSideEncryption = lens _corsServerSideEncryption (\ s a -> s{_corsServerSideEncryption = a});
gen/Network/AWS/S3/CreateBucket.hs view
@@ -107,8 +107,7 @@ cbGrantRead :: Lens' CreateBucket (Maybe Text) cbGrantRead = lens _cbGrantRead (\ s a -> s{_cbGrantRead = a}); --- | Allows grantee the read, write, read ACP, and write ACP permissions on--- the bucket.+-- | 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}); @@ -116,8 +115,7 @@ 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.+-- | 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});
gen/Network/AWS/S3/CreateMultipartUpload.hs view
@@ -20,11 +20,7 @@ -- -- 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. module Network.AWS.S3.CreateMultipartUpload     (     -- * Creating a Request@@ -189,16 +185,11 @@ cmuGrantReadACP :: Lens' CreateMultipartUpload (Maybe Text) cmuGrantReadACP = lens _cmuGrantReadACP (\ s a -> s{_cmuGrantReadACP = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | 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 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.+-- | 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; @@ -210,9 +201,7 @@ cmuGrantWriteACP :: Lens' CreateMultipartUpload (Maybe Text) cmuGrantWriteACP = lens _cmuGrantWriteACP (\ s a -> s{_cmuGrantWriteACP = 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.+-- | 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}); @@ -224,28 +213,19 @@ cmuStorageClass :: Lens' CreateMultipartUpload (Maybe StorageClass) cmuStorageClass = lens _cmuStorageClass (\ s a -> s{_cmuStorageClass = 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.+-- | 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 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+-- | 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; --- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the--- object.+-- | 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}); --- | 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.+-- | 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}); @@ -269,8 +249,7 @@ 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).+-- | 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}); @@ -417,19 +396,15 @@ cmursBucket :: Lens' CreateMultipartUploadResponse (Maybe BucketName) cmursBucket = lens _cmursBucket (\ s a -> s{_cmursBucket = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | 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}); --- | Date when multipart upload will become eligible for abort operation by--- lifecycle.+-- | Date when multipart upload will become eligible for abort operation by lifecycle. cmursAbortDate :: Lens' CreateMultipartUploadResponse (Maybe UTCTime) cmursAbortDate = lens _cmursAbortDate (\ s a -> s{_cmursAbortDate = a}) . mapping _Time; --- | Id of the lifecycle rule that makes a multipart upload eligible for--- abort operation.+-- | Id of the lifecycle rule that makes a multipart upload eligible for abort operation. cmursAbortRuleId :: Lens' CreateMultipartUploadResponse (Maybe Text) cmursAbortRuleId = lens _cmursAbortRuleId (\ s a -> s{_cmursAbortRuleId = a}); @@ -437,14 +412,11 @@ 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 to provide round trip--- message integrity verification of the customer-provided encryption key.+-- | 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. 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.+-- | 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; @@ -452,8 +424,7 @@ 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).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). cmursServerSideEncryption :: Lens' CreateMultipartUploadResponse (Maybe ServerSideEncryption) cmursServerSideEncryption = lens _cmursServerSideEncryption (\ s a -> s{_cmursServerSideEncryption = a});
gen/Network/AWS/S3/DeleteBucket.hs view
@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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. module Network.AWS.S3.DeleteBucket     (     -- * Creating a Request
gen/Network/AWS/S3/DeleteObject.hs view
@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes the null version (if there is one) of an object and inserts a--- delete marker, which becomes the latest version of the object. If there--- isn\'t a null version, Amazon S3 does not remove any objects.+-- Removes the null version (if there is one) of an object and inserts a delete marker, which becomes the latest version of the object. If there isn\'t a null version, Amazon S3 does not remove any objects. module Network.AWS.S3.DeleteObject     (     -- * Creating a Request@@ -89,8 +87,7 @@ doVersionId :: Lens' DeleteObject (Maybe ObjectVersionId) doVersionId = lens _doVersionId (\ s a -> s{_doVersionId = a}); --- | The concatenation of the authentication device\'s serial number, a--- space, and the value that is displayed on your authentication device.+-- | The concatenation of the authentication device\'s serial number, a space, and the value that is displayed on your authentication device. doMFA :: Lens' DeleteObject (Maybe Text) doMFA = lens _doMFA (\ s a -> s{_doMFA = a}); @@ -170,13 +167,11 @@ dorsRequestCharged :: Lens' DeleteObjectResponse (Maybe RequestCharged) dorsRequestCharged = lens _dorsRequestCharged (\ s a -> s{_dorsRequestCharged = a}); --- | Returns the version ID of the delete marker created as a result of the--- DELETE operation.+-- | Returns the version ID of the delete marker created as a result of the DELETE operation. dorsVersionId :: Lens' DeleteObjectResponse (Maybe ObjectVersionId) dorsVersionId = lens _dorsVersionId (\ s a -> s{_dorsVersionId = a}); --- | Specifies whether the versioned object that was permanently deleted was--- (true) or was not (false) a delete marker.+-- | Specifies whether the versioned object that was permanently deleted was (true) or was not (false) a delete marker. dorsDeleteMarker :: Lens' DeleteObjectResponse (Maybe Bool) dorsDeleteMarker = lens _dorsDeleteMarker (\ s a -> s{_dorsDeleteMarker = a});
gen/Network/AWS/S3/DeleteObjects.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- This operation enables you to delete multiple objects from a bucket--- using a single HTTP request. You may specify up to 1000 keys.+-- This operation enables you to delete multiple objects from a bucket using a single HTTP request. You may specify up to 1000 keys. module Network.AWS.S3.DeleteObjects     (     -- * Creating a Request@@ -79,8 +78,7 @@     , _dosDelete = pDelete_     } --- | The concatenation of the authentication device\'s serial number, a--- space, and the value that is displayed on your authentication device.+-- | The concatenation of the authentication device\'s serial number, a space, and the value that is displayed on your authentication device. dosMFA :: Lens' DeleteObjects (Maybe Text) dosMFA = lens _dosMFA (\ s a -> s{_dosMFA = a});
gen/Network/AWS/S3/GetBucketLogging.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the logging status of a bucket and the permissions users have to--- view and modify that status. To use GET, you must be the bucket owner.+-- Returns the logging status of a bucket and the permissions users have to view and modify that status. To use GET, you must be the bucket owner. module Network.AWS.S3.GetBucketLogging     (     -- * Creating a Request
gen/Network/AWS/S3/GetBucketVersioning.hs view
@@ -120,10 +120,7 @@ gbvrsStatus :: Lens' GetBucketVersioningResponse (Maybe BucketVersioningStatus) gbvrsStatus = lens _gbvrsStatus (\ s a -> s{_gbvrsStatus = a}); --- | Specifies whether MFA delete is enabled in the bucket versioning--- configuration. This element is only returned if the bucket has been--- configured with MFA delete. If the bucket has never been so configured,--- this element is not returned.+-- | Specifies whether MFA delete is enabled in the bucket versioning configuration. This element is only returned if the bucket has been configured with MFA delete. If the bucket has never been so configured, this element is not returned. gbvrsMFADelete :: Lens' GetBucketVersioningResponse (Maybe MFADeleteStatus) gbvrsMFADelete = lens _gbvrsMFADelete (\ s a -> s{_gbvrsMFADelete = a});
gen/Network/AWS/S3/GetObject.hs view
@@ -171,8 +171,7 @@     , _goKey = pKey_     } --- | Return the object only if its entity tag (ETag) is the same as the one--- specified, otherwise return a 412 (precondition failed).+-- | Return the object only if its entity tag (ETag) is the same as the one specified, otherwise return a 412 (precondition failed). goIfMatch :: Lens' GetObject (Maybe Text) goIfMatch = lens _goIfMatch (\ s a -> s{_goIfMatch = a}); @@ -192,16 +191,11 @@ goResponseContentLanguage :: Lens' GetObject (Maybe Text) goResponseContentLanguage = lens _goResponseContentLanguage (\ s a -> s{_goResponseContentLanguage = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256). goSSECustomerAlgorithm :: Lens' GetObject (Maybe Text) goSSECustomerAlgorithm = lens _goSSECustomerAlgorithm (\ s a -> s{_goSSECustomerAlgorithm = 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.+-- | 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. goSSECustomerKey :: Lens' GetObject (Maybe Text) goSSECustomerKey = lens _goSSECustomerKey (\ s a -> s{_goSSECustomerKey = a}) . mapping _Sensitive; @@ -213,25 +207,19 @@ goResponseContentEncoding :: Lens' GetObject (Maybe Text) goResponseContentEncoding = lens _goResponseContentEncoding (\ s a -> s{_goResponseContentEncoding = a}); --- | Return the object only if it has been modified since the specified time,--- otherwise return a 304 (not modified).+-- | Return the object only if it has been modified since the specified time, otherwise return a 304 (not modified). goIfModifiedSince :: Lens' GetObject (Maybe UTCTime) goIfModifiedSince = lens _goIfModifiedSince (\ s a -> s{_goIfModifiedSince = a}) . mapping _Time; --- | Downloads the specified range bytes of an object. For more information--- about the HTTP Range header, go to--- http:\/\/www.w3.org\/Protocols\/rfc2616\/rfc2616-sec14.html#sec14.35.+-- | Downloads the specified range bytes of an object. For more information about the HTTP Range header, go to http:\/\/www.w3.org\/Protocols\/rfc2616\/rfc2616-sec14.html#sec14.35. goRange :: Lens' GetObject (Maybe Text) goRange = lens _goRange (\ s a -> s{_goRange = a}); --- | Return the object only if it has not been modified since the specified--- time, otherwise return a 412 (precondition failed).+-- | Return the object only if it has not been modified since the specified time, otherwise return a 412 (precondition failed). goIfUnmodifiedSince :: Lens' GetObject (Maybe UTCTime) goIfUnmodifiedSince = lens _goIfUnmodifiedSince (\ s a -> s{_goIfUnmodifiedSince = a}) . mapping _Time; --- | 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.+-- | 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. goSSECustomerKeyMD5 :: Lens' GetObject (Maybe Text) goSSECustomerKeyMD5 = lens _goSSECustomerKeyMD5 (\ s a -> s{_goSSECustomerKeyMD5 = a}); @@ -243,8 +231,7 @@ goResponseExpires :: Lens' GetObject (Maybe UTCTime) goResponseExpires = lens _goResponseExpires (\ s a -> s{_goResponseExpires = a}) . mapping _Time; --- | Return the object only if its entity tag (ETag) is different from the--- one specified, otherwise return a 304 (not modified).+-- | Return the object only if its entity tag (ETag) is different from the one specified, otherwise return a 304 (not modified). goIfNoneMatch :: Lens' GetObject (Maybe Text) goIfNoneMatch = lens _goIfNoneMatch (\ s a -> s{_goIfNoneMatch = a}); @@ -460,8 +447,7 @@ gorsRequestCharged :: Lens' GetObjectResponse (Maybe RequestCharged) gorsRequestCharged = lens _gorsRequestCharged (\ s a -> s{_gorsRequestCharged = a}); --- | An ETag is an opaque identifier assigned by a web server to a specific--- version of a resource found at a URL+-- | An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL gorsETag :: Lens' GetObjectResponse (Maybe ETag) gorsETag = lens _gorsETag (\ s a -> s{_gorsETag = a}); @@ -477,41 +463,27 @@ gorsExpires :: Lens' GetObjectResponse (Maybe UTCTime) gorsExpires = lens _gorsExpires (\ s a -> s{_gorsExpires = a}) . mapping _Time; --- | Provides information about object restoration operation and expiration--- time of the restored object copy.+-- | Provides information about object restoration operation and expiration time of the restored object copy. gorsRestore :: Lens' GetObjectResponse (Maybe Text) gorsRestore = lens _gorsRestore (\ s a -> s{_gorsRestore = a}); --- | If the object expiration is configured (see PUT Bucket lifecycle), the--- response includes this header. It includes the expiry-date and rule-id--- key value pairs providing object expiration information. The value of--- the rule-id is URL encoded.+-- | If the object expiration is configured (see PUT Bucket lifecycle), the response includes this header. It includes the expiry-date and rule-id key value pairs providing object expiration information. The value of the rule-id is URL encoded. gorsExpiration :: Lens' GetObjectResponse (Maybe Text) gorsExpiration = lens _gorsExpiration (\ s a -> s{_gorsExpiration = a}); --- | Specifies whether the object retrieved was (true) or was not (false) a--- Delete Marker. If false, this response header does not appear in the--- response.+-- | Specifies whether the object retrieved was (true) or was not (false) a Delete Marker. If false, this response header does not appear in the response. gorsDeleteMarker :: Lens' GetObjectResponse (Maybe Bool) gorsDeleteMarker = lens _gorsDeleteMarker (\ s a -> s{_gorsDeleteMarker = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | If server-side encryption with a customer-provided encryption key was requested, the response will include this header confirming the encryption algorithm used. gorsSSECustomerAlgorithm :: Lens' GetObjectResponse (Maybe Text) gorsSSECustomerAlgorithm = lens _gorsSSECustomerAlgorithm (\ s a -> s{_gorsSSECustomerAlgorithm = a}); --- | This is set to the number of metadata entries not returned in x-amz-meta--- headers. This can happen if you create metadata using an API like SOAP--- that supports more flexible metadata than the REST API. For example,--- using SOAP, you can create metadata whose values are not legal HTTP--- headers.+-- | This is set to the number of metadata entries not returned in x-amz-meta headers. This can happen if you create metadata using an API like SOAP that supports more flexible metadata than the REST API. For example, using SOAP, you can create metadata whose values are not legal HTTP headers. gorsMissingMeta :: Lens' GetObjectResponse (Maybe Int) gorsMissingMeta = lens _gorsMissingMeta (\ s a -> s{_gorsMissingMeta = 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.+-- | 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. gorsWebsiteRedirectLocation :: Lens' GetObjectResponse (Maybe Text) gorsWebsiteRedirectLocation = lens _gorsWebsiteRedirectLocation (\ s a -> s{_gorsWebsiteRedirectLocation = a}); @@ -523,20 +495,15 @@ gorsStorageClass :: Lens' GetObjectResponse (Maybe StorageClass) gorsStorageClass = lens _gorsStorageClass (\ s a -> s{_gorsStorageClass = a}); --- | 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.+-- | 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. gorsSSECustomerKeyMD5 :: Lens' GetObjectResponse (Maybe Text) gorsSSECustomerKeyMD5 = lens _gorsSSECustomerKeyMD5 (\ s a -> s{_gorsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | If present, specifies the ID of the AWS Key Management Service (KMS) master encryption key that was used for the object. gorsSSEKMSKeyId :: Lens' GetObjectResponse (Maybe Text) gorsSSEKMSKeyId = lens _gorsSSEKMSKeyId (\ s a -> s{_gorsSSEKMSKeyId = a}) . mapping _Sensitive; --- | 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.+-- | 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. gorsContentEncoding :: Lens' GetObjectResponse (Maybe Text) gorsContentEncoding = lens _gorsContentEncoding (\ s a -> s{_gorsContentEncoding = a}); @@ -568,8 +535,7 @@ gorsContentRange :: Lens' GetObjectResponse (Maybe Text) gorsContentRange = lens _gorsContentRange (\ s a -> s{_gorsContentRange = a}); --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). gorsServerSideEncryption :: Lens' GetObjectResponse (Maybe ServerSideEncryption) gorsServerSideEncryption = lens _gorsServerSideEncryption (\ s a -> s{_gorsServerSideEncryption = a});
gen/Network/AWS/S3/HeadBucket.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- This operation is useful to determine if a bucket exists and you have--- permission to access it.+-- This operation is useful to determine if a bucket exists and you have permission to access it. module Network.AWS.S3.HeadBucket     (     -- * Creating a Request
gen/Network/AWS/S3/HeadObject.hs view
@@ -18,10 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- The HEAD operation retrieves metadata from an object without returning--- the object itself. This operation is useful if you\'re only interested--- in an object\'s metadata. To use HEAD, you must have READ access to the--- object.+-- The HEAD operation retrieves metadata from an object without returning the object itself. This operation is useful if you\'re only interested in an object\'s metadata. To use HEAD, you must have READ access to the object. module Network.AWS.S3.HeadObject     (     -- * Creating a Request@@ -142,8 +139,7 @@     , _hoKey = pKey_     } --- | Return the object only if its entity tag (ETag) is the same as the one--- specified, otherwise return a 412 (precondition failed).+-- | Return the object only if its entity tag (ETag) is the same as the one specified, otherwise return a 412 (precondition failed). hoIfMatch :: Lens' HeadObject (Maybe Text) hoIfMatch = lens _hoIfMatch (\ s a -> s{_hoIfMatch = a}); @@ -151,16 +147,11 @@ hoVersionId :: Lens' HeadObject (Maybe ObjectVersionId) hoVersionId = lens _hoVersionId (\ s a -> s{_hoVersionId = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256). hoSSECustomerAlgorithm :: Lens' HeadObject (Maybe Text) hoSSECustomerAlgorithm = lens _hoSSECustomerAlgorithm (\ s a -> s{_hoSSECustomerAlgorithm = 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.+-- | 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. hoSSECustomerKey :: Lens' HeadObject (Maybe Text) hoSSECustomerKey = lens _hoSSECustomerKey (\ s a -> s{_hoSSECustomerKey = a}) . mapping _Sensitive; @@ -168,30 +159,23 @@ hoRequestPayer :: Lens' HeadObject (Maybe RequestPayer) hoRequestPayer = lens _hoRequestPayer (\ s a -> s{_hoRequestPayer = a}); --- | Return the object only if it has been modified since the specified time,--- otherwise return a 304 (not modified).+-- | Return the object only if it has been modified since the specified time, otherwise return a 304 (not modified). hoIfModifiedSince :: Lens' HeadObject (Maybe UTCTime) hoIfModifiedSince = lens _hoIfModifiedSince (\ s a -> s{_hoIfModifiedSince = a}) . mapping _Time; --- | Downloads the specified range bytes of an object. For more information--- about the HTTP Range header, go to--- http:\/\/www.w3.org\/Protocols\/rfc2616\/rfc2616-sec14.html#sec14.35.+-- | Downloads the specified range bytes of an object. For more information about the HTTP Range header, go to http:\/\/www.w3.org\/Protocols\/rfc2616\/rfc2616-sec14.html#sec14.35. hoRange :: Lens' HeadObject (Maybe Text) hoRange = lens _hoRange (\ s a -> s{_hoRange = a}); --- | Return the object only if it has not been modified since the specified--- time, otherwise return a 412 (precondition failed).+-- | Return the object only if it has not been modified since the specified time, otherwise return a 412 (precondition failed). hoIfUnmodifiedSince :: Lens' HeadObject (Maybe UTCTime) hoIfUnmodifiedSince = lens _hoIfUnmodifiedSince (\ s a -> s{_hoIfUnmodifiedSince = a}) . mapping _Time; --- | 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.+-- | 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. hoSSECustomerKeyMD5 :: Lens' HeadObject (Maybe Text) hoSSECustomerKeyMD5 = lens _hoSSECustomerKeyMD5 (\ s a -> s{_hoSSECustomerKeyMD5 = a}); --- | Return the object only if its entity tag (ETag) is different from the--- one specified, otherwise return a 304 (not modified).+-- | Return the object only if its entity tag (ETag) is different from the one specified, otherwise return a 304 (not modified). hoIfNoneMatch :: Lens' HeadObject (Maybe Text) hoIfNoneMatch = lens _hoIfNoneMatch (\ s a -> s{_hoIfNoneMatch = a}); @@ -386,8 +370,7 @@ horsRequestCharged :: Lens' HeadObjectResponse (Maybe RequestCharged) horsRequestCharged = lens _horsRequestCharged (\ s a -> s{_horsRequestCharged = a}); --- | An ETag is an opaque identifier assigned by a web server to a specific--- version of a resource found at a URL+-- | An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL horsETag :: Lens' HeadObjectResponse (Maybe ETag) horsETag = lens _horsETag (\ s a -> s{_horsETag = a}); @@ -403,41 +386,27 @@ horsExpires :: Lens' HeadObjectResponse (Maybe UTCTime) horsExpires = lens _horsExpires (\ s a -> s{_horsExpires = a}) . mapping _Time; --- | Provides information about object restoration operation and expiration--- time of the restored object copy.+-- | Provides information about object restoration operation and expiration time of the restored object copy. horsRestore :: Lens' HeadObjectResponse (Maybe Text) horsRestore = lens _horsRestore (\ s a -> s{_horsRestore = a}); --- | If the object expiration is configured (see PUT Bucket lifecycle), the--- response includes this header. It includes the expiry-date and rule-id--- key value pairs providing object expiration information. The value of--- the rule-id is URL encoded.+-- | If the object expiration is configured (see PUT Bucket lifecycle), the response includes this header. It includes the expiry-date and rule-id key value pairs providing object expiration information. The value of the rule-id is URL encoded. horsExpiration :: Lens' HeadObjectResponse (Maybe Text) horsExpiration = lens _horsExpiration (\ s a -> s{_horsExpiration = a}); --- | Specifies whether the object retrieved was (true) or was not (false) a--- Delete Marker. If false, this response header does not appear in the--- response.+-- | Specifies whether the object retrieved was (true) or was not (false) a Delete Marker. If false, this response header does not appear in the response. horsDeleteMarker :: Lens' HeadObjectResponse (Maybe Bool) horsDeleteMarker = lens _horsDeleteMarker (\ s a -> s{_horsDeleteMarker = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | If server-side encryption with a customer-provided encryption key was requested, the response will include this header confirming the encryption algorithm used. horsSSECustomerAlgorithm :: Lens' HeadObjectResponse (Maybe Text) horsSSECustomerAlgorithm = lens _horsSSECustomerAlgorithm (\ s a -> s{_horsSSECustomerAlgorithm = a}); --- | This is set to the number of metadata entries not returned in x-amz-meta--- headers. This can happen if you create metadata using an API like SOAP--- that supports more flexible metadata than the REST API. For example,--- using SOAP, you can create metadata whose values are not legal HTTP--- headers.+-- | This is set to the number of metadata entries not returned in x-amz-meta headers. This can happen if you create metadata using an API like SOAP that supports more flexible metadata than the REST API. For example, using SOAP, you can create metadata whose values are not legal HTTP headers. horsMissingMeta :: Lens' HeadObjectResponse (Maybe Int) horsMissingMeta = lens _horsMissingMeta (\ s a -> s{_horsMissingMeta = 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.+-- | 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. horsWebsiteRedirectLocation :: Lens' HeadObjectResponse (Maybe Text) horsWebsiteRedirectLocation = lens _horsWebsiteRedirectLocation (\ s a -> s{_horsWebsiteRedirectLocation = a}); @@ -449,20 +418,15 @@ horsStorageClass :: Lens' HeadObjectResponse (Maybe StorageClass) horsStorageClass = lens _horsStorageClass (\ s a -> s{_horsStorageClass = a}); --- | 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.+-- | 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. horsSSECustomerKeyMD5 :: Lens' HeadObjectResponse (Maybe Text) horsSSECustomerKeyMD5 = lens _horsSSECustomerKeyMD5 (\ s a -> s{_horsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | If present, specifies the ID of the AWS Key Management Service (KMS) master encryption key that was used for the object. horsSSEKMSKeyId :: Lens' HeadObjectResponse (Maybe Text) horsSSEKMSKeyId = lens _horsSSEKMSKeyId (\ s a -> s{_horsSSEKMSKeyId = a}) . mapping _Sensitive; --- | 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.+-- | 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. horsContentEncoding :: Lens' HeadObjectResponse (Maybe Text) horsContentEncoding = lens _horsContentEncoding (\ s a -> s{_horsContentEncoding = a}); @@ -490,8 +454,7 @@ horsContentDisposition :: Lens' HeadObjectResponse (Maybe Text) horsContentDisposition = lens _horsContentDisposition (\ s a -> s{_horsContentDisposition = a}); --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). horsServerSideEncryption :: Lens' HeadObjectResponse (Maybe ServerSideEncryption) horsServerSideEncryption = lens _horsServerSideEncryption (\ s a -> s{_horsServerSideEncryption = a});
gen/Network/AWS/S3/ListBuckets.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of all buckets owned by the authenticated sender of the--- request.+-- Returns a list of all buckets owned by the authenticated sender of the request. module Network.AWS.S3.ListBuckets     (     -- * Creating a Request
gen/Network/AWS/S3/ListMultipartUploads.hs view
@@ -104,13 +104,11 @@     , _lmuBucket = pBucket_     } --- | Together with upload-id-marker, this parameter specifies the multipart--- upload after which listing should begin.+-- | Together with upload-id-marker, this parameter specifies the multipart upload after which listing should begin. lmuKeyMarker :: Lens' ListMultipartUploads (Maybe Text) lmuKeyMarker = lens _lmuKeyMarker (\ s a -> s{_lmuKeyMarker = a}); --- | Lists in-progress uploads only for those keys that begin with the--- specified prefix.+-- | Lists in-progress uploads only for those keys that begin with the specified prefix. lmuPrefix :: Lens' ListMultipartUploads (Maybe Text) lmuPrefix = lens _lmuPrefix (\ s a -> s{_lmuPrefix = a}); @@ -118,15 +116,11 @@ lmuEncodingType :: Lens' ListMultipartUploads (Maybe EncodingType) lmuEncodingType = lens _lmuEncodingType (\ s a -> s{_lmuEncodingType = a}); --- | Together with key-marker, specifies the multipart upload after which--- listing should begin. If key-marker is not specified, the--- upload-id-marker parameter is ignored.+-- | Together with key-marker, specifies the multipart upload after which listing should begin. If key-marker is not specified, the upload-id-marker parameter is ignored. lmuUploadIdMarker :: Lens' ListMultipartUploads (Maybe Text) lmuUploadIdMarker = lens _lmuUploadIdMarker (\ s a -> s{_lmuUploadIdMarker = a}); --- | Sets the maximum number of multipart uploads, from 1 to 1,000, to return--- in the response body. 1,000 is the maximum number of uploads that can be--- returned in a response.+-- | Sets the maximum number of multipart uploads, from 1 to 1,000, to return in the response body. 1,000 is the maximum number of uploads that can be returned in a response. lmuMaxUploads :: Lens' ListMultipartUploads (Maybe Int) lmuMaxUploads = lens _lmuMaxUploads (\ s a -> s{_lmuMaxUploads = a}); @@ -260,9 +254,7 @@ lmursKeyMarker :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursKeyMarker = lens _lmursKeyMarker (\ s a -> s{_lmursKeyMarker = a}); --- | When a prefix is provided in the request, this field contains the--- specified prefix. The result contains only keys starting with the--- specified prefix.+-- | When a prefix is provided in the request, this field contains the specified prefix. The result contains only keys starting with the specified prefix. lmursPrefix :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursPrefix = lens _lmursPrefix (\ s a -> s{_lmursPrefix = a}); @@ -282,13 +274,11 @@ lmursUploadIdMarker :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursUploadIdMarker = lens _lmursUploadIdMarker (\ s a -> s{_lmursUploadIdMarker = a}); --- | Maximum number of multipart uploads that could have been included in the--- response.+-- | Maximum number of multipart uploads that could have been included in the response. lmursMaxUploads :: Lens' ListMultipartUploadsResponse (Maybe Int) lmursMaxUploads = lens _lmursMaxUploads (\ s a -> s{_lmursMaxUploads = a}); --- | When a list is truncated, this element specifies the value that should--- be used for the key-marker request parameter in a subsequent request.+-- | When a list is truncated, this element specifies the value that should be used for the key-marker request parameter in a subsequent request. lmursNextKeyMarker :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursNextKeyMarker = lens _lmursNextKeyMarker (\ s a -> s{_lmursNextKeyMarker = a}); @@ -296,16 +286,11 @@ lmursUploads :: Lens' ListMultipartUploadsResponse [MultipartUpload] lmursUploads = lens _lmursUploads (\ s a -> s{_lmursUploads = a}) . _Default . _Coerce; --- | Indicates whether the returned list of multipart uploads is truncated. A--- value of true indicates that the list was truncated. The list can be--- truncated if the number of multipart uploads exceeds the limit allowed--- or specified by max uploads.+-- | Indicates whether the returned list of multipart uploads is truncated. A value of true indicates that the list was truncated. The list can be truncated if the number of multipart uploads exceeds the limit allowed or specified by max uploads. lmursIsTruncated :: Lens' ListMultipartUploadsResponse (Maybe Bool) lmursIsTruncated = lens _lmursIsTruncated (\ s a -> s{_lmursIsTruncated = a}); --- | When a list is truncated, this element specifies the value that should--- be used for the upload-id-marker request parameter in a subsequent--- request.+-- | When a list is truncated, this element specifies the value that should be used for the upload-id-marker request parameter in a subsequent request. lmursNextUploadIdMarker :: Lens' ListMultipartUploadsResponse (Maybe Text) lmursNextUploadIdMarker = lens _lmursNextUploadIdMarker (\ s a -> s{_lmursNextUploadIdMarker = a});
gen/Network/AWS/S3/ListObjectVersions.hs view
@@ -121,8 +121,7 @@ lovVersionIdMarker :: Lens' ListObjectVersions (Maybe Text) lovVersionIdMarker = lens _lovVersionIdMarker (\ s a -> s{_lovVersionIdMarker = a}); --- | Sets the maximum number of keys returned in the response. The response--- might contain fewer keys but will never contain more.+-- | Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more. lovMaxKeys :: Lens' ListObjectVersions (Maybe Int) lovMaxKeys = lens _lovMaxKeys (\ s a -> s{_lovMaxKeys = a}); @@ -258,8 +257,7 @@     , _lovrsResponseStatus = pResponseStatus_     } --- | Use this value for the next version id marker parameter in a subsequent--- request.+-- | Use this value for the next version id marker parameter in a subsequent request. lovrsNextVersionIdMarker :: Lens' ListObjectVersionsResponse (Maybe Text) lovrsNextVersionIdMarker = lens _lovrsNextVersionIdMarker (\ s a -> s{_lovrsNextVersionIdMarker = a}); @@ -291,8 +289,7 @@ lovrsName :: Lens' ListObjectVersionsResponse (Maybe BucketName) lovrsName = lens _lovrsName (\ s a -> s{_lovrsName = a}); --- | Use this value for the key marker request parameter in a subsequent--- request.+-- | Use this value for the key marker request parameter in a subsequent request. lovrsNextKeyMarker :: Lens' ListObjectVersionsResponse (Maybe Text) lovrsNextKeyMarker = lens _lovrsNextKeyMarker (\ s a -> s{_lovrsNextKeyMarker = a}); @@ -304,11 +301,7 @@ lovrsMaxKeys :: Lens' ListObjectVersionsResponse (Maybe Int) lovrsMaxKeys = lens _lovrsMaxKeys (\ s a -> s{_lovrsMaxKeys = a}); --- | A flag that indicates whether or not Amazon S3 returned all of the--- results that satisfied the search criteria. If your results were--- truncated, you can make a follow-up paginated request using the--- NextKeyMarker and NextVersionIdMarker response parameters as a starting--- place in another request to return the rest of the results.+-- | A flag that indicates whether or not Amazon S3 returned all of the results that satisfied the search criteria. If your results were truncated, you can make a follow-up paginated request using the NextKeyMarker and NextVersionIdMarker response parameters as a starting place in another request to return the rest of the results. lovrsIsTruncated :: Lens' ListObjectVersionsResponse (Maybe Bool) lovrsIsTruncated = lens _lovrsIsTruncated (\ s a -> s{_lovrsIsTruncated = a});
gen/Network/AWS/S3/ListObjects.hs view
@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns some or all (up to 1000) of the objects in a bucket. You can use--- the request parameters as selection criteria to return a subset of the--- objects in a bucket.+-- Returns some or all (up to 1000) of the objects in a bucket. You can use the request parameters as selection criteria to return a subset of the objects in a bucket. -- -- This operation returns paginated results. module Network.AWS.S3.ListObjects@@ -111,8 +109,7 @@ loMarker :: Lens' ListObjects (Maybe Text) loMarker = lens _loMarker (\ s a -> s{_loMarker = a}); --- | Sets the maximum number of keys returned in the response. The response--- might contain fewer keys but will never contain more.+-- | Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more. loMaxKeys :: Lens' ListObjects (Maybe Int) loMaxKeys = lens _loMaxKeys (\ s a -> s{_loMaxKeys = a}); @@ -259,14 +256,7 @@ lorsMarker :: Lens' ListObjectsResponse (Maybe Text) lorsMarker = lens _lorsMarker (\ s a -> s{_lorsMarker = a}); --- | When response is truncated (the IsTruncated element value in the--- response is true), you can use the key name in this field as marker in--- the subsequent request to get next set of objects. Amazon S3 lists--- objects in alphabetical order Note: This element is returned only if you--- have delimiter request parameter specified. If response does not include--- the NextMaker and it is truncated, you can use the value of the last Key--- in the response as the marker in the subsequent request to get the next--- set of object keys.+-- | When response is truncated (the IsTruncated element value in the response is true), you can use the key name in this field as marker in the subsequent request to get next set of objects. Amazon S3 lists objects in alphabetical order Note: This element is returned only if you have delimiter request parameter specified. If response does not include the NextMaker and it is truncated, you can use the value of the last Key in the response as the marker in the subsequent request to get the next set of object keys. lorsNextMarker :: Lens' ListObjectsResponse (Maybe Text) lorsNextMarker = lens _lorsNextMarker (\ s a -> s{_lorsNextMarker = a}); @@ -274,8 +264,7 @@ lorsMaxKeys :: Lens' ListObjectsResponse (Maybe Int) lorsMaxKeys = lens _lorsMaxKeys (\ s a -> s{_lorsMaxKeys = a}); --- | A flag that indicates whether or not Amazon S3 returned all of the--- results that satisfied the search criteria.+-- | A flag that indicates whether or not Amazon S3 returned all of the results that satisfied the search criteria. lorsIsTruncated :: Lens' ListObjectsResponse (Maybe Bool) lorsIsTruncated = lens _lorsIsTruncated (\ s a -> s{_lorsIsTruncated = a});
gen/Network/AWS/S3/ListParts.hs view
@@ -111,8 +111,7 @@ lpRequestPayer :: Lens' ListParts (Maybe RequestPayer) lpRequestPayer = lens _lpRequestPayer (\ s a -> s{_lpRequestPayer = a}); --- | Specifies the part after which listing should begin. Only parts with--- higher part numbers will be listed.+-- | Specifies the part after which listing should begin. Only parts with higher part numbers will be listed. lpPartNumberMarker :: Lens' ListParts (Maybe Int) lpPartNumberMarker = lens _lpPartNumberMarker (\ s a -> s{_lpPartNumberMarker = a}); @@ -273,19 +272,15 @@ lprsBucket :: Lens' ListPartsResponse (Maybe BucketName) lprsBucket = lens _lprsBucket (\ s a -> s{_lprsBucket = a}); --- | Date when multipart upload will become eligible for abort operation by--- lifecycle.+-- | Date when multipart upload will become eligible for abort operation by lifecycle. lprsAbortDate :: Lens' ListPartsResponse (Maybe UTCTime) lprsAbortDate = lens _lprsAbortDate (\ s a -> s{_lprsAbortDate = a}) . mapping _Time; --- | When a list is truncated, this element specifies the last part in the--- list, as well as the value to use for the part-number-marker request--- parameter in a subsequent request.+-- | When a list is truncated, this element specifies the last part in the list, as well as the value to use for the part-number-marker request parameter in a subsequent request. lprsNextPartNumberMarker :: Lens' ListPartsResponse (Maybe Int) lprsNextPartNumberMarker = lens _lprsNextPartNumberMarker (\ s a -> s{_lprsNextPartNumberMarker = a}); --- | Id of the lifecycle rule that makes a multipart upload eligible for--- abort operation.+-- | Id of the lifecycle rule that makes a multipart upload eligible for abort operation. lprsAbortRuleId :: Lens' ListPartsResponse (Maybe Text) lprsAbortRuleId = lens _lprsAbortRuleId (\ s a -> s{_lprsAbortRuleId = a});
gen/Network/AWS/S3/PutBucketACL.hs view
@@ -109,8 +109,7 @@ pbaGrantRead :: Lens' PutBucketACL (Maybe Text) pbaGrantRead = lens _pbaGrantRead (\ s a -> s{_pbaGrantRead = a}); --- | Allows grantee the read, write, read ACP, and write ACP permissions on--- the bucket.+-- | Allows grantee the read, write, read ACP, and write ACP permissions on the bucket. pbaGrantFullControl :: Lens' PutBucketACL (Maybe Text) pbaGrantFullControl = lens _pbaGrantFullControl (\ s a -> s{_pbaGrantFullControl = a}); @@ -122,8 +121,7 @@ pbaAccessControlPolicy :: Lens' PutBucketACL (Maybe AccessControlPolicy) pbaAccessControlPolicy = lens _pbaAccessControlPolicy (\ s a -> s{_pbaAccessControlPolicy = a}); --- | Allows grantee to create, overwrite, and delete any object in the--- bucket.+-- | Allows grantee to create, overwrite, and delete any object in the bucket. pbaGrantWrite :: Lens' PutBucketACL (Maybe Text) pbaGrantWrite = lens _pbaGrantWrite (\ s a -> s{_pbaGrantWrite = a});
gen/Network/AWS/S3/PutBucketLifecycleConfiguration.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets lifecycle configuration for your bucket. If a lifecycle--- configuration exists, it replaces it.+-- Sets lifecycle configuration for your bucket. If a lifecycle configuration exists, it replaces it. module Network.AWS.S3.PutBucketLifecycleConfiguration     (     -- * Creating a Request
gen/Network/AWS/S3/PutBucketLogging.hs view
@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Set the logging parameters for a bucket and to specify permissions for--- who can view and modify the logging parameters. To set the logging--- status of a bucket, you must be the bucket owner.+-- Set the logging parameters for a bucket and to specify permissions for who can view and modify the logging parameters. To set the logging status of a bucket, you must be the bucket owner. module Network.AWS.S3.PutBucketLogging     (     -- * Creating a Request
gen/Network/AWS/S3/PutBucketPolicy.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Replaces a policy on a bucket. If the bucket already has a policy, the--- one in this request completely replaces it.+-- Replaces a policy on a bucket. If the bucket already has a policy, the one in this request completely replaces it. module Network.AWS.S3.PutBucketPolicy     (     -- * Creating a Request
gen/Network/AWS/S3/PutBucketReplication.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new replication configuration (or replaces an existing one, if--- present).+-- Creates a new replication configuration (or replaces an existing one, if present). module Network.AWS.S3.PutBucketReplication     (     -- * Creating a Request
gen/Network/AWS/S3/PutBucketRequestPayment.hs view
@@ -18,12 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the request payment configuration for a bucket. By default, the--- bucket owner pays for downloads from the bucket. This configuration--- parameter enables the bucket owner (only) to specify that the person--- requesting the download will be charged for the download. Documentation--- on requester pays buckets can be found at--- http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/RequesterPaysBuckets.html+-- Sets the request payment configuration for a bucket. By default, the bucket owner pays for downloads from the bucket. This configuration parameter enables the bucket owner (only) to specify that the person requesting the download will be charged for the download. Documentation on requester pays buckets can be found at http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/RequesterPaysBuckets.html module Network.AWS.S3.PutBucketRequestPayment     (     -- * Creating a Request
gen/Network/AWS/S3/PutBucketVersioning.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the versioning state of an existing bucket. To set the versioning--- state, you must be the bucket owner.+-- Sets the versioning state of an existing bucket. To set the versioning state, you must be the bucket owner. module Network.AWS.S3.PutBucketVersioning     (     -- * Creating a Request@@ -74,8 +73,7 @@     , _pbvVersioningConfiguration = pVersioningConfiguration_     } --- | The concatenation of the authentication device\'s serial number, a--- space, and the value that is displayed on your authentication device.+-- | The concatenation of the authentication device\'s serial number, a space, and the value that is displayed on your authentication device. pbvMFA :: Lens' PutBucketVersioning (Maybe Text) pbvMFA = lens _pbvMFA (\ s a -> s{_pbvMFA = a});
gen/Network/AWS/S3/PutObject.hs view
@@ -189,8 +189,7 @@     , _poBody = pBody_     } --- | Size of the body in bytes. This parameter is useful when the size of the--- body cannot be determined automatically.+-- | Size of the body in bytes. This parameter is useful when the size of the body cannot be determined automatically. poContentLength :: Lens' PutObject (Maybe Int) poContentLength = lens _poContentLength (\ s a -> s{_poContentLength = a}); @@ -202,16 +201,11 @@ poGrantReadACP :: Lens' PutObject (Maybe Text) poGrantReadACP = lens _poGrantReadACP (\ s a -> s{_poGrantReadACP = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256). poSSECustomerAlgorithm :: Lens' PutObject (Maybe Text) poSSECustomerAlgorithm = lens _poSSECustomerAlgorithm (\ s a -> s{_poSSECustomerAlgorithm = 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.+-- | 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. poSSECustomerKey :: Lens' PutObject (Maybe Text) poSSECustomerKey = lens _poSSECustomerKey (\ s a -> s{_poSSECustomerKey = a}) . mapping _Sensitive; @@ -223,9 +217,7 @@ poGrantWriteACP :: Lens' PutObject (Maybe Text) poGrantWriteACP = lens _poGrantWriteACP (\ s a -> s{_poGrantWriteACP = 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.+-- | 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. poWebsiteRedirectLocation :: Lens' PutObject (Maybe Text) poWebsiteRedirectLocation = lens _poWebsiteRedirectLocation (\ s a -> s{_poWebsiteRedirectLocation = a}); @@ -237,28 +229,19 @@ poStorageClass :: Lens' PutObject (Maybe StorageClass) poStorageClass = lens _poStorageClass (\ s a -> s{_poStorageClass = 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.+-- | 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. poSSECustomerKeyMD5 :: Lens' PutObject (Maybe Text) poSSECustomerKeyMD5 = lens _poSSECustomerKeyMD5 (\ s a -> s{_poSSECustomerKeyMD5 = 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+-- | 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 poSSEKMSKeyId :: Lens' PutObject (Maybe Text) poSSEKMSKeyId = lens _poSSEKMSKeyId (\ s a -> s{_poSSEKMSKeyId = a}) . mapping _Sensitive; --- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the--- object.+-- | Gives the grantee READ, READ_ACP, and WRITE_ACP permissions on the object. poGrantFullControl :: Lens' PutObject (Maybe Text) poGrantFullControl = lens _poGrantFullControl (\ s a -> s{_poGrantFullControl = 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.+-- | 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. poContentEncoding :: Lens' PutObject (Maybe Text) poContentEncoding = lens _poContentEncoding (\ s a -> s{_poContentEncoding = a}); @@ -286,8 +269,7 @@ poContentDisposition :: Lens' PutObject (Maybe Text) poContentDisposition = lens _poContentDisposition (\ s a -> s{_poContentDisposition = a}); --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). poServerSideEncryption :: Lens' PutObject (Maybe ServerSideEncryption) poServerSideEncryption = lens _poServerSideEncryption (\ s a -> s{_poServerSideEncryption = a}); @@ -432,31 +414,23 @@ porsVersionId :: Lens' PutObjectResponse (Maybe ObjectVersionId) porsVersionId = lens _porsVersionId (\ s a -> s{_porsVersionId = 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.+-- | 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. porsExpiration :: Lens' PutObjectResponse (Maybe Text) porsExpiration = lens _porsExpiration (\ s a -> s{_porsExpiration = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | If server-side encryption with a customer-provided encryption key was requested, the response will include this header confirming the encryption algorithm used. porsSSECustomerAlgorithm :: Lens' PutObjectResponse (Maybe Text) porsSSECustomerAlgorithm = lens _porsSSECustomerAlgorithm (\ s a -> s{_porsSSECustomerAlgorithm = a}); --- | 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.+-- | 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. porsSSECustomerKeyMD5 :: Lens' PutObjectResponse (Maybe Text) porsSSECustomerKeyMD5 = lens _porsSSECustomerKeyMD5 (\ s a -> s{_porsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | If present, specifies the ID of the AWS Key Management Service (KMS) master encryption key that was used for the object. porsSSEKMSKeyId :: Lens' PutObjectResponse (Maybe Text) porsSSEKMSKeyId = lens _porsSSEKMSKeyId (\ s a -> s{_porsSSEKMSKeyId = a}) . mapping _Sensitive; --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). porsServerSideEncryption :: Lens' PutObjectResponse (Maybe ServerSideEncryption) porsServerSideEncryption = lens _porsServerSideEncryption (\ s a -> s{_porsServerSideEncryption = a});
gen/Network/AWS/S3/PutObjectACL.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- uses the acl subresource to set the access control list (ACL)--- permissions for an object that already exists in a bucket+-- uses the acl subresource to set the access control list (ACL) permissions for an object that already exists in a bucket module Network.AWS.S3.PutObjectACL     (     -- * Creating a Request@@ -137,8 +136,7 @@ poaGrantRead :: Lens' PutObjectACL (Maybe Text) poaGrantRead = lens _poaGrantRead (\ s a -> s{_poaGrantRead = a}); --- | Allows grantee the read, write, read ACP, and write ACP permissions on--- the bucket.+-- | Allows grantee the read, write, read ACP, and write ACP permissions on the bucket. poaGrantFullControl :: Lens' PutObjectACL (Maybe Text) poaGrantFullControl = lens _poaGrantFullControl (\ s a -> s{_poaGrantFullControl = a}); @@ -150,8 +148,7 @@ poaAccessControlPolicy :: Lens' PutObjectACL (Maybe AccessControlPolicy) poaAccessControlPolicy = lens _poaAccessControlPolicy (\ s a -> s{_poaAccessControlPolicy = a}); --- | Allows grantee to create, overwrite, and delete any object in the--- bucket.+-- | Allows grantee to create, overwrite, and delete any object in the bucket. poaGrantWrite :: Lens' PutObjectACL (Maybe Text) poaGrantWrite = lens _poaGrantWrite (\ s a -> s{_poaGrantWrite = a});
gen/Network/AWS/S3/Types.hs view
@@ -527,14 +527,11 @@ _ObjectAlreadyInActiveTierError =     _ServiceError . hasCode "ObjectAlreadyInActiveTierError" --- | The requested bucket name is not available. The bucket namespace is--- shared by all users of the system. Please select a different name and--- try again.+-- | The requested bucket name is not available. The bucket namespace is shared by all users of the system. Please select a different name and try again. _BucketAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _BucketAlreadyExists = _ServiceError . hasCode "BucketAlreadyExists" --- | The source object of the COPY operation is not in the active tier and is--- only stored in Amazon Glacier.+-- | The source object of the COPY operation is not in the active tier and is only stored in Amazon Glacier. _ObjectNotInActiveTierError :: AsError a => Getting (First ServiceError) a ServiceError _ObjectNotInActiveTierError =     _ServiceError . hasCode "ObjectNotInActiveTierError"
gen/Network/AWS/S3/Types/Product.hs view
@@ -22,9 +22,7 @@ import           Network.AWS.S3.Internal import           Network.AWS.S3.Types.Sum --- | Specifies the days since the initiation of an Incomplete Multipart--- Upload that Lifecycle will wait before permanently removing all parts of--- the upload.+-- | Specifies the days since the initiation of an Incomplete Multipart Upload that Lifecycle will wait before permanently removing all parts of the upload. -- -- /See:/ 'abortIncompleteMultipartUpload' smart constructor. newtype AbortIncompleteMultipartUpload = AbortIncompleteMultipartUpload'@@ -43,8 +41,7 @@     { _aimuDaysAfterInitiation = Nothing     } --- | Indicates the number of days that must pass since initiation for--- Lifecycle to abort an Incomplete Multipart Upload.+-- | Indicates the number of days that must pass since initiation for Lifecycle to abort an Incomplete Multipart Upload. aimuDaysAfterInitiation :: Lens' AbortIncompleteMultipartUpload (Maybe Int) aimuDaysAfterInitiation = lens _aimuDaysAfterInitiation (\ s a -> s{_aimuDaysAfterInitiation = a}); @@ -290,8 +287,7 @@     , _crAllowedOrigins = mempty     } --- | The time in seconds that your browser is to cache the preflight response--- for the specified resource.+-- | The time in seconds that your browser is to cache the preflight response for the specified resource. crMaxAgeSeconds :: Lens' CORSRule (Maybe Int) crMaxAgeSeconds = lens _crMaxAgeSeconds (\ s a -> s{_crMaxAgeSeconds = a}); @@ -299,19 +295,15 @@ crAllowedHeaders :: Lens' CORSRule [Text] crAllowedHeaders = lens _crAllowedHeaders (\ s a -> s{_crAllowedHeaders = a}) . _Default . _Coerce; --- | One or more headers in the response that you want customers to be able--- to access from their applications (for example, from a JavaScript--- XMLHttpRequest object).+-- | One or more headers in the response that you want customers to be able to access from their applications (for example, from a JavaScript XMLHttpRequest object). crExposeHeaders :: Lens' CORSRule [Text] crExposeHeaders = lens _crExposeHeaders (\ s a -> s{_crExposeHeaders = a}) . _Default . _Coerce; --- | Identifies HTTP methods that the domain\/origin specified in the rule is--- allowed to execute.+-- | Identifies HTTP methods that the domain\/origin specified in the rule is allowed to execute. crAllowedMethods :: Lens' CORSRule [Text] crAllowedMethods = lens _crAllowedMethods (\ s a -> s{_crAllowedMethods = a}) . _Coerce; --- | One or more origins you want customers to be able to access the bucket--- from.+-- | One or more origins you want customers to be able to access the bucket from. crAllowedOrigins :: Lens' CORSRule [Text] crAllowedOrigins = lens _crAllowedOrigins (\ s a -> s{_crAllowedOrigins = a}) . _Coerce; @@ -419,8 +411,7 @@     , _cpETag = pETag_     } --- | Part number that identifies the part. This is a positive integer between--- 1 and 10,000.+-- | Part number that identifies the part. This is a positive integer between 1 and 10,000. cpPartNumber :: Lens' CompletedPart Int cpPartNumber = lens _cpPartNumber (\ s a -> s{_cpPartNumber = a}); @@ -458,22 +449,11 @@     , _cHTTPErrorCodeReturnedEquals = Nothing     } --- | The object key name prefix when the redirect is applied. For example, to--- redirect requests for ExamplePage.html, the key prefix will be--- ExamplePage.html. To redirect request for all pages with the prefix--- docs\/, the key prefix will be \/docs, which identifies all objects in--- the docs\/ folder. Required when the parent element Condition is--- specified and sibling HttpErrorCodeReturnedEquals is not specified. If--- both conditions are specified, both must be true for the redirect to be--- applied.+-- | The object key name prefix when the redirect is applied. For example, to redirect requests for ExamplePage.html, the key prefix will be ExamplePage.html. To redirect request for all pages with the prefix docs\/, the key prefix will be \/docs, which identifies all objects in the docs\/ folder. Required when the parent element Condition is specified and sibling HttpErrorCodeReturnedEquals is not specified. If both conditions are specified, both must be true for the redirect to be applied. cKeyPrefixEquals :: Lens' Condition (Maybe Text) cKeyPrefixEquals = lens _cKeyPrefixEquals (\ s a -> s{_cKeyPrefixEquals = a}); --- | The HTTP error code when the redirect is applied. In the event of an--- error, if the error code equals this value, then the specified redirect--- is applied. Required when parent element Condition is specified and--- sibling KeyPrefixEquals is not specified. If both are specified, then--- both must be true for the redirect to be applied.+-- | The HTTP error code when the redirect is applied. In the event of an error, if the error code equals this value, then the specified redirect is applied. Required when parent element Condition is specified and sibling KeyPrefixEquals is not specified. If both are specified, then both must be true for the redirect to be applied. cHTTPErrorCodeReturnedEquals :: Lens' Condition (Maybe Text) cHTTPErrorCodeReturnedEquals = lens _cHTTPErrorCodeReturnedEquals (\ s a -> s{_cHTTPErrorCodeReturnedEquals = a}); @@ -587,8 +567,7 @@     { _cbcLocationConstraint = Nothing     } --- | Specifies the region where the bucket will be created. If you don\'t--- specify a region, the bucket will be created in US Standard.+-- | Specifies the region where the bucket will be created. If you don\'t specify a region, the bucket will be created in US Standard. cbcLocationConstraint :: Lens' CreateBucketConfiguration (Maybe LocationConstraint) cbcLocationConstraint = lens _cbcLocationConstraint (\ s a -> s{_cbcLocationConstraint = a}); @@ -622,8 +601,7 @@     , _dObjects = mempty     } --- | Element to enable quiet mode for the request. When you add this element,--- you must set its value to true.+-- | Element to enable quiet mode for the request. When you add this element, you must set its value to true. dQuiet :: Lens' Delete (Maybe Bool) dQuiet = lens _dQuiet (\ s a -> s{_dQuiet = a}); @@ -677,8 +655,7 @@ dmeVersionId :: Lens' DeleteMarkerEntry (Maybe ObjectVersionId) dmeVersionId = lens _dmeVersionId (\ s a -> s{_dmeVersionId = a}); --- | Specifies whether the object is (true) or is not (false) the latest--- version of an object.+-- | Specifies whether the object is (true) or is not (false) the latest version of an object. dmeIsLatest :: Lens' DeleteMarkerEntry (Maybe Bool) dmeIsLatest = lens _dmeIsLatest (\ s a -> s{_dmeIsLatest = a}); @@ -788,8 +765,7 @@ dStorageClass :: Lens' Destination (Maybe StorageClass) dStorageClass = lens _dStorageClass (\ s a -> s{_dStorageClass = a}); --- | Amazon resource name (ARN) of the bucket where you want Amazon S3 to--- store replicas of the object identified by the rule.+-- | Amazon resource name (ARN) of the bucket where you want Amazon S3 to store replicas of the object identified by the rule. dBucket :: Lens' Destination BucketName dBucket = lens _dBucket (\ s a -> s{_dBucket = a}); @@ -840,8 +816,7 @@ instance ToXML ErrorDocument where         toXML ErrorDocument'{..} = mconcat ["Key" @= _edKey] --- | Container for key value pair that defines the criteria for the filter--- rule.+-- | Container for key value pair that defines the criteria for the filter rule. -- -- /See:/ 'filterRule' smart constructor. data FilterRule = FilterRule'@@ -868,12 +843,7 @@ frValue :: Lens' FilterRule (Maybe Text) frValue = lens _frValue (\ s a -> s{_frValue = a}); --- | Object key name prefix or suffix identifying one or more objects to--- which the filtering rule applies. Maximum prefix length can be up to--- 1,024 characters. Overlapping prefixes and suffixes are not supported.--- For more information, go to--- <http://docs.aws.amazon.com/AmazonS3/latest/dev/NotificationHowTo.html Configuring Event Notifications>--- in the Amazon Simple Storage Service Developer Guide.+-- | Object key name prefix or suffix identifying one or more objects to which the filtering rule applies. Maximum prefix length can be up to 1,024 characters. Overlapping prefixes and suffixes are not supported. For more information, go to <http://docs.aws.amazon.com/AmazonS3/latest/dev/NotificationHowTo.html Configuring Event Notifications> in the Amazon Simple Storage Service Developer Guide. frName :: Lens' FilterRule (Maybe FilterRuleName) frName = lens _frName (\ s a -> s{_frName = a}); @@ -1024,11 +994,7 @@     { _idSuffix = pSuffix_     } --- | A suffix that is appended to a request that is for a directory on the--- website endpoint (e.g. if the suffix is index.html and you make a--- request to samplebucket\/images\/ the data that is returned will be for--- the object with the key name images\/index.html) The suffix must not be--- empty and must not include a slash character.+-- | A suffix that is appended to a request that is for a directory on the website endpoint (e.g. if the suffix is index.html and you make a request to samplebucket\/images\/ the data that is returned will be for the object with the key name images\/index.html) The suffix must not be empty and must not include a slash character. idSuffix :: Lens' IndexDocument Text idSuffix = lens _idSuffix (\ s a -> s{_idSuffix = a}); @@ -1068,8 +1034,7 @@ iDisplayName :: Lens' Initiator (Maybe Text) iDisplayName = lens _iDisplayName (\ s a -> s{_iDisplayName = a}); --- | If the principal is an AWS account, it provides the Canonical User ID.--- If the principal is an IAM User, it provides a user ARN value.+-- | If the principal is an AWS account, it provides the Canonical User ID. If the principal is an IAM User, it provides a user ARN value. iId :: Lens' Initiator (Maybe Text) iId = lens _iId (\ s a -> s{_iId = a}); @@ -1122,8 +1087,7 @@ lfcFilter :: Lens' LambdaFunctionConfiguration (Maybe NotificationConfigurationFilter) lfcFilter = lens _lfcFilter (\ s a -> s{_lfcFilter = a}); --- | Lambda cloud function ARN that Amazon S3 can invoke when it detects--- events of the specified type.+-- | Lambda cloud function ARN that Amazon S3 can invoke when it detects events of the specified type. lfcLambdaFunctionARN :: Lens' LambdaFunctionConfiguration Text lfcLambdaFunctionARN = lens _lfcLambdaFunctionARN (\ s a -> s{_lfcLambdaFunctionARN = a}); @@ -1174,20 +1138,15 @@     , _leExpiredObjectDeleteMarker = Nothing     } --- | Indicates the lifetime, in days, of the objects that are subject to the--- rule. The value must be a non-zero positive integer.+-- | Indicates the lifetime, in days, of the objects that are subject to the rule. The value must be a non-zero positive integer. leDays :: Lens' LifecycleExpiration (Maybe Int) leDays = lens _leDays (\ s a -> s{_leDays = a}); --- | Indicates at what date the object is to be moved or deleted. Should be--- in GMT ISO 8601 Format.+-- | Indicates at what date the object is to be moved or deleted. Should be in GMT ISO 8601 Format. leDate :: Lens' LifecycleExpiration (Maybe UTCTime) leDate = lens _leDate (\ s a -> s{_leDate = a}) . mapping _Time; --- | Indicates whether Amazon S3 will remove a delete marker with no--- noncurrent versions. If set to true, the delete marker will be expired;--- if set to false the policy takes no action. This cannot be specified--- with Days or Date in a Lifecycle Expiration Policy.+-- | Indicates whether Amazon S3 will remove a delete marker with no noncurrent versions. If set to true, the delete marker will be expired; if set to false the policy takes no action. This cannot be specified with Days or Date in a Lifecycle Expiration Policy. leExpiredObjectDeleteMarker :: Lens' LifecycleExpiration (Maybe Bool) leExpiredObjectDeleteMarker = lens _leExpiredObjectDeleteMarker (\ s a -> s{_leExpiredObjectDeleteMarker = a}); @@ -1271,8 +1230,7 @@ lrExpiration :: Lens' LifecycleRule (Maybe LifecycleExpiration) lrExpiration = lens _lrExpiration (\ s a -> s{_lrExpiration = a}); --- | Unique identifier for the rule. The value cannot be longer than 255--- characters.+-- | Unique identifier for the rule. The value cannot be longer than 255 characters. lrId :: Lens' LifecycleRule (Maybe Text) lrId = lens _lrId (\ s a -> s{_lrId = a}); @@ -1284,8 +1242,7 @@ lrPrefix :: Lens' LifecycleRule Text lrPrefix = lens _lrPrefix (\ s a -> s{_lrPrefix = a}); --- | If \'Enabled\', the rule is currently being applied. If \'Disabled\',--- the rule is not currently being applied.+-- | If \'Enabled\', the rule is currently being applied. If \'Disabled\', the rule is not currently being applied. lrStatus :: Lens' LifecycleRule ExpirationStatus lrStatus = lens _lrStatus (\ s a -> s{_lrStatus = a}); @@ -1345,12 +1302,7 @@     , _leTargetPrefix = Nothing     } --- | Specifies the bucket where you want Amazon S3 to store server access--- logs. You can have your logs delivered to any bucket that you own,--- including the same bucket that is being logged. You can also configure--- multiple buckets to deliver their logs to the same target bucket. In--- this case you should choose a different TargetPrefix for each source--- bucket so that the delivered log files can be distinguished by key.+-- | Specifies the bucket where you want Amazon S3 to store server access logs. You can have your logs delivered to any bucket that you own, including the same bucket that is being logged. You can also configure multiple buckets to deliver their logs to the same target bucket. In this case you should choose a different TargetPrefix for each source bucket so that the delivered log files can be distinguished by key. leTargetBucket :: Lens' LoggingEnabled (Maybe Text) leTargetBucket = lens _leTargetBucket (\ s a -> s{_leTargetBucket = a}); @@ -1358,8 +1310,7 @@ leTargetGrants :: Lens' LoggingEnabled [TargetGrant] leTargetGrants = lens _leTargetGrants (\ s a -> s{_leTargetGrants = a}) . _Default . _Coerce; --- | This element lets you specify a prefix for the keys that the log files--- will be stored under.+-- | This element lets you specify a prefix for the keys that the log files will be stored under. leTargetPrefix :: Lens' LoggingEnabled (Maybe Text) leTargetPrefix = lens _leTargetPrefix (\ s a -> s{_leTargetPrefix = a}); @@ -1457,11 +1408,7 @@  instance NFData MultipartUpload --- | Specifies when noncurrent object versions expire. Upon expiration,--- Amazon S3 permanently deletes the noncurrent object versions. You set--- this lifecycle configuration action on a bucket that has versioning--- enabled (or suspended) to request that Amazon S3 delete noncurrent--- object versions at a specific period in the object\'s lifetime.+-- | Specifies when noncurrent object versions expire. Upon expiration, Amazon S3 permanently deletes the noncurrent object versions. You set this lifecycle configuration action on a bucket that has versioning enabled (or suspended) to request that Amazon S3 delete noncurrent object versions at a specific period in the object\'s lifetime. -- -- /See:/ 'noncurrentVersionExpiration' smart constructor. newtype NoncurrentVersionExpiration = NoncurrentVersionExpiration'@@ -1481,11 +1428,7 @@     { _nveNoncurrentDays = pNoncurrentDays_     } --- | Specifies the number of days an object is noncurrent before Amazon S3--- can perform the associated action. For information about the noncurrent--- days calculations, see--- </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent>--- in the Amazon Simple Storage Service Developer Guide.+-- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent> in the Amazon Simple Storage Service Developer Guide. nveNoncurrentDays :: Lens' NoncurrentVersionExpiration Int nveNoncurrentDays = lens _nveNoncurrentDays (\ s a -> s{_nveNoncurrentDays = a}); @@ -1502,12 +1445,7 @@         toXML NoncurrentVersionExpiration'{..}           = mconcat ["NoncurrentDays" @= _nveNoncurrentDays] --- | Container for the transition rule that describes when noncurrent objects--- transition to the STANDARD_IA or GLACIER storage class. If your bucket--- is versioning-enabled (or versioning is suspended), you can set this--- action to request that Amazon S3 transition noncurrent object versions--- to the STANDARD_IA or GLACIER storage class at a specific period in the--- object\'s lifetime.+-- | Container for the transition rule that describes when noncurrent objects transition to the STANDARD_IA or GLACIER storage class. If your bucket is versioning-enabled (or versioning is suspended), you can set this action to request that Amazon S3 transition noncurrent object versions to the STANDARD_IA or GLACIER storage class at a specific period in the object\'s lifetime. -- -- /See:/ 'noncurrentVersionTransition' smart constructor. data NoncurrentVersionTransition = NoncurrentVersionTransition'@@ -1532,11 +1470,7 @@     , _nvtStorageClass = pStorageClass_     } --- | Specifies the number of days an object is noncurrent before Amazon S3--- can perform the associated action. For information about the noncurrent--- days calculations, see--- </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent>--- in the Amazon Simple Storage Service Developer Guide.+-- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent> in the Amazon Simple Storage Service Developer Guide. nvtNoncurrentDays :: Lens' NoncurrentVersionTransition Int nvtNoncurrentDays = lens _nvtNoncurrentDays (\ s a -> s{_nvtNoncurrentDays = a}); @@ -1559,8 +1493,7 @@               ["NoncurrentDays" @= _nvtNoncurrentDays,                "StorageClass" @= _nvtStorageClass] --- | Container for specifying the notification configuration of the bucket.--- If this element is empty, notifications are turned off on the bucket.+-- | Container for specifying the notification configuration of the bucket. If this element is empty, notifications are turned off on the bucket. -- -- /See:/ 'notificationConfiguration' smart constructor. data NotificationConfiguration = NotificationConfiguration'@@ -1624,10 +1557,7 @@                  (toXMLList "CloudFunctionConfiguration" <$>                     _ncLambdaFunctionConfigurations)] --- | Container for object key name filtering rules. For information about key--- name filtering, go to--- <http://docs.aws.amazon.com/AmazonS3/latest/dev/NotificationHowTo.html Configuring Event Notifications>--- in the Amazon Simple Storage Service Developer Guide.+-- | Container for object key name filtering rules. For information about key name filtering, go to <http://docs.aws.amazon.com/AmazonS3/latest/dev/NotificationHowTo.html Configuring Event Notifications> in the Amazon Simple Storage Service Developer Guide. -- -- /See:/ 'notificationConfigurationFilter' smart constructor. newtype NotificationConfigurationFilter = NotificationConfigurationFilter'@@ -1838,8 +1768,7 @@ ovSize :: Lens' ObjectVersion (Maybe Int) ovSize = lens _ovSize (\ s a -> s{_ovSize = a}); --- | Specifies whether the object is (true) or is not (false) the latest--- version of an object.+-- | Specifies whether the object is (true) or is not (false) the latest version of an object. ovIsLatest :: Lens' ObjectVersion (Maybe Bool) ovIsLatest = lens _ovIsLatest (\ s a -> s{_ovIsLatest = a}); @@ -1953,8 +1882,7 @@ pSize :: Lens' Part (Maybe Int) pSize = lens _pSize (\ s a -> s{_pSize = a}); --- | Part number identifying the part. This is a positive integer between 1--- and 10,000.+-- | Part number identifying the part. This is a positive integer between 1 and 10,000. pPartNumber :: Lens' Part (Maybe Int) pPartNumber = lens _pPartNumber (\ s a -> s{_pPartNumber = a}); @@ -1973,8 +1901,7 @@  instance NFData Part --- | Container for specifying an configuration when you want Amazon S3 to--- publish events to an Amazon Simple Queue Service (Amazon SQS) queue.+-- | Container for specifying an configuration when you want Amazon S3 to publish events to an Amazon Simple Queue Service (Amazon SQS) queue. -- -- /See:/ 'queueConfiguration' smart constructor. data QueueConfiguration = QueueConfiguration'@@ -2014,8 +1941,7 @@ qcFilter :: Lens' QueueConfiguration (Maybe NotificationConfigurationFilter) qcFilter = lens _qcFilter (\ s a -> s{_qcFilter = a}); --- | Amazon SQS queue ARN to which Amazon S3 will publish a message when it--- detects events of specified type.+-- | Amazon SQS queue ARN to which Amazon S3 will publish a message when it detects events of specified type. qcQueueARN :: Lens' QueueConfiguration Text qcQueueARN = lens _qcQueueARN (\ s a -> s{_qcQueueARN = a}); @@ -2076,28 +2002,19 @@ rHostName :: Lens' Redirect (Maybe Text) rHostName = lens _rHostName (\ s a -> s{_rHostName = a}); --- | Protocol to use (http, https) when redirecting requests. The default is--- the protocol that is used in the original request.+-- | Protocol to use (http, https) when redirecting requests. The default is the protocol that is used in the original request. rProtocol :: Lens' Redirect (Maybe Protocol) rProtocol = lens _rProtocol (\ s a -> s{_rProtocol = a}); --- | The HTTP redirect code to use on the response. Not required if one of--- the siblings is present.+-- | The HTTP redirect code to use on the response. Not required if one of the siblings is present. rHTTPRedirectCode :: Lens' Redirect (Maybe Text) rHTTPRedirectCode = lens _rHTTPRedirectCode (\ s a -> s{_rHTTPRedirectCode = a}); --- | The specific object key to use in the redirect request. For example,--- redirect request to error.html. Not required if one of the sibling is--- present. Can be present only if ReplaceKeyPrefixWith is not provided.+-- | The specific object key to use in the redirect request. For example, redirect request to error.html. Not required if one of the sibling is present. Can be present only if ReplaceKeyPrefixWith is not provided. rReplaceKeyWith :: Lens' Redirect (Maybe Text) rReplaceKeyWith = lens _rReplaceKeyWith (\ s a -> s{_rReplaceKeyWith = a}); --- | The object key prefix to use in the redirect request. For example, to--- redirect requests for all pages with prefix docs\/ (objects in the--- docs\/ folder) to documents\/, you can set a condition block with--- KeyPrefixEquals set to docs\/ and in the Redirect set--- ReplaceKeyPrefixWith to \/documents. Not required if one of the siblings--- is present. Can be present only if ReplaceKeyWith is not provided.+-- | The object key prefix to use in the redirect request. For example, to redirect requests for all pages with prefix docs\/ (objects in the docs\/ folder) to documents\/, you can set a condition block with KeyPrefixEquals set to docs\/ and in the Redirect set ReplaceKeyPrefixWith to \/documents. Not required if one of the siblings is present. Can be present only if ReplaceKeyWith is not provided. rReplaceKeyPrefixWith :: Lens' Redirect (Maybe Text) rReplaceKeyPrefixWith = lens _rReplaceKeyPrefixWith (\ s a -> s{_rReplaceKeyPrefixWith = a}); @@ -2143,8 +2060,7 @@     , _rartHostName = pHostName_     } --- | Protocol to use (http, https) when redirecting requests. The default is--- the protocol that is used in the original request.+-- | Protocol to use (http, https) when redirecting requests. The default is the protocol that is used in the original request. rartProtocol :: Lens' RedirectAllRequestsTo (Maybe Protocol) rartProtocol = lens _rartProtocol (\ s a -> s{_rartProtocol = a}); @@ -2167,8 +2083,7 @@               ["Protocol" @= _rartProtocol,                "HostName" @= _rartHostName] --- | Container for replication rules. You can add as many as 1,000 rules.--- Total replication configuration size can be up to 2 MB.+-- | Container for replication rules. You can add as many as 1,000 rules. Total replication configuration size can be up to 2 MB. -- -- /See:/ 'replicationConfiguration' smart constructor. data ReplicationConfiguration = ReplicationConfiguration'@@ -2192,14 +2107,11 @@     , _rcRules = mempty     } --- | Amazon Resource Name (ARN) of an IAM role for Amazon S3 to assume when--- replicating the objects.+-- | Amazon Resource Name (ARN) of an IAM role for Amazon S3 to assume when replicating the objects. rcRole :: Lens' ReplicationConfiguration Text rcRole = lens _rcRole (\ s a -> s{_rcRole = a}); --- | Container for information about a particular replication rule.--- Replication configuration must have at least one rule and can contain up--- to 1,000 rules.+-- | Container for information about a particular replication rule. Replication configuration must have at least one rule and can contain up to 1,000 rules. rcRules :: Lens' ReplicationConfiguration [ReplicationRule] rcRules = lens _rcRules (\ s a -> s{_rcRules = a}) . _Coerce; @@ -2249,14 +2161,11 @@     , _rrDestination = pDestination_     } --- | Unique identifier for the rule. The value cannot be longer than 255--- characters.+-- | Unique identifier for the rule. The value cannot be longer than 255 characters. rrId :: Lens' ReplicationRule (Maybe Text) rrId = lens _rrId (\ s a -> s{_rrId = a}); --- | Object keyname prefix identifying one or more objects to which the rule--- applies. Maximum prefix length can be up to 1,024 characters.--- Overlapping prefixes are not supported.+-- | Object keyname prefix identifying one or more objects to which the rule applies. Maximum prefix length can be up to 1,024 characters. Overlapping prefixes are not supported. rrPrefix :: Lens' ReplicationRule Text rrPrefix = lens _rrPrefix (\ s a -> s{_rrPrefix = a}); @@ -2367,17 +2276,11 @@     , _rrRedirect = pRedirect_     } --- | A container for describing a condition that must be met for the--- specified redirect to apply. For example, 1. If request is for pages in--- the \/docs folder, redirect to the \/documents folder. 2. If request--- results in HTTP error 4xx, redirect request to another host where you--- might process the error.+-- | A container for describing a condition that must be met for the specified redirect to apply. For example, 1. If request is for pages in the \/docs folder, redirect to the \/documents folder. 2. If request results in HTTP error 4xx, redirect request to another host where you might process the error. rrCondition :: Lens' RoutingRule (Maybe Condition) rrCondition = lens _rrCondition (\ s a -> s{_rrCondition = a}); --- | Container for redirect information. You can redirect requests to another--- host, to another page, or with another protocol. In the event of an--- error, you can can specify a different error code to return.+-- | Container for redirect information. You can redirect requests to another host, to another page, or with another protocol. In the event of an error, you can can specify a different error code to return. rrRedirect :: Lens' RoutingRule Redirect rrRedirect = lens _rrRedirect (\ s a -> s{_rrRedirect = a}); @@ -2604,9 +2507,7 @@               ["Permission" @= _tgPermission,                "Grantee" @= _tgGrantee] --- | Container for specifying the configuration when you want Amazon S3 to--- publish events to an Amazon Simple Notification Service (Amazon SNS)--- topic.+-- | Container for specifying the configuration when you want Amazon S3 to publish events to an Amazon Simple Notification Service (Amazon SNS) topic. -- -- /See:/ 'topicConfiguration' smart constructor. data TopicConfiguration = TopicConfiguration'@@ -2646,8 +2547,7 @@ tcFilter :: Lens' TopicConfiguration (Maybe NotificationConfigurationFilter) tcFilter = lens _tcFilter (\ s a -> s{_tcFilter = a}); --- | Amazon SNS topic ARN to which Amazon S3 will publish a message when it--- detects events of specified type.+-- | Amazon SNS topic ARN to which Amazon S3 will publish a message when it detects events of specified type. tcTopicARN :: Lens' TopicConfiguration Text tcTopicARN = lens _tcTopicARN (\ s a -> s{_tcTopicARN = a}); @@ -2696,13 +2596,11 @@     , _tStorageClass = Nothing     } --- | Indicates the lifetime, in days, of the objects that are subject to the--- rule. The value must be a non-zero positive integer.+-- | Indicates the lifetime, in days, of the objects that are subject to the rule. The value must be a non-zero positive integer. tDays :: Lens' Transition (Maybe Int) tDays = lens _tDays (\ s a -> s{_tDays = a}); --- | Indicates at what date the object is to be moved or deleted. Should be--- in GMT ISO 8601 Format.+-- | Indicates at what date the object is to be moved or deleted. Should be in GMT ISO 8601 Format. tDate :: Lens' Transition (Maybe UTCTime) tDate = lens _tDate (\ s a -> s{_tDate = a}) . mapping _Time; @@ -2751,10 +2649,7 @@ vcStatus :: Lens' VersioningConfiguration (Maybe BucketVersioningStatus) vcStatus = lens _vcStatus (\ s a -> s{_vcStatus = a}); --- | Specifies whether MFA delete is enabled in the bucket versioning--- configuration. This element is only returned if the bucket has been--- configured with MFA delete. If the bucket has never been so configured,--- this element is not returned.+-- | Specifies whether MFA delete is enabled in the bucket versioning configuration. This element is only returned if the bucket has been configured with MFA delete. If the bucket has never been so configured, this element is not returned. vcMFADelete :: Lens' VersioningConfiguration (Maybe MFADelete) vcMFADelete = lens _vcMFADelete (\ s a -> s{_vcMFADelete = a});
gen/Network/AWS/S3/Types/Sum.hs view
@@ -142,12 +142,7 @@ instance ToXML BucketVersioningStatus where     toXML = toXMLText --- | Requests Amazon S3 to encode the object keys in the response and--- specifies the encoding method to use. An object key may contain any--- Unicode character; however, XML 1.0 parser cannot parse some characters,--- such as characters with an ASCII value from 0 to 10. For characters that--- are not supported in XML 1.0, you can add this parameter to request that--- Amazon S3 encode the keys in the response.+-- | Requests Amazon S3 to encode the object keys in the response and specifies the encoding method to use. An object key may contain any Unicode character; however, XML 1.0 parser cannot parse some characters, such as characters with an ASCII value from 0 to 10. For characters that are not supported in XML 1.0, you can add this parameter to request that Amazon S3 encode the keys in the response. data EncodingType =     URL     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -614,8 +609,7 @@ instance FromXML ReplicationStatus where     parseXML = parseXMLText "ReplicationStatus" --- | If present, indicates that the requester was successfully charged for--- the request.+-- | If present, indicates that the requester was successfully charged for the request. data RequestCharged =     RCRequester     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -639,11 +633,7 @@ instance FromXML RequestCharged where     parseXML = parseXMLText "RequestCharged" --- | Confirms that the requester knows that she or he will be charged for the--- request. Bucket owners need not specify this parameter in their--- requests. Documentation on downloading objects from requester pays--- buckets can be found at--- http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/ObjectsinRequesterPaysBuckets.html+-- | Confirms that the requester knows that she or he will be charged for the request. Bucket owners need not specify this parameter in their requests. Documentation on downloading objects from requester pays buckets can be found at http:\/\/docs.aws.amazon.com\/AmazonS3\/latest\/dev\/ObjectsinRequesterPaysBuckets.html data RequestPayer =     RPRequester     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
gen/Network/AWS/S3/UploadPart.hs view
@@ -20,11 +20,7 @@ -- -- Uploads a part in a multipart upload. ----- __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. module Network.AWS.S3.UploadPart     (     -- * Creating a Request@@ -125,23 +121,15 @@     , _upBody = pBody_     } --- | Size of the body in bytes. This parameter is useful when the size of the--- body cannot be determined automatically.+-- | Size of the body in bytes. This parameter is useful when the size of the body cannot be determined automatically. upContentLength :: Lens' UploadPart (Maybe Int) upContentLength = lens _upContentLength (\ s a -> s{_upContentLength = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256). upSSECustomerAlgorithm :: Lens' UploadPart (Maybe Text) upSSECustomerAlgorithm = lens _upSSECustomerAlgorithm (\ s a -> s{_upSSECustomerAlgorithm = 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. This must be--- the same encryption key specified in the initiate multipart upload--- request.+-- | 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. This must be the same encryption key specified in the initiate multipart upload request. upSSECustomerKey :: Lens' UploadPart (Maybe Text) upSSECustomerKey = lens _upSSECustomerKey (\ s a -> s{_upSSECustomerKey = a}) . mapping _Sensitive; @@ -149,9 +137,7 @@ upRequestPayer :: Lens' UploadPart (Maybe RequestPayer) upRequestPayer = lens _upRequestPayer (\ s a -> s{_upRequestPayer = 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.+-- | 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. upSSECustomerKeyMD5 :: Lens' UploadPart (Maybe Text) upSSECustomerKeyMD5 = lens _upSSECustomerKeyMD5 (\ s a -> s{_upSSECustomerKeyMD5 = a}); @@ -167,8 +153,7 @@ upKey :: Lens' UploadPart ObjectKey upKey = lens _upKey (\ s a -> s{_upKey = a}); --- | Part number of part being uploaded. This is a positive integer between 1--- and 10,000.+-- | Part number of part being uploaded. This is a positive integer between 1 and 10,000. upPartNumber :: Lens' UploadPart Int upPartNumber = lens _upPartNumber (\ s a -> s{_upPartNumber = a}); @@ -275,25 +260,19 @@ uprsETag :: Lens' UploadPartResponse (Maybe ETag) uprsETag = lens _uprsETag (\ s a -> s{_uprsETag = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | If server-side encryption with a customer-provided encryption key was requested, the response will include this header confirming the encryption algorithm used. uprsSSECustomerAlgorithm :: Lens' UploadPartResponse (Maybe Text) uprsSSECustomerAlgorithm = lens _uprsSSECustomerAlgorithm (\ s a -> s{_uprsSSECustomerAlgorithm = a}); --- | 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.+-- | 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. uprsSSECustomerKeyMD5 :: Lens' UploadPartResponse (Maybe Text) uprsSSECustomerKeyMD5 = lens _uprsSSECustomerKeyMD5 (\ s a -> s{_uprsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | If present, specifies the ID of the AWS Key Management Service (KMS) master encryption key that was used for the object. uprsSSEKMSKeyId :: Lens' UploadPartResponse (Maybe Text) uprsSSEKMSKeyId = lens _uprsSSEKMSKeyId (\ s a -> s{_uprsSSEKMSKeyId = a}) . mapping _Sensitive; --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). uprsServerSideEncryption :: Lens' UploadPartResponse (Maybe ServerSideEncryption) uprsServerSideEncryption = lens _uprsServerSideEncryption (\ s a -> s{_uprsServerSideEncryption = a});
gen/Network/AWS/S3/UploadPartCopy.hs view
@@ -158,37 +158,23 @@ upcCopySourceIfUnmodifiedSince :: Lens' UploadPartCopy (Maybe UTCTime) upcCopySourceIfUnmodifiedSince = lens _upcCopySourceIfUnmodifiedSince (\ s a -> s{_upcCopySourceIfUnmodifiedSince = a}) . mapping _Time; --- | The range of bytes to copy from the source object. The range value must--- use the form bytes=first-last, where the first and last are the--- zero-based byte offsets to copy. For example, bytes=0-9 indicates that--- you want to copy the first ten bytes of the source. You can copy a range--- only if the source object is greater than 5 GB.+-- | The range of bytes to copy from the source object. The range value must use the form bytes=first-last, where the first and last are the zero-based byte offsets to copy. For example, bytes=0-9 indicates that you want to copy the first ten bytes of the source. You can copy a range only if the source object is greater than 5 GB. upcCopySourceRange :: Lens' UploadPartCopy (Maybe Text) upcCopySourceRange = lens _upcCopySourceRange (\ s a -> s{_upcCopySourceRange = 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.+-- | 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. upcCopySourceSSECustomerKeyMD5 :: Lens' UploadPartCopy (Maybe Text) upcCopySourceSSECustomerKeyMD5 = lens _upcCopySourceSSECustomerKeyMD5 (\ s a -> s{_upcCopySourceSSECustomerKeyMD5 = 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. upcCopySourceIfNoneMatch :: Lens' UploadPartCopy (Maybe Text) upcCopySourceIfNoneMatch = lens _upcCopySourceIfNoneMatch (\ s a -> s{_upcCopySourceIfNoneMatch = a}); --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256). upcSSECustomerAlgorithm :: Lens' UploadPartCopy (Maybe Text) upcSSECustomerAlgorithm = lens _upcSSECustomerAlgorithm (\ s a -> s{_upcSSECustomerAlgorithm = 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. This must be--- the same encryption key specified in the initiate multipart upload--- request.+-- | 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. This must be the same encryption key specified in the initiate multipart upload request. upcSSECustomerKey :: Lens' UploadPartCopy (Maybe Text) upcSSECustomerKey = lens _upcSSECustomerKey (\ s a -> s{_upcSSECustomerKey = a}) . mapping _Sensitive; @@ -200,20 +186,15 @@ upcCopySourceIfMatch :: Lens' UploadPartCopy (Maybe Text) upcCopySourceIfMatch = lens _upcCopySourceIfMatch (\ s a -> s{_upcCopySourceIfMatch = 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.+-- | 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. upcSSECustomerKeyMD5 :: Lens' UploadPartCopy (Maybe Text) upcSSECustomerKeyMD5 = lens _upcSSECustomerKeyMD5 (\ s a -> s{_upcSSECustomerKeyMD5 = a}); --- | 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.+-- | 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. upcCopySourceSSECustomerKey :: Lens' UploadPartCopy (Maybe Text) upcCopySourceSSECustomerKey = lens _upcCopySourceSSECustomerKey (\ s a -> s{_upcCopySourceSSECustomerKey = a}) . mapping _Sensitive; --- | Specifies the algorithm to use when decrypting the source object (e.g.,--- AES256).+-- | Specifies the algorithm to use when decrypting the source object (e.g., AES256). upcCopySourceSSECustomerAlgorithm :: Lens' UploadPartCopy (Maybe Text) upcCopySourceSSECustomerAlgorithm = lens _upcCopySourceSSECustomerAlgorithm (\ s a -> s{_upcCopySourceSSECustomerAlgorithm = a}); @@ -221,8 +202,7 @@ upcBucket :: Lens' UploadPartCopy BucketName upcBucket = lens _upcBucket (\ s a -> s{_upcBucket = a}); --- | The name of the source bucket and key name of the source object,--- separated by a slash (\/). Must be URL-encoded.+-- | The name of the source bucket and key name of the source object, separated by a slash (\/). Must be URL-encoded. upcCopySource :: Lens' UploadPartCopy Text upcCopySource = lens _upcCopySource (\ s a -> s{_upcCopySource = a}); @@ -230,8 +210,7 @@ upcKey :: Lens' UploadPartCopy ObjectKey upcKey = lens _upcKey (\ s a -> s{_upcKey = a}); --- | Part number of part being copied. This is a positive integer between 1--- and 10,000.+-- | Part number of part being copied. This is a positive integer between 1 and 10,000. upcPartNumber :: Lens' UploadPartCopy Int upcPartNumber = lens _upcPartNumber (\ s a -> s{_upcPartNumber = a}); @@ -353,30 +332,23 @@ upcrsCopyPartResult :: Lens' UploadPartCopyResponse (Maybe CopyPartResult) upcrsCopyPartResult = lens _upcrsCopyPartResult (\ s a -> s{_upcrsCopyPartResult = a}); --- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- | If server-side encryption with a customer-provided encryption key was requested, the response will include this header confirming the encryption algorithm used. upcrsSSECustomerAlgorithm :: Lens' UploadPartCopyResponse (Maybe Text) upcrsSSECustomerAlgorithm = lens _upcrsSSECustomerAlgorithm (\ s a -> s{_upcrsSSECustomerAlgorithm = a}); --- | The version of the source object that was copied, if you have enabled--- versioning on the source bucket.+-- | The version of the source object that was copied, if you have enabled versioning on the source bucket. upcrsCopySourceVersionId :: Lens' UploadPartCopyResponse (Maybe Text) upcrsCopySourceVersionId = lens _upcrsCopySourceVersionId (\ s a -> s{_upcrsCopySourceVersionId = a}); --- | 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.+-- | 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. upcrsSSECustomerKeyMD5 :: Lens' UploadPartCopyResponse (Maybe Text) upcrsSSECustomerKeyMD5 = lens _upcrsSSECustomerKeyMD5 (\ s a -> s{_upcrsSSECustomerKeyMD5 = a}); --- | If present, specifies the ID of the AWS Key Management Service (KMS)--- master encryption key that was used for the object.+-- | If present, specifies the ID of the AWS Key Management Service (KMS) master encryption key that was used for the object. upcrsSSEKMSKeyId :: Lens' UploadPartCopyResponse (Maybe Text) upcrsSSEKMSKeyId = lens _upcrsSSEKMSKeyId (\ s a -> s{_upcrsSSEKMSKeyId = a}) . mapping _Sensitive; --- | The Server-side encryption algorithm used when storing this object in S3--- (e.g., AES256, aws:kms).+-- | The Server-side encryption algorithm used when storing this object in S3 (e.g., AES256, aws:kms). upcrsServerSideEncryption :: Lens' UploadPartCopyResponse (Maybe ServerSideEncryption) upcrsServerSideEncryption = lens _upcrsServerSideEncryption (\ s a -> s{_upcrsServerSideEncryption = a});
test/Test/AWS/Gen/S3.hs view
@@ -28,331 +28,331 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testPutBucketRequestPayment $+--         [ requestPutBucketRequestPayment $ --             putBucketRequestPayment -----         , testPutObject $+--         , requestPutObject $ --             putObject -----         , testDeleteObject $+--         , requestDeleteObject $ --             deleteObject -----         , testPutBucketLogging $+--         , requestPutBucketLogging $ --             putBucketLogging -----         , testListBuckets $+--         , requestListBuckets $ --             listBuckets -----         , testDeleteBucket $+--         , requestDeleteBucket $ --             deleteBucket -----         , testCreateBucket $+--         , requestCreateBucket $ --             createBucket -----         , testDeleteBucketTagging $+--         , requestDeleteBucketTagging $ --             deleteBucketTagging -----         , testPutObjectACL $+--         , requestPutObjectACL $ --             putObjectACL -----         , testPutBucketTagging $+--         , requestPutBucketTagging $ --             putBucketTagging -----         , testGetBucketLocation $+--         , requestGetBucketLocation $ --             getBucketLocation -----         , testGetBucketNotificationConfiguration $+--         , requestGetBucketNotificationConfiguration $ --             getBucketNotificationConfiguration -----         , testPutBucketAccelerateConfiguration $+--         , requestPutBucketAccelerateConfiguration $ --             putBucketAccelerateConfiguration -----         , testGetObject $+--         , requestGetObject $ --             getObject -----         , testPutBucketReplication $+--         , requestPutBucketReplication $ --             putBucketReplication -----         , testGetBucketWebsite $+--         , requestGetBucketWebsite $ --             getBucketWebsite -----         , testGetBucketRequestPayment $+--         , requestGetBucketRequestPayment $ --             getBucketRequestPayment -----         , testDeleteBucketReplication $+--         , requestDeleteBucketReplication $ --             deleteBucketReplication -----         , testListObjectVersions $+--         , requestListObjectVersions $ --             listObjectVersions -----         , testHeadBucket $+--         , requestHeadBucket $ --             headBucket -----         , testDeleteBucketLifecycle $+--         , requestDeleteBucketLifecycle $ --             deleteBucketLifecycle -----         , testPutBucketLifecycleConfiguration $+--         , requestPutBucketLifecycleConfiguration $ --             putBucketLifecycleConfiguration -----         , testCreateMultipartUpload $+--         , requestCreateMultipartUpload $ --             createMultipartUpload -----         , testUploadPart $+--         , requestUploadPart $ --             uploadPart -----         , testGetBucketReplication $+--         , requestGetBucketReplication $ --             getBucketReplication -----         , testPutBucketWebsite $+--         , requestPutBucketWebsite $ --             putBucketWebsite -----         , testDeleteBucketWebsite $+--         , requestDeleteBucketWebsite $ --             deleteBucketWebsite -----         , testCompleteMultipartUpload $+--         , requestCompleteMultipartUpload $ --             completeMultipartUpload -----         , testListMultipartUploads $+--         , requestListMultipartUploads $ --             listMultipartUploads -----         , testListObjects $+--         , requestListObjects $ --             listObjects -----         , testDeleteBucketPolicy $+--         , requestDeleteBucketPolicy $ --             deleteBucketPolicy -----         , testAbortMultipartUpload $+--         , requestAbortMultipartUpload $ --             abortMultipartUpload -----         , testPutBucketPolicy $+--         , requestPutBucketPolicy $ --             putBucketPolicy -----         , testGetBucketAccelerateConfiguration $+--         , requestGetBucketAccelerateConfiguration $ --             getBucketAccelerateConfiguration -----         , testGetObjectTorrent $+--         , requestGetObjectTorrent $ --             getObjectTorrent -----         , testDeleteObjects $+--         , requestDeleteObjects $ --             deleteObjects -----         , testPutBucketNotificationConfiguration $+--         , requestPutBucketNotificationConfiguration $ --             putBucketNotificationConfiguration -----         , testGetBucketVersioning $+--         , requestGetBucketVersioning $ --             getBucketVersioning -----         , testDeleteBucketCORS $+--         , requestDeleteBucketCORS $ --             deleteBucketCORS -----         , testPutBucketCORS $+--         , requestPutBucketCORS $ --             putBucketCORS -----         , testGetBucketCORS $+--         , requestGetBucketCORS $ --             getBucketCORS -----         , testGetObjectACL $+--         , requestGetObjectACL $ --             getObjectACL -----         , testRestoreObject $+--         , requestRestoreObject $ --             restoreObject -----         , testHeadObject $+--         , requestHeadObject $ --             headObject -----         , testPutBucketVersioning $+--         , requestPutBucketVersioning $ --             putBucketVersioning -----         , testGetBucketTagging $+--         , requestGetBucketTagging $ --             getBucketTagging -----         , testCopyObject $+--         , requestCopyObject $ --             copyObject -----         , testGetBucketPolicy $+--         , requestGetBucketPolicy $ --             getBucketPolicy -----         , testGetBucketLogging $+--         , requestGetBucketLogging $ --             getBucketLogging -----         , testGetBucketACL $+--         , requestGetBucketACL $ --             getBucketACL -----         , testGetBucketLifecycleConfiguration $+--         , requestGetBucketLifecycleConfiguration $ --             getBucketLifecycleConfiguration -----         , testListParts $+--         , requestListParts $ --             listParts -----         , testUploadPartCopy $+--         , requestUploadPartCopy $ --             uploadPartCopy -----         , testPutBucketACL $+--         , requestPutBucketACL $ --             putBucketACL -- --           ]  --     , testGroup "response"---         [ testPutBucketRequestPaymentResponse $+--         [ responsePutBucketRequestPayment $ --             putBucketRequestPaymentResponse -----         , testPutObjectResponse $+--         , responsePutObject $ --             putObjectResponse -----         , testDeleteObjectResponse $+--         , responseDeleteObject $ --             deleteObjectResponse -----         , testPutBucketLoggingResponse $+--         , responsePutBucketLogging $ --             putBucketLoggingResponse -----         , testListBucketsResponse $+--         , responseListBuckets $ --             listBucketsResponse -----         , testDeleteBucketResponse $+--         , responseDeleteBucket $ --             deleteBucketResponse -----         , testCreateBucketResponse $+--         , responseCreateBucket $ --             createBucketResponse -----         , testDeleteBucketTaggingResponse $+--         , responseDeleteBucketTagging $ --             deleteBucketTaggingResponse -----         , testPutObjectACLResponse $+--         , responsePutObjectACL $ --             putObjectACLResponse -----         , testPutBucketTaggingResponse $+--         , responsePutBucketTagging $ --             putBucketTaggingResponse -----         , testGetBucketLocationResponse $+--         , responseGetBucketLocation $ --             getBucketLocationResponse -----         , testGetBucketNotificationConfigurationResponse $+--         , responseGetBucketNotificationConfiguration $ --             notificationConfiguration -----         , testPutBucketAccelerateConfigurationResponse $+--         , responsePutBucketAccelerateConfiguration $ --             putBucketAccelerateConfigurationResponse -----         , testGetObjectResponse $+--         , responseGetObject $ --             getObjectResponse -----         , testPutBucketReplicationResponse $+--         , responsePutBucketReplication $ --             putBucketReplicationResponse -----         , testGetBucketWebsiteResponse $+--         , responseGetBucketWebsite $ --             getBucketWebsiteResponse -----         , testGetBucketRequestPaymentResponse $+--         , responseGetBucketRequestPayment $ --             getBucketRequestPaymentResponse -----         , testDeleteBucketReplicationResponse $+--         , responseDeleteBucketReplication $ --             deleteBucketReplicationResponse -----         , testListObjectVersionsResponse $+--         , responseListObjectVersions $ --             listObjectVersionsResponse -----         , testHeadBucketResponse $+--         , responseHeadBucket $ --             headBucketResponse -----         , testDeleteBucketLifecycleResponse $+--         , responseDeleteBucketLifecycle $ --             deleteBucketLifecycleResponse -----         , testPutBucketLifecycleConfigurationResponse $+--         , responsePutBucketLifecycleConfiguration $ --             putBucketLifecycleConfigurationResponse -----         , testCreateMultipartUploadResponse $+--         , responseCreateMultipartUpload $ --             createMultipartUploadResponse -----         , testUploadPartResponse $+--         , responseUploadPart $ --             uploadPartResponse -----         , testGetBucketReplicationResponse $+--         , responseGetBucketReplication $ --             getBucketReplicationResponse -----         , testPutBucketWebsiteResponse $+--         , responsePutBucketWebsite $ --             putBucketWebsiteResponse -----         , testDeleteBucketWebsiteResponse $+--         , responseDeleteBucketWebsite $ --             deleteBucketWebsiteResponse -----         , testCompleteMultipartUploadResponse $+--         , responseCompleteMultipartUpload $ --             completeMultipartUploadResponse -----         , testListMultipartUploadsResponse $+--         , responseListMultipartUploads $ --             listMultipartUploadsResponse -----         , testListObjectsResponse $+--         , responseListObjects $ --             listObjectsResponse -----         , testDeleteBucketPolicyResponse $+--         , responseDeleteBucketPolicy $ --             deleteBucketPolicyResponse -----         , testAbortMultipartUploadResponse $+--         , responseAbortMultipartUpload $ --             abortMultipartUploadResponse -----         , testPutBucketPolicyResponse $+--         , responsePutBucketPolicy $ --             putBucketPolicyResponse -----         , testGetBucketAccelerateConfigurationResponse $+--         , responseGetBucketAccelerateConfiguration $ --             getBucketAccelerateConfigurationResponse -----         , testGetObjectTorrentResponse $+--         , responseGetObjectTorrent $ --             getObjectTorrentResponse -----         , testDeleteObjectsResponse $+--         , responseDeleteObjects $ --             deleteObjectsResponse -----         , testPutBucketNotificationConfigurationResponse $+--         , responsePutBucketNotificationConfiguration $ --             putBucketNotificationConfigurationResponse -----         , testGetBucketVersioningResponse $+--         , responseGetBucketVersioning $ --             getBucketVersioningResponse -----         , testDeleteBucketCORSResponse $+--         , responseDeleteBucketCORS $ --             deleteBucketCORSResponse -----         , testPutBucketCORSResponse $+--         , responsePutBucketCORS $ --             putBucketCORSResponse -----         , testGetBucketCORSResponse $+--         , responseGetBucketCORS $ --             getBucketCORSResponse -----         , testGetObjectACLResponse $+--         , responseGetObjectACL $ --             getObjectACLResponse -----         , testRestoreObjectResponse $+--         , responseRestoreObject $ --             restoreObjectResponse -----         , testHeadObjectResponse $+--         , responseHeadObject $ --             headObjectResponse -----         , testPutBucketVersioningResponse $+--         , responsePutBucketVersioning $ --             putBucketVersioningResponse -----         , testGetBucketTaggingResponse $+--         , responseGetBucketTagging $ --             getBucketTaggingResponse -----         , testCopyObjectResponse $+--         , responseCopyObject $ --             copyObjectResponse -----         , testGetBucketPolicyResponse $+--         , responseGetBucketPolicy $ --             getBucketPolicyResponse -----         , testGetBucketLoggingResponse $+--         , responseGetBucketLogging $ --             getBucketLoggingResponse -----         , testGetBucketACLResponse $+--         , responseGetBucketACL $ --             getBucketACLResponse -----         , testGetBucketLifecycleConfigurationResponse $+--         , responseGetBucketLifecycleConfiguration $ --             getBucketLifecycleConfigurationResponse -----         , testListPartsResponse $+--         , responseListParts $ --             listPartsResponse -----         , testUploadPartCopyResponse $+--         , responseUploadPartCopy $ --             uploadPartCopyResponse -----         , testPutBucketACLResponse $+--         , responsePutBucketACL $ --             putBucketACLResponse -- --           ]@@ -360,627 +360,627 @@  -- Requests -testPutBucketRequestPayment :: PutBucketRequestPayment -> TestTree-testPutBucketRequestPayment = req+requestPutBucketRequestPayment :: PutBucketRequestPayment -> TestTree+requestPutBucketRequestPayment = req     "PutBucketRequestPayment"     "fixture/PutBucketRequestPayment.yaml" -testDeleteObject :: DeleteObject -> TestTree-testDeleteObject = req+requestDeleteObject :: DeleteObject -> TestTree+requestDeleteObject = req     "DeleteObject"     "fixture/DeleteObject.yaml" -testPutBucketLogging :: PutBucketLogging -> TestTree-testPutBucketLogging = req+requestPutBucketLogging :: PutBucketLogging -> TestTree+requestPutBucketLogging = req     "PutBucketLogging"     "fixture/PutBucketLogging.yaml" -testListBuckets :: ListBuckets -> TestTree-testListBuckets = req+requestListBuckets :: ListBuckets -> TestTree+requestListBuckets = req     "ListBuckets"     "fixture/ListBuckets.yaml" -testDeleteBucket :: DeleteBucket -> TestTree-testDeleteBucket = req+requestDeleteBucket :: DeleteBucket -> TestTree+requestDeleteBucket = req     "DeleteBucket"     "fixture/DeleteBucket.yaml" -testCreateBucket :: CreateBucket -> TestTree-testCreateBucket = req+requestCreateBucket :: CreateBucket -> TestTree+requestCreateBucket = req     "CreateBucket"     "fixture/CreateBucket.yaml" -testDeleteBucketTagging :: DeleteBucketTagging -> TestTree-testDeleteBucketTagging = req+requestDeleteBucketTagging :: DeleteBucketTagging -> TestTree+requestDeleteBucketTagging = req     "DeleteBucketTagging"     "fixture/DeleteBucketTagging.yaml" -testPutObjectACL :: PutObjectACL -> TestTree-testPutObjectACL = req+requestPutObjectACL :: PutObjectACL -> TestTree+requestPutObjectACL = req     "PutObjectACL"     "fixture/PutObjectACL.yaml" -testPutBucketTagging :: PutBucketTagging -> TestTree-testPutBucketTagging = req+requestPutBucketTagging :: PutBucketTagging -> TestTree+requestPutBucketTagging = req     "PutBucketTagging"     "fixture/PutBucketTagging.yaml" -testGetBucketLocation :: GetBucketLocation -> TestTree-testGetBucketLocation = req+requestGetBucketLocation :: GetBucketLocation -> TestTree+requestGetBucketLocation = req     "GetBucketLocation"     "fixture/GetBucketLocation.yaml" -testGetBucketNotificationConfiguration :: GetBucketNotificationConfiguration -> TestTree-testGetBucketNotificationConfiguration = req+requestGetBucketNotificationConfiguration :: GetBucketNotificationConfiguration -> TestTree+requestGetBucketNotificationConfiguration = req     "GetBucketNotificationConfiguration"     "fixture/GetBucketNotificationConfiguration.yaml" -testPutBucketAccelerateConfiguration :: PutBucketAccelerateConfiguration -> TestTree-testPutBucketAccelerateConfiguration = req+requestPutBucketAccelerateConfiguration :: PutBucketAccelerateConfiguration -> TestTree+requestPutBucketAccelerateConfiguration = req     "PutBucketAccelerateConfiguration"     "fixture/PutBucketAccelerateConfiguration.yaml" -testGetObject :: GetObject -> TestTree-testGetObject = req+requestGetObject :: GetObject -> TestTree+requestGetObject = req     "GetObject"     "fixture/GetObject.yaml" -testPutBucketReplication :: PutBucketReplication -> TestTree-testPutBucketReplication = req+requestPutBucketReplication :: PutBucketReplication -> TestTree+requestPutBucketReplication = req     "PutBucketReplication"     "fixture/PutBucketReplication.yaml" -testGetBucketWebsite :: GetBucketWebsite -> TestTree-testGetBucketWebsite = req+requestGetBucketWebsite :: GetBucketWebsite -> TestTree+requestGetBucketWebsite = req     "GetBucketWebsite"     "fixture/GetBucketWebsite.yaml" -testGetBucketRequestPayment :: GetBucketRequestPayment -> TestTree-testGetBucketRequestPayment = req+requestGetBucketRequestPayment :: GetBucketRequestPayment -> TestTree+requestGetBucketRequestPayment = req     "GetBucketRequestPayment"     "fixture/GetBucketRequestPayment.yaml" -testDeleteBucketReplication :: DeleteBucketReplication -> TestTree-testDeleteBucketReplication = req+requestDeleteBucketReplication :: DeleteBucketReplication -> TestTree+requestDeleteBucketReplication = req     "DeleteBucketReplication"     "fixture/DeleteBucketReplication.yaml" -testListObjectVersions :: ListObjectVersions -> TestTree-testListObjectVersions = req+requestListObjectVersions :: ListObjectVersions -> TestTree+requestListObjectVersions = req     "ListObjectVersions"     "fixture/ListObjectVersions.yaml" -testHeadBucket :: HeadBucket -> TestTree-testHeadBucket = req+requestHeadBucket :: HeadBucket -> TestTree+requestHeadBucket = req     "HeadBucket"     "fixture/HeadBucket.yaml" -testDeleteBucketLifecycle :: DeleteBucketLifecycle -> TestTree-testDeleteBucketLifecycle = req+requestDeleteBucketLifecycle :: DeleteBucketLifecycle -> TestTree+requestDeleteBucketLifecycle = req     "DeleteBucketLifecycle"     "fixture/DeleteBucketLifecycle.yaml" -testPutBucketLifecycleConfiguration :: PutBucketLifecycleConfiguration -> TestTree-testPutBucketLifecycleConfiguration = req+requestPutBucketLifecycleConfiguration :: PutBucketLifecycleConfiguration -> TestTree+requestPutBucketLifecycleConfiguration = req     "PutBucketLifecycleConfiguration"     "fixture/PutBucketLifecycleConfiguration.yaml" -testCreateMultipartUpload :: CreateMultipartUpload -> TestTree-testCreateMultipartUpload = req+requestCreateMultipartUpload :: CreateMultipartUpload -> TestTree+requestCreateMultipartUpload = req     "CreateMultipartUpload"     "fixture/CreateMultipartUpload.yaml" -testGetBucketReplication :: GetBucketReplication -> TestTree-testGetBucketReplication = req+requestGetBucketReplication :: GetBucketReplication -> TestTree+requestGetBucketReplication = req     "GetBucketReplication"     "fixture/GetBucketReplication.yaml" -testPutBucketWebsite :: PutBucketWebsite -> TestTree-testPutBucketWebsite = req+requestPutBucketWebsite :: PutBucketWebsite -> TestTree+requestPutBucketWebsite = req     "PutBucketWebsite"     "fixture/PutBucketWebsite.yaml" -testDeleteBucketWebsite :: DeleteBucketWebsite -> TestTree-testDeleteBucketWebsite = req+requestDeleteBucketWebsite :: DeleteBucketWebsite -> TestTree+requestDeleteBucketWebsite = req     "DeleteBucketWebsite"     "fixture/DeleteBucketWebsite.yaml" -testCompleteMultipartUpload :: CompleteMultipartUpload -> TestTree-testCompleteMultipartUpload = req+requestCompleteMultipartUpload :: CompleteMultipartUpload -> TestTree+requestCompleteMultipartUpload = req     "CompleteMultipartUpload"     "fixture/CompleteMultipartUpload.yaml" -testListMultipartUploads :: ListMultipartUploads -> TestTree-testListMultipartUploads = req+requestListMultipartUploads :: ListMultipartUploads -> TestTree+requestListMultipartUploads = req     "ListMultipartUploads"     "fixture/ListMultipartUploads.yaml" -testListObjects :: ListObjects -> TestTree-testListObjects = req+requestListObjects :: ListObjects -> TestTree+requestListObjects = req     "ListObjects"     "fixture/ListObjects.yaml" -testDeleteBucketPolicy :: DeleteBucketPolicy -> TestTree-testDeleteBucketPolicy = req+requestDeleteBucketPolicy :: DeleteBucketPolicy -> TestTree+requestDeleteBucketPolicy = req     "DeleteBucketPolicy"     "fixture/DeleteBucketPolicy.yaml" -testAbortMultipartUpload :: AbortMultipartUpload -> TestTree-testAbortMultipartUpload = req+requestAbortMultipartUpload :: AbortMultipartUpload -> TestTree+requestAbortMultipartUpload = req     "AbortMultipartUpload"     "fixture/AbortMultipartUpload.yaml" -testPutBucketPolicy :: PutBucketPolicy -> TestTree-testPutBucketPolicy = req+requestPutBucketPolicy :: PutBucketPolicy -> TestTree+requestPutBucketPolicy = req     "PutBucketPolicy"     "fixture/PutBucketPolicy.yaml" -testGetBucketAccelerateConfiguration :: GetBucketAccelerateConfiguration -> TestTree-testGetBucketAccelerateConfiguration = req+requestGetBucketAccelerateConfiguration :: GetBucketAccelerateConfiguration -> TestTree+requestGetBucketAccelerateConfiguration = req     "GetBucketAccelerateConfiguration"     "fixture/GetBucketAccelerateConfiguration.yaml" -testGetObjectTorrent :: GetObjectTorrent -> TestTree-testGetObjectTorrent = req+requestGetObjectTorrent :: GetObjectTorrent -> TestTree+requestGetObjectTorrent = req     "GetObjectTorrent"     "fixture/GetObjectTorrent.yaml" -testDeleteObjects :: DeleteObjects -> TestTree-testDeleteObjects = req+requestDeleteObjects :: DeleteObjects -> TestTree+requestDeleteObjects = req     "DeleteObjects"     "fixture/DeleteObjects.yaml" -testPutBucketNotificationConfiguration :: PutBucketNotificationConfiguration -> TestTree-testPutBucketNotificationConfiguration = req+requestPutBucketNotificationConfiguration :: PutBucketNotificationConfiguration -> TestTree+requestPutBucketNotificationConfiguration = req     "PutBucketNotificationConfiguration"     "fixture/PutBucketNotificationConfiguration.yaml" -testGetBucketVersioning :: GetBucketVersioning -> TestTree-testGetBucketVersioning = req+requestGetBucketVersioning :: GetBucketVersioning -> TestTree+requestGetBucketVersioning = req     "GetBucketVersioning"     "fixture/GetBucketVersioning.yaml" -testDeleteBucketCORS :: DeleteBucketCORS -> TestTree-testDeleteBucketCORS = req+requestDeleteBucketCORS :: DeleteBucketCORS -> TestTree+requestDeleteBucketCORS = req     "DeleteBucketCORS"     "fixture/DeleteBucketCORS.yaml" -testPutBucketCORS :: PutBucketCORS -> TestTree-testPutBucketCORS = req+requestPutBucketCORS :: PutBucketCORS -> TestTree+requestPutBucketCORS = req     "PutBucketCORS"     "fixture/PutBucketCORS.yaml" -testGetBucketCORS :: GetBucketCORS -> TestTree-testGetBucketCORS = req+requestGetBucketCORS :: GetBucketCORS -> TestTree+requestGetBucketCORS = req     "GetBucketCORS"     "fixture/GetBucketCORS.yaml" -testGetObjectACL :: GetObjectACL -> TestTree-testGetObjectACL = req+requestGetObjectACL :: GetObjectACL -> TestTree+requestGetObjectACL = req     "GetObjectACL"     "fixture/GetObjectACL.yaml" -testRestoreObject :: RestoreObject -> TestTree-testRestoreObject = req+requestRestoreObject :: RestoreObject -> TestTree+requestRestoreObject = req     "RestoreObject"     "fixture/RestoreObject.yaml" -testHeadObject :: HeadObject -> TestTree-testHeadObject = req+requestHeadObject :: HeadObject -> TestTree+requestHeadObject = req     "HeadObject"     "fixture/HeadObject.yaml" -testPutBucketVersioning :: PutBucketVersioning -> TestTree-testPutBucketVersioning = req+requestPutBucketVersioning :: PutBucketVersioning -> TestTree+requestPutBucketVersioning = req     "PutBucketVersioning"     "fixture/PutBucketVersioning.yaml" -testGetBucketTagging :: GetBucketTagging -> TestTree-testGetBucketTagging = req+requestGetBucketTagging :: GetBucketTagging -> TestTree+requestGetBucketTagging = req     "GetBucketTagging"     "fixture/GetBucketTagging.yaml" -testCopyObject :: CopyObject -> TestTree-testCopyObject = req+requestCopyObject :: CopyObject -> TestTree+requestCopyObject = req     "CopyObject"     "fixture/CopyObject.yaml" -testGetBucketPolicy :: GetBucketPolicy -> TestTree-testGetBucketPolicy = req+requestGetBucketPolicy :: GetBucketPolicy -> TestTree+requestGetBucketPolicy = req     "GetBucketPolicy"     "fixture/GetBucketPolicy.yaml" -testGetBucketLogging :: GetBucketLogging -> TestTree-testGetBucketLogging = req+requestGetBucketLogging :: GetBucketLogging -> TestTree+requestGetBucketLogging = req     "GetBucketLogging"     "fixture/GetBucketLogging.yaml" -testGetBucketACL :: GetBucketACL -> TestTree-testGetBucketACL = req+requestGetBucketACL :: GetBucketACL -> TestTree+requestGetBucketACL = req     "GetBucketACL"     "fixture/GetBucketACL.yaml" -testGetBucketLifecycleConfiguration :: GetBucketLifecycleConfiguration -> TestTree-testGetBucketLifecycleConfiguration = req+requestGetBucketLifecycleConfiguration :: GetBucketLifecycleConfiguration -> TestTree+requestGetBucketLifecycleConfiguration = req     "GetBucketLifecycleConfiguration"     "fixture/GetBucketLifecycleConfiguration.yaml" -testListParts :: ListParts -> TestTree-testListParts = req+requestListParts :: ListParts -> TestTree+requestListParts = req     "ListParts"     "fixture/ListParts.yaml" -testUploadPartCopy :: UploadPartCopy -> TestTree-testUploadPartCopy = req+requestUploadPartCopy :: UploadPartCopy -> TestTree+requestUploadPartCopy = req     "UploadPartCopy"     "fixture/UploadPartCopy.yaml" -testPutBucketACL :: PutBucketACL -> TestTree-testPutBucketACL = req+requestPutBucketACL :: PutBucketACL -> TestTree+requestPutBucketACL = req     "PutBucketACL"     "fixture/PutBucketACL.yaml"  -- Responses -testPutBucketRequestPaymentResponse :: PutBucketRequestPaymentResponse -> TestTree-testPutBucketRequestPaymentResponse = res+responsePutBucketRequestPayment :: PutBucketRequestPaymentResponse -> TestTree+responsePutBucketRequestPayment = res     "PutBucketRequestPaymentResponse"     "fixture/PutBucketRequestPaymentResponse.proto"     s3     (Proxy :: Proxy PutBucketRequestPayment) -testPutObjectResponse :: PutObjectResponse -> TestTree-testPutObjectResponse = res+responsePutObject :: PutObjectResponse -> TestTree+responsePutObject = res     "PutObjectResponse"     "fixture/PutObjectResponse.proto"     s3     (Proxy :: Proxy PutObject) -testDeleteObjectResponse :: DeleteObjectResponse -> TestTree-testDeleteObjectResponse = res+responseDeleteObject :: DeleteObjectResponse -> TestTree+responseDeleteObject = res     "DeleteObjectResponse"     "fixture/DeleteObjectResponse.proto"     s3     (Proxy :: Proxy DeleteObject) -testPutBucketLoggingResponse :: PutBucketLoggingResponse -> TestTree-testPutBucketLoggingResponse = res+responsePutBucketLogging :: PutBucketLoggingResponse -> TestTree+responsePutBucketLogging = res     "PutBucketLoggingResponse"     "fixture/PutBucketLoggingResponse.proto"     s3     (Proxy :: Proxy PutBucketLogging) -testListBucketsResponse :: ListBucketsResponse -> TestTree-testListBucketsResponse = res+responseListBuckets :: ListBucketsResponse -> TestTree+responseListBuckets = res     "ListBucketsResponse"     "fixture/ListBucketsResponse.proto"     s3     (Proxy :: Proxy ListBuckets) -testDeleteBucketResponse :: DeleteBucketResponse -> TestTree-testDeleteBucketResponse = res+responseDeleteBucket :: DeleteBucketResponse -> TestTree+responseDeleteBucket = res     "DeleteBucketResponse"     "fixture/DeleteBucketResponse.proto"     s3     (Proxy :: Proxy DeleteBucket) -testCreateBucketResponse :: CreateBucketResponse -> TestTree-testCreateBucketResponse = res+responseCreateBucket :: CreateBucketResponse -> TestTree+responseCreateBucket = res     "CreateBucketResponse"     "fixture/CreateBucketResponse.proto"     s3     (Proxy :: Proxy CreateBucket) -testDeleteBucketTaggingResponse :: DeleteBucketTaggingResponse -> TestTree-testDeleteBucketTaggingResponse = res+responseDeleteBucketTagging :: DeleteBucketTaggingResponse -> TestTree+responseDeleteBucketTagging = res     "DeleteBucketTaggingResponse"     "fixture/DeleteBucketTaggingResponse.proto"     s3     (Proxy :: Proxy DeleteBucketTagging) -testPutObjectACLResponse :: PutObjectACLResponse -> TestTree-testPutObjectACLResponse = res+responsePutObjectACL :: PutObjectACLResponse -> TestTree+responsePutObjectACL = res     "PutObjectACLResponse"     "fixture/PutObjectACLResponse.proto"     s3     (Proxy :: Proxy PutObjectACL) -testPutBucketTaggingResponse :: PutBucketTaggingResponse -> TestTree-testPutBucketTaggingResponse = res+responsePutBucketTagging :: PutBucketTaggingResponse -> TestTree+responsePutBucketTagging = res     "PutBucketTaggingResponse"     "fixture/PutBucketTaggingResponse.proto"     s3     (Proxy :: Proxy PutBucketTagging) -testGetBucketLocationResponse :: GetBucketLocationResponse -> TestTree-testGetBucketLocationResponse = res+responseGetBucketLocation :: GetBucketLocationResponse -> TestTree+responseGetBucketLocation = res     "GetBucketLocationResponse"     "fixture/GetBucketLocationResponse.proto"     s3     (Proxy :: Proxy GetBucketLocation) -testGetBucketNotificationConfigurationResponse :: NotificationConfiguration -> TestTree-testGetBucketNotificationConfigurationResponse = res+responseGetBucketNotificationConfiguration :: NotificationConfiguration -> TestTree+responseGetBucketNotificationConfiguration = res     "GetBucketNotificationConfigurationResponse"     "fixture/GetBucketNotificationConfigurationResponse.proto"     s3     (Proxy :: Proxy GetBucketNotificationConfiguration) -testPutBucketAccelerateConfigurationResponse :: PutBucketAccelerateConfigurationResponse -> TestTree-testPutBucketAccelerateConfigurationResponse = res+responsePutBucketAccelerateConfiguration :: PutBucketAccelerateConfigurationResponse -> TestTree+responsePutBucketAccelerateConfiguration = res     "PutBucketAccelerateConfigurationResponse"     "fixture/PutBucketAccelerateConfigurationResponse.proto"     s3     (Proxy :: Proxy PutBucketAccelerateConfiguration) -testPutBucketReplicationResponse :: PutBucketReplicationResponse -> TestTree-testPutBucketReplicationResponse = res+responsePutBucketReplication :: PutBucketReplicationResponse -> TestTree+responsePutBucketReplication = res     "PutBucketReplicationResponse"     "fixture/PutBucketReplicationResponse.proto"     s3     (Proxy :: Proxy PutBucketReplication) -testGetBucketWebsiteResponse :: GetBucketWebsiteResponse -> TestTree-testGetBucketWebsiteResponse = res+responseGetBucketWebsite :: GetBucketWebsiteResponse -> TestTree+responseGetBucketWebsite = res     "GetBucketWebsiteResponse"     "fixture/GetBucketWebsiteResponse.proto"     s3     (Proxy :: Proxy GetBucketWebsite) -testGetBucketRequestPaymentResponse :: GetBucketRequestPaymentResponse -> TestTree-testGetBucketRequestPaymentResponse = res+responseGetBucketRequestPayment :: GetBucketRequestPaymentResponse -> TestTree+responseGetBucketRequestPayment = res     "GetBucketRequestPaymentResponse"     "fixture/GetBucketRequestPaymentResponse.proto"     s3     (Proxy :: Proxy GetBucketRequestPayment) -testDeleteBucketReplicationResponse :: DeleteBucketReplicationResponse -> TestTree-testDeleteBucketReplicationResponse = res+responseDeleteBucketReplication :: DeleteBucketReplicationResponse -> TestTree+responseDeleteBucketReplication = res     "DeleteBucketReplicationResponse"     "fixture/DeleteBucketReplicationResponse.proto"     s3     (Proxy :: Proxy DeleteBucketReplication) -testListObjectVersionsResponse :: ListObjectVersionsResponse -> TestTree-testListObjectVersionsResponse = res+responseListObjectVersions :: ListObjectVersionsResponse -> TestTree+responseListObjectVersions = res     "ListObjectVersionsResponse"     "fixture/ListObjectVersionsResponse.proto"     s3     (Proxy :: Proxy ListObjectVersions) -testHeadBucketResponse :: HeadBucketResponse -> TestTree-testHeadBucketResponse = res+responseHeadBucket :: HeadBucketResponse -> TestTree+responseHeadBucket = res     "HeadBucketResponse"     "fixture/HeadBucketResponse.proto"     s3     (Proxy :: Proxy HeadBucket) -testDeleteBucketLifecycleResponse :: DeleteBucketLifecycleResponse -> TestTree-testDeleteBucketLifecycleResponse = res+responseDeleteBucketLifecycle :: DeleteBucketLifecycleResponse -> TestTree+responseDeleteBucketLifecycle = res     "DeleteBucketLifecycleResponse"     "fixture/DeleteBucketLifecycleResponse.proto"     s3     (Proxy :: Proxy DeleteBucketLifecycle) -testPutBucketLifecycleConfigurationResponse :: PutBucketLifecycleConfigurationResponse -> TestTree-testPutBucketLifecycleConfigurationResponse = res+responsePutBucketLifecycleConfiguration :: PutBucketLifecycleConfigurationResponse -> TestTree+responsePutBucketLifecycleConfiguration = res     "PutBucketLifecycleConfigurationResponse"     "fixture/PutBucketLifecycleConfigurationResponse.proto"     s3     (Proxy :: Proxy PutBucketLifecycleConfiguration) -testCreateMultipartUploadResponse :: CreateMultipartUploadResponse -> TestTree-testCreateMultipartUploadResponse = res+responseCreateMultipartUpload :: CreateMultipartUploadResponse -> TestTree+responseCreateMultipartUpload = res     "CreateMultipartUploadResponse"     "fixture/CreateMultipartUploadResponse.proto"     s3     (Proxy :: Proxy CreateMultipartUpload) -testUploadPartResponse :: UploadPartResponse -> TestTree-testUploadPartResponse = res+responseUploadPart :: UploadPartResponse -> TestTree+responseUploadPart = res     "UploadPartResponse"     "fixture/UploadPartResponse.proto"     s3     (Proxy :: Proxy UploadPart) -testGetBucketReplicationResponse :: GetBucketReplicationResponse -> TestTree-testGetBucketReplicationResponse = res+responseGetBucketReplication :: GetBucketReplicationResponse -> TestTree+responseGetBucketReplication = res     "GetBucketReplicationResponse"     "fixture/GetBucketReplicationResponse.proto"     s3     (Proxy :: Proxy GetBucketReplication) -testPutBucketWebsiteResponse :: PutBucketWebsiteResponse -> TestTree-testPutBucketWebsiteResponse = res+responsePutBucketWebsite :: PutBucketWebsiteResponse -> TestTree+responsePutBucketWebsite = res     "PutBucketWebsiteResponse"     "fixture/PutBucketWebsiteResponse.proto"     s3     (Proxy :: Proxy PutBucketWebsite) -testDeleteBucketWebsiteResponse :: DeleteBucketWebsiteResponse -> TestTree-testDeleteBucketWebsiteResponse = res+responseDeleteBucketWebsite :: DeleteBucketWebsiteResponse -> TestTree+responseDeleteBucketWebsite = res     "DeleteBucketWebsiteResponse"     "fixture/DeleteBucketWebsiteResponse.proto"     s3     (Proxy :: Proxy DeleteBucketWebsite) -testCompleteMultipartUploadResponse :: CompleteMultipartUploadResponse -> TestTree-testCompleteMultipartUploadResponse = res+responseCompleteMultipartUpload :: CompleteMultipartUploadResponse -> TestTree+responseCompleteMultipartUpload = res     "CompleteMultipartUploadResponse"     "fixture/CompleteMultipartUploadResponse.proto"     s3     (Proxy :: Proxy CompleteMultipartUpload) -testListMultipartUploadsResponse :: ListMultipartUploadsResponse -> TestTree-testListMultipartUploadsResponse = res+responseListMultipartUploads :: ListMultipartUploadsResponse -> TestTree+responseListMultipartUploads = res     "ListMultipartUploadsResponse"     "fixture/ListMultipartUploadsResponse.proto"     s3     (Proxy :: Proxy ListMultipartUploads) -testListObjectsResponse :: ListObjectsResponse -> TestTree-testListObjectsResponse = res+responseListObjects :: ListObjectsResponse -> TestTree+responseListObjects = res     "ListObjectsResponse"     "fixture/ListObjectsResponse.proto"     s3     (Proxy :: Proxy ListObjects) -testDeleteBucketPolicyResponse :: DeleteBucketPolicyResponse -> TestTree-testDeleteBucketPolicyResponse = res+responseDeleteBucketPolicy :: DeleteBucketPolicyResponse -> TestTree+responseDeleteBucketPolicy = res     "DeleteBucketPolicyResponse"     "fixture/DeleteBucketPolicyResponse.proto"     s3     (Proxy :: Proxy DeleteBucketPolicy) -testAbortMultipartUploadResponse :: AbortMultipartUploadResponse -> TestTree-testAbortMultipartUploadResponse = res+responseAbortMultipartUpload :: AbortMultipartUploadResponse -> TestTree+responseAbortMultipartUpload = res     "AbortMultipartUploadResponse"     "fixture/AbortMultipartUploadResponse.proto"     s3     (Proxy :: Proxy AbortMultipartUpload) -testPutBucketPolicyResponse :: PutBucketPolicyResponse -> TestTree-testPutBucketPolicyResponse = res+responsePutBucketPolicy :: PutBucketPolicyResponse -> TestTree+responsePutBucketPolicy = res     "PutBucketPolicyResponse"     "fixture/PutBucketPolicyResponse.proto"     s3     (Proxy :: Proxy PutBucketPolicy) -testGetBucketAccelerateConfigurationResponse :: GetBucketAccelerateConfigurationResponse -> TestTree-testGetBucketAccelerateConfigurationResponse = res+responseGetBucketAccelerateConfiguration :: GetBucketAccelerateConfigurationResponse -> TestTree+responseGetBucketAccelerateConfiguration = res     "GetBucketAccelerateConfigurationResponse"     "fixture/GetBucketAccelerateConfigurationResponse.proto"     s3     (Proxy :: Proxy GetBucketAccelerateConfiguration) -testDeleteObjectsResponse :: DeleteObjectsResponse -> TestTree-testDeleteObjectsResponse = res+responseDeleteObjects :: DeleteObjectsResponse -> TestTree+responseDeleteObjects = res     "DeleteObjectsResponse"     "fixture/DeleteObjectsResponse.proto"     s3     (Proxy :: Proxy DeleteObjects) -testPutBucketNotificationConfigurationResponse :: PutBucketNotificationConfigurationResponse -> TestTree-testPutBucketNotificationConfigurationResponse = res+responsePutBucketNotificationConfiguration :: PutBucketNotificationConfigurationResponse -> TestTree+responsePutBucketNotificationConfiguration = res     "PutBucketNotificationConfigurationResponse"     "fixture/PutBucketNotificationConfigurationResponse.proto"     s3     (Proxy :: Proxy PutBucketNotificationConfiguration) -testGetBucketVersioningResponse :: GetBucketVersioningResponse -> TestTree-testGetBucketVersioningResponse = res+responseGetBucketVersioning :: GetBucketVersioningResponse -> TestTree+responseGetBucketVersioning = res     "GetBucketVersioningResponse"     "fixture/GetBucketVersioningResponse.proto"     s3     (Proxy :: Proxy GetBucketVersioning) -testDeleteBucketCORSResponse :: DeleteBucketCORSResponse -> TestTree-testDeleteBucketCORSResponse = res+responseDeleteBucketCORS :: DeleteBucketCORSResponse -> TestTree+responseDeleteBucketCORS = res     "DeleteBucketCORSResponse"     "fixture/DeleteBucketCORSResponse.proto"     s3     (Proxy :: Proxy DeleteBucketCORS) -testPutBucketCORSResponse :: PutBucketCORSResponse -> TestTree-testPutBucketCORSResponse = res+responsePutBucketCORS :: PutBucketCORSResponse -> TestTree+responsePutBucketCORS = res     "PutBucketCORSResponse"     "fixture/PutBucketCORSResponse.proto"     s3     (Proxy :: Proxy PutBucketCORS) -testGetBucketCORSResponse :: GetBucketCORSResponse -> TestTree-testGetBucketCORSResponse = res+responseGetBucketCORS :: GetBucketCORSResponse -> TestTree+responseGetBucketCORS = res     "GetBucketCORSResponse"     "fixture/GetBucketCORSResponse.proto"     s3     (Proxy :: Proxy GetBucketCORS) -testGetObjectACLResponse :: GetObjectACLResponse -> TestTree-testGetObjectACLResponse = res+responseGetObjectACL :: GetObjectACLResponse -> TestTree+responseGetObjectACL = res     "GetObjectACLResponse"     "fixture/GetObjectACLResponse.proto"     s3     (Proxy :: Proxy GetObjectACL) -testRestoreObjectResponse :: RestoreObjectResponse -> TestTree-testRestoreObjectResponse = res+responseRestoreObject :: RestoreObjectResponse -> TestTree+responseRestoreObject = res     "RestoreObjectResponse"     "fixture/RestoreObjectResponse.proto"     s3     (Proxy :: Proxy RestoreObject) -testHeadObjectResponse :: HeadObjectResponse -> TestTree-testHeadObjectResponse = res+responseHeadObject :: HeadObjectResponse -> TestTree+responseHeadObject = res     "HeadObjectResponse"     "fixture/HeadObjectResponse.proto"     s3     (Proxy :: Proxy HeadObject) -testPutBucketVersioningResponse :: PutBucketVersioningResponse -> TestTree-testPutBucketVersioningResponse = res+responsePutBucketVersioning :: PutBucketVersioningResponse -> TestTree+responsePutBucketVersioning = res     "PutBucketVersioningResponse"     "fixture/PutBucketVersioningResponse.proto"     s3     (Proxy :: Proxy PutBucketVersioning) -testGetBucketTaggingResponse :: GetBucketTaggingResponse -> TestTree-testGetBucketTaggingResponse = res+responseGetBucketTagging :: GetBucketTaggingResponse -> TestTree+responseGetBucketTagging = res     "GetBucketTaggingResponse"     "fixture/GetBucketTaggingResponse.proto"     s3     (Proxy :: Proxy GetBucketTagging) -testCopyObjectResponse :: CopyObjectResponse -> TestTree-testCopyObjectResponse = res+responseCopyObject :: CopyObjectResponse -> TestTree+responseCopyObject = res     "CopyObjectResponse"     "fixture/CopyObjectResponse.proto"     s3     (Proxy :: Proxy CopyObject) -testGetBucketPolicyResponse :: GetBucketPolicyResponse -> TestTree-testGetBucketPolicyResponse = res+responseGetBucketPolicy :: GetBucketPolicyResponse -> TestTree+responseGetBucketPolicy = res     "GetBucketPolicyResponse"     "fixture/GetBucketPolicyResponse.proto"     s3     (Proxy :: Proxy GetBucketPolicy) -testGetBucketLoggingResponse :: GetBucketLoggingResponse -> TestTree-testGetBucketLoggingResponse = res+responseGetBucketLogging :: GetBucketLoggingResponse -> TestTree+responseGetBucketLogging = res     "GetBucketLoggingResponse"     "fixture/GetBucketLoggingResponse.proto"     s3     (Proxy :: Proxy GetBucketLogging) -testGetBucketACLResponse :: GetBucketACLResponse -> TestTree-testGetBucketACLResponse = res+responseGetBucketACL :: GetBucketACLResponse -> TestTree+responseGetBucketACL = res     "GetBucketACLResponse"     "fixture/GetBucketACLResponse.proto"     s3     (Proxy :: Proxy GetBucketACL) -testGetBucketLifecycleConfigurationResponse :: GetBucketLifecycleConfigurationResponse -> TestTree-testGetBucketLifecycleConfigurationResponse = res+responseGetBucketLifecycleConfiguration :: GetBucketLifecycleConfigurationResponse -> TestTree+responseGetBucketLifecycleConfiguration = res     "GetBucketLifecycleConfigurationResponse"     "fixture/GetBucketLifecycleConfigurationResponse.proto"     s3     (Proxy :: Proxy GetBucketLifecycleConfiguration) -testListPartsResponse :: ListPartsResponse -> TestTree-testListPartsResponse = res+responseListParts :: ListPartsResponse -> TestTree+responseListParts = res     "ListPartsResponse"     "fixture/ListPartsResponse.proto"     s3     (Proxy :: Proxy ListParts) -testUploadPartCopyResponse :: UploadPartCopyResponse -> TestTree-testUploadPartCopyResponse = res+responseUploadPartCopy :: UploadPartCopyResponse -> TestTree+responseUploadPartCopy = res     "UploadPartCopyResponse"     "fixture/UploadPartCopyResponse.proto"     s3     (Proxy :: Proxy UploadPartCopy) -testPutBucketACLResponse :: PutBucketACLResponse -> TestTree-testPutBucketACLResponse = res+responsePutBucketACL :: PutBucketACLResponse -> TestTree+responsePutBucketACL = res     "PutBucketACLResponse"     "fixture/PutBucketACLResponse.proto"     s3
test/Test/AWS/S3.hs view
@@ -29,17 +29,17 @@ fixtures :: [TestTree] fixtures =     [ testGroup "request"-        [ testDeleteObjects $+        [ requestDeleteObjects $             deleteObjects "bucketname" $                 delete' & dObjects .~                     [ objectIdentifier "sample1.text"                     , objectIdentifier "sample2.text"                     ] -        , testListMultipartUploads $+        , requestListMultipartUploads $             listMultipartUploads "foo-bucket" & lmuMaxUploads ?~ 3 -        , testPutObjectACLWithBody $+        , requestPutObjectACLWithBody $             putObjectACL "bucket-body" "key-body"                 & poaAccessControlPolicy ?~                     ( accessControlPolicy@@ -47,13 +47,13 @@                         & acpOwner  ?~ (owner & oId         ?~ "foo-oid")                     ) -        , testPutObjectACLWithHeaders $+        , requestPutObjectACLWithHeaders $             putObjectACL "bucket-headers" "key-headers"                 & poaACL ?~ OBucketOwnerRead         ]      , testGroup "response"-        [ testGetBucketReplicationResponse $+        [ responseGetBucketReplication $             getBucketReplicationResponse 200                 & gbrrsReplicationConfiguration ?~                    (replicationConfiguration "arn:aws:iam::35667example:role/CrossRegionReplicationRoleForS3"@@ -62,14 +62,14 @@                                & rrId ?~ "rule1"                            ]) -        , testCopyObjectResponse $+        , responseCopyObject $             copyObjectResponse 200                 & corsCopyObjectResult ?~                     (copyObjectResult                         & corETag         ?~ ETag "\"9b2cf535f27731c974343645a3985328\""                         & corLastModified ?~ $(mkTime "2009-10-28T22:32:00Z")) -        , testListPartsResponse $+        , responseListParts $             listPartsResponse 200                 & lprsBucket               ?~ "example-bucket"                 & lprsKey                  ?~ "example-object"@@ -99,7 +99,7 @@                     ]          -- FIXME: Has a JSON body, not XML, hence, serialiser error.-        -- , testGetBucketPolicyResponse $+        -- , requestGetBucketPolicyResponse $         --     getBucketPolicyResponse 200         --         & gbprPolicy ?~ "foo"         ]
test/Test/AWS/S3/Internal.hs view
@@ -46,12 +46,12 @@     enc :: ObjectKey -> ByteString     enc = toBS . escapePath . rawPath -testPutObjectACLWithBody :: PutObjectACL -> TestTree-testPutObjectACLWithBody = req+requestPutObjectACLWithBody :: PutObjectACL -> TestTree+requestPutObjectACLWithBody = req     "PutObjectACLWithBody"     "fixture/PutObjectACLWithBody.yaml" -testPutObjectACLWithHeaders :: PutObjectACL -> TestTree-testPutObjectACLWithHeaders = req+requestPutObjectACLWithHeaders :: PutObjectACL -> TestTree+requestPutObjectACLWithHeaders = req     "PutObjectACLWithHeaders"     "fixture/PutObjectACLWithHeaders.yaml"