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 :: !(Maybe (Sensitive Text))
, _vuaAttributeName :: !Text
, _vuaCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
verifyUserAttribute
:: Text
-> Text
-> VerifyUserAttribute
verifyUserAttribute pAttributeName_ pCode_ =
VerifyUserAttribute'
{ _vuaAccessToken = Nothing
, _vuaAttributeName = pAttributeName_
, _vuaCode = pCode_
}
vuaAccessToken :: Lens' VerifyUserAttribute (Maybe Text)
vuaAccessToken = lens _vuaAccessToken (\ s a -> s{_vuaAccessToken = a}) . mapping _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
instance NFData VerifyUserAttribute
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
[("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