module Network.AWS.CognitoIdentityProvider.UpdateUserPoolClient
(
updateUserPoolClient
, UpdateUserPoolClient
, uupcClientName
, uupcUserPoolId
, uupcClientId
, updateUserPoolClientResponse
, UpdateUserPoolClientResponse
, uupcrsUserPoolClient
, uupcrsResponseStatus
) 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 UpdateUserPoolClient = UpdateUserPoolClient'
{ _uupcClientName :: !(Maybe Text)
, _uupcUserPoolId :: !Text
, _uupcClientId :: !(Sensitive Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateUserPoolClient
:: Text
-> Text
-> UpdateUserPoolClient
updateUserPoolClient pUserPoolId_ pClientId_ =
UpdateUserPoolClient'
{ _uupcClientName = Nothing
, _uupcUserPoolId = pUserPoolId_
, _uupcClientId = _Sensitive # pClientId_
}
uupcClientName :: Lens' UpdateUserPoolClient (Maybe Text)
uupcClientName = lens _uupcClientName (\ s a -> s{_uupcClientName = a});
uupcUserPoolId :: Lens' UpdateUserPoolClient Text
uupcUserPoolId = lens _uupcUserPoolId (\ s a -> s{_uupcUserPoolId = a});
uupcClientId :: Lens' UpdateUserPoolClient Text
uupcClientId = lens _uupcClientId (\ s a -> s{_uupcClientId = a}) . _Sensitive;
instance AWSRequest UpdateUserPoolClient where
type Rs UpdateUserPoolClient =
UpdateUserPoolClientResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
UpdateUserPoolClientResponse' <$>
(x .?> "UserPoolClient") <*> (pure (fromEnum s)))
instance Hashable UpdateUserPoolClient
instance NFData UpdateUserPoolClient
instance ToHeaders UpdateUserPoolClient where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.UpdateUserPoolClient"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateUserPoolClient where
toJSON UpdateUserPoolClient'{..}
= object
(catMaybes
[("ClientName" .=) <$> _uupcClientName,
Just ("UserPoolId" .= _uupcUserPoolId),
Just ("ClientId" .= _uupcClientId)])
instance ToPath UpdateUserPoolClient where
toPath = const "/"
instance ToQuery UpdateUserPoolClient where
toQuery = const mempty
data UpdateUserPoolClientResponse = UpdateUserPoolClientResponse'
{ _uupcrsUserPoolClient :: !(Maybe UserPoolClientType)
, _uupcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateUserPoolClientResponse
:: Int
-> UpdateUserPoolClientResponse
updateUserPoolClientResponse pResponseStatus_ =
UpdateUserPoolClientResponse'
{ _uupcrsUserPoolClient = Nothing
, _uupcrsResponseStatus = pResponseStatus_
}
uupcrsUserPoolClient :: Lens' UpdateUserPoolClientResponse (Maybe UserPoolClientType)
uupcrsUserPoolClient = lens _uupcrsUserPoolClient (\ s a -> s{_uupcrsUserPoolClient = a});
uupcrsResponseStatus :: Lens' UpdateUserPoolClientResponse Int
uupcrsResponseStatus = lens _uupcrsResponseStatus (\ s a -> s{_uupcrsResponseStatus = a});
instance NFData UpdateUserPoolClientResponse