{-# 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.GetObject
(
GetObject (..),
newGetObject,
getObject_checksumMode,
getObject_expectedBucketOwner,
getObject_ifMatch,
getObject_ifModifiedSince,
getObject_ifNoneMatch,
getObject_ifUnmodifiedSince,
getObject_partNumber,
getObject_range,
getObject_requestPayer,
getObject_responseCacheControl,
getObject_responseContentDisposition,
getObject_responseContentEncoding,
getObject_responseContentLanguage,
getObject_responseContentType,
getObject_responseExpires,
getObject_sSECustomerAlgorithm,
getObject_sSECustomerKey,
getObject_sSECustomerKeyMD5,
getObject_versionId,
getObject_bucket,
getObject_key,
GetObjectResponse (..),
newGetObjectResponse,
getObjectResponse_acceptRanges,
getObjectResponse_bucketKeyEnabled,
getObjectResponse_cacheControl,
getObjectResponse_checksumCRC32,
getObjectResponse_checksumCRC32C,
getObjectResponse_checksumSHA1,
getObjectResponse_checksumSHA256,
getObjectResponse_contentDisposition,
getObjectResponse_contentEncoding,
getObjectResponse_contentLanguage,
getObjectResponse_contentLength,
getObjectResponse_contentRange,
getObjectResponse_contentType,
getObjectResponse_deleteMarker,
getObjectResponse_eTag,
getObjectResponse_expiration,
getObjectResponse_expires,
getObjectResponse_lastModified,
getObjectResponse_metadata,
getObjectResponse_missingMeta,
getObjectResponse_objectLockLegalHoldStatus,
getObjectResponse_objectLockMode,
getObjectResponse_objectLockRetainUntilDate,
getObjectResponse_partsCount,
getObjectResponse_replicationStatus,
getObjectResponse_requestCharged,
getObjectResponse_restore,
getObjectResponse_sSECustomerAlgorithm,
getObjectResponse_sSECustomerKeyMD5,
getObjectResponse_sSEKMSKeyId,
getObjectResponse_serverSideEncryption,
getObjectResponse_storageClass,
getObjectResponse_tagCount,
getObjectResponse_versionId,
getObjectResponse_websiteRedirectLocation,
getObjectResponse_httpStatus,
getObjectResponse_body,
)
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 GetObject = GetObject'
{
GetObject -> Maybe ChecksumMode
checksumMode :: Prelude.Maybe ChecksumMode,
GetObject -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe Text
ifMatch :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe RFC822
ifModifiedSince :: Prelude.Maybe Data.RFC822,
GetObject -> Maybe Text
ifNoneMatch :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe RFC822
ifUnmodifiedSince :: Prelude.Maybe Data.RFC822,
GetObject -> Maybe Int
partNumber :: Prelude.Maybe Prelude.Int,
GetObject -> Maybe Text
range :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
GetObject -> Maybe Text
responseCacheControl :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe Text
responseContentDisposition :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe Text
responseContentEncoding :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe Text
responseContentLanguage :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe Text
responseContentType :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe RFC822
responseExpires :: Prelude.Maybe Data.RFC822,
GetObject -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
GetObject -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
GetObject -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
GetObject -> BucketName
bucket :: BucketName,
GetObject -> ObjectKey
key :: ObjectKey
}
deriving (GetObject -> GetObject -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetObject -> GetObject -> Bool
$c/= :: GetObject -> GetObject -> Bool
== :: GetObject -> GetObject -> Bool
$c== :: GetObject -> GetObject -> Bool
Prelude.Eq, Int -> GetObject -> ShowS
[GetObject] -> ShowS
GetObject -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetObject] -> ShowS
$cshowList :: [GetObject] -> ShowS
show :: GetObject -> String
$cshow :: GetObject -> String
showsPrec :: Int -> GetObject -> ShowS
$cshowsPrec :: Int -> GetObject -> ShowS
Prelude.Show, forall x. Rep GetObject x -> GetObject
forall x. GetObject -> Rep GetObject x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetObject x -> GetObject
$cfrom :: forall x. GetObject -> Rep GetObject x
Prelude.Generic)
newGetObject ::
BucketName ->
ObjectKey ->
GetObject
newGetObject :: BucketName -> ObjectKey -> GetObject
newGetObject BucketName
pBucket_ ObjectKey
pKey_ =
GetObject'
{ $sel:checksumMode:GetObject' :: Maybe ChecksumMode
checksumMode = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:GetObject' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:ifMatch:GetObject' :: Maybe Text
ifMatch = forall a. Maybe a
Prelude.Nothing,
$sel:ifModifiedSince:GetObject' :: Maybe RFC822
ifModifiedSince = forall a. Maybe a
Prelude.Nothing,
$sel:ifNoneMatch:GetObject' :: Maybe Text
ifNoneMatch = forall a. Maybe a
Prelude.Nothing,
$sel:ifUnmodifiedSince:GetObject' :: Maybe RFC822
ifUnmodifiedSince = forall a. Maybe a
Prelude.Nothing,
$sel:partNumber:GetObject' :: Maybe Int
partNumber = forall a. Maybe a
Prelude.Nothing,
$sel:range:GetObject' :: Maybe Text
range = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:GetObject' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:responseCacheControl:GetObject' :: Maybe Text
responseCacheControl = forall a. Maybe a
Prelude.Nothing,
$sel:responseContentDisposition:GetObject' :: Maybe Text
responseContentDisposition = forall a. Maybe a
Prelude.Nothing,
$sel:responseContentEncoding:GetObject' :: Maybe Text
responseContentEncoding = forall a. Maybe a
Prelude.Nothing,
$sel:responseContentLanguage:GetObject' :: Maybe Text
responseContentLanguage = forall a. Maybe a
Prelude.Nothing,
$sel:responseContentType:GetObject' :: Maybe Text
responseContentType = forall a. Maybe a
Prelude.Nothing,
$sel:responseExpires:GetObject' :: Maybe RFC822
responseExpires = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:GetObject' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKey:GetObject' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:GetObject' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:GetObject' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:GetObject' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:GetObject' :: ObjectKey
key = ObjectKey
pKey_
}
getObject_checksumMode :: Lens.Lens' GetObject (Prelude.Maybe ChecksumMode)
getObject_checksumMode :: Lens' GetObject (Maybe ChecksumMode)
getObject_checksumMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe ChecksumMode
checksumMode :: Maybe ChecksumMode
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
checksumMode} -> Maybe ChecksumMode
checksumMode) (\s :: GetObject
s@GetObject' {} Maybe ChecksumMode
a -> GetObject
s {$sel:checksumMode:GetObject' :: Maybe ChecksumMode
checksumMode = Maybe ChecksumMode
a} :: GetObject)
getObject_expectedBucketOwner :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_expectedBucketOwner :: Lens' GetObject (Maybe Text)
getObject_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:expectedBucketOwner:GetObject' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: GetObject)
getObject_ifMatch :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_ifMatch :: Lens' GetObject (Maybe Text)
getObject_ifMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
ifMatch :: Maybe Text
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
ifMatch} -> Maybe Text
ifMatch) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:ifMatch:GetObject' :: Maybe Text
ifMatch = Maybe Text
a} :: GetObject)
getObject_ifModifiedSince :: Lens.Lens' GetObject (Prelude.Maybe Prelude.UTCTime)
getObject_ifModifiedSince :: Lens' GetObject (Maybe UTCTime)
getObject_ifModifiedSince = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe RFC822
ifModifiedSince :: Maybe RFC822
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
ifModifiedSince} -> Maybe RFC822
ifModifiedSince) (\s :: GetObject
s@GetObject' {} Maybe RFC822
a -> GetObject
s {$sel:ifModifiedSince:GetObject' :: Maybe RFC822
ifModifiedSince = Maybe RFC822
a} :: GetObject) 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
getObject_ifNoneMatch :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_ifNoneMatch :: Lens' GetObject (Maybe Text)
getObject_ifNoneMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
ifNoneMatch :: Maybe Text
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
ifNoneMatch} -> Maybe Text
ifNoneMatch) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:ifNoneMatch:GetObject' :: Maybe Text
ifNoneMatch = Maybe Text
a} :: GetObject)
getObject_ifUnmodifiedSince :: Lens.Lens' GetObject (Prelude.Maybe Prelude.UTCTime)
getObject_ifUnmodifiedSince :: Lens' GetObject (Maybe UTCTime)
getObject_ifUnmodifiedSince = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe RFC822
ifUnmodifiedSince :: Maybe RFC822
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
ifUnmodifiedSince} -> Maybe RFC822
ifUnmodifiedSince) (\s :: GetObject
s@GetObject' {} Maybe RFC822
a -> GetObject
s {$sel:ifUnmodifiedSince:GetObject' :: Maybe RFC822
ifUnmodifiedSince = Maybe RFC822
a} :: GetObject) 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
getObject_partNumber :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Int)
getObject_partNumber :: Lens' GetObject (Maybe Int)
getObject_partNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Int
partNumber :: Maybe Int
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
partNumber} -> Maybe Int
partNumber) (\s :: GetObject
s@GetObject' {} Maybe Int
a -> GetObject
s {$sel:partNumber:GetObject' :: Maybe Int
partNumber = Maybe Int
a} :: GetObject)
getObject_range :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_range :: Lens' GetObject (Maybe Text)
getObject_range = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
range :: Maybe Text
$sel:range:GetObject' :: GetObject -> Maybe Text
range} -> Maybe Text
range) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:range:GetObject' :: Maybe Text
range = Maybe Text
a} :: GetObject)
getObject_requestPayer :: Lens.Lens' GetObject (Prelude.Maybe RequestPayer)
getObject_requestPayer :: Lens' GetObject (Maybe RequestPayer)
getObject_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: GetObject
s@GetObject' {} Maybe RequestPayer
a -> GetObject
s {$sel:requestPayer:GetObject' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: GetObject)
getObject_responseCacheControl :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_responseCacheControl :: Lens' GetObject (Maybe Text)
getObject_responseCacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
responseCacheControl :: Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
responseCacheControl} -> Maybe Text
responseCacheControl) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:responseCacheControl:GetObject' :: Maybe Text
responseCacheControl = Maybe Text
a} :: GetObject)
getObject_responseContentDisposition :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_responseContentDisposition :: Lens' GetObject (Maybe Text)
getObject_responseContentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
responseContentDisposition :: Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
responseContentDisposition} -> Maybe Text
responseContentDisposition) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:responseContentDisposition:GetObject' :: Maybe Text
responseContentDisposition = Maybe Text
a} :: GetObject)
getObject_responseContentEncoding :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_responseContentEncoding :: Lens' GetObject (Maybe Text)
getObject_responseContentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
responseContentEncoding :: Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
responseContentEncoding} -> Maybe Text
responseContentEncoding) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:responseContentEncoding:GetObject' :: Maybe Text
responseContentEncoding = Maybe Text
a} :: GetObject)
getObject_responseContentLanguage :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_responseContentLanguage :: Lens' GetObject (Maybe Text)
getObject_responseContentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
responseContentLanguage :: Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
responseContentLanguage} -> Maybe Text
responseContentLanguage) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:responseContentLanguage:GetObject' :: Maybe Text
responseContentLanguage = Maybe Text
a} :: GetObject)
getObject_responseContentType :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_responseContentType :: Lens' GetObject (Maybe Text)
getObject_responseContentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
responseContentType :: Maybe Text
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
responseContentType} -> Maybe Text
responseContentType) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:responseContentType:GetObject' :: Maybe Text
responseContentType = Maybe Text
a} :: GetObject)
getObject_responseExpires :: Lens.Lens' GetObject (Prelude.Maybe Prelude.UTCTime)
getObject_responseExpires :: Lens' GetObject (Maybe UTCTime)
getObject_responseExpires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe RFC822
responseExpires :: Maybe RFC822
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
responseExpires} -> Maybe RFC822
responseExpires) (\s :: GetObject
s@GetObject' {} Maybe RFC822
a -> GetObject
s {$sel:responseExpires:GetObject' :: Maybe RFC822
responseExpires = Maybe RFC822
a} :: GetObject) 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
getObject_sSECustomerAlgorithm :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_sSECustomerAlgorithm :: Lens' GetObject (Maybe Text)
getObject_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:sSECustomerAlgorithm:GetObject' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: GetObject)
getObject_sSECustomerKey :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_sSECustomerKey :: Lens' GetObject (Maybe Text)
getObject_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: GetObject
s@GetObject' {} Maybe (Sensitive Text)
a -> GetObject
s {$sel:sSECustomerKey:GetObject' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: GetObject) 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
getObject_sSECustomerKeyMD5 :: Lens.Lens' GetObject (Prelude.Maybe Prelude.Text)
getObject_sSECustomerKeyMD5 :: Lens' GetObject (Maybe Text)
getObject_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: GetObject
s@GetObject' {} Maybe Text
a -> GetObject
s {$sel:sSECustomerKeyMD5:GetObject' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: GetObject)
getObject_versionId :: Lens.Lens' GetObject (Prelude.Maybe ObjectVersionId)
getObject_versionId :: Lens' GetObject (Maybe ObjectVersionId)
getObject_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: GetObject
s@GetObject' {} Maybe ObjectVersionId
a -> GetObject
s {$sel:versionId:GetObject' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: GetObject)
getObject_bucket :: Lens.Lens' GetObject BucketName
getObject_bucket :: Lens' GetObject BucketName
getObject_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {BucketName
bucket :: BucketName
$sel:bucket:GetObject' :: GetObject -> BucketName
bucket} -> BucketName
bucket) (\s :: GetObject
s@GetObject' {} BucketName
a -> GetObject
s {$sel:bucket:GetObject' :: BucketName
bucket = BucketName
a} :: GetObject)
getObject_key :: Lens.Lens' GetObject ObjectKey
getObject_key :: Lens' GetObject ObjectKey
getObject_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObject' {ObjectKey
key :: ObjectKey
$sel:key:GetObject' :: GetObject -> ObjectKey
key} -> ObjectKey
key) (\s :: GetObject
s@GetObject' {} ObjectKey
a -> GetObject
s {$sel:key:GetObject' :: ObjectKey
key = ObjectKey
a} :: GetObject)
instance Core.AWSRequest GetObject where
type AWSResponse GetObject = GetObjectResponse
request :: (Service -> Service) -> GetObject -> Request GetObject
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.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetObject
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetObject)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int
-> ResponseHeaders
-> ResponseBody
-> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveBody
( \Int
s ResponseHeaders
h ResponseBody
x ->
Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Integer
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe ETag
-> Maybe Text
-> Maybe RFC822
-> Maybe RFC822
-> HashMap Text Text
-> Maybe Int
-> Maybe ObjectLockLegalHoldStatus
-> Maybe ObjectLockMode
-> Maybe ISO8601
-> Maybe Int
-> Maybe ReplicationStatus
-> Maybe RequestCharged
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe (Sensitive Text)
-> Maybe ServerSideEncryption
-> Maybe StorageClass
-> Maybe Int
-> Maybe ObjectVersionId
-> Maybe Text
-> Int
-> ResponseBody
-> GetObjectResponse
GetObjectResponse'
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
"accept-ranges")
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
"Cache-Control")
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-crc32")
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-crc32c")
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-sha1")
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-sha256")
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
"Content-Disposition")
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
"Content-Encoding")
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
"Content-Language")
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
"Content-Length")
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
"Content-Range")
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
"Content-Type")
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-delete-marker")
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
"ETag")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-expiration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"Expires")
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
"Last-Modified")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall a.
FromText a =>
ByteString -> ResponseHeaders -> Either String (HashMap Text a)
Data.parseHeadersMap ByteString
"x-amz-meta-" ResponseHeaders
h)
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-missing-meta")
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-object-lock-legal-hold")
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-object-lock-mode")
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-object-lock-retain-until-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-mp-parts-count")
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-replication-status")
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-restore")
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-aws-kms-key-id"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-server-side-encryption")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-storage-class")
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-tagging-count")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-version-id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-website-redirect-location")
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure ResponseBody
x)
)
instance Prelude.Hashable GetObject where
hashWithSalt :: Int -> GetObject -> Int
hashWithSalt Int
_salt GetObject' {Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectVersionId
Maybe ChecksumMode
Maybe RequestPayer
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
responseExpires :: Maybe RFC822
responseContentType :: Maybe Text
responseContentLanguage :: Maybe Text
responseContentEncoding :: Maybe Text
responseContentDisposition :: Maybe Text
responseCacheControl :: Maybe Text
requestPayer :: Maybe RequestPayer
range :: Maybe Text
partNumber :: Maybe Int
ifUnmodifiedSince :: Maybe RFC822
ifNoneMatch :: Maybe Text
ifModifiedSince :: Maybe RFC822
ifMatch :: Maybe Text
expectedBucketOwner :: Maybe Text
checksumMode :: Maybe ChecksumMode
$sel:key:GetObject' :: GetObject -> ObjectKey
$sel:bucket:GetObject' :: GetObject -> BucketName
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
$sel:range:GetObject' :: GetObject -> Maybe Text
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChecksumMode
checksumMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ifMatch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RFC822
ifModifiedSince
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ifNoneMatch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RFC822
ifUnmodifiedSince
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
partNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
range
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RequestPayer
requestPayer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseCacheControl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseContentDisposition
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseContentEncoding
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseContentLanguage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseContentType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RFC822
responseExpires
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 ObjectVersionId
versionId
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 GetObject where
rnf :: GetObject -> ()
rnf GetObject' {Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectVersionId
Maybe ChecksumMode
Maybe RequestPayer
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
responseExpires :: Maybe RFC822
responseContentType :: Maybe Text
responseContentLanguage :: Maybe Text
responseContentEncoding :: Maybe Text
responseContentDisposition :: Maybe Text
responseCacheControl :: Maybe Text
requestPayer :: Maybe RequestPayer
range :: Maybe Text
partNumber :: Maybe Int
ifUnmodifiedSince :: Maybe RFC822
ifNoneMatch :: Maybe Text
ifModifiedSince :: Maybe RFC822
ifMatch :: Maybe Text
expectedBucketOwner :: Maybe Text
checksumMode :: Maybe ChecksumMode
$sel:key:GetObject' :: GetObject -> ObjectKey
$sel:bucket:GetObject' :: GetObject -> BucketName
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
$sel:range:GetObject' :: GetObject -> Maybe Text
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ChecksumMode
checksumMode
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 Text
ifMatch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
ifModifiedSince
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ifNoneMatch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
ifUnmodifiedSince
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
partNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
range
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
responseCacheControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
responseContentDisposition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
responseContentEncoding
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
responseContentLanguage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
responseContentType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
responseExpires
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 ObjectVersionId
versionId
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 GetObject where
toHeaders :: GetObject -> ResponseHeaders
toHeaders GetObject' {Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectVersionId
Maybe ChecksumMode
Maybe RequestPayer
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
responseExpires :: Maybe RFC822
responseContentType :: Maybe Text
responseContentLanguage :: Maybe Text
responseContentEncoding :: Maybe Text
responseContentDisposition :: Maybe Text
responseCacheControl :: Maybe Text
requestPayer :: Maybe RequestPayer
range :: Maybe Text
partNumber :: Maybe Int
ifUnmodifiedSince :: Maybe RFC822
ifNoneMatch :: Maybe Text
ifModifiedSince :: Maybe RFC822
ifMatch :: Maybe Text
expectedBucketOwner :: Maybe Text
checksumMode :: Maybe ChecksumMode
$sel:key:GetObject' :: GetObject -> ObjectKey
$sel:bucket:GetObject' :: GetObject -> BucketName
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
$sel:range:GetObject' :: GetObject -> Maybe Text
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-checksum-mode" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ChecksumMode
checksumMode,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"If-Match" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
ifMatch,
HeaderName
"If-Modified-Since" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RFC822
ifModifiedSince,
HeaderName
"If-None-Match" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
ifNoneMatch,
HeaderName
"If-Unmodified-Since" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RFC822
ifUnmodifiedSince,
HeaderName
"Range" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
range,
HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer,
HeaderName
"x-amz-server-side-encryption-customer-algorithm"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerAlgorithm,
HeaderName
"x-amz-server-side-encryption-customer-key"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSECustomerKey,
HeaderName
"x-amz-server-side-encryption-customer-key-MD5"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerKeyMD5
]
instance Data.ToPath GetObject where
toPath :: GetObject -> ByteString
toPath GetObject' {Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectVersionId
Maybe ChecksumMode
Maybe RequestPayer
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
responseExpires :: Maybe RFC822
responseContentType :: Maybe Text
responseContentLanguage :: Maybe Text
responseContentEncoding :: Maybe Text
responseContentDisposition :: Maybe Text
responseCacheControl :: Maybe Text
requestPayer :: Maybe RequestPayer
range :: Maybe Text
partNumber :: Maybe Int
ifUnmodifiedSince :: Maybe RFC822
ifNoneMatch :: Maybe Text
ifModifiedSince :: Maybe RFC822
ifMatch :: Maybe Text
expectedBucketOwner :: Maybe Text
checksumMode :: Maybe ChecksumMode
$sel:key:GetObject' :: GetObject -> ObjectKey
$sel:bucket:GetObject' :: GetObject -> BucketName
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
$sel:range:GetObject' :: GetObject -> Maybe Text
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
..} =
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 GetObject where
toQuery :: GetObject -> QueryString
toQuery GetObject' {Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe RFC822
Maybe ObjectVersionId
Maybe ChecksumMode
Maybe RequestPayer
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
responseExpires :: Maybe RFC822
responseContentType :: Maybe Text
responseContentLanguage :: Maybe Text
responseContentEncoding :: Maybe Text
responseContentDisposition :: Maybe Text
responseCacheControl :: Maybe Text
requestPayer :: Maybe RequestPayer
range :: Maybe Text
partNumber :: Maybe Int
ifUnmodifiedSince :: Maybe RFC822
ifNoneMatch :: Maybe Text
ifModifiedSince :: Maybe RFC822
ifMatch :: Maybe Text
expectedBucketOwner :: Maybe Text
checksumMode :: Maybe ChecksumMode
$sel:key:GetObject' :: GetObject -> ObjectKey
$sel:bucket:GetObject' :: GetObject -> BucketName
$sel:versionId:GetObject' :: GetObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObject' :: GetObject -> Maybe Text
$sel:sSECustomerKey:GetObject' :: GetObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObject' :: GetObject -> Maybe Text
$sel:responseExpires:GetObject' :: GetObject -> Maybe RFC822
$sel:responseContentType:GetObject' :: GetObject -> Maybe Text
$sel:responseContentLanguage:GetObject' :: GetObject -> Maybe Text
$sel:responseContentEncoding:GetObject' :: GetObject -> Maybe Text
$sel:responseContentDisposition:GetObject' :: GetObject -> Maybe Text
$sel:responseCacheControl:GetObject' :: GetObject -> Maybe Text
$sel:requestPayer:GetObject' :: GetObject -> Maybe RequestPayer
$sel:range:GetObject' :: GetObject -> Maybe Text
$sel:partNumber:GetObject' :: GetObject -> Maybe Int
$sel:ifUnmodifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifNoneMatch:GetObject' :: GetObject -> Maybe Text
$sel:ifModifiedSince:GetObject' :: GetObject -> Maybe RFC822
$sel:ifMatch:GetObject' :: GetObject -> Maybe Text
$sel:expectedBucketOwner:GetObject' :: GetObject -> Maybe Text
$sel:checksumMode:GetObject' :: GetObject -> Maybe ChecksumMode
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"partNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
partNumber,
ByteString
"response-cache-control"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseCacheControl,
ByteString
"response-content-disposition"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseContentDisposition,
ByteString
"response-content-encoding"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseContentEncoding,
ByteString
"response-content-language"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseContentLanguage,
ByteString
"response-content-type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseContentType,
ByteString
"response-expires" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe RFC822
responseExpires,
ByteString
"versionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ObjectVersionId
versionId
]
data GetObjectResponse = GetObjectResponse'
{
GetObjectResponse -> Maybe Text
acceptRanges :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
GetObjectResponse -> Maybe Text
cacheControl :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
contentDisposition :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
contentEncoding :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
contentLanguage :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Integer
contentLength :: Prelude.Maybe Prelude.Integer,
GetObjectResponse -> Maybe Text
contentRange :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Bool
deleteMarker :: Prelude.Maybe Prelude.Bool,
GetObjectResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
GetObjectResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe RFC822
expires :: Prelude.Maybe Data.RFC822,
GetObjectResponse -> Maybe RFC822
lastModified :: Prelude.Maybe Data.RFC822,
GetObjectResponse -> HashMap Text Text
metadata :: Prelude.HashMap Prelude.Text Prelude.Text,
GetObjectResponse -> Maybe Int
missingMeta :: Prelude.Maybe Prelude.Int,
GetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Prelude.Maybe ObjectLockLegalHoldStatus,
GetObjectResponse -> Maybe ObjectLockMode
objectLockMode :: Prelude.Maybe ObjectLockMode,
GetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate :: Prelude.Maybe Data.ISO8601,
GetObjectResponse -> Maybe Int
partsCount :: Prelude.Maybe Prelude.Int,
GetObjectResponse -> Maybe ReplicationStatus
replicationStatus :: Prelude.Maybe ReplicationStatus,
GetObjectResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
GetObjectResponse -> Maybe Text
restore :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
GetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
GetObjectResponse -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
GetObjectResponse -> Maybe Int
tagCount :: Prelude.Maybe Prelude.Int,
GetObjectResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
GetObjectResponse -> Maybe Text
websiteRedirectLocation :: Prelude.Maybe Prelude.Text,
GetObjectResponse -> Int
httpStatus :: Prelude.Int,
GetObjectResponse -> ResponseBody
body :: Data.ResponseBody
}
deriving (Int -> GetObjectResponse -> ShowS
[GetObjectResponse] -> ShowS
GetObjectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetObjectResponse] -> ShowS
$cshowList :: [GetObjectResponse] -> ShowS
show :: GetObjectResponse -> String
$cshow :: GetObjectResponse -> String
showsPrec :: Int -> GetObjectResponse -> ShowS
$cshowsPrec :: Int -> GetObjectResponse -> ShowS
Prelude.Show, forall x. Rep GetObjectResponse x -> GetObjectResponse
forall x. GetObjectResponse -> Rep GetObjectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetObjectResponse x -> GetObjectResponse
$cfrom :: forall x. GetObjectResponse -> Rep GetObjectResponse x
Prelude.Generic)
newGetObjectResponse ::
Prelude.Int ->
Data.ResponseBody ->
GetObjectResponse
newGetObjectResponse :: Int -> ResponseBody -> GetObjectResponse
newGetObjectResponse Int
pHttpStatus_ ResponseBody
pBody_ =
GetObjectResponse'
{ $sel:acceptRanges:GetObjectResponse' :: Maybe Text
acceptRanges = forall a. Maybe a
Prelude.Nothing,
$sel:bucketKeyEnabled:GetObjectResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:cacheControl:GetObjectResponse' :: Maybe Text
cacheControl = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32:GetObjectResponse' :: Maybe Text
checksumCRC32 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32C:GetObjectResponse' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA1:GetObjectResponse' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA256:GetObjectResponse' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
$sel:contentDisposition:GetObjectResponse' :: Maybe Text
contentDisposition = forall a. Maybe a
Prelude.Nothing,
$sel:contentEncoding:GetObjectResponse' :: Maybe Text
contentEncoding = forall a. Maybe a
Prelude.Nothing,
$sel:contentLanguage:GetObjectResponse' :: Maybe Text
contentLanguage = forall a. Maybe a
Prelude.Nothing,
$sel:contentLength:GetObjectResponse' :: Maybe Integer
contentLength = forall a. Maybe a
Prelude.Nothing,
$sel:contentRange:GetObjectResponse' :: Maybe Text
contentRange = forall a. Maybe a
Prelude.Nothing,
$sel:contentType:GetObjectResponse' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
$sel:deleteMarker:GetObjectResponse' :: Maybe Bool
deleteMarker = forall a. Maybe a
Prelude.Nothing,
$sel:eTag:GetObjectResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
$sel:expiration:GetObjectResponse' :: Maybe Text
expiration = forall a. Maybe a
Prelude.Nothing,
$sel:expires:GetObjectResponse' :: Maybe RFC822
expires = forall a. Maybe a
Prelude.Nothing,
$sel:lastModified:GetObjectResponse' :: Maybe RFC822
lastModified = forall a. Maybe a
Prelude.Nothing,
$sel:metadata:GetObjectResponse' :: HashMap Text Text
metadata = forall a. Monoid a => a
Prelude.mempty,
$sel:missingMeta:GetObjectResponse' :: Maybe Int
missingMeta = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockLegalHoldStatus:GetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockMode:GetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockRetainUntilDate:GetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = forall a. Maybe a
Prelude.Nothing,
$sel:partsCount:GetObjectResponse' :: Maybe Int
partsCount = forall a. Maybe a
Prelude.Nothing,
$sel:replicationStatus:GetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:requestCharged:GetObjectResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
$sel:restore:GetObjectResponse' :: Maybe Text
restore = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:GetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:GetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSKeyId:GetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:serverSideEncryption:GetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:storageClass:GetObjectResponse' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
$sel:tagCount:GetObjectResponse' :: Maybe Int
tagCount = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:GetObjectResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:websiteRedirectLocation:GetObjectResponse' :: Maybe Text
websiteRedirectLocation = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetObjectResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:body:GetObjectResponse' :: ResponseBody
body = ResponseBody
pBody_
}
getObjectResponse_acceptRanges :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_acceptRanges :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_acceptRanges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
acceptRanges :: Maybe Text
$sel:acceptRanges:GetObjectResponse' :: GetObjectResponse -> Maybe Text
acceptRanges} -> Maybe Text
acceptRanges) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:acceptRanges:GetObjectResponse' :: Maybe Text
acceptRanges = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_bucketKeyEnabled :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Bool)
getObjectResponse_bucketKeyEnabled :: Lens' GetObjectResponse (Maybe Bool)
getObjectResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:GetObjectResponse' :: GetObjectResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Bool
a -> GetObjectResponse
s {$sel:bucketKeyEnabled:GetObjectResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: GetObjectResponse)
getObjectResponse_cacheControl :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_cacheControl :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_cacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
cacheControl :: Maybe Text
$sel:cacheControl:GetObjectResponse' :: GetObjectResponse -> Maybe Text
cacheControl} -> Maybe Text
cacheControl) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:cacheControl:GetObjectResponse' :: Maybe Text
cacheControl = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_checksumCRC32 :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_checksumCRC32 :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:GetObjectResponse' :: GetObjectResponse -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:checksumCRC32:GetObjectResponse' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_checksumCRC32C :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_checksumCRC32C :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:GetObjectResponse' :: GetObjectResponse -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:checksumCRC32C:GetObjectResponse' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_checksumSHA1 :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_checksumSHA1 :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:GetObjectResponse' :: GetObjectResponse -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:checksumSHA1:GetObjectResponse' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_checksumSHA256 :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_checksumSHA256 :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:GetObjectResponse' :: GetObjectResponse -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:checksumSHA256:GetObjectResponse' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_contentDisposition :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_contentDisposition :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_contentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
contentDisposition :: Maybe Text
$sel:contentDisposition:GetObjectResponse' :: GetObjectResponse -> Maybe Text
contentDisposition} -> Maybe Text
contentDisposition) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:contentDisposition:GetObjectResponse' :: Maybe Text
contentDisposition = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_contentEncoding :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_contentEncoding :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_contentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
contentEncoding :: Maybe Text
$sel:contentEncoding:GetObjectResponse' :: GetObjectResponse -> Maybe Text
contentEncoding} -> Maybe Text
contentEncoding) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:contentEncoding:GetObjectResponse' :: Maybe Text
contentEncoding = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_contentLanguage :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_contentLanguage :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_contentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
contentLanguage :: Maybe Text
$sel:contentLanguage:GetObjectResponse' :: GetObjectResponse -> Maybe Text
contentLanguage} -> Maybe Text
contentLanguage) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:contentLanguage:GetObjectResponse' :: Maybe Text
contentLanguage = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_contentLength :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Integer)
getObjectResponse_contentLength :: Lens' GetObjectResponse (Maybe Integer)
getObjectResponse_contentLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Integer
contentLength :: Maybe Integer
$sel:contentLength:GetObjectResponse' :: GetObjectResponse -> Maybe Integer
contentLength} -> Maybe Integer
contentLength) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Integer
a -> GetObjectResponse
s {$sel:contentLength:GetObjectResponse' :: Maybe Integer
contentLength = Maybe Integer
a} :: GetObjectResponse)
getObjectResponse_contentRange :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_contentRange :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_contentRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
contentRange :: Maybe Text
$sel:contentRange:GetObjectResponse' :: GetObjectResponse -> Maybe Text
contentRange} -> Maybe Text
contentRange) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:contentRange:GetObjectResponse' :: Maybe Text
contentRange = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_contentType :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_contentType :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
contentType :: Maybe Text
$sel:contentType:GetObjectResponse' :: GetObjectResponse -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:contentType:GetObjectResponse' :: Maybe Text
contentType = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_deleteMarker :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Bool)
getObjectResponse_deleteMarker :: Lens' GetObjectResponse (Maybe Bool)
getObjectResponse_deleteMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Bool
deleteMarker :: Maybe Bool
$sel:deleteMarker:GetObjectResponse' :: GetObjectResponse -> Maybe Bool
deleteMarker} -> Maybe Bool
deleteMarker) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Bool
a -> GetObjectResponse
s {$sel:deleteMarker:GetObjectResponse' :: Maybe Bool
deleteMarker = Maybe Bool
a} :: GetObjectResponse)
getObjectResponse_eTag :: Lens.Lens' GetObjectResponse (Prelude.Maybe ETag)
getObjectResponse_eTag :: Lens' GetObjectResponse (Maybe ETag)
getObjectResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:GetObjectResponse' :: GetObjectResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ETag
a -> GetObjectResponse
s {$sel:eTag:GetObjectResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: GetObjectResponse)
getObjectResponse_expiration :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_expiration :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_expiration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
expiration :: Maybe Text
$sel:expiration:GetObjectResponse' :: GetObjectResponse -> Maybe Text
expiration} -> Maybe Text
expiration) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:expiration:GetObjectResponse' :: Maybe Text
expiration = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_expires :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.UTCTime)
getObjectResponse_expires :: Lens' GetObjectResponse (Maybe UTCTime)
getObjectResponse_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe RFC822
expires :: Maybe RFC822
$sel:expires:GetObjectResponse' :: GetObjectResponse -> Maybe RFC822
expires} -> Maybe RFC822
expires) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe RFC822
a -> GetObjectResponse
s {$sel:expires:GetObjectResponse' :: Maybe RFC822
expires = Maybe RFC822
a} :: GetObjectResponse) 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
getObjectResponse_lastModified :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.UTCTime)
getObjectResponse_lastModified :: Lens' GetObjectResponse (Maybe UTCTime)
getObjectResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe RFC822
lastModified :: Maybe RFC822
$sel:lastModified:GetObjectResponse' :: GetObjectResponse -> Maybe RFC822
lastModified} -> Maybe RFC822
lastModified) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe RFC822
a -> GetObjectResponse
s {$sel:lastModified:GetObjectResponse' :: Maybe RFC822
lastModified = Maybe RFC822
a} :: GetObjectResponse) 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
getObjectResponse_metadata :: Lens.Lens' GetObjectResponse (Prelude.HashMap Prelude.Text Prelude.Text)
getObjectResponse_metadata :: Lens' GetObjectResponse (HashMap Text Text)
getObjectResponse_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {HashMap Text Text
metadata :: HashMap Text Text
$sel:metadata:GetObjectResponse' :: GetObjectResponse -> HashMap Text Text
metadata} -> HashMap Text Text
metadata) (\s :: GetObjectResponse
s@GetObjectResponse' {} HashMap Text Text
a -> GetObjectResponse
s {$sel:metadata:GetObjectResponse' :: HashMap Text Text
metadata = HashMap Text Text
a} :: GetObjectResponse) 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
getObjectResponse_missingMeta :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Int)
getObjectResponse_missingMeta :: Lens' GetObjectResponse (Maybe Int)
getObjectResponse_missingMeta = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Int
missingMeta :: Maybe Int
$sel:missingMeta:GetObjectResponse' :: GetObjectResponse -> Maybe Int
missingMeta} -> Maybe Int
missingMeta) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Int
a -> GetObjectResponse
s {$sel:missingMeta:GetObjectResponse' :: Maybe Int
missingMeta = Maybe Int
a} :: GetObjectResponse)
getObjectResponse_objectLockLegalHoldStatus :: Lens.Lens' GetObjectResponse (Prelude.Maybe ObjectLockLegalHoldStatus)
getObjectResponse_objectLockLegalHoldStatus :: Lens' GetObjectResponse (Maybe ObjectLockLegalHoldStatus)
getObjectResponse_objectLockLegalHoldStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
$sel:objectLockLegalHoldStatus:GetObjectResponse' :: GetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus} -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ObjectLockLegalHoldStatus
a -> GetObjectResponse
s {$sel:objectLockLegalHoldStatus:GetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = Maybe ObjectLockLegalHoldStatus
a} :: GetObjectResponse)
getObjectResponse_objectLockMode :: Lens.Lens' GetObjectResponse (Prelude.Maybe ObjectLockMode)
getObjectResponse_objectLockMode :: Lens' GetObjectResponse (Maybe ObjectLockMode)
getObjectResponse_objectLockMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ObjectLockMode
objectLockMode :: Maybe ObjectLockMode
$sel:objectLockMode:GetObjectResponse' :: GetObjectResponse -> Maybe ObjectLockMode
objectLockMode} -> Maybe ObjectLockMode
objectLockMode) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ObjectLockMode
a -> GetObjectResponse
s {$sel:objectLockMode:GetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = Maybe ObjectLockMode
a} :: GetObjectResponse)
getObjectResponse_objectLockRetainUntilDate :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.UTCTime)
getObjectResponse_objectLockRetainUntilDate :: Lens' GetObjectResponse (Maybe UTCTime)
getObjectResponse_objectLockRetainUntilDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ISO8601
objectLockRetainUntilDate :: Maybe ISO8601
$sel:objectLockRetainUntilDate:GetObjectResponse' :: GetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate} -> Maybe ISO8601
objectLockRetainUntilDate) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ISO8601
a -> GetObjectResponse
s {$sel:objectLockRetainUntilDate:GetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = Maybe ISO8601
a} :: GetObjectResponse) 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
getObjectResponse_partsCount :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Int)
getObjectResponse_partsCount :: Lens' GetObjectResponse (Maybe Int)
getObjectResponse_partsCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Int
partsCount :: Maybe Int
$sel:partsCount:GetObjectResponse' :: GetObjectResponse -> Maybe Int
partsCount} -> Maybe Int
partsCount) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Int
a -> GetObjectResponse
s {$sel:partsCount:GetObjectResponse' :: Maybe Int
partsCount = Maybe Int
a} :: GetObjectResponse)
getObjectResponse_replicationStatus :: Lens.Lens' GetObjectResponse (Prelude.Maybe ReplicationStatus)
getObjectResponse_replicationStatus :: Lens' GetObjectResponse (Maybe ReplicationStatus)
getObjectResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ReplicationStatus
replicationStatus :: Maybe ReplicationStatus
$sel:replicationStatus:GetObjectResponse' :: GetObjectResponse -> Maybe ReplicationStatus
replicationStatus} -> Maybe ReplicationStatus
replicationStatus) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ReplicationStatus
a -> GetObjectResponse
s {$sel:replicationStatus:GetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = Maybe ReplicationStatus
a} :: GetObjectResponse)
getObjectResponse_requestCharged :: Lens.Lens' GetObjectResponse (Prelude.Maybe RequestCharged)
getObjectResponse_requestCharged :: Lens' GetObjectResponse (Maybe RequestCharged)
getObjectResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:GetObjectResponse' :: GetObjectResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe RequestCharged
a -> GetObjectResponse
s {$sel:requestCharged:GetObjectResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: GetObjectResponse)
getObjectResponse_restore :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_restore :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_restore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
restore :: Maybe Text
$sel:restore:GetObjectResponse' :: GetObjectResponse -> Maybe Text
restore} -> Maybe Text
restore) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:restore:GetObjectResponse' :: Maybe Text
restore = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_sSECustomerAlgorithm :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_sSECustomerAlgorithm :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:GetObjectResponse' :: GetObjectResponse -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:sSECustomerAlgorithm:GetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_sSECustomerKeyMD5 :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_sSECustomerKeyMD5 :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:GetObjectResponse' :: GetObjectResponse -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:sSECustomerKeyMD5:GetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_sSEKMSKeyId :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_sSEKMSKeyId :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:GetObjectResponse' :: GetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe (Sensitive Text)
a -> GetObjectResponse
s {$sel:sSEKMSKeyId:GetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: GetObjectResponse) 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
getObjectResponse_serverSideEncryption :: Lens.Lens' GetObjectResponse (Prelude.Maybe ServerSideEncryption)
getObjectResponse_serverSideEncryption :: Lens' GetObjectResponse (Maybe ServerSideEncryption)
getObjectResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:GetObjectResponse' :: GetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ServerSideEncryption
a -> GetObjectResponse
s {$sel:serverSideEncryption:GetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: GetObjectResponse)
getObjectResponse_storageClass :: Lens.Lens' GetObjectResponse (Prelude.Maybe StorageClass)
getObjectResponse_storageClass :: Lens' GetObjectResponse (Maybe StorageClass)
getObjectResponse_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:GetObjectResponse' :: GetObjectResponse -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe StorageClass
a -> GetObjectResponse
s {$sel:storageClass:GetObjectResponse' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: GetObjectResponse)
getObjectResponse_tagCount :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Int)
getObjectResponse_tagCount :: Lens' GetObjectResponse (Maybe Int)
getObjectResponse_tagCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Int
tagCount :: Maybe Int
$sel:tagCount:GetObjectResponse' :: GetObjectResponse -> Maybe Int
tagCount} -> Maybe Int
tagCount) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Int
a -> GetObjectResponse
s {$sel:tagCount:GetObjectResponse' :: Maybe Int
tagCount = Maybe Int
a} :: GetObjectResponse)
getObjectResponse_versionId :: Lens.Lens' GetObjectResponse (Prelude.Maybe ObjectVersionId)
getObjectResponse_versionId :: Lens' GetObjectResponse (Maybe ObjectVersionId)
getObjectResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:GetObjectResponse' :: GetObjectResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe ObjectVersionId
a -> GetObjectResponse
s {$sel:versionId:GetObjectResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: GetObjectResponse)
getObjectResponse_websiteRedirectLocation :: Lens.Lens' GetObjectResponse (Prelude.Maybe Prelude.Text)
getObjectResponse_websiteRedirectLocation :: Lens' GetObjectResponse (Maybe Text)
getObjectResponse_websiteRedirectLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Maybe Text
websiteRedirectLocation :: Maybe Text
$sel:websiteRedirectLocation:GetObjectResponse' :: GetObjectResponse -> Maybe Text
websiteRedirectLocation} -> Maybe Text
websiteRedirectLocation) (\s :: GetObjectResponse
s@GetObjectResponse' {} Maybe Text
a -> GetObjectResponse
s {$sel:websiteRedirectLocation:GetObjectResponse' :: Maybe Text
websiteRedirectLocation = Maybe Text
a} :: GetObjectResponse)
getObjectResponse_httpStatus :: Lens.Lens' GetObjectResponse Prelude.Int
getObjectResponse_httpStatus :: Lens' GetObjectResponse Int
getObjectResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetObjectResponse' :: GetObjectResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetObjectResponse
s@GetObjectResponse' {} Int
a -> GetObjectResponse
s {$sel:httpStatus:GetObjectResponse' :: Int
httpStatus = Int
a} :: GetObjectResponse)
getObjectResponse_body :: Lens.Lens' GetObjectResponse Data.ResponseBody
getObjectResponse_body :: Lens' GetObjectResponse ResponseBody
getObjectResponse_body = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectResponse' {ResponseBody
body :: ResponseBody
$sel:body:GetObjectResponse' :: GetObjectResponse -> ResponseBody
body} -> ResponseBody
body) (\s :: GetObjectResponse
s@GetObjectResponse' {} ResponseBody
a -> GetObjectResponse
s {$sel:body:GetObjectResponse' :: ResponseBody
body = ResponseBody
a} :: GetObjectResponse)