{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.S3.CompleteMultipartUpload
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Completes a multipart upload by assembling previously uploaded parts.
--
-- You first initiate the multipart upload and then upload all parts using
-- the
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/API_UploadPart.html UploadPart>
-- operation. After successfully uploading all relevant parts of an upload,
-- you call this action to complete the upload. Upon receiving this
-- request, Amazon S3 concatenates all the parts in ascending order by part
-- number to create a new object. In the Complete Multipart Upload request,
-- you must provide the parts list. You must ensure that the parts list is
-- complete. This action concatenates the parts that you provide in the
-- list. For each part in the list, you must provide the part number and
-- the @ETag@ value, returned after that part was uploaded.
--
-- Processing of a Complete Multipart Upload request could take several
-- minutes to complete. After Amazon S3 begins processing the request, it
-- sends an HTTP response header that specifies a 200 OK response. While
-- processing is in progress, Amazon S3 periodically sends white space
-- characters to keep the connection from timing out. Because a request
-- could fail after the initial 200 OK response has been sent, it is
-- important that you check the response body to determine whether the
-- request succeeded.
--
-- Note that if @CompleteMultipartUpload@ fails, applications should be
-- prepared to retry the failed requests. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ErrorBestPractices.html Amazon S3 Error Best Practices>.
--
-- You cannot use @Content-Type: application\/x-www-form-urlencoded@ with
-- Complete Multipart Upload requests. Also, if you do not provide a
-- @Content-Type@ header, @CompleteMultipartUpload@ returns a 200 OK
-- response.
--
-- For more information about multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/uploadobjusingmpu.html Uploading Objects Using Multipart Upload>.
--
-- For information about permissions required to use the multipart upload
-- API, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/mpuAndPermissions.html Multipart Upload and Permissions>.
--
-- @CompleteMultipartUpload@ has the following special errors:
--
-- -   Error code: @EntityTooSmall@
--
--     -   Description: Your proposed upload is smaller than the minimum
--         allowed object size. Each part must be at least 5 MB in size,
--         except the last part.
--
--     -   400 Bad Request
--
-- -   Error code: @InvalidPart@
--
--     -   Description: One or more of the specified parts could not be
--         found. The part might not have been uploaded, or the specified
--         entity tag might not have matched the part\'s entity tag.
--
--     -   400 Bad Request
--
-- -   Error code: @InvalidPartOrder@
--
--     -   Description: The list of parts was not in ascending order. The
--         parts list must be specified in order by part number.
--
--     -   400 Bad Request
--
-- -   Error code: @NoSuchUpload@
--
--     -   Description: The specified multipart upload does not exist. The
--         upload ID might be invalid, or the multipart upload might have
--         been aborted or completed.
--
--     -   404 Not Found
--
-- The following operations are related to @CompleteMultipartUpload@:
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateMultipartUpload.html CreateMultipartUpload>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_UploadPart.html UploadPart>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_AbortMultipartUpload.html AbortMultipartUpload>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_ListParts.html ListParts>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_ListMultipartUploads.html ListMultipartUploads>
module Amazonka.S3.CompleteMultipartUpload
  ( -- * Creating a Request
    CompleteMultipartUpload (..),
    newCompleteMultipartUpload,

    -- * Request Lenses
    completeMultipartUpload_checksumCRC32,
    completeMultipartUpload_checksumCRC32C,
    completeMultipartUpload_checksumSHA1,
    completeMultipartUpload_checksumSHA256,
    completeMultipartUpload_expectedBucketOwner,
    completeMultipartUpload_multipartUpload,
    completeMultipartUpload_requestPayer,
    completeMultipartUpload_sSECustomerAlgorithm,
    completeMultipartUpload_sSECustomerKey,
    completeMultipartUpload_sSECustomerKeyMD5,
    completeMultipartUpload_bucket,
    completeMultipartUpload_key,
    completeMultipartUpload_uploadId,

    -- * Destructuring the Response
    CompleteMultipartUploadResponse (..),
    newCompleteMultipartUploadResponse,

    -- * Response Lenses
    completeMultipartUploadResponse_bucket,
    completeMultipartUploadResponse_bucketKeyEnabled,
    completeMultipartUploadResponse_checksumCRC32,
    completeMultipartUploadResponse_checksumCRC32C,
    completeMultipartUploadResponse_checksumSHA1,
    completeMultipartUploadResponse_checksumSHA256,
    completeMultipartUploadResponse_eTag,
    completeMultipartUploadResponse_expiration,
    completeMultipartUploadResponse_key,
    completeMultipartUploadResponse_location,
    completeMultipartUploadResponse_requestCharged,
    completeMultipartUploadResponse_sSEKMSKeyId,
    completeMultipartUploadResponse_serverSideEncryption,
    completeMultipartUploadResponse_versionId,
    completeMultipartUploadResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.S3.Types

-- | /See:/ 'newCompleteMultipartUpload' smart constructor.
data CompleteMultipartUpload = CompleteMultipartUpload'
  { -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This header
    -- specifies the base64-encoded, 32-bit CRC32 checksum of the object. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This header
    -- specifies the base64-encoded, 32-bit CRC32C checksum of the object. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This header
    -- specifies the base64-encoded, 160-bit SHA-1 digest of the object. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This header
    -- specifies the base64-encoded, 256-bit SHA-256 digest of the object. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
    -- | The account ID of the expected bucket owner. If the bucket is owned by a
    -- different account, the request fails with the HTTP status code
    -- @403 Forbidden@ (access denied).
    CompleteMultipartUpload -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
    -- | The container for the multipart upload request information.
    CompleteMultipartUpload -> Maybe CompletedMultipartUpload
multipartUpload :: Prelude.Maybe CompletedMultipartUpload,
    CompleteMultipartUpload -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
    -- | The server-side encryption (SSE) algorithm used to encrypt the object.
    -- This parameter is needed only when the object was created using a
    -- checksum algorithm. For more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
    -- | The server-side encryption (SSE) customer managed key. This parameter is
    -- needed only when the object was created using a checksum algorithm. For
    -- more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
    -- | The MD5 server-side encryption (SSE) customer managed key. This
    -- parameter is needed only when the object was created using a checksum
    -- algorithm. For more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
    -- | Name of the bucket to which the multipart upload was initiated.
    --
    -- When using this action with an access point, you must direct requests to
    -- the access point hostname. The access point hostname takes the form
    -- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
    -- When using this action with an access point through the Amazon Web
    -- Services SDKs, you provide the access point ARN in place of the bucket
    -- name. For more information about access point ARNs, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
    -- in the /Amazon S3 User Guide/.
    --
    -- When using this action with Amazon S3 on Outposts, you must direct
    -- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
    -- takes the form
    -- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
    -- When using this action with S3 on Outposts through the Amazon Web
    -- Services SDKs, you provide the Outposts bucket ARN in place of the
    -- bucket name. For more information about S3 on Outposts ARNs, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUpload -> BucketName
bucket :: BucketName,
    -- | Object key for which the multipart upload was initiated.
    CompleteMultipartUpload -> ObjectKey
key :: ObjectKey,
    -- | ID for the initiated multipart upload.
    CompleteMultipartUpload -> Text
uploadId :: Prelude.Text
  }
  deriving (CompleteMultipartUpload -> CompleteMultipartUpload -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CompleteMultipartUpload -> CompleteMultipartUpload -> Bool
$c/= :: CompleteMultipartUpload -> CompleteMultipartUpload -> Bool
== :: CompleteMultipartUpload -> CompleteMultipartUpload -> Bool
$c== :: CompleteMultipartUpload -> CompleteMultipartUpload -> Bool
Prelude.Eq, Int -> CompleteMultipartUpload -> ShowS
[CompleteMultipartUpload] -> ShowS
CompleteMultipartUpload -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CompleteMultipartUpload] -> ShowS
$cshowList :: [CompleteMultipartUpload] -> ShowS
show :: CompleteMultipartUpload -> String
$cshow :: CompleteMultipartUpload -> String
showsPrec :: Int -> CompleteMultipartUpload -> ShowS
$cshowsPrec :: Int -> CompleteMultipartUpload -> ShowS
Prelude.Show, forall x. Rep CompleteMultipartUpload x -> CompleteMultipartUpload
forall x. CompleteMultipartUpload -> Rep CompleteMultipartUpload x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CompleteMultipartUpload x -> CompleteMultipartUpload
$cfrom :: forall x. CompleteMultipartUpload -> Rep CompleteMultipartUpload x
Prelude.Generic)

-- |
-- Create a value of 'CompleteMultipartUpload' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'checksumCRC32', 'completeMultipartUpload_checksumCRC32' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 32-bit CRC32 checksum of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumCRC32C', 'completeMultipartUpload_checksumCRC32C' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 32-bit CRC32C checksum of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumSHA1', 'completeMultipartUpload_checksumSHA1' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 160-bit SHA-1 digest of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumSHA256', 'completeMultipartUpload_checksumSHA256' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 256-bit SHA-256 digest of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'expectedBucketOwner', 'completeMultipartUpload_expectedBucketOwner' - The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
--
-- 'multipartUpload', 'completeMultipartUpload_multipartUpload' - The container for the multipart upload request information.
--
-- 'requestPayer', 'completeMultipartUpload_requestPayer' - Undocumented member.
--
-- 'sSECustomerAlgorithm', 'completeMultipartUpload_sSECustomerAlgorithm' - The server-side encryption (SSE) algorithm used to encrypt the object.
-- This parameter is needed only when the object was created using a
-- checksum algorithm. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
--
-- 'sSECustomerKey', 'completeMultipartUpload_sSECustomerKey' - The server-side encryption (SSE) customer managed key. This parameter is
-- needed only when the object was created using a checksum algorithm. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
--
-- 'sSECustomerKeyMD5', 'completeMultipartUpload_sSECustomerKeyMD5' - The MD5 server-side encryption (SSE) customer managed key. This
-- parameter is needed only when the object was created using a checksum
-- algorithm. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
--
-- 'bucket', 'completeMultipartUpload_bucket' - Name of the bucket to which the multipart upload was initiated.
--
-- When using this action with an access point, you must direct requests to
-- the access point hostname. The access point hostname takes the form
-- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
-- When using this action with an access point through the Amazon Web
-- Services SDKs, you provide the access point ARN in place of the bucket
-- name. For more information about access point ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
-- in the /Amazon S3 User Guide/.
--
-- When using this action with Amazon S3 on Outposts, you must direct
-- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
-- takes the form
-- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
-- When using this action with S3 on Outposts through the Amazon Web
-- Services SDKs, you provide the Outposts bucket ARN in place of the
-- bucket name. For more information about S3 on Outposts ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
-- in the /Amazon S3 User Guide/.
--
-- 'key', 'completeMultipartUpload_key' - Object key for which the multipart upload was initiated.
--
-- 'uploadId', 'completeMultipartUpload_uploadId' - ID for the initiated multipart upload.
newCompleteMultipartUpload ::
  -- | 'bucket'
  BucketName ->
  -- | 'key'
  ObjectKey ->
  -- | 'uploadId'
  Prelude.Text ->
  CompleteMultipartUpload
newCompleteMultipartUpload :: BucketName -> ObjectKey -> Text -> CompleteMultipartUpload
newCompleteMultipartUpload BucketName
pBucket_ ObjectKey
pKey_ Text
pUploadId_ =
  CompleteMultipartUpload'
    { $sel:checksumCRC32:CompleteMultipartUpload' :: Maybe Text
checksumCRC32 =
        forall a. Maybe a
Prelude.Nothing,
      $sel:checksumCRC32C:CompleteMultipartUpload' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumSHA1:CompleteMultipartUpload' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumSHA256:CompleteMultipartUpload' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
      $sel:expectedBucketOwner:CompleteMultipartUpload' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
      $sel:multipartUpload:CompleteMultipartUpload' :: Maybe CompletedMultipartUpload
multipartUpload = forall a. Maybe a
Prelude.Nothing,
      $sel:requestPayer:CompleteMultipartUpload' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
      $sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
      $sel:sSECustomerKey:CompleteMultipartUpload' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
      $sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
      $sel:bucket:CompleteMultipartUpload' :: BucketName
bucket = BucketName
pBucket_,
      $sel:key:CompleteMultipartUpload' :: ObjectKey
key = ObjectKey
pKey_,
      $sel:uploadId:CompleteMultipartUpload' :: Text
uploadId = Text
pUploadId_
    }

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 32-bit CRC32 checksum of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_checksumCRC32 :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_checksumCRC32 :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:checksumCRC32:CompleteMultipartUpload' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: CompleteMultipartUpload)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 32-bit CRC32C checksum of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_checksumCRC32C :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_checksumCRC32C :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:checksumCRC32C:CompleteMultipartUpload' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: CompleteMultipartUpload)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 160-bit SHA-1 digest of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_checksumSHA1 :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_checksumSHA1 :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:checksumSHA1:CompleteMultipartUpload' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: CompleteMultipartUpload)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This header
-- specifies the base64-encoded, 256-bit SHA-256 digest of the object. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_checksumSHA256 :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_checksumSHA256 :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:checksumSHA256:CompleteMultipartUpload' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: CompleteMultipartUpload)

-- | The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
completeMultipartUpload_expectedBucketOwner :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_expectedBucketOwner :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:expectedBucketOwner:CompleteMultipartUpload' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: CompleteMultipartUpload)

-- | The container for the multipart upload request information.
completeMultipartUpload_multipartUpload :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe CompletedMultipartUpload)
completeMultipartUpload_multipartUpload :: Lens' CompleteMultipartUpload (Maybe CompletedMultipartUpload)
completeMultipartUpload_multipartUpload = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe CompletedMultipartUpload
multipartUpload :: Maybe CompletedMultipartUpload
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
multipartUpload} -> Maybe CompletedMultipartUpload
multipartUpload) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe CompletedMultipartUpload
a -> CompleteMultipartUpload
s {$sel:multipartUpload:CompleteMultipartUpload' :: Maybe CompletedMultipartUpload
multipartUpload = Maybe CompletedMultipartUpload
a} :: CompleteMultipartUpload)

-- | Undocumented member.
completeMultipartUpload_requestPayer :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe RequestPayer)
completeMultipartUpload_requestPayer :: Lens' CompleteMultipartUpload (Maybe RequestPayer)
completeMultipartUpload_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe RequestPayer
a -> CompleteMultipartUpload
s {$sel:requestPayer:CompleteMultipartUpload' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: CompleteMultipartUpload)

-- | The server-side encryption (SSE) algorithm used to encrypt the object.
-- This parameter is needed only when the object was created using a
-- checksum algorithm. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_sSECustomerAlgorithm :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_sSECustomerAlgorithm :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: CompleteMultipartUpload)

-- | The server-side encryption (SSE) customer managed key. This parameter is
-- needed only when the object was created using a checksum algorithm. For
-- more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_sSECustomerKey :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_sSECustomerKey :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe (Sensitive Text)
a -> CompleteMultipartUpload
s {$sel:sSECustomerKey:CompleteMultipartUpload' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: CompleteMultipartUpload) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | The MD5 server-side encryption (SSE) customer managed key. This
-- parameter is needed only when the object was created using a checksum
-- algorithm. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/ServerSideEncryptionCustomerKeys.html Protecting data using SSE-C keys>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_sSECustomerKeyMD5 :: Lens.Lens' CompleteMultipartUpload (Prelude.Maybe Prelude.Text)
completeMultipartUpload_sSECustomerKeyMD5 :: Lens' CompleteMultipartUpload (Maybe Text)
completeMultipartUpload_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Maybe Text
a -> CompleteMultipartUpload
s {$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: CompleteMultipartUpload)

-- | Name of the bucket to which the multipart upload was initiated.
--
-- When using this action with an access point, you must direct requests to
-- the access point hostname. The access point hostname takes the form
-- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
-- When using this action with an access point through the Amazon Web
-- Services SDKs, you provide the access point ARN in place of the bucket
-- name. For more information about access point ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
-- in the /Amazon S3 User Guide/.
--
-- When using this action with Amazon S3 on Outposts, you must direct
-- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
-- takes the form
-- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
-- When using this action with S3 on Outposts through the Amazon Web
-- Services SDKs, you provide the Outposts bucket ARN in place of the
-- bucket name. For more information about S3 on Outposts ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
-- in the /Amazon S3 User Guide/.
completeMultipartUpload_bucket :: Lens.Lens' CompleteMultipartUpload BucketName
completeMultipartUpload_bucket :: Lens' CompleteMultipartUpload BucketName
completeMultipartUpload_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {BucketName
bucket :: BucketName
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
bucket} -> BucketName
bucket) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} BucketName
a -> CompleteMultipartUpload
s {$sel:bucket:CompleteMultipartUpload' :: BucketName
bucket = BucketName
a} :: CompleteMultipartUpload)

-- | Object key for which the multipart upload was initiated.
completeMultipartUpload_key :: Lens.Lens' CompleteMultipartUpload ObjectKey
completeMultipartUpload_key :: Lens' CompleteMultipartUpload ObjectKey
completeMultipartUpload_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {ObjectKey
key :: ObjectKey
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
key} -> ObjectKey
key) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} ObjectKey
a -> CompleteMultipartUpload
s {$sel:key:CompleteMultipartUpload' :: ObjectKey
key = ObjectKey
a} :: CompleteMultipartUpload)

-- | ID for the initiated multipart upload.
completeMultipartUpload_uploadId :: Lens.Lens' CompleteMultipartUpload Prelude.Text
completeMultipartUpload_uploadId :: Lens' CompleteMultipartUpload Text
completeMultipartUpload_uploadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUpload' {Text
uploadId :: Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
uploadId} -> Text
uploadId) (\s :: CompleteMultipartUpload
s@CompleteMultipartUpload' {} Text
a -> CompleteMultipartUpload
s {$sel:uploadId:CompleteMultipartUpload' :: Text
uploadId = Text
a} :: CompleteMultipartUpload)

instance Core.AWSRequest CompleteMultipartUpload where
  type
    AWSResponse CompleteMultipartUpload =
      CompleteMultipartUploadResponse
  request :: (Service -> Service)
-> CompleteMultipartUpload -> Request CompleteMultipartUpload
request Service -> Service
overrides =
    forall a. Request a -> Request a
Request.s3vhost
      forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.postXML (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CompleteMultipartUpload
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CompleteMultipartUpload)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe BucketName
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe ETag
-> Maybe Text
-> Maybe ObjectKey
-> Maybe Text
-> Maybe RequestCharged
-> Maybe (Sensitive Text)
-> Maybe ServerSideEncryption
-> Maybe ObjectVersionId
-> Int
-> CompleteMultipartUploadResponse
CompleteMultipartUploadResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Bucket")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( ResponseHeaders
h
                            forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-server-side-encryption-bucket-key-enabled"
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ChecksumCRC32")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ChecksumCRC32C")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ChecksumSHA1")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ChecksumSHA256")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ETag")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-expiration")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Key")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Location")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-request-charged")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( ResponseHeaders
h
                            forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-server-side-encryption-aws-kms-key-id"
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-server-side-encryption")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-version-id")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CompleteMultipartUpload where
  hashWithSalt :: Int -> CompleteMultipartUpload -> Int
hashWithSalt Int
_salt CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksumCRC32
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksumCRC32C
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksumSHA1
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksumSHA256
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CompletedMultipartUpload
multipartUpload
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RequestPayer
requestPayer
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sSECustomerAlgorithm
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
sSECustomerKey
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sSECustomerKeyMD5
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
uploadId

instance Prelude.NFData CompleteMultipartUpload where
  rnf :: CompleteMultipartUpload -> ()
rnf CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32C
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA1
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA256
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CompletedMultipartUpload
multipartUpload
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestPayer
requestPayer
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sSECustomerAlgorithm
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
sSECustomerKey
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sSECustomerKeyMD5
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ObjectKey
key
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
uploadId

instance Data.ToElement CompleteMultipartUpload where
  toElement :: CompleteMultipartUpload -> Element
toElement CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    forall a. ToXML a => Name -> a -> Element
Data.mkElement
      Name
"{http://s3.amazonaws.com/doc/2006-03-01/}CompleteMultipartUpload"
      Maybe CompletedMultipartUpload
multipartUpload

instance Data.ToHeaders CompleteMultipartUpload where
  toHeaders :: CompleteMultipartUpload -> ResponseHeaders
toHeaders CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ HeaderName
"x-amz-checksum-crc32" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
checksumCRC32,
        HeaderName
"x-amz-checksum-crc32c" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
checksumCRC32C,
        HeaderName
"x-amz-checksum-sha1" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
checksumSHA1,
        HeaderName
"x-amz-checksum-sha256" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
checksumSHA256,
        HeaderName
"x-amz-expected-bucket-owner"
          forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
        HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer,
        HeaderName
"x-amz-server-side-encryption-customer-algorithm"
          forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerAlgorithm,
        HeaderName
"x-amz-server-side-encryption-customer-key"
          forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSECustomerKey,
        HeaderName
"x-amz-server-side-encryption-customer-key-MD5"
          forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerKeyMD5
      ]

instance Data.ToPath CompleteMultipartUpload where
  toPath :: CompleteMultipartUpload -> ByteString
toPath CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]

instance Data.ToQuery CompleteMultipartUpload where
  toQuery :: CompleteMultipartUpload -> QueryString
toQuery CompleteMultipartUpload' {Maybe Text
Maybe (Sensitive Text)
Maybe CompletedMultipartUpload
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
multipartUpload :: Maybe CompletedMultipartUpload
expectedBucketOwner :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
$sel:uploadId:CompleteMultipartUpload' :: CompleteMultipartUpload -> Text
$sel:key:CompleteMultipartUpload' :: CompleteMultipartUpload -> ObjectKey
$sel:bucket:CompleteMultipartUpload' :: CompleteMultipartUpload -> BucketName
$sel:sSECustomerKeyMD5:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:requestPayer:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe RequestPayer
$sel:multipartUpload:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe CompletedMultipartUpload
$sel:expectedBucketOwner:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA256:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUpload' :: CompleteMultipartUpload -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"uploadId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
uploadId]

-- | /See:/ 'newCompleteMultipartUploadResponse' smart constructor.
data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse'
  { -- | The name of the bucket that contains the newly created object. Does not
    -- return the access point ARN or access point alias if used.
    --
    -- When using this action with an access point, you must direct requests to
    -- the access point hostname. The access point hostname takes the form
    -- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
    -- When using this action with an access point through the Amazon Web
    -- Services SDKs, you provide the access point ARN in place of the bucket
    -- name. For more information about access point ARNs, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
    -- in the /Amazon S3 User Guide/.
    --
    -- When using this action with Amazon S3 on Outposts, you must direct
    -- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
    -- takes the form
    -- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
    -- When using this action with S3 on Outposts through the Amazon Web
    -- Services SDKs, you provide the Outposts bucket ARN in place of the
    -- bucket name. For more information about S3 on Outposts ARNs, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe BucketName
bucket :: Prelude.Maybe BucketName,
    -- | Indicates whether the multipart upload uses an S3 Bucket Key for
    -- server-side encryption with Amazon Web Services KMS (SSE-KMS).
    CompleteMultipartUploadResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
    -- | The base64-encoded, 32-bit CRC32 checksum of the object. This will only
    -- be present if it was uploaded with the object. With multipart uploads,
    -- this may not be a checksum value of the object. For more information
    -- about how checksums are calculated with multipart uploads, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
    -- | The base64-encoded, 32-bit CRC32C checksum of the object. This will only
    -- be present if it was uploaded with the object. With multipart uploads,
    -- this may not be a checksum value of the object. For more information
    -- about how checksums are calculated with multipart uploads, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
    -- | The base64-encoded, 160-bit SHA-1 digest of the object. This will only
    -- be present if it was uploaded with the object. With multipart uploads,
    -- this may not be a checksum value of the object. For more information
    -- about how checksums are calculated with multipart uploads, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
    -- | The base64-encoded, 256-bit SHA-256 digest of the object. This will only
    -- be present if it was uploaded with the object. With multipart uploads,
    -- this may not be a checksum value of the object. For more information
    -- about how checksums are calculated with multipart uploads, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
    -- | Entity tag that identifies the newly created object\'s data. Objects
    -- with different object data will have different entity tags. The entity
    -- tag is an opaque string. The entity tag may or may not be an MD5 digest
    -- of the object data. If the entity tag is not an MD5 digest of the object
    -- data, it will contain one or more nonhexadecimal characters and\/or will
    -- consist of less than 32 or more than 32 hexadecimal digits. For more
    -- information about how the entity tag is calculated, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    CompleteMultipartUploadResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
    -- | 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.
    CompleteMultipartUploadResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
    -- | The object key of the newly created object.
    CompleteMultipartUploadResponse -> Maybe ObjectKey
key :: Prelude.Maybe ObjectKey,
    -- | The URI that identifies the newly created object.
    CompleteMultipartUploadResponse -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
    CompleteMultipartUploadResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
    -- | If present, specifies the ID of the Amazon Web Services Key Management
    -- Service (Amazon Web Services KMS) symmetric customer managed key that
    -- was used for the object.
    CompleteMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
    -- | If you specified server-side encryption either with an Amazon S3-managed
    -- encryption key or an Amazon Web Services KMS key in your initiate
    -- multipart upload request, the response includes this header. It confirms
    -- the encryption algorithm that Amazon S3 used to encrypt the object.
    CompleteMultipartUploadResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
    -- | Version ID of the newly created object, in case the bucket has
    -- versioning turned on.
    CompleteMultipartUploadResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
    -- | The response's http status code.
    CompleteMultipartUploadResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CompleteMultipartUploadResponse
-> CompleteMultipartUploadResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CompleteMultipartUploadResponse
-> CompleteMultipartUploadResponse -> Bool
$c/= :: CompleteMultipartUploadResponse
-> CompleteMultipartUploadResponse -> Bool
== :: CompleteMultipartUploadResponse
-> CompleteMultipartUploadResponse -> Bool
$c== :: CompleteMultipartUploadResponse
-> CompleteMultipartUploadResponse -> Bool
Prelude.Eq, Int -> CompleteMultipartUploadResponse -> ShowS
[CompleteMultipartUploadResponse] -> ShowS
CompleteMultipartUploadResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CompleteMultipartUploadResponse] -> ShowS
$cshowList :: [CompleteMultipartUploadResponse] -> ShowS
show :: CompleteMultipartUploadResponse -> String
$cshow :: CompleteMultipartUploadResponse -> String
showsPrec :: Int -> CompleteMultipartUploadResponse -> ShowS
$cshowsPrec :: Int -> CompleteMultipartUploadResponse -> ShowS
Prelude.Show, forall x.
Rep CompleteMultipartUploadResponse x
-> CompleteMultipartUploadResponse
forall x.
CompleteMultipartUploadResponse
-> Rep CompleteMultipartUploadResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CompleteMultipartUploadResponse x
-> CompleteMultipartUploadResponse
$cfrom :: forall x.
CompleteMultipartUploadResponse
-> Rep CompleteMultipartUploadResponse x
Prelude.Generic)

-- |
-- Create a value of 'CompleteMultipartUploadResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'bucket', 'completeMultipartUploadResponse_bucket' - The name of the bucket that contains the newly created object. Does not
-- return the access point ARN or access point alias if used.
--
-- When using this action with an access point, you must direct requests to
-- the access point hostname. The access point hostname takes the form
-- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
-- When using this action with an access point through the Amazon Web
-- Services SDKs, you provide the access point ARN in place of the bucket
-- name. For more information about access point ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
-- in the /Amazon S3 User Guide/.
--
-- When using this action with Amazon S3 on Outposts, you must direct
-- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
-- takes the form
-- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
-- When using this action with S3 on Outposts through the Amazon Web
-- Services SDKs, you provide the Outposts bucket ARN in place of the
-- bucket name. For more information about S3 on Outposts ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
-- in the /Amazon S3 User Guide/.
--
-- 'bucketKeyEnabled', 'completeMultipartUploadResponse_bucketKeyEnabled' - Indicates whether the multipart upload uses an S3 Bucket Key for
-- server-side encryption with Amazon Web Services KMS (SSE-KMS).
--
-- 'checksumCRC32', 'completeMultipartUploadResponse_checksumCRC32' - The base64-encoded, 32-bit CRC32 checksum of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumCRC32C', 'completeMultipartUploadResponse_checksumCRC32C' - The base64-encoded, 32-bit CRC32C checksum of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumSHA1', 'completeMultipartUploadResponse_checksumSHA1' - The base64-encoded, 160-bit SHA-1 digest of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'checksumSHA256', 'completeMultipartUploadResponse_checksumSHA256' - The base64-encoded, 256-bit SHA-256 digest of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'eTag', 'completeMultipartUploadResponse_eTag' - Entity tag that identifies the newly created object\'s data. Objects
-- with different object data will have different entity tags. The entity
-- tag is an opaque string. The entity tag may or may not be an MD5 digest
-- of the object data. If the entity tag is not an MD5 digest of the object
-- data, it will contain one or more nonhexadecimal characters and\/or will
-- consist of less than 32 or more than 32 hexadecimal digits. For more
-- information about how the entity tag is calculated, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- 'expiration', 'completeMultipartUploadResponse_expiration' - 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.
--
-- 'key', 'completeMultipartUploadResponse_key' - The object key of the newly created object.
--
-- 'location', 'completeMultipartUploadResponse_location' - The URI that identifies the newly created object.
--
-- 'requestCharged', 'completeMultipartUploadResponse_requestCharged' - Undocumented member.
--
-- 'sSEKMSKeyId', 'completeMultipartUploadResponse_sSEKMSKeyId' - If present, specifies the ID of the Amazon Web Services Key Management
-- Service (Amazon Web Services KMS) symmetric customer managed key that
-- was used for the object.
--
-- 'serverSideEncryption', 'completeMultipartUploadResponse_serverSideEncryption' - If you specified server-side encryption either with an Amazon S3-managed
-- encryption key or an Amazon Web Services KMS key in your initiate
-- multipart upload request, the response includes this header. It confirms
-- the encryption algorithm that Amazon S3 used to encrypt the object.
--
-- 'versionId', 'completeMultipartUploadResponse_versionId' - Version ID of the newly created object, in case the bucket has
-- versioning turned on.
--
-- 'httpStatus', 'completeMultipartUploadResponse_httpStatus' - The response's http status code.
newCompleteMultipartUploadResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CompleteMultipartUploadResponse
newCompleteMultipartUploadResponse :: Int -> CompleteMultipartUploadResponse
newCompleteMultipartUploadResponse Int
pHttpStatus_ =
  CompleteMultipartUploadResponse'
    { $sel:bucket:CompleteMultipartUploadResponse' :: Maybe BucketName
bucket =
        forall a. Maybe a
Prelude.Nothing,
      $sel:bucketKeyEnabled:CompleteMultipartUploadResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumCRC32:CompleteMultipartUploadResponse' :: Maybe Text
checksumCRC32 = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumCRC32C:CompleteMultipartUploadResponse' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumSHA1:CompleteMultipartUploadResponse' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
      $sel:checksumSHA256:CompleteMultipartUploadResponse' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
      $sel:eTag:CompleteMultipartUploadResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
      $sel:expiration:CompleteMultipartUploadResponse' :: Maybe Text
expiration = forall a. Maybe a
Prelude.Nothing,
      $sel:key:CompleteMultipartUploadResponse' :: Maybe ObjectKey
key = forall a. Maybe a
Prelude.Nothing,
      $sel:location:CompleteMultipartUploadResponse' :: Maybe Text
location = forall a. Maybe a
Prelude.Nothing,
      $sel:requestCharged:CompleteMultipartUploadResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
      $sel:sSEKMSKeyId:CompleteMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
      $sel:serverSideEncryption:CompleteMultipartUploadResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
      $sel:versionId:CompleteMultipartUploadResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CompleteMultipartUploadResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The name of the bucket that contains the newly created object. Does not
-- return the access point ARN or access point alias if used.
--
-- When using this action with an access point, you must direct requests to
-- the access point hostname. The access point hostname takes the form
-- /AccessPointName/-/AccountId/.s3-accesspoint./Region/.amazonaws.com.
-- When using this action with an access point through the Amazon Web
-- Services SDKs, you provide the access point ARN in place of the bucket
-- name. For more information about access point ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-access-points.html Using access points>
-- in the /Amazon S3 User Guide/.
--
-- When using this action with Amazon S3 on Outposts, you must direct
-- requests to the S3 on Outposts hostname. The S3 on Outposts hostname
-- takes the form
-- @ @/@AccessPointName@/@-@/@AccountId@/@.@/@outpostID@/@.s3-outposts.@/@Region@/@.amazonaws.com@.
-- When using this action with S3 on Outposts through the Amazon Web
-- Services SDKs, you provide the Outposts bucket ARN in place of the
-- bucket name. For more information about S3 on Outposts ARNs, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/S3onOutposts.html Using Amazon S3 on Outposts>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_bucket :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe BucketName)
completeMultipartUploadResponse_bucket :: Lens' CompleteMultipartUploadResponse (Maybe BucketName)
completeMultipartUploadResponse_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe BucketName
bucket :: Maybe BucketName
$sel:bucket:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe BucketName
bucket} -> Maybe BucketName
bucket) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe BucketName
a -> CompleteMultipartUploadResponse
s {$sel:bucket:CompleteMultipartUploadResponse' :: Maybe BucketName
bucket = Maybe BucketName
a} :: CompleteMultipartUploadResponse)

-- | Indicates whether the multipart upload uses an S3 Bucket Key for
-- server-side encryption with Amazon Web Services KMS (SSE-KMS).
completeMultipartUploadResponse_bucketKeyEnabled :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Bool)
completeMultipartUploadResponse_bucketKeyEnabled :: Lens' CompleteMultipartUploadResponse (Maybe Bool)
completeMultipartUploadResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Bool
a -> CompleteMultipartUploadResponse
s {$sel:bucketKeyEnabled:CompleteMultipartUploadResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: CompleteMultipartUploadResponse)

-- | The base64-encoded, 32-bit CRC32 checksum of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_checksumCRC32 :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_checksumCRC32 :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:checksumCRC32:CompleteMultipartUploadResponse' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | The base64-encoded, 32-bit CRC32C checksum of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_checksumCRC32C :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_checksumCRC32C :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:checksumCRC32C:CompleteMultipartUploadResponse' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | The base64-encoded, 160-bit SHA-1 digest of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_checksumSHA1 :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_checksumSHA1 :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:checksumSHA1:CompleteMultipartUploadResponse' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | The base64-encoded, 256-bit SHA-256 digest of the object. This will only
-- be present if it was uploaded with the object. With multipart uploads,
-- this may not be a checksum value of the object. For more information
-- about how checksums are calculated with multipart uploads, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html#large-object-checksums Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_checksumSHA256 :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_checksumSHA256 :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:checksumSHA256:CompleteMultipartUploadResponse' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | Entity tag that identifies the newly created object\'s data. Objects
-- with different object data will have different entity tags. The entity
-- tag is an opaque string. The entity tag may or may not be an MD5 digest
-- of the object data. If the entity tag is not an MD5 digest of the object
-- data, it will contain one or more nonhexadecimal characters and\/or will
-- consist of less than 32 or more than 32 hexadecimal digits. For more
-- information about how the entity tag is calculated, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
completeMultipartUploadResponse_eTag :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe ETag)
completeMultipartUploadResponse_eTag :: Lens' CompleteMultipartUploadResponse (Maybe ETag)
completeMultipartUploadResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe ETag
a -> CompleteMultipartUploadResponse
s {$sel:eTag:CompleteMultipartUploadResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: CompleteMultipartUploadResponse)

-- | 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.
completeMultipartUploadResponse_expiration :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_expiration :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_expiration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
expiration :: Maybe Text
$sel:expiration:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
expiration} -> Maybe Text
expiration) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:expiration:CompleteMultipartUploadResponse' :: Maybe Text
expiration = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | The object key of the newly created object.
completeMultipartUploadResponse_key :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe ObjectKey)
completeMultipartUploadResponse_key :: Lens' CompleteMultipartUploadResponse (Maybe ObjectKey)
completeMultipartUploadResponse_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe ObjectKey
key :: Maybe ObjectKey
$sel:key:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ObjectKey
key} -> Maybe ObjectKey
key) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe ObjectKey
a -> CompleteMultipartUploadResponse
s {$sel:key:CompleteMultipartUploadResponse' :: Maybe ObjectKey
key = Maybe ObjectKey
a} :: CompleteMultipartUploadResponse)

-- | The URI that identifies the newly created object.
completeMultipartUploadResponse_location :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_location :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe Text
location :: Maybe Text
$sel:location:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
location} -> Maybe Text
location) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe Text
a -> CompleteMultipartUploadResponse
s {$sel:location:CompleteMultipartUploadResponse' :: Maybe Text
location = Maybe Text
a} :: CompleteMultipartUploadResponse)

-- | Undocumented member.
completeMultipartUploadResponse_requestCharged :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe RequestCharged)
completeMultipartUploadResponse_requestCharged :: Lens' CompleteMultipartUploadResponse (Maybe RequestCharged)
completeMultipartUploadResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe RequestCharged
a -> CompleteMultipartUploadResponse
s {$sel:requestCharged:CompleteMultipartUploadResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: CompleteMultipartUploadResponse)

-- | If present, specifies the ID of the Amazon Web Services Key Management
-- Service (Amazon Web Services KMS) symmetric customer managed key that
-- was used for the object.
completeMultipartUploadResponse_sSEKMSKeyId :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe Prelude.Text)
completeMultipartUploadResponse_sSEKMSKeyId :: Lens' CompleteMultipartUploadResponse (Maybe Text)
completeMultipartUploadResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe (Sensitive Text)
a -> CompleteMultipartUploadResponse
s {$sel:sSEKMSKeyId:CompleteMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: CompleteMultipartUploadResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | If you specified server-side encryption either with an Amazon S3-managed
-- encryption key or an Amazon Web Services KMS key in your initiate
-- multipart upload request, the response includes this header. It confirms
-- the encryption algorithm that Amazon S3 used to encrypt the object.
completeMultipartUploadResponse_serverSideEncryption :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe ServerSideEncryption)
completeMultipartUploadResponse_serverSideEncryption :: Lens' CompleteMultipartUploadResponse (Maybe ServerSideEncryption)
completeMultipartUploadResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe ServerSideEncryption
a -> CompleteMultipartUploadResponse
s {$sel:serverSideEncryption:CompleteMultipartUploadResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: CompleteMultipartUploadResponse)

-- | Version ID of the newly created object, in case the bucket has
-- versioning turned on.
completeMultipartUploadResponse_versionId :: Lens.Lens' CompleteMultipartUploadResponse (Prelude.Maybe ObjectVersionId)
completeMultipartUploadResponse_versionId :: Lens' CompleteMultipartUploadResponse (Maybe ObjectVersionId)
completeMultipartUploadResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Maybe ObjectVersionId
a -> CompleteMultipartUploadResponse
s {$sel:versionId:CompleteMultipartUploadResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: CompleteMultipartUploadResponse)

-- | The response's http status code.
completeMultipartUploadResponse_httpStatus :: Lens.Lens' CompleteMultipartUploadResponse Prelude.Int
completeMultipartUploadResponse_httpStatus :: Lens' CompleteMultipartUploadResponse Int
completeMultipartUploadResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CompleteMultipartUploadResponse' {Int
httpStatus :: Int
$sel:httpStatus:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CompleteMultipartUploadResponse
s@CompleteMultipartUploadResponse' {} Int
a -> CompleteMultipartUploadResponse
s {$sel:httpStatus:CompleteMultipartUploadResponse' :: Int
httpStatus = Int
a} :: CompleteMultipartUploadResponse)

instance
  Prelude.NFData
    CompleteMultipartUploadResponse
  where
  rnf :: CompleteMultipartUploadResponse -> ()
rnf CompleteMultipartUploadResponse' {Int
Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectKey
Maybe ObjectVersionId
Maybe ETag
Maybe BucketName
Maybe RequestCharged
Maybe ServerSideEncryption
httpStatus :: Int
versionId :: Maybe ObjectVersionId
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
requestCharged :: Maybe RequestCharged
location :: Maybe Text
key :: Maybe ObjectKey
expiration :: Maybe Text
eTag :: Maybe ETag
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
bucketKeyEnabled :: Maybe Bool
bucket :: Maybe BucketName
$sel:httpStatus:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Int
$sel:versionId:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ObjectVersionId
$sel:serverSideEncryption:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe (Sensitive Text)
$sel:requestCharged:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe RequestCharged
$sel:location:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:key:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ObjectKey
$sel:expiration:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:eTag:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe ETag
$sel:checksumSHA256:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:checksumSHA1:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:checksumCRC32C:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:checksumCRC32:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Text
$sel:bucketKeyEnabled:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe Bool
$sel:bucket:CompleteMultipartUploadResponse' :: CompleteMultipartUploadResponse -> Maybe BucketName
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketName
bucket
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
bucketKeyEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32C
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA1
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA256
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ETag
eTag
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expiration
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectKey
key
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
location
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestCharged
requestCharged
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
sSEKMSKeyId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ServerSideEncryption
serverSideEncryption
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectVersionId
versionId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus