{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CognitoIdentityProvider.ListUserPoolClients
(
listUserPoolClients
, ListUserPoolClients
, lupcNextToken
, lupcMaxResults
, lupcUserPoolId
, listUserPoolClientsResponse
, ListUserPoolClientsResponse
, lupcrsNextToken
, lupcrsUserPoolClients
, lupcrsResponseStatus
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListUserPoolClients = ListUserPoolClients'
{ _lupcNextToken :: !(Maybe Text)
, _lupcMaxResults :: !(Maybe Nat)
, _lupcUserPoolId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listUserPoolClients
:: Text
-> ListUserPoolClients
listUserPoolClients pUserPoolId_ =
ListUserPoolClients'
{ _lupcNextToken = Nothing
, _lupcMaxResults = Nothing
, _lupcUserPoolId = pUserPoolId_
}
lupcNextToken :: Lens' ListUserPoolClients (Maybe Text)
lupcNextToken = lens _lupcNextToken (\ s a -> s{_lupcNextToken = a})
lupcMaxResults :: Lens' ListUserPoolClients (Maybe Natural)
lupcMaxResults = lens _lupcMaxResults (\ s a -> s{_lupcMaxResults = a}) . mapping _Nat
lupcUserPoolId :: Lens' ListUserPoolClients Text
lupcUserPoolId = lens _lupcUserPoolId (\ s a -> s{_lupcUserPoolId = a})
instance AWSRequest ListUserPoolClients where
type Rs ListUserPoolClients =
ListUserPoolClientsResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
ListUserPoolClientsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "UserPoolClients" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListUserPoolClients where
instance NFData ListUserPoolClients where
instance ToHeaders ListUserPoolClients where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.ListUserPoolClients"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListUserPoolClients where
toJSON ListUserPoolClients'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lupcNextToken,
("MaxResults" .=) <$> _lupcMaxResults,
Just ("UserPoolId" .= _lupcUserPoolId)])
instance ToPath ListUserPoolClients where
toPath = const "/"
instance ToQuery ListUserPoolClients where
toQuery = const mempty
data ListUserPoolClientsResponse = ListUserPoolClientsResponse'
{ _lupcrsNextToken :: !(Maybe Text)
, _lupcrsUserPoolClients :: !(Maybe [UserPoolClientDescription])
, _lupcrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
listUserPoolClientsResponse
:: Int
-> ListUserPoolClientsResponse
listUserPoolClientsResponse pResponseStatus_ =
ListUserPoolClientsResponse'
{ _lupcrsNextToken = Nothing
, _lupcrsUserPoolClients = Nothing
, _lupcrsResponseStatus = pResponseStatus_
}
lupcrsNextToken :: Lens' ListUserPoolClientsResponse (Maybe Text)
lupcrsNextToken = lens _lupcrsNextToken (\ s a -> s{_lupcrsNextToken = a})
lupcrsUserPoolClients :: Lens' ListUserPoolClientsResponse [UserPoolClientDescription]
lupcrsUserPoolClients = lens _lupcrsUserPoolClients (\ s a -> s{_lupcrsUserPoolClients = a}) . _Default . _Coerce
lupcrsResponseStatus :: Lens' ListUserPoolClientsResponse Int
lupcrsResponseStatus = lens _lupcrsResponseStatus (\ s a -> s{_lupcrsResponseStatus = a})
instance NFData ListUserPoolClientsResponse where