{-# 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
, csuAnalyticsMetadata
, csuUserContextData
, 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)
, _csuAnalyticsMetadata :: !(Maybe AnalyticsMetadataType)
, _csuUserContextData :: !(Maybe UserContextDataType)
, _csuSecretHash :: !(Maybe (Sensitive Text))
, _csuClientId :: !(Sensitive Text)
, _csuUsername :: !(Sensitive Text)
, _csuConfirmationCode :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
confirmSignUp
:: Text
-> Text
-> Text
-> ConfirmSignUp
confirmSignUp pClientId_ pUsername_ pConfirmationCode_ =
ConfirmSignUp'
{ _csuForceAliasCreation = Nothing
, _csuAnalyticsMetadata = Nothing
, _csuUserContextData = Nothing
, _csuSecretHash = Nothing
, _csuClientId = _Sensitive # pClientId_
, _csuUsername = _Sensitive # pUsername_
, _csuConfirmationCode = pConfirmationCode_
}
csuForceAliasCreation :: Lens' ConfirmSignUp (Maybe Bool)
csuForceAliasCreation = lens _csuForceAliasCreation (\ s a -> s{_csuForceAliasCreation = a})
csuAnalyticsMetadata :: Lens' ConfirmSignUp (Maybe AnalyticsMetadataType)
csuAnalyticsMetadata = lens _csuAnalyticsMetadata (\ s a -> s{_csuAnalyticsMetadata = a})
csuUserContextData :: Lens' ConfirmSignUp (Maybe UserContextDataType)
csuUserContextData = lens _csuUserContextData (\ s a -> s{_csuUserContextData = 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 where
instance NFData ConfirmSignUp where
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,
("AnalyticsMetadata" .=) <$> _csuAnalyticsMetadata,
("UserContextData" .=) <$> _csuUserContextData,
("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 where