module Network.AWS.CognitoIdentityProvider.AdminDeleteUser
(
adminDeleteUser
, AdminDeleteUser
, aUserPoolId
, aUsername
, adminDeleteUserResponse
, AdminDeleteUserResponse
) 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 AdminDeleteUser = AdminDeleteUser'
{ _aUserPoolId :: !Text
, _aUsername :: !(Sensitive Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
adminDeleteUser
:: Text
-> Text
-> AdminDeleteUser
adminDeleteUser pUserPoolId_ pUsername_ =
AdminDeleteUser'
{ _aUserPoolId = pUserPoolId_
, _aUsername = _Sensitive # pUsername_
}
aUserPoolId :: Lens' AdminDeleteUser Text
aUserPoolId = lens _aUserPoolId (\ s a -> s{_aUserPoolId = a});
aUsername :: Lens' AdminDeleteUser Text
aUsername = lens _aUsername (\ s a -> s{_aUsername = a}) . _Sensitive;
instance AWSRequest AdminDeleteUser where
type Rs AdminDeleteUser = AdminDeleteUserResponse
request = postJSON cognitoIdentityProvider
response = receiveNull AdminDeleteUserResponse'
instance Hashable AdminDeleteUser
instance NFData AdminDeleteUser
instance ToHeaders AdminDeleteUser where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminDeleteUser"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AdminDeleteUser where
toJSON AdminDeleteUser'{..}
= object
(catMaybes
[Just ("UserPoolId" .= _aUserPoolId),
Just ("Username" .= _aUsername)])
instance ToPath AdminDeleteUser where
toPath = const "/"
instance ToQuery AdminDeleteUser where
toQuery = const mempty
data AdminDeleteUserResponse =
AdminDeleteUserResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
adminDeleteUserResponse
:: AdminDeleteUserResponse
adminDeleteUserResponse = AdminDeleteUserResponse'
instance NFData AdminDeleteUserResponse