module Network.AWS.CognitoIdentityProvider.SignUp
(
signUp
, SignUp
, suUserAttributes
, suSecretHash
, suValidationData
, suClientId
, suUsername
, suPassword
, signUpResponse
, SignUpResponse
, sursUserConfirmed
, sursCodeDeliveryDetails
, sursResponseStatus
) 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 SignUp = SignUp'
{ _suUserAttributes :: !(Maybe [AttributeType])
, _suSecretHash :: !(Maybe (Sensitive Text))
, _suValidationData :: !(Maybe [AttributeType])
, _suClientId :: !(Sensitive Text)
, _suUsername :: !(Sensitive Text)
, _suPassword :: !(Sensitive Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signUp
:: Text
-> Text
-> Text
-> SignUp
signUp pClientId_ pUsername_ pPassword_ =
SignUp'
{ _suUserAttributes = Nothing
, _suSecretHash = Nothing
, _suValidationData = Nothing
, _suClientId = _Sensitive # pClientId_
, _suUsername = _Sensitive # pUsername_
, _suPassword = _Sensitive # pPassword_
}
suUserAttributes :: Lens' SignUp [AttributeType]
suUserAttributes = lens _suUserAttributes (\ s a -> s{_suUserAttributes = a}) . _Default . _Coerce;
suSecretHash :: Lens' SignUp (Maybe Text)
suSecretHash = lens _suSecretHash (\ s a -> s{_suSecretHash = a}) . mapping _Sensitive;
suValidationData :: Lens' SignUp [AttributeType]
suValidationData = lens _suValidationData (\ s a -> s{_suValidationData = a}) . _Default . _Coerce;
suClientId :: Lens' SignUp Text
suClientId = lens _suClientId (\ s a -> s{_suClientId = a}) . _Sensitive;
suUsername :: Lens' SignUp Text
suUsername = lens _suUsername (\ s a -> s{_suUsername = a}) . _Sensitive;
suPassword :: Lens' SignUp Text
suPassword = lens _suPassword (\ s a -> s{_suPassword = a}) . _Sensitive;
instance AWSRequest SignUp where
type Rs SignUp = SignUpResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
SignUpResponse' <$>
(x .?> "UserConfirmed") <*>
(x .?> "CodeDeliveryDetails")
<*> (pure (fromEnum s)))
instance Hashable SignUp
instance NFData SignUp
instance ToHeaders SignUp where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.SignUp" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SignUp where
toJSON SignUp'{..}
= object
(catMaybes
[("UserAttributes" .=) <$> _suUserAttributes,
("SecretHash" .=) <$> _suSecretHash,
("ValidationData" .=) <$> _suValidationData,
Just ("ClientId" .= _suClientId),
Just ("Username" .= _suUsername),
Just ("Password" .= _suPassword)])
instance ToPath SignUp where
toPath = const "/"
instance ToQuery SignUp where
toQuery = const mempty
data SignUpResponse = SignUpResponse'
{ _sursUserConfirmed :: !(Maybe Bool)
, _sursCodeDeliveryDetails :: !(Maybe CodeDeliveryDetailsType)
, _sursResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signUpResponse
:: Int
-> SignUpResponse
signUpResponse pResponseStatus_ =
SignUpResponse'
{ _sursUserConfirmed = Nothing
, _sursCodeDeliveryDetails = Nothing
, _sursResponseStatus = pResponseStatus_
}
sursUserConfirmed :: Lens' SignUpResponse (Maybe Bool)
sursUserConfirmed = lens _sursUserConfirmed (\ s a -> s{_sursUserConfirmed = a});
sursCodeDeliveryDetails :: Lens' SignUpResponse (Maybe CodeDeliveryDetailsType)
sursCodeDeliveryDetails = lens _sursCodeDeliveryDetails (\ s a -> s{_sursCodeDeliveryDetails = a});
sursResponseStatus :: Lens' SignUpResponse Int
sursResponseStatus = lens _sursResponseStatus (\ s a -> s{_sursResponseStatus = a});
instance NFData SignUpResponse