Skip to content

Commit

Permalink
Regenerating amazonka-cognito-idp from latest service definition
Browse files Browse the repository at this point in the history
  • Loading branch information
brendanhay committed Nov 29, 2016
1 parent 3a3ce67 commit 388099f
Show file tree
Hide file tree
Showing 21 changed files with 552 additions and 55 deletions.
1 change: 1 addition & 0 deletions amazonka-cognito-idp/amazonka-cognito-idp.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,7 @@ library
Network.AWS.CognitoIdentityProvider
, Network.AWS.CognitoIdentityProvider.AddCustomAttributes
, Network.AWS.CognitoIdentityProvider.AdminConfirmSignUp
, Network.AWS.CognitoIdentityProvider.AdminCreateUser
, Network.AWS.CognitoIdentityProvider.AdminDeleteUser
, Network.AWS.CognitoIdentityProvider.AdminDeleteUserAttributes
, Network.AWS.CognitoIdentityProvider.AdminDisableUser
Expand Down
Empty file.
Empty file.
34 changes: 30 additions & 4 deletions amazonka-cognito-idp/gen/Network/AWS/CognitoIdentityProvider.hs
Original file line number Diff line number Diff line change
Expand Up @@ -11,12 +11,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- You can create a user pool in Amazon Cognito Identity to manage directories and users. You can authenticate a user to obtain tokens related to user identity and access policies.
-- Using the Amazon Cognito Your User Pools API, you can create a user pool to manage directories and users. You can authenticate a user to obtain tokens related to user identity and access policies.
--
--
-- This API reference provides information about user pools in Amazon Cognito Identity.
-- This API reference provides information about user pools in Amazon Cognito Your User Pools.
--
-- For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito> .
-- For more information, see the Amazon Cognito Documentation.
--
module Network.AWS.CognitoIdentityProvider
(
Expand All @@ -26,6 +26,9 @@ module Network.AWS.CognitoIdentityProvider
-- * Errors
-- $errors

-- ** UnsupportedUserStateException
, _UnsupportedUserStateException

-- ** PasswordResetRequiredException
, _PasswordResetRequiredException

Expand Down Expand Up @@ -224,6 +227,9 @@ module Network.AWS.CognitoIdentityProvider
-- ** AdminUpdateDeviceStatus
, module Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus

-- ** AdminCreateUser
, module Network.AWS.CognitoIdentityProvider.AdminCreateUser

-- ** AddCustomAttributes
, module Network.AWS.CognitoIdentityProvider.AddCustomAttributes

Expand Down Expand Up @@ -301,6 +307,9 @@ module Network.AWS.CognitoIdentityProvider
-- ** ExplicitAuthFlowsType
, ExplicitAuthFlowsType (..)

-- ** MessageActionType
, MessageActionType (..)

-- ** StatusType
, StatusType (..)

Expand All @@ -316,6 +325,13 @@ module Network.AWS.CognitoIdentityProvider
-- ** VerifiedAttributeType
, VerifiedAttributeType (..)

-- ** AdminCreateUserConfigType
, AdminCreateUserConfigType
, adminCreateUserConfigType
, acuctAllowAdminCreateUserOnly
, acuctUnusedAccountValidityDays
, acuctInviteMessageTemplate

-- ** AttributeType
, AttributeType
, attributeType
Expand Down Expand Up @@ -384,6 +400,13 @@ module Network.AWS.CognitoIdentityProvider
, motDeliveryMedium
, motAttributeName

-- ** MessageTemplateType
, MessageTemplateType
, messageTemplateType
, mttEmailSubject
, mttSMSMessage
, mttEmailMessage

-- ** NewDeviceMetadataType
, NewDeviceMetadataType
, newDeviceMetadataType
Expand Down Expand Up @@ -419,8 +442,8 @@ module Network.AWS.CognitoIdentityProvider
-- ** SmsConfigurationType
, SmsConfigurationType
, smsConfigurationType
, sctSNSCallerARN
, sctExternalId
, sctSNSCallerARN

-- ** StringAttributeConstraintsType
, StringAttributeConstraintsType
Expand Down Expand Up @@ -502,6 +525,7 @@ module Network.AWS.CognitoIdentityProvider
, uptCreationDate
, uptLambdaConfig
, uptSmsConfiguration
, uptAdminCreateUserConfig
, uptDeviceConfiguration
, uptAutoVerifiedAttributes
, uptPolicies
Expand All @@ -514,11 +538,13 @@ module Network.AWS.CognitoIdentityProvider
, utUsername
, utUserCreateDate
, utAttributes
, utMFAOptions
, utUserLastModifiedDate
) where

import Network.AWS.CognitoIdentityProvider.AddCustomAttributes
import Network.AWS.CognitoIdentityProvider.AdminConfirmSignUp
import Network.AWS.CognitoIdentityProvider.AdminCreateUser
import Network.AWS.CognitoIdentityProvider.AdminDeleteUser
import Network.AWS.CognitoIdentityProvider.AdminDeleteUserAttributes
import Network.AWS.CognitoIdentityProvider.AdminDisableUser
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1,216 @@
{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module : Network.AWS.CognitoIdentityProvider.AdminCreateUser
-- Copyright : (c) 2013-2016 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new user in the specified user pool and sends a welcome message via email or phone (SMS). This message is based on a template that you configured in your call to CreateUserPool or UpdateUserPool. This template includes your custom sign-up instructions and placeholders for user name and temporary password.
--
--
-- Requires developer credentials.
--
module Network.AWS.CognitoIdentityProvider.AdminCreateUser
(
-- * Creating a Request
adminCreateUser
, AdminCreateUser
-- * Request Lenses
, acuTemporaryPassword
, acuForceAliasCreation
, acuDesiredDeliveryMediums
, acuMessageAction
, acuUserAttributes
, acuValidationData
, acuUserPoolId
, acuUsername

-- * Destructuring the Response
, adminCreateUserResponse
, AdminCreateUserResponse
-- * Response Lenses
, acursUser
, acursResponseStatus
) 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

-- | Represents the request to create a user in the specified user pool.
--
--
--
-- /See:/ 'adminCreateUser' smart constructor.
data AdminCreateUser = AdminCreateUser'
{ _acuTemporaryPassword :: !(Maybe (Sensitive Text))
, _acuForceAliasCreation :: !(Maybe Bool)
, _acuDesiredDeliveryMediums :: !(Maybe [DeliveryMediumType])
, _acuMessageAction :: !(Maybe MessageActionType)
, _acuUserAttributes :: !(Maybe [AttributeType])
, _acuValidationData :: !(Maybe [AttributeType])
, _acuUserPoolId :: !Text
, _acuUsername :: !(Sensitive Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'AdminCreateUser' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'acuTemporaryPassword' - The user's temporary password. This password must conform to the password policy that you specified when you created the user pool. The temporary password is valid only once. To complete the Admin Create User flow, the user must enter the temporary password in the sign-in page along with a new password to be used in all future sign-ins. This parameter is not required. If you do not specify a value, Amazon Cognito generates one for you. The temporary password can only be used until the user account expiration limit that you specified when you created the user pool. To reset the account after that time limit, you must call AdminCreateUser again, specifying "RESEND" for the MessageAction parameter.
--
-- * 'acuForceAliasCreation' - This parameter is only used if the phone_number_verified or email_verified attribute is set to True. Otherwise, it is ignored. If this parameter is set to True and the phone number or email address specified in the UserAttributes parameter already exists as an alias with a different user, the API call will migrate the alias from the previous user to the newly created user. The previous user will no longer be able to log in using that alias. If this parameter is set to False, the API throws an AliasExistsException error if the alias already exists. The default value is False.
--
-- * 'acuDesiredDeliveryMediums' - Specify "EMAIL" if email will be used to send the welcome message. Specify "SMS" if the phone number will be used. The default value is "SMS". More than one value can be specified.
--
-- * 'acuMessageAction' - Set to "RESEND" to resend the invitation message to a user that already exists and reset the expiration limit on the user's account. Set to "SUPPRESS" to suppress sending the message. Only one value can be specified.
--
-- * 'acuUserAttributes' - An array of name-value pairs that contain user attributes and attribute values to be set for the user to be created. You can create a user without specifying any attributes other than Username. However, any attributes that you specify as required (in CreateUserPool or in the __Attributes__ tab of the console) must be supplied either by you (in your call to AdminCreateUser) or by the user (when he or she signs up in response to your welcome message). To send a message inviting the user to sign up, you must specify the user's email address or phone number. This can be done in your call to AdminCreateUser or in the __Users__ tab of the Amazon Cognito console for managing your user pools. In your call to AdminCreateUser, you can set the email_verified attribute to True, and you can set the phone_number_verified attribute to True. (You cannot do this by calling other operations such as AdminUpdateUserAttributes.) * __email__ : The email address of the user to whom the message that contains the code and username will be sent. Required if the email_verified attribute is set to True, or if "EMAIL" is specified in the DesiredDeliveryMediums parameter. * __phone_number__ : The phone number of the user to whom the message that contains the code and username will be sent. Required if the phone_number_verified attribute is set to True, or if "SMS" is specified in the DesiredDeliveryMediums parameter.
--
-- * 'acuValidationData' - The user's validation data. This is an array of name-value pairs that contain user attributes and attribute values that you can use for custom validation, such as restricting the types of user accounts that can be registered. For example, you might choose to allow or disallow user sign-up based on the user's domain. To configure custom validation, you must create a Pre Sign-up Lambda trigger for the user pool as described in the Amazon Cognito Developer Guide. The Lambda trigger receives the validation data and uses it in the validation process. The user's validation data is not persisted.
--
-- * 'acuUserPoolId' - The user pool ID for the user pool where the user will be created.
--
-- * 'acuUsername' - The username for the user. Must be unique within the user pool. Must be a UTF-8 string between 1 and 128 characters. After the user is created, the username cannot be changed.
adminCreateUser
:: Text -- ^ 'acuUserPoolId'
-> Text -- ^ 'acuUsername'
-> AdminCreateUser
adminCreateUser pUserPoolId_ pUsername_ =
AdminCreateUser'
{ _acuTemporaryPassword = Nothing
, _acuForceAliasCreation = Nothing
, _acuDesiredDeliveryMediums = Nothing
, _acuMessageAction = Nothing
, _acuUserAttributes = Nothing
, _acuValidationData = Nothing
, _acuUserPoolId = pUserPoolId_
, _acuUsername = _Sensitive # pUsername_
}

-- | The user's temporary password. This password must conform to the password policy that you specified when you created the user pool. The temporary password is valid only once. To complete the Admin Create User flow, the user must enter the temporary password in the sign-in page along with a new password to be used in all future sign-ins. This parameter is not required. If you do not specify a value, Amazon Cognito generates one for you. The temporary password can only be used until the user account expiration limit that you specified when you created the user pool. To reset the account after that time limit, you must call AdminCreateUser again, specifying "RESEND" for the MessageAction parameter.
acuTemporaryPassword :: Lens' AdminCreateUser (Maybe Text)
acuTemporaryPassword = lens _acuTemporaryPassword (\ s a -> s{_acuTemporaryPassword = a}) . mapping _Sensitive;

-- | This parameter is only used if the phone_number_verified or email_verified attribute is set to True. Otherwise, it is ignored. If this parameter is set to True and the phone number or email address specified in the UserAttributes parameter already exists as an alias with a different user, the API call will migrate the alias from the previous user to the newly created user. The previous user will no longer be able to log in using that alias. If this parameter is set to False, the API throws an AliasExistsException error if the alias already exists. The default value is False.
acuForceAliasCreation :: Lens' AdminCreateUser (Maybe Bool)
acuForceAliasCreation = lens _acuForceAliasCreation (\ s a -> s{_acuForceAliasCreation = a});

-- | Specify "EMAIL" if email will be used to send the welcome message. Specify "SMS" if the phone number will be used. The default value is "SMS". More than one value can be specified.
acuDesiredDeliveryMediums :: Lens' AdminCreateUser [DeliveryMediumType]
acuDesiredDeliveryMediums = lens _acuDesiredDeliveryMediums (\ s a -> s{_acuDesiredDeliveryMediums = a}) . _Default . _Coerce;

-- | Set to "RESEND" to resend the invitation message to a user that already exists and reset the expiration limit on the user's account. Set to "SUPPRESS" to suppress sending the message. Only one value can be specified.
acuMessageAction :: Lens' AdminCreateUser (Maybe MessageActionType)
acuMessageAction = lens _acuMessageAction (\ s a -> s{_acuMessageAction = a});

-- | An array of name-value pairs that contain user attributes and attribute values to be set for the user to be created. You can create a user without specifying any attributes other than Username. However, any attributes that you specify as required (in CreateUserPool or in the __Attributes__ tab of the console) must be supplied either by you (in your call to AdminCreateUser) or by the user (when he or she signs up in response to your welcome message). To send a message inviting the user to sign up, you must specify the user's email address or phone number. This can be done in your call to AdminCreateUser or in the __Users__ tab of the Amazon Cognito console for managing your user pools. In your call to AdminCreateUser, you can set the email_verified attribute to True, and you can set the phone_number_verified attribute to True. (You cannot do this by calling other operations such as AdminUpdateUserAttributes.) * __email__ : The email address of the user to whom the message that contains the code and username will be sent. Required if the email_verified attribute is set to True, or if "EMAIL" is specified in the DesiredDeliveryMediums parameter. * __phone_number__ : The phone number of the user to whom the message that contains the code and username will be sent. Required if the phone_number_verified attribute is set to True, or if "SMS" is specified in the DesiredDeliveryMediums parameter.
acuUserAttributes :: Lens' AdminCreateUser [AttributeType]
acuUserAttributes = lens _acuUserAttributes (\ s a -> s{_acuUserAttributes = a}) . _Default . _Coerce;

-- | The user's validation data. This is an array of name-value pairs that contain user attributes and attribute values that you can use for custom validation, such as restricting the types of user accounts that can be registered. For example, you might choose to allow or disallow user sign-up based on the user's domain. To configure custom validation, you must create a Pre Sign-up Lambda trigger for the user pool as described in the Amazon Cognito Developer Guide. The Lambda trigger receives the validation data and uses it in the validation process. The user's validation data is not persisted.
acuValidationData :: Lens' AdminCreateUser [AttributeType]
acuValidationData = lens _acuValidationData (\ s a -> s{_acuValidationData = a}) . _Default . _Coerce;

-- | The user pool ID for the user pool where the user will be created.
acuUserPoolId :: Lens' AdminCreateUser Text
acuUserPoolId = lens _acuUserPoolId (\ s a -> s{_acuUserPoolId = a});

-- | The username for the user. Must be unique within the user pool. Must be a UTF-8 string between 1 and 128 characters. After the user is created, the username cannot be changed.
acuUsername :: Lens' AdminCreateUser Text
acuUsername = lens _acuUsername (\ s a -> s{_acuUsername = a}) . _Sensitive;

instance AWSRequest AdminCreateUser where
type Rs AdminCreateUser = AdminCreateUserResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
AdminCreateUserResponse' <$>
(x .?> "User") <*> (pure (fromEnum s)))

instance Hashable AdminCreateUser

instance NFData AdminCreateUser

instance ToHeaders AdminCreateUser where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.AdminCreateUser"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON AdminCreateUser where
toJSON AdminCreateUser'{..}
= object
(catMaybes
[("TemporaryPassword" .=) <$> _acuTemporaryPassword,
("ForceAliasCreation" .=) <$> _acuForceAliasCreation,
("DesiredDeliveryMediums" .=) <$>
_acuDesiredDeliveryMediums,
("MessageAction" .=) <$> _acuMessageAction,
("UserAttributes" .=) <$> _acuUserAttributes,
("ValidationData" .=) <$> _acuValidationData,
Just ("UserPoolId" .= _acuUserPoolId),
Just ("Username" .= _acuUsername)])

instance ToPath AdminCreateUser where
toPath = const "/"

instance ToQuery AdminCreateUser where
toQuery = const mempty

-- | Represents the response from the server to the request to create the user.
--
--
--
-- /See:/ 'adminCreateUserResponse' smart constructor.
data AdminCreateUserResponse = AdminCreateUserResponse'
{ _acursUser :: !(Maybe UserType)
, _acursResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'AdminCreateUserResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'acursUser' - The user returned in the request to create a new user.
--
-- * 'acursResponseStatus' - -- | The response status code.
adminCreateUserResponse
:: Int -- ^ 'acursResponseStatus'
-> AdminCreateUserResponse
adminCreateUserResponse pResponseStatus_ =
AdminCreateUserResponse'
{ _acursUser = Nothing
, _acursResponseStatus = pResponseStatus_
}

-- | The user returned in the request to create a new user.
acursUser :: Lens' AdminCreateUserResponse (Maybe UserType)
acursUser = lens _acursUser (\ s a -> s{_acursUser = a});

-- | -- | The response status code.
acursResponseStatus :: Lens' AdminCreateUserResponse Int
acursResponseStatus = lens _acursResponseStatus (\ s a -> s{_acursResponseStatus = a});

instance NFData AdminCreateUserResponse
Loading

0 comments on commit 388099f

Please sign in to comment.