{-# 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.GetUICustomization
(
getUICustomization
, GetUICustomization
, guicClientId
, guicUserPoolId
, getUICustomizationResponse
, GetUICustomizationResponse
, guicrsResponseStatus
, guicrsUICustomization
) 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 GetUICustomization = GetUICustomization'
{ _guicClientId :: !(Maybe (Sensitive Text))
, _guicUserPoolId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
getUICustomization
:: Text
-> GetUICustomization
getUICustomization pUserPoolId_ =
GetUICustomization' {_guicClientId = Nothing, _guicUserPoolId = pUserPoolId_}
guicClientId :: Lens' GetUICustomization (Maybe Text)
guicClientId = lens _guicClientId (\ s a -> s{_guicClientId = a}) . mapping _Sensitive
guicUserPoolId :: Lens' GetUICustomization Text
guicUserPoolId = lens _guicUserPoolId (\ s a -> s{_guicUserPoolId = a})
instance AWSRequest GetUICustomization where
type Rs GetUICustomization =
GetUICustomizationResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
GetUICustomizationResponse' <$>
(pure (fromEnum s)) <*> (x .:> "UICustomization"))
instance Hashable GetUICustomization where
instance NFData GetUICustomization where
instance ToHeaders GetUICustomization where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.GetUICustomization"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetUICustomization where
toJSON GetUICustomization'{..}
= object
(catMaybes
[("ClientId" .=) <$> _guicClientId,
Just ("UserPoolId" .= _guicUserPoolId)])
instance ToPath GetUICustomization where
toPath = const "/"
instance ToQuery GetUICustomization where
toQuery = const mempty
data GetUICustomizationResponse = GetUICustomizationResponse'
{ _guicrsResponseStatus :: !Int
, _guicrsUICustomization :: !UICustomizationType
} deriving (Eq, Show, Data, Typeable, Generic)
getUICustomizationResponse
:: Int
-> UICustomizationType
-> GetUICustomizationResponse
getUICustomizationResponse pResponseStatus_ pUICustomization_ =
GetUICustomizationResponse'
{ _guicrsResponseStatus = pResponseStatus_
, _guicrsUICustomization = pUICustomization_
}
guicrsResponseStatus :: Lens' GetUICustomizationResponse Int
guicrsResponseStatus = lens _guicrsResponseStatus (\ s a -> s{_guicrsResponseStatus = a})
guicrsUICustomization :: Lens' GetUICustomizationResponse UICustomizationType
guicrsUICustomization = lens _guicrsUICustomization (\ s a -> s{_guicrsUICustomization = a})
instance NFData GetUICustomizationResponse where