{-# 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.Glacier.ListParts
(
ListParts (..),
newListParts,
listParts_limit,
listParts_marker,
listParts_accountId,
listParts_vaultName,
listParts_uploadId,
ListPartsResponse (..),
newListPartsResponse,
listPartsResponse_archiveDescription,
listPartsResponse_creationDate,
listPartsResponse_marker,
listPartsResponse_multipartUploadId,
listPartsResponse_partSizeInBytes,
listPartsResponse_parts,
listPartsResponse_vaultARN,
listPartsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Glacier.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListParts = ListParts'
{
ListParts -> Maybe Text
limit :: Prelude.Maybe Prelude.Text,
ListParts -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListParts -> Text
accountId :: Prelude.Text,
ListParts -> Text
vaultName :: Prelude.Text,
ListParts -> Text
uploadId :: Prelude.Text
}
deriving (ListParts -> ListParts -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListParts -> ListParts -> Bool
$c/= :: ListParts -> ListParts -> Bool
== :: ListParts -> ListParts -> Bool
$c== :: ListParts -> ListParts -> Bool
Prelude.Eq, ReadPrec [ListParts]
ReadPrec ListParts
Int -> ReadS ListParts
ReadS [ListParts]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListParts]
$creadListPrec :: ReadPrec [ListParts]
readPrec :: ReadPrec ListParts
$creadPrec :: ReadPrec ListParts
readList :: ReadS [ListParts]
$creadList :: ReadS [ListParts]
readsPrec :: Int -> ReadS ListParts
$creadsPrec :: Int -> ReadS ListParts
Prelude.Read, Int -> ListParts -> ShowS
[ListParts] -> ShowS
ListParts -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListParts] -> ShowS
$cshowList :: [ListParts] -> ShowS
show :: ListParts -> String
$cshow :: ListParts -> String
showsPrec :: Int -> ListParts -> ShowS
$cshowsPrec :: Int -> ListParts -> ShowS
Prelude.Show, forall x. Rep ListParts x -> ListParts
forall x. ListParts -> Rep ListParts x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListParts x -> ListParts
$cfrom :: forall x. ListParts -> Rep ListParts x
Prelude.Generic)
newListParts ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ListParts
newListParts :: Text -> Text -> Text -> ListParts
newListParts Text
pAccountId_ Text
pVaultName_ Text
pUploadId_ =
ListParts'
{ $sel:limit:ListParts' :: Maybe Text
limit = forall a. Maybe a
Prelude.Nothing,
$sel:marker:ListParts' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:accountId:ListParts' :: Text
accountId = Text
pAccountId_,
$sel:vaultName:ListParts' :: Text
vaultName = Text
pVaultName_,
$sel:uploadId:ListParts' :: Text
uploadId = Text
pUploadId_
}
listParts_limit :: Lens.Lens' ListParts (Prelude.Maybe Prelude.Text)
listParts_limit :: Lens' ListParts (Maybe Text)
listParts_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListParts' {Maybe Text
limit :: Maybe Text
$sel:limit:ListParts' :: ListParts -> Maybe Text
limit} -> Maybe Text
limit) (\s :: ListParts
s@ListParts' {} Maybe Text
a -> ListParts
s {$sel:limit:ListParts' :: Maybe Text
limit = Maybe Text
a} :: ListParts)
listParts_marker :: Lens.Lens' ListParts (Prelude.Maybe Prelude.Text)
listParts_marker :: Lens' ListParts (Maybe Text)
listParts_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListParts' {Maybe Text
marker :: Maybe Text
$sel:marker:ListParts' :: ListParts -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListParts
s@ListParts' {} Maybe Text
a -> ListParts
s {$sel:marker:ListParts' :: Maybe Text
marker = Maybe Text
a} :: ListParts)
listParts_accountId :: Lens.Lens' ListParts Prelude.Text
listParts_accountId :: Lens' ListParts Text
listParts_accountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListParts' {Text
accountId :: Text
$sel:accountId:ListParts' :: ListParts -> Text
accountId} -> Text
accountId) (\s :: ListParts
s@ListParts' {} Text
a -> ListParts
s {$sel:accountId:ListParts' :: Text
accountId = Text
a} :: ListParts)
listParts_vaultName :: Lens.Lens' ListParts Prelude.Text
listParts_vaultName :: Lens' ListParts Text
listParts_vaultName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListParts' {Text
vaultName :: Text
$sel:vaultName:ListParts' :: ListParts -> Text
vaultName} -> Text
vaultName) (\s :: ListParts
s@ListParts' {} Text
a -> ListParts
s {$sel:vaultName:ListParts' :: Text
vaultName = Text
a} :: ListParts)
listParts_uploadId :: Lens.Lens' ListParts Prelude.Text
listParts_uploadId :: Lens' ListParts Text
listParts_uploadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListParts' {Text
uploadId :: Text
$sel:uploadId:ListParts' :: ListParts -> Text
uploadId} -> Text
uploadId) (\s :: ListParts
s@ListParts' {} Text
a -> ListParts
s {$sel:uploadId:ListParts' :: Text
uploadId = Text
a} :: ListParts)
instance Core.AWSPager ListParts where
page :: ListParts -> AWSResponse ListParts -> Maybe ListParts
page ListParts
rq AWSResponse ListParts
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListParts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPartsResponse (Maybe Text)
listPartsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListParts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPartsResponse (Maybe [PartListElement])
listPartsResponse_parts
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListParts
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListParts (Maybe Text)
listParts_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListParts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPartsResponse (Maybe Text)
listPartsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListParts where
type AWSResponse ListParts = ListPartsResponse
request :: (Service -> Service) -> ListParts -> Request ListParts
request Service -> Service
overrides =
forall a. ByteString -> Request a -> Request a
Request.glacierVersionHeader (Service -> ByteString
Core.version Service
defaultService)
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 ListParts
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListParts)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Integer
-> Maybe [PartListElement]
-> Maybe Text
-> Int
-> ListPartsResponse
ListPartsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ArchiveDescription")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CreationDate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Marker")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"MultipartUploadId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PartSizeInBytes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Parts" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"VaultARN")
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 ListParts where
hashWithSalt :: Int -> ListParts -> Int
hashWithSalt Int
_salt ListParts' {Maybe Text
Text
uploadId :: Text
vaultName :: Text
accountId :: Text
marker :: Maybe Text
limit :: Maybe Text
$sel:uploadId:ListParts' :: ListParts -> Text
$sel:vaultName:ListParts' :: ListParts -> Text
$sel:accountId:ListParts' :: ListParts -> Text
$sel:marker:ListParts' :: ListParts -> Maybe Text
$sel:limit:ListParts' :: ListParts -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
accountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
vaultName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
uploadId
instance Prelude.NFData ListParts where
rnf :: ListParts -> ()
rnf ListParts' {Maybe Text
Text
uploadId :: Text
vaultName :: Text
accountId :: Text
marker :: Maybe Text
limit :: Maybe Text
$sel:uploadId:ListParts' :: ListParts -> Text
$sel:vaultName:ListParts' :: ListParts -> Text
$sel:accountId:ListParts' :: ListParts -> Text
$sel:marker:ListParts' :: ListParts -> Maybe Text
$sel:limit:ListParts' :: ListParts -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
accountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
vaultName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
uploadId
instance Data.ToHeaders ListParts where
toHeaders :: ListParts -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListParts where
toPath :: ListParts -> ByteString
toPath ListParts' {Maybe Text
Text
uploadId :: Text
vaultName :: Text
accountId :: Text
marker :: Maybe Text
limit :: Maybe Text
$sel:uploadId:ListParts' :: ListParts -> Text
$sel:vaultName:ListParts' :: ListParts -> Text
$sel:accountId:ListParts' :: ListParts -> Text
$sel:marker:ListParts' :: ListParts -> Maybe Text
$sel:limit:ListParts' :: ListParts -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
accountId,
ByteString
"/vaults/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
vaultName,
ByteString
"/multipart-uploads/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
uploadId
]
instance Data.ToQuery ListParts where
toQuery :: ListParts -> QueryString
toQuery ListParts' {Maybe Text
Text
uploadId :: Text
vaultName :: Text
accountId :: Text
marker :: Maybe Text
limit :: Maybe Text
$sel:uploadId:ListParts' :: ListParts -> Text
$sel:vaultName:ListParts' :: ListParts -> Text
$sel:accountId:ListParts' :: ListParts -> Text
$sel:marker:ListParts' :: ListParts -> Maybe Text
$sel:limit:ListParts' :: ListParts -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"limit" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
limit, ByteString
"marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker]
data ListPartsResponse = ListPartsResponse'
{
ListPartsResponse -> Maybe Text
archiveDescription :: Prelude.Maybe Prelude.Text,
ListPartsResponse -> Maybe Text
creationDate :: Prelude.Maybe Prelude.Text,
ListPartsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListPartsResponse -> Maybe Text
multipartUploadId :: Prelude.Maybe Prelude.Text,
ListPartsResponse -> Maybe Integer
partSizeInBytes :: Prelude.Maybe Prelude.Integer,
ListPartsResponse -> Maybe [PartListElement]
parts :: Prelude.Maybe [PartListElement],
ListPartsResponse -> Maybe Text
vaultARN :: Prelude.Maybe Prelude.Text,
ListPartsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListPartsResponse -> ListPartsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListPartsResponse -> ListPartsResponse -> Bool
$c/= :: ListPartsResponse -> ListPartsResponse -> Bool
== :: ListPartsResponse -> ListPartsResponse -> Bool
$c== :: ListPartsResponse -> ListPartsResponse -> Bool
Prelude.Eq, ReadPrec [ListPartsResponse]
ReadPrec ListPartsResponse
Int -> ReadS ListPartsResponse
ReadS [ListPartsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListPartsResponse]
$creadListPrec :: ReadPrec [ListPartsResponse]
readPrec :: ReadPrec ListPartsResponse
$creadPrec :: ReadPrec ListPartsResponse
readList :: ReadS [ListPartsResponse]
$creadList :: ReadS [ListPartsResponse]
readsPrec :: Int -> ReadS ListPartsResponse
$creadsPrec :: Int -> ReadS ListPartsResponse
Prelude.Read, Int -> ListPartsResponse -> ShowS
[ListPartsResponse] -> ShowS
ListPartsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListPartsResponse] -> ShowS
$cshowList :: [ListPartsResponse] -> ShowS
show :: ListPartsResponse -> String
$cshow :: ListPartsResponse -> String
showsPrec :: Int -> ListPartsResponse -> ShowS
$cshowsPrec :: Int -> ListPartsResponse -> ShowS
Prelude.Show, forall x. Rep ListPartsResponse x -> ListPartsResponse
forall x. ListPartsResponse -> Rep ListPartsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListPartsResponse x -> ListPartsResponse
$cfrom :: forall x. ListPartsResponse -> Rep ListPartsResponse x
Prelude.Generic)
newListPartsResponse ::
Prelude.Int ->
ListPartsResponse
newListPartsResponse :: Int -> ListPartsResponse
newListPartsResponse Int
pHttpStatus_ =
ListPartsResponse'
{ $sel:archiveDescription:ListPartsResponse' :: Maybe Text
archiveDescription =
forall a. Maybe a
Prelude.Nothing,
$sel:creationDate:ListPartsResponse' :: Maybe Text
creationDate = forall a. Maybe a
Prelude.Nothing,
$sel:marker:ListPartsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:multipartUploadId:ListPartsResponse' :: Maybe Text
multipartUploadId = forall a. Maybe a
Prelude.Nothing,
$sel:partSizeInBytes:ListPartsResponse' :: Maybe Integer
partSizeInBytes = forall a. Maybe a
Prelude.Nothing,
$sel:parts:ListPartsResponse' :: Maybe [PartListElement]
parts = forall a. Maybe a
Prelude.Nothing,
$sel:vaultARN:ListPartsResponse' :: Maybe Text
vaultARN = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListPartsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listPartsResponse_archiveDescription :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Text)
listPartsResponse_archiveDescription :: Lens' ListPartsResponse (Maybe Text)
listPartsResponse_archiveDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Text
archiveDescription :: Maybe Text
$sel:archiveDescription:ListPartsResponse' :: ListPartsResponse -> Maybe Text
archiveDescription} -> Maybe Text
archiveDescription) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Text
a -> ListPartsResponse
s {$sel:archiveDescription:ListPartsResponse' :: Maybe Text
archiveDescription = Maybe Text
a} :: ListPartsResponse)
listPartsResponse_creationDate :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Text)
listPartsResponse_creationDate :: Lens' ListPartsResponse (Maybe Text)
listPartsResponse_creationDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Text
creationDate :: Maybe Text
$sel:creationDate:ListPartsResponse' :: ListPartsResponse -> Maybe Text
creationDate} -> Maybe Text
creationDate) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Text
a -> ListPartsResponse
s {$sel:creationDate:ListPartsResponse' :: Maybe Text
creationDate = Maybe Text
a} :: ListPartsResponse)
listPartsResponse_marker :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Text)
listPartsResponse_marker :: Lens' ListPartsResponse (Maybe Text)
listPartsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:ListPartsResponse' :: ListPartsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Text
a -> ListPartsResponse
s {$sel:marker:ListPartsResponse' :: Maybe Text
marker = Maybe Text
a} :: ListPartsResponse)
listPartsResponse_multipartUploadId :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Text)
listPartsResponse_multipartUploadId :: Lens' ListPartsResponse (Maybe Text)
listPartsResponse_multipartUploadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Text
multipartUploadId :: Maybe Text
$sel:multipartUploadId:ListPartsResponse' :: ListPartsResponse -> Maybe Text
multipartUploadId} -> Maybe Text
multipartUploadId) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Text
a -> ListPartsResponse
s {$sel:multipartUploadId:ListPartsResponse' :: Maybe Text
multipartUploadId = Maybe Text
a} :: ListPartsResponse)
listPartsResponse_partSizeInBytes :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Integer)
listPartsResponse_partSizeInBytes :: Lens' ListPartsResponse (Maybe Integer)
listPartsResponse_partSizeInBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Integer
partSizeInBytes :: Maybe Integer
$sel:partSizeInBytes:ListPartsResponse' :: ListPartsResponse -> Maybe Integer
partSizeInBytes} -> Maybe Integer
partSizeInBytes) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Integer
a -> ListPartsResponse
s {$sel:partSizeInBytes:ListPartsResponse' :: Maybe Integer
partSizeInBytes = Maybe Integer
a} :: ListPartsResponse)
listPartsResponse_parts :: Lens.Lens' ListPartsResponse (Prelude.Maybe [PartListElement])
listPartsResponse_parts :: Lens' ListPartsResponse (Maybe [PartListElement])
listPartsResponse_parts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe [PartListElement]
parts :: Maybe [PartListElement]
$sel:parts:ListPartsResponse' :: ListPartsResponse -> Maybe [PartListElement]
parts} -> Maybe [PartListElement]
parts) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe [PartListElement]
a -> ListPartsResponse
s {$sel:parts:ListPartsResponse' :: Maybe [PartListElement]
parts = Maybe [PartListElement]
a} :: ListPartsResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listPartsResponse_vaultARN :: Lens.Lens' ListPartsResponse (Prelude.Maybe Prelude.Text)
listPartsResponse_vaultARN :: Lens' ListPartsResponse (Maybe Text)
listPartsResponse_vaultARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Maybe Text
vaultARN :: Maybe Text
$sel:vaultARN:ListPartsResponse' :: ListPartsResponse -> Maybe Text
vaultARN} -> Maybe Text
vaultARN) (\s :: ListPartsResponse
s@ListPartsResponse' {} Maybe Text
a -> ListPartsResponse
s {$sel:vaultARN:ListPartsResponse' :: Maybe Text
vaultARN = Maybe Text
a} :: ListPartsResponse)
listPartsResponse_httpStatus :: Lens.Lens' ListPartsResponse Prelude.Int
listPartsResponse_httpStatus :: Lens' ListPartsResponse Int
listPartsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPartsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListPartsResponse' :: ListPartsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListPartsResponse
s@ListPartsResponse' {} Int
a -> ListPartsResponse
s {$sel:httpStatus:ListPartsResponse' :: Int
httpStatus = Int
a} :: ListPartsResponse)
instance Prelude.NFData ListPartsResponse where
rnf :: ListPartsResponse -> ()
rnf ListPartsResponse' {Int
Maybe Integer
Maybe [PartListElement]
Maybe Text
httpStatus :: Int
vaultARN :: Maybe Text
parts :: Maybe [PartListElement]
partSizeInBytes :: Maybe Integer
multipartUploadId :: Maybe Text
marker :: Maybe Text
creationDate :: Maybe Text
archiveDescription :: Maybe Text
$sel:httpStatus:ListPartsResponse' :: ListPartsResponse -> Int
$sel:vaultARN:ListPartsResponse' :: ListPartsResponse -> Maybe Text
$sel:parts:ListPartsResponse' :: ListPartsResponse -> Maybe [PartListElement]
$sel:partSizeInBytes:ListPartsResponse' :: ListPartsResponse -> Maybe Integer
$sel:multipartUploadId:ListPartsResponse' :: ListPartsResponse -> Maybe Text
$sel:marker:ListPartsResponse' :: ListPartsResponse -> Maybe Text
$sel:creationDate:ListPartsResponse' :: ListPartsResponse -> Maybe Text
$sel:archiveDescription:ListPartsResponse' :: ListPartsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
archiveDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
creationDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
multipartUploadId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
partSizeInBytes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PartListElement]
parts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vaultARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus