amazonka-s3 0.0.1 → 0.0.2
raw patch · 53 files changed
+510/−460 lines, 53 filesdep ~amazonka-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core
API changes (from Hackage documentation)
Files
- README.md +7/−1
- amazonka-s3.cabal +9/−9
- gen/Network/AWS/S3.hs +5/−5
- gen/Network/AWS/S3/AbortMultipartUpload.hs +6/−4
- gen/Network/AWS/S3/CompleteMultipartUpload.hs +4/−5
- gen/Network/AWS/S3/CopyObject.hs +31/−33
- gen/Network/AWS/S3/CreateBucket.hs +3/−3
- gen/Network/AWS/S3/CreateMultipartUpload.hs +23/−23
- gen/Network/AWS/S3/DeleteBucket.hs +1/−1
- gen/Network/AWS/S3/DeleteBucketCors.hs +1/−1
- gen/Network/AWS/S3/DeleteBucketLifecycle.hs +1/−1
- gen/Network/AWS/S3/DeleteBucketPolicy.hs +1/−1
- gen/Network/AWS/S3/DeleteBucketTagging.hs +1/−1
- gen/Network/AWS/S3/DeleteBucketWebsite.hs +1/−1
- gen/Network/AWS/S3/DeleteObject.hs +8/−8
- gen/Network/AWS/S3/DeleteObjects.hs +3/−3
- gen/Network/AWS/S3/GetBucketAcl.hs +1/−1
- gen/Network/AWS/S3/GetBucketCors.hs +1/−1
- gen/Network/AWS/S3/GetBucketLifecycle.hs +1/−1
- gen/Network/AWS/S3/GetBucketLocation.hs +1/−1
- gen/Network/AWS/S3/GetBucketLogging.hs +3/−3
- gen/Network/AWS/S3/GetBucketNotification.hs +1/−1
- gen/Network/AWS/S3/GetBucketPolicy.hs +1/−1
- gen/Network/AWS/S3/GetBucketRequestPayment.hs +1/−1
- gen/Network/AWS/S3/GetBucketTagging.hs +1/−1
- gen/Network/AWS/S3/GetBucketVersioning.hs +3/−3
- gen/Network/AWS/S3/GetBucketWebsite.hs +1/−1
- gen/Network/AWS/S3/GetObject.hs +37/−39
- gen/Network/AWS/S3/GetObjectAcl.hs +1/−1
- gen/Network/AWS/S3/GetObjectTorrent.hs +1/−1
- gen/Network/AWS/S3/HeadBucket.hs +1/−1
- gen/Network/AWS/S3/HeadObject.hs +35/−37
- gen/Network/AWS/S3/ListBuckets.hs +1/−1
- gen/Network/AWS/S3/ListMultipartUploads.hs +12/−13
- gen/Network/AWS/S3/ListObjectVersions.hs +9/−10
- gen/Network/AWS/S3/ListObjects.hs +15/−16
- gen/Network/AWS/S3/ListParts.hs +6/−6
- gen/Network/AWS/S3/PutBucketAcl.hs +3/−3
- gen/Network/AWS/S3/PutBucketCors.hs +1/−1
- gen/Network/AWS/S3/PutBucketLifecycle.hs +1/−1
- gen/Network/AWS/S3/PutBucketLogging.hs +1/−1
- gen/Network/AWS/S3/PutBucketNotification.hs +1/−1
- gen/Network/AWS/S3/PutBucketPolicy.hs +3/−3
- gen/Network/AWS/S3/PutBucketRequestPayment.hs +1/−1
- gen/Network/AWS/S3/PutBucketTagging.hs +1/−1
- gen/Network/AWS/S3/PutBucketVersioning.hs +5/−5
- gen/Network/AWS/S3/PutBucketWebsite.hs +1/−1
- gen/Network/AWS/S3/PutObject.hs +21/−23
- gen/Network/AWS/S3/PutObjectAcl.hs +5/−5
- gen/Network/AWS/S3/RestoreObject.hs +2/−2
- gen/Network/AWS/S3/Types.hs +181/−126
- gen/Network/AWS/S3/UploadPart.hs +19/−19
- gen/Network/AWS/S3/UploadPartCopy.hs +26/−27
README.md view
@@ -8,7 +8,13 @@ ## 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 [AWS API Reference](http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html).
amazonka-s3.cabal view
@@ -1,5 +1,5 @@ name: amazonka-s3-version: 0.0.1+version: 0.0.2 synopsis: Amazon Simple Storage Service SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense@@ -13,13 +13,13 @@ cabal-version: >= 1.10 description:- Amazon Simple Storage Service is storage for the Internet. Amazon S3- has a simple web services interface that you can use to store and- retrieve any amount of data, at any time, from anywhere on the web. It- gives any developer access to the same highly scalable, reliable, fast,- inexpensive data storage infrastructure that Amazon uses to run its own- global network of web sites. The service aims to maximize benefits of- scale and to pass those benefits on to developers.+ Amazon Simple Storage Service is storage for the Internet. Amazon S3 has a+ simple web services interface that you can use to store and retrieve any+ amount of data, at any time, from anywhere on the web. It gives any developer+ access to the same highly scalable, reliable, fast, inexpensive data storage+ infrastructure that Amazon uses to run its own global network of web sites.+ The service aims to maximize benefits of scale and to pass those benefits on+ to developers. . /See:/ <http://docs.aws.amazon.com/AmazonS3/latest/API/Welcome.html AWS API Reference> .@@ -93,5 +93,5 @@ Network.AWS.S3.Internal build-depends:- amazonka-core == 0.0.1.*+ amazonka-core == 0.0.2.* , base >= 4.7 && < 5
gen/Network/AWS/S3.hs view
@@ -10,11 +10,11 @@ -- | 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.+-- 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 ( module Network.AWS.S3.AbortMultipartUpload , module Network.AWS.S3.CompleteMultipartUpload
gen/Network/AWS/S3/AbortMultipartUpload.hs view
@@ -20,10 +20,12 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | 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.+-- | 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.+-- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/AbortMultipartUpload.html> module Network.AWS.S3.AbortMultipartUpload (@@ -43,7 +45,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/CompleteMultipartUpload.hs view
@@ -51,7 +51,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -101,7 +101,7 @@ data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse { _cmur1Bucket :: Maybe Text , _cmur1ETag :: Maybe Text- , _cmur1Expiration :: Maybe RFC822+ , _cmur1Expiration :: Maybe ISO8601 , _cmur1Key :: Maybe Text , _cmur1Location :: Maybe Text , _cmur1SSEKMSKeyId :: Maybe (Sensitive Text)@@ -148,9 +148,8 @@ cmur1ETag :: Lens' CompleteMultipartUploadResponse (Maybe Text) cmur1ETag = lens _cmur1ETag (\s a -> s { _cmur1ETag = 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. cmur1Expiration :: Lens' CompleteMultipartUploadResponse (Maybe UTCTime) cmur1Expiration = lens _cmur1Expiration (\s a -> s { _cmur1Expiration = a }) . mapping _Time
gen/Network/AWS/S3/CopyObject.hs view
@@ -76,7 +76,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -90,14 +90,14 @@ , _coContentType :: Maybe Text , _coCopySource :: Text , _coCopySourceIfMatch :: Maybe Text- , _coCopySourceIfModifiedSince :: Maybe RFC822+ , _coCopySourceIfModifiedSince :: Maybe ISO8601 , _coCopySourceIfNoneMatch :: Maybe Text- , _coCopySourceIfUnmodifiedSince :: Maybe RFC822+ , _coCopySourceIfUnmodifiedSince :: Maybe ISO8601 , _coCopySourceSSECustomerAlgorithm :: Maybe Text , _coCopySourceSSECustomerKey :: Maybe (Sensitive Text) , _coCopySourceSSECustomerKeyMD5 :: Maybe Text , _coCopySourceSSEKMSKeyId :: Maybe (Sensitive Text)- , _coExpires :: Maybe RFC822+ , _coExpires :: Maybe ISO8601 , _coGrantFullControl :: Maybe Text , _coGrantRead :: Maybe Text , _coGrantReadACP :: Maybe Text@@ -231,8 +231,8 @@ lens _coContentDisposition (\s a -> s { _coContentDisposition = a }) -- | Specifies what content encodings have been applied to the object and thus--- what decoding mechanisms must be applied to obtain the media-type--- referenced by the Content-Type header field.+-- 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 })@@ -246,8 +246,8 @@ coContentType :: Lens' CopyObject (Maybe Text) coContentType = lens _coContentType (\s a -> s { _coContentType = 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 }) @@ -263,8 +263,8 @@ (\s a -> s { _coCopySourceIfModifiedSince = a }) . mapping _Time --- | 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 })@@ -284,17 +284,17 @@ (\s a -> s { _coCopySourceSSECustomerAlgorithm = 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.+-- decrypt the source object. The encryption key provided in this header must be+-- one that was used when the source object was created. coCopySourceSSECustomerKey :: Lens' CopyObject (Maybe Text) coCopySourceSSECustomerKey = lens _coCopySourceSSECustomerKey (\s a -> s { _coCopySourceSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC--- 1321. Amazon S3 uses this header for a message integrity check to ensure--- the encryption key was transmitted without error.+-- | 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@@ -310,8 +310,7 @@ coExpires :: Lens' CopyObject (Maybe UTCTime) coExpires = lens _coExpires (\s a -> s { _coExpires = a }) . mapping _Time --- | 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 })@@ -335,14 +334,14 @@ coMetadata :: Lens' CopyObject (HashMap (CI Text) Text) coMetadata = lens _coMetadata (\s a -> s { _coMetadata = a }) . _Map --- | Specifies whether the metadata is copied from the source object or--- replaced with metadata provided in the request.+-- | Specifies whether the metadata is copied from the source object or replaced+-- with metadata provided in the request. coMetadataDirective :: Lens' CopyObject (Maybe MetadataDirective) coMetadataDirective = lens _coMetadataDirective (\s a -> s { _coMetadataDirective = a }) --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). coSSECustomerAlgorithm :: Lens' CopyObject (Maybe Text) coSSECustomerAlgorithm = lens _coSSECustomerAlgorithm (\s a -> s { _coSSECustomerAlgorithm = a })@@ -351,13 +350,13 @@ -- 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.+-- x-amz-server-side-encryption-customer-algorithm header. coSSECustomerKey :: Lens' CopyObject (Maybe Text) coSSECustomerKey = lens _coSSECustomerKey (\s a -> s { _coSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 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 })@@ -372,9 +371,9 @@ coStorageClass :: Lens' CopyObject (Maybe StorageClass) coStorageClass = lens _coStorageClass (\s a -> s { _coStorageClass = 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@@ -383,7 +382,7 @@ data CopyObjectResponse = CopyObjectResponse { _corCopyObjectResult :: Maybe CopyObjectResult , _corCopySourceVersionId :: Maybe Text- , _corExpiration :: Maybe RFC822+ , _corExpiration :: Maybe ISO8601 , _corSSECustomerAlgorithm :: Maybe Text , _corSSECustomerKeyMD5 :: Maybe Text , _corSSEKMSKeyId :: Maybe (Sensitive Text)@@ -427,14 +426,13 @@ corCopySourceVersionId = lens _corCopySourceVersionId (\s a -> s { _corCopySourceVersionId = a }) --- | If the object expiration is configured, the response includes this--- header.+-- | If the object expiration is configured, the response includes this header. corExpiration :: Lens' CopyObjectResponse (Maybe UTCTime) corExpiration = lens _corExpiration (\s a -> s { _corExpiration = a }) . mapping _Time -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. corSSECustomerAlgorithm :: Lens' CopyObjectResponse (Maybe Text) corSSECustomerAlgorithm = lens _corSSECustomerAlgorithm (\s a -> s { _corSSECustomerAlgorithm = a })
gen/Network/AWS/S3/CreateBucket.hs view
@@ -48,7 +48,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -108,8 +108,8 @@ lens _cbCreateBucketConfiguration (\s a -> s { _cbCreateBucketConfiguration = 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 })
gen/Network/AWS/S3/CreateMultipartUpload.hs view
@@ -20,13 +20,14 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | 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.+-- | 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.+-- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/CreateMultipartUpload.html> module Network.AWS.S3.CreateMultipartUpload (@@ -72,7 +73,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -84,7 +85,7 @@ , _cmuContentEncoding :: Maybe Text , _cmuContentLanguage :: Maybe Text , _cmuContentType :: Maybe Text- , _cmuExpires :: Maybe RFC822+ , _cmuExpires :: Maybe ISO8601 , _cmuGrantFullControl :: Maybe Text , _cmuGrantRead :: Maybe Text , _cmuGrantReadACP :: Maybe Text@@ -190,8 +191,8 @@ lens _cmuContentDisposition (\s a -> s { _cmuContentDisposition = 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.+-- 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 })@@ -209,8 +210,7 @@ cmuExpires :: Lens' CreateMultipartUpload (Maybe UTCTime) cmuExpires = lens _cmuExpires (\s a -> s { _cmuExpires = a }) . mapping _Time --- | 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 })@@ -234,8 +234,8 @@ cmuMetadata :: Lens' CreateMultipartUpload (HashMap (CI Text) Text) cmuMetadata = lens _cmuMetadata (\s a -> s { _cmuMetadata = a }) . _Map --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). cmuSSECustomerAlgorithm :: Lens' CreateMultipartUpload (Maybe Text) cmuSSECustomerAlgorithm = lens _cmuSSECustomerAlgorithm (\s a -> s { _cmuSSECustomerAlgorithm = a })@@ -244,15 +244,15 @@ -- 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.+-- x-amz-server-side-encryption-customer-algorithm header. cmuSSECustomerKey :: Lens' CreateMultipartUpload (Maybe Text) cmuSSECustomerKey = lens _cmuSSECustomerKey (\s a -> s { _cmuSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC--- 1321. Amazon S3 uses this header for a message integrity check to ensure--- the encryption key was transmitted without error.+-- | 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 })@@ -271,9 +271,9 @@ cmuStorageClass :: Lens' CreateMultipartUpload (Maybe StorageClass) cmuStorageClass = lens _cmuStorageClass (\s a -> s { _cmuStorageClass = 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@@ -327,8 +327,8 @@ cmurKey = lens _cmurKey (\s a -> s { _cmurKey = a }) -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. cmurSSECustomerAlgorithm :: Lens' CreateMultipartUploadResponse (Maybe Text) cmurSSECustomerAlgorithm = lens _cmurSSECustomerAlgorithm
gen/Network/AWS/S3/DeleteBucket.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteBucketCors.hs view
@@ -39,7 +39,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteBucketLifecycle.hs view
@@ -39,7 +39,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteBucketPolicy.hs view
@@ -39,7 +39,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteBucketTagging.hs view
@@ -39,7 +39,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteBucketWebsite.hs view
@@ -39,7 +39,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/DeleteObject.hs view
@@ -20,9 +20,9 @@ -- Stability : experimental -- 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. -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/DeleteObject.html> module Network.AWS.S3.DeleteObject@@ -47,7 +47,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -86,8 +86,8 @@ doKey :: Lens' DeleteObject Text doKey = lens _doKey (\s a -> s { _doKey = 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 }) @@ -119,8 +119,8 @@ dorDeleteMarker :: Lens' DeleteObjectResponse (Maybe Bool) dorDeleteMarker = lens _dorDeleteMarker (\s a -> s { _dorDeleteMarker = 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. dorVersionId :: Lens' DeleteObjectResponse (Maybe Text) dorVersionId = lens _dorVersionId (\s a -> s { _dorVersionId = a })
gen/Network/AWS/S3/DeleteObjects.hs view
@@ -45,7 +45,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -80,8 +80,8 @@ do1Delete :: Lens' DeleteObjects Delete do1Delete = lens _do1Delete (\s a -> s { _do1Delete = 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. do1MFA :: Lens' DeleteObjects (Maybe Text) do1MFA = lens _do1MFA (\s a -> s { _do1MFA = a })
gen/Network/AWS/S3/GetBucketAcl.hs view
@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketCors.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketLifecycle.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketLocation.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketLogging.hs view
@@ -20,8 +20,8 @@ -- Stability : experimental -- 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. -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/GetBucketLogging.html> module Network.AWS.S3.GetBucketLogging@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketNotification.hs view
@@ -43,7 +43,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketPolicy.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketRequestPayment.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketTagging.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetBucketVersioning.hs view
@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -86,8 +86,8 @@ -- | 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.+-- configured with MFA delete. If the bucket has never been so configured, this+-- element is not returned. gbvrMFADelete :: Lens' GetBucketVersioningResponse (Maybe MFADeleteStatus) gbvrMFADelete = lens _gbvrMFADelete (\s a -> s { _gbvrMFADelete = a })
gen/Network/AWS/S3/GetBucketWebsite.hs view
@@ -44,7 +44,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetObject.hs view
@@ -79,16 +79,16 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts data GetObject = GetObject { _goBucket :: Text , _goIfMatch :: Maybe Text- , _goIfModifiedSince :: Maybe RFC822+ , _goIfModifiedSince :: Maybe ISO8601 , _goIfNoneMatch :: Maybe Text- , _goIfUnmodifiedSince :: Maybe RFC822+ , _goIfUnmodifiedSince :: Maybe ISO8601 , _goKey :: Text , _goRange :: Maybe Text , _goResponseCacheControl :: Maybe Text@@ -96,7 +96,7 @@ , _goResponseContentEncoding :: Maybe Text , _goResponseContentLanguage :: Maybe Text , _goResponseContentType :: Maybe Text- , _goResponseExpires :: Maybe RFC822+ , _goResponseExpires :: Maybe ISO8601 , _goSSECustomerAlgorithm :: Maybe Text , _goSSECustomerKey :: Maybe (Sensitive Text) , _goSSECustomerKeyMD5 :: Maybe Text@@ -188,8 +188,8 @@ goIfNoneMatch :: Lens' GetObject (Maybe Text) goIfNoneMatch = lens _goIfNoneMatch (\s a -> s { _goIfNoneMatch = 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 })@@ -198,8 +198,8 @@ goKey :: Lens' GetObject Text goKey = lens _goKey (\s a -> s { _goKey = a }) --- | Downloads the specified range bytes of an object. For more information--- about the HTTP Range header, go to+-- | 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 })@@ -209,7 +209,7 @@ goResponseCacheControl = lens _goResponseCacheControl (\s a -> s { _goResponseCacheControl = a }) --- | Sets the Content-Disposition header of the response.+-- | Sets the Content-Disposition header of the response goResponseContentDisposition :: Lens' GetObject (Maybe Text) goResponseContentDisposition = lens _goResponseContentDisposition@@ -238,8 +238,8 @@ lens _goResponseExpires (\s a -> s { _goResponseExpires = a }) . mapping _Time --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). goSSECustomerAlgorithm :: Lens' GetObject (Maybe Text) goSSECustomerAlgorithm = lens _goSSECustomerAlgorithm (\s a -> s { _goSSECustomerAlgorithm = a })@@ -248,13 +248,13 @@ -- 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.+-- x-amz-server-side-encryption-customer-algorithm header. goSSECustomerKey :: Lens' GetObject (Maybe Text) goSSECustomerKey = lens _goSSECustomerKey (\s a -> s { _goSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC--- 1321. Amazon S3 uses this header for a message integrity check to ensure--- the encryption key was transmitted without error.+-- | 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 })@@ -278,9 +278,9 @@ , _gorContentType :: Maybe Text , _gorDeleteMarker :: Maybe Bool , _gorETag :: Maybe Text- , _gorExpiration :: Maybe RFC822- , _gorExpires :: Maybe RFC822- , _gorLastModified :: Maybe RFC822+ , _gorExpiration :: Maybe ISO8601+ , _gorExpires :: Maybe ISO8601+ , _gorLastModified :: Maybe ISO8601 , _gorMetadata :: Map (CI Text) Text , _gorMissingMeta :: Maybe Int , _gorRestore :: Maybe Text@@ -384,8 +384,8 @@ lens _gorContentDisposition (\s a -> s { _gorContentDisposition = 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.+-- what decoding mechanisms must be applied to obtain the media-type referenced+-- by the Content-Type header field. gorContentEncoding :: Lens' GetObjectResponse (Maybe Text) gorContentEncoding = lens _gorContentEncoding (\s a -> s { _gorContentEncoding = a })@@ -403,21 +403,20 @@ gorContentType :: Lens' GetObjectResponse (Maybe Text) gorContentType = lens _gorContentType (\s a -> s { _gorContentType = 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. gorDeleteMarker :: Lens' GetObjectResponse (Maybe Bool) gorDeleteMarker = lens _gorDeleteMarker (\s a -> s { _gorDeleteMarker = a }) -- | An ETag is an opaque identifier assigned by a web server to a specific--- version of a resource found at a URL.+-- version of a resource found at a URL gorETag :: Lens' GetObjectResponse (Maybe Text) gorETag = lens _gorETag (\s a -> s { _gorETag = 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.+-- 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. gorExpiration :: Lens' GetObjectResponse (Maybe UTCTime) gorExpiration = lens _gorExpiration (\s a -> s { _gorExpiration = a }) . mapping _Time @@ -425,7 +424,7 @@ gorExpires :: Lens' GetObjectResponse (Maybe UTCTime) gorExpires = lens _gorExpires (\s a -> s { _gorExpires = a }) . mapping _Time --- | Last modified date of the object.+-- | Last modified date of the object gorLastModified :: Lens' GetObjectResponse (Maybe UTCTime) gorLastModified = lens _gorLastModified (\s a -> s { _gorLastModified = a }) . mapping _Time @@ -434,21 +433,20 @@ gorMetadata = lens _gorMetadata (\s a -> s { _gorMetadata = a }) . _Map -- | 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.+-- 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. gorMissingMeta :: Lens' GetObjectResponse (Maybe Int) gorMissingMeta = lens _gorMissingMeta (\s a -> s { _gorMissingMeta = a }) --- | 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. gorRestore :: Lens' GetObjectResponse (Maybe Text) gorRestore = lens _gorRestore (\s a -> s { _gorRestore = a }) -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. gorSSECustomerAlgorithm :: Lens' GetObjectResponse (Maybe Text) gorSSECustomerAlgorithm = lens _gorSSECustomerAlgorithm (\s a -> s { _gorSSECustomerAlgorithm = a })@@ -474,9 +472,9 @@ gorVersionId :: Lens' GetObjectResponse (Maybe Text) gorVersionId = lens _gorVersionId (\s a -> s { _gorVersionId = 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. gorWebsiteRedirectLocation :: Lens' GetObjectResponse (Maybe Text) gorWebsiteRedirectLocation = lens _gorWebsiteRedirectLocation
gen/Network/AWS/S3/GetObjectAcl.hs view
@@ -44,7 +44,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/GetObjectTorrent.hs view
@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/HeadBucket.hs view
@@ -40,7 +40,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/HeadObject.hs view
@@ -74,16 +74,16 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts data HeadObject = HeadObject { _hoBucket :: Text , _hoIfMatch :: Maybe Text- , _hoIfModifiedSince :: Maybe RFC822+ , _hoIfModifiedSince :: Maybe ISO8601 , _hoIfNoneMatch :: Maybe Text- , _hoIfUnmodifiedSince :: Maybe RFC822+ , _hoIfUnmodifiedSince :: Maybe ISO8601 , _hoKey :: Text , _hoRange :: Maybe Text , _hoSSECustomerAlgorithm :: Maybe Text@@ -159,8 +159,8 @@ hoIfNoneMatch :: Lens' HeadObject (Maybe Text) hoIfNoneMatch = lens _hoIfNoneMatch (\s a -> s { _hoIfNoneMatch = 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 })@@ -169,14 +169,14 @@ hoKey :: Lens' HeadObject Text hoKey = lens _hoKey (\s a -> s { _hoKey = a }) --- | Downloads the specified range bytes of an object. For more information--- about the HTTP Range header, go to+-- | 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 }) --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). hoSSECustomerAlgorithm :: Lens' HeadObject (Maybe Text) hoSSECustomerAlgorithm = lens _hoSSECustomerAlgorithm (\s a -> s { _hoSSECustomerAlgorithm = a })@@ -185,13 +185,13 @@ -- 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.+-- x-amz-server-side-encryption-customer-algorithm header. hoSSECustomerKey :: Lens' HeadObject (Maybe Text) hoSSECustomerKey = lens _hoSSECustomerKey (\s a -> s { _hoSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC--- 1321. Amazon S3 uses this header for a message integrity check to ensure--- the encryption key was transmitted without error.+-- | 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 })@@ -214,9 +214,9 @@ , _horContentType :: Maybe Text , _horDeleteMarker :: Maybe Bool , _horETag :: Maybe Text- , _horExpiration :: Maybe RFC822- , _horExpires :: Maybe RFC822- , _horLastModified :: Maybe RFC822+ , _horExpiration :: Maybe ISO8601+ , _horExpires :: Maybe ISO8601+ , _horLastModified :: Maybe ISO8601 , _horMetadata :: Map (CI Text) Text , _horMissingMeta :: Maybe Int , _horRestore :: Maybe Text@@ -312,8 +312,8 @@ lens _horContentDisposition (\s a -> s { _horContentDisposition = 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.+-- what decoding mechanisms must be applied to obtain the media-type referenced+-- by the Content-Type header field. horContentEncoding :: Lens' HeadObjectResponse (Maybe Text) horContentEncoding = lens _horContentEncoding (\s a -> s { _horContentEncoding = a })@@ -331,21 +331,20 @@ horContentType :: Lens' HeadObjectResponse (Maybe Text) horContentType = lens _horContentType (\s a -> s { _horContentType = 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. horDeleteMarker :: Lens' HeadObjectResponse (Maybe Bool) horDeleteMarker = lens _horDeleteMarker (\s a -> s { _horDeleteMarker = a }) -- | An ETag is an opaque identifier assigned by a web server to a specific--- version of a resource found at a URL.+-- version of a resource found at a URL horETag :: Lens' HeadObjectResponse (Maybe Text) horETag = lens _horETag (\s a -> s { _horETag = 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.+-- 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. horExpiration :: Lens' HeadObjectResponse (Maybe UTCTime) horExpiration = lens _horExpiration (\s a -> s { _horExpiration = a }) . mapping _Time @@ -353,7 +352,7 @@ horExpires :: Lens' HeadObjectResponse (Maybe UTCTime) horExpires = lens _horExpires (\s a -> s { _horExpires = a }) . mapping _Time --- | Last modified date of the object.+-- | Last modified date of the object horLastModified :: Lens' HeadObjectResponse (Maybe UTCTime) horLastModified = lens _horLastModified (\s a -> s { _horLastModified = a }) . mapping _Time @@ -362,21 +361,20 @@ horMetadata = lens _horMetadata (\s a -> s { _horMetadata = a }) . _Map -- | 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.+-- 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. horMissingMeta :: Lens' HeadObjectResponse (Maybe Int) horMissingMeta = lens _horMissingMeta (\s a -> s { _horMissingMeta = a }) --- | 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. horRestore :: Lens' HeadObjectResponse (Maybe Text) horRestore = lens _horRestore (\s a -> s { _horRestore = a }) -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. horSSECustomerAlgorithm :: Lens' HeadObjectResponse (Maybe Text) horSSECustomerAlgorithm = lens _horSSECustomerAlgorithm (\s a -> s { _horSSECustomerAlgorithm = a })@@ -402,9 +400,9 @@ horVersionId :: Lens' HeadObjectResponse (Maybe Text) horVersionId = lens _horVersionId (\s a -> s { _horVersionId = 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. horWebsiteRedirectLocation :: Lens' HeadObjectResponse (Maybe Text) horWebsiteRedirectLocation = lens _horWebsiteRedirectLocation
gen/Network/AWS/S3/ListBuckets.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/ListMultipartUploads.hs view
@@ -58,7 +58,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -112,25 +112,25 @@ lmuEncodingType :: Lens' ListMultipartUploads (Maybe EncodingType) lmuEncodingType = lens _lmuEncodingType (\s a -> s { _lmuEncodingType = a }) --- | 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 }) --- | 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+-- | 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 }) --- | 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 }) --- | 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 })@@ -238,9 +238,8 @@ lmurNextUploadIdMarker = lens _lmurNextUploadIdMarker (\s a -> s { _lmurNextUploadIdMarker = 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. lmurPrefix :: Lens' ListMultipartUploadsResponse (Maybe Text) lmurPrefix = lens _lmurPrefix (\s a -> s { _lmurPrefix = a })
gen/Network/AWS/S3/ListObjectVersions.hs view
@@ -59,7 +59,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -117,8 +117,8 @@ lovKeyMarker :: Lens' ListObjectVersions (Maybe Text) lovKeyMarker = lens _lovKeyMarker (\s a -> s { _lovKeyMarker = 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 }) @@ -211,11 +211,11 @@ lovrEncodingType :: Lens' ListObjectVersionsResponse (Maybe EncodingType) lovrEncodingType = lens _lovrEncodingType (\s a -> s { _lovrEncodingType = 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. lovrIsTruncated :: Lens' ListObjectVersionsResponse (Maybe Bool) lovrIsTruncated = lens _lovrIsTruncated (\s a -> s { _lovrIsTruncated = a }) @@ -229,8 +229,7 @@ lovrName :: Lens' ListObjectVersionsResponse (Maybe Text) lovrName = lens _lovrName (\s a -> s { _lovrName = 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. lovrNextKeyMarker :: Lens' ListObjectVersionsResponse (Maybe Text) lovrNextKeyMarker = lens _lovrNextKeyMarker (\s a -> s { _lovrNextKeyMarker = a })
gen/Network/AWS/S3/ListObjects.hs view
@@ -20,9 +20,9 @@ -- Stability : experimental -- 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. -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/ListObjects.html> module Network.AWS.S3.ListObjects@@ -57,7 +57,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -111,8 +111,8 @@ 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 }) @@ -186,8 +186,8 @@ lorEncodingType :: Lens' ListObjectsResponse (Maybe EncodingType) lorEncodingType = lens _lorEncodingType (\s a -> s { _lorEncodingType = 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. lorIsTruncated :: Lens' ListObjectsResponse (Maybe Bool) lorIsTruncated = lens _lorIsTruncated (\s a -> s { _lorIsTruncated = a }) @@ -200,14 +200,13 @@ lorName :: Lens' ListObjectsResponse (Maybe Text) lorName = lens _lorName (\s a -> s { _lorName = 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. lorNextMarker :: Lens' ListObjectsResponse (Maybe Text) lorNextMarker = lens _lorNextMarker (\s a -> s { _lorNextMarker = a })
gen/Network/AWS/S3/ListParts.hs view
@@ -55,7 +55,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -103,8 +103,8 @@ lpMaxParts :: Lens' ListParts (Maybe Int) lpMaxParts = lens _lpMaxParts (\s a -> s { _lpMaxParts = 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 })@@ -188,9 +188,9 @@ lprMaxParts :: Lens' ListPartsResponse (Maybe Int) lprMaxParts = lens _lprMaxParts (\s a -> s { _lprMaxParts = a }) --- | 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. lprNextPartNumberMarker :: Lens' ListPartsResponse (Maybe Int) lprNextPartNumberMarker = lens _lprNextPartNumberMarker (\s a -> s { _lprNextPartNumberMarker = a })
gen/Network/AWS/S3/PutBucketAcl.hs view
@@ -47,7 +47,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -113,8 +113,8 @@ pbaContentMD5 :: Lens' PutBucketAcl (Maybe Text) pbaContentMD5 = lens _pbaContentMD5 (\s a -> s { _pbaContentMD5 = 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 })
gen/Network/AWS/S3/PutBucketCors.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketLifecycle.hs view
@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketLogging.hs view
@@ -43,7 +43,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketNotification.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketPolicy.hs view
@@ -20,8 +20,8 @@ -- Stability : experimental -- 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. -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/PutBucketPolicy.html> module Network.AWS.S3.PutBucketPolicy@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketRequestPayment.hs view
@@ -44,7 +44,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketTagging.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutBucketVersioning.hs view
@@ -20,8 +20,8 @@ -- Stability : experimental -- 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. -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/PutBucketVersioning.html> module Network.AWS.S3.PutBucketVersioning@@ -43,7 +43,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -82,8 +82,8 @@ pbvContentMD5 :: Lens' PutBucketVersioning (Maybe Text) pbvContentMD5 = lens _pbvContentMD5 (\s a -> s { _pbvContentMD5 = 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. pbvMFA :: Lens' PutBucketVersioning (Maybe Text) pbvMFA = lens _pbvMFA (\s a -> s { _pbvMFA = a })
gen/Network/AWS/S3/PutBucketWebsite.hs view
@@ -41,7 +41,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/PutObject.hs view
@@ -70,7 +70,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -85,7 +85,7 @@ , _poContentLength :: Maybe Int , _poContentMD5 :: Maybe Text , _poContentType :: Maybe Text- , _poExpires :: Maybe RFC822+ , _poExpires :: Maybe ISO8601 , _poGrantFullControl :: Maybe Text , _poGrantRead :: Maybe Text , _poGrantReadACP :: Maybe Text@@ -205,8 +205,8 @@ lens _poContentDisposition (\s a -> s { _poContentDisposition = 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.+-- 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 })@@ -216,8 +216,8 @@ poContentLanguage = lens _poContentLanguage (\s a -> s { _poContentLanguage = a }) --- | 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 }) @@ -232,8 +232,7 @@ poExpires :: Lens' PutObject (Maybe UTCTime) poExpires = lens _poExpires (\s a -> s { _poExpires = a }) . mapping _Time --- | 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 })@@ -257,8 +256,8 @@ poMetadata :: Lens' PutObject (HashMap (CI Text) Text) poMetadata = lens _poMetadata (\s a -> s { _poMetadata = a }) . _Map --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). poSSECustomerAlgorithm :: Lens' PutObject (Maybe Text) poSSECustomerAlgorithm = lens _poSSECustomerAlgorithm (\s a -> s { _poSSECustomerAlgorithm = a })@@ -267,13 +266,13 @@ -- 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.+-- x-amz-server-side-encryption-customer-algorithm header. poSSECustomerKey :: Lens' PutObject (Maybe Text) poSSECustomerKey = lens _poSSECustomerKey (\s a -> s { _poSSECustomerKey = a }) . mapping _Sensitive --- | Specifies the 128-bit MD5 digest of the encryption key according to RFC--- 1321. Amazon S3 uses this header for a message integrity check to ensure--- the encryption key was transmitted without error.+-- | 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 })@@ -292,9 +291,9 @@ poStorageClass :: Lens' PutObject (Maybe StorageClass) poStorageClass = lens _poStorageClass (\s a -> s { _poStorageClass = 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@@ -302,7 +301,7 @@ data PutObjectResponse = PutObjectResponse { _porETag :: Maybe Text- , _porExpiration :: Maybe RFC822+ , _porExpiration :: Maybe ISO8601 , _porSSECustomerAlgorithm :: Maybe Text , _porSSECustomerKeyMD5 :: Maybe Text , _porSSEKMSKeyId :: Maybe (Sensitive Text)@@ -343,15 +342,14 @@ porETag :: Lens' PutObjectResponse (Maybe Text) porETag = lens _porETag (\s a -> s { _porETag = 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. porExpiration :: Lens' PutObjectResponse (Maybe UTCTime) porExpiration = lens _porExpiration (\s a -> s { _porExpiration = a }) . mapping _Time -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. porSSECustomerAlgorithm :: Lens' PutObjectResponse (Maybe Text) porSSECustomerAlgorithm = lens _porSSECustomerAlgorithm (\s a -> s { _porSSECustomerAlgorithm = a })
gen/Network/AWS/S3/PutObjectAcl.hs view
@@ -20,8 +20,8 @@ -- Stability : experimental -- 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 -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/PutObjectAcl.html> module Network.AWS.S3.PutObjectAcl@@ -49,7 +49,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -120,8 +120,8 @@ poaContentMD5 :: Lens' PutObjectAcl (Maybe Text) poaContentMD5 = lens _poaContentMD5 (\s a -> s { _poaContentMD5 = 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 })
gen/Network/AWS/S3/RestoreObject.hs view
@@ -20,7 +20,7 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Restores an archived copy of an object back into Amazon S3.+-- | Restores an archived copy of an object back into Amazon S3 -- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/RestoreObject.html> module Network.AWS.S3.RestoreObject@@ -42,7 +42,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts
gen/Network/AWS/S3/Types.hs view
@@ -453,11 +453,14 @@ instance Hashable Event instance FromText Event where- parser = match "s3:ObjectCreated:CompleteMultipartUpload" S3ObjectCreatedCompleteMultipartUpload- <|> match "s3:ObjectCreated:Copy" S3ObjectCreatedCopy- <|> match "s3:ObjectCreated:Post" S3ObjectCreatedPost- <|> match "s3:ObjectCreated:Put" S3ObjectCreatedPut- <|> match "s3:ReducedRedundancyLostObject" S3ReducedRedundancyLostObject+ parser = takeText >>= \case+ "s3:ObjectCreated:CompleteMultipartUpload" -> pure S3ObjectCreatedCompleteMultipartUpload+ "s3:ObjectCreated:Copy" -> pure S3ObjectCreatedCopy+ "s3:ObjectCreated:Post" -> pure S3ObjectCreatedPost+ "s3:ObjectCreated:Put" -> pure S3ObjectCreatedPut+ "s3:ReducedRedundancyLostObject" -> pure S3ReducedRedundancyLostObject+ e -> fail $+ "Failure parsing Event from " ++ show e instance ToText Event where toText = \case@@ -495,8 +498,8 @@ -- | 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 How Amazon S3 Calculates When an Object Became--- Noncurrent in the Amazon Simple Storage Service Developer Guide.+-- 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 })@@ -533,13 +536,13 @@ , _tStorageClass = Nothing } --- | 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 --- | 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 }) @@ -563,7 +566,7 @@ data DeleteMarkerEntry = DeleteMarkerEntry { _dmeIsLatest :: Maybe Bool , _dmeKey :: Maybe Text- , _dmeLastModified :: Maybe RFC822+ , _dmeLastModified :: Maybe ISO8601 , _dmeOwner :: Maybe Owner , _dmeVersionId :: Maybe Text } deriving (Eq, Show)@@ -591,8 +594,8 @@ , _dmeLastModified = Nothing } --- | 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 }) @@ -636,8 +639,11 @@ instance Hashable ExpirationStatus instance FromText ExpirationStatus where- parser = match "Disabled" Disabled- <|> match "Enabled" Enabled+ parser = takeText >>= \case+ "Disabled" -> pure Disabled+ "Enabled" -> pure Enabled+ e -> fail $+ "Failure parsing ExpirationStatus from " ++ show e instance ToText ExpirationStatus where toText = \case@@ -656,7 +662,7 @@ data Part = Part { _pETag :: Maybe Text- , _pLastModified :: Maybe RFC822+ , _pLastModified :: Maybe ISO8601 , _pPartNumber :: Maybe Int , _pSize :: Maybe Int } deriving (Eq, Ord, Show)@@ -733,8 +739,8 @@ -- | 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.+-- 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 }) @@ -802,9 +808,12 @@ instance Hashable ObjectStorageClass instance FromText ObjectStorageClass where- parser = match "GLACIER" Glacier- <|> match "REDUCED_REDUNDANCY" ReducedRedundancy- <|> match "STANDARD" Standard+ parser = takeText >>= \case+ "GLACIER" -> pure Glacier+ "REDUCED_REDUNDANCY" -> pure ReducedRedundancy+ "STANDARD" -> pure Standard+ e -> fail $+ "Failure parsing ObjectStorageClass from " ++ show e instance ToText ObjectStorageClass where toText = \case@@ -830,8 +839,11 @@ instance Hashable MetadataDirective instance FromText MetadataDirective where- parser = match "COPY" Copy- <|> match "REPLACE" Replace+ parser = takeText >>= \case+ "COPY" -> pure Copy+ "REPLACE" -> pure Replace+ e -> fail $+ "Failure parsing MetadataDirective from " ++ show e instance ToText MetadataDirective where toText = \case@@ -872,8 +884,8 @@ rartHostName :: Lens' RedirectAllRequestsTo Text rartHostName = lens _rartHostName (\s a -> s { _rartHostName = 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. rartProtocol :: Lens' RedirectAllRequestsTo (Maybe Protocol) rartProtocol = lens _rartProtocol (\s a -> s { _rartProtocol = a }) @@ -911,14 +923,13 @@ -- | 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.+-- 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.+-- 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 }) @@ -1048,12 +1059,15 @@ instance Hashable ObjectCannedACL instance FromText ObjectCannedACL where- parser = match "authenticated-read" AuthenticatedRead- <|> match "bucket-owner-full-control" BucketOwnerFullControl- <|> match "bucket-owner-read" BucketOwnerRead- <|> match "private" Private- <|> match "public-read" PublicRead- <|> match "public-read-write" PublicReadWrite+ parser = takeText >>= \case+ "authenticated-read" -> pure AuthenticatedRead+ "bucket-owner-full-control" -> pure BucketOwnerFullControl+ "bucket-owner-read" -> pure BucketOwnerRead+ "private" -> pure Private+ "public-read" -> pure PublicRead+ "public-read-write" -> pure PublicReadWrite+ e -> fail $+ "Failure parsing ObjectCannedACL from " ++ show e instance ToText ObjectCannedACL where toText = \case@@ -1082,8 +1096,11 @@ instance Hashable BucketVersioningStatus instance FromText BucketVersioningStatus where- parser = match "Enabled" BVSEnabled- <|> match "Suspended" BVSSuspended+ parser = takeText >>= \case+ "Enabled" -> pure BVSEnabled+ "Suspended" -> pure BVSSuspended+ e -> fail $+ "Failure parsing BucketVersioningStatus from " ++ show e instance ToText BucketVersioningStatus where toText = \case@@ -1163,7 +1180,10 @@ instance Hashable ObjectVersionStorageClass instance FromText ObjectVersionStorageClass where- parser = match "STANDARD" OVSCStandard+ parser = takeText >>= \case+ "STANDARD" -> pure OVSCStandard+ e -> fail $+ "Failure parsing ObjectVersionStorageClass from " ++ show e instance ToText ObjectVersionStorageClass where toText OVSCStandard = "STANDARD"@@ -1180,7 +1200,7 @@ data CopyPartResult = CopyPartResult { _cprETag :: Maybe Text- , _cprLastModified :: Maybe RFC822+ , _cprLastModified :: Maybe ISO8601 } deriving (Eq, Ord, Show) -- | 'CopyPartResult' constructor.@@ -1223,7 +1243,10 @@ instance Hashable EncodingType instance FromText EncodingType where- parser = match "url" Url+ parser = takeText >>= \case+ "url" -> pure Url+ e -> fail $+ "Failure parsing EncodingType from " ++ show e instance ToText EncodingType where toText Url = "url"@@ -1311,23 +1334,22 @@ lens _corsrAllowedMethods (\s a -> s { _corsrAllowedMethods = a }) . _List --- | 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. corsrAllowedOrigins :: Lens' CORSRule [Text] corsrAllowedOrigins = lens _corsrAllowedOrigins (\s a -> s { _corsrAllowedOrigins = a }) . _List -- | 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).+-- access from their applications (for example, from a JavaScript XMLHttpRequest+-- object). corsrExposeHeaders :: Lens' CORSRule [Text] corsrExposeHeaders = lens _corsrExposeHeaders (\s a -> s { _corsrExposeHeaders = a }) . _List --- | 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. corsrMaxAgeSeconds :: Lens' CORSRule (Maybe Int) corsrMaxAgeSeconds = lens _corsrMaxAgeSeconds (\s a -> s { _corsrMaxAgeSeconds = a })@@ -1427,8 +1449,8 @@ -- | 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 How Amazon S3 Calculates When an Object Became--- Noncurrent in the Amazon Simple Storage Service Developer Guide.+-- 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 })@@ -1471,8 +1493,8 @@ 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 }) @@ -1527,7 +1549,7 @@ ] data Bucket = Bucket- { _bCreationDate :: Maybe RFC822+ { _bCreationDate :: Maybe ISO8601 , _bName :: Maybe Text } deriving (Eq, Ord, Show) @@ -1572,8 +1594,11 @@ instance Hashable Protocol instance FromText Protocol where- parser = match "http" Http- <|> match "https" Https+ parser = takeText >>= \case+ "http" -> pure Http+ "https" -> pure Https+ e -> fail $+ "Failure parsing Protocol from " ++ show e instance ToText Protocol where toText = \case@@ -1692,8 +1717,8 @@ rPrefix :: Lens' Rule Text rPrefix = lens _rPrefix (\s a -> s { _rPrefix = 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. rStatus :: Lens' Rule ExpirationStatus rStatus = lens _rStatus (\s a -> s { _rStatus = a }) @@ -1935,8 +1960,11 @@ instance Hashable StorageClass instance FromText StorageClass where- parser = match "REDUCED_REDUNDANCY" SCReducedRedundancy- <|> match "STANDARD" SCStandard+ parser = takeText >>= \case+ "REDUCED_REDUNDANCY" -> pure SCReducedRedundancy+ "STANDARD" -> pure SCStandard+ e -> fail $+ "Failure parsing StorageClass from " ++ show e instance ToText StorageClass where toText = \case@@ -1957,7 +1985,7 @@ { _ovETag :: Maybe Text , _ovIsLatest :: Maybe Bool , _ovKey :: Maybe Text- , _ovLastModified :: Maybe RFC822+ , _ovLastModified :: Maybe ISO8601 , _ovOwner :: Maybe Owner , _ovSize :: Maybe Int , _ovStorageClass :: Maybe ObjectVersionStorageClass@@ -1999,8 +2027,8 @@ ovETag :: Lens' ObjectVersion (Maybe Text) ovETag = lens _ovETag (\s a -> s { _ovETag = 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 }) @@ -2095,8 +2123,11 @@ instance Hashable MFADeleteStatus instance FromText MFADeleteStatus where- parser = match "Disabled" MFADSDisabled- <|> match "Enabled" MFADSEnabled+ parser = takeText >>= \case+ "Disabled" -> pure MFADSDisabled+ "Enabled" -> pure MFADSEnabled+ e -> fail $+ "Failure parsing MFADeleteStatus from " ++ show e instance ToText MFADeleteStatus where toText = \case@@ -2121,8 +2152,11 @@ instance Hashable Payer instance FromText Payer where- parser = match "BucketOwner" BucketOwner- <|> match "Requester" Requester+ parser = takeText >>= \case+ "BucketOwner" -> pure BucketOwner+ "Requester" -> pure Requester+ e -> fail $+ "Failure parsing Payer from " ++ show e instance ToText Payer where toText = \case@@ -2180,24 +2214,24 @@ rHttpRedirectCode = lens _rHttpRedirectCode (\s a -> s { _rHttpRedirectCode = 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 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+-- 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 }) --- | 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 }) @@ -2227,9 +2261,12 @@ instance Hashable BucketLogsPermission instance FromText BucketLogsPermission where- parser = match "FULL_CONTROL" FullControl- <|> match "READ" Read- <|> match "WRITE" Write+ parser = takeText >>= \case+ "FULL_CONTROL" -> pure FullControl+ "READ" -> pure Read+ "WRITE" -> pure Write+ e -> fail $+ "Failure parsing BucketLogsPermission from " ++ show e instance ToText BucketLogsPermission where toText = \case@@ -2366,13 +2403,13 @@ , _leDays = Nothing } --- | 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 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 }) @@ -2417,7 +2454,7 @@ data Object = Object { _oETag :: Text , _oKey :: Text- , _oLastModified :: RFC822+ , _oLastModified :: ISO8601 , _oOwner :: Owner , _oSize :: Int , _oStorageClass :: ObjectStorageClass@@ -2521,7 +2558,7 @@ ] data MultipartUpload = MultipartUpload- { _muInitiated :: Maybe RFC822+ { _muInitiated :: Maybe ISO8601 , _muInitiator :: Maybe Initiator , _muKey :: Maybe Text , _muOwner :: Maybe Owner@@ -2606,9 +2643,12 @@ instance Hashable Type instance FromText Type where- parser = match "AmazonCustomerByEmail" AmazonCustomerByEmail- <|> match "CanonicalUser" CanonicalUser- <|> match "Group" Group+ parser = takeText >>= \case+ "AmazonCustomerByEmail" -> pure AmazonCustomerByEmail+ "CanonicalUser" -> pure CanonicalUser+ "Group" -> pure Group+ e -> fail $+ "Failure parsing Type from " ++ show e instance ToText Type where toText = \case@@ -2633,7 +2673,10 @@ instance Hashable TransitionStorageClass instance FromText TransitionStorageClass where- parser = match "GLACIER" TSCGlacier+ parser = takeText >>= \case+ "GLACIER" -> pure TSCGlacier+ e -> fail $+ "Failure parsing TransitionStorageClass from " ++ show e instance ToText TransitionStorageClass where toText TSCGlacier = "GLACIER"@@ -2694,11 +2737,11 @@ , _cKeyPrefixEquals = Nothing } --- | 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@@ -2706,11 +2749,11 @@ -- | 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.+-- 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 }) @@ -2736,11 +2779,14 @@ instance Hashable Permission instance FromText Permission where- parser = match "FULL_CONTROL" PFullControl- <|> match "READ" PRead- <|> match "READ_ACP" PReadAcp- <|> match "WRITE" PWrite- <|> match "WRITE_ACP" PWriteAcp+ parser = takeText >>= \case+ "FULL_CONTROL" -> pure PFullControl+ "READ" -> pure PRead+ "READ_ACP" -> pure PReadAcp+ "WRITE" -> pure PWrite+ "WRITE_ACP" -> pure PWriteAcp+ e -> fail $+ "Failure parsing Permission from " ++ show e instance ToText Permission where toText = \case@@ -2809,10 +2855,13 @@ instance Hashable BucketCannedACL instance FromText BucketCannedACL where- parser = match "authenticated-read" CannedAuthenticatedRead- <|> match "private" CannedPrivate- <|> match "public-read" CannedPublicRead- <|> match "public-read-write" CannedPublicReadWrite+ parser = takeText >>= \case+ "authenticated-read" -> pure CannedAuthenticatedRead+ "private" -> pure CannedPrivate+ "public-read" -> pure CannedPublicRead+ "public-read-write" -> pure CannedPublicReadWrite+ e -> fail $+ "Failure parsing BucketCannedACL from " ++ show e instance ToText BucketCannedACL where toText = \case@@ -2839,8 +2888,11 @@ instance Hashable MFADelete instance FromText MFADelete where- parser = match "Disabled" MFADDisabled- <|> match "Enabled" MFADEnabled+ parser = takeText >>= \case+ "Disabled" -> pure MFADDisabled+ "Enabled" -> pure MFADEnabled+ e -> fail $+ "Failure parsing MFADelete from " ++ show e instance ToText MFADelete where toText = \case@@ -2965,7 +3017,7 @@ gID :: Lens' Grantee (Maybe Text) gID = lens _gID (\s a -> s { _gID = a }) --- | Type of grantee.+-- | Type of grantee gType :: Lens' Grantee Type gType = lens _gType (\s a -> s { _gType = a }) @@ -3040,20 +3092,20 @@ , _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 }) leTargetGrants :: Lens' LoggingEnabled [TargetGrant] leTargetGrants = lens _leTargetGrants (\s a -> s { _leTargetGrants = a }) . _List --- | 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 }) @@ -3077,7 +3129,10 @@ instance Hashable ServerSideEncryption instance FromText ServerSideEncryption where- parser = match "AES256" AES256+ parser = takeText >>= \case+ "AES256" -> pure AES256+ e -> fail $+ "Failure parsing ServerSideEncryption from " ++ show e instance ToText ServerSideEncryption where toText AES256 = "AES256"@@ -3108,11 +3163,11 @@ { _idSuffix = p1 } --- | 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 }) @@ -3127,7 +3182,7 @@ data CopyObjectResult = CopyObjectResult { _corETag :: Maybe Text- , _corLastModified :: Maybe RFC822+ , _corLastModified :: Maybe ISO8601 } deriving (Eq, Ord, Show) -- | 'CopyObjectResult' constructor.@@ -3183,8 +3238,8 @@ dObjects :: Lens' Delete [ObjectIdentifier] dObjects = lens _dObjects (\s a -> s { _dObjects = a }) . _List --- | 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 }) @@ -3215,7 +3270,7 @@ { _rDays = p1 } --- | Lifetime of the active copy in days.+-- | Lifetime of the active copy in days rDays :: Lens' RestoreRequest Int rDays = lens _rDays (\s a -> s { _rDays = a })
gen/Network/AWS/S3/UploadPart.hs view
@@ -20,13 +20,14 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | 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.+-- | 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.+-- -- <http://docs.aws.amazon.com/AmazonS3/latest/API/UploadPart.html> module Network.AWS.S3.UploadPart (@@ -60,7 +61,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -130,8 +131,8 @@ upBucket :: Lens' UploadPart Text upBucket = lens _upBucket (\s a -> s { _upBucket = a }) --- | 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 }) @@ -145,8 +146,8 @@ upPartNumber :: Lens' UploadPart Int upPartNumber = lens _upPartNumber (\s a -> s { _upPartNumber = a }) --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). upSSECustomerAlgorithm :: Lens' UploadPart (Maybe Text) upSSECustomerAlgorithm = lens _upSSECustomerAlgorithm (\s a -> s { _upSSECustomerAlgorithm = a })@@ -155,15 +156,14 @@ -- 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.+-- 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 --- | 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 })@@ -212,8 +212,8 @@ uprETag = lens _uprETag (\s a -> s { _uprETag = a }) -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. uprSSECustomerAlgorithm :: Lens' UploadPartResponse (Maybe Text) uprSSECustomerAlgorithm = lens _uprSSECustomerAlgorithm (\s a -> s { _uprSSECustomerAlgorithm = a })
gen/Network/AWS/S3/UploadPartCopy.hs view
@@ -62,7 +62,7 @@ ) where import Network.AWS.Prelude-import Network.AWS.Request.RestXML+import Network.AWS.Request.S3 import Network.AWS.S3.Types import qualified GHC.Exts @@ -70,9 +70,9 @@ { _upcBucket :: Text , _upcCopySource :: Text , _upcCopySourceIfMatch :: Maybe Text- , _upcCopySourceIfModifiedSince :: Maybe RFC822+ , _upcCopySourceIfModifiedSince :: Maybe ISO8601 , _upcCopySourceIfNoneMatch :: Maybe Text- , _upcCopySourceIfUnmodifiedSince :: Maybe RFC822+ , _upcCopySourceIfUnmodifiedSince :: Maybe ISO8601 , _upcCopySourceRange :: Maybe Text , _upcCopySourceSSECustomerAlgorithm :: Maybe Text , _upcCopySourceSSECustomerKey :: Maybe (Sensitive Text)@@ -153,8 +153,8 @@ upcBucket :: Lens' UploadPartCopy Text 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 }) @@ -170,8 +170,8 @@ (\s a -> s { _upcCopySourceIfModifiedSince = a }) . mapping _Time --- | 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@@ -184,11 +184,11 @@ (\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 })@@ -201,17 +201,17 @@ (\s a -> s { _upcCopySourceSSECustomerAlgorithm = 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.+-- 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 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@@ -231,8 +231,8 @@ upcPartNumber :: Lens' UploadPartCopy Int upcPartNumber = lens _upcPartNumber (\s a -> s { _upcPartNumber = a }) --- | Specifies the algorithm to use to when encrypting the object (e.g.,--- AES256, aws:kms).+-- | Specifies the algorithm to use to when encrypting the object (e.g., AES256,+-- aws:kms). upcSSECustomerAlgorithm :: Lens' UploadPartCopy (Maybe Text) upcSSECustomerAlgorithm = lens _upcSSECustomerAlgorithm (\s a -> s { _upcSSECustomerAlgorithm = a })@@ -241,17 +241,16 @@ -- 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.+-- 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 --- | 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 })@@ -306,8 +305,8 @@ lens _upcrCopySourceVersionId (\s a -> s { _upcrCopySourceVersionId = a }) -- | If server-side encryption with a customer-provided encryption key was--- requested, the response will include this header confirming the--- encryption algorithm used.+-- requested, the response will include this header confirming the encryption+-- algorithm used. upcrSSECustomerAlgorithm :: Lens' UploadPartCopyResponse (Maybe Text) upcrSSECustomerAlgorithm = lens _upcrSSECustomerAlgorithm