{-# 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.CreateMultipartUpload
(
CreateMultipartUpload (..),
newCreateMultipartUpload,
createMultipartUpload_acl,
createMultipartUpload_bucketKeyEnabled,
createMultipartUpload_cacheControl,
createMultipartUpload_checksumAlgorithm,
createMultipartUpload_contentDisposition,
createMultipartUpload_contentEncoding,
createMultipartUpload_contentLanguage,
createMultipartUpload_contentType,
createMultipartUpload_expectedBucketOwner,
createMultipartUpload_expires,
createMultipartUpload_grantFullControl,
createMultipartUpload_grantRead,
createMultipartUpload_grantReadACP,
createMultipartUpload_grantWriteACP,
createMultipartUpload_metadata,
createMultipartUpload_objectLockLegalHoldStatus,
createMultipartUpload_objectLockMode,
createMultipartUpload_objectLockRetainUntilDate,
createMultipartUpload_requestPayer,
createMultipartUpload_sSECustomerAlgorithm,
createMultipartUpload_sSECustomerKey,
createMultipartUpload_sSECustomerKeyMD5,
createMultipartUpload_sSEKMSEncryptionContext,
createMultipartUpload_sSEKMSKeyId,
createMultipartUpload_serverSideEncryption,
createMultipartUpload_storageClass,
createMultipartUpload_tagging,
createMultipartUpload_websiteRedirectLocation,
createMultipartUpload_bucket,
createMultipartUpload_key,
CreateMultipartUploadResponse (..),
newCreateMultipartUploadResponse,
createMultipartUploadResponse_abortDate,
createMultipartUploadResponse_abortRuleId,
createMultipartUploadResponse_bucket,
createMultipartUploadResponse_bucketKeyEnabled,
createMultipartUploadResponse_checksumAlgorithm,
createMultipartUploadResponse_key,
createMultipartUploadResponse_requestCharged,
createMultipartUploadResponse_sSECustomerAlgorithm,
createMultipartUploadResponse_sSECustomerKeyMD5,
createMultipartUploadResponse_sSEKMSEncryptionContext,
createMultipartUploadResponse_sSEKMSKeyId,
createMultipartUploadResponse_serverSideEncryption,
createMultipartUploadResponse_httpStatus,
createMultipartUploadResponse_uploadId,
)
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 CreateMultipartUpload = CreateMultipartUpload'
{
CreateMultipartUpload -> Maybe ObjectCannedACL
acl :: Prelude.Maybe ObjectCannedACL,
CreateMultipartUpload -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
CreateMultipartUpload -> Maybe Text
cacheControl :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
CreateMultipartUpload -> Maybe Text
contentDisposition :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
contentEncoding :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
contentLanguage :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe RFC822
expires :: Prelude.Maybe Data.RFC822,
CreateMultipartUpload -> Maybe Text
grantFullControl :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
grantRead :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
grantReadACP :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
grantWriteACP :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> HashMap Text Text
metadata :: Prelude.HashMap Prelude.Text Prelude.Text,
CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Prelude.Maybe ObjectLockLegalHoldStatus,
CreateMultipartUpload -> Maybe ObjectLockMode
objectLockMode :: Prelude.Maybe ObjectLockMode,
CreateMultipartUpload -> Maybe ISO8601
objectLockRetainUntilDate :: Prelude.Maybe Data.ISO8601,
CreateMultipartUpload -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
CreateMultipartUpload -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateMultipartUpload -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateMultipartUpload -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateMultipartUpload -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
CreateMultipartUpload -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
CreateMultipartUpload -> Maybe Text
tagging :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> Maybe Text
websiteRedirectLocation :: Prelude.Maybe Prelude.Text,
CreateMultipartUpload -> BucketName
bucket :: BucketName,
CreateMultipartUpload -> ObjectKey
key :: ObjectKey
}
deriving (CreateMultipartUpload -> CreateMultipartUpload -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMultipartUpload -> CreateMultipartUpload -> Bool
$c/= :: CreateMultipartUpload -> CreateMultipartUpload -> Bool
== :: CreateMultipartUpload -> CreateMultipartUpload -> Bool
$c== :: CreateMultipartUpload -> CreateMultipartUpload -> Bool
Prelude.Eq, Int -> CreateMultipartUpload -> ShowS
[CreateMultipartUpload] -> ShowS
CreateMultipartUpload -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMultipartUpload] -> ShowS
$cshowList :: [CreateMultipartUpload] -> ShowS
show :: CreateMultipartUpload -> String
$cshow :: CreateMultipartUpload -> String
showsPrec :: Int -> CreateMultipartUpload -> ShowS
$cshowsPrec :: Int -> CreateMultipartUpload -> ShowS
Prelude.Show, forall x. Rep CreateMultipartUpload x -> CreateMultipartUpload
forall x. CreateMultipartUpload -> Rep CreateMultipartUpload x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateMultipartUpload x -> CreateMultipartUpload
$cfrom :: forall x. CreateMultipartUpload -> Rep CreateMultipartUpload x
Prelude.Generic)
newCreateMultipartUpload ::
BucketName ->
ObjectKey ->
CreateMultipartUpload
newCreateMultipartUpload :: BucketName -> ObjectKey -> CreateMultipartUpload
newCreateMultipartUpload BucketName
pBucket_ ObjectKey
pKey_ =
CreateMultipartUpload'
{ $sel:acl:CreateMultipartUpload' :: Maybe ObjectCannedACL
acl = forall a. Maybe a
Prelude.Nothing,
$sel:bucketKeyEnabled:CreateMultipartUpload' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:cacheControl:CreateMultipartUpload' :: Maybe Text
cacheControl = forall a. Maybe a
Prelude.Nothing,
$sel:checksumAlgorithm:CreateMultipartUpload' :: Maybe ChecksumAlgorithm
checksumAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:contentDisposition:CreateMultipartUpload' :: Maybe Text
contentDisposition = forall a. Maybe a
Prelude.Nothing,
$sel:contentEncoding:CreateMultipartUpload' :: Maybe Text
contentEncoding = forall a. Maybe a
Prelude.Nothing,
$sel:contentLanguage:CreateMultipartUpload' :: Maybe Text
contentLanguage = forall a. Maybe a
Prelude.Nothing,
$sel:contentType:CreateMultipartUpload' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:CreateMultipartUpload' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:expires:CreateMultipartUpload' :: Maybe RFC822
expires = forall a. Maybe a
Prelude.Nothing,
$sel:grantFullControl:CreateMultipartUpload' :: Maybe Text
grantFullControl = forall a. Maybe a
Prelude.Nothing,
$sel:grantRead:CreateMultipartUpload' :: Maybe Text
grantRead = forall a. Maybe a
Prelude.Nothing,
$sel:grantReadACP:CreateMultipartUpload' :: Maybe Text
grantReadACP = forall a. Maybe a
Prelude.Nothing,
$sel:grantWriteACP:CreateMultipartUpload' :: Maybe Text
grantWriteACP = forall a. Maybe a
Prelude.Nothing,
$sel:metadata:CreateMultipartUpload' :: HashMap Text Text
metadata = forall a. Monoid a => a
Prelude.mempty,
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockMode:CreateMultipartUpload' :: Maybe ObjectLockMode
objectLockMode = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: Maybe ISO8601
objectLockRetainUntilDate = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:CreateMultipartUpload' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKey:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSEKMSEncryptionContext = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSKeyId:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:serverSideEncryption:CreateMultipartUpload' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:storageClass:CreateMultipartUpload' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
$sel:tagging:CreateMultipartUpload' :: Maybe Text
tagging = forall a. Maybe a
Prelude.Nothing,
$sel:websiteRedirectLocation:CreateMultipartUpload' :: Maybe Text
websiteRedirectLocation = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:CreateMultipartUpload' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:CreateMultipartUpload' :: ObjectKey
key = ObjectKey
pKey_
}
createMultipartUpload_acl :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe ObjectCannedACL)
createMultipartUpload_acl :: Lens' CreateMultipartUpload (Maybe ObjectCannedACL)
createMultipartUpload_acl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ObjectCannedACL
acl :: Maybe ObjectCannedACL
$sel:acl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectCannedACL
acl} -> Maybe ObjectCannedACL
acl) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ObjectCannedACL
a -> CreateMultipartUpload
s {$sel:acl:CreateMultipartUpload' :: Maybe ObjectCannedACL
acl = Maybe ObjectCannedACL
a} :: CreateMultipartUpload)
createMultipartUpload_bucketKeyEnabled :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Bool)
createMultipartUpload_bucketKeyEnabled :: Lens' CreateMultipartUpload (Maybe Bool)
createMultipartUpload_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Bool
a -> CreateMultipartUpload
s {$sel:bucketKeyEnabled:CreateMultipartUpload' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: CreateMultipartUpload)
createMultipartUpload_cacheControl :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_cacheControl :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_cacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
cacheControl :: Maybe Text
$sel:cacheControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
cacheControl} -> Maybe Text
cacheControl) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:cacheControl:CreateMultipartUpload' :: Maybe Text
cacheControl = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_checksumAlgorithm :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe ChecksumAlgorithm)
createMultipartUpload_checksumAlgorithm :: Lens' CreateMultipartUpload (Maybe ChecksumAlgorithm)
createMultipartUpload_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ChecksumAlgorithm
a -> CreateMultipartUpload
s {$sel:checksumAlgorithm:CreateMultipartUpload' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: CreateMultipartUpload)
createMultipartUpload_contentDisposition :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_contentDisposition :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_contentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
contentDisposition :: Maybe Text
$sel:contentDisposition:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
contentDisposition} -> Maybe Text
contentDisposition) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:contentDisposition:CreateMultipartUpload' :: Maybe Text
contentDisposition = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_contentEncoding :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_contentEncoding :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_contentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
contentEncoding :: Maybe Text
$sel:contentEncoding:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
contentEncoding} -> Maybe Text
contentEncoding) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:contentEncoding:CreateMultipartUpload' :: Maybe Text
contentEncoding = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_contentLanguage :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_contentLanguage :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_contentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
contentLanguage :: Maybe Text
$sel:contentLanguage:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
contentLanguage} -> Maybe Text
contentLanguage) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:contentLanguage:CreateMultipartUpload' :: Maybe Text
contentLanguage = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_contentType :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_contentType :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
contentType :: Maybe Text
$sel:contentType:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:contentType:CreateMultipartUpload' :: Maybe Text
contentType = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_expectedBucketOwner :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_expectedBucketOwner :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:expectedBucketOwner:CreateMultipartUpload' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_expires :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.UTCTime)
createMultipartUpload_expires :: Lens' CreateMultipartUpload (Maybe UTCTime)
createMultipartUpload_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe RFC822
expires :: Maybe RFC822
$sel:expires:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RFC822
expires} -> Maybe RFC822
expires) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe RFC822
a -> CreateMultipartUpload
s {$sel:expires:CreateMultipartUpload' :: Maybe RFC822
expires = Maybe RFC822
a} :: CreateMultipartUpload) 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 :: Format). Iso' (Time a) UTCTime
Data._Time
createMultipartUpload_grantFullControl :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_grantFullControl :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_grantFullControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
grantFullControl :: Maybe Text
$sel:grantFullControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
grantFullControl} -> Maybe Text
grantFullControl) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:grantFullControl:CreateMultipartUpload' :: Maybe Text
grantFullControl = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_grantRead :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_grantRead :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_grantRead = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
grantRead :: Maybe Text
$sel:grantRead:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
grantRead} -> Maybe Text
grantRead) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:grantRead:CreateMultipartUpload' :: Maybe Text
grantRead = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_grantReadACP :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_grantReadACP :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_grantReadACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
grantReadACP :: Maybe Text
$sel:grantReadACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
grantReadACP} -> Maybe Text
grantReadACP) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:grantReadACP:CreateMultipartUpload' :: Maybe Text
grantReadACP = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_grantWriteACP :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_grantWriteACP :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_grantWriteACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
grantWriteACP :: Maybe Text
$sel:grantWriteACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
grantWriteACP} -> Maybe Text
grantWriteACP) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:grantWriteACP:CreateMultipartUpload' :: Maybe Text
grantWriteACP = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_metadata :: Lens.Lens' CreateMultipartUpload (Prelude.HashMap Prelude.Text Prelude.Text)
createMultipartUpload_metadata :: Lens' CreateMultipartUpload (HashMap Text Text)
createMultipartUpload_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {HashMap Text Text
metadata :: HashMap Text Text
$sel:metadata:CreateMultipartUpload' :: CreateMultipartUpload -> HashMap Text Text
metadata} -> HashMap Text Text
metadata) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} HashMap Text Text
a -> CreateMultipartUpload
s {$sel:metadata:CreateMultipartUpload' :: HashMap Text Text
metadata = HashMap Text Text
a} :: CreateMultipartUpload) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createMultipartUpload_objectLockLegalHoldStatus :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe ObjectLockLegalHoldStatus)
createMultipartUpload_objectLockLegalHoldStatus :: Lens' CreateMultipartUpload (Maybe ObjectLockLegalHoldStatus)
createMultipartUpload_objectLockLegalHoldStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus} -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ObjectLockLegalHoldStatus
a -> CreateMultipartUpload
s {$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = Maybe ObjectLockLegalHoldStatus
a} :: CreateMultipartUpload)
createMultipartUpload_objectLockMode :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe ObjectLockMode)
createMultipartUpload_objectLockMode :: Lens' CreateMultipartUpload (Maybe ObjectLockMode)
createMultipartUpload_objectLockMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ObjectLockMode
objectLockMode :: Maybe ObjectLockMode
$sel:objectLockMode:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockMode
objectLockMode} -> Maybe ObjectLockMode
objectLockMode) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ObjectLockMode
a -> CreateMultipartUpload
s {$sel:objectLockMode:CreateMultipartUpload' :: Maybe ObjectLockMode
objectLockMode = Maybe ObjectLockMode
a} :: CreateMultipartUpload)
createMultipartUpload_objectLockRetainUntilDate :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.UTCTime)
createMultipartUpload_objectLockRetainUntilDate :: Lens' CreateMultipartUpload (Maybe UTCTime)
createMultipartUpload_objectLockRetainUntilDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ISO8601
objectLockRetainUntilDate :: Maybe ISO8601
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ISO8601
objectLockRetainUntilDate} -> Maybe ISO8601
objectLockRetainUntilDate) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ISO8601
a -> CreateMultipartUpload
s {$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: Maybe ISO8601
objectLockRetainUntilDate = Maybe ISO8601
a} :: CreateMultipartUpload) 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 :: Format). Iso' (Time a) UTCTime
Data._Time
createMultipartUpload_requestPayer :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe RequestPayer)
createMultipartUpload_requestPayer :: Lens' CreateMultipartUpload (Maybe RequestPayer)
createMultipartUpload_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe RequestPayer
a -> CreateMultipartUpload
s {$sel:requestPayer:CreateMultipartUpload' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: CreateMultipartUpload)
createMultipartUpload_sSECustomerAlgorithm :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_sSECustomerAlgorithm :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_sSECustomerKey :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_sSECustomerKey :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe (Sensitive Text)
a -> CreateMultipartUpload
s {$sel:sSECustomerKey:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: CreateMultipartUpload) 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
createMultipartUpload_sSECustomerKeyMD5 :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_sSECustomerKeyMD5 :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_sSEKMSEncryptionContext :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_sSEKMSEncryptionContext :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_sSEKMSEncryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
sSEKMSEncryptionContext} -> Maybe (Sensitive Text)
sSEKMSEncryptionContext) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe (Sensitive Text)
a -> CreateMultipartUpload
s {$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSEKMSEncryptionContext = Maybe (Sensitive Text)
a} :: CreateMultipartUpload) 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
createMultipartUpload_sSEKMSKeyId :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_sSEKMSKeyId :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe (Sensitive Text)
a -> CreateMultipartUpload
s {$sel:sSEKMSKeyId:CreateMultipartUpload' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: CreateMultipartUpload) 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
createMultipartUpload_serverSideEncryption :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe ServerSideEncryption)
createMultipartUpload_serverSideEncryption :: Lens' CreateMultipartUpload (Maybe ServerSideEncryption)
createMultipartUpload_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe ServerSideEncryption
a -> CreateMultipartUpload
s {$sel:serverSideEncryption:CreateMultipartUpload' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: CreateMultipartUpload)
createMultipartUpload_storageClass :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe StorageClass)
createMultipartUpload_storageClass :: Lens' CreateMultipartUpload (Maybe StorageClass)
createMultipartUpload_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe StorageClass
a -> CreateMultipartUpload
s {$sel:storageClass:CreateMultipartUpload' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: CreateMultipartUpload)
createMultipartUpload_tagging :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_tagging :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_tagging = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
tagging :: Maybe Text
$sel:tagging:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
tagging} -> Maybe Text
tagging) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:tagging:CreateMultipartUpload' :: Maybe Text
tagging = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_websiteRedirectLocation :: Lens.Lens' CreateMultipartUpload (Prelude.Maybe Prelude.Text)
createMultipartUpload_websiteRedirectLocation :: Lens' CreateMultipartUpload (Maybe Text)
createMultipartUpload_websiteRedirectLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {Maybe Text
websiteRedirectLocation :: Maybe Text
$sel:websiteRedirectLocation:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
websiteRedirectLocation} -> Maybe Text
websiteRedirectLocation) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} Maybe Text
a -> CreateMultipartUpload
s {$sel:websiteRedirectLocation:CreateMultipartUpload' :: Maybe Text
websiteRedirectLocation = Maybe Text
a} :: CreateMultipartUpload)
createMultipartUpload_bucket :: Lens.Lens' CreateMultipartUpload BucketName
createMultipartUpload_bucket :: Lens' CreateMultipartUpload BucketName
createMultipartUpload_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {BucketName
bucket :: BucketName
$sel:bucket:CreateMultipartUpload' :: CreateMultipartUpload -> BucketName
bucket} -> BucketName
bucket) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} BucketName
a -> CreateMultipartUpload
s {$sel:bucket:CreateMultipartUpload' :: BucketName
bucket = BucketName
a} :: CreateMultipartUpload)
createMultipartUpload_key :: Lens.Lens' CreateMultipartUpload ObjectKey
createMultipartUpload_key :: Lens' CreateMultipartUpload ObjectKey
createMultipartUpload_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUpload' {ObjectKey
key :: ObjectKey
$sel:key:CreateMultipartUpload' :: CreateMultipartUpload -> ObjectKey
key} -> ObjectKey
key) (\s :: CreateMultipartUpload
s@CreateMultipartUpload' {} ObjectKey
a -> CreateMultipartUpload
s {$sel:key:CreateMultipartUpload' :: ObjectKey
key = ObjectKey
a} :: CreateMultipartUpload)
instance Core.AWSRequest CreateMultipartUpload where
type
AWSResponse CreateMultipartUpload =
CreateMultipartUploadResponse
request :: (Service -> Service)
-> CreateMultipartUpload -> Request CreateMultipartUpload
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 => Service -> a -> Request a
Request.post (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateMultipartUpload
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateMultipartUpload)))
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 RFC822
-> Maybe Text
-> Maybe BucketName
-> Maybe Bool
-> Maybe ChecksumAlgorithm
-> Maybe ObjectKey
-> Maybe RequestCharged
-> Maybe Text
-> Maybe Text
-> Maybe (Sensitive Text)
-> Maybe (Sensitive Text)
-> Maybe ServerSideEncryption
-> Int
-> Text
-> CreateMultipartUploadResponse
CreateMultipartUploadResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-abort-date")
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-abort-rule-id")
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
"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.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-checksum-algorithm")
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.<*> (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-customer-algorithm"
)
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-customer-key-MD5"
)
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-context")
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"UploadId")
)
instance Prelude.Hashable CreateMultipartUpload where
hashWithSalt :: Int -> CreateMultipartUpload -> Int
hashWithSalt Int
_salt CreateMultipartUpload' {Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe RequestPayer
Maybe ServerSideEncryption
Maybe StorageClass
HashMap Text Text
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
websiteRedirectLocation :: Maybe Text
tagging :: Maybe Text
storageClass :: Maybe StorageClass
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
metadata :: HashMap Text Text
grantWriteACP :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expires :: Maybe RFC822
expectedBucketOwner :: Maybe Text
contentType :: Maybe Text
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acl :: Maybe ObjectCannedACL
$sel:key:CreateMultipartUpload' :: CreateMultipartUpload -> ObjectKey
$sel:bucket:CreateMultipartUpload' :: CreateMultipartUpload -> BucketName
$sel:websiteRedirectLocation:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:tagging:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:storageClass:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe StorageClass
$sel:serverSideEncryption:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:requestPayer:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RequestPayer
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ISO8601
$sel:objectLockMode:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
$sel:metadata:CreateMultipartUpload' :: CreateMultipartUpload -> HashMap Text Text
$sel:grantWriteACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantReadACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantRead:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantFullControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:expires:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RFC822
$sel:expectedBucketOwner:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentType:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentLanguage:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentEncoding:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentDisposition:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:checksumAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ChecksumAlgorithm
$sel:cacheControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:bucketKeyEnabled:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Bool
$sel:acl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectCannedACL
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectCannedACL
acl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
bucketKeyEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheControl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChecksumAlgorithm
checksumAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentDisposition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentEncoding
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentLanguage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RFC822
expires
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantFullControl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantRead
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantReadACP
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantWriteACP
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` HashMap Text Text
metadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectLockMode
objectLockMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
objectLockRetainUntilDate
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` Maybe (Sensitive Text)
sSEKMSEncryptionContext
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
sSEKMSKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServerSideEncryption
serverSideEncryption
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StorageClass
storageClass
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tagging
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
websiteRedirectLocation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
instance Prelude.NFData CreateMultipartUpload where
rnf :: CreateMultipartUpload -> ()
rnf CreateMultipartUpload' {Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe RequestPayer
Maybe ServerSideEncryption
Maybe StorageClass
HashMap Text Text
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
websiteRedirectLocation :: Maybe Text
tagging :: Maybe Text
storageClass :: Maybe StorageClass
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
metadata :: HashMap Text Text
grantWriteACP :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expires :: Maybe RFC822
expectedBucketOwner :: Maybe Text
contentType :: Maybe Text
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acl :: Maybe ObjectCannedACL
$sel:key:CreateMultipartUpload' :: CreateMultipartUpload -> ObjectKey
$sel:bucket:CreateMultipartUpload' :: CreateMultipartUpload -> BucketName
$sel:websiteRedirectLocation:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:tagging:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:storageClass:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe StorageClass
$sel:serverSideEncryption:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:requestPayer:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RequestPayer
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ISO8601
$sel:objectLockMode:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
$sel:metadata:CreateMultipartUpload' :: CreateMultipartUpload -> HashMap Text Text
$sel:grantWriteACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantReadACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantRead:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantFullControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:expires:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RFC822
$sel:expectedBucketOwner:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentType:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentLanguage:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentEncoding:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentDisposition:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:checksumAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ChecksumAlgorithm
$sel:cacheControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:bucketKeyEnabled:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Bool
$sel:acl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectCannedACL
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectCannedACL
acl
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
cacheControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChecksumAlgorithm
checksumAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentDisposition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentEncoding
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentLanguage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentType
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 RFC822
expires
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantFullControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantRead
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantReadACP
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantWriteACP
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf HashMap Text Text
metadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectLockMode
objectLockMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ISO8601
objectLockRetainUntilDate
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
Maybe (Sensitive Text)
sSEKMSEncryptionContext
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 StorageClass
storageClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
tagging
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
websiteRedirectLocation
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
instance Data.ToHeaders CreateMultipartUpload where
toHeaders :: CreateMultipartUpload -> ResponseHeaders
toHeaders CreateMultipartUpload' {Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe RequestPayer
Maybe ServerSideEncryption
Maybe StorageClass
HashMap Text Text
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
websiteRedirectLocation :: Maybe Text
tagging :: Maybe Text
storageClass :: Maybe StorageClass
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
metadata :: HashMap Text Text
grantWriteACP :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expires :: Maybe RFC822
expectedBucketOwner :: Maybe Text
contentType :: Maybe Text
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acl :: Maybe ObjectCannedACL
$sel:key:CreateMultipartUpload' :: CreateMultipartUpload -> ObjectKey
$sel:bucket:CreateMultipartUpload' :: CreateMultipartUpload -> BucketName
$sel:websiteRedirectLocation:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:tagging:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:storageClass:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe StorageClass
$sel:serverSideEncryption:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:requestPayer:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RequestPayer
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ISO8601
$sel:objectLockMode:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
$sel:metadata:CreateMultipartUpload' :: CreateMultipartUpload -> HashMap Text Text
$sel:grantWriteACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantReadACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantRead:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantFullControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:expires:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RFC822
$sel:expectedBucketOwner:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentType:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentLanguage:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentEncoding:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentDisposition:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:checksumAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ChecksumAlgorithm
$sel:cacheControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:bucketKeyEnabled:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Bool
$sel:acl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-acl" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ObjectCannedACL
acl,
HeaderName
"x-amz-server-side-encryption-bucket-key-enabled"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Bool
bucketKeyEnabled,
HeaderName
"Cache-Control" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
cacheControl,
HeaderName
"x-amz-checksum-algorithm" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ChecksumAlgorithm
checksumAlgorithm,
HeaderName
"Content-Disposition" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
contentDisposition,
HeaderName
"Content-Encoding" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
contentEncoding,
HeaderName
"Content-Language" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
contentLanguage,
HeaderName
"Content-Type" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
contentType,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"Expires" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RFC822
expires,
HeaderName
"x-amz-grant-full-control" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantFullControl,
HeaderName
"x-amz-grant-read" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantRead,
HeaderName
"x-amz-grant-read-acp" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantReadACP,
HeaderName
"x-amz-grant-write-acp" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantWriteACP,
HeaderName
"x-amz-meta-" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# HashMap Text Text
metadata,
HeaderName
"x-amz-object-lock-legal-hold"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus,
HeaderName
"x-amz-object-lock-mode" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ObjectLockMode
objectLockMode,
HeaderName
"x-amz-object-lock-retain-until-date"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ISO8601
objectLockRetainUntilDate,
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,
HeaderName
"x-amz-server-side-encryption-context"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSEKMSEncryptionContext,
HeaderName
"x-amz-server-side-encryption-aws-kms-key-id"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSEKMSKeyId,
HeaderName
"x-amz-server-side-encryption"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ServerSideEncryption
serverSideEncryption,
HeaderName
"x-amz-storage-class" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe StorageClass
storageClass,
HeaderName
"x-amz-tagging" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
tagging,
HeaderName
"x-amz-website-redirect-location"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
websiteRedirectLocation
]
instance Data.ToPath CreateMultipartUpload where
toPath :: CreateMultipartUpload -> ByteString
toPath CreateMultipartUpload' {Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe RequestPayer
Maybe ServerSideEncryption
Maybe StorageClass
HashMap Text Text
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
websiteRedirectLocation :: Maybe Text
tagging :: Maybe Text
storageClass :: Maybe StorageClass
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
metadata :: HashMap Text Text
grantWriteACP :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expires :: Maybe RFC822
expectedBucketOwner :: Maybe Text
contentType :: Maybe Text
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acl :: Maybe ObjectCannedACL
$sel:key:CreateMultipartUpload' :: CreateMultipartUpload -> ObjectKey
$sel:bucket:CreateMultipartUpload' :: CreateMultipartUpload -> BucketName
$sel:websiteRedirectLocation:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:tagging:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:storageClass:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe StorageClass
$sel:serverSideEncryption:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:sSECustomerKey:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:requestPayer:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RequestPayer
$sel:objectLockRetainUntilDate:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ISO8601
$sel:objectLockMode:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectLockLegalHoldStatus
$sel:metadata:CreateMultipartUpload' :: CreateMultipartUpload -> HashMap Text Text
$sel:grantWriteACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantReadACP:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantRead:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:grantFullControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:expires:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe RFC822
$sel:expectedBucketOwner:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentType:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentLanguage:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentEncoding:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:contentDisposition:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:checksumAlgorithm:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ChecksumAlgorithm
$sel:cacheControl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Text
$sel:bucketKeyEnabled:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe Bool
$sel:acl:CreateMultipartUpload' :: CreateMultipartUpload -> Maybe ObjectCannedACL
..} =
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 CreateMultipartUpload where
toQuery :: CreateMultipartUpload -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"uploads"])
data CreateMultipartUploadResponse = CreateMultipartUploadResponse'
{
CreateMultipartUploadResponse -> Maybe RFC822
abortDate :: Prelude.Maybe Data.RFC822,
CreateMultipartUploadResponse -> Maybe Text
abortRuleId :: Prelude.Maybe Prelude.Text,
CreateMultipartUploadResponse -> Maybe BucketName
bucket :: Prelude.Maybe BucketName,
CreateMultipartUploadResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
CreateMultipartUploadResponse -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
CreateMultipartUploadResponse -> Maybe ObjectKey
key :: Prelude.Maybe ObjectKey,
CreateMultipartUploadResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
CreateMultipartUploadResponse -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
CreateMultipartUploadResponse -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
CreateMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateMultipartUploadResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
CreateMultipartUploadResponse -> Int
httpStatus :: Prelude.Int,
CreateMultipartUploadResponse -> Text
uploadId :: Prelude.Text
}
deriving (CreateMultipartUploadResponse
-> CreateMultipartUploadResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateMultipartUploadResponse
-> CreateMultipartUploadResponse -> Bool
$c/= :: CreateMultipartUploadResponse
-> CreateMultipartUploadResponse -> Bool
== :: CreateMultipartUploadResponse
-> CreateMultipartUploadResponse -> Bool
$c== :: CreateMultipartUploadResponse
-> CreateMultipartUploadResponse -> Bool
Prelude.Eq, Int -> CreateMultipartUploadResponse -> ShowS
[CreateMultipartUploadResponse] -> ShowS
CreateMultipartUploadResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateMultipartUploadResponse] -> ShowS
$cshowList :: [CreateMultipartUploadResponse] -> ShowS
show :: CreateMultipartUploadResponse -> String
$cshow :: CreateMultipartUploadResponse -> String
showsPrec :: Int -> CreateMultipartUploadResponse -> ShowS
$cshowsPrec :: Int -> CreateMultipartUploadResponse -> ShowS
Prelude.Show, forall x.
Rep CreateMultipartUploadResponse x
-> CreateMultipartUploadResponse
forall x.
CreateMultipartUploadResponse
-> Rep CreateMultipartUploadResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateMultipartUploadResponse x
-> CreateMultipartUploadResponse
$cfrom :: forall x.
CreateMultipartUploadResponse
-> Rep CreateMultipartUploadResponse x
Prelude.Generic)
newCreateMultipartUploadResponse ::
Prelude.Int ->
Prelude.Text ->
CreateMultipartUploadResponse
newCreateMultipartUploadResponse :: Int -> Text -> CreateMultipartUploadResponse
newCreateMultipartUploadResponse
Int
pHttpStatus_
Text
pUploadId_ =
CreateMultipartUploadResponse'
{ $sel:abortDate:CreateMultipartUploadResponse' :: Maybe RFC822
abortDate =
forall a. Maybe a
Prelude.Nothing,
$sel:abortRuleId:CreateMultipartUploadResponse' :: Maybe Text
abortRuleId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:CreateMultipartUploadResponse' :: Maybe BucketName
bucket = forall a. Maybe a
Prelude.Nothing,
$sel:bucketKeyEnabled:CreateMultipartUploadResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:checksumAlgorithm:CreateMultipartUploadResponse' :: Maybe ChecksumAlgorithm
checksumAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:key:CreateMultipartUploadResponse' :: Maybe ObjectKey
key = forall a. Maybe a
Prelude.Nothing,
$sel:requestCharged:CreateMultipartUploadResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:CreateMultipartUploadResponse' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:CreateMultipartUploadResponse' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSEncryptionContext:CreateMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSEncryptionContext = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSKeyId:CreateMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:serverSideEncryption:CreateMultipartUploadResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateMultipartUploadResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:uploadId:CreateMultipartUploadResponse' :: Text
uploadId = Text
pUploadId_
}
createMultipartUploadResponse_abortDate :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.UTCTime)
createMultipartUploadResponse_abortDate :: Lens' CreateMultipartUploadResponse (Maybe UTCTime)
createMultipartUploadResponse_abortDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe RFC822
abortDate :: Maybe RFC822
$sel:abortDate:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe RFC822
abortDate} -> Maybe RFC822
abortDate) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe RFC822
a -> CreateMultipartUploadResponse
s {$sel:abortDate:CreateMultipartUploadResponse' :: Maybe RFC822
abortDate = Maybe RFC822
a} :: CreateMultipartUploadResponse) 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 :: Format). Iso' (Time a) UTCTime
Data._Time
createMultipartUploadResponse_abortRuleId :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Text)
createMultipartUploadResponse_abortRuleId :: Lens' CreateMultipartUploadResponse (Maybe Text)
createMultipartUploadResponse_abortRuleId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe Text
abortRuleId :: Maybe Text
$sel:abortRuleId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
abortRuleId} -> Maybe Text
abortRuleId) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe Text
a -> CreateMultipartUploadResponse
s {$sel:abortRuleId:CreateMultipartUploadResponse' :: Maybe Text
abortRuleId = Maybe Text
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_bucket :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe BucketName)
createMultipartUploadResponse_bucket :: Lens' CreateMultipartUploadResponse (Maybe BucketName)
createMultipartUploadResponse_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe BucketName
bucket :: Maybe BucketName
$sel:bucket:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe BucketName
bucket} -> Maybe BucketName
bucket) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe BucketName
a -> CreateMultipartUploadResponse
s {$sel:bucket:CreateMultipartUploadResponse' :: Maybe BucketName
bucket = Maybe BucketName
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_bucketKeyEnabled :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Bool)
createMultipartUploadResponse_bucketKeyEnabled :: Lens' CreateMultipartUploadResponse (Maybe Bool)
createMultipartUploadResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe Bool
a -> CreateMultipartUploadResponse
s {$sel:bucketKeyEnabled:CreateMultipartUploadResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_checksumAlgorithm :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe ChecksumAlgorithm)
createMultipartUploadResponse_checksumAlgorithm :: Lens' CreateMultipartUploadResponse (Maybe ChecksumAlgorithm)
createMultipartUploadResponse_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe ChecksumAlgorithm
a -> CreateMultipartUploadResponse
s {$sel:checksumAlgorithm:CreateMultipartUploadResponse' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_key :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe ObjectKey)
createMultipartUploadResponse_key :: Lens' CreateMultipartUploadResponse (Maybe ObjectKey)
createMultipartUploadResponse_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe ObjectKey
key :: Maybe ObjectKey
$sel:key:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ObjectKey
key} -> Maybe ObjectKey
key) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe ObjectKey
a -> CreateMultipartUploadResponse
s {$sel:key:CreateMultipartUploadResponse' :: Maybe ObjectKey
key = Maybe ObjectKey
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_requestCharged :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe RequestCharged)
createMultipartUploadResponse_requestCharged :: Lens' CreateMultipartUploadResponse (Maybe RequestCharged)
createMultipartUploadResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe RequestCharged
a -> CreateMultipartUploadResponse
s {$sel:requestCharged:CreateMultipartUploadResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_sSECustomerAlgorithm :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Text)
createMultipartUploadResponse_sSECustomerAlgorithm :: Lens' CreateMultipartUploadResponse (Maybe Text)
createMultipartUploadResponse_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe Text
a -> CreateMultipartUploadResponse
s {$sel:sSECustomerAlgorithm:CreateMultipartUploadResponse' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_sSECustomerKeyMD5 :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Text)
createMultipartUploadResponse_sSECustomerKeyMD5 :: Lens' CreateMultipartUploadResponse (Maybe Text)
createMultipartUploadResponse_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe Text
a -> CreateMultipartUploadResponse
s {$sel:sSECustomerKeyMD5:CreateMultipartUploadResponse' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_sSEKMSEncryptionContext :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Text)
createMultipartUploadResponse_sSEKMSEncryptionContext :: Lens' CreateMultipartUploadResponse (Maybe Text)
createMultipartUploadResponse_sSEKMSEncryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSEncryptionContext} -> Maybe (Sensitive Text)
sSEKMSEncryptionContext) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe (Sensitive Text)
a -> CreateMultipartUploadResponse
s {$sel:sSEKMSEncryptionContext:CreateMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSEncryptionContext = Maybe (Sensitive Text)
a} :: CreateMultipartUploadResponse) 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
createMultipartUploadResponse_sSEKMSKeyId :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe Prelude.Text)
createMultipartUploadResponse_sSEKMSKeyId :: Lens' CreateMultipartUploadResponse (Maybe Text)
createMultipartUploadResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe (Sensitive Text)
a -> CreateMultipartUploadResponse
s {$sel:sSEKMSKeyId:CreateMultipartUploadResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: CreateMultipartUploadResponse) 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
createMultipartUploadResponse_serverSideEncryption :: Lens.Lens' CreateMultipartUploadResponse (Prelude.Maybe ServerSideEncryption)
createMultipartUploadResponse_serverSideEncryption :: Lens' CreateMultipartUploadResponse (Maybe ServerSideEncryption)
createMultipartUploadResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Maybe ServerSideEncryption
a -> CreateMultipartUploadResponse
s {$sel:serverSideEncryption:CreateMultipartUploadResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_httpStatus :: Lens.Lens' CreateMultipartUploadResponse Prelude.Int
createMultipartUploadResponse_httpStatus :: Lens' CreateMultipartUploadResponse Int
createMultipartUploadResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Int
a -> CreateMultipartUploadResponse
s {$sel:httpStatus:CreateMultipartUploadResponse' :: Int
httpStatus = Int
a} :: CreateMultipartUploadResponse)
createMultipartUploadResponse_uploadId :: Lens.Lens' CreateMultipartUploadResponse Prelude.Text
createMultipartUploadResponse_uploadId :: Lens' CreateMultipartUploadResponse Text
createMultipartUploadResponse_uploadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateMultipartUploadResponse' {Text
uploadId :: Text
$sel:uploadId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Text
uploadId} -> Text
uploadId) (\s :: CreateMultipartUploadResponse
s@CreateMultipartUploadResponse' {} Text
a -> CreateMultipartUploadResponse
s {$sel:uploadId:CreateMultipartUploadResponse' :: Text
uploadId = Text
a} :: CreateMultipartUploadResponse)
instance Prelude.NFData CreateMultipartUploadResponse where
rnf :: CreateMultipartUploadResponse -> ()
rnf CreateMultipartUploadResponse' {Int
Maybe Bool
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectKey
Maybe BucketName
Maybe ChecksumAlgorithm
Maybe RequestCharged
Maybe ServerSideEncryption
Text
uploadId :: Text
httpStatus :: Int
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSEKMSEncryptionContext :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerAlgorithm :: Maybe Text
requestCharged :: Maybe RequestCharged
key :: Maybe ObjectKey
checksumAlgorithm :: Maybe ChecksumAlgorithm
bucketKeyEnabled :: Maybe Bool
bucket :: Maybe BucketName
abortRuleId :: Maybe Text
abortDate :: Maybe RFC822
$sel:uploadId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Text
$sel:httpStatus:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Int
$sel:serverSideEncryption:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe (Sensitive Text)
$sel:sSEKMSEncryptionContext:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
$sel:sSECustomerAlgorithm:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
$sel:requestCharged:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe RequestCharged
$sel:key:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ObjectKey
$sel:checksumAlgorithm:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe ChecksumAlgorithm
$sel:bucketKeyEnabled:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Bool
$sel:bucket:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe BucketName
$sel:abortRuleId:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe Text
$sel:abortDate:CreateMultipartUploadResponse' :: CreateMultipartUploadResponse -> Maybe RFC822
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
abortDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
abortRuleId
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 ChecksumAlgorithm
checksumAlgorithm
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 RequestCharged
requestCharged
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 Text
sSECustomerKeyMD5
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
sSEKMSEncryptionContext
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 Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
uploadId