{-# 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.CognitoIdentityProvider.ListResourceServers
(
ListResourceServers (..),
newListResourceServers,
listResourceServers_maxResults,
listResourceServers_nextToken,
listResourceServers_userPoolId,
ListResourceServersResponse (..),
newListResourceServersResponse,
listResourceServersResponse_nextToken,
listResourceServersResponse_httpStatus,
listResourceServersResponse_resourceServers,
)
where
import Amazonka.CognitoIdentityProvider.Types
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
data ListResourceServers = ListResourceServers'
{
ListResourceServers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListResourceServers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListResourceServers -> Text
userPoolId :: Prelude.Text
}
deriving (ListResourceServers -> ListResourceServers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceServers -> ListResourceServers -> Bool
$c/= :: ListResourceServers -> ListResourceServers -> Bool
== :: ListResourceServers -> ListResourceServers -> Bool
$c== :: ListResourceServers -> ListResourceServers -> Bool
Prelude.Eq, ReadPrec [ListResourceServers]
ReadPrec ListResourceServers
Int -> ReadS ListResourceServers
ReadS [ListResourceServers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceServers]
$creadListPrec :: ReadPrec [ListResourceServers]
readPrec :: ReadPrec ListResourceServers
$creadPrec :: ReadPrec ListResourceServers
readList :: ReadS [ListResourceServers]
$creadList :: ReadS [ListResourceServers]
readsPrec :: Int -> ReadS ListResourceServers
$creadsPrec :: Int -> ReadS ListResourceServers
Prelude.Read, Int -> ListResourceServers -> ShowS
[ListResourceServers] -> ShowS
ListResourceServers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceServers] -> ShowS
$cshowList :: [ListResourceServers] -> ShowS
show :: ListResourceServers -> String
$cshow :: ListResourceServers -> String
showsPrec :: Int -> ListResourceServers -> ShowS
$cshowsPrec :: Int -> ListResourceServers -> ShowS
Prelude.Show, forall x. Rep ListResourceServers x -> ListResourceServers
forall x. ListResourceServers -> Rep ListResourceServers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListResourceServers x -> ListResourceServers
$cfrom :: forall x. ListResourceServers -> Rep ListResourceServers x
Prelude.Generic)
newListResourceServers ::
Prelude.Text ->
ListResourceServers
newListResourceServers :: Text -> ListResourceServers
newListResourceServers Text
pUserPoolId_ =
ListResourceServers'
{ $sel:maxResults:ListResourceServers' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListResourceServers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:userPoolId:ListResourceServers' :: Text
userPoolId = Text
pUserPoolId_
}
listResourceServers_maxResults :: Lens.Lens' ListResourceServers (Prelude.Maybe Prelude.Natural)
listResourceServers_maxResults :: Lens' ListResourceServers (Maybe Natural)
listResourceServers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListResourceServers' :: ListResourceServers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListResourceServers
s@ListResourceServers' {} Maybe Natural
a -> ListResourceServers
s {$sel:maxResults:ListResourceServers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListResourceServers)
listResourceServers_nextToken :: Lens.Lens' ListResourceServers (Prelude.Maybe Prelude.Text)
listResourceServers_nextToken :: Lens' ListResourceServers (Maybe Text)
listResourceServers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListResourceServers' :: ListResourceServers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListResourceServers
s@ListResourceServers' {} Maybe Text
a -> ListResourceServers
s {$sel:nextToken:ListResourceServers' :: Maybe Text
nextToken = Maybe Text
a} :: ListResourceServers)
listResourceServers_userPoolId :: Lens.Lens' ListResourceServers Prelude.Text
listResourceServers_userPoolId :: Lens' ListResourceServers Text
listResourceServers_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServers' {Text
userPoolId :: Text
$sel:userPoolId:ListResourceServers' :: ListResourceServers -> Text
userPoolId} -> Text
userPoolId) (\s :: ListResourceServers
s@ListResourceServers' {} Text
a -> ListResourceServers
s {$sel:userPoolId:ListResourceServers' :: Text
userPoolId = Text
a} :: ListResourceServers)
instance Core.AWSPager ListResourceServers where
page :: ListResourceServers
-> AWSResponse ListResourceServers -> Maybe ListResourceServers
page ListResourceServers
rq AWSResponse ListResourceServers
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListResourceServers
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceServersResponse (Maybe Text)
listResourceServersResponse_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 ListResourceServers
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListResourceServersResponse [ResourceServerType]
listResourceServersResponse_resourceServers
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListResourceServers
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListResourceServers (Maybe Text)
listResourceServers_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListResourceServers
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceServersResponse (Maybe Text)
listResourceServersResponse_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 ListResourceServers where
type
AWSResponse ListResourceServers =
ListResourceServersResponse
request :: (Service -> Service)
-> ListResourceServers -> Request ListResourceServers
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 ListResourceServers
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListResourceServers)))
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
-> Int -> [ResourceServerType] -> ListResourceServersResponse
ListResourceServersResponse'
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
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
"ResourceServers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ListResourceServers where
hashWithSalt :: Int -> ListResourceServers -> Int
hashWithSalt Int
_salt ListResourceServers' {Maybe Natural
Maybe Text
Text
userPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:userPoolId:ListResourceServers' :: ListResourceServers -> Text
$sel:nextToken:ListResourceServers' :: ListResourceServers -> Maybe Text
$sel:maxResults:ListResourceServers' :: ListResourceServers -> Maybe Natural
..} =
Int
_salt
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` Text
userPoolId
instance Prelude.NFData ListResourceServers where
rnf :: ListResourceServers -> ()
rnf ListResourceServers' {Maybe Natural
Maybe Text
Text
userPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:userPoolId:ListResourceServers' :: ListResourceServers -> Text
$sel:nextToken:ListResourceServers' :: ListResourceServers -> Maybe Text
$sel:maxResults:ListResourceServers' :: ListResourceServers -> Maybe Natural
..} =
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 Text
userPoolId
instance Data.ToHeaders ListResourceServers where
toHeaders :: ListResourceServers -> 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
"AWSCognitoIdentityProviderService.ListResourceServers" ::
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 ListResourceServers where
toJSON :: ListResourceServers -> Value
toJSON ListResourceServers' {Maybe Natural
Maybe Text
Text
userPoolId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:userPoolId:ListResourceServers' :: ListResourceServers -> Text
$sel:nextToken:ListResourceServers' :: ListResourceServers -> Maybe Text
$sel:maxResults:ListResourceServers' :: ListResourceServers -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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,
forall a. a -> Maybe a
Prelude.Just (Key
"UserPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userPoolId)
]
)
instance Data.ToPath ListResourceServers where
toPath :: ListResourceServers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListResourceServers where
toQuery :: ListResourceServers -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListResourceServersResponse = ListResourceServersResponse'
{
ListResourceServersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListResourceServersResponse -> Int
httpStatus :: Prelude.Int,
ListResourceServersResponse -> [ResourceServerType]
resourceServers :: [ResourceServerType]
}
deriving (ListResourceServersResponse -> ListResourceServersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceServersResponse -> ListResourceServersResponse -> Bool
$c/= :: ListResourceServersResponse -> ListResourceServersResponse -> Bool
== :: ListResourceServersResponse -> ListResourceServersResponse -> Bool
$c== :: ListResourceServersResponse -> ListResourceServersResponse -> Bool
Prelude.Eq, ReadPrec [ListResourceServersResponse]
ReadPrec ListResourceServersResponse
Int -> ReadS ListResourceServersResponse
ReadS [ListResourceServersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceServersResponse]
$creadListPrec :: ReadPrec [ListResourceServersResponse]
readPrec :: ReadPrec ListResourceServersResponse
$creadPrec :: ReadPrec ListResourceServersResponse
readList :: ReadS [ListResourceServersResponse]
$creadList :: ReadS [ListResourceServersResponse]
readsPrec :: Int -> ReadS ListResourceServersResponse
$creadsPrec :: Int -> ReadS ListResourceServersResponse
Prelude.Read, Int -> ListResourceServersResponse -> ShowS
[ListResourceServersResponse] -> ShowS
ListResourceServersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceServersResponse] -> ShowS
$cshowList :: [ListResourceServersResponse] -> ShowS
show :: ListResourceServersResponse -> String
$cshow :: ListResourceServersResponse -> String
showsPrec :: Int -> ListResourceServersResponse -> ShowS
$cshowsPrec :: Int -> ListResourceServersResponse -> ShowS
Prelude.Show, forall x.
Rep ListResourceServersResponse x -> ListResourceServersResponse
forall x.
ListResourceServersResponse -> Rep ListResourceServersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListResourceServersResponse x -> ListResourceServersResponse
$cfrom :: forall x.
ListResourceServersResponse -> Rep ListResourceServersResponse x
Prelude.Generic)
newListResourceServersResponse ::
Prelude.Int ->
ListResourceServersResponse
newListResourceServersResponse :: Int -> ListResourceServersResponse
newListResourceServersResponse Int
pHttpStatus_ =
ListResourceServersResponse'
{ $sel:nextToken:ListResourceServersResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListResourceServersResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:resourceServers:ListResourceServersResponse' :: [ResourceServerType]
resourceServers = forall a. Monoid a => a
Prelude.mempty
}
listResourceServersResponse_nextToken :: Lens.Lens' ListResourceServersResponse (Prelude.Maybe Prelude.Text)
listResourceServersResponse_nextToken :: Lens' ListResourceServersResponse (Maybe Text)
listResourceServersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListResourceServersResponse' :: ListResourceServersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListResourceServersResponse
s@ListResourceServersResponse' {} Maybe Text
a -> ListResourceServersResponse
s {$sel:nextToken:ListResourceServersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListResourceServersResponse)
listResourceServersResponse_httpStatus :: Lens.Lens' ListResourceServersResponse Prelude.Int
listResourceServersResponse_httpStatus :: Lens' ListResourceServersResponse Int
listResourceServersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServersResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListResourceServersResponse' :: ListResourceServersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListResourceServersResponse
s@ListResourceServersResponse' {} Int
a -> ListResourceServersResponse
s {$sel:httpStatus:ListResourceServersResponse' :: Int
httpStatus = Int
a} :: ListResourceServersResponse)
listResourceServersResponse_resourceServers :: Lens.Lens' ListResourceServersResponse [ResourceServerType]
listResourceServersResponse_resourceServers :: Lens' ListResourceServersResponse [ResourceServerType]
listResourceServersResponse_resourceServers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceServersResponse' {[ResourceServerType]
resourceServers :: [ResourceServerType]
$sel:resourceServers:ListResourceServersResponse' :: ListResourceServersResponse -> [ResourceServerType]
resourceServers} -> [ResourceServerType]
resourceServers) (\s :: ListResourceServersResponse
s@ListResourceServersResponse' {} [ResourceServerType]
a -> ListResourceServersResponse
s {$sel:resourceServers:ListResourceServersResponse' :: [ResourceServerType]
resourceServers = [ResourceServerType]
a} :: ListResourceServersResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData ListResourceServersResponse where
rnf :: ListResourceServersResponse -> ()
rnf ListResourceServersResponse' {Int
[ResourceServerType]
Maybe Text
resourceServers :: [ResourceServerType]
httpStatus :: Int
nextToken :: Maybe Text
$sel:resourceServers:ListResourceServersResponse' :: ListResourceServersResponse -> [ResourceServerType]
$sel:httpStatus:ListResourceServersResponse' :: ListResourceServersResponse -> Int
$sel:nextToken:ListResourceServersResponse' :: ListResourceServersResponse -> 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 Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ResourceServerType]
resourceServers