{-# 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.HeadObject
(
HeadObject (..),
newHeadObject,
headObject_checksumMode,
headObject_expectedBucketOwner,
headObject_ifMatch,
headObject_ifModifiedSince,
headObject_ifNoneMatch,
headObject_ifUnmodifiedSince,
headObject_partNumber,
headObject_range,
headObject_requestPayer,
headObject_sSECustomerAlgorithm,
headObject_sSECustomerKey,
headObject_sSECustomerKeyMD5,
headObject_versionId,
headObject_bucket,
headObject_key,
HeadObjectResponse (..),
newHeadObjectResponse,
headObjectResponse_acceptRanges,
headObjectResponse_archiveStatus,
headObjectResponse_bucketKeyEnabled,
headObjectResponse_cacheControl,
headObjectResponse_checksumCRC32,
headObjectResponse_checksumCRC32C,
headObjectResponse_checksumSHA1,
headObjectResponse_checksumSHA256,
headObjectResponse_contentDisposition,
headObjectResponse_contentEncoding,
headObjectResponse_contentLanguage,
headObjectResponse_contentLength,
headObjectResponse_contentType,
headObjectResponse_deleteMarker,
headObjectResponse_eTag,
headObjectResponse_expiration,
headObjectResponse_expires,
headObjectResponse_lastModified,
headObjectResponse_metadata,
headObjectResponse_missingMeta,
headObjectResponse_objectLockLegalHoldStatus,
headObjectResponse_objectLockMode,
headObjectResponse_objectLockRetainUntilDate,
headObjectResponse_partsCount,
headObjectResponse_replicationStatus,
headObjectResponse_requestCharged,
headObjectResponse_restore,
headObjectResponse_sSECustomerAlgorithm,
headObjectResponse_sSECustomerKeyMD5,
headObjectResponse_sSEKMSKeyId,
headObjectResponse_serverSideEncryption,
headObjectResponse_storageClass,
headObjectResponse_versionId,
headObjectResponse_websiteRedirectLocation,
headObjectResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.S3.Types
data HeadObject = HeadObject'
{
HeadObject -> Maybe ChecksumMode
checksumMode :: Prelude.Maybe ChecksumMode,
HeadObject -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe Text
ifMatch :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe RFC822
ifModifiedSince :: Prelude.Maybe Data.RFC822,
HeadObject -> Maybe Text
ifNoneMatch :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe RFC822
ifUnmodifiedSince :: Prelude.Maybe Data.RFC822,
HeadObject -> Maybe Int
partNumber :: Prelude.Maybe Prelude.Int,
HeadObject -> Maybe Text
range :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
HeadObject -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
HeadObject -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
HeadObject -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
HeadObject -> BucketName
bucket :: BucketName,
HeadObject -> ObjectKey
key :: ObjectKey
}
deriving (HeadObject -> HeadObject -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HeadObject -> HeadObject -> Bool
$c/= :: HeadObject -> HeadObject -> Bool
== :: HeadObject -> HeadObject -> Bool
$c== :: HeadObject -> HeadObject -> Bool
Prelude.Eq, Int -> HeadObject -> ShowS
[HeadObject] -> ShowS
HeadObject -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HeadObject] -> ShowS
$cshowList :: [HeadObject] -> ShowS
show :: HeadObject -> String
$cshow :: HeadObject -> String
showsPrec :: Int -> HeadObject -> ShowS
$cshowsPrec :: Int -> HeadObject -> ShowS
Prelude.Show, forall x. Rep HeadObject x -> HeadObject
forall x. HeadObject -> Rep HeadObject x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HeadObject x -> HeadObject
$cfrom :: forall x. HeadObject -> Rep HeadObject x
Prelude.Generic)
newHeadObject ::
BucketName ->
ObjectKey ->
HeadObject
newHeadObject :: BucketName -> ObjectKey -> HeadObject
newHeadObject BucketName
pBucket_ ObjectKey
pKey_ =
HeadObject'
{ $sel:checksumMode:HeadObject' :: Maybe ChecksumMode
checksumMode = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:HeadObject' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:ifMatch:HeadObject' :: Maybe Text
ifMatch = forall a. Maybe a
Prelude.Nothing,
$sel:ifModifiedSince:HeadObject' :: Maybe RFC822
ifModifiedSince = forall a. Maybe a
Prelude.Nothing,
$sel:ifNoneMatch:HeadObject' :: Maybe Text
ifNoneMatch = forall a. Maybe a
Prelude.Nothing,
$sel:ifUnmodifiedSince:HeadObject' :: Maybe RFC822
ifUnmodifiedSince = forall a. Maybe a
Prelude.Nothing,
$sel:partNumber:HeadObject' :: Maybe Int
partNumber = forall a. Maybe a
Prelude.Nothing,
$sel:range:HeadObject' :: Maybe Text
range = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:HeadObject' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:HeadObject' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKey:HeadObject' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:HeadObject' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:HeadObject' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:HeadObject' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:HeadObject' :: ObjectKey
key = ObjectKey
pKey_
}
headObject_checksumMode :: Lens.Lens' HeadObject (Prelude.Maybe ChecksumMode)
headObject_checksumMode :: Lens' HeadObject (Maybe ChecksumMode)
headObject_checksumMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe ChecksumMode
checksumMode :: Maybe ChecksumMode
$sel:checksumMode:HeadObject' :: HeadObject -> Maybe ChecksumMode
checksumMode} -> Maybe ChecksumMode
checksumMode) (\s :: HeadObject
s@HeadObject' {} Maybe ChecksumMode
a -> HeadObject
s {$sel:checksumMode:HeadObject' :: Maybe ChecksumMode
checksumMode = Maybe ChecksumMode
a} :: HeadObject)
headObject_expectedBucketOwner :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_expectedBucketOwner :: Lens' HeadObject (Maybe Text)
headObject_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:expectedBucketOwner:HeadObject' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: HeadObject)
headObject_ifMatch :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_ifMatch :: Lens' HeadObject (Maybe Text)
headObject_ifMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
ifMatch :: Maybe Text
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
ifMatch} -> Maybe Text
ifMatch) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:ifMatch:HeadObject' :: Maybe Text
ifMatch = Maybe Text
a} :: HeadObject)
headObject_ifModifiedSince :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.UTCTime)
headObject_ifModifiedSince :: Lens' HeadObject (Maybe UTCTime)
headObject_ifModifiedSince = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe RFC822
ifModifiedSince :: Maybe RFC822
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
ifModifiedSince} -> Maybe RFC822
ifModifiedSince) (\s :: HeadObject
s@HeadObject' {} Maybe RFC822
a -> HeadObject
s {$sel:ifModifiedSince:HeadObject' :: Maybe RFC822
ifModifiedSince = Maybe RFC822
a} :: HeadObject) 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
headObject_ifNoneMatch :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_ifNoneMatch :: Lens' HeadObject (Maybe Text)
headObject_ifNoneMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
ifNoneMatch :: Maybe Text
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
ifNoneMatch} -> Maybe Text
ifNoneMatch) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:ifNoneMatch:HeadObject' :: Maybe Text
ifNoneMatch = Maybe Text
a} :: HeadObject)
headObject_ifUnmodifiedSince :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.UTCTime)
headObject_ifUnmodifiedSince :: Lens' HeadObject (Maybe UTCTime)
headObject_ifUnmodifiedSince = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe RFC822
ifUnmodifiedSince :: Maybe RFC822
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
ifUnmodifiedSince} -> Maybe RFC822
ifUnmodifiedSince) (\s :: HeadObject
s@HeadObject' {} Maybe RFC822
a -> HeadObject
s {$sel:ifUnmodifiedSince:HeadObject' :: Maybe RFC822
ifUnmodifiedSince = Maybe RFC822
a} :: HeadObject) 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
headObject_partNumber :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Int)
headObject_partNumber :: Lens' HeadObject (Maybe Int)
headObject_partNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Int
partNumber :: Maybe Int
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
partNumber} -> Maybe Int
partNumber) (\s :: HeadObject
s@HeadObject' {} Maybe Int
a -> HeadObject
s {$sel:partNumber:HeadObject' :: Maybe Int
partNumber = Maybe Int
a} :: HeadObject)
headObject_range :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_range :: Lens' HeadObject (Maybe Text)
headObject_range = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
range :: Maybe Text
$sel:range:HeadObject' :: HeadObject -> Maybe Text
range} -> Maybe Text
range) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:range:HeadObject' :: Maybe Text
range = Maybe Text
a} :: HeadObject)
headObject_requestPayer :: Lens.Lens' HeadObject (Prelude.Maybe RequestPayer)
headObject_requestPayer :: Lens' HeadObject (Maybe RequestPayer)
headObject_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: HeadObject
s@HeadObject' {} Maybe RequestPayer
a -> HeadObject
s {$sel:requestPayer:HeadObject' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: HeadObject)
headObject_sSECustomerAlgorithm :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_sSECustomerAlgorithm :: Lens' HeadObject (Maybe Text)
headObject_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:sSECustomerAlgorithm:HeadObject' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: HeadObject)
headObject_sSECustomerKey :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_sSECustomerKey :: Lens' HeadObject (Maybe Text)
headObject_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: HeadObject
s@HeadObject' {} Maybe (Sensitive Text)
a -> HeadObject
s {$sel:sSECustomerKey:HeadObject' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: HeadObject) 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
headObject_sSECustomerKeyMD5 :: Lens.Lens' HeadObject (Prelude.Maybe Prelude.Text)
headObject_sSECustomerKeyMD5 :: Lens' HeadObject (Maybe Text)
headObject_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: HeadObject
s@HeadObject' {} Maybe Text
a -> HeadObject
s {$sel:sSECustomerKeyMD5:HeadObject' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: HeadObject)
headObject_versionId :: Lens.Lens' HeadObject (Prelude.Maybe ObjectVersionId)
headObject_versionId :: Lens' HeadObject (Maybe ObjectVersionId)
headObject_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: HeadObject
s@HeadObject' {} Maybe ObjectVersionId
a -> HeadObject
s {$sel:versionId:HeadObject' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: HeadObject)
headObject_bucket :: Lens.Lens' HeadObject BucketName
headObject_bucket :: Lens' HeadObject BucketName
headObject_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {BucketName
bucket :: BucketName
$sel:bucket:HeadObject' :: HeadObject -> BucketName
bucket} -> BucketName
bucket) (\s :: HeadObject
s@HeadObject' {} BucketName
a -> HeadObject
s {$sel:bucket:HeadObject' :: BucketName
bucket = BucketName
a} :: HeadObject)
headObject_key :: Lens.Lens' HeadObject ObjectKey
headObject_key :: Lens' HeadObject ObjectKey
headObject_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObject' {ObjectKey
key :: ObjectKey
$sel:key:HeadObject' :: HeadObject -> ObjectKey
key} -> ObjectKey
key) (\s :: HeadObject
s@HeadObject' {} ObjectKey
a -> HeadObject
s {$sel:key:HeadObject' :: ObjectKey
key = ObjectKey
a} :: HeadObject)
instance Core.AWSRequest HeadObject where
type AWSResponse HeadObject = HeadObjectResponse
request :: (Service -> Service) -> HeadObject -> Request HeadObject
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.head' (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy HeadObject
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse HeadObject)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Maybe Text
-> Maybe ArchiveStatus
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Integer
-> 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 ObjectVersionId
-> Maybe Text
-> Int
-> HeadObjectResponse
HeadObjectResponse'
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-archive-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-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-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-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))
)
instance Prelude.Hashable HeadObject where
hashWithSalt :: Int -> HeadObject -> Int
hashWithSalt Int
_salt HeadObject' {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
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:HeadObject' :: HeadObject -> ObjectKey
$sel:bucket:HeadObject' :: HeadObject -> BucketName
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
$sel:range:HeadObject' :: HeadObject -> Maybe Text
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
$sel:checksumMode:HeadObject' :: HeadObject -> 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
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 HeadObject where
rnf :: HeadObject -> ()
rnf HeadObject' {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
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:HeadObject' :: HeadObject -> ObjectKey
$sel:bucket:HeadObject' :: HeadObject -> BucketName
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
$sel:range:HeadObject' :: HeadObject -> Maybe Text
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
$sel:checksumMode:HeadObject' :: HeadObject -> 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
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 HeadObject where
toHeaders :: HeadObject -> ResponseHeaders
toHeaders HeadObject' {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
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:HeadObject' :: HeadObject -> ObjectKey
$sel:bucket:HeadObject' :: HeadObject -> BucketName
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
$sel:range:HeadObject' :: HeadObject -> Maybe Text
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
$sel:checksumMode:HeadObject' :: HeadObject -> 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 HeadObject where
toPath :: HeadObject -> ByteString
toPath HeadObject' {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
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:HeadObject' :: HeadObject -> ObjectKey
$sel:bucket:HeadObject' :: HeadObject -> BucketName
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
$sel:range:HeadObject' :: HeadObject -> Maybe Text
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
$sel:checksumMode:HeadObject' :: HeadObject -> 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 HeadObject where
toQuery :: HeadObject -> QueryString
toQuery HeadObject' {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
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:HeadObject' :: HeadObject -> ObjectKey
$sel:bucket:HeadObject' :: HeadObject -> BucketName
$sel:versionId:HeadObject' :: HeadObject -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:HeadObject' :: HeadObject -> Maybe Text
$sel:sSECustomerKey:HeadObject' :: HeadObject -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:HeadObject' :: HeadObject -> Maybe Text
$sel:requestPayer:HeadObject' :: HeadObject -> Maybe RequestPayer
$sel:range:HeadObject' :: HeadObject -> Maybe Text
$sel:partNumber:HeadObject' :: HeadObject -> Maybe Int
$sel:ifUnmodifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifNoneMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:ifModifiedSince:HeadObject' :: HeadObject -> Maybe RFC822
$sel:ifMatch:HeadObject' :: HeadObject -> Maybe Text
$sel:expectedBucketOwner:HeadObject' :: HeadObject -> Maybe Text
$sel:checksumMode:HeadObject' :: HeadObject -> Maybe ChecksumMode
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"partNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
partNumber,
ByteString
"versionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ObjectVersionId
versionId
]
data HeadObjectResponse = HeadObjectResponse'
{
HeadObjectResponse -> Maybe Text
acceptRanges :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe ArchiveStatus
archiveStatus :: Prelude.Maybe ArchiveStatus,
HeadObjectResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
HeadObjectResponse -> Maybe Text
cacheControl :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
contentDisposition :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
contentEncoding :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
contentLanguage :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Integer
contentLength :: Prelude.Maybe Prelude.Integer,
HeadObjectResponse -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Bool
deleteMarker :: Prelude.Maybe Prelude.Bool,
HeadObjectResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
HeadObjectResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe RFC822
expires :: Prelude.Maybe Data.RFC822,
HeadObjectResponse -> Maybe RFC822
lastModified :: Prelude.Maybe Data.RFC822,
HeadObjectResponse -> HashMap Text Text
metadata :: Prelude.HashMap Prelude.Text Prelude.Text,
HeadObjectResponse -> Maybe Int
missingMeta :: Prelude.Maybe Prelude.Int,
HeadObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Prelude.Maybe ObjectLockLegalHoldStatus,
HeadObjectResponse -> Maybe ObjectLockMode
objectLockMode :: Prelude.Maybe ObjectLockMode,
HeadObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate :: Prelude.Maybe Data.ISO8601,
HeadObjectResponse -> Maybe Int
partsCount :: Prelude.Maybe Prelude.Int,
HeadObjectResponse -> Maybe ReplicationStatus
replicationStatus :: Prelude.Maybe ReplicationStatus,
HeadObjectResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
HeadObjectResponse -> Maybe Text
restore :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
HeadObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
HeadObjectResponse -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
HeadObjectResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
HeadObjectResponse -> Maybe Text
websiteRedirectLocation :: Prelude.Maybe Prelude.Text,
HeadObjectResponse -> Int
httpStatus :: Prelude.Int
}
deriving (HeadObjectResponse -> HeadObjectResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HeadObjectResponse -> HeadObjectResponse -> Bool
$c/= :: HeadObjectResponse -> HeadObjectResponse -> Bool
== :: HeadObjectResponse -> HeadObjectResponse -> Bool
$c== :: HeadObjectResponse -> HeadObjectResponse -> Bool
Prelude.Eq, Int -> HeadObjectResponse -> ShowS
[HeadObjectResponse] -> ShowS
HeadObjectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HeadObjectResponse] -> ShowS
$cshowList :: [HeadObjectResponse] -> ShowS
show :: HeadObjectResponse -> String
$cshow :: HeadObjectResponse -> String
showsPrec :: Int -> HeadObjectResponse -> ShowS
$cshowsPrec :: Int -> HeadObjectResponse -> ShowS
Prelude.Show, forall x. Rep HeadObjectResponse x -> HeadObjectResponse
forall x. HeadObjectResponse -> Rep HeadObjectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HeadObjectResponse x -> HeadObjectResponse
$cfrom :: forall x. HeadObjectResponse -> Rep HeadObjectResponse x
Prelude.Generic)
newHeadObjectResponse ::
Prelude.Int ->
HeadObjectResponse
newHeadObjectResponse :: Int -> HeadObjectResponse
newHeadObjectResponse Int
pHttpStatus_ =
HeadObjectResponse'
{ $sel:acceptRanges:HeadObjectResponse' :: Maybe Text
acceptRanges = forall a. Maybe a
Prelude.Nothing,
$sel:archiveStatus:HeadObjectResponse' :: Maybe ArchiveStatus
archiveStatus = forall a. Maybe a
Prelude.Nothing,
$sel:bucketKeyEnabled:HeadObjectResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:cacheControl:HeadObjectResponse' :: Maybe Text
cacheControl = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32:HeadObjectResponse' :: Maybe Text
checksumCRC32 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumCRC32C:HeadObjectResponse' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA1:HeadObjectResponse' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
$sel:checksumSHA256:HeadObjectResponse' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
$sel:contentDisposition:HeadObjectResponse' :: Maybe Text
contentDisposition = forall a. Maybe a
Prelude.Nothing,
$sel:contentEncoding:HeadObjectResponse' :: Maybe Text
contentEncoding = forall a. Maybe a
Prelude.Nothing,
$sel:contentLanguage:HeadObjectResponse' :: Maybe Text
contentLanguage = forall a. Maybe a
Prelude.Nothing,
$sel:contentLength:HeadObjectResponse' :: Maybe Integer
contentLength = forall a. Maybe a
Prelude.Nothing,
$sel:contentType:HeadObjectResponse' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
$sel:deleteMarker:HeadObjectResponse' :: Maybe Bool
deleteMarker = forall a. Maybe a
Prelude.Nothing,
$sel:eTag:HeadObjectResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
$sel:expiration:HeadObjectResponse' :: Maybe Text
expiration = forall a. Maybe a
Prelude.Nothing,
$sel:expires:HeadObjectResponse' :: Maybe RFC822
expires = forall a. Maybe a
Prelude.Nothing,
$sel:lastModified:HeadObjectResponse' :: Maybe RFC822
lastModified = forall a. Maybe a
Prelude.Nothing,
$sel:metadata:HeadObjectResponse' :: HashMap Text Text
metadata = forall a. Monoid a => a
Prelude.mempty,
$sel:missingMeta:HeadObjectResponse' :: Maybe Int
missingMeta = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockLegalHoldStatus:HeadObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockMode:HeadObjectResponse' :: Maybe ObjectLockMode
objectLockMode = forall a. Maybe a
Prelude.Nothing,
$sel:objectLockRetainUntilDate:HeadObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = forall a. Maybe a
Prelude.Nothing,
$sel:partsCount:HeadObjectResponse' :: Maybe Int
partsCount = forall a. Maybe a
Prelude.Nothing,
$sel:replicationStatus:HeadObjectResponse' :: Maybe ReplicationStatus
replicationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:requestCharged:HeadObjectResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
$sel:restore:HeadObjectResponse' :: Maybe Text
restore = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:HeadObjectResponse' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:HeadObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:sSEKMSKeyId:HeadObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:serverSideEncryption:HeadObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
$sel:storageClass:HeadObjectResponse' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:HeadObjectResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:websiteRedirectLocation:HeadObjectResponse' :: Maybe Text
websiteRedirectLocation = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:HeadObjectResponse' :: Int
httpStatus = Int
pHttpStatus_
}
headObjectResponse_acceptRanges :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_acceptRanges :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_acceptRanges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
acceptRanges :: Maybe Text
$sel:acceptRanges:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
acceptRanges} -> Maybe Text
acceptRanges) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:acceptRanges:HeadObjectResponse' :: Maybe Text
acceptRanges = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_archiveStatus :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ArchiveStatus)
headObjectResponse_archiveStatus :: Lens' HeadObjectResponse (Maybe ArchiveStatus)
headObjectResponse_archiveStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ArchiveStatus
archiveStatus :: Maybe ArchiveStatus
$sel:archiveStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ArchiveStatus
archiveStatus} -> Maybe ArchiveStatus
archiveStatus) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ArchiveStatus
a -> HeadObjectResponse
s {$sel:archiveStatus:HeadObjectResponse' :: Maybe ArchiveStatus
archiveStatus = Maybe ArchiveStatus
a} :: HeadObjectResponse)
headObjectResponse_bucketKeyEnabled :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Bool)
headObjectResponse_bucketKeyEnabled :: Lens' HeadObjectResponse (Maybe Bool)
headObjectResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:HeadObjectResponse' :: HeadObjectResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Bool
a -> HeadObjectResponse
s {$sel:bucketKeyEnabled:HeadObjectResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: HeadObjectResponse)
headObjectResponse_cacheControl :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_cacheControl :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_cacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
cacheControl :: Maybe Text
$sel:cacheControl:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
cacheControl} -> Maybe Text
cacheControl) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:cacheControl:HeadObjectResponse' :: Maybe Text
cacheControl = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_checksumCRC32 :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_checksumCRC32 :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:checksumCRC32:HeadObjectResponse' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_checksumCRC32C :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_checksumCRC32C :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:checksumCRC32C:HeadObjectResponse' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_checksumSHA1 :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_checksumSHA1 :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:checksumSHA1:HeadObjectResponse' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_checksumSHA256 :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_checksumSHA256 :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:checksumSHA256:HeadObjectResponse' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_contentDisposition :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_contentDisposition :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_contentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
contentDisposition :: Maybe Text
$sel:contentDisposition:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
contentDisposition} -> Maybe Text
contentDisposition) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:contentDisposition:HeadObjectResponse' :: Maybe Text
contentDisposition = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_contentEncoding :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_contentEncoding :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_contentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
contentEncoding :: Maybe Text
$sel:contentEncoding:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
contentEncoding} -> Maybe Text
contentEncoding) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:contentEncoding:HeadObjectResponse' :: Maybe Text
contentEncoding = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_contentLanguage :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_contentLanguage :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_contentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
contentLanguage :: Maybe Text
$sel:contentLanguage:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
contentLanguage} -> Maybe Text
contentLanguage) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:contentLanguage:HeadObjectResponse' :: Maybe Text
contentLanguage = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_contentLength :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Integer)
headObjectResponse_contentLength :: Lens' HeadObjectResponse (Maybe Integer)
headObjectResponse_contentLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Integer
contentLength :: Maybe Integer
$sel:contentLength:HeadObjectResponse' :: HeadObjectResponse -> Maybe Integer
contentLength} -> Maybe Integer
contentLength) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Integer
a -> HeadObjectResponse
s {$sel:contentLength:HeadObjectResponse' :: Maybe Integer
contentLength = Maybe Integer
a} :: HeadObjectResponse)
headObjectResponse_contentType :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_contentType :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
contentType :: Maybe Text
$sel:contentType:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:contentType:HeadObjectResponse' :: Maybe Text
contentType = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_deleteMarker :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Bool)
headObjectResponse_deleteMarker :: Lens' HeadObjectResponse (Maybe Bool)
headObjectResponse_deleteMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Bool
deleteMarker :: Maybe Bool
$sel:deleteMarker:HeadObjectResponse' :: HeadObjectResponse -> Maybe Bool
deleteMarker} -> Maybe Bool
deleteMarker) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Bool
a -> HeadObjectResponse
s {$sel:deleteMarker:HeadObjectResponse' :: Maybe Bool
deleteMarker = Maybe Bool
a} :: HeadObjectResponse)
headObjectResponse_eTag :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ETag)
headObjectResponse_eTag :: Lens' HeadObjectResponse (Maybe ETag)
headObjectResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:HeadObjectResponse' :: HeadObjectResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ETag
a -> HeadObjectResponse
s {$sel:eTag:HeadObjectResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: HeadObjectResponse)
headObjectResponse_expiration :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_expiration :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_expiration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
expiration :: Maybe Text
$sel:expiration:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
expiration} -> Maybe Text
expiration) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:expiration:HeadObjectResponse' :: Maybe Text
expiration = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_expires :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.UTCTime)
headObjectResponse_expires :: Lens' HeadObjectResponse (Maybe UTCTime)
headObjectResponse_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe RFC822
expires :: Maybe RFC822
$sel:expires:HeadObjectResponse' :: HeadObjectResponse -> Maybe RFC822
expires} -> Maybe RFC822
expires) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe RFC822
a -> HeadObjectResponse
s {$sel:expires:HeadObjectResponse' :: Maybe RFC822
expires = Maybe RFC822
a} :: HeadObjectResponse) 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
headObjectResponse_lastModified :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.UTCTime)
headObjectResponse_lastModified :: Lens' HeadObjectResponse (Maybe UTCTime)
headObjectResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe RFC822
lastModified :: Maybe RFC822
$sel:lastModified:HeadObjectResponse' :: HeadObjectResponse -> Maybe RFC822
lastModified} -> Maybe RFC822
lastModified) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe RFC822
a -> HeadObjectResponse
s {$sel:lastModified:HeadObjectResponse' :: Maybe RFC822
lastModified = Maybe RFC822
a} :: HeadObjectResponse) 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
headObjectResponse_metadata :: Lens.Lens' HeadObjectResponse (Prelude.HashMap Prelude.Text Prelude.Text)
headObjectResponse_metadata :: Lens' HeadObjectResponse (HashMap Text Text)
headObjectResponse_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {HashMap Text Text
metadata :: HashMap Text Text
$sel:metadata:HeadObjectResponse' :: HeadObjectResponse -> HashMap Text Text
metadata} -> HashMap Text Text
metadata) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} HashMap Text Text
a -> HeadObjectResponse
s {$sel:metadata:HeadObjectResponse' :: HashMap Text Text
metadata = HashMap Text Text
a} :: HeadObjectResponse) 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
headObjectResponse_missingMeta :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Int)
headObjectResponse_missingMeta :: Lens' HeadObjectResponse (Maybe Int)
headObjectResponse_missingMeta = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Int
missingMeta :: Maybe Int
$sel:missingMeta:HeadObjectResponse' :: HeadObjectResponse -> Maybe Int
missingMeta} -> Maybe Int
missingMeta) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Int
a -> HeadObjectResponse
s {$sel:missingMeta:HeadObjectResponse' :: Maybe Int
missingMeta = Maybe Int
a} :: HeadObjectResponse)
headObjectResponse_objectLockLegalHoldStatus :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ObjectLockLegalHoldStatus)
headObjectResponse_objectLockLegalHoldStatus :: Lens' HeadObjectResponse (Maybe ObjectLockLegalHoldStatus)
headObjectResponse_objectLockLegalHoldStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
$sel:objectLockLegalHoldStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus} -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ObjectLockLegalHoldStatus
a -> HeadObjectResponse
s {$sel:objectLockLegalHoldStatus:HeadObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = Maybe ObjectLockLegalHoldStatus
a} :: HeadObjectResponse)
headObjectResponse_objectLockMode :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ObjectLockMode)
headObjectResponse_objectLockMode :: Lens' HeadObjectResponse (Maybe ObjectLockMode)
headObjectResponse_objectLockMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ObjectLockMode
objectLockMode :: Maybe ObjectLockMode
$sel:objectLockMode:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectLockMode
objectLockMode} -> Maybe ObjectLockMode
objectLockMode) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ObjectLockMode
a -> HeadObjectResponse
s {$sel:objectLockMode:HeadObjectResponse' :: Maybe ObjectLockMode
objectLockMode = Maybe ObjectLockMode
a} :: HeadObjectResponse)
headObjectResponse_objectLockRetainUntilDate :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.UTCTime)
headObjectResponse_objectLockRetainUntilDate :: Lens' HeadObjectResponse (Maybe UTCTime)
headObjectResponse_objectLockRetainUntilDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ISO8601
objectLockRetainUntilDate :: Maybe ISO8601
$sel:objectLockRetainUntilDate:HeadObjectResponse' :: HeadObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate} -> Maybe ISO8601
objectLockRetainUntilDate) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ISO8601
a -> HeadObjectResponse
s {$sel:objectLockRetainUntilDate:HeadObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = Maybe ISO8601
a} :: HeadObjectResponse) 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
headObjectResponse_partsCount :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Int)
headObjectResponse_partsCount :: Lens' HeadObjectResponse (Maybe Int)
headObjectResponse_partsCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Int
partsCount :: Maybe Int
$sel:partsCount:HeadObjectResponse' :: HeadObjectResponse -> Maybe Int
partsCount} -> Maybe Int
partsCount) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Int
a -> HeadObjectResponse
s {$sel:partsCount:HeadObjectResponse' :: Maybe Int
partsCount = Maybe Int
a} :: HeadObjectResponse)
headObjectResponse_replicationStatus :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ReplicationStatus)
headObjectResponse_replicationStatus :: Lens' HeadObjectResponse (Maybe ReplicationStatus)
headObjectResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ReplicationStatus
replicationStatus :: Maybe ReplicationStatus
$sel:replicationStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ReplicationStatus
replicationStatus} -> Maybe ReplicationStatus
replicationStatus) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ReplicationStatus
a -> HeadObjectResponse
s {$sel:replicationStatus:HeadObjectResponse' :: Maybe ReplicationStatus
replicationStatus = Maybe ReplicationStatus
a} :: HeadObjectResponse)
headObjectResponse_requestCharged :: Lens.Lens' HeadObjectResponse (Prelude.Maybe RequestCharged)
headObjectResponse_requestCharged :: Lens' HeadObjectResponse (Maybe RequestCharged)
headObjectResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:HeadObjectResponse' :: HeadObjectResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe RequestCharged
a -> HeadObjectResponse
s {$sel:requestCharged:HeadObjectResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: HeadObjectResponse)
headObjectResponse_restore :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_restore :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_restore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
restore :: Maybe Text
$sel:restore:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
restore} -> Maybe Text
restore) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:restore:HeadObjectResponse' :: Maybe Text
restore = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_sSECustomerAlgorithm :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_sSECustomerAlgorithm :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:sSECustomerAlgorithm:HeadObjectResponse' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_sSECustomerKeyMD5 :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_sSECustomerKeyMD5 :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:sSECustomerKeyMD5:HeadObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_sSEKMSKeyId :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_sSEKMSKeyId :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:HeadObjectResponse' :: HeadObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe (Sensitive Text)
a -> HeadObjectResponse
s {$sel:sSEKMSKeyId:HeadObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: HeadObjectResponse) 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
headObjectResponse_serverSideEncryption :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ServerSideEncryption)
headObjectResponse_serverSideEncryption :: Lens' HeadObjectResponse (Maybe ServerSideEncryption)
headObjectResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:HeadObjectResponse' :: HeadObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ServerSideEncryption
a -> HeadObjectResponse
s {$sel:serverSideEncryption:HeadObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: HeadObjectResponse)
headObjectResponse_storageClass :: Lens.Lens' HeadObjectResponse (Prelude.Maybe StorageClass)
headObjectResponse_storageClass :: Lens' HeadObjectResponse (Maybe StorageClass)
headObjectResponse_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:HeadObjectResponse' :: HeadObjectResponse -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe StorageClass
a -> HeadObjectResponse
s {$sel:storageClass:HeadObjectResponse' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: HeadObjectResponse)
headObjectResponse_versionId :: Lens.Lens' HeadObjectResponse (Prelude.Maybe ObjectVersionId)
headObjectResponse_versionId :: Lens' HeadObjectResponse (Maybe ObjectVersionId)
headObjectResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe ObjectVersionId
a -> HeadObjectResponse
s {$sel:versionId:HeadObjectResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: HeadObjectResponse)
headObjectResponse_websiteRedirectLocation :: Lens.Lens' HeadObjectResponse (Prelude.Maybe Prelude.Text)
headObjectResponse_websiteRedirectLocation :: Lens' HeadObjectResponse (Maybe Text)
headObjectResponse_websiteRedirectLocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Maybe Text
websiteRedirectLocation :: Maybe Text
$sel:websiteRedirectLocation:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
websiteRedirectLocation} -> Maybe Text
websiteRedirectLocation) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Maybe Text
a -> HeadObjectResponse
s {$sel:websiteRedirectLocation:HeadObjectResponse' :: Maybe Text
websiteRedirectLocation = Maybe Text
a} :: HeadObjectResponse)
headObjectResponse_httpStatus :: Lens.Lens' HeadObjectResponse Prelude.Int
headObjectResponse_httpStatus :: Lens' HeadObjectResponse Int
headObjectResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\HeadObjectResponse' {Int
httpStatus :: Int
$sel:httpStatus:HeadObjectResponse' :: HeadObjectResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: HeadObjectResponse
s@HeadObjectResponse' {} Int
a -> HeadObjectResponse
s {$sel:httpStatus:HeadObjectResponse' :: Int
httpStatus = Int
a} :: HeadObjectResponse)
instance Prelude.NFData HeadObjectResponse where
rnf :: HeadObjectResponse -> ()
rnf HeadObjectResponse' {Int
Maybe Bool
Maybe Int
Maybe Integer
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe ArchiveStatus
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe ReplicationStatus
Maybe RequestCharged
Maybe ServerSideEncryption
Maybe StorageClass
HashMap Text Text
httpStatus :: Int
websiteRedirectLocation :: Maybe Text
versionId :: Maybe ObjectVersionId
storageClass :: Maybe StorageClass
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
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
contentType :: 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
archiveStatus :: Maybe ArchiveStatus
acceptRanges :: Maybe Text
$sel:httpStatus:HeadObjectResponse' :: HeadObjectResponse -> Int
$sel:websiteRedirectLocation:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:versionId:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectVersionId
$sel:storageClass:HeadObjectResponse' :: HeadObjectResponse -> Maybe StorageClass
$sel:serverSideEncryption:HeadObjectResponse' :: HeadObjectResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:HeadObjectResponse' :: HeadObjectResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:sSECustomerAlgorithm:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:restore:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:requestCharged:HeadObjectResponse' :: HeadObjectResponse -> Maybe RequestCharged
$sel:replicationStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ReplicationStatus
$sel:partsCount:HeadObjectResponse' :: HeadObjectResponse -> Maybe Int
$sel:objectLockRetainUntilDate:HeadObjectResponse' :: HeadObjectResponse -> Maybe ISO8601
$sel:objectLockMode:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ObjectLockLegalHoldStatus
$sel:missingMeta:HeadObjectResponse' :: HeadObjectResponse -> Maybe Int
$sel:metadata:HeadObjectResponse' :: HeadObjectResponse -> HashMap Text Text
$sel:lastModified:HeadObjectResponse' :: HeadObjectResponse -> Maybe RFC822
$sel:expires:HeadObjectResponse' :: HeadObjectResponse -> Maybe RFC822
$sel:expiration:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:eTag:HeadObjectResponse' :: HeadObjectResponse -> Maybe ETag
$sel:deleteMarker:HeadObjectResponse' :: HeadObjectResponse -> Maybe Bool
$sel:contentType:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:contentLength:HeadObjectResponse' :: HeadObjectResponse -> Maybe Integer
$sel:contentLanguage:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:contentEncoding:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:contentDisposition:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:checksumSHA256:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:checksumSHA1:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:checksumCRC32C:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:checksumCRC32:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:cacheControl:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
$sel:bucketKeyEnabled:HeadObjectResponse' :: HeadObjectResponse -> Maybe Bool
$sel:archiveStatus:HeadObjectResponse' :: HeadObjectResponse -> Maybe ArchiveStatus
$sel:acceptRanges:HeadObjectResponse' :: HeadObjectResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
acceptRanges
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ArchiveStatus
archiveStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
bucketKeyEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumCRC32C
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA1
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksumSHA256
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentDisposition
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentEncoding
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentLanguage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
contentLength
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deleteMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ETag
eTag
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expiration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
expires
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RFC822
lastModified
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf HashMap Text Text
metadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
missingMeta
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectLockMode
objectLockMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ISO8601
objectLockRetainUntilDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
partsCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ReplicationStatus
replicationStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe RequestCharged
requestCharged
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
restore
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
sSECustomerAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
sSECustomerKeyMD5
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe (Sensitive Text)
sSEKMSKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ServerSideEncryption
serverSideEncryption
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe StorageClass
storageClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ObjectVersionId
versionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
websiteRedirectLocation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Int
httpStatus