{-# 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.DeleteUserAttributes
(
deleteUserAttributes
, DeleteUserAttributes
, duaAccessToken
, duaUserAttributeNames
, deleteUserAttributesResponse
, DeleteUserAttributesResponse
, duarsResponseStatus
) 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 DeleteUserAttributes = DeleteUserAttributes'
{ _duaAccessToken :: !(Maybe (Sensitive Text))
, _duaUserAttributeNames :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteUserAttributes
:: DeleteUserAttributes
deleteUserAttributes =
DeleteUserAttributes'
{ _duaAccessToken = Nothing
, _duaUserAttributeNames = mempty
}
duaAccessToken :: Lens' DeleteUserAttributes (Maybe Text)
duaAccessToken = lens _duaAccessToken (\ s a -> s{_duaAccessToken = a}) . mapping _Sensitive;
duaUserAttributeNames :: Lens' DeleteUserAttributes [Text]
duaUserAttributeNames = lens _duaUserAttributeNames (\ s a -> s{_duaUserAttributeNames = a}) . _Coerce;
instance AWSRequest DeleteUserAttributes where
type Rs DeleteUserAttributes =
DeleteUserAttributesResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
DeleteUserAttributesResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteUserAttributes
instance NFData DeleteUserAttributes
instance ToHeaders DeleteUserAttributes where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.DeleteUserAttributes"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteUserAttributes where
toJSON DeleteUserAttributes'{..}
= object
(catMaybes
[("AccessToken" .=) <$> _duaAccessToken,
Just
("UserAttributeNames" .= _duaUserAttributeNames)])
instance ToPath DeleteUserAttributes where
toPath = const "/"
instance ToQuery DeleteUserAttributes where
toQuery = const mempty
newtype DeleteUserAttributesResponse = DeleteUserAttributesResponse'
{ _duarsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteUserAttributesResponse
:: Int
-> DeleteUserAttributesResponse
deleteUserAttributesResponse pResponseStatus_ =
DeleteUserAttributesResponse'
{ _duarsResponseStatus = pResponseStatus_
}
duarsResponseStatus :: Lens' DeleteUserAttributesResponse Int
duarsResponseStatus = lens _duarsResponseStatus (\ s a -> s{_duarsResponseStatus = a});
instance NFData DeleteUserAttributesResponse