{-# 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.VerifyUserAttribute
(
verifyUserAttribute
, VerifyUserAttribute
, vuaAccessToken
, vuaAttributeName
, vuaCode
, verifyUserAttributeResponse
, VerifyUserAttributeResponse
, vuarsResponseStatus
) 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 VerifyUserAttribute = VerifyUserAttribute'
{ _vuaAccessToken :: !(Sensitive Text)
, _vuaAttributeName :: !Text
, _vuaCode :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
verifyUserAttribute
:: Text
-> Text
-> Text
-> VerifyUserAttribute
verifyUserAttribute pAccessToken_ pAttributeName_ pCode_ =
VerifyUserAttribute'
{ _vuaAccessToken = _Sensitive # pAccessToken_
, _vuaAttributeName = pAttributeName_
, _vuaCode = pCode_
}
vuaAccessToken :: Lens' VerifyUserAttribute Text
vuaAccessToken = lens _vuaAccessToken (\ s a -> s{_vuaAccessToken = a}) . _Sensitive
vuaAttributeName :: Lens' VerifyUserAttribute Text
vuaAttributeName = lens _vuaAttributeName (\ s a -> s{_vuaAttributeName = a})
vuaCode :: Lens' VerifyUserAttribute Text
vuaCode = lens _vuaCode (\ s a -> s{_vuaCode = a})
instance AWSRequest VerifyUserAttribute where
type Rs VerifyUserAttribute =
VerifyUserAttributeResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
VerifyUserAttributeResponse' <$> (pure (fromEnum s)))
instance Hashable VerifyUserAttribute where
instance NFData VerifyUserAttribute where
instance ToHeaders VerifyUserAttribute where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.VerifyUserAttribute"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON VerifyUserAttribute where
toJSON VerifyUserAttribute'{..}
= object
(catMaybes
[Just ("AccessToken" .= _vuaAccessToken),
Just ("AttributeName" .= _vuaAttributeName),
Just ("Code" .= _vuaCode)])
instance ToPath VerifyUserAttribute where
toPath = const "/"
instance ToQuery VerifyUserAttribute where
toQuery = const mempty
newtype VerifyUserAttributeResponse = VerifyUserAttributeResponse'
{ _vuarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
verifyUserAttributeResponse
:: Int
-> VerifyUserAttributeResponse
verifyUserAttributeResponse pResponseStatus_ =
VerifyUserAttributeResponse' {_vuarsResponseStatus = pResponseStatus_}
vuarsResponseStatus :: Lens' VerifyUserAttributeResponse Int
vuarsResponseStatus = lens _vuarsResponseStatus (\ s a -> s{_vuarsResponseStatus = a})
instance NFData VerifyUserAttributeResponse where