{-# 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
, duaUserAttributeNames
, duaAccessToken
, 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'
{ _duaUserAttributeNames :: ![Text]
, _duaAccessToken :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
deleteUserAttributes
:: Text
-> DeleteUserAttributes
deleteUserAttributes pAccessToken_ =
DeleteUserAttributes'
{ _duaUserAttributeNames = mempty
, _duaAccessToken = _Sensitive # pAccessToken_
}
duaUserAttributeNames :: Lens' DeleteUserAttributes [Text]
duaUserAttributeNames = lens _duaUserAttributeNames (\ s a -> s{_duaUserAttributeNames = a}) . _Coerce
duaAccessToken :: Lens' DeleteUserAttributes Text
duaAccessToken = lens _duaAccessToken (\ s a -> s{_duaAccessToken = a}) . _Sensitive
instance AWSRequest DeleteUserAttributes where
type Rs DeleteUserAttributes =
DeleteUserAttributesResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
DeleteUserAttributesResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteUserAttributes where
instance NFData DeleteUserAttributes where
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
[Just
("UserAttributeNames" .= _duaUserAttributeNames),
Just ("AccessToken" .= _duaAccessToken)])
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 where