{-# 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.UpdateUserPoolClient
(
updateUserPoolClient
, UpdateUserPoolClient
, uupcRefreshTokenValidity
, uupcExplicitAuthFlows
, uupcSupportedIdentityProviders
, uupcLogoutURLs
, uupcAllowedOAuthFlowsUserPoolClient
, uupcDefaultRedirectURI
, uupcWriteAttributes
, uupcReadAttributes
, uupcAllowedOAuthScopes
, uupcAllowedOAuthFlows
, uupcAnalyticsConfiguration
, uupcClientName
, uupcCallbackURLs
, 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'
{ _uupcRefreshTokenValidity :: !(Maybe Nat)
, _uupcExplicitAuthFlows :: !(Maybe [ExplicitAuthFlowsType])
, _uupcSupportedIdentityProviders :: !(Maybe [Text])
, _uupcLogoutURLs :: !(Maybe [Text])
, _uupcAllowedOAuthFlowsUserPoolClient :: !(Maybe Bool)
, _uupcDefaultRedirectURI :: !(Maybe Text)
, _uupcWriteAttributes :: !(Maybe [Text])
, _uupcReadAttributes :: !(Maybe [Text])
, _uupcAllowedOAuthScopes :: !(Maybe [Text])
, _uupcAllowedOAuthFlows :: !(Maybe [OAuthFlowType])
, _uupcAnalyticsConfiguration :: !(Maybe AnalyticsConfigurationType)
, _uupcClientName :: !(Maybe Text)
, _uupcCallbackURLs :: !(Maybe [Text])
, _uupcUserPoolId :: !Text
, _uupcClientId :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
updateUserPoolClient
:: Text
-> Text
-> UpdateUserPoolClient
updateUserPoolClient pUserPoolId_ pClientId_ =
UpdateUserPoolClient'
{ _uupcRefreshTokenValidity = Nothing
, _uupcExplicitAuthFlows = Nothing
, _uupcSupportedIdentityProviders = Nothing
, _uupcLogoutURLs = Nothing
, _uupcAllowedOAuthFlowsUserPoolClient = Nothing
, _uupcDefaultRedirectURI = Nothing
, _uupcWriteAttributes = Nothing
, _uupcReadAttributes = Nothing
, _uupcAllowedOAuthScopes = Nothing
, _uupcAllowedOAuthFlows = Nothing
, _uupcAnalyticsConfiguration = Nothing
, _uupcClientName = Nothing
, _uupcCallbackURLs = Nothing
, _uupcUserPoolId = pUserPoolId_
, _uupcClientId = _Sensitive # pClientId_
}
uupcRefreshTokenValidity :: Lens' UpdateUserPoolClient (Maybe Natural)
uupcRefreshTokenValidity = lens _uupcRefreshTokenValidity (\ s a -> s{_uupcRefreshTokenValidity = a}) . mapping _Nat
uupcExplicitAuthFlows :: Lens' UpdateUserPoolClient [ExplicitAuthFlowsType]
uupcExplicitAuthFlows = lens _uupcExplicitAuthFlows (\ s a -> s{_uupcExplicitAuthFlows = a}) . _Default . _Coerce
uupcSupportedIdentityProviders :: Lens' UpdateUserPoolClient [Text]
uupcSupportedIdentityProviders = lens _uupcSupportedIdentityProviders (\ s a -> s{_uupcSupportedIdentityProviders = a}) . _Default . _Coerce
uupcLogoutURLs :: Lens' UpdateUserPoolClient [Text]
uupcLogoutURLs = lens _uupcLogoutURLs (\ s a -> s{_uupcLogoutURLs = a}) . _Default . _Coerce
uupcAllowedOAuthFlowsUserPoolClient :: Lens' UpdateUserPoolClient (Maybe Bool)
uupcAllowedOAuthFlowsUserPoolClient = lens _uupcAllowedOAuthFlowsUserPoolClient (\ s a -> s{_uupcAllowedOAuthFlowsUserPoolClient = a})
uupcDefaultRedirectURI :: Lens' UpdateUserPoolClient (Maybe Text)
uupcDefaultRedirectURI = lens _uupcDefaultRedirectURI (\ s a -> s{_uupcDefaultRedirectURI = a})
uupcWriteAttributes :: Lens' UpdateUserPoolClient [Text]
uupcWriteAttributes = lens _uupcWriteAttributes (\ s a -> s{_uupcWriteAttributes = a}) . _Default . _Coerce
uupcReadAttributes :: Lens' UpdateUserPoolClient [Text]
uupcReadAttributes = lens _uupcReadAttributes (\ s a -> s{_uupcReadAttributes = a}) . _Default . _Coerce
uupcAllowedOAuthScopes :: Lens' UpdateUserPoolClient [Text]
uupcAllowedOAuthScopes = lens _uupcAllowedOAuthScopes (\ s a -> s{_uupcAllowedOAuthScopes = a}) . _Default . _Coerce
uupcAllowedOAuthFlows :: Lens' UpdateUserPoolClient [OAuthFlowType]
uupcAllowedOAuthFlows = lens _uupcAllowedOAuthFlows (\ s a -> s{_uupcAllowedOAuthFlows = a}) . _Default . _Coerce
uupcAnalyticsConfiguration :: Lens' UpdateUserPoolClient (Maybe AnalyticsConfigurationType)
uupcAnalyticsConfiguration = lens _uupcAnalyticsConfiguration (\ s a -> s{_uupcAnalyticsConfiguration = a})
uupcClientName :: Lens' UpdateUserPoolClient (Maybe Text)
uupcClientName = lens _uupcClientName (\ s a -> s{_uupcClientName = a})
uupcCallbackURLs :: Lens' UpdateUserPoolClient [Text]
uupcCallbackURLs = lens _uupcCallbackURLs (\ s a -> s{_uupcCallbackURLs = a}) . _Default . _Coerce
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 where
instance NFData UpdateUserPoolClient where
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
[("RefreshTokenValidity" .=) <$>
_uupcRefreshTokenValidity,
("ExplicitAuthFlows" .=) <$> _uupcExplicitAuthFlows,
("SupportedIdentityProviders" .=) <$>
_uupcSupportedIdentityProviders,
("LogoutURLs" .=) <$> _uupcLogoutURLs,
("AllowedOAuthFlowsUserPoolClient" .=) <$>
_uupcAllowedOAuthFlowsUserPoolClient,
("DefaultRedirectURI" .=) <$>
_uupcDefaultRedirectURI,
("WriteAttributes" .=) <$> _uupcWriteAttributes,
("ReadAttributes" .=) <$> _uupcReadAttributes,
("AllowedOAuthScopes" .=) <$>
_uupcAllowedOAuthScopes,
("AllowedOAuthFlows" .=) <$> _uupcAllowedOAuthFlows,
("AnalyticsConfiguration" .=) <$>
_uupcAnalyticsConfiguration,
("ClientName" .=) <$> _uupcClientName,
("CallbackURLs" .=) <$> _uupcCallbackURLs,
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, 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 where