{-# 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.ListMultipartUploads
(
ListMultipartUploads (..),
newListMultipartUploads,
listMultipartUploads_delimiter,
listMultipartUploads_encodingType,
listMultipartUploads_expectedBucketOwner,
listMultipartUploads_keyMarker,
listMultipartUploads_maxUploads,
listMultipartUploads_prefix,
listMultipartUploads_uploadIdMarker,
listMultipartUploads_bucket,
ListMultipartUploadsResponse (..),
newListMultipartUploadsResponse,
listMultipartUploadsResponse_bucket,
listMultipartUploadsResponse_commonPrefixes,
listMultipartUploadsResponse_delimiter,
listMultipartUploadsResponse_encodingType,
listMultipartUploadsResponse_isTruncated,
listMultipartUploadsResponse_keyMarker,
listMultipartUploadsResponse_maxUploads,
listMultipartUploadsResponse_nextKeyMarker,
listMultipartUploadsResponse_nextUploadIdMarker,
listMultipartUploadsResponse_prefix,
listMultipartUploadsResponse_uploadIdMarker,
listMultipartUploadsResponse_uploads,
listMultipartUploadsResponse_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 ListMultipartUploads = ListMultipartUploads'
{
ListMultipartUploads -> Maybe Delimiter
delimiter :: Prelude.Maybe Delimiter,
ListMultipartUploads -> Maybe EncodingType
encodingType :: Prelude.Maybe EncodingType,
ListMultipartUploads -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
ListMultipartUploads -> Maybe Text
keyMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploads -> Maybe Int
maxUploads :: Prelude.Maybe Prelude.Int,
ListMultipartUploads -> Maybe Text
prefix :: Prelude.Maybe Prelude.Text,
ListMultipartUploads -> Maybe Text
uploadIdMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploads -> BucketName
bucket :: BucketName
}
deriving (ListMultipartUploads -> ListMultipartUploads -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMultipartUploads -> ListMultipartUploads -> Bool
$c/= :: ListMultipartUploads -> ListMultipartUploads -> Bool
== :: ListMultipartUploads -> ListMultipartUploads -> Bool
$c== :: ListMultipartUploads -> ListMultipartUploads -> Bool
Prelude.Eq, ReadPrec [ListMultipartUploads]
ReadPrec ListMultipartUploads
Int -> ReadS ListMultipartUploads
ReadS [ListMultipartUploads]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMultipartUploads]
$creadListPrec :: ReadPrec [ListMultipartUploads]
readPrec :: ReadPrec ListMultipartUploads
$creadPrec :: ReadPrec ListMultipartUploads
readList :: ReadS [ListMultipartUploads]
$creadList :: ReadS [ListMultipartUploads]
readsPrec :: Int -> ReadS ListMultipartUploads
$creadsPrec :: Int -> ReadS ListMultipartUploads
Prelude.Read, Int -> ListMultipartUploads -> ShowS
[ListMultipartUploads] -> ShowS
ListMultipartUploads -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMultipartUploads] -> ShowS
$cshowList :: [ListMultipartUploads] -> ShowS
show :: ListMultipartUploads -> String
$cshow :: ListMultipartUploads -> String
showsPrec :: Int -> ListMultipartUploads -> ShowS
$cshowsPrec :: Int -> ListMultipartUploads -> ShowS
Prelude.Show, forall x. Rep ListMultipartUploads x -> ListMultipartUploads
forall x. ListMultipartUploads -> Rep ListMultipartUploads x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListMultipartUploads x -> ListMultipartUploads
$cfrom :: forall x. ListMultipartUploads -> Rep ListMultipartUploads x
Prelude.Generic)
newListMultipartUploads ::
BucketName ->
ListMultipartUploads
newListMultipartUploads :: BucketName -> ListMultipartUploads
newListMultipartUploads BucketName
pBucket_ =
ListMultipartUploads'
{ $sel:delimiter:ListMultipartUploads' :: Maybe Delimiter
delimiter = forall a. Maybe a
Prelude.Nothing,
$sel:encodingType:ListMultipartUploads' :: Maybe EncodingType
encodingType = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:ListMultipartUploads' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:keyMarker:ListMultipartUploads' :: Maybe Text
keyMarker = forall a. Maybe a
Prelude.Nothing,
$sel:maxUploads:ListMultipartUploads' :: Maybe Int
maxUploads = forall a. Maybe a
Prelude.Nothing,
$sel:prefix:ListMultipartUploads' :: Maybe Text
prefix = forall a. Maybe a
Prelude.Nothing,
$sel:uploadIdMarker:ListMultipartUploads' :: Maybe Text
uploadIdMarker = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:ListMultipartUploads' :: BucketName
bucket = BucketName
pBucket_
}
listMultipartUploads_delimiter :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Delimiter)
listMultipartUploads_delimiter :: Lens' ListMultipartUploads (Maybe Delimiter)
listMultipartUploads_delimiter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Delimiter
delimiter :: Maybe Delimiter
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
delimiter} -> Maybe Delimiter
delimiter) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Delimiter
a -> ListMultipartUploads
s {$sel:delimiter:ListMultipartUploads' :: Maybe Delimiter
delimiter = Maybe Delimiter
a} :: ListMultipartUploads)
listMultipartUploads_encodingType :: Lens.Lens' ListMultipartUploads (Prelude.Maybe EncodingType)
listMultipartUploads_encodingType :: Lens' ListMultipartUploads (Maybe EncodingType)
listMultipartUploads_encodingType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe EncodingType
encodingType :: Maybe EncodingType
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
encodingType} -> Maybe EncodingType
encodingType) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe EncodingType
a -> ListMultipartUploads
s {$sel:encodingType:ListMultipartUploads' :: Maybe EncodingType
encodingType = Maybe EncodingType
a} :: ListMultipartUploads)
listMultipartUploads_expectedBucketOwner :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Prelude.Text)
listMultipartUploads_expectedBucketOwner :: Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Text
a -> ListMultipartUploads
s {$sel:expectedBucketOwner:ListMultipartUploads' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: ListMultipartUploads)
listMultipartUploads_keyMarker :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Prelude.Text)
listMultipartUploads_keyMarker :: Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_keyMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Text
keyMarker :: Maybe Text
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
keyMarker} -> Maybe Text
keyMarker) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Text
a -> ListMultipartUploads
s {$sel:keyMarker:ListMultipartUploads' :: Maybe Text
keyMarker = Maybe Text
a} :: ListMultipartUploads)
listMultipartUploads_maxUploads :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Prelude.Int)
listMultipartUploads_maxUploads :: Lens' ListMultipartUploads (Maybe Int)
listMultipartUploads_maxUploads = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Int
maxUploads :: Maybe Int
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
maxUploads} -> Maybe Int
maxUploads) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Int
a -> ListMultipartUploads
s {$sel:maxUploads:ListMultipartUploads' :: Maybe Int
maxUploads = Maybe Int
a} :: ListMultipartUploads)
listMultipartUploads_prefix :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Prelude.Text)
listMultipartUploads_prefix :: Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_prefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Text
prefix :: Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
prefix} -> Maybe Text
prefix) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Text
a -> ListMultipartUploads
s {$sel:prefix:ListMultipartUploads' :: Maybe Text
prefix = Maybe Text
a} :: ListMultipartUploads)
listMultipartUploads_uploadIdMarker :: Lens.Lens' ListMultipartUploads (Prelude.Maybe Prelude.Text)
listMultipartUploads_uploadIdMarker :: Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_uploadIdMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {Maybe Text
uploadIdMarker :: Maybe Text
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
uploadIdMarker} -> Maybe Text
uploadIdMarker) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} Maybe Text
a -> ListMultipartUploads
s {$sel:uploadIdMarker:ListMultipartUploads' :: Maybe Text
uploadIdMarker = Maybe Text
a} :: ListMultipartUploads)
listMultipartUploads_bucket :: Lens.Lens' ListMultipartUploads BucketName
listMultipartUploads_bucket :: Lens' ListMultipartUploads BucketName
listMultipartUploads_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploads' {BucketName
bucket :: BucketName
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
bucket} -> BucketName
bucket) (\s :: ListMultipartUploads
s@ListMultipartUploads' {} BucketName
a -> ListMultipartUploads
s {$sel:bucket:ListMultipartUploads' :: BucketName
bucket = BucketName
a} :: ListMultipartUploads)
instance Core.AWSPager ListMultipartUploads where
page :: ListMultipartUploads
-> AWSResponse ListMultipartUploads -> Maybe ListMultipartUploads
page ListMultipartUploads
rq AWSResponse ListMultipartUploads
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListMultipartUploads
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMultipartUploadsResponse (Maybe Bool)
listMultipartUploadsResponse_isTruncated
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. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListMultipartUploads
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextKeyMarker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
Bool -> Bool -> Bool
Prelude.&& forall a. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListMultipartUploads
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextUploadIdMarker
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.$ ListMultipartUploads
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_keyMarker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListMultipartUploads
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextKeyMarker
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 b. a -> (a -> b) -> b
Prelude.& Lens' ListMultipartUploads (Maybe Text)
listMultipartUploads_uploadIdMarker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListMultipartUploads
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextUploadIdMarker
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 ListMultipartUploads where
type
AWSResponse ListMultipartUploads =
ListMultipartUploadsResponse
request :: (Service -> Service)
-> ListMultipartUploads -> Request ListMultipartUploads
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 ListMultipartUploads
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListMultipartUploads)))
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 BucketName
-> Maybe [CommonPrefix]
-> Maybe Delimiter
-> Maybe EncodingType
-> Maybe Bool
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [MultipartUpload]
-> Int
-> ListMultipartUploadsResponse
ListMultipartUploadsResponse'
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
"Bucket")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"CommonPrefixes") [Node]
x)
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
"Delimiter")
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
"EncodingType")
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
"IsTruncated")
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
"KeyMarker")
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
"MaxUploads")
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
"NextKeyMarker")
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
"NextUploadIdMarker")
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
"Prefix")
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
"UploadIdMarker")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"Upload") [Node]
x)
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 ListMultipartUploads where
hashWithSalt :: Int -> ListMultipartUploads -> Int
hashWithSalt Int
_salt ListMultipartUploads' {Maybe Delimiter
Maybe Int
Maybe Text
Maybe EncodingType
BucketName
bucket :: BucketName
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
expectedBucketOwner :: Maybe Text
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Delimiter
delimiter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EncodingType
encodingType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
keyMarker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxUploads
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
prefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
uploadIdMarker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
instance Prelude.NFData ListMultipartUploads where
rnf :: ListMultipartUploads -> ()
rnf ListMultipartUploads' {Maybe Delimiter
Maybe Int
Maybe Text
Maybe EncodingType
BucketName
bucket :: BucketName
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
expectedBucketOwner :: Maybe Text
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Delimiter
delimiter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EncodingType
encodingType
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
keyMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxUploads
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
prefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
uploadIdMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
instance Data.ToHeaders ListMultipartUploads where
toHeaders :: ListMultipartUploads -> ResponseHeaders
toHeaders ListMultipartUploads' {Maybe Delimiter
Maybe Int
Maybe Text
Maybe EncodingType
BucketName
bucket :: BucketName
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
expectedBucketOwner :: Maybe Text
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
..} =
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
]
instance Data.ToPath ListMultipartUploads where
toPath :: ListMultipartUploads -> ByteString
toPath ListMultipartUploads' {Maybe Delimiter
Maybe Int
Maybe Text
Maybe EncodingType
BucketName
bucket :: BucketName
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
expectedBucketOwner :: Maybe Text
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance Data.ToQuery ListMultipartUploads where
toQuery :: ListMultipartUploads -> QueryString
toQuery ListMultipartUploads' {Maybe Delimiter
Maybe Int
Maybe Text
Maybe EncodingType
BucketName
bucket :: BucketName
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
expectedBucketOwner :: Maybe Text
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
$sel:bucket:ListMultipartUploads' :: ListMultipartUploads -> BucketName
$sel:uploadIdMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:prefix:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:maxUploads:ListMultipartUploads' :: ListMultipartUploads -> Maybe Int
$sel:keyMarker:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:expectedBucketOwner:ListMultipartUploads' :: ListMultipartUploads -> Maybe Text
$sel:encodingType:ListMultipartUploads' :: ListMultipartUploads -> Maybe EncodingType
$sel:delimiter:ListMultipartUploads' :: ListMultipartUploads -> Maybe Delimiter
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"delimiter" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Delimiter
delimiter,
ByteString
"encoding-type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe EncodingType
encodingType,
ByteString
"key-marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
keyMarker,
ByteString
"max-uploads" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxUploads,
ByteString
"prefix" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
prefix,
ByteString
"upload-id-marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
uploadIdMarker,
QueryString
"uploads"
]
data ListMultipartUploadsResponse = ListMultipartUploadsResponse'
{
ListMultipartUploadsResponse -> Maybe BucketName
bucket :: Prelude.Maybe BucketName,
ListMultipartUploadsResponse -> Maybe [CommonPrefix]
commonPrefixes :: Prelude.Maybe [CommonPrefix],
ListMultipartUploadsResponse -> Maybe Delimiter
delimiter :: Prelude.Maybe Delimiter,
ListMultipartUploadsResponse -> Maybe EncodingType
encodingType :: Prelude.Maybe EncodingType,
ListMultipartUploadsResponse -> Maybe Bool
isTruncated :: Prelude.Maybe Prelude.Bool,
ListMultipartUploadsResponse -> Maybe Text
keyMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploadsResponse -> Maybe Int
maxUploads :: Prelude.Maybe Prelude.Int,
ListMultipartUploadsResponse -> Maybe Text
nextKeyMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploadsResponse -> Maybe Text
nextUploadIdMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploadsResponse -> Maybe Text
prefix :: Prelude.Maybe Prelude.Text,
ListMultipartUploadsResponse -> Maybe Text
uploadIdMarker :: Prelude.Maybe Prelude.Text,
ListMultipartUploadsResponse -> Maybe [MultipartUpload]
uploads :: Prelude.Maybe [MultipartUpload],
ListMultipartUploadsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListMultipartUploadsResponse
-> ListMultipartUploadsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMultipartUploadsResponse
-> ListMultipartUploadsResponse -> Bool
$c/= :: ListMultipartUploadsResponse
-> ListMultipartUploadsResponse -> Bool
== :: ListMultipartUploadsResponse
-> ListMultipartUploadsResponse -> Bool
$c== :: ListMultipartUploadsResponse
-> ListMultipartUploadsResponse -> Bool
Prelude.Eq, ReadPrec [ListMultipartUploadsResponse]
ReadPrec ListMultipartUploadsResponse
Int -> ReadS ListMultipartUploadsResponse
ReadS [ListMultipartUploadsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMultipartUploadsResponse]
$creadListPrec :: ReadPrec [ListMultipartUploadsResponse]
readPrec :: ReadPrec ListMultipartUploadsResponse
$creadPrec :: ReadPrec ListMultipartUploadsResponse
readList :: ReadS [ListMultipartUploadsResponse]
$creadList :: ReadS [ListMultipartUploadsResponse]
readsPrec :: Int -> ReadS ListMultipartUploadsResponse
$creadsPrec :: Int -> ReadS ListMultipartUploadsResponse
Prelude.Read, Int -> ListMultipartUploadsResponse -> ShowS
[ListMultipartUploadsResponse] -> ShowS
ListMultipartUploadsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMultipartUploadsResponse] -> ShowS
$cshowList :: [ListMultipartUploadsResponse] -> ShowS
show :: ListMultipartUploadsResponse -> String
$cshow :: ListMultipartUploadsResponse -> String
showsPrec :: Int -> ListMultipartUploadsResponse -> ShowS
$cshowsPrec :: Int -> ListMultipartUploadsResponse -> ShowS
Prelude.Show, forall x.
Rep ListMultipartUploadsResponse x -> ListMultipartUploadsResponse
forall x.
ListMultipartUploadsResponse -> Rep ListMultipartUploadsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListMultipartUploadsResponse x -> ListMultipartUploadsResponse
$cfrom :: forall x.
ListMultipartUploadsResponse -> Rep ListMultipartUploadsResponse x
Prelude.Generic)
newListMultipartUploadsResponse ::
Prelude.Int ->
ListMultipartUploadsResponse
newListMultipartUploadsResponse :: Int -> ListMultipartUploadsResponse
newListMultipartUploadsResponse Int
pHttpStatus_ =
ListMultipartUploadsResponse'
{ $sel:bucket:ListMultipartUploadsResponse' :: Maybe BucketName
bucket =
forall a. Maybe a
Prelude.Nothing,
$sel:commonPrefixes:ListMultipartUploadsResponse' :: Maybe [CommonPrefix]
commonPrefixes = forall a. Maybe a
Prelude.Nothing,
$sel:delimiter:ListMultipartUploadsResponse' :: Maybe Delimiter
delimiter = forall a. Maybe a
Prelude.Nothing,
$sel:encodingType:ListMultipartUploadsResponse' :: Maybe EncodingType
encodingType = forall a. Maybe a
Prelude.Nothing,
$sel:isTruncated:ListMultipartUploadsResponse' :: Maybe Bool
isTruncated = forall a. Maybe a
Prelude.Nothing,
$sel:keyMarker:ListMultipartUploadsResponse' :: Maybe Text
keyMarker = forall a. Maybe a
Prelude.Nothing,
$sel:maxUploads:ListMultipartUploadsResponse' :: Maybe Int
maxUploads = forall a. Maybe a
Prelude.Nothing,
$sel:nextKeyMarker:ListMultipartUploadsResponse' :: Maybe Text
nextKeyMarker = forall a. Maybe a
Prelude.Nothing,
$sel:nextUploadIdMarker:ListMultipartUploadsResponse' :: Maybe Text
nextUploadIdMarker = forall a. Maybe a
Prelude.Nothing,
$sel:prefix:ListMultipartUploadsResponse' :: Maybe Text
prefix = forall a. Maybe a
Prelude.Nothing,
$sel:uploadIdMarker:ListMultipartUploadsResponse' :: Maybe Text
uploadIdMarker = forall a. Maybe a
Prelude.Nothing,
$sel:uploads:ListMultipartUploadsResponse' :: Maybe [MultipartUpload]
uploads = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListMultipartUploadsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listMultipartUploadsResponse_bucket :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe BucketName)
listMultipartUploadsResponse_bucket :: Lens' ListMultipartUploadsResponse (Maybe BucketName)
listMultipartUploadsResponse_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe BucketName
bucket :: Maybe BucketName
$sel:bucket:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe BucketName
bucket} -> Maybe BucketName
bucket) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe BucketName
a -> ListMultipartUploadsResponse
s {$sel:bucket:ListMultipartUploadsResponse' :: Maybe BucketName
bucket = Maybe BucketName
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_commonPrefixes :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe [CommonPrefix])
listMultipartUploadsResponse_commonPrefixes :: Lens' ListMultipartUploadsResponse (Maybe [CommonPrefix])
listMultipartUploadsResponse_commonPrefixes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe [CommonPrefix]
commonPrefixes :: Maybe [CommonPrefix]
$sel:commonPrefixes:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe [CommonPrefix]
commonPrefixes} -> Maybe [CommonPrefix]
commonPrefixes) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe [CommonPrefix]
a -> ListMultipartUploadsResponse
s {$sel:commonPrefixes:ListMultipartUploadsResponse' :: Maybe [CommonPrefix]
commonPrefixes = Maybe [CommonPrefix]
a} :: ListMultipartUploadsResponse) 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
listMultipartUploadsResponse_delimiter :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Delimiter)
listMultipartUploadsResponse_delimiter :: Lens' ListMultipartUploadsResponse (Maybe Delimiter)
listMultipartUploadsResponse_delimiter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Delimiter
delimiter :: Maybe Delimiter
$sel:delimiter:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Delimiter
delimiter} -> Maybe Delimiter
delimiter) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Delimiter
a -> ListMultipartUploadsResponse
s {$sel:delimiter:ListMultipartUploadsResponse' :: Maybe Delimiter
delimiter = Maybe Delimiter
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_encodingType :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe EncodingType)
listMultipartUploadsResponse_encodingType :: Lens' ListMultipartUploadsResponse (Maybe EncodingType)
listMultipartUploadsResponse_encodingType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe EncodingType
encodingType :: Maybe EncodingType
$sel:encodingType:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe EncodingType
encodingType} -> Maybe EncodingType
encodingType) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe EncodingType
a -> ListMultipartUploadsResponse
s {$sel:encodingType:ListMultipartUploadsResponse' :: Maybe EncodingType
encodingType = Maybe EncodingType
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_isTruncated :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Bool)
listMultipartUploadsResponse_isTruncated :: Lens' ListMultipartUploadsResponse (Maybe Bool)
listMultipartUploadsResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Bool
isTruncated :: Maybe Bool
$sel:isTruncated:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Bool
isTruncated} -> Maybe Bool
isTruncated) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Bool
a -> ListMultipartUploadsResponse
s {$sel:isTruncated:ListMultipartUploadsResponse' :: Maybe Bool
isTruncated = Maybe Bool
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_keyMarker :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Text)
listMultipartUploadsResponse_keyMarker :: Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_keyMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Text
keyMarker :: Maybe Text
$sel:keyMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
keyMarker} -> Maybe Text
keyMarker) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Text
a -> ListMultipartUploadsResponse
s {$sel:keyMarker:ListMultipartUploadsResponse' :: Maybe Text
keyMarker = Maybe Text
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_maxUploads :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Int)
listMultipartUploadsResponse_maxUploads :: Lens' ListMultipartUploadsResponse (Maybe Int)
listMultipartUploadsResponse_maxUploads = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Int
maxUploads :: Maybe Int
$sel:maxUploads:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Int
maxUploads} -> Maybe Int
maxUploads) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Int
a -> ListMultipartUploadsResponse
s {$sel:maxUploads:ListMultipartUploadsResponse' :: Maybe Int
maxUploads = Maybe Int
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_nextKeyMarker :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Text)
listMultipartUploadsResponse_nextKeyMarker :: Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextKeyMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Text
nextKeyMarker :: Maybe Text
$sel:nextKeyMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
nextKeyMarker} -> Maybe Text
nextKeyMarker) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Text
a -> ListMultipartUploadsResponse
s {$sel:nextKeyMarker:ListMultipartUploadsResponse' :: Maybe Text
nextKeyMarker = Maybe Text
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_nextUploadIdMarker :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Text)
listMultipartUploadsResponse_nextUploadIdMarker :: Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_nextUploadIdMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Text
nextUploadIdMarker :: Maybe Text
$sel:nextUploadIdMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
nextUploadIdMarker} -> Maybe Text
nextUploadIdMarker) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Text
a -> ListMultipartUploadsResponse
s {$sel:nextUploadIdMarker:ListMultipartUploadsResponse' :: Maybe Text
nextUploadIdMarker = Maybe Text
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_prefix :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Text)
listMultipartUploadsResponse_prefix :: Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_prefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Text
prefix :: Maybe Text
$sel:prefix:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
prefix} -> Maybe Text
prefix) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Text
a -> ListMultipartUploadsResponse
s {$sel:prefix:ListMultipartUploadsResponse' :: Maybe Text
prefix = Maybe Text
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_uploadIdMarker :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe Prelude.Text)
listMultipartUploadsResponse_uploadIdMarker :: Lens' ListMultipartUploadsResponse (Maybe Text)
listMultipartUploadsResponse_uploadIdMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe Text
uploadIdMarker :: Maybe Text
$sel:uploadIdMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
uploadIdMarker} -> Maybe Text
uploadIdMarker) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe Text
a -> ListMultipartUploadsResponse
s {$sel:uploadIdMarker:ListMultipartUploadsResponse' :: Maybe Text
uploadIdMarker = Maybe Text
a} :: ListMultipartUploadsResponse)
listMultipartUploadsResponse_uploads :: Lens.Lens' ListMultipartUploadsResponse (Prelude.Maybe [MultipartUpload])
listMultipartUploadsResponse_uploads :: Lens' ListMultipartUploadsResponse (Maybe [MultipartUpload])
listMultipartUploadsResponse_uploads = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Maybe [MultipartUpload]
uploads :: Maybe [MultipartUpload]
$sel:uploads:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe [MultipartUpload]
uploads} -> Maybe [MultipartUpload]
uploads) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Maybe [MultipartUpload]
a -> ListMultipartUploadsResponse
s {$sel:uploads:ListMultipartUploadsResponse' :: Maybe [MultipartUpload]
uploads = Maybe [MultipartUpload]
a} :: ListMultipartUploadsResponse) 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
listMultipartUploadsResponse_httpStatus :: Lens.Lens' ListMultipartUploadsResponse Prelude.Int
listMultipartUploadsResponse_httpStatus :: Lens' ListMultipartUploadsResponse Int
listMultipartUploadsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMultipartUploadsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListMultipartUploadsResponse
s@ListMultipartUploadsResponse' {} Int
a -> ListMultipartUploadsResponse
s {$sel:httpStatus:ListMultipartUploadsResponse' :: Int
httpStatus = Int
a} :: ListMultipartUploadsResponse)
instance Prelude.NFData ListMultipartUploadsResponse where
rnf :: ListMultipartUploadsResponse -> ()
rnf ListMultipartUploadsResponse' {Int
Maybe Bool
Maybe Delimiter
Maybe Int
Maybe [CommonPrefix]
Maybe [MultipartUpload]
Maybe Text
Maybe BucketName
Maybe EncodingType
httpStatus :: Int
uploads :: Maybe [MultipartUpload]
uploadIdMarker :: Maybe Text
prefix :: Maybe Text
nextUploadIdMarker :: Maybe Text
nextKeyMarker :: Maybe Text
maxUploads :: Maybe Int
keyMarker :: Maybe Text
isTruncated :: Maybe Bool
encodingType :: Maybe EncodingType
delimiter :: Maybe Delimiter
commonPrefixes :: Maybe [CommonPrefix]
bucket :: Maybe BucketName
$sel:httpStatus:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Int
$sel:uploads:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe [MultipartUpload]
$sel:uploadIdMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
$sel:prefix:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
$sel:nextUploadIdMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
$sel:nextKeyMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
$sel:maxUploads:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Int
$sel:keyMarker:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Text
$sel:isTruncated:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Bool
$sel:encodingType:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe EncodingType
$sel:delimiter:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe Delimiter
$sel:commonPrefixes:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe [CommonPrefix]
$sel:bucket:ListMultipartUploadsResponse' :: ListMultipartUploadsResponse -> Maybe BucketName
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketName
bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [CommonPrefix]
commonPrefixes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Delimiter
delimiter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EncodingType
encodingType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isTruncated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
keyMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxUploads
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextKeyMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextUploadIdMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
prefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
uploadIdMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [MultipartUpload]
uploads
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus