{-# 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.ManagedBlockChain.ListMembers
(
ListMembers (..),
newListMembers,
listMembers_isOwned,
listMembers_maxResults,
listMembers_name,
listMembers_nextToken,
listMembers_status,
listMembers_networkId,
ListMembersResponse (..),
newListMembersResponse,
listMembersResponse_members,
listMembersResponse_nextToken,
listMembersResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ManagedBlockChain.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListMembers = ListMembers'
{
ListMembers -> Maybe Bool
isOwned :: Prelude.Maybe Prelude.Bool,
ListMembers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListMembers -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
ListMembers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListMembers -> Maybe MemberStatus
status :: Prelude.Maybe MemberStatus,
ListMembers -> Text
networkId :: Prelude.Text
}
deriving (ListMembers -> ListMembers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMembers -> ListMembers -> Bool
$c/= :: ListMembers -> ListMembers -> Bool
== :: ListMembers -> ListMembers -> Bool
$c== :: ListMembers -> ListMembers -> Bool
Prelude.Eq, ReadPrec [ListMembers]
ReadPrec ListMembers
Int -> ReadS ListMembers
ReadS [ListMembers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMembers]
$creadListPrec :: ReadPrec [ListMembers]
readPrec :: ReadPrec ListMembers
$creadPrec :: ReadPrec ListMembers
readList :: ReadS [ListMembers]
$creadList :: ReadS [ListMembers]
readsPrec :: Int -> ReadS ListMembers
$creadsPrec :: Int -> ReadS ListMembers
Prelude.Read, Int -> ListMembers -> ShowS
[ListMembers] -> ShowS
ListMembers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMembers] -> ShowS
$cshowList :: [ListMembers] -> ShowS
show :: ListMembers -> String
$cshow :: ListMembers -> String
showsPrec :: Int -> ListMembers -> ShowS
$cshowsPrec :: Int -> ListMembers -> ShowS
Prelude.Show, forall x. Rep ListMembers x -> ListMembers
forall x. ListMembers -> Rep ListMembers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListMembers x -> ListMembers
$cfrom :: forall x. ListMembers -> Rep ListMembers x
Prelude.Generic)
newListMembers ::
Prelude.Text ->
ListMembers
newListMembers :: Text -> ListMembers
newListMembers Text
pNetworkId_ =
ListMembers'
{ $sel:isOwned:ListMembers' :: Maybe Bool
isOwned = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListMembers' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:name:ListMembers' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListMembers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:status:ListMembers' :: Maybe MemberStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:networkId:ListMembers' :: Text
networkId = Text
pNetworkId_
}
listMembers_isOwned :: Lens.Lens' ListMembers (Prelude.Maybe Prelude.Bool)
listMembers_isOwned :: Lens' ListMembers (Maybe Bool)
listMembers_isOwned = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Maybe Bool
isOwned :: Maybe Bool
$sel:isOwned:ListMembers' :: ListMembers -> Maybe Bool
isOwned} -> Maybe Bool
isOwned) (\s :: ListMembers
s@ListMembers' {} Maybe Bool
a -> ListMembers
s {$sel:isOwned:ListMembers' :: Maybe Bool
isOwned = Maybe Bool
a} :: ListMembers)
listMembers_maxResults :: Lens.Lens' ListMembers (Prelude.Maybe Prelude.Natural)
listMembers_maxResults :: Lens' ListMembers (Maybe Natural)
listMembers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListMembers' :: ListMembers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListMembers
s@ListMembers' {} Maybe Natural
a -> ListMembers
s {$sel:maxResults:ListMembers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListMembers)
listMembers_name :: Lens.Lens' ListMembers (Prelude.Maybe Prelude.Text)
listMembers_name :: Lens' ListMembers (Maybe Text)
listMembers_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Maybe Text
name :: Maybe Text
$sel:name:ListMembers' :: ListMembers -> Maybe Text
name} -> Maybe Text
name) (\s :: ListMembers
s@ListMembers' {} Maybe Text
a -> ListMembers
s {$sel:name:ListMembers' :: Maybe Text
name = Maybe Text
a} :: ListMembers)
listMembers_nextToken :: Lens.Lens' ListMembers (Prelude.Maybe Prelude.Text)
listMembers_nextToken :: Lens' ListMembers (Maybe Text)
listMembers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListMembers' :: ListMembers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListMembers
s@ListMembers' {} Maybe Text
a -> ListMembers
s {$sel:nextToken:ListMembers' :: Maybe Text
nextToken = Maybe Text
a} :: ListMembers)
listMembers_status :: Lens.Lens' ListMembers (Prelude.Maybe MemberStatus)
listMembers_status :: Lens' ListMembers (Maybe MemberStatus)
listMembers_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Maybe MemberStatus
status :: Maybe MemberStatus
$sel:status:ListMembers' :: ListMembers -> Maybe MemberStatus
status} -> Maybe MemberStatus
status) (\s :: ListMembers
s@ListMembers' {} Maybe MemberStatus
a -> ListMembers
s {$sel:status:ListMembers' :: Maybe MemberStatus
status = Maybe MemberStatus
a} :: ListMembers)
listMembers_networkId :: Lens.Lens' ListMembers Prelude.Text
listMembers_networkId :: Lens' ListMembers Text
listMembers_networkId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembers' {Text
networkId :: Text
$sel:networkId:ListMembers' :: ListMembers -> Text
networkId} -> Text
networkId) (\s :: ListMembers
s@ListMembers' {} Text
a -> ListMembers
s {$sel:networkId:ListMembers' :: Text
networkId = Text
a} :: ListMembers)
instance Core.AWSRequest ListMembers where
type AWSResponse ListMembers = ListMembersResponse
request :: (Service -> Service) -> ListMembers -> Request ListMembers
request Service -> Service
overrides =
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 ListMembers
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListMembers)))
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 [MemberSummary] -> Maybe Text -> Int -> ListMembersResponse
ListMembersResponse'
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
"Members" 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
"NextToken")
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 ListMembers where
hashWithSalt :: Int -> ListMembers -> Int
hashWithSalt Int
_salt ListMembers' {Maybe Bool
Maybe Natural
Maybe Text
Maybe MemberStatus
Text
networkId :: Text
status :: Maybe MemberStatus
nextToken :: Maybe Text
name :: Maybe Text
maxResults :: Maybe Natural
isOwned :: Maybe Bool
$sel:networkId:ListMembers' :: ListMembers -> Text
$sel:status:ListMembers' :: ListMembers -> Maybe MemberStatus
$sel:nextToken:ListMembers' :: ListMembers -> Maybe Text
$sel:name:ListMembers' :: ListMembers -> Maybe Text
$sel:maxResults:ListMembers' :: ListMembers -> Maybe Natural
$sel:isOwned:ListMembers' :: ListMembers -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
isOwned
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MemberStatus
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
networkId
instance Prelude.NFData ListMembers where
rnf :: ListMembers -> ()
rnf ListMembers' {Maybe Bool
Maybe Natural
Maybe Text
Maybe MemberStatus
Text
networkId :: Text
status :: Maybe MemberStatus
nextToken :: Maybe Text
name :: Maybe Text
maxResults :: Maybe Natural
isOwned :: Maybe Bool
$sel:networkId:ListMembers' :: ListMembers -> Text
$sel:status:ListMembers' :: ListMembers -> Maybe MemberStatus
$sel:nextToken:ListMembers' :: ListMembers -> Maybe Text
$sel:name:ListMembers' :: ListMembers -> Maybe Text
$sel:maxResults:ListMembers' :: ListMembers -> Maybe Natural
$sel:isOwned:ListMembers' :: ListMembers -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isOwned
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
name
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 MemberStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
networkId
instance Data.ToHeaders ListMembers where
toHeaders :: ListMembers -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath ListMembers where
toPath :: ListMembers -> ByteString
toPath ListMembers' {Maybe Bool
Maybe Natural
Maybe Text
Maybe MemberStatus
Text
networkId :: Text
status :: Maybe MemberStatus
nextToken :: Maybe Text
name :: Maybe Text
maxResults :: Maybe Natural
isOwned :: Maybe Bool
$sel:networkId:ListMembers' :: ListMembers -> Text
$sel:status:ListMembers' :: ListMembers -> Maybe MemberStatus
$sel:nextToken:ListMembers' :: ListMembers -> Maybe Text
$sel:name:ListMembers' :: ListMembers -> Maybe Text
$sel:maxResults:ListMembers' :: ListMembers -> Maybe Natural
$sel:isOwned:ListMembers' :: ListMembers -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/networks/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
networkId, ByteString
"/members"]
instance Data.ToQuery ListMembers where
toQuery :: ListMembers -> QueryString
toQuery ListMembers' {Maybe Bool
Maybe Natural
Maybe Text
Maybe MemberStatus
Text
networkId :: Text
status :: Maybe MemberStatus
nextToken :: Maybe Text
name :: Maybe Text
maxResults :: Maybe Natural
isOwned :: Maybe Bool
$sel:networkId:ListMembers' :: ListMembers -> Text
$sel:status:ListMembers' :: ListMembers -> Maybe MemberStatus
$sel:nextToken:ListMembers' :: ListMembers -> Maybe Text
$sel:name:ListMembers' :: ListMembers -> Maybe Text
$sel:maxResults:ListMembers' :: ListMembers -> Maybe Natural
$sel:isOwned:ListMembers' :: ListMembers -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"isOwned" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
isOwned,
ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"name" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
name,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"status" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe MemberStatus
status
]
data ListMembersResponse = ListMembersResponse'
{
ListMembersResponse -> Maybe [MemberSummary]
members :: Prelude.Maybe [MemberSummary],
ListMembersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListMembersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListMembersResponse -> ListMembersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListMembersResponse -> ListMembersResponse -> Bool
$c/= :: ListMembersResponse -> ListMembersResponse -> Bool
== :: ListMembersResponse -> ListMembersResponse -> Bool
$c== :: ListMembersResponse -> ListMembersResponse -> Bool
Prelude.Eq, ReadPrec [ListMembersResponse]
ReadPrec ListMembersResponse
Int -> ReadS ListMembersResponse
ReadS [ListMembersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListMembersResponse]
$creadListPrec :: ReadPrec [ListMembersResponse]
readPrec :: ReadPrec ListMembersResponse
$creadPrec :: ReadPrec ListMembersResponse
readList :: ReadS [ListMembersResponse]
$creadList :: ReadS [ListMembersResponse]
readsPrec :: Int -> ReadS ListMembersResponse
$creadsPrec :: Int -> ReadS ListMembersResponse
Prelude.Read, Int -> ListMembersResponse -> ShowS
[ListMembersResponse] -> ShowS
ListMembersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListMembersResponse] -> ShowS
$cshowList :: [ListMembersResponse] -> ShowS
show :: ListMembersResponse -> String
$cshow :: ListMembersResponse -> String
showsPrec :: Int -> ListMembersResponse -> ShowS
$cshowsPrec :: Int -> ListMembersResponse -> ShowS
Prelude.Show, forall x. Rep ListMembersResponse x -> ListMembersResponse
forall x. ListMembersResponse -> Rep ListMembersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListMembersResponse x -> ListMembersResponse
$cfrom :: forall x. ListMembersResponse -> Rep ListMembersResponse x
Prelude.Generic)
newListMembersResponse ::
Prelude.Int ->
ListMembersResponse
newListMembersResponse :: Int -> ListMembersResponse
newListMembersResponse Int
pHttpStatus_ =
ListMembersResponse'
{ $sel:members:ListMembersResponse' :: Maybe [MemberSummary]
members = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListMembersResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListMembersResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listMembersResponse_members :: Lens.Lens' ListMembersResponse (Prelude.Maybe [MemberSummary])
listMembersResponse_members :: Lens' ListMembersResponse (Maybe [MemberSummary])
listMembersResponse_members = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembersResponse' {Maybe [MemberSummary]
members :: Maybe [MemberSummary]
$sel:members:ListMembersResponse' :: ListMembersResponse -> Maybe [MemberSummary]
members} -> Maybe [MemberSummary]
members) (\s :: ListMembersResponse
s@ListMembersResponse' {} Maybe [MemberSummary]
a -> ListMembersResponse
s {$sel:members:ListMembersResponse' :: Maybe [MemberSummary]
members = Maybe [MemberSummary]
a} :: ListMembersResponse) 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
listMembersResponse_nextToken :: Lens.Lens' ListMembersResponse (Prelude.Maybe Prelude.Text)
listMembersResponse_nextToken :: Lens' ListMembersResponse (Maybe Text)
listMembersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListMembersResponse' :: ListMembersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListMembersResponse
s@ListMembersResponse' {} Maybe Text
a -> ListMembersResponse
s {$sel:nextToken:ListMembersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListMembersResponse)
listMembersResponse_httpStatus :: Lens.Lens' ListMembersResponse Prelude.Int
listMembersResponse_httpStatus :: Lens' ListMembersResponse Int
listMembersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListMembersResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListMembersResponse' :: ListMembersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListMembersResponse
s@ListMembersResponse' {} Int
a -> ListMembersResponse
s {$sel:httpStatus:ListMembersResponse' :: Int
httpStatus = Int
a} :: ListMembersResponse)
instance Prelude.NFData ListMembersResponse where
rnf :: ListMembersResponse -> ()
rnf ListMembersResponse' {Int
Maybe [MemberSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
members :: Maybe [MemberSummary]
$sel:httpStatus:ListMembersResponse' :: ListMembersResponse -> Int
$sel:nextToken:ListMembersResponse' :: ListMembersResponse -> Maybe Text
$sel:members:ListMembersResponse' :: ListMembersResponse -> Maybe [MemberSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [MemberSummary]
members
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 Int
httpStatus