{-# 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.DeleteUserPoolDomain
(
deleteUserPoolDomain
, DeleteUserPoolDomain
, dupdDomain
, dupdUserPoolId
, deleteUserPoolDomainResponse
, DeleteUserPoolDomainResponse
, dupdrsResponseStatus
) 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 DeleteUserPoolDomain = DeleteUserPoolDomain'
{ _dupdDomain :: !Text
, _dupdUserPoolId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteUserPoolDomain
:: Text
-> Text
-> DeleteUserPoolDomain
deleteUserPoolDomain pDomain_ pUserPoolId_ =
DeleteUserPoolDomain' {_dupdDomain = pDomain_, _dupdUserPoolId = pUserPoolId_}
dupdDomain :: Lens' DeleteUserPoolDomain Text
dupdDomain = lens _dupdDomain (\ s a -> s{_dupdDomain = a})
dupdUserPoolId :: Lens' DeleteUserPoolDomain Text
dupdUserPoolId = lens _dupdUserPoolId (\ s a -> s{_dupdUserPoolId = a})
instance AWSRequest DeleteUserPoolDomain where
type Rs DeleteUserPoolDomain =
DeleteUserPoolDomainResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
DeleteUserPoolDomainResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteUserPoolDomain where
instance NFData DeleteUserPoolDomain where
instance ToHeaders DeleteUserPoolDomain where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.DeleteUserPoolDomain"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteUserPoolDomain where
toJSON DeleteUserPoolDomain'{..}
= object
(catMaybes
[Just ("Domain" .= _dupdDomain),
Just ("UserPoolId" .= _dupdUserPoolId)])
instance ToPath DeleteUserPoolDomain where
toPath = const "/"
instance ToQuery DeleteUserPoolDomain where
toQuery = const mempty
newtype DeleteUserPoolDomainResponse = DeleteUserPoolDomainResponse'
{ _dupdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteUserPoolDomainResponse
:: Int
-> DeleteUserPoolDomainResponse
deleteUserPoolDomainResponse pResponseStatus_ =
DeleteUserPoolDomainResponse' {_dupdrsResponseStatus = pResponseStatus_}
dupdrsResponseStatus :: Lens' DeleteUserPoolDomainResponse Int
dupdrsResponseStatus = lens _dupdrsResponseStatus (\ s a -> s{_dupdrsResponseStatus = a})
instance NFData DeleteUserPoolDomainResponse where