{-# 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.GetObjectAttributes
(
GetObjectAttributes (..),
newGetObjectAttributes,
getObjectAttributes_expectedBucketOwner,
getObjectAttributes_maxParts,
getObjectAttributes_partNumberMarker,
getObjectAttributes_requestPayer,
getObjectAttributes_sSECustomerAlgorithm,
getObjectAttributes_sSECustomerKey,
getObjectAttributes_sSECustomerKeyMD5,
getObjectAttributes_versionId,
getObjectAttributes_bucket,
getObjectAttributes_key,
getObjectAttributes_objectAttributes,
GetObjectAttributesResponse (..),
newGetObjectAttributesResponse,
getObjectAttributesResponse_checksum,
getObjectAttributesResponse_deleteMarker,
getObjectAttributesResponse_eTag,
getObjectAttributesResponse_lastModified,
getObjectAttributesResponse_objectParts,
getObjectAttributesResponse_objectSize,
getObjectAttributesResponse_requestCharged,
getObjectAttributesResponse_storageClass,
getObjectAttributesResponse_versionId,
getObjectAttributesResponse_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 GetObjectAttributes = GetObjectAttributes'
{
GetObjectAttributes -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
GetObjectAttributes -> Maybe Int
maxParts :: Prelude.Maybe Prelude.Int,
GetObjectAttributes -> Maybe Int
partNumberMarker :: Prelude.Maybe Prelude.Int,
GetObjectAttributes -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
GetObjectAttributes -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
GetObjectAttributes -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
GetObjectAttributes -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
GetObjectAttributes -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
GetObjectAttributes -> BucketName
bucket :: BucketName,
GetObjectAttributes -> ObjectKey
key :: ObjectKey,
GetObjectAttributes -> [ObjectAttributes]
objectAttributes :: [ObjectAttributes]
}
deriving (GetObjectAttributes -> GetObjectAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetObjectAttributes -> GetObjectAttributes -> Bool
$c/= :: GetObjectAttributes -> GetObjectAttributes -> Bool
== :: GetObjectAttributes -> GetObjectAttributes -> Bool
$c== :: GetObjectAttributes -> GetObjectAttributes -> Bool
Prelude.Eq, Int -> GetObjectAttributes -> ShowS
[GetObjectAttributes] -> ShowS
GetObjectAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetObjectAttributes] -> ShowS
$cshowList :: [GetObjectAttributes] -> ShowS
show :: GetObjectAttributes -> String
$cshow :: GetObjectAttributes -> String
showsPrec :: Int -> GetObjectAttributes -> ShowS
$cshowsPrec :: Int -> GetObjectAttributes -> ShowS
Prelude.Show, forall x. Rep GetObjectAttributes x -> GetObjectAttributes
forall x. GetObjectAttributes -> Rep GetObjectAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetObjectAttributes x -> GetObjectAttributes
$cfrom :: forall x. GetObjectAttributes -> Rep GetObjectAttributes x
Prelude.Generic)
newGetObjectAttributes ::
BucketName ->
ObjectKey ->
GetObjectAttributes
newGetObjectAttributes :: BucketName -> ObjectKey -> GetObjectAttributes
newGetObjectAttributes BucketName
pBucket_ ObjectKey
pKey_ =
GetObjectAttributes'
{ $sel:expectedBucketOwner:GetObjectAttributes' :: Maybe Text
expectedBucketOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:maxParts:GetObjectAttributes' :: Maybe Int
maxParts = forall a. Maybe a
Prelude.Nothing,
$sel:partNumberMarker:GetObjectAttributes' :: Maybe Int
partNumberMarker = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:GetObjectAttributes' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKey:GetObjectAttributes' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:GetObjectAttributes' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:GetObjectAttributes' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:GetObjectAttributes' :: ObjectKey
key = ObjectKey
pKey_,
$sel:objectAttributes:GetObjectAttributes' :: [ObjectAttributes]
objectAttributes = forall a. Monoid a => a
Prelude.mempty
}
getObjectAttributes_expectedBucketOwner :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Text)
getObjectAttributes_expectedBucketOwner :: Lens' GetObjectAttributes (Maybe Text)
getObjectAttributes_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe Text
a -> GetObjectAttributes
s {$sel:expectedBucketOwner:GetObjectAttributes' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: GetObjectAttributes)
getObjectAttributes_maxParts :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Int)
getObjectAttributes_maxParts :: Lens' GetObjectAttributes (Maybe Int)
getObjectAttributes_maxParts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe Int
maxParts :: Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
maxParts} -> Maybe Int
maxParts) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe Int
a -> GetObjectAttributes
s {$sel:maxParts:GetObjectAttributes' :: Maybe Int
maxParts = Maybe Int
a} :: GetObjectAttributes)
getObjectAttributes_partNumberMarker :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Int)
getObjectAttributes_partNumberMarker :: Lens' GetObjectAttributes (Maybe Int)
getObjectAttributes_partNumberMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe Int
partNumberMarker :: Maybe Int
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
partNumberMarker} -> Maybe Int
partNumberMarker) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe Int
a -> GetObjectAttributes
s {$sel:partNumberMarker:GetObjectAttributes' :: Maybe Int
partNumberMarker = Maybe Int
a} :: GetObjectAttributes)
getObjectAttributes_requestPayer :: Lens.Lens' GetObjectAttributes (Prelude.Maybe RequestPayer)
getObjectAttributes_requestPayer :: Lens' GetObjectAttributes (Maybe RequestPayer)
getObjectAttributes_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe RequestPayer
a -> GetObjectAttributes
s {$sel:requestPayer:GetObjectAttributes' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: GetObjectAttributes)
getObjectAttributes_sSECustomerAlgorithm :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Text)
getObjectAttributes_sSECustomerAlgorithm :: Lens' GetObjectAttributes (Maybe Text)
getObjectAttributes_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe Text
a -> GetObjectAttributes
s {$sel:sSECustomerAlgorithm:GetObjectAttributes' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: GetObjectAttributes)
getObjectAttributes_sSECustomerKey :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Text)
getObjectAttributes_sSECustomerKey :: Lens' GetObjectAttributes (Maybe Text)
getObjectAttributes_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe (Sensitive Text)
a -> GetObjectAttributes
s {$sel:sSECustomerKey:GetObjectAttributes' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: GetObjectAttributes) 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
getObjectAttributes_sSECustomerKeyMD5 :: Lens.Lens' GetObjectAttributes (Prelude.Maybe Prelude.Text)
getObjectAttributes_sSECustomerKeyMD5 :: Lens' GetObjectAttributes (Maybe Text)
getObjectAttributes_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe Text
a -> GetObjectAttributes
s {$sel:sSECustomerKeyMD5:GetObjectAttributes' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: GetObjectAttributes)
getObjectAttributes_versionId :: Lens.Lens' GetObjectAttributes (Prelude.Maybe ObjectVersionId)
getObjectAttributes_versionId :: Lens' GetObjectAttributes (Maybe ObjectVersionId)
getObjectAttributes_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} Maybe ObjectVersionId
a -> GetObjectAttributes
s {$sel:versionId:GetObjectAttributes' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: GetObjectAttributes)
getObjectAttributes_bucket :: Lens.Lens' GetObjectAttributes BucketName
getObjectAttributes_bucket :: Lens' GetObjectAttributes BucketName
getObjectAttributes_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {BucketName
bucket :: BucketName
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
bucket} -> BucketName
bucket) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} BucketName
a -> GetObjectAttributes
s {$sel:bucket:GetObjectAttributes' :: BucketName
bucket = BucketName
a} :: GetObjectAttributes)
getObjectAttributes_key :: Lens.Lens' GetObjectAttributes ObjectKey
getObjectAttributes_key :: Lens' GetObjectAttributes ObjectKey
getObjectAttributes_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {ObjectKey
key :: ObjectKey
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
key} -> ObjectKey
key) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} ObjectKey
a -> GetObjectAttributes
s {$sel:key:GetObjectAttributes' :: ObjectKey
key = ObjectKey
a} :: GetObjectAttributes)
getObjectAttributes_objectAttributes :: Lens.Lens' GetObjectAttributes [ObjectAttributes]
getObjectAttributes_objectAttributes :: Lens' GetObjectAttributes [ObjectAttributes]
getObjectAttributes_objectAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributes' {[ObjectAttributes]
objectAttributes :: [ObjectAttributes]
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
objectAttributes} -> [ObjectAttributes]
objectAttributes) (\s :: GetObjectAttributes
s@GetObjectAttributes' {} [ObjectAttributes]
a -> GetObjectAttributes
s {$sel:objectAttributes:GetObjectAttributes' :: [ObjectAttributes]
objectAttributes = [ObjectAttributes]
a} :: GetObjectAttributes) 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
instance Core.AWSRequest GetObjectAttributes where
type
AWSResponse GetObjectAttributes =
GetObjectAttributesResponse
request :: (Service -> Service)
-> GetObjectAttributes -> Request GetObjectAttributes
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 GetObjectAttributes
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetObjectAttributes)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Checksum
-> Maybe Bool
-> Maybe ETag
-> Maybe RFC822
-> Maybe GetObjectAttributesParts
-> Maybe Integer
-> Maybe RequestCharged
-> Maybe StorageClass
-> Maybe ObjectVersionId
-> Int
-> GetObjectAttributesResponse
GetObjectAttributesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Checksum")
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.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ETag")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"Last-Modified")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ObjectParts")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ObjectSize")
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.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"StorageClass")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-version-id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetObjectAttributes where
hashWithSalt :: Int -> GetObjectAttributes -> Int
hashWithSalt Int
_salt GetObjectAttributes' {[ObjectAttributes]
Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectVersionId
Maybe RequestPayer
ObjectKey
BucketName
objectAttributes :: [ObjectAttributes]
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
partNumberMarker :: Maybe Int
maxParts :: Maybe Int
expectedBucketOwner :: Maybe Text
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxParts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
partNumberMarker
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
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [ObjectAttributes]
objectAttributes
instance Prelude.NFData GetObjectAttributes where
rnf :: GetObjectAttributes -> ()
rnf GetObjectAttributes' {[ObjectAttributes]
Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectVersionId
Maybe RequestPayer
ObjectKey
BucketName
objectAttributes :: [ObjectAttributes]
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
partNumberMarker :: Maybe Int
maxParts :: Maybe Int
expectedBucketOwner :: Maybe Text
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
..} =
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 Int
maxParts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
partNumberMarker
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ObjectAttributes]
objectAttributes
instance Data.ToHeaders GetObjectAttributes where
toHeaders :: GetObjectAttributes -> ResponseHeaders
toHeaders GetObjectAttributes' {[ObjectAttributes]
Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectVersionId
Maybe RequestPayer
ObjectKey
BucketName
objectAttributes :: [ObjectAttributes]
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
partNumberMarker :: Maybe Int
maxParts :: Maybe Int
expectedBucketOwner :: Maybe Text
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-max-parts" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Int
maxParts,
HeaderName
"x-amz-part-number-marker" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Int
partNumberMarker,
HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer,
HeaderName
"x-amz-server-side-encryption-customer-algorithm"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerAlgorithm,
HeaderName
"x-amz-server-side-encryption-customer-key"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSECustomerKey,
HeaderName
"x-amz-server-side-encryption-customer-key-MD5"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerKeyMD5,
HeaderName
"x-amz-object-attributes" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# [ObjectAttributes]
objectAttributes
]
instance Data.ToPath GetObjectAttributes where
toPath :: GetObjectAttributes -> ByteString
toPath GetObjectAttributes' {[ObjectAttributes]
Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectVersionId
Maybe RequestPayer
ObjectKey
BucketName
objectAttributes :: [ObjectAttributes]
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
partNumberMarker :: Maybe Int
maxParts :: Maybe Int
expectedBucketOwner :: Maybe Text
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]
instance Data.ToQuery GetObjectAttributes where
toQuery :: GetObjectAttributes -> QueryString
toQuery GetObjectAttributes' {[ObjectAttributes]
Maybe Int
Maybe Text
Maybe (Sensitive Text)
Maybe ObjectVersionId
Maybe RequestPayer
ObjectKey
BucketName
objectAttributes :: [ObjectAttributes]
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestPayer :: Maybe RequestPayer
partNumberMarker :: Maybe Int
maxParts :: Maybe Int
expectedBucketOwner :: Maybe Text
$sel:objectAttributes:GetObjectAttributes' :: GetObjectAttributes -> [ObjectAttributes]
$sel:key:GetObjectAttributes' :: GetObjectAttributes -> ObjectKey
$sel:bucket:GetObjectAttributes' :: GetObjectAttributes -> BucketName
$sel:versionId:GetObjectAttributes' :: GetObjectAttributes -> Maybe ObjectVersionId
$sel:sSECustomerKeyMD5:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:sSECustomerKey:GetObjectAttributes' :: GetObjectAttributes -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
$sel:requestPayer:GetObjectAttributes' :: GetObjectAttributes -> Maybe RequestPayer
$sel:partNumberMarker:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:maxParts:GetObjectAttributes' :: GetObjectAttributes -> Maybe Int
$sel:expectedBucketOwner:GetObjectAttributes' :: GetObjectAttributes -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"versionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ObjectVersionId
versionId, QueryString
"attributes"]
data GetObjectAttributesResponse = GetObjectAttributesResponse'
{
GetObjectAttributesResponse -> Maybe Checksum
checksum :: Prelude.Maybe Checksum,
GetObjectAttributesResponse -> Maybe Bool
deleteMarker :: Prelude.Maybe Prelude.Bool,
GetObjectAttributesResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
GetObjectAttributesResponse -> Maybe RFC822
lastModified :: Prelude.Maybe Data.RFC822,
GetObjectAttributesResponse -> Maybe GetObjectAttributesParts
objectParts :: Prelude.Maybe GetObjectAttributesParts,
GetObjectAttributesResponse -> Maybe Integer
objectSize :: Prelude.Maybe Prelude.Integer,
GetObjectAttributesResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
GetObjectAttributesResponse -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
GetObjectAttributesResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
GetObjectAttributesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetObjectAttributesResponse -> GetObjectAttributesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetObjectAttributesResponse -> GetObjectAttributesResponse -> Bool
$c/= :: GetObjectAttributesResponse -> GetObjectAttributesResponse -> Bool
== :: GetObjectAttributesResponse -> GetObjectAttributesResponse -> Bool
$c== :: GetObjectAttributesResponse -> GetObjectAttributesResponse -> Bool
Prelude.Eq, ReadPrec [GetObjectAttributesResponse]
ReadPrec GetObjectAttributesResponse
Int -> ReadS GetObjectAttributesResponse
ReadS [GetObjectAttributesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetObjectAttributesResponse]
$creadListPrec :: ReadPrec [GetObjectAttributesResponse]
readPrec :: ReadPrec GetObjectAttributesResponse
$creadPrec :: ReadPrec GetObjectAttributesResponse
readList :: ReadS [GetObjectAttributesResponse]
$creadList :: ReadS [GetObjectAttributesResponse]
readsPrec :: Int -> ReadS GetObjectAttributesResponse
$creadsPrec :: Int -> ReadS GetObjectAttributesResponse
Prelude.Read, Int -> GetObjectAttributesResponse -> ShowS
[GetObjectAttributesResponse] -> ShowS
GetObjectAttributesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetObjectAttributesResponse] -> ShowS
$cshowList :: [GetObjectAttributesResponse] -> ShowS
show :: GetObjectAttributesResponse -> String
$cshow :: GetObjectAttributesResponse -> String
showsPrec :: Int -> GetObjectAttributesResponse -> ShowS
$cshowsPrec :: Int -> GetObjectAttributesResponse -> ShowS
Prelude.Show, forall x.
Rep GetObjectAttributesResponse x -> GetObjectAttributesResponse
forall x.
GetObjectAttributesResponse -> Rep GetObjectAttributesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetObjectAttributesResponse x -> GetObjectAttributesResponse
$cfrom :: forall x.
GetObjectAttributesResponse -> Rep GetObjectAttributesResponse x
Prelude.Generic)
newGetObjectAttributesResponse ::
Prelude.Int ->
GetObjectAttributesResponse
newGetObjectAttributesResponse :: Int -> GetObjectAttributesResponse
newGetObjectAttributesResponse Int
pHttpStatus_ =
GetObjectAttributesResponse'
{ $sel:checksum:GetObjectAttributesResponse' :: Maybe Checksum
checksum =
forall a. Maybe a
Prelude.Nothing,
$sel:deleteMarker:GetObjectAttributesResponse' :: Maybe Bool
deleteMarker = forall a. Maybe a
Prelude.Nothing,
$sel:eTag:GetObjectAttributesResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
$sel:lastModified:GetObjectAttributesResponse' :: Maybe RFC822
lastModified = forall a. Maybe a
Prelude.Nothing,
$sel:objectParts:GetObjectAttributesResponse' :: Maybe GetObjectAttributesParts
objectParts = forall a. Maybe a
Prelude.Nothing,
$sel:objectSize:GetObjectAttributesResponse' :: Maybe Integer
objectSize = forall a. Maybe a
Prelude.Nothing,
$sel:requestCharged:GetObjectAttributesResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
$sel:storageClass:GetObjectAttributesResponse' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:GetObjectAttributesResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetObjectAttributesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getObjectAttributesResponse_checksum :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe Checksum)
getObjectAttributesResponse_checksum :: Lens' GetObjectAttributesResponse (Maybe Checksum)
getObjectAttributesResponse_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe Checksum
checksum :: Maybe Checksum
$sel:checksum:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Checksum
checksum} -> Maybe Checksum
checksum) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe Checksum
a -> GetObjectAttributesResponse
s {$sel:checksum:GetObjectAttributesResponse' :: Maybe Checksum
checksum = Maybe Checksum
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_deleteMarker :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe Prelude.Bool)
getObjectAttributesResponse_deleteMarker :: Lens' GetObjectAttributesResponse (Maybe Bool)
getObjectAttributesResponse_deleteMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe Bool
deleteMarker :: Maybe Bool
$sel:deleteMarker:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Bool
deleteMarker} -> Maybe Bool
deleteMarker) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe Bool
a -> GetObjectAttributesResponse
s {$sel:deleteMarker:GetObjectAttributesResponse' :: Maybe Bool
deleteMarker = Maybe Bool
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_eTag :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe ETag)
getObjectAttributesResponse_eTag :: Lens' GetObjectAttributesResponse (Maybe ETag)
getObjectAttributesResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe ETag
a -> GetObjectAttributesResponse
s {$sel:eTag:GetObjectAttributesResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_lastModified :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe Prelude.UTCTime)
getObjectAttributesResponse_lastModified :: Lens' GetObjectAttributesResponse (Maybe UTCTime)
getObjectAttributesResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe RFC822
lastModified :: Maybe RFC822
$sel:lastModified:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe RFC822
lastModified} -> Maybe RFC822
lastModified) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe RFC822
a -> GetObjectAttributesResponse
s {$sel:lastModified:GetObjectAttributesResponse' :: Maybe RFC822
lastModified = Maybe RFC822
a} :: GetObjectAttributesResponse) 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
getObjectAttributesResponse_objectParts :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe GetObjectAttributesParts)
getObjectAttributesResponse_objectParts :: Lens' GetObjectAttributesResponse (Maybe GetObjectAttributesParts)
getObjectAttributesResponse_objectParts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe GetObjectAttributesParts
objectParts :: Maybe GetObjectAttributesParts
$sel:objectParts:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe GetObjectAttributesParts
objectParts} -> Maybe GetObjectAttributesParts
objectParts) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe GetObjectAttributesParts
a -> GetObjectAttributesResponse
s {$sel:objectParts:GetObjectAttributesResponse' :: Maybe GetObjectAttributesParts
objectParts = Maybe GetObjectAttributesParts
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_objectSize :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe Prelude.Integer)
getObjectAttributesResponse_objectSize :: Lens' GetObjectAttributesResponse (Maybe Integer)
getObjectAttributesResponse_objectSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe Integer
objectSize :: Maybe Integer
$sel:objectSize:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Integer
objectSize} -> Maybe Integer
objectSize) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe Integer
a -> GetObjectAttributesResponse
s {$sel:objectSize:GetObjectAttributesResponse' :: Maybe Integer
objectSize = Maybe Integer
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_requestCharged :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe RequestCharged)
getObjectAttributesResponse_requestCharged :: Lens' GetObjectAttributesResponse (Maybe RequestCharged)
getObjectAttributesResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe RequestCharged
a -> GetObjectAttributesResponse
s {$sel:requestCharged:GetObjectAttributesResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_storageClass :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe StorageClass)
getObjectAttributesResponse_storageClass :: Lens' GetObjectAttributesResponse (Maybe StorageClass)
getObjectAttributesResponse_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe StorageClass
a -> GetObjectAttributesResponse
s {$sel:storageClass:GetObjectAttributesResponse' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_versionId :: Lens.Lens' GetObjectAttributesResponse (Prelude.Maybe ObjectVersionId)
getObjectAttributesResponse_versionId :: Lens' GetObjectAttributesResponse (Maybe ObjectVersionId)
getObjectAttributesResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Maybe ObjectVersionId
a -> GetObjectAttributesResponse
s {$sel:versionId:GetObjectAttributesResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: GetObjectAttributesResponse)
getObjectAttributesResponse_httpStatus :: Lens.Lens' GetObjectAttributesResponse Prelude.Int
getObjectAttributesResponse_httpStatus :: Lens' GetObjectAttributesResponse Int
getObjectAttributesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetObjectAttributesResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetObjectAttributesResponse
s@GetObjectAttributesResponse' {} Int
a -> GetObjectAttributesResponse
s {$sel:httpStatus:GetObjectAttributesResponse' :: Int
httpStatus = Int
a} :: GetObjectAttributesResponse)
instance Prelude.NFData GetObjectAttributesResponse where
rnf :: GetObjectAttributesResponse -> ()
rnf GetObjectAttributesResponse' {Int
Maybe Bool
Maybe Integer
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe Checksum
Maybe GetObjectAttributesParts
Maybe RequestCharged
Maybe StorageClass
httpStatus :: Int
versionId :: Maybe ObjectVersionId
storageClass :: Maybe StorageClass
requestCharged :: Maybe RequestCharged
objectSize :: Maybe Integer
objectParts :: Maybe GetObjectAttributesParts
lastModified :: Maybe RFC822
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
checksum :: Maybe Checksum
$sel:httpStatus:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Int
$sel:versionId:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe ObjectVersionId
$sel:storageClass:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe StorageClass
$sel:requestCharged:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe RequestCharged
$sel:objectSize:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Integer
$sel:objectParts:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe GetObjectAttributesParts
$sel:lastModified:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe RFC822
$sel:eTag:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe ETag
$sel:deleteMarker:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Bool
$sel:checksum:GetObjectAttributesResponse' :: GetObjectAttributesResponse -> Maybe Checksum
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Checksum
checksum
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 RFC822
lastModified
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe GetObjectAttributesParts
objectParts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
objectSize
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 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 Int
httpStatus