{-# 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.ConfirmSignUp
(
confirmSignUp
, ConfirmSignUp
, csuForceAliasCreation
, csuSecretHash
, csuClientId
, csuUsername
, csuConfirmationCode
, confirmSignUpResponse
, ConfirmSignUpResponse
, csursResponseStatus
) 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 ConfirmSignUp = ConfirmSignUp'
{ _csuForceAliasCreation :: !(Maybe Bool)
, _csuSecretHash :: !(Maybe (Sensitive Text))
, _csuClientId :: !(Sensitive Text)
, _csuUsername :: !(Sensitive Text)
, _csuConfirmationCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
confirmSignUp
:: Text
-> Text
-> Text
-> ConfirmSignUp
confirmSignUp pClientId_ pUsername_ pConfirmationCode_ =
ConfirmSignUp'
{ _csuForceAliasCreation = Nothing
, _csuSecretHash = Nothing
, _csuClientId = _Sensitive # pClientId_
, _csuUsername = _Sensitive # pUsername_
, _csuConfirmationCode = pConfirmationCode_
}
csuForceAliasCreation :: Lens' ConfirmSignUp (Maybe Bool)
csuForceAliasCreation = lens _csuForceAliasCreation (\ s a -> s{_csuForceAliasCreation = a});
csuSecretHash :: Lens' ConfirmSignUp (Maybe Text)
csuSecretHash = lens _csuSecretHash (\ s a -> s{_csuSecretHash = a}) . mapping _Sensitive;
csuClientId :: Lens' ConfirmSignUp Text
csuClientId = lens _csuClientId (\ s a -> s{_csuClientId = a}) . _Sensitive;
csuUsername :: Lens' ConfirmSignUp Text
csuUsername = lens _csuUsername (\ s a -> s{_csuUsername = a}) . _Sensitive;
csuConfirmationCode :: Lens' ConfirmSignUp Text
csuConfirmationCode = lens _csuConfirmationCode (\ s a -> s{_csuConfirmationCode = a});
instance AWSRequest ConfirmSignUp where
type Rs ConfirmSignUp = ConfirmSignUpResponse
request = postJSON cognitoIdentityProvider
response
= receiveEmpty
(\ s h x ->
ConfirmSignUpResponse' <$> (pure (fromEnum s)))
instance Hashable ConfirmSignUp
instance NFData ConfirmSignUp
instance ToHeaders ConfirmSignUp where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.ConfirmSignUp" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ConfirmSignUp where
toJSON ConfirmSignUp'{..}
= object
(catMaybes
[("ForceAliasCreation" .=) <$>
_csuForceAliasCreation,
("SecretHash" .=) <$> _csuSecretHash,
Just ("ClientId" .= _csuClientId),
Just ("Username" .= _csuUsername),
Just ("ConfirmationCode" .= _csuConfirmationCode)])
instance ToPath ConfirmSignUp where
toPath = const "/"
instance ToQuery ConfirmSignUp where
toQuery = const mempty
newtype ConfirmSignUpResponse = ConfirmSignUpResponse'
{ _csursResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
confirmSignUpResponse
:: Int
-> ConfirmSignUpResponse
confirmSignUpResponse pResponseStatus_ =
ConfirmSignUpResponse'
{ _csursResponseStatus = pResponseStatus_
}
csursResponseStatus :: Lens' ConfirmSignUpResponse Int
csursResponseStatus = lens _csursResponseStatus (\ s a -> s{_csursResponseStatus = a});
instance NFData ConfirmSignUpResponse