{-# 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 #-}
module Amazonka.S3.CompleteMultipartUpload
(
CompleteMultipartUpload (..),
newCompleteMultipartUpload,
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,
CompleteMultipartUploadResponse (..),
newCompleteMultipartUploadResponse,
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
data CompleteMultipartUpload = CompleteMultipartUpload'
{
CompleteMultipartUpload -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe CompletedMultipartUpload
multipartUpload :: Prelude.Maybe CompletedMultipartUpload,
CompleteMultipartUpload -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
CompleteMultipartUpload -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CompleteMultipartUpload -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUpload -> BucketName
bucket :: BucketName,
CompleteMultipartUpload -> ObjectKey
key :: ObjectKey,
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)
newCompleteMultipartUpload ::
BucketName ->
ObjectKey ->
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_
}
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)
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)
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)
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)
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)
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)
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)
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)
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
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)
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)
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)
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]
data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse'
{
CompleteMultipartUploadResponse -> Maybe BucketName
bucket :: Prelude.Maybe BucketName,
CompleteMultipartUploadResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
CompleteMultipartUploadResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe ObjectKey
key :: Prelude.Maybe ObjectKey,
CompleteMultipartUploadResponse -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
CompleteMultipartUploadResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
CompleteMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CompleteMultipartUploadResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
CompleteMultipartUploadResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
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)
newCompleteMultipartUploadResponse ::
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_
}
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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
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)
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)
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