amazonka-s3 1.4.3 → 1.4.4

raw patch · 14 files changed

+358/−35 lines, 14 filesdep ~amazonka-coredep ~amazonka-s3dep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-s3.cabal +6/−5
• fixture/PutBucketLifecycle.yaml +0/−0
• fixture/PutBucketLifecycleResponse.proto +0/−0
• gen/Network/AWS/S3.hs +4/−0
• gen/Network/AWS/S3/GetBucketReplication.hs +1/−1
• gen/Network/AWS/S3/GetObject.hs +2/−2
• gen/Network/AWS/S3/HeadObject.hs +2/−2
• gen/Network/AWS/S3/ListObjectsV.hs +300/−0
• gen/Network/AWS/S3/PutObject.hs +2/−2
• gen/Network/AWS/S3/Types/Product.hs +2/−2
• gen/Network/AWS/S3/Types/Sum.hs +18/−18
• gen/Network/AWS/S3/UploadPart.hs +2/−2
• test/Test/AWS/Gen/S3.hs +18/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-s3-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -77,6 +77,7 @@         , Network.AWS.S3.ListMultipartUploads         , Network.AWS.S3.ListObjectVersions         , Network.AWS.S3.ListObjects+        , Network.AWS.S3.ListObjectsV         , Network.AWS.S3.ListParts         , Network.AWS.S3.PutBucketACL         , Network.AWS.S3.PutBucketAccelerateConfiguration@@ -104,7 +105,7 @@         , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5         , lens >= 4.4         , text >= 1.1@@ -126,9 +127,9 @@         , Test.AWS.S3.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-s3 == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-s3 == 1.4.4.*         , base         , bytestring         , tasty

@@ -98,6 +98,9 @@     -- ** PutBucketAccelerateConfiguration     , module Network.AWS.S3.PutBucketAccelerateConfiguration +    -- ** ListObjectsV+    , module Network.AWS.S3.ListObjectsV+     -- ** GetObject     , module Network.AWS.S3.GetObject @@ -710,6 +713,7 @@ import           Network.AWS.S3.ListBuckets import           Network.AWS.S3.ListMultipartUploads import           Network.AWS.S3.ListObjects+import           Network.AWS.S3.ListObjectsV import           Network.AWS.S3.ListObjectVersions import           Network.AWS.S3.ListParts import           Network.AWS.S3.PutBucketAccelerateConfiguration

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deprecated, see the GetBucketReplicationConfiguration operation.+-- Returns the replication configuration of a bucket. module Network.AWS.S3.GetBucketReplication     (     -- * Creating a Request

@@ -325,7 +325,7 @@     { _gorsRequestCharged          :: !(Maybe RequestCharged)     , _gorsETag                    :: !(Maybe ETag)     , _gorsVersionId               :: !(Maybe ObjectVersionId)-    , _gorsContentLength           :: !(Maybe Int)+    , _gorsContentLength           :: !(Maybe Integer)     , _gorsExpires                 :: !(Maybe RFC822)     , _gorsRestore                 :: !(Maybe Text)     , _gorsExpiration              :: !(Maybe Text)@@ -456,7 +456,7 @@ gorsVersionId = lens _gorsVersionId (\ s a -> s{_gorsVersionId = a});  -- | Size of the body in bytes.-gorsContentLength :: Lens' GetObjectResponse (Maybe Int)+gorsContentLength :: Lens' GetObjectResponse (Maybe Integer) gorsContentLength = lens _gorsContentLength (\ s a -> s{_gorsContentLength = a});  -- | The date and time at which the object is no longer cacheable.

@@ -257,7 +257,7 @@     { _horsRequestCharged          :: !(Maybe RequestCharged)     , _horsETag                    :: !(Maybe ETag)     , _horsVersionId               :: !(Maybe ObjectVersionId)-    , _horsContentLength           :: !(Maybe Int)+    , _horsContentLength           :: !(Maybe Integer)     , _horsExpires                 :: !(Maybe RFC822)     , _horsRestore                 :: !(Maybe Text)     , _horsExpiration              :: !(Maybe Text)@@ -379,7 +379,7 @@ horsVersionId = lens _horsVersionId (\ s a -> s{_horsVersionId = a});  -- | Size of the body in bytes.-horsContentLength :: Lens' HeadObjectResponse (Maybe Int)+horsContentLength :: Lens' HeadObjectResponse (Maybe Integer) horsContentLength = lens _horsContentLength (\ s a -> s{_horsContentLength = a});  -- | The date and time at which the object is no longer cacheable.

@@ -0,0 +1,300 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.S3.ListObjectsV+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns 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. Note: ListObjectsV2 is the revised List Objects API and we recommend you use this revised API for new application development.+module Network.AWS.S3.ListObjectsV+    (+    -- * Creating a Request+      listObjectsV+    , ListObjectsV+    -- * Request Lenses+    , lStartAfter+    , lContinuationToken+    , lFetchOwner+    , lPrefix+    , lEncodingType+    , lMaxKeys+    , lDelimiter+    , lBucket++    -- * Destructuring the Response+    , listObjectsVResponse+    , ListObjectsVResponse+    -- * Response Lenses+    , lrsStartAfter+    , lrsKeyCount+    , lrsContents+    , lrsContinuationToken+    , lrsPrefix+    , lrsCommonPrefixes+    , lrsEncodingType+    , lrsName+    , lrsNextContinuationToken+    , lrsMaxKeys+    , lrsIsTruncated+    , lrsDelimiter+    , lrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.S3.Types+import           Network.AWS.S3.Types.Product++-- | /See:/ 'listObjectsV' smart constructor.+data ListObjectsV = ListObjectsV'+    { _lStartAfter        :: !(Maybe Text)+    , _lContinuationToken :: !(Maybe Text)+    , _lFetchOwner        :: !(Maybe Bool)+    , _lPrefix            :: !(Maybe Text)+    , _lEncodingType      :: !(Maybe EncodingType)+    , _lMaxKeys           :: !(Maybe Int)+    , _lDelimiter         :: !(Maybe Delimiter)+    , _lBucket            :: !BucketName+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListObjectsV' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lStartAfter'+--+-- * 'lContinuationToken'+--+-- * 'lFetchOwner'+--+-- * 'lPrefix'+--+-- * 'lEncodingType'+--+-- * 'lMaxKeys'+--+-- * 'lDelimiter'+--+-- * 'lBucket'+listObjectsV+    :: BucketName -- ^ 'lBucket'+    -> ListObjectsV+listObjectsV pBucket_ =+    ListObjectsV'+    { _lStartAfter = Nothing+    , _lContinuationToken = Nothing+    , _lFetchOwner = Nothing+    , _lPrefix = Nothing+    , _lEncodingType = Nothing+    , _lMaxKeys = Nothing+    , _lDelimiter = Nothing+    , _lBucket = pBucket_+    }++-- | StartAfter is where you want Amazon S3 to start listing from. Amazon S3 starts listing after this specified key. StartAfter can be any key in the bucket+lStartAfter :: Lens' ListObjectsV (Maybe Text)+lStartAfter = lens _lStartAfter (\ s a -> s{_lStartAfter = a});++-- | ContinuationToken indicates Amazon S3 that the list is being continued on this bucket with a token. ContinuationToken is obfuscated and is not a real key+lContinuationToken :: Lens' ListObjectsV (Maybe Text)+lContinuationToken = lens _lContinuationToken (\ s a -> s{_lContinuationToken = a});++-- | The owner field is not present in listV2 by default, if you want to return owner field with each key in the result then set the fetch owner field to true+lFetchOwner :: Lens' ListObjectsV (Maybe Bool)+lFetchOwner = lens _lFetchOwner (\ s a -> s{_lFetchOwner = a});++-- | Limits the response to keys that begin with the specified prefix.+lPrefix :: Lens' ListObjectsV (Maybe Text)+lPrefix = lens _lPrefix (\ s a -> s{_lPrefix = a});++-- | Encoding type used by Amazon S3 to encode object keys in the response.+lEncodingType :: Lens' ListObjectsV (Maybe EncodingType)+lEncodingType = lens _lEncodingType (\ s a -> s{_lEncodingType = a});++-- | Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more.+lMaxKeys :: Lens' ListObjectsV (Maybe Int)+lMaxKeys = lens _lMaxKeys (\ s a -> s{_lMaxKeys = a});++-- | A delimiter is a character you use to group keys.+lDelimiter :: Lens' ListObjectsV (Maybe Delimiter)+lDelimiter = lens _lDelimiter (\ s a -> s{_lDelimiter = a});++-- | Name of the bucket to list.+lBucket :: Lens' ListObjectsV BucketName+lBucket = lens _lBucket (\ s a -> s{_lBucket = a});++instance AWSRequest ListObjectsV where+        type Rs ListObjectsV = ListObjectsVResponse+        request = get s3+        response+          = receiveXML+              (\ s h x ->+                 ListObjectsVResponse' <$>+                   (x .@? "StartAfter") <*> (x .@? "KeyCount") <*>+                     (may (parseXMLList "Contents") x)+                     <*> (x .@? "ContinuationToken")+                     <*> (x .@? "Prefix")+                     <*> (may (parseXMLList "CommonPrefixes") x)+                     <*> (x .@? "EncodingType")+                     <*> (x .@? "Name")+                     <*> (x .@? "NextContinuationToken")+                     <*> (x .@? "MaxKeys")+                     <*> (x .@? "IsTruncated")+                     <*> (x .@? "Delimiter")+                     <*> (pure (fromEnum s)))++instance Hashable ListObjectsV++instance NFData ListObjectsV++instance ToHeaders ListObjectsV where+        toHeaders = const mempty++instance ToPath ListObjectsV where+        toPath ListObjectsV'{..}+          = mconcat ["/", toBS _lBucket]++instance ToQuery ListObjectsV where+        toQuery ListObjectsV'{..}+          = mconcat+              ["start-after" =: _lStartAfter,+               "continuation-token" =: _lContinuationToken,+               "fetch-owner" =: _lFetchOwner, "prefix" =: _lPrefix,+               "encoding-type" =: _lEncodingType,+               "max-keys" =: _lMaxKeys, "delimiter" =: _lDelimiter,+               "list-type=2"]++-- | /See:/ 'listObjectsVResponse' smart constructor.+data ListObjectsVResponse = ListObjectsVResponse'+    { _lrsStartAfter            :: !(Maybe Text)+    , _lrsKeyCount              :: !(Maybe Int)+    , _lrsContents              :: !(Maybe [Object])+    , _lrsContinuationToken     :: !(Maybe Text)+    , _lrsPrefix                :: !(Maybe Text)+    , _lrsCommonPrefixes        :: !(Maybe [CommonPrefix])+    , _lrsEncodingType          :: !(Maybe EncodingType)+    , _lrsName                  :: !(Maybe BucketName)+    , _lrsNextContinuationToken :: !(Maybe Text)+    , _lrsMaxKeys               :: !(Maybe Int)+    , _lrsIsTruncated           :: !(Maybe Bool)+    , _lrsDelimiter             :: !(Maybe Delimiter)+    , _lrsResponseStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListObjectsVResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrsStartAfter'+--+-- * 'lrsKeyCount'+--+-- * 'lrsContents'+--+-- * 'lrsContinuationToken'+--+-- * 'lrsPrefix'+--+-- * 'lrsCommonPrefixes'+--+-- * 'lrsEncodingType'+--+-- * 'lrsName'+--+-- * 'lrsNextContinuationToken'+--+-- * 'lrsMaxKeys'+--+-- * 'lrsIsTruncated'+--+-- * 'lrsDelimiter'+--+-- * 'lrsResponseStatus'+listObjectsVResponse+    :: Int -- ^ 'lrsResponseStatus'+    -> ListObjectsVResponse+listObjectsVResponse pResponseStatus_ =+    ListObjectsVResponse'+    { _lrsStartAfter = Nothing+    , _lrsKeyCount = Nothing+    , _lrsContents = Nothing+    , _lrsContinuationToken = Nothing+    , _lrsPrefix = Nothing+    , _lrsCommonPrefixes = Nothing+    , _lrsEncodingType = Nothing+    , _lrsName = Nothing+    , _lrsNextContinuationToken = Nothing+    , _lrsMaxKeys = Nothing+    , _lrsIsTruncated = Nothing+    , _lrsDelimiter = Nothing+    , _lrsResponseStatus = pResponseStatus_+    }++-- | StartAfter is where you want Amazon S3 to start listing from. Amazon S3 starts listing after this specified key. StartAfter can be any key in the bucket+lrsStartAfter :: Lens' ListObjectsVResponse (Maybe Text)+lrsStartAfter = lens _lrsStartAfter (\ s a -> s{_lrsStartAfter = a});++-- | KeyCount is the number of keys returned with this request. KeyCount will always be less than equals to MaxKeys field. Say you ask for 50 keys, your result will include less than equals 50 keys+lrsKeyCount :: Lens' ListObjectsVResponse (Maybe Int)+lrsKeyCount = lens _lrsKeyCount (\ s a -> s{_lrsKeyCount = a});++-- | Metadata about each object returned.+lrsContents :: Lens' ListObjectsVResponse [Object]+lrsContents = lens _lrsContents (\ s a -> s{_lrsContents = a}) . _Default . _Coerce;++-- | ContinuationToken indicates Amazon S3 that the list is being continued on this bucket with a token. ContinuationToken is obfuscated and is not a real key+lrsContinuationToken :: Lens' ListObjectsVResponse (Maybe Text)+lrsContinuationToken = lens _lrsContinuationToken (\ s a -> s{_lrsContinuationToken = a});++-- | Limits the response to keys that begin with the specified prefix.+lrsPrefix :: Lens' ListObjectsVResponse (Maybe Text)+lrsPrefix = lens _lrsPrefix (\ s a -> s{_lrsPrefix = a});++-- | CommonPrefixes contains all (if there are any) keys between Prefix and the next occurrence of the string specified by delimiter+lrsCommonPrefixes :: Lens' ListObjectsVResponse [CommonPrefix]+lrsCommonPrefixes = lens _lrsCommonPrefixes (\ s a -> s{_lrsCommonPrefixes = a}) . _Default . _Coerce;++-- | Encoding type used by Amazon S3 to encode object keys in the response.+lrsEncodingType :: Lens' ListObjectsVResponse (Maybe EncodingType)+lrsEncodingType = lens _lrsEncodingType (\ s a -> s{_lrsEncodingType = a});++-- | Name of the bucket to list.+lrsName :: Lens' ListObjectsVResponse (Maybe BucketName)+lrsName = lens _lrsName (\ s a -> s{_lrsName = a});++-- | NextContinuationToken is sent when isTruncated is true which means there are more keys in the bucket that can be listed. The next list requests to Amazon S3 can be continued with this NextContinuationToken. NextContinuationToken is obfuscated and is not a real key+lrsNextContinuationToken :: Lens' ListObjectsVResponse (Maybe Text)+lrsNextContinuationToken = lens _lrsNextContinuationToken (\ s a -> s{_lrsNextContinuationToken = a});++-- | Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more.+lrsMaxKeys :: Lens' ListObjectsVResponse (Maybe Int)+lrsMaxKeys = lens _lrsMaxKeys (\ s a -> s{_lrsMaxKeys = a});++-- | A flag that indicates whether or not Amazon S3 returned all of the results that satisfied the search criteria.+lrsIsTruncated :: Lens' ListObjectsVResponse (Maybe Bool)+lrsIsTruncated = lens _lrsIsTruncated (\ s a -> s{_lrsIsTruncated = a});++-- | A delimiter is a character you use to group keys.+lrsDelimiter :: Lens' ListObjectsVResponse (Maybe Delimiter)+lrsDelimiter = lens _lrsDelimiter (\ s a -> s{_lrsDelimiter = a});++-- | The response status code.+lrsResponseStatus :: Lens' ListObjectsVResponse Int+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});++instance NFData ListObjectsVResponse

@@ -75,7 +75,7 @@  -- | /See:/ 'putObject' smart constructor. data PutObject = PutObject'-    { _poContentLength           :: !(Maybe Int)+    { _poContentLength           :: !(Maybe Integer)     , _poExpires                 :: !(Maybe RFC822)     , _poGrantReadACP            :: !(Maybe Text)     , _poSSECustomerAlgorithm    :: !(Maybe Text)@@ -190,7 +190,7 @@     }  -- | 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' PutObject (Maybe Integer) poContentLength = lens _poContentLength (\ s a -> s{_poContentLength = a});  -- | The date and time at which the object is no longer cacheable.

@@ -1428,7 +1428,7 @@     { _nveNoncurrentDays = pNoncurrentDays_     } --- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent> in the Amazon Simple Storage Service Developer Guide.+-- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see <http://docs.aws.amazon.com/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}); @@ -1470,7 +1470,7 @@     , _nvtStorageClass = pStorageClass_     } --- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see </AmazonS3/latest/dev/s3-access-control.html How Amazon S3 Calculates When an Object Became Noncurrent> in the Amazon Simple Storage Service Developer Guide.+-- | Specifies the number of days an object is noncurrent before Amazon S3 can perform the associated action. For information about the noncurrent days calculations, see <http://docs.aws.amazon.com/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}); 

@@ -30,7 +30,7 @@         "enabled" -> pure BASEnabled         "suspended" -> pure BASSuspended         e -> fromTextError $ "Failure parsing BucketAccelerateStatus from value: '" <> e-           <> "'. Accepted values: Enabled, Suspended"+           <> "'. Accepted values: enabled, suspended"  instance ToText BucketAccelerateStatus where     toText = \case@@ -93,7 +93,7 @@         "read" -> pure Read         "write" -> pure Write         e -> fromTextError $ "Failure parsing BucketLogsPermission from value: '" <> e-           <> "'. Accepted values: FULL_CONTROL, READ, WRITE"+           <> "'. Accepted values: full_control, read, write"  instance ToText BucketLogsPermission where     toText = \case@@ -123,7 +123,7 @@         "enabled" -> pure BVSEnabled         "suspended" -> pure BVSSuspended         e -> fromTextError $ "Failure parsing BucketVersioningStatus from value: '" <> e-           <> "'. Accepted values: Enabled, Suspended"+           <> "'. Accepted values: enabled, suspended"  instance ToText BucketVersioningStatus where     toText = \case@@ -194,7 +194,7 @@         "s3:objectremoved:deletemarkercreated" -> pure S3ObjectRemovedDeleteMarkerCreated         "s3:reducedredundancylostobject" -> pure S3ReducedRedundancyLostObject         e -> fromTextError $ "Failure parsing Event from value: '" <> e-           <> "'. Accepted values: s3:ObjectCreated:*, s3:ObjectCreated:CompleteMultipartUpload, s3:ObjectCreated:Copy, s3:ObjectCreated:Post, s3:ObjectCreated:Put, s3:ObjectRemoved:*, s3:ObjectRemoved:Delete, s3:ObjectRemoved:DeleteMarkerCreated, s3:ReducedRedundancyLostObject"+           <> "'. Accepted values: s3:objectcreated:*, s3:objectcreated:completemultipartupload, s3:objectcreated:copy, s3:objectcreated:post, s3:objectcreated:put, s3:objectremoved:*, s3:objectremoved:delete, s3:objectremoved:deletemarkercreated, s3:reducedredundancylostobject"  instance ToText Event where     toText = \case@@ -230,7 +230,7 @@         "disabled" -> pure ESDisabled         "enabled" -> pure ESEnabled         e -> fromTextError $ "Failure parsing ExpirationStatus from value: '" <> e-           <> "'. Accepted values: Disabled, Enabled"+           <> "'. Accepted values: disabled, enabled"  instance ToText ExpirationStatus where     toText = \case@@ -288,7 +288,7 @@         "disabled" -> pure MDDisabled         "enabled" -> pure MDEnabled         e -> fromTextError $ "Failure parsing MFADelete from value: '" <> e-           <> "'. Accepted values: Disabled, Enabled"+           <> "'. Accepted values: disabled, enabled"  instance ToText MFADelete where     toText = \case@@ -314,7 +314,7 @@         "disabled" -> pure MDSDisabled         "enabled" -> pure MDSEnabled         e -> fromTextError $ "Failure parsing MFADeleteStatus from value: '" <> e-           <> "'. Accepted values: Disabled, Enabled"+           <> "'. Accepted values: disabled, enabled"  instance ToText MFADeleteStatus where     toText = \case@@ -340,7 +340,7 @@         "copy" -> pure Copy         "replace" -> pure Replace         e -> fromTextError $ "Failure parsing MetadataDirective from value: '" <> e-           <> "'. Accepted values: COPY, REPLACE"+           <> "'. Accepted values: copy, replace"  instance ToText MetadataDirective where     toText = \case@@ -411,7 +411,7 @@         "standard" -> pure OSCStandard         "standard_ia" -> pure OSCStandardIA         e -> fromTextError $ "Failure parsing ObjectStorageClass from value: '" <> e-           <> "'. Accepted values: GLACIER, REDUCED_REDUNDANCY, STANDARD, STANDARD_IA"+           <> "'. Accepted values: glacier, reduced_redundancy, standard, standard_ia"  instance ToText ObjectStorageClass where     toText = \case@@ -437,7 +437,7 @@     parser = takeLowerText >>= \case         "standard" -> pure OVSCStandard         e -> fromTextError $ "Failure parsing ObjectVersionStorageClass from value: '" <> e-           <> "'. Accepted values: STANDARD"+           <> "'. Accepted values: standard"  instance ToText ObjectVersionStorageClass where     toText = \case@@ -462,7 +462,7 @@         "bucketowner" -> pure BucketOwner         "requester" -> pure Requester         e -> fromTextError $ "Failure parsing Payer from value: '" <> e-           <> "'. Accepted values: BucketOwner, Requester"+           <> "'. Accepted values: bucketowner, requester"  instance ToText Payer where     toText = \case@@ -497,7 +497,7 @@         "write" -> pure PWrite         "write_acp" -> pure PWriteAcp         e -> fromTextError $ "Failure parsing Permission from value: '" <> e-           <> "'. Accepted values: FULL_CONTROL, READ, READ_ACP, WRITE, WRITE_ACP"+           <> "'. Accepted values: full_control, read, read_acp, write, write_acp"  instance ToText Permission where     toText = \case@@ -558,7 +558,7 @@         "disabled" -> pure Disabled         "enabled" -> pure Enabled         e -> fromTextError $ "Failure parsing ReplicationRuleStatus from value: '" <> e-           <> "'. Accepted values: Disabled, Enabled"+           <> "'. Accepted values: disabled, enabled"  instance ToText ReplicationRuleStatus where     toText = \case@@ -591,7 +591,7 @@         "pending" -> pure Pending         "replica" -> pure Replica         e -> fromTextError $ "Failure parsing ReplicationStatus from value: '" <> e-           <> "'. Accepted values: COMPLETE, FAILED, PENDING, REPLICA"+           <> "'. Accepted values: complete, failed, pending, replica"  instance ToText ReplicationStatus where     toText = \case@@ -667,7 +667,7 @@         "aes256" -> pure AES256         "aws:kms" -> pure AWSKMS         e -> fromTextError $ "Failure parsing ServerSideEncryption from value: '" <> e-           <> "'. Accepted values: AES256, aws:kms"+           <> "'. Accepted values: aes256, aws:kms"  instance ToText ServerSideEncryption where     toText = \case@@ -698,7 +698,7 @@         "standard" -> pure Standard         "standard_ia" -> pure StandardIA         e -> fromTextError $ "Failure parsing StorageClass from value: '" <> e-           <> "'. Accepted values: REDUCED_REDUNDANCY, STANDARD, STANDARD_IA"+           <> "'. Accepted values: reduced_redundancy, standard, standard_ia"  instance ToText StorageClass where     toText = \case@@ -728,7 +728,7 @@         "glacier" -> pure TSCGlacier         "standard_ia" -> pure TSCStandardIA         e -> fromTextError $ "Failure parsing TransitionStorageClass from value: '" <> e-           <> "'. Accepted values: GLACIER, STANDARD_IA"+           <> "'. Accepted values: glacier, standard_ia"  instance ToText TransitionStorageClass where     toText = \case@@ -759,7 +759,7 @@         "canonicaluser" -> pure CanonicalUser         "group" -> pure Group         e -> fromTextError $ "Failure parsing Type from value: '" <> e-           <> "'. Accepted values: AmazonCustomerByEmail, CanonicalUser, Group"+           <> "'. Accepted values: amazoncustomerbyemail, canonicaluser, group"  instance ToText Type where     toText = \case

@@ -61,7 +61,7 @@  -- | /See:/ 'uploadPart' smart constructor. data UploadPart = UploadPart'-    { _upContentLength        :: !(Maybe Int)+    { _upContentLength        :: !(Maybe Integer)     , _upSSECustomerAlgorithm :: !(Maybe Text)     , _upSSECustomerKey       :: !(Maybe (Sensitive Text))     , _upRequestPayer         :: !(Maybe RequestPayer)@@ -122,7 +122,7 @@     }  -- | 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' UploadPart (Maybe Integer) upContentLength = lens _upContentLength (\ s a -> s{_upContentLength = a});  -- | Specifies the algorithm to use to when encrypting the object (e.g., AES256).

@@ -67,6 +67,9 @@ --         , requestPutBucketAccelerateConfiguration $ --             putBucketAccelerateConfiguration --+--         , requestListObjectsV $+--             listObjectsV+-- --         , requestGetObject $ --             getObject --@@ -232,6 +235,9 @@ --         , responsePutBucketAccelerateConfiguration $ --             putBucketAccelerateConfigurationResponse --+--         , responseListObjectsV $+--             listObjectsVResponse+-- --         , responseGetObject $ --             getObjectResponse --@@ -420,6 +426,11 @@     "PutBucketAccelerateConfiguration"     "fixture/PutBucketAccelerateConfiguration.yaml" +requestListObjectsV :: ListObjectsV -> TestTree+requestListObjectsV = req+    "ListObjectsV"+    "fixture/ListObjectsV.yaml"+ requestGetObject :: GetObject -> TestTree requestGetObject = req     "GetObject"@@ -712,6 +723,13 @@     "fixture/PutBucketAccelerateConfigurationResponse.proto"     s3     (Proxy :: Proxy PutBucketAccelerateConfiguration)++responseListObjectsV :: ListObjectsVResponse -> TestTree+responseListObjectsV = res+    "ListObjectsVResponse"+    "fixture/ListObjectsVResponse.proto"+    s3+    (Proxy :: Proxy ListObjectsV)  responsePutBucketReplication :: PutBucketReplicationResponse -> TestTree responsePutBucketReplication = res