{-# 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.Kinesis.ListShards
(
ListShards (..),
newListShards,
listShards_exclusiveStartShardId,
listShards_maxResults,
listShards_nextToken,
listShards_shardFilter,
listShards_streamARN,
listShards_streamCreationTimestamp,
listShards_streamName,
ListShardsResponse (..),
newListShardsResponse,
listShardsResponse_nextToken,
listShardsResponse_shards,
listShardsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Kinesis.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListShards = ListShards'
{
ListShards -> Maybe Text
exclusiveStartShardId :: Prelude.Maybe Prelude.Text,
ListShards -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListShards -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListShards -> Maybe ShardFilter
shardFilter :: Prelude.Maybe ShardFilter,
ListShards -> Maybe Text
streamARN :: Prelude.Maybe Prelude.Text,
ListShards -> Maybe POSIX
streamCreationTimestamp :: Prelude.Maybe Data.POSIX,
ListShards -> Maybe Text
streamName :: Prelude.Maybe Prelude.Text
}
deriving (ListShards -> ListShards -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListShards -> ListShards -> Bool
$c/= :: ListShards -> ListShards -> Bool
== :: ListShards -> ListShards -> Bool
$c== :: ListShards -> ListShards -> Bool
Prelude.Eq, ReadPrec [ListShards]
ReadPrec ListShards
Int -> ReadS ListShards
ReadS [ListShards]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListShards]
$creadListPrec :: ReadPrec [ListShards]
readPrec :: ReadPrec ListShards
$creadPrec :: ReadPrec ListShards
readList :: ReadS [ListShards]
$creadList :: ReadS [ListShards]
readsPrec :: Int -> ReadS ListShards
$creadsPrec :: Int -> ReadS ListShards
Prelude.Read, Int -> ListShards -> ShowS
[ListShards] -> ShowS
ListShards -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListShards] -> ShowS
$cshowList :: [ListShards] -> ShowS
show :: ListShards -> String
$cshow :: ListShards -> String
showsPrec :: Int -> ListShards -> ShowS
$cshowsPrec :: Int -> ListShards -> ShowS
Prelude.Show, forall x. Rep ListShards x -> ListShards
forall x. ListShards -> Rep ListShards x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListShards x -> ListShards
$cfrom :: forall x. ListShards -> Rep ListShards x
Prelude.Generic)
newListShards ::
ListShards
newListShards :: ListShards
newListShards =
ListShards'
{ $sel:exclusiveStartShardId:ListShards' :: Maybe Text
exclusiveStartShardId =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListShards' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListShards' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:shardFilter:ListShards' :: Maybe ShardFilter
shardFilter = forall a. Maybe a
Prelude.Nothing,
$sel:streamARN:ListShards' :: Maybe Text
streamARN = forall a. Maybe a
Prelude.Nothing,
$sel:streamCreationTimestamp:ListShards' :: Maybe POSIX
streamCreationTimestamp = forall a. Maybe a
Prelude.Nothing,
$sel:streamName:ListShards' :: Maybe Text
streamName = forall a. Maybe a
Prelude.Nothing
}
listShards_exclusiveStartShardId :: Lens.Lens' ListShards (Prelude.Maybe Prelude.Text)
listShards_exclusiveStartShardId :: Lens' ListShards (Maybe Text)
listShards_exclusiveStartShardId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe Text
exclusiveStartShardId :: Maybe Text
$sel:exclusiveStartShardId:ListShards' :: ListShards -> Maybe Text
exclusiveStartShardId} -> Maybe Text
exclusiveStartShardId) (\s :: ListShards
s@ListShards' {} Maybe Text
a -> ListShards
s {$sel:exclusiveStartShardId:ListShards' :: Maybe Text
exclusiveStartShardId = Maybe Text
a} :: ListShards)
listShards_maxResults :: Lens.Lens' ListShards (Prelude.Maybe Prelude.Natural)
listShards_maxResults :: Lens' ListShards (Maybe Natural)
listShards_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListShards' :: ListShards -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListShards
s@ListShards' {} Maybe Natural
a -> ListShards
s {$sel:maxResults:ListShards' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListShards)
listShards_nextToken :: Lens.Lens' ListShards (Prelude.Maybe Prelude.Text)
listShards_nextToken :: Lens' ListShards (Maybe Text)
listShards_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListShards' :: ListShards -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListShards
s@ListShards' {} Maybe Text
a -> ListShards
s {$sel:nextToken:ListShards' :: Maybe Text
nextToken = Maybe Text
a} :: ListShards)
listShards_shardFilter :: Lens.Lens' ListShards (Prelude.Maybe ShardFilter)
listShards_shardFilter :: Lens' ListShards (Maybe ShardFilter)
listShards_shardFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe ShardFilter
shardFilter :: Maybe ShardFilter
$sel:shardFilter:ListShards' :: ListShards -> Maybe ShardFilter
shardFilter} -> Maybe ShardFilter
shardFilter) (\s :: ListShards
s@ListShards' {} Maybe ShardFilter
a -> ListShards
s {$sel:shardFilter:ListShards' :: Maybe ShardFilter
shardFilter = Maybe ShardFilter
a} :: ListShards)
listShards_streamARN :: Lens.Lens' ListShards (Prelude.Maybe Prelude.Text)
listShards_streamARN :: Lens' ListShards (Maybe Text)
listShards_streamARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe Text
streamARN :: Maybe Text
$sel:streamARN:ListShards' :: ListShards -> Maybe Text
streamARN} -> Maybe Text
streamARN) (\s :: ListShards
s@ListShards' {} Maybe Text
a -> ListShards
s {$sel:streamARN:ListShards' :: Maybe Text
streamARN = Maybe Text
a} :: ListShards)
listShards_streamCreationTimestamp :: Lens.Lens' ListShards (Prelude.Maybe Prelude.UTCTime)
listShards_streamCreationTimestamp :: Lens' ListShards (Maybe UTCTime)
listShards_streamCreationTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe POSIX
streamCreationTimestamp :: Maybe POSIX
$sel:streamCreationTimestamp:ListShards' :: ListShards -> Maybe POSIX
streamCreationTimestamp} -> Maybe POSIX
streamCreationTimestamp) (\s :: ListShards
s@ListShards' {} Maybe POSIX
a -> ListShards
s {$sel:streamCreationTimestamp:ListShards' :: Maybe POSIX
streamCreationTimestamp = Maybe POSIX
a} :: ListShards) 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
listShards_streamName :: Lens.Lens' ListShards (Prelude.Maybe Prelude.Text)
listShards_streamName :: Lens' ListShards (Maybe Text)
listShards_streamName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShards' {Maybe Text
streamName :: Maybe Text
$sel:streamName:ListShards' :: ListShards -> Maybe Text
streamName} -> Maybe Text
streamName) (\s :: ListShards
s@ListShards' {} Maybe Text
a -> ListShards
s {$sel:streamName:ListShards' :: Maybe Text
streamName = Maybe Text
a} :: ListShards)
instance Core.AWSPager ListShards where
page :: ListShards -> AWSResponse ListShards -> Maybe ListShards
page ListShards
rq AWSResponse ListShards
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListShards
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListShardsResponse (Maybe Text)
listShardsResponse_nextToken
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 ListShards
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListShardsResponse (Maybe [Shard])
listShardsResponse_shards
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.$ ListShards
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListShards (Maybe Text)
listShards_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListShards
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListShardsResponse (Maybe Text)
listShardsResponse_nextToken
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 ListShards where
type AWSResponse ListShards = ListShardsResponse
request :: (Service -> Service) -> ListShards -> Request ListShards
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListShards
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListShards)))
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 [Shard] -> Int -> ListShardsResponse
ListShardsResponse'
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
"NextToken")
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
"Shards" 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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ListShards where
hashWithSalt :: Int -> ListShards -> Int
hashWithSalt Int
_salt ListShards' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ShardFilter
streamName :: Maybe Text
streamCreationTimestamp :: Maybe POSIX
streamARN :: Maybe Text
shardFilter :: Maybe ShardFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
exclusiveStartShardId :: Maybe Text
$sel:streamName:ListShards' :: ListShards -> Maybe Text
$sel:streamCreationTimestamp:ListShards' :: ListShards -> Maybe POSIX
$sel:streamARN:ListShards' :: ListShards -> Maybe Text
$sel:shardFilter:ListShards' :: ListShards -> Maybe ShardFilter
$sel:nextToken:ListShards' :: ListShards -> Maybe Text
$sel:maxResults:ListShards' :: ListShards -> Maybe Natural
$sel:exclusiveStartShardId:ListShards' :: ListShards -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
exclusiveStartShardId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ShardFilter
shardFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
streamARN
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
streamCreationTimestamp
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
streamName
instance Prelude.NFData ListShards where
rnf :: ListShards -> ()
rnf ListShards' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ShardFilter
streamName :: Maybe Text
streamCreationTimestamp :: Maybe POSIX
streamARN :: Maybe Text
shardFilter :: Maybe ShardFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
exclusiveStartShardId :: Maybe Text
$sel:streamName:ListShards' :: ListShards -> Maybe Text
$sel:streamCreationTimestamp:ListShards' :: ListShards -> Maybe POSIX
$sel:streamARN:ListShards' :: ListShards -> Maybe Text
$sel:shardFilter:ListShards' :: ListShards -> Maybe ShardFilter
$sel:nextToken:ListShards' :: ListShards -> Maybe Text
$sel:maxResults:ListShards' :: ListShards -> Maybe Natural
$sel:exclusiveStartShardId:ListShards' :: ListShards -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
exclusiveStartShardId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ShardFilter
shardFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
streamARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
streamCreationTimestamp
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
streamName
instance Data.ToHeaders ListShards where
toHeaders :: ListShards -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Kinesis_20131202.ListShards" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListShards where
toJSON :: ListShards -> Value
toJSON ListShards' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ShardFilter
streamName :: Maybe Text
streamCreationTimestamp :: Maybe POSIX
streamARN :: Maybe Text
shardFilter :: Maybe ShardFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
exclusiveStartShardId :: Maybe Text
$sel:streamName:ListShards' :: ListShards -> Maybe Text
$sel:streamCreationTimestamp:ListShards' :: ListShards -> Maybe POSIX
$sel:streamARN:ListShards' :: ListShards -> Maybe Text
$sel:shardFilter:ListShards' :: ListShards -> Maybe ShardFilter
$sel:nextToken:ListShards' :: ListShards -> Maybe Text
$sel:maxResults:ListShards' :: ListShards -> Maybe Natural
$sel:exclusiveStartShardId:ListShards' :: ListShards -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ExclusiveStartShardId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
exclusiveStartShardId,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"ShardFilter" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ShardFilter
shardFilter,
(Key
"StreamARN" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
streamARN,
(Key
"StreamCreationTimestamp" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe POSIX
streamCreationTimestamp,
(Key
"StreamName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
streamName
]
)
instance Data.ToPath ListShards where
toPath :: ListShards -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListShards where
toQuery :: ListShards -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListShardsResponse = ListShardsResponse'
{
ListShardsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListShardsResponse -> Maybe [Shard]
shards :: Prelude.Maybe [Shard],
ListShardsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListShardsResponse -> ListShardsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListShardsResponse -> ListShardsResponse -> Bool
$c/= :: ListShardsResponse -> ListShardsResponse -> Bool
== :: ListShardsResponse -> ListShardsResponse -> Bool
$c== :: ListShardsResponse -> ListShardsResponse -> Bool
Prelude.Eq, ReadPrec [ListShardsResponse]
ReadPrec ListShardsResponse
Int -> ReadS ListShardsResponse
ReadS [ListShardsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListShardsResponse]
$creadListPrec :: ReadPrec [ListShardsResponse]
readPrec :: ReadPrec ListShardsResponse
$creadPrec :: ReadPrec ListShardsResponse
readList :: ReadS [ListShardsResponse]
$creadList :: ReadS [ListShardsResponse]
readsPrec :: Int -> ReadS ListShardsResponse
$creadsPrec :: Int -> ReadS ListShardsResponse
Prelude.Read, Int -> ListShardsResponse -> ShowS
[ListShardsResponse] -> ShowS
ListShardsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListShardsResponse] -> ShowS
$cshowList :: [ListShardsResponse] -> ShowS
show :: ListShardsResponse -> String
$cshow :: ListShardsResponse -> String
showsPrec :: Int -> ListShardsResponse -> ShowS
$cshowsPrec :: Int -> ListShardsResponse -> ShowS
Prelude.Show, forall x. Rep ListShardsResponse x -> ListShardsResponse
forall x. ListShardsResponse -> Rep ListShardsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListShardsResponse x -> ListShardsResponse
$cfrom :: forall x. ListShardsResponse -> Rep ListShardsResponse x
Prelude.Generic)
newListShardsResponse ::
Prelude.Int ->
ListShardsResponse
newListShardsResponse :: Int -> ListShardsResponse
newListShardsResponse Int
pHttpStatus_ =
ListShardsResponse'
{ $sel:nextToken:ListShardsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:shards:ListShardsResponse' :: Maybe [Shard]
shards = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListShardsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listShardsResponse_nextToken :: Lens.Lens' ListShardsResponse (Prelude.Maybe Prelude.Text)
listShardsResponse_nextToken :: Lens' ListShardsResponse (Maybe Text)
listShardsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShardsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListShardsResponse' :: ListShardsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListShardsResponse
s@ListShardsResponse' {} Maybe Text
a -> ListShardsResponse
s {$sel:nextToken:ListShardsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListShardsResponse)
listShardsResponse_shards :: Lens.Lens' ListShardsResponse (Prelude.Maybe [Shard])
listShardsResponse_shards :: Lens' ListShardsResponse (Maybe [Shard])
listShardsResponse_shards = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShardsResponse' {Maybe [Shard]
shards :: Maybe [Shard]
$sel:shards:ListShardsResponse' :: ListShardsResponse -> Maybe [Shard]
shards} -> Maybe [Shard]
shards) (\s :: ListShardsResponse
s@ListShardsResponse' {} Maybe [Shard]
a -> ListShardsResponse
s {$sel:shards:ListShardsResponse' :: Maybe [Shard]
shards = Maybe [Shard]
a} :: ListShardsResponse) 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
listShardsResponse_httpStatus :: Lens.Lens' ListShardsResponse Prelude.Int
listShardsResponse_httpStatus :: Lens' ListShardsResponse Int
listShardsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListShardsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListShardsResponse' :: ListShardsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListShardsResponse
s@ListShardsResponse' {} Int
a -> ListShardsResponse
s {$sel:httpStatus:ListShardsResponse' :: Int
httpStatus = Int
a} :: ListShardsResponse)
instance Prelude.NFData ListShardsResponse where
rnf :: ListShardsResponse -> ()
rnf ListShardsResponse' {Int
Maybe [Shard]
Maybe Text
httpStatus :: Int
shards :: Maybe [Shard]
nextToken :: Maybe Text
$sel:httpStatus:ListShardsResponse' :: ListShardsResponse -> Int
$sel:shards:ListShardsResponse' :: ListShardsResponse -> Maybe [Shard]
$sel:nextToken:ListShardsResponse' :: ListShardsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Shard]
shards
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus