{-# 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.WriteGetObjectResponse
(
WriteGetObjectResponse (..),
newWriteGetObjectResponse,
writeGetObjectResponse_acceptRanges,
writeGetObjectResponse_bucketKeyEnabled,
writeGetObjectResponse_cacheControl,
writeGetObjectResponse_checksumCRC32,
writeGetObjectResponse_checksumCRC32C,
writeGetObjectResponse_checksumSHA1,
writeGetObjectResponse_checksumSHA256,
writeGetObjectResponse_contentDisposition,
writeGetObjectResponse_contentEncoding,
writeGetObjectResponse_contentLanguage,
writeGetObjectResponse_contentLength,
writeGetObjectResponse_contentRange,
writeGetObjectResponse_contentType,
writeGetObjectResponse_deleteMarker,
writeGetObjectResponse_eTag,
writeGetObjectResponse_errorCode,
writeGetObjectResponse_errorMessage,
writeGetObjectResponse_expiration,
writeGetObjectResponse_expires,
writeGetObjectResponse_lastModified,
writeGetObjectResponse_metadata,
writeGetObjectResponse_missingMeta,
writeGetObjectResponse_objectLockLegalHoldStatus,
writeGetObjectResponse_objectLockMode,
writeGetObjectResponse_objectLockRetainUntilDate,
writeGetObjectResponse_partsCount,
writeGetObjectResponse_replicationStatus,
writeGetObjectResponse_requestCharged,
writeGetObjectResponse_restore,
writeGetObjectResponse_sSECustomerAlgorithm,
writeGetObjectResponse_sSECustomerKeyMD5,
writeGetObjectResponse_sSEKMSKeyId,
writeGetObjectResponse_serverSideEncryption,
writeGetObjectResponse_statusCode,
writeGetObjectResponse_storageClass,
writeGetObjectResponse_tagCount,
writeGetObjectResponse_versionId,
writeGetObjectResponse_requestRoute,
writeGetObjectResponse_requestToken,
writeGetObjectResponse_body,
WriteGetObjectResponseResponse (..),
newWriteGetObjectResponseResponse,
)
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 WriteGetObjectResponse = WriteGetObjectResponse'
{
WriteGetObjectResponse -> Maybe Text
acceptRanges :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
WriteGetObjectResponse -> Maybe Text
cacheControl :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
contentDisposition :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
contentEncoding :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
contentLanguage :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Integer
contentLength :: Prelude.Maybe Prelude.Integer,
WriteGetObjectResponse -> Maybe Text
contentRange :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Bool
deleteMarker :: Prelude.Maybe Prelude.Bool,
WriteGetObjectResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
WriteGetObjectResponse -> Maybe Text
errorCode :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
errorMessage :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe RFC822
expires :: Prelude.Maybe Data.RFC822,
WriteGetObjectResponse -> Maybe RFC822
lastModified :: Prelude.Maybe Data.RFC822,
WriteGetObjectResponse -> HashMap Text Text
metadata :: Prelude.HashMap Prelude.Text Prelude.Text,
WriteGetObjectResponse -> Maybe Int
missingMeta :: Prelude.Maybe Prelude.Int,
WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Prelude.Maybe ObjectLockLegalHoldStatus,
WriteGetObjectResponse -> Maybe ObjectLockMode
objectLockMode :: Prelude.Maybe ObjectLockMode,
WriteGetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate :: Prelude.Maybe Data.ISO8601,
WriteGetObjectResponse -> Maybe Int
partsCount :: Prelude.Maybe Prelude.Int,
WriteGetObjectResponse -> Maybe ReplicationStatus
replicationStatus :: Prelude.Maybe ReplicationStatus,
WriteGetObjectResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
WriteGetObjectResponse -> Maybe Text
restore :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
WriteGetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
WriteGetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
WriteGetObjectResponse -> Maybe Int
statusCode :: Prelude.Maybe Prelude.Int,
WriteGetObjectResponse -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
WriteGetObjectResponse -> Maybe Int
tagCount :: Prelude.Maybe Prelude.Int,
WriteGetObjectResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
WriteGetObjectResponse -> Text
requestRoute :: Prelude.Text,
WriteGetObjectResponse -> Text
requestToken :: Prelude.Text,
WriteGetObjectResponse -> RequestBody
body :: Data.RequestBody
}
deriving (Int -> WriteGetObjectResponse -> ShowS
[WriteGetObjectResponse] -> ShowS
WriteGetObjectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WriteGetObjectResponse] -> ShowS
$cshowList :: [WriteGetObjectResponse] -> ShowS
show :: WriteGetObjectResponse -> String
$cshow :: WriteGetObjectResponse -> String
showsPrec :: Int -> WriteGetObjectResponse -> ShowS
$cshowsPrec :: Int -> WriteGetObjectResponse -> ShowS
Prelude.Show, forall x. Rep WriteGetObjectResponse x -> WriteGetObjectResponse
forall x. WriteGetObjectResponse -> Rep WriteGetObjectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WriteGetObjectResponse x -> WriteGetObjectResponse
$cfrom :: forall x. WriteGetObjectResponse -> Rep WriteGetObjectResponse x
Prelude.Generic)
newWriteGetObjectResponse ::
Prelude.Text ->
Prelude.Text ->
Data.RequestBody ->
WriteGetObjectResponse
newWriteGetObjectResponse :: Text -> Text -> RequestBody -> WriteGetObjectResponse
newWriteGetObjectResponse
Text
pRequestRoute_
Text
pRequestToken_
RequestBody
pBody_ =
WriteGetObjectResponse'
{ $sel:acceptRanges:WriteGetObjectResponse' :: Maybe Text
acceptRanges =
forall a. Maybe a
Prelude.Nothing,
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:cacheControl:WriteGetObjectResponse' :: Maybe Text
cacheControl = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32:WriteGetObjectResponse' :: Maybe Text
checksumCRC32 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32C:WriteGetObjectResponse' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA1:WriteGetObjectResponse' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA256:WriteGetObjectResponse' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
$sel:contentDisposition:WriteGetObjectResponse' :: Maybe Text
contentDisposition = forall a. Maybe a
Prelude.Nothing,
$sel:contentEncoding:WriteGetObjectResponse' :: Maybe Text
contentEncoding = forall a. Maybe a
Prelude.Nothing,
$sel:contentLanguage:WriteGetObjectResponse' :: Maybe Text
contentLanguage = forall a. Maybe a
Prelude.Nothing,
$sel:contentLength:WriteGetObjectResponse' :: Maybe Integer
contentLength = forall a. Maybe a
Prelude.Nothing,
$sel:contentRange:WriteGetObjectResponse' :: Maybe Text
contentRange = forall a. Maybe a
Prelude.Nothing,
$sel:contentType:WriteGetObjectResponse' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
$sel:deleteMarker:WriteGetObjectResponse' :: Maybe Bool
deleteMarker = forall a. Maybe a
Prelude.Nothing,
$sel:eTag:WriteGetObjectResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
$sel:errorCode:WriteGetObjectResponse' :: Maybe Text
errorCode = forall a. Maybe a
Prelude.Nothing,
$sel:errorMessage:WriteGetObjectResponse' :: Maybe Text
errorMessage = forall a. Maybe a
Prelude.Nothing,
$sel:expiration:WriteGetObjectResponse' :: Maybe Text
expiration = forall a. Maybe a
Prelude.Nothing,
$sel:expires:WriteGetObjectResponse' :: Maybe RFC822
expires = forall a. Maybe a
Prelude.Nothing,
$sel:lastModified:WriteGetObjectResponse' :: Maybe RFC822
lastModified = forall a. Maybe a
Prelude.Nothing,
$sel:metadata:WriteGetObjectResponse' :: HashMap Text Text
metadata = forall a. Monoid a => a
Prelude.mempty,
$sel:missingMeta:WriteGetObjectResponse' :: Maybe Int
missingMeta = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockMode:WriteGetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = forall a. Maybe a
Prelude.Nothing,
$sel:partsCount:WriteGetObjectResponse' :: Maybe Int
partsCount = forall a. Maybe a
Prelude.Nothing,
$sel:replicationStatus:WriteGetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:requestCharged:WriteGetObjectResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
$sel:restore:WriteGetObjectResponse' :: Maybe Text
restore = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:serverSideEncryption:WriteGetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:statusCode:WriteGetObjectResponse' :: Maybe Int
statusCode = forall a. Maybe a
Prelude.Nothing,
$sel:storageClass:WriteGetObjectResponse' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
$sel:tagCount:WriteGetObjectResponse' :: Maybe Int
tagCount = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:WriteGetObjectResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:requestRoute:WriteGetObjectResponse' :: Text
requestRoute = Text
pRequestRoute_,
$sel:requestToken:WriteGetObjectResponse' :: Text
requestToken = Text
pRequestToken_,
$sel:body:WriteGetObjectResponse' :: RequestBody
body = RequestBody
pBody_
}
writeGetObjectResponse_acceptRanges :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_acceptRanges :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_acceptRanges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
acceptRanges :: Maybe Text
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
acceptRanges} -> Maybe Text
acceptRanges) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:acceptRanges:WriteGetObjectResponse' :: Maybe Text
acceptRanges = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_bucketKeyEnabled :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Bool)
writeGetObjectResponse_bucketKeyEnabled :: Lens' WriteGetObjectResponse (Maybe Bool)
writeGetObjectResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Bool
a -> WriteGetObjectResponse
s {$sel:bucketKeyEnabled:WriteGetObjectResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: WriteGetObjectResponse)
writeGetObjectResponse_cacheControl :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_cacheControl :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_cacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
cacheControl :: Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
cacheControl} -> Maybe Text
cacheControl) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:cacheControl:WriteGetObjectResponse' :: Maybe Text
cacheControl = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_checksumCRC32 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumCRC32 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumCRC32:WriteGetObjectResponse' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_checksumCRC32C :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumCRC32C :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumCRC32C:WriteGetObjectResponse' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_checksumSHA1 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumSHA1 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumSHA1:WriteGetObjectResponse' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_checksumSHA256 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumSHA256 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumSHA256:WriteGetObjectResponse' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentDisposition :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentDisposition :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentDisposition :: Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentDisposition} -> Maybe Text
contentDisposition) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentDisposition:WriteGetObjectResponse' :: Maybe Text
contentDisposition = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentEncoding :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentEncoding :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentEncoding :: Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentEncoding} -> Maybe Text
contentEncoding) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentEncoding:WriteGetObjectResponse' :: Maybe Text
contentEncoding = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentLanguage :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentLanguage :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentLanguage :: Maybe Text
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentLanguage} -> Maybe Text
contentLanguage) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentLanguage:WriteGetObjectResponse' :: Maybe Text
contentLanguage = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentLength :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Integer)
writeGetObjectResponse_contentLength :: Lens' WriteGetObjectResponse (Maybe Integer)
writeGetObjectResponse_contentLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Integer
contentLength :: Maybe Integer
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
contentLength} -> Maybe Integer
contentLength) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Integer
a -> WriteGetObjectResponse
s {$sel:contentLength:WriteGetObjectResponse' :: Maybe Integer
contentLength = Maybe Integer
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentRange :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentRange :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentRange :: Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentRange} -> Maybe Text
contentRange) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentRange:WriteGetObjectResponse' :: Maybe Text
contentRange = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_contentType :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentType :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentType :: Maybe Text
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentType:WriteGetObjectResponse' :: Maybe Text
contentType = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_deleteMarker :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Bool)
writeGetObjectResponse_deleteMarker :: Lens' WriteGetObjectResponse (Maybe Bool)
writeGetObjectResponse_deleteMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Bool
deleteMarker :: Maybe Bool
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
deleteMarker} -> Maybe Bool
deleteMarker) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Bool
a -> WriteGetObjectResponse
s {$sel:deleteMarker:WriteGetObjectResponse' :: Maybe Bool
deleteMarker = Maybe Bool
a} :: WriteGetObjectResponse)
writeGetObjectResponse_eTag :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ETag)
writeGetObjectResponse_eTag :: Lens' WriteGetObjectResponse (Maybe ETag)
writeGetObjectResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ETag
a -> WriteGetObjectResponse
s {$sel:eTag:WriteGetObjectResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: WriteGetObjectResponse)
writeGetObjectResponse_errorCode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_errorCode :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_errorCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
errorCode :: Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
errorCode} -> Maybe Text
errorCode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:errorCode:WriteGetObjectResponse' :: Maybe Text
errorCode = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_errorMessage :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_errorMessage :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_errorMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
errorMessage :: Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
errorMessage} -> Maybe Text
errorMessage) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:errorMessage:WriteGetObjectResponse' :: Maybe Text
errorMessage = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_expiration :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_expiration :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_expiration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
expiration :: Maybe Text
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
expiration} -> Maybe Text
expiration) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:expiration:WriteGetObjectResponse' :: Maybe Text
expiration = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_expires :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_expires :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RFC822
expires :: Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
expires} -> Maybe RFC822
expires) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RFC822
a -> WriteGetObjectResponse
s {$sel:expires:WriteGetObjectResponse' :: Maybe RFC822
expires = Maybe RFC822
a} :: WriteGetObjectResponse) 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
writeGetObjectResponse_lastModified :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_lastModified :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RFC822
lastModified :: Maybe RFC822
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
lastModified} -> Maybe RFC822
lastModified) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RFC822
a -> WriteGetObjectResponse
s {$sel:lastModified:WriteGetObjectResponse' :: Maybe RFC822
lastModified = Maybe RFC822
a} :: WriteGetObjectResponse) 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
writeGetObjectResponse_metadata :: Lens.Lens' WriteGetObjectResponse (Prelude.HashMap Prelude.Text Prelude.Text)
writeGetObjectResponse_metadata :: Lens' WriteGetObjectResponse (HashMap Text Text)
writeGetObjectResponse_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {HashMap Text Text
metadata :: HashMap Text Text
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
metadata} -> HashMap Text Text
metadata) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} HashMap Text Text
a -> WriteGetObjectResponse
s {$sel:metadata:WriteGetObjectResponse' :: HashMap Text Text
metadata = HashMap Text Text
a} :: WriteGetObjectResponse) 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
writeGetObjectResponse_missingMeta :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_missingMeta :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_missingMeta = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
missingMeta :: Maybe Int
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
missingMeta} -> Maybe Int
missingMeta) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:missingMeta:WriteGetObjectResponse' :: Maybe Int
missingMeta = Maybe Int
a} :: WriteGetObjectResponse)
writeGetObjectResponse_objectLockLegalHoldStatus :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectLockLegalHoldStatus)
writeGetObjectResponse_objectLockLegalHoldStatus :: Lens' WriteGetObjectResponse (Maybe ObjectLockLegalHoldStatus)
writeGetObjectResponse_objectLockLegalHoldStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus} -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectLockLegalHoldStatus
a -> WriteGetObjectResponse
s {$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = Maybe ObjectLockLegalHoldStatus
a} :: WriteGetObjectResponse)
writeGetObjectResponse_objectLockMode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectLockMode)
writeGetObjectResponse_objectLockMode :: Lens' WriteGetObjectResponse (Maybe ObjectLockMode)
writeGetObjectResponse_objectLockMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectLockMode
objectLockMode :: Maybe ObjectLockMode
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
objectLockMode} -> Maybe ObjectLockMode
objectLockMode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectLockMode
a -> WriteGetObjectResponse
s {$sel:objectLockMode:WriteGetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = Maybe ObjectLockMode
a} :: WriteGetObjectResponse)
writeGetObjectResponse_objectLockRetainUntilDate :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_objectLockRetainUntilDate :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_objectLockRetainUntilDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ISO8601
objectLockRetainUntilDate :: Maybe ISO8601
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate} -> Maybe ISO8601
objectLockRetainUntilDate) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ISO8601
a -> WriteGetObjectResponse
s {$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = Maybe ISO8601
a} :: WriteGetObjectResponse) 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
writeGetObjectResponse_partsCount :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_partsCount :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_partsCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
partsCount :: Maybe Int
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
partsCount} -> Maybe Int
partsCount) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:partsCount:WriteGetObjectResponse' :: Maybe Int
partsCount = Maybe Int
a} :: WriteGetObjectResponse)
writeGetObjectResponse_replicationStatus :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ReplicationStatus)
writeGetObjectResponse_replicationStatus :: Lens' WriteGetObjectResponse (Maybe ReplicationStatus)
writeGetObjectResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ReplicationStatus
replicationStatus :: Maybe ReplicationStatus
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
replicationStatus} -> Maybe ReplicationStatus
replicationStatus) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ReplicationStatus
a -> WriteGetObjectResponse
s {$sel:replicationStatus:WriteGetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = Maybe ReplicationStatus
a} :: WriteGetObjectResponse)
writeGetObjectResponse_requestCharged :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe RequestCharged)
writeGetObjectResponse_requestCharged :: Lens' WriteGetObjectResponse (Maybe RequestCharged)
writeGetObjectResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RequestCharged
a -> WriteGetObjectResponse
s {$sel:requestCharged:WriteGetObjectResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: WriteGetObjectResponse)
writeGetObjectResponse_restore :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_restore :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_restore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
restore :: Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
restore} -> Maybe Text
restore) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:restore:WriteGetObjectResponse' :: Maybe Text
restore = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_sSECustomerAlgorithm :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSECustomerAlgorithm :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_sSECustomerKeyMD5 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSECustomerKeyMD5 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_sSEKMSKeyId :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSEKMSKeyId :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe (Sensitive Text)
a -> WriteGetObjectResponse
s {$sel:sSEKMSKeyId:WriteGetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: WriteGetObjectResponse) 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
writeGetObjectResponse_serverSideEncryption :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ServerSideEncryption)
writeGetObjectResponse_serverSideEncryption :: Lens' WriteGetObjectResponse (Maybe ServerSideEncryption)
writeGetObjectResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ServerSideEncryption
a -> WriteGetObjectResponse
s {$sel:serverSideEncryption:WriteGetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: WriteGetObjectResponse)
writeGetObjectResponse_statusCode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_statusCode :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_statusCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
statusCode :: Maybe Int
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
statusCode} -> Maybe Int
statusCode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:statusCode:WriteGetObjectResponse' :: Maybe Int
statusCode = Maybe Int
a} :: WriteGetObjectResponse)
writeGetObjectResponse_storageClass :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe StorageClass)
writeGetObjectResponse_storageClass :: Lens' WriteGetObjectResponse (Maybe StorageClass)
writeGetObjectResponse_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe StorageClass
a -> WriteGetObjectResponse
s {$sel:storageClass:WriteGetObjectResponse' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: WriteGetObjectResponse)
writeGetObjectResponse_tagCount :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_tagCount :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_tagCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
tagCount :: Maybe Int
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
tagCount} -> Maybe Int
tagCount) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:tagCount:WriteGetObjectResponse' :: Maybe Int
tagCount = Maybe Int
a} :: WriteGetObjectResponse)
writeGetObjectResponse_versionId :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectVersionId)
writeGetObjectResponse_versionId :: Lens' WriteGetObjectResponse (Maybe ObjectVersionId)
writeGetObjectResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectVersionId
a -> WriteGetObjectResponse
s {$sel:versionId:WriteGetObjectResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: WriteGetObjectResponse)
writeGetObjectResponse_requestRoute :: Lens.Lens' WriteGetObjectResponse Prelude.Text
writeGetObjectResponse_requestRoute :: Lens' WriteGetObjectResponse Text
writeGetObjectResponse_requestRoute = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Text
requestRoute :: Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
requestRoute} -> Text
requestRoute) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Text
a -> WriteGetObjectResponse
s {$sel:requestRoute:WriteGetObjectResponse' :: Text
requestRoute = Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_requestToken :: Lens.Lens' WriteGetObjectResponse Prelude.Text
writeGetObjectResponse_requestToken :: Lens' WriteGetObjectResponse Text
writeGetObjectResponse_requestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Text
requestToken :: Text
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
requestToken} -> Text
requestToken) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Text
a -> WriteGetObjectResponse
s {$sel:requestToken:WriteGetObjectResponse' :: Text
requestToken = Text
a} :: WriteGetObjectResponse)
writeGetObjectResponse_body :: Lens.Lens' WriteGetObjectResponse Data.RequestBody
writeGetObjectResponse_body :: Lens' WriteGetObjectResponse RequestBody
writeGetObjectResponse_body = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {RequestBody
body :: RequestBody
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
body} -> RequestBody
body) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} RequestBody
a -> WriteGetObjectResponse
s {$sel:body:WriteGetObjectResponse' :: RequestBody
body = RequestBody
a} :: WriteGetObjectResponse)
instance Core.AWSRequest WriteGetObjectResponse where
type
AWSResponse WriteGetObjectResponse =
WriteGetObjectResponseResponse
request :: (Service -> Service)
-> WriteGetObjectResponse -> Request WriteGetObjectResponse
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, ToBody a) => Service -> a -> Request a
Request.postBody (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy WriteGetObjectResponse
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse WriteGetObjectResponse)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
WriteGetObjectResponseResponse
WriteGetObjectResponseResponse'
instance Data.ToBody WriteGetObjectResponse where
toBody :: WriteGetObjectResponse -> RequestBody
toBody WriteGetObjectResponse' {Maybe Bool
Maybe Int
Maybe Integer
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe ReplicationStatus
Maybe RequestCharged
Maybe ServerSideEncryption
Maybe StorageClass
Text
HashMap Text Text
RequestBody
body :: RequestBody
requestToken :: Text
requestRoute :: Text
versionId :: Maybe ObjectVersionId
tagCount :: Maybe Int
storageClass :: Maybe StorageClass
statusCode :: Maybe Int
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerAlgorithm :: Maybe Text
restore :: Maybe Text
requestCharged :: Maybe RequestCharged
replicationStatus :: Maybe ReplicationStatus
partsCount :: Maybe Int
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
missingMeta :: Maybe Int
metadata :: HashMap Text Text
lastModified :: Maybe RFC822
expires :: Maybe RFC822
expiration :: Maybe Text
errorMessage :: Maybe Text
errorCode :: Maybe Text
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
contentType :: Maybe Text
contentRange :: Maybe Text
contentLength :: Maybe Integer
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acceptRanges :: Maybe Text
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
..} = forall a. ToBody a => a -> RequestBody
Data.toBody RequestBody
body
instance Data.ToHeaders WriteGetObjectResponse where
toHeaders :: WriteGetObjectResponse -> [Header]
toHeaders WriteGetObjectResponse' {Maybe Bool
Maybe Int
Maybe Integer
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe ReplicationStatus
Maybe RequestCharged
Maybe ServerSideEncryption
Maybe StorageClass
Text
HashMap Text Text
RequestBody
body :: RequestBody
requestToken :: Text
requestRoute :: Text
versionId :: Maybe ObjectVersionId
tagCount :: Maybe Int
storageClass :: Maybe StorageClass
statusCode :: Maybe Int
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerAlgorithm :: Maybe Text
restore :: Maybe Text
requestCharged :: Maybe RequestCharged
replicationStatus :: Maybe ReplicationStatus
partsCount :: Maybe Int
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
missingMeta :: Maybe Int
metadata :: HashMap Text Text
lastModified :: Maybe RFC822
expires :: Maybe RFC822
expiration :: Maybe Text
errorMessage :: Maybe Text
errorCode :: Maybe Text
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
contentType :: Maybe Text
contentRange :: Maybe Text
contentLength :: Maybe Integer
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acceptRanges :: Maybe Text
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-fwd-header-accept-ranges"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
acceptRanges,
HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-bucket-key-enabled"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Bool
bucketKeyEnabled,
HeaderName
"x-amz-fwd-header-Cache-Control"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
cacheControl,
HeaderName
"x-amz-fwd-header-x-amz-checksum-crc32"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumCRC32,
HeaderName
"x-amz-fwd-header-x-amz-checksum-crc32c"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumCRC32C,
HeaderName
"x-amz-fwd-header-x-amz-checksum-sha1"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumSHA1,
HeaderName
"x-amz-fwd-header-x-amz-checksum-sha256"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumSHA256,
HeaderName
"x-amz-fwd-header-Content-Disposition"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentDisposition,
HeaderName
"x-amz-fwd-header-Content-Encoding"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentEncoding,
HeaderName
"x-amz-fwd-header-Content-Language"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentLanguage,
HeaderName
"Content-Length" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Integer
contentLength,
HeaderName
"x-amz-fwd-header-Content-Range"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentRange,
HeaderName
"x-amz-fwd-header-Content-Type" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentType,
HeaderName
"x-amz-fwd-header-x-amz-delete-marker"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Bool
deleteMarker,
HeaderName
"x-amz-fwd-header-ETag" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ETag
eTag,
HeaderName
"x-amz-fwd-error-code" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
errorCode,
HeaderName
"x-amz-fwd-error-message" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
errorMessage,
HeaderName
"x-amz-fwd-header-x-amz-expiration"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expiration,
HeaderName
"x-amz-fwd-header-Expires" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RFC822
expires,
HeaderName
"x-amz-fwd-header-Last-Modified"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RFC822
lastModified,
HeaderName
"x-amz-meta-" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# HashMap Text Text
metadata,
HeaderName
"x-amz-fwd-header-x-amz-missing-meta"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
missingMeta,
HeaderName
"x-amz-fwd-header-x-amz-object-lock-legal-hold"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus,
HeaderName
"x-amz-fwd-header-x-amz-object-lock-mode"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectLockMode
objectLockMode,
HeaderName
"x-amz-fwd-header-x-amz-object-lock-retain-until-date"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ISO8601
objectLockRetainUntilDate,
HeaderName
"x-amz-fwd-header-x-amz-mp-parts-count"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
partsCount,
HeaderName
"x-amz-fwd-header-x-amz-replication-status"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ReplicationStatus
replicationStatus,
HeaderName
"x-amz-fwd-header-x-amz-request-charged"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RequestCharged
requestCharged,
HeaderName
"x-amz-fwd-header-x-amz-restore" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
restore,
HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-customer-algorithm"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
sSECustomerAlgorithm,
HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-customer-key-MD5"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
sSECustomerKeyMD5,
HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-aws-kms-key-id"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe (Sensitive Text)
sSEKMSKeyId,
HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ServerSideEncryption
serverSideEncryption,
HeaderName
"x-amz-fwd-status" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
statusCode,
HeaderName
"x-amz-fwd-header-x-amz-storage-class"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe StorageClass
storageClass,
HeaderName
"x-amz-fwd-header-x-amz-tagging-count"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
tagCount,
HeaderName
"x-amz-fwd-header-x-amz-version-id"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectVersionId
versionId,
HeaderName
"x-amz-request-route" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Text
requestRoute,
HeaderName
"x-amz-request-token" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Text
requestToken
]
instance Data.ToPath WriteGetObjectResponse where
toPath :: WriteGetObjectResponse -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/WriteGetObjectResponse"
instance Data.ToQuery WriteGetObjectResponse where
toQuery :: WriteGetObjectResponse -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data WriteGetObjectResponseResponse = WriteGetObjectResponseResponse'
{
}
deriving (WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
$c/= :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
== :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
$c== :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
Prelude.Eq, ReadPrec [WriteGetObjectResponseResponse]
ReadPrec WriteGetObjectResponseResponse
Int -> ReadS WriteGetObjectResponseResponse
ReadS [WriteGetObjectResponseResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [WriteGetObjectResponseResponse]
$creadListPrec :: ReadPrec [WriteGetObjectResponseResponse]
readPrec :: ReadPrec WriteGetObjectResponseResponse
$creadPrec :: ReadPrec WriteGetObjectResponseResponse
readList :: ReadS [WriteGetObjectResponseResponse]
$creadList :: ReadS [WriteGetObjectResponseResponse]
readsPrec :: Int -> ReadS WriteGetObjectResponseResponse
$creadsPrec :: Int -> ReadS WriteGetObjectResponseResponse
Prelude.Read, Int -> WriteGetObjectResponseResponse -> ShowS
[WriteGetObjectResponseResponse] -> ShowS
WriteGetObjectResponseResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WriteGetObjectResponseResponse] -> ShowS
$cshowList :: [WriteGetObjectResponseResponse] -> ShowS
show :: WriteGetObjectResponseResponse -> String
$cshow :: WriteGetObjectResponseResponse -> String
showsPrec :: Int -> WriteGetObjectResponseResponse -> ShowS
$cshowsPrec :: Int -> WriteGetObjectResponseResponse -> ShowS
Prelude.Show, forall x.
Rep WriteGetObjectResponseResponse x
-> WriteGetObjectResponseResponse
forall x.
WriteGetObjectResponseResponse
-> Rep WriteGetObjectResponseResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep WriteGetObjectResponseResponse x
-> WriteGetObjectResponseResponse
$cfrom :: forall x.
WriteGetObjectResponseResponse
-> Rep WriteGetObjectResponseResponse x
Prelude.Generic)
newWriteGetObjectResponseResponse ::
WriteGetObjectResponseResponse
newWriteGetObjectResponseResponse :: WriteGetObjectResponseResponse
newWriteGetObjectResponseResponse =
WriteGetObjectResponseResponse
WriteGetObjectResponseResponse'
instance
Prelude.NFData
WriteGetObjectResponseResponse
where
rnf :: WriteGetObjectResponseResponse -> ()
rnf WriteGetObjectResponseResponse
_ = ()