Regenerating amazonka-s3 from latest service definition

amazonka-s3/gen/Network/AWS/S3.hs

@@ -298,6 +298,9 @@ module Network.AWS.S3
     -- ** StorageClass
     , StorageClass (..)
 
+    -- ** Tier
+    , Tier (..)
+
     -- ** TransitionStorageClass
     , TransitionStorageClass (..)
 
@@ -429,6 +432,11 @@ module Network.AWS.S3
     , frValue
     , frName
 
+    -- ** GlacierJobParameters
+    , GlacierJobParameters
+    , glacierJobParameters
+    , gjpTier
+
     -- ** Grant
     , Grant
     , grant
@@ -609,6 +617,7 @@ module Network.AWS.S3
     -- ** RestoreRequest
     , RestoreRequest
     , restoreRequest
+    , rrGlacierJobParameters
     , rrDays
 
     -- ** RoutingRule

amazonka-s3/gen/Network/AWS/S3/GetObject.hs

@@ -35,6 +35,7 @@ module Network.AWS.S3.GetObject
     , goRequestPayer
     , goResponseContentEncoding
     , goIfModifiedSince
+    , goPartNumber
     , goRange
     , goIfUnmodifiedSince
     , goSSECustomerKeyMD5
@@ -49,6 +50,7 @@ module Network.AWS.S3.GetObject
     , GetObjectResponse
     -- * Response Lenses
     , gorsRequestCharged
+    , gorsPartsCount
     , gorsETag
     , gorsVersionId
     , gorsContentLength
@@ -96,6 +98,7 @@ data GetObject = GetObject'
     , _goRequestPayer               :: !(Maybe RequestPayer)
     , _goResponseContentEncoding    :: !(Maybe Text)
     , _goIfModifiedSince            :: !(Maybe RFC822)
+    , _goPartNumber                 :: !(Maybe Int)
     , _goRange                      :: !(Maybe Text)
     , _goIfUnmodifiedSince          :: !(Maybe RFC822)
     , _goSSECustomerKeyMD5          :: !(Maybe Text)
@@ -130,6 +133,8 @@ data GetObject = GetObject'
 --
 -- * 'goIfModifiedSince' - Return the object only if it has been modified since the specified time, otherwise return a 304 (not modified).
 --
+-- * 'goPartNumber' - Part number of the object being read. This is a positive integer between 1 and 10,000. Effectively performs a 'ranged' GET request for the part specified. Useful for downloading just a part of an object.
+--
 -- * 'goRange' - 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.
 --
 -- * 'goIfUnmodifiedSince' - Return the object only if it has not been modified since the specified time, otherwise return a 412 (precondition failed).
@@ -161,6 +166,7 @@ getObject pBucket_ pKey_ =
     , _goRequestPayer = Nothing
     , _goResponseContentEncoding = Nothing
     , _goIfModifiedSince = Nothing
+    , _goPartNumber = Nothing
     , _goRange = Nothing
     , _goIfUnmodifiedSince = Nothing
     , _goSSECustomerKeyMD5 = Nothing
@@ -211,6 +217,10 @@ goResponseContentEncoding = lens _goResponseContentEncoding (\ s a -> s{_goRespo
 goIfModifiedSince :: Lens' GetObject (Maybe UTCTime)
 goIfModifiedSince = lens _goIfModifiedSince (\ s a -> s{_goIfModifiedSince = a}) . mapping _Time;
 
+-- | Part number of the object being read. This is a positive integer between 1 and 10,000. Effectively performs a 'ranged' GET request for the part specified. Useful for downloading just a part of an object.
+goPartNumber :: Lens' GetObject (Maybe Int)
+goPartNumber = lens _goPartNumber (\ s a -> s{_goPartNumber = a});
+
 -- | 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});
@@ -250,7 +260,9 @@ instance AWSRequest GetObject where
           = receiveBody
               (\ s h x ->
                  GetObjectResponse' <$>
-                   (h .#? "x-amz-request-charged") <*> (h .#? "ETag")
+                   (h .#? "x-amz-request-charged") <*>
+                     (h .#? "x-amz-mp-parts-count")
+                     <*> (h .#? "ETag")
                      <*> (h .#? "x-amz-version-id")
                      <*> (h .#? "Content-Length")
                      <*> (h .#? "Expires")
@@ -317,12 +329,14 @@ instance ToQuery GetObject where
                  _goResponseContentLanguage,
                "response-content-encoding" =:
                  _goResponseContentEncoding,
+               "partNumber" =: _goPartNumber,
                "response-cache-control" =: _goResponseCacheControl,
                "response-expires" =: _goResponseExpires]
 
 -- | /See:/ 'getObjectResponse' smart constructor.
 data GetObjectResponse = GetObjectResponse'
     { _gorsRequestCharged          :: !(Maybe RequestCharged)
+    , _gorsPartsCount              :: !(Maybe Int)
     , _gorsETag                    :: !(Maybe ETag)
     , _gorsVersionId               :: !(Maybe ObjectVersionId)
     , _gorsContentLength           :: !(Maybe Integer)
@@ -357,6 +371,8 @@ data GetObjectResponse = GetObjectResponse'
 --
 -- * 'gorsRequestCharged' - Undocumented member.
 --
+-- * 'gorsPartsCount' - The count of parts this object has.
+--
 -- * 'gorsETag' - An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL
 --
 -- * 'gorsVersionId' - Version of the object.
@@ -415,6 +431,7 @@ getObjectResponse
 getObjectResponse pResponseStatus_ pBody_ =
     GetObjectResponse'
     { _gorsRequestCharged = Nothing
+    , _gorsPartsCount = Nothing
     , _gorsETag = Nothing
     , _gorsVersionId = Nothing
     , _gorsContentLength = Nothing
@@ -447,6 +464,10 @@ getObjectResponse pResponseStatus_ pBody_ =
 gorsRequestCharged :: Lens' GetObjectResponse (Maybe RequestCharged)
 gorsRequestCharged = lens _gorsRequestCharged (\ s a -> s{_gorsRequestCharged = a});
 
+-- | The count of parts this object has.
+gorsPartsCount :: Lens' GetObjectResponse (Maybe Int)
+gorsPartsCount = lens _gorsPartsCount (\ s a -> s{_gorsPartsCount = a});
+
 -- | An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL
 gorsETag :: Lens' GetObjectResponse (Maybe ETag)
 gorsETag = lens _gorsETag (\ s a -> s{_gorsETag = a});

amazonka-s3/gen/Network/AWS/S3/HeadObject.hs

@@ -31,6 +31,7 @@ module Network.AWS.S3.HeadObject
     , hoSSECustomerKey
     , hoRequestPayer
     , hoIfModifiedSince
+    , hoPartNumber
     , hoRange
     , hoIfUnmodifiedSince
     , hoSSECustomerKeyMD5
@@ -43,6 +44,7 @@ module Network.AWS.S3.HeadObject
     , HeadObjectResponse
     -- * Response Lenses
     , horsRequestCharged
+    , horsPartsCount
     , horsETag
     , horsVersionId
     , horsContentLength
@@ -84,6 +86,7 @@ data HeadObject = HeadObject'
     , _hoSSECustomerKey       :: !(Maybe (Sensitive Text))
     , _hoRequestPayer         :: !(Maybe RequestPayer)
     , _hoIfModifiedSince      :: !(Maybe RFC822)
+    , _hoPartNumber           :: !(Maybe Int)
     , _hoRange                :: !(Maybe Text)
     , _hoIfUnmodifiedSince    :: !(Maybe RFC822)
     , _hoSSECustomerKeyMD5    :: !(Maybe Text)
@@ -108,6 +111,8 @@ data HeadObject = HeadObject'
 --
 -- * 'hoIfModifiedSince' - Return the object only if it has been modified since the specified time, otherwise return a 304 (not modified).
 --
+-- * 'hoPartNumber' - Part number of the object being read. This is a positive integer between 1 and 10,000. Effectively performs a 'ranged' HEAD request for the part specified. Useful querying about the size of the part and the number of parts in this object.
+--
 -- * 'hoRange' - 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.
 --
 -- * 'hoIfUnmodifiedSince' - Return the object only if it has not been modified since the specified time, otherwise return a 412 (precondition failed).
@@ -131,6 +136,7 @@ headObject pBucket_ pKey_ =
     , _hoSSECustomerKey = Nothing
     , _hoRequestPayer = Nothing
     , _hoIfModifiedSince = Nothing
+    , _hoPartNumber = Nothing
     , _hoRange = Nothing
     , _hoIfUnmodifiedSince = Nothing
     , _hoSSECustomerKeyMD5 = Nothing
@@ -163,6 +169,10 @@ hoRequestPayer = lens _hoRequestPayer (\ s a -> s{_hoRequestPayer = a});
 hoIfModifiedSince :: Lens' HeadObject (Maybe UTCTime)
 hoIfModifiedSince = lens _hoIfModifiedSince (\ s a -> s{_hoIfModifiedSince = a}) . mapping _Time;
 
+-- | Part number of the object being read. This is a positive integer between 1 and 10,000. Effectively performs a 'ranged' HEAD request for the part specified. Useful querying about the size of the part and the number of parts in this object.
+hoPartNumber :: Lens' HeadObject (Maybe Int)
+hoPartNumber = lens _hoPartNumber (\ s a -> s{_hoPartNumber = a});
+
 -- | 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});
@@ -194,7 +204,9 @@ instance AWSRequest HeadObject where
           = receiveEmpty
               (\ s h x ->
                  HeadObjectResponse' <$>
-                   (h .#? "x-amz-request-charged") <*> (h .#? "ETag")
+                   (h .#? "x-amz-request-charged") <*>
+                     (h .#? "x-amz-mp-parts-count")
+                     <*> (h .#? "ETag")
                      <*> (h .#? "x-amz-version-id")
                      <*> (h .#? "Content-Length")
                      <*> (h .#? "Expires")
@@ -250,11 +262,14 @@ instance ToPath HeadObject where
 
 instance ToQuery HeadObject where
         toQuery HeadObject'{..}
-          = mconcat ["versionId" =: _hoVersionId]
+          = mconcat
+              ["versionId" =: _hoVersionId,
+               "partNumber" =: _hoPartNumber]
 
 -- | /See:/ 'headObjectResponse' smart constructor.
 data HeadObjectResponse = HeadObjectResponse'
     { _horsRequestCharged          :: !(Maybe RequestCharged)
+    , _horsPartsCount              :: !(Maybe Int)
     , _horsETag                    :: !(Maybe ETag)
     , _horsVersionId               :: !(Maybe ObjectVersionId)
     , _horsContentLength           :: !(Maybe Integer)
@@ -287,6 +302,8 @@ data HeadObjectResponse = HeadObjectResponse'
 --
 -- * 'horsRequestCharged' - Undocumented member.
 --
+-- * 'horsPartsCount' - The count of parts this object has.
+--
 -- * 'horsETag' - An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL
 --
 -- * 'horsVersionId' - Version of the object.
@@ -340,6 +357,7 @@ headObjectResponse
 headObjectResponse pResponseStatus_ =
     HeadObjectResponse'
     { _horsRequestCharged = Nothing
+    , _horsPartsCount = Nothing
     , _horsETag = Nothing
     , _horsVersionId = Nothing
     , _horsContentLength = Nothing
@@ -370,6 +388,10 @@ headObjectResponse pResponseStatus_ =
 horsRequestCharged :: Lens' HeadObjectResponse (Maybe RequestCharged)
 horsRequestCharged = lens _horsRequestCharged (\ s a -> s{_horsRequestCharged = a});
 
+-- | The count of parts this object has.
+horsPartsCount :: Lens' HeadObjectResponse (Maybe Int)
+horsPartsCount = lens _horsPartsCount (\ s a -> s{_horsPartsCount = a});
+
 -- | An ETag is an opaque identifier assigned by a web server to a specific version of a resource found at a URL
 horsETag :: Lens' HeadObjectResponse (Maybe ETag)
 horsETag = lens _horsETag (\ s a -> s{_horsETag = a});

amazonka-s3/gen/Network/AWS/S3/ListObjects.hs

@@ -29,6 +29,7 @@ module Network.AWS.S3.ListObjects
     -- * Request Lenses
     , loPrefix
     , loEncodingType
+    , loRequestPayer
     , loMarker
     , loMaxKeys
     , loDelimiter
@@ -63,6 +64,7 @@ import           Network.AWS.S3.Types.Product
 data ListObjects = ListObjects'
     { _loPrefix       :: !(Maybe Text)
     , _loEncodingType :: !(Maybe EncodingType)
+    , _loRequestPayer :: !(Maybe RequestPayer)
     , _loMarker       :: !(Maybe Text)
     , _loMaxKeys      :: !(Maybe Int)
     , _loDelimiter    :: !(Maybe Delimiter)
@@ -77,6 +79,8 @@ data ListObjects = ListObjects'
 --
 -- * 'loEncodingType' - Undocumented member.
 --
+-- * 'loRequestPayer' - Confirms that the requester knows that she or he will be charged for the list objects request. Bucket owners need not specify this parameter in their requests.
+--
 -- * 'loMarker' - Specifies the key to start with when listing objects in a bucket.
 --
 -- * 'loMaxKeys' - Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more.
@@ -91,6 +95,7 @@ listObjects pBucket_ =
     ListObjects'
     { _loPrefix = Nothing
     , _loEncodingType = Nothing
+    , _loRequestPayer = Nothing
     , _loMarker = Nothing
     , _loMaxKeys = Nothing
     , _loDelimiter = Nothing
@@ -105,6 +110,10 @@ loPrefix = lens _loPrefix (\ s a -> s{_loPrefix = a});
 loEncodingType :: Lens' ListObjects (Maybe EncodingType)
 loEncodingType = lens _loEncodingType (\ s a -> s{_loEncodingType = a});
 
+-- | Confirms that the requester knows that she or he will be charged for the list objects request. Bucket owners need not specify this parameter in their requests.
+loRequestPayer :: Lens' ListObjects (Maybe RequestPayer)
+loRequestPayer = lens _loRequestPayer (\ s a -> s{_loRequestPayer = a});
+
 -- | Specifies the key to start with when listing objects in a bucket.
 loMarker :: Lens' ListObjects (Maybe Text)
 loMarker = lens _loMarker (\ s a -> s{_loMarker = a});
@@ -160,7 +169,8 @@ instance Hashable ListObjects
 instance NFData ListObjects
 
 instance ToHeaders ListObjects where
-        toHeaders = const mempty
+        toHeaders ListObjects'{..}
+          = mconcat ["x-amz-request-payer" =# _loRequestPayer]
 
 instance ToPath ListObjects where
         toPath ListObjects'{..}

amazonka-s3/gen/Network/AWS/S3/ListObjectsV.hs

@@ -30,6 +30,7 @@ module Network.AWS.S3.ListObjectsV
     , lFetchOwner
     , lPrefix
     , lEncodingType
+    , lRequestPayer
     , lMaxKeys
     , lDelimiter
     , lBucket
@@ -67,6 +68,7 @@ data ListObjectsV = ListObjectsV'
     , _lFetchOwner        :: !(Maybe Bool)
     , _lPrefix            :: !(Maybe Text)
     , _lEncodingType      :: !(Maybe EncodingType)
+    , _lRequestPayer      :: !(Maybe RequestPayer)
     , _lMaxKeys           :: !(Maybe Int)
     , _lDelimiter         :: !(Maybe Delimiter)
     , _lBucket            :: !BucketName
@@ -86,6 +88,8 @@ data ListObjectsV = ListObjectsV'
 --
 -- * 'lEncodingType' - Encoding type used by Amazon S3 to encode object keys in the response.
 --
+-- * 'lRequestPayer' - Confirms that the requester knows that she or he will be charged for the list objects request in V2 style. Bucket owners need not specify this parameter in their requests.
+--
 -- * 'lMaxKeys' - Sets the maximum number of keys returned in the response. The response might contain fewer keys but will never contain more.
 --
 -- * 'lDelimiter' - A delimiter is a character you use to group keys.
@@ -101,6 +105,7 @@ listObjectsV pBucket_ =
     , _lFetchOwner = Nothing
     , _lPrefix = Nothing
     , _lEncodingType = Nothing
+    , _lRequestPayer = Nothing
     , _lMaxKeys = Nothing
     , _lDelimiter = Nothing
     , _lBucket = pBucket_
@@ -126,6 +131,10 @@ lPrefix = lens _lPrefix (\ s a -> s{_lPrefix = a});
 lEncodingType :: Lens' ListObjectsV (Maybe EncodingType)
 lEncodingType = lens _lEncodingType (\ s a -> s{_lEncodingType = a});
 
+-- | Confirms that the requester knows that she or he will be charged for the list objects request in V2 style. Bucket owners need not specify this parameter in their requests.
+lRequestPayer :: Lens' ListObjectsV (Maybe RequestPayer)
+lRequestPayer = lens _lRequestPayer (\ s a -> s{_lRequestPayer = 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});
@@ -163,7 +172,8 @@ instance Hashable ListObjectsV
 instance NFData ListObjectsV
 
 instance ToHeaders ListObjectsV where
-        toHeaders = const mempty
+        toHeaders ListObjectsV'{..}
+          = mconcat ["x-amz-request-payer" =# _lRequestPayer]
 
 instance ToPath ListObjectsV where
         toPath ListObjectsV'{..}

amazonka-s3/gen/Network/AWS/S3/Types.hs

@@ -96,6 +96,9 @@ module Network.AWS.S3.Types
     -- * StorageClass
     , StorageClass (..)
 
+    -- * Tier
+    , Tier (..)
+
     -- * TransitionStorageClass
     , TransitionStorageClass (..)
 
@@ -227,6 +230,11 @@ module Network.AWS.S3.Types
     , frValue
     , frName
 
+    -- * GlacierJobParameters
+    , GlacierJobParameters
+    , glacierJobParameters
+    , gjpTier
+
     -- * Grant
     , Grant
     , grant
@@ -407,6 +415,7 @@ module Network.AWS.S3.Types
     -- * RestoreRequest
     , RestoreRequest
     , restoreRequest
+    , rrGlacierJobParameters
     , rrDays
 
     -- * RoutingRule