amazonka-cognito-idp 1.4.4 → 1.4.5

raw patch · 65 files changed

+1437/−557 lines, 65 filesdep ~amazonka-cognito-idpdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-cognito-idp, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +9/−10
• amazonka-cognito-idp.cabal +11/−15
• fixture/AdminCreateUser.yaml +0/−0
• fixture/AdminCreateUserResponse.proto +0/−0
• gen/Network/AWS/CognitoIdentityProvider.hs +32/−4
• gen/Network/AWS/CognitoIdentityProvider/AddCustomAttributes.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/AdminConfirmSignUp.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/AdminCreateUser.hs +216/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminDeleteUser.hs +6/−2
• gen/Network/AWS/CognitoIdentityProvider/AdminDeleteUserAttributes.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/AdminDisableUser.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/AdminEnableUser.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/AdminForgetDevice.hs +7/−3
• gen/Network/AWS/CognitoIdentityProvider/AdminGetDevice.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/AdminGetUser.hs +18/−18
• gen/Network/AWS/CognitoIdentityProvider/AdminInitiateAuth.hs +18/−12
• gen/Network/AWS/CognitoIdentityProvider/AdminListDevices.hs +15/−9
• gen/Network/AWS/CognitoIdentityProvider/AdminResetUserPassword.hs +13/−7
• gen/Network/AWS/CognitoIdentityProvider/AdminRespondToAuthChallenge.hs +18/−12
• gen/Network/AWS/CognitoIdentityProvider/AdminSetUserSettings.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/AdminUpdateDeviceStatus.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/AdminUpdateUserAttributes.hs +13/−7
• gen/Network/AWS/CognitoIdentityProvider/AdminUserGlobalSignOut.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/ChangePassword.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/ConfirmDevice.hs +13/−7
• gen/Network/AWS/CognitoIdentityProvider/ConfirmForgotPassword.hs +16/−10
• gen/Network/AWS/CognitoIdentityProvider/ConfirmSignUp.hs +15/−9
• gen/Network/AWS/CognitoIdentityProvider/CreateUserImportJob.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/CreateUserPool.hs +45/−18
• gen/Network/AWS/CognitoIdentityProvider/CreateUserPoolClient.hs +16/−10
• gen/Network/AWS/CognitoIdentityProvider/DeleteUser.hs +6/−2
• gen/Network/AWS/CognitoIdentityProvider/DeleteUserAttributes.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/DeleteUserPool.hs +5/−1
• gen/Network/AWS/CognitoIdentityProvider/DeleteUserPoolClient.hs +6/−2
• gen/Network/AWS/CognitoIdentityProvider/DescribeUserImportJob.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/DescribeUserPool.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/DescribeUserPoolClient.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/ForgetDevice.hs +6/−2
• gen/Network/AWS/CognitoIdentityProvider/ForgotPassword.hs +15/−9
• gen/Network/AWS/CognitoIdentityProvider/GetCSVHeader.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/GetDevice.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/GetUser.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/GetUserAttributeVerificationCode.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/GlobalSignOut.hs +9/−3
• gen/Network/AWS/CognitoIdentityProvider/InitiateAuth.hs +18/−12
• gen/Network/AWS/CognitoIdentityProvider/ListDevices.hs +13/−7
• gen/Network/AWS/CognitoIdentityProvider/ListUserImportJobs.hs +14/−8
• gen/Network/AWS/CognitoIdentityProvider/ListUserPoolClients.hs +13/−7
• gen/Network/AWS/CognitoIdentityProvider/ListUserPools.hs +12/−6
• gen/Network/AWS/CognitoIdentityProvider/ListUsers.hs +15/−9
• gen/Network/AWS/CognitoIdentityProvider/ResendConfirmationCode.hs +14/−8
• gen/Network/AWS/CognitoIdentityProvider/RespondToAuthChallenge.hs +17/−11
• gen/Network/AWS/CognitoIdentityProvider/SetUserSettings.hs +10/−4
• gen/Network/AWS/CognitoIdentityProvider/SignUp.hs +17/−11
• gen/Network/AWS/CognitoIdentityProvider/StartUserImportJob.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/StopUserImportJob.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/Types.hs +83/−2
• gen/Network/AWS/CognitoIdentityProvider/Types/Product.hs +319/−149
• gen/Network/AWS/CognitoIdentityProvider/Types/Sum.hs +34/−2
• gen/Network/AWS/CognitoIdentityProvider/UpdateDeviceStatus.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/UpdateUserAttributes.hs +11/−5
• gen/Network/AWS/CognitoIdentityProvider/UpdateUserPool.hs +33/−20
• gen/Network/AWS/CognitoIdentityProvider/UpdateUserPoolClient.hs +16/−10
• gen/Network/AWS/CognitoIdentityProvider/VerifyUserAttribute.hs +11/−5
• test/Test/AWS/Gen/CognitoIdentityProvider.hs +18/−0

@@ -8,28 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -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.--This API reference provides information about user pools in Amazon Cognito Identity.--For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cognito-idp) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.CognitoIdentityProvider](http://hackage.haskell.org/package/amazonka-cognito-idp/docs/Network-AWS-CognitoIdentityProvider.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-cognito-idp-version:               1.4.4+version:               1.4.5 synopsis:              Amazon Cognito Identity Provider SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,24 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    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.--    This API reference provides information about user pools in Amazon Cognito Identity.--    For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>.-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.CognitoIdentityProvider" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.CognitoIdentityProvider" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -47,6 +42,7 @@           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@@ -108,7 +104,7 @@         , Network.AWS.CognitoIdentityProvider.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-idp-test@@ -128,9 +124,9 @@         , Test.AWS.CognitoIdentityProvider.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-cognito-idp == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-cognito-idp == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,11 +11,13 @@ -- 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. ----- For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>.+-- This API reference provides information about user pools in Amazon Cognito Your User Pools.+--+-- For more information, see the Amazon Cognito Documentation.+-- module Network.AWS.CognitoIdentityProvider     (     -- * Service Configuration@@ -24,6 +26,9 @@     -- * Errors     -- $errors +    -- ** UnsupportedUserStateException+    , _UnsupportedUserStateException+     -- ** PasswordResetRequiredException     , _PasswordResetRequiredException @@ -222,6 +227,9 @@     -- ** AdminUpdateDeviceStatus     , module Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus +    -- ** AdminCreateUser+    , module Network.AWS.CognitoIdentityProvider.AdminCreateUser+     -- ** AddCustomAttributes     , module Network.AWS.CognitoIdentityProvider.AddCustomAttributes @@ -299,6 +307,9 @@     -- ** ExplicitAuthFlowsType     , ExplicitAuthFlowsType (..) +    -- ** MessageActionType+    , MessageActionType (..)+     -- ** StatusType     , StatusType (..) @@ -314,6 +325,13 @@     -- ** VerifiedAttributeType     , VerifiedAttributeType (..) +    -- ** AdminCreateUserConfigType+    , AdminCreateUserConfigType+    , adminCreateUserConfigType+    , acuctAllowAdminCreateUserOnly+    , acuctUnusedAccountValidityDays+    , acuctInviteMessageTemplate+     -- ** AttributeType     , AttributeType     , attributeType@@ -382,6 +400,13 @@     , motDeliveryMedium     , motAttributeName +    -- ** MessageTemplateType+    , MessageTemplateType+    , messageTemplateType+    , mttEmailSubject+    , mttSMSMessage+    , mttEmailMessage+     -- ** NewDeviceMetadataType     , NewDeviceMetadataType     , newDeviceMetadataType@@ -417,8 +442,8 @@     -- ** SmsConfigurationType     , SmsConfigurationType     , smsConfigurationType-    , sctSNSCallerARN     , sctExternalId+    , sctSNSCallerARN      -- ** StringAttributeConstraintsType     , StringAttributeConstraintsType@@ -500,6 +525,7 @@     , uptCreationDate     , uptLambdaConfig     , uptSmsConfiguration+    , uptAdminCreateUserConfig     , uptDeviceConfiguration     , uptAutoVerifiedAttributes     , uptPolicies@@ -512,11 +538,13 @@     , 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

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Adds additional user attributes to the user pool schema.+--+-- module Network.AWS.CognitoIdentityProvider.AddCustomAttributes     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to add custom attributes. --+--+-- -- /See:/ 'addCustomAttributes' smart constructor. data AddCustomAttributes = AddCustomAttributes'     { _acaUserPoolId       :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acaUserPoolId'+-- * 'acaUserPoolId' - The user pool ID for the user pool where you want to add custom attributes. ----- * 'acaCustomAttributes'+-- * 'acaCustomAttributes' - An array of custom attributes, such as Mutable and Name. addCustomAttributes     :: Text -- ^ 'acaUserPoolId'     -> NonEmpty SchemaAttributeType -- ^ 'acaCustomAttributes'@@ -113,6 +117,8 @@  -- | Represents the response from the server for the request to add custom attributes. --+--+-- -- /See:/ 'addCustomAttributesResponse' smart constructor. newtype AddCustomAttributesResponse = AddCustomAttributesResponse'     { _acarsResponseStatus :: Int@@ -122,7 +128,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acarsResponseStatus'+-- * 'acarsResponseStatus' - -- | The response status code. addCustomAttributesResponse     :: Int -- ^ 'acarsResponseStatus'     -> AddCustomAttributesResponse@@ -131,7 +137,7 @@     { _acarsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. acarsResponseStatus :: Lens' AddCustomAttributesResponse Int acarsResponseStatus = lens _acarsResponseStatus (\ s a -> s{_acarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Confirms user registration as an admin without using a confirmation code. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminConfirmSignUp     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to confirm user registration. --+--+-- -- /See:/ 'adminConfirmSignUp' smart constructor. data AdminConfirmSignUp = AdminConfirmSignUp'     { _acsuUserPoolId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acsuUserPoolId'+-- * 'acsuUserPoolId' - The user pool ID for which you want to confirm user registration. ----- * 'acsuUsername'+-- * 'acsuUsername' - The user name for which you want to confirm user registration. adminConfirmSignUp     :: Text -- ^ 'acsuUserPoolId'     -> Text -- ^ 'acsuUsername'@@ -113,6 +117,8 @@  -- | Represents the response from the server for the request to confirm registration. --+--+-- -- /See:/ 'adminConfirmSignUpResponse' smart constructor. newtype AdminConfirmSignUpResponse = AdminConfirmSignUpResponse'     { _acsursResponseStatus :: Int@@ -122,7 +128,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acsursResponseStatus'+-- * 'acsursResponseStatus' - -- | The response status code. adminConfirmSignUpResponse     :: Int -- ^ 'acsursResponseStatus'     -> AdminConfirmSignUpResponse@@ -131,7 +137,7 @@     { _acsursResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. acsursResponseStatus :: Lens' AdminConfirmSignUpResponse Int acsursResponseStatus = lens _acsursResponseStatus (\ s a -> s{_acsursResponseStatus = a}); 

@@ -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

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a user as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminDeleteUser     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the request to delete a user as an administrator. --+--+-- -- /See:/ 'adminDeleteUser' smart constructor. data AdminDeleteUser = AdminDeleteUser'     { _aUserPoolId :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aUserPoolId'+-- * 'aUserPoolId' - The user pool ID for the user pool where you want to delete the user. ----- * 'aUsername'+-- * 'aUsername' - The user name of the user you wish to delete. adminDeleteUser     :: Text -- ^ 'aUserPoolId'     -> Text -- ^ 'aUsername'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the user attributes in a user pool as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminDeleteUserAttributes     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to delete user attributes as an administrator. --+--+-- -- /See:/ 'adminDeleteUserAttributes' smart constructor. data AdminDeleteUserAttributes = AdminDeleteUserAttributes'     { _aduaUserPoolId         :: !Text@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aduaUserPoolId'+-- * 'aduaUserPoolId' - The user pool ID for the user pool where you want to delete user attributes. ----- * 'aduaUsername'+-- * 'aduaUsername' - The user name of the user from which you would like to delete attributes. ----- * 'aduaUserAttributeNames'+-- * 'aduaUserAttributeNames' - An array of strings representing the user attribute names you wish to delete. adminDeleteUserAttributes     :: Text -- ^ 'aduaUserPoolId'     -> Text -- ^ 'aduaUsername'@@ -125,6 +129,8 @@  -- | Represents the response received from the server for a request to delete user attributes. --+--+-- -- /See:/ 'adminDeleteUserAttributesResponse' smart constructor. newtype AdminDeleteUserAttributesResponse = AdminDeleteUserAttributesResponse'     { _aduarsResponseStatus :: Int@@ -134,7 +140,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aduarsResponseStatus'+-- * 'aduarsResponseStatus' - -- | The response status code. adminDeleteUserAttributesResponse     :: Int -- ^ 'aduarsResponseStatus'     -> AdminDeleteUserAttributesResponse@@ -143,7 +149,7 @@     { _aduarsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. aduarsResponseStatus :: Lens' AdminDeleteUserAttributesResponse Int aduarsResponseStatus = lens _aduarsResponseStatus (\ s a -> s{_aduarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Disables the specified user as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminDisableUser     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to disable any user as an administrator. --+--+-- -- /See:/ 'adminDisableUser' smart constructor. data AdminDisableUser = AdminDisableUser'     { _aduUserPoolId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aduUserPoolId'+-- * 'aduUserPoolId' - The user pool ID for the user pool where you want to disable the user. ----- * 'aduUsername'+-- * 'aduUsername' - The user name of the user you wish to disable. adminDisableUser     :: Text -- ^ 'aduUserPoolId'     -> Text -- ^ 'aduUsername'@@ -112,6 +116,8 @@  -- | Represents the response received from the server to disable the user as an administrator. --+--+-- -- /See:/ 'adminDisableUserResponse' smart constructor. newtype AdminDisableUserResponse = AdminDisableUserResponse'     { _adursResponseStatus :: Int@@ -121,7 +127,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'adursResponseStatus'+-- * 'adursResponseStatus' - -- | The response status code. adminDisableUserResponse     :: Int -- ^ 'adursResponseStatus'     -> AdminDisableUserResponse@@ -130,7 +136,7 @@     { _adursResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. adursResponseStatus :: Lens' AdminDisableUserResponse Int adursResponseStatus = lens _adursResponseStatus (\ s a -> s{_adursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Enables the specified user as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminEnableUser     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request that enables the user as an administrator. --+--+-- -- /See:/ 'adminEnableUser' smart constructor. data AdminEnableUser = AdminEnableUser'     { _aeuUserPoolId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aeuUserPoolId'+-- * 'aeuUserPoolId' - The user pool ID for the user pool where you want to enable the user. ----- * 'aeuUsername'+-- * 'aeuUsername' - The user name of the user you wish to ebable. adminEnableUser     :: Text -- ^ 'aeuUserPoolId'     -> Text -- ^ 'aeuUsername'@@ -112,6 +116,8 @@  -- | Represents the response from the server for the request to enable a user as an administrator. --+--+-- -- /See:/ 'adminEnableUserResponse' smart constructor. newtype AdminEnableUserResponse = AdminEnableUserResponse'     { _aeursResponseStatus :: Int@@ -121,7 +127,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aeursResponseStatus'+-- * 'aeursResponseStatus' - -- | The response status code. adminEnableUserResponse     :: Int -- ^ 'aeursResponseStatus'     -> AdminEnableUserResponse@@ -130,7 +136,7 @@     { _aeursResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. aeursResponseStatus :: Lens' AdminEnableUserResponse Int aeursResponseStatus = lens _aeursResponseStatus (\ s a -> s{_aeursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Forgets the device, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminForgetDevice     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | Sends the forgot device request, as an administrator. --+--+-- -- /See:/ 'adminForgetDevice' smart constructor. data AdminForgetDevice = AdminForgetDevice'     { _afdUserPoolId :: !Text@@ -54,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'afdUserPoolId'+-- * 'afdUserPoolId' - The user pool ID. ----- * 'afdUsername'+-- * 'afdUsername' - The user name. ----- * 'afdDeviceKey'+-- * 'afdDeviceKey' - The device key. adminForgetDevice     :: Text -- ^ 'afdUserPoolId'     -> Text -- ^ 'afdUsername'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the device, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminGetDevice     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the request to get the device, as an administrator. --+--+-- -- /See:/ 'adminGetDevice' smart constructor. data AdminGetDevice = AdminGetDevice'     { _agdDeviceKey  :: !Text@@ -57,11 +61,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'agdDeviceKey'+-- * 'agdDeviceKey' - The device key. ----- * 'agdUserPoolId'+-- * 'agdUserPoolId' - The user pool ID. ----- * 'agdUsername'+-- * 'agdUsername' - The user name. adminGetDevice     :: Text -- ^ 'agdDeviceKey'     -> Text -- ^ 'agdUserPoolId'@@ -125,6 +129,8 @@  -- | Gets the device response, as an administrator. --+--+-- -- /See:/ 'adminGetDeviceResponse' smart constructor. data AdminGetDeviceResponse = AdminGetDeviceResponse'     { _agdrsResponseStatus :: !Int@@ -135,9 +141,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'agdrsResponseStatus'+-- * 'agdrsResponseStatus' - -- | The response status code. ----- * 'agdrsDevice'+-- * 'agdrsDevice' - The device. adminGetDeviceResponse     :: Int -- ^ 'agdrsResponseStatus'     -> DeviceType -- ^ 'agdrsDevice'@@ -148,7 +154,7 @@     , _agdrsDevice = pDevice_     } --- | The response status code.+-- | -- | The response status code. agdrsResponseStatus :: Lens' AdminGetDeviceResponse Int agdrsResponseStatus = lens _agdrsResponseStatus (\ s a -> s{_agdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the specified user by user name in a user pool as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminGetUser     (     -- * Creating a Request@@ -51,6 +53,8 @@  -- | Represents the request to get the specified user as an administrator. --+--+-- -- /See:/ 'adminGetUser' smart constructor. data AdminGetUser = AdminGetUser'     { _aguUserPoolId :: !Text@@ -61,9 +65,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aguUserPoolId'+-- * 'aguUserPoolId' - The user pool ID for the user pool where you want to get information about the user. ----- * 'aguUsername'+-- * 'aguUsername' - The user name of the user you wish to retrieve. adminGetUser     :: Text -- ^ 'aguUserPoolId'     -> Text -- ^ 'aguUsername'@@ -126,6 +130,8 @@  -- | Represents the response from the server from the request to get the specified user as an administrator. --+--+-- -- /See:/ 'adminGetUserResponse' smart constructor. data AdminGetUserResponse = AdminGetUserResponse'     { _agursEnabled              :: !(Maybe Bool)@@ -142,21 +148,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'agursEnabled'+-- * 'agursEnabled' - Indicates that the status is enabled. ----- * 'agursUserStatus'+-- * 'agursUserStatus' - The user status. Can be one of the following:     * UNCONFIRMED - User has been created but not confirmed.     * CONFIRMED - User has been confirmed.     * ARCHIVED - User is no longer active.     * COMPROMISED - User is disabled due to a potential security threat.     * UNKNOWN - User status is not known. ----- * 'agursUserAttributes'+-- * 'agursUserAttributes' - An array of name-value pairs representing user attributes. ----- * 'agursUserCreateDate'+-- * 'agursUserCreateDate' - The date the user was created. ----- * 'agursMFAOptions'+-- * 'agursMFAOptions' - Specifies the options for MFA (e.g., email or phone number). ----- * 'agursUserLastModifiedDate'+-- * 'agursUserLastModifiedDate' - The date the user was last modified. ----- * 'agursResponseStatus'+-- * 'agursResponseStatus' - -- | The response status code. ----- * 'agursUsername'+-- * 'agursUsername' - The user name of the user about whom you are receiving information. adminGetUserResponse     :: Int -- ^ 'agursResponseStatus'     -> Text -- ^ 'agursUsername'@@ -177,13 +183,7 @@ agursEnabled :: Lens' AdminGetUserResponse (Maybe Bool) agursEnabled = lens _agursEnabled (\ s a -> s{_agursEnabled = a}); --- | The user status. Can be one of the following:------ -   UNCONFIRMED - User has been created but not confirmed.--- -   CONFIRMED - User has been confirmed.--- -   ARCHIVED - User is no longer active.--- -   COMPROMISED - User is disabled due to a potential security threat.--- -   UNKNOWN - User status is not known.+-- | The user status. Can be one of the following:     * UNCONFIRMED - User has been created but not confirmed.     * CONFIRMED - User has been confirmed.     * ARCHIVED - User is no longer active.     * COMPROMISED - User is disabled due to a potential security threat.     * UNKNOWN - User status is not known. agursUserStatus :: Lens' AdminGetUserResponse (Maybe UserStatusType) agursUserStatus = lens _agursUserStatus (\ s a -> s{_agursUserStatus = a}); @@ -203,7 +203,7 @@ agursUserLastModifiedDate :: Lens' AdminGetUserResponse (Maybe UTCTime) agursUserLastModifiedDate = lens _agursUserLastModifiedDate (\ s a -> s{_agursUserLastModifiedDate = a}) . mapping _Time; --- | The response status code.+-- | -- | The response status code. agursResponseStatus :: Lens' AdminGetUserResponse Int agursResponseStatus = lens _agursResponseStatus (\ s a -> s{_agursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Initiates the authentication flow, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminInitiateAuth     (     -- * Creating a Request@@ -51,6 +53,8 @@  -- | Initiates the authorization request, as an administrator. --+--+-- -- /See:/ 'adminInitiateAuth' smart constructor. data AdminInitiateAuth = AdminInitiateAuth'     { _aiaClientMetadata :: !(Maybe (Map Text Text))@@ -64,15 +68,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aiaClientMetadata'+-- * 'aiaClientMetadata' - The client app metadata. ----- * 'aiaAuthParameters'+-- * 'aiaAuthParameters' - The authentication parameters. ----- * 'aiaUserPoolId'+-- * 'aiaUserPoolId' - The ID of the Amazon Cognito user pool. ----- * 'aiaClientId'+-- * 'aiaClientId' - The client app ID. ----- * 'aiaAuthFlow'+-- * 'aiaAuthFlow' - The authentication flow. adminInitiateAuth     :: Text -- ^ 'aiaUserPoolId'     -> Text -- ^ 'aiaClientId'@@ -152,6 +156,8 @@  -- | Initiates the authentication response, as an administrator. --+--+-- -- /See:/ 'adminInitiateAuthResponse' smart constructor. data AdminInitiateAuthResponse = AdminInitiateAuthResponse'     { _aiarsChallengeName        :: !(Maybe ChallengeNameType)@@ -165,15 +171,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aiarsChallengeName'+-- * 'aiarsChallengeName' - The name of the challenge. ----- * 'aiarsChallengeParameters'+-- * 'aiarsChallengeParameters' - The challenge parameters. ----- * 'aiarsAuthenticationResult'+-- * 'aiarsAuthenticationResult' - The result of the authentication response. ----- * 'aiarsSession'+-- * 'aiarsSession' - The session. ----- * 'aiarsResponseStatus'+-- * 'aiarsResponseStatus' - -- | The response status code. adminInitiateAuthResponse     :: Int -- ^ 'aiarsResponseStatus'     -> AdminInitiateAuthResponse@@ -194,7 +200,7 @@ aiarsChallengeParameters :: Lens' AdminInitiateAuthResponse (HashMap Text Text) aiarsChallengeParameters = lens _aiarsChallengeParameters (\ s a -> s{_aiarsChallengeParameters = a}) . _Default . _Map; --- | Undocumented member.+-- | The result of the authentication response. aiarsAuthenticationResult :: Lens' AdminInitiateAuthResponse (Maybe AuthenticationResultType) aiarsAuthenticationResult = lens _aiarsAuthenticationResult (\ s a -> s{_aiarsAuthenticationResult = a}); @@ -202,7 +208,7 @@ aiarsSession :: Lens' AdminInitiateAuthResponse (Maybe Text) aiarsSession = lens _aiarsSession (\ s a -> s{_aiarsSession = a}); --- | The response status code.+-- | -- | The response status code. aiarsResponseStatus :: Lens' AdminInitiateAuthResponse Int aiarsResponseStatus = lens _aiarsResponseStatus (\ s a -> s{_aiarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists devices, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminListDevices     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | Represents the request to list devices, as an administrator. --+--+-- -- /See:/ 'adminListDevices' smart constructor. data AdminListDevices = AdminListDevices'     { _aldPaginationToken :: !(Maybe Text)@@ -60,13 +64,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aldPaginationToken'+-- * 'aldPaginationToken' - The pagination token. ----- * 'aldLimit'+-- * 'aldLimit' - The limit of the devices request. ----- * 'aldUserPoolId'+-- * 'aldUserPoolId' - The user pool ID. ----- * 'aldUsername'+-- * 'aldUsername' - The user name. adminListDevices     :: Text -- ^ 'aldUserPoolId'     -> Text -- ^ 'aldUsername'@@ -135,8 +139,10 @@ instance ToQuery AdminListDevices where         toQuery = const mempty --- | Lists the device\'s response, as an administrator.+-- | Lists the device's response, as an administrator. --+--+-- -- /See:/ 'adminListDevicesResponse' smart constructor. data AdminListDevicesResponse = AdminListDevicesResponse'     { _aldrsPaginationToken :: !(Maybe Text)@@ -148,11 +154,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aldrsPaginationToken'+-- * 'aldrsPaginationToken' - The pagination token. ----- * 'aldrsDevices'+-- * 'aldrsDevices' - The devices in the list of devices response. ----- * 'aldrsResponseStatus'+-- * 'aldrsResponseStatus' - -- | The response status code. adminListDevicesResponse     :: Int -- ^ 'aldrsResponseStatus'     -> AdminListDevicesResponse@@ -171,7 +177,7 @@ aldrsDevices :: Lens' AdminListDevicesResponse [DeviceType] aldrsDevices = lens _aldrsDevices (\ s a -> s{_aldrsDevices = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. aldrsResponseStatus :: Lens' AdminListDevicesResponse Int aldrsResponseStatus = lens _aldrsResponseStatus (\ s a -> s{_aldrsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Resets the specified user\'s password in a user pool as an administrator. Works on any user.+-- Resets the specified user's password in a user pool as an administrator. Works on any user. --+-- -- When a developer calls this API, the current password is invalidated, so it must be changed. If a user tries to sign in after the API is called, the app will get a PasswordResetRequiredException exception back and should direct the user down the flow to reset the password, which is the same as the forgot password flow. In addition, if the user pool has phone verification selected and a verified phone number exists for the user, or if email verification is selected and a verified email exists for the user, calling this API will also result in sending a message to the end user with the code to change their password.+-- module Network.AWS.CognitoIdentityProvider.AdminResetUserPassword     (     -- * Creating a Request@@ -44,8 +46,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Represents the request to reset a user\'s password as an administrator.+-- | Represents the request to reset a user's password as an administrator. --+--+-- -- /See:/ 'adminResetUserPassword' smart constructor. data AdminResetUserPassword = AdminResetUserPassword'     { _arupUserPoolId :: !Text@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'arupUserPoolId'+-- * 'arupUserPoolId' - The user pool ID for the user pool where you want to reset the user's password. ----- * 'arupUsername'+-- * 'arupUsername' - The user name of the user whose password you wish to reset. adminResetUserPassword     :: Text -- ^ 'arupUserPoolId'     -> Text -- ^ 'arupUsername'@@ -69,7 +73,7 @@     , _arupUsername = _Sensitive # pUsername_     } --- | The user pool ID for the user pool where you want to reset the user\'s password.+-- | The user pool ID for the user pool where you want to reset the user's password. arupUserPoolId :: Lens' AdminResetUserPassword Text arupUserPoolId = lens _arupUserPoolId (\ s a -> s{_arupUserPoolId = a}); @@ -116,6 +120,8 @@  -- | Represents the response from the server to reset a user password as an administrator. --+--+-- -- /See:/ 'adminResetUserPasswordResponse' smart constructor. newtype AdminResetUserPasswordResponse = AdminResetUserPasswordResponse'     { _aruprsResponseStatus :: Int@@ -125,7 +131,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aruprsResponseStatus'+-- * 'aruprsResponseStatus' - -- | The response status code. adminResetUserPasswordResponse     :: Int -- ^ 'aruprsResponseStatus'     -> AdminResetUserPasswordResponse@@ -134,7 +140,7 @@     { _aruprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. aruprsResponseStatus :: Lens' AdminResetUserPasswordResponse Int aruprsResponseStatus = lens _aruprsResponseStatus (\ s a -> s{_aruprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Responds to an authentication challenge, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge     (     -- * Creating a Request@@ -51,6 +53,8 @@  -- | The request to respond to the authentication challenge, as an administrator. --+--+-- -- /See:/ 'adminRespondToAuthChallenge' smart constructor. data AdminRespondToAuthChallenge = AdminRespondToAuthChallenge'     { _artacChallengeResponses :: !(Maybe (Map Text Text))@@ -64,15 +68,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'artacChallengeResponses'+-- * 'artacChallengeResponses' - The challenge response. ----- * 'artacSession'+-- * 'artacSession' - The session. ----- * 'artacUserPoolId'+-- * 'artacUserPoolId' - The ID of the Amazon Cognito user pool. ----- * 'artacClientId'+-- * 'artacClientId' - The client ID. ----- * 'artacChallengeName'+-- * 'artacChallengeName' - The name of the challenge. adminRespondToAuthChallenge     :: Text -- ^ 'artacUserPoolId'     -> Text -- ^ 'artacClientId'@@ -154,6 +158,8 @@  -- | Responds to the authentication challenge, as an administrator. --+--+-- -- /See:/ 'adminRespondToAuthChallengeResponse' smart constructor. data AdminRespondToAuthChallengeResponse = AdminRespondToAuthChallengeResponse'     { _artacrsChallengeName        :: !(Maybe ChallengeNameType)@@ -167,15 +173,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'artacrsChallengeName'+-- * 'artacrsChallengeName' - The name of the challenge. ----- * 'artacrsChallengeParameters'+-- * 'artacrsChallengeParameters' - The challenge parameters. ----- * 'artacrsAuthenticationResult'+-- * 'artacrsAuthenticationResult' - The result returned by the server in response to the authentication request. ----- * 'artacrsSession'+-- * 'artacrsSession' - The session. ----- * 'artacrsResponseStatus'+-- * 'artacrsResponseStatus' - -- | The response status code. adminRespondToAuthChallengeResponse     :: Int -- ^ 'artacrsResponseStatus'     -> AdminRespondToAuthChallengeResponse@@ -196,7 +202,7 @@ artacrsChallengeParameters :: Lens' AdminRespondToAuthChallengeResponse (HashMap Text Text) artacrsChallengeParameters = lens _artacrsChallengeParameters (\ s a -> s{_artacrsChallengeParameters = a}) . _Default . _Map; --- | Undocumented member.+-- | The result returned by the server in response to the authentication request. artacrsAuthenticationResult :: Lens' AdminRespondToAuthChallengeResponse (Maybe AuthenticationResultType) artacrsAuthenticationResult = lens _artacrsAuthenticationResult (\ s a -> s{_artacrsAuthenticationResult = a}); @@ -204,7 +210,7 @@ artacrsSession :: Lens' AdminRespondToAuthChallengeResponse (Maybe Text) artacrsSession = lens _artacrsSession (\ s a -> s{_artacrsSession = a}); --- | The response status code.+-- | -- | The response status code. artacrsResponseStatus :: Lens' AdminRespondToAuthChallengeResponse Int artacrsResponseStatus = lens _artacrsResponseStatus (\ s a -> s{_artacrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Sets all the user settings for a specified user name. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminSetUserSettings     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to set user settings as an administrator. --+--+-- -- /See:/ 'adminSetUserSettings' smart constructor. data AdminSetUserSettings = AdminSetUserSettings'     { _asusUserPoolId :: !Text@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asusUserPoolId'+-- * 'asusUserPoolId' - The user pool ID for the user pool where you want to set the user's settings, such as MFA options. ----- * 'asusUsername'+-- * 'asusUsername' - The user name of the user for whom you wish to set user settings. ----- * 'asusMFAOptions'+-- * 'asusMFAOptions' - Specifies the options for MFA (e.g., email or phone number). adminSetUserSettings     :: Text -- ^ 'asusUserPoolId'     -> Text -- ^ 'asusUsername'@@ -72,7 +76,7 @@     , _asusMFAOptions = mempty     } --- | The user pool ID for the user pool where you want to set the user\'s settings, such as MFA options.+-- | The user pool ID for the user pool where you want to set the user's settings, such as MFA options. asusUserPoolId :: Lens' AdminSetUserSettings Text asusUserPoolId = lens _asusUserPoolId (\ s a -> s{_asusUserPoolId = a}); @@ -124,6 +128,8 @@  -- | Represents the response from the server to set user settings as an administrator. --+--+-- -- /See:/ 'adminSetUserSettingsResponse' smart constructor. newtype AdminSetUserSettingsResponse = AdminSetUserSettingsResponse'     { _asusrsResponseStatus :: Int@@ -133,7 +139,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asusrsResponseStatus'+-- * 'asusrsResponseStatus' - -- | The response status code. adminSetUserSettingsResponse     :: Int -- ^ 'asusrsResponseStatus'     -> AdminSetUserSettingsResponse@@ -142,7 +148,7 @@     { _asusrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. asusrsResponseStatus :: Lens' AdminSetUserSettingsResponse Int asusrsResponseStatus = lens _asusrsResponseStatus (\ s a -> s{_asusrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates the device status as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | The request to update the device status, as an administrator. --+--+-- -- /See:/ 'adminUpdateDeviceStatus' smart constructor. data AdminUpdateDeviceStatus = AdminUpdateDeviceStatus'     { _audsDeviceRememberedStatus :: !(Maybe DeviceRememberedStatusType)@@ -58,13 +62,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'audsDeviceRememberedStatus'+-- * 'audsDeviceRememberedStatus' - The status indicating whether a device has been remembered or not. ----- * 'audsUserPoolId'+-- * 'audsUserPoolId' - The user pool ID> ----- * 'audsUsername'+-- * 'audsUsername' - The user name. ----- * 'audsDeviceKey'+-- * 'audsDeviceKey' - The device key. adminUpdateDeviceStatus     :: Text -- ^ 'audsUserPoolId'     -> Text -- ^ 'audsUsername'@@ -136,6 +140,8 @@  -- | The status response from the request to update the device, as an administrator. --+--+-- -- /See:/ 'adminUpdateDeviceStatusResponse' smart constructor. newtype AdminUpdateDeviceStatusResponse = AdminUpdateDeviceStatusResponse'     { _audsrsResponseStatus :: Int@@ -145,7 +151,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'audsrsResponseStatus'+-- * 'audsrsResponseStatus' - -- | The response status code. adminUpdateDeviceStatusResponse     :: Int -- ^ 'audsrsResponseStatus'     -> AdminUpdateDeviceStatusResponse@@ -154,7 +160,7 @@     { _audsrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. audsrsResponseStatus :: Lens' AdminUpdateDeviceStatusResponse Int audsrsResponseStatus = lens _audsrsResponseStatus (\ s a -> s{_audsrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates the specified user\'s attributes, including developer attributes, as an administrator. Works on any user.+-- Updates the specified user's attributes, including developer attributes, as an administrator. Works on any user.+--+-- module Network.AWS.CognitoIdentityProvider.AdminUpdateUserAttributes     (     -- * Creating a Request@@ -43,8 +45,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Represents the request to update the user\'s attributes as an administrator.+-- | Represents the request to update the user's attributes as an administrator. --+--+-- -- /See:/ 'adminUpdateUserAttributes' smart constructor. data AdminUpdateUserAttributes = AdminUpdateUserAttributes'     { _auuaUserPoolId     :: !Text@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'auuaUserPoolId'+-- * 'auuaUserPoolId' - The user pool ID for the user pool where you want to update user attributes. ----- * 'auuaUsername'+-- * 'auuaUsername' - The user name of the user for whom you want to update user attributes. ----- * 'auuaUserAttributes'+-- * 'auuaUserAttributes' - An array of name-value pairs representing user attributes. adminUpdateUserAttributes     :: Text -- ^ 'auuaUserPoolId'     -> Text -- ^ 'auuaUsername'@@ -124,6 +128,8 @@  -- | Represents the response from the server for the request to update user attributes as an administrator. --+--+-- -- /See:/ 'adminUpdateUserAttributesResponse' smart constructor. newtype AdminUpdateUserAttributesResponse = AdminUpdateUserAttributesResponse'     { _auuarsResponseStatus :: Int@@ -133,7 +139,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'auuarsResponseStatus'+-- * 'auuarsResponseStatus' - -- | The response status code. adminUpdateUserAttributesResponse     :: Int -- ^ 'auuarsResponseStatus'     -> AdminUpdateUserAttributesResponse@@ -142,7 +148,7 @@     { _auuarsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. auuarsResponseStatus :: Lens' AdminUpdateUserAttributesResponse Int auuarsResponseStatus = lens _auuarsResponseStatus (\ s a -> s{_auuarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Signs out users from all devices, as an administrator.+--+-- module Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | The request to sign out of all devices, as an administrator. --+--+-- -- /See:/ 'adminUserGlobalSignOut' smart constructor. data AdminUserGlobalSignOut = AdminUserGlobalSignOut'     { _augsoUserPoolId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'augsoUserPoolId'+-- * 'augsoUserPoolId' - The user pool ID. ----- * 'augsoUsername'+-- * 'augsoUsername' - The user name. adminUserGlobalSignOut     :: Text -- ^ 'augsoUserPoolId'     -> Text -- ^ 'augsoUsername'@@ -114,6 +118,8 @@  -- | The global sign-out response, as an administrator. --+--+-- -- /See:/ 'adminUserGlobalSignOutResponse' smart constructor. newtype AdminUserGlobalSignOutResponse = AdminUserGlobalSignOutResponse'     { _augsorsResponseStatus :: Int@@ -123,7 +129,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'augsorsResponseStatus'+-- * 'augsorsResponseStatus' - -- | The response status code. adminUserGlobalSignOutResponse     :: Int -- ^ 'augsorsResponseStatus'     -> AdminUserGlobalSignOutResponse@@ -132,7 +138,7 @@     { _augsorsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. augsorsResponseStatus :: Lens' AdminUserGlobalSignOutResponse Int augsorsResponseStatus = lens _augsorsResponseStatus (\ s a -> s{_augsorsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Changes the password for a specified user in a user pool.+--+-- module Network.AWS.CognitoIdentityProvider.ChangePassword     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to change a user password. --+--+-- -- /See:/ 'changePassword' smart constructor. data ChangePassword = ChangePassword'     { _cpAccessToken      :: !(Maybe (Sensitive Text))@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpAccessToken'+-- * 'cpAccessToken' - The access token in the change password request. ----- * 'cpPreviousPassword'+-- * 'cpPreviousPassword' - The old password in the change password request. ----- * 'cpProposedPassword'+-- * 'cpProposedPassword' - The new password in the change password request. changePassword     :: Text -- ^ 'cpPreviousPassword'     -> Text -- ^ 'cpProposedPassword'@@ -122,6 +126,8 @@  -- | The response from the server to the change password request. --+--+-- -- /See:/ 'changePasswordResponse' smart constructor. newtype ChangePasswordResponse = ChangePasswordResponse'     { _cprsResponseStatus :: Int@@ -131,7 +137,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cprsResponseStatus'+-- * 'cprsResponseStatus' - -- | The response status code. changePasswordResponse     :: Int -- ^ 'cprsResponseStatus'     -> ChangePasswordResponse@@ -140,7 +146,7 @@     { _cprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. cprsResponseStatus :: Lens' ChangePasswordResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Confirms tracking of the device. This API call is the call that beings device tracking.+--+-- module Network.AWS.CognitoIdentityProvider.ConfirmDevice     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Confirms the device request. --+--+-- -- /See:/ 'confirmDevice' smart constructor. data ConfirmDevice = ConfirmDevice'     { _cdDeviceSecretVerifierConfig :: !(Maybe DeviceSecretVerifierConfigType)@@ -59,13 +63,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdDeviceSecretVerifierConfig'+-- * 'cdDeviceSecretVerifierConfig' - The configuration of the device secret verifier. ----- * 'cdDeviceName'+-- * 'cdDeviceName' - The device name. ----- * 'cdAccessToken'+-- * 'cdAccessToken' - The access token. ----- * 'cdDeviceKey'+-- * 'cdDeviceKey' - The device key. confirmDevice     :: Text -- ^ 'cdAccessToken'     -> Text -- ^ 'cdDeviceKey'@@ -136,6 +140,8 @@  -- | Confirms the device response. --+--+-- -- /See:/ 'confirmDeviceResponse' smart constructor. data ConfirmDeviceResponse = ConfirmDeviceResponse'     { _cdrsUserConfirmationNecessary :: !(Maybe Bool)@@ -146,9 +152,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdrsUserConfirmationNecessary'+-- * 'cdrsUserConfirmationNecessary' - Indicates whether the user confirmation is necessary to confirm the device response. ----- * 'cdrsResponseStatus'+-- * 'cdrsResponseStatus' - -- | The response status code. confirmDeviceResponse     :: Int -- ^ 'cdrsResponseStatus'     -> ConfirmDeviceResponse@@ -162,7 +168,7 @@ cdrsUserConfirmationNecessary :: Lens' ConfirmDeviceResponse (Maybe Bool) cdrsUserConfirmationNecessary = lens _cdrsUserConfirmationNecessary (\ s a -> s{_cdrsUserConfirmationNecessary = a}); --- | The response status code.+-- | -- | The response status code. cdrsResponseStatus :: Lens' ConfirmDeviceResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Allows a user to enter a code provided when they reset their password to update their password.+--+-- module Network.AWS.CognitoIdentityProvider.ConfirmForgotPassword     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | The request representing the confirmation for a password reset. --+--+-- -- /See:/ 'confirmForgotPassword' smart constructor. data ConfirmForgotPassword = ConfirmForgotPassword'     { _cfpSecretHash       :: !(Maybe (Sensitive Text))@@ -60,15 +64,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfpSecretHash'+-- * 'cfpSecretHash' - A keyed-hash message authentication code (HMAC) calculated using the secret key of a user pool client and username plus the client ID in the message. ----- * 'cfpClientId'+-- * 'cfpClientId' - The ID of the client associated with the user pool. ----- * 'cfpUsername'+-- * 'cfpUsername' - The user name of the user for whom you want to enter a code to retrieve a forgotten password. ----- * 'cfpConfirmationCode'+-- * 'cfpConfirmationCode' - The confirmation code sent by a user's request to retrieve a forgotten password. ----- * 'cfpPassword'+-- * 'cfpPassword' - The password sent by sent by a user's request to retrieve a forgotten password. confirmForgotPassword     :: Text -- ^ 'cfpClientId'     -> Text -- ^ 'cfpUsername'@@ -96,11 +100,11 @@ cfpUsername :: Lens' ConfirmForgotPassword Text cfpUsername = lens _cfpUsername (\ s a -> s{_cfpUsername = a}) . _Sensitive; --- | The confirmation code sent by a user\'s request to retrieve a forgotten password.+-- | The confirmation code sent by a user's request to retrieve a forgotten password. cfpConfirmationCode :: Lens' ConfirmForgotPassword Text cfpConfirmationCode = lens _cfpConfirmationCode (\ s a -> s{_cfpConfirmationCode = a}); --- | The password sent by sent by a user\'s request to retrieve a forgotten password.+-- | The password sent by sent by a user's request to retrieve a forgotten password. cfpPassword :: Lens' ConfirmForgotPassword Text cfpPassword = lens _cfpPassword (\ s a -> s{_cfpPassword = a}) . _Sensitive; @@ -144,8 +148,10 @@ instance ToQuery ConfirmForgotPassword where         toQuery = const mempty --- | The response from the server that results from a user\'s request to retrieve a forgotten password.+-- | The response from the server that results from a user's request to retrieve a forgotten password. --+--+-- -- /See:/ 'confirmForgotPasswordResponse' smart constructor. newtype ConfirmForgotPasswordResponse = ConfirmForgotPasswordResponse'     { _cfprsResponseStatus :: Int@@ -155,7 +161,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfprsResponseStatus'+-- * 'cfprsResponseStatus' - -- | The response status code. confirmForgotPasswordResponse     :: Int -- ^ 'cfprsResponseStatus'     -> ConfirmForgotPasswordResponse@@ -164,7 +170,7 @@     { _cfprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. cfprsResponseStatus :: Lens' ConfirmForgotPasswordResponse Int cfprsResponseStatus = lens _cfprsResponseStatus (\ s a -> s{_cfprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Confirms registration of a user and handles the existing alias from a previous user.+--+-- module Network.AWS.CognitoIdentityProvider.ConfirmSignUp     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the request to confirm registration of a user. --+--+-- -- /See:/ 'confirmSignUp' smart constructor. data ConfirmSignUp = ConfirmSignUp'     { _csuForceAliasCreation :: !(Maybe Bool)@@ -60,15 +64,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csuForceAliasCreation'+-- * 'csuForceAliasCreation' - Boolean to be specified to force user confirmation irrespective of existing alias. By default set to False. If this parameter is set to True and the phone number/email used for sign up confirmation 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 being confirmed. If set to False, the API will throw an __AliasExistsException__ error. ----- * 'csuSecretHash'+-- * 'csuSecretHash' - A keyed-hash message authentication code (HMAC) calculated using the secret key of a user pool client and username plus the client ID in the message. ----- * 'csuClientId'+-- * 'csuClientId' - The ID of the client associated with the user pool. ----- * 'csuUsername'+-- * 'csuUsername' - The user name of the user whose registration you wish to confirm. ----- * 'csuConfirmationCode'+-- * 'csuConfirmationCode' - The confirmation code sent by a user's request to confirm registration. confirmSignUp     :: Text -- ^ 'csuClientId'     -> Text -- ^ 'csuUsername'@@ -83,7 +87,7 @@     , _csuConfirmationCode = pConfirmationCode_     } --- | Boolean to be specified to force user confirmation irrespective of existing alias. By default set to False. If this parameter is set to True and the phone number\/email used for sign up confirmation 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 being confirmed. If set to False, the API will throw an __AliasExistsException__ error.+-- | Boolean to be specified to force user confirmation irrespective of existing alias. By default set to False. If this parameter is set to True and the phone number/email used for sign up confirmation 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 being confirmed. If set to False, the API will throw an __AliasExistsException__ error. csuForceAliasCreation :: Lens' ConfirmSignUp (Maybe Bool) csuForceAliasCreation = lens _csuForceAliasCreation (\ s a -> s{_csuForceAliasCreation = a}); @@ -99,7 +103,7 @@ csuUsername :: Lens' ConfirmSignUp Text csuUsername = lens _csuUsername (\ s a -> s{_csuUsername = a}) . _Sensitive; --- | The confirmation code sent by a user\'s request to confirm registration.+-- | The confirmation code sent by a user's request to confirm registration. csuConfirmationCode :: Lens' ConfirmSignUp Text csuConfirmationCode = lens _csuConfirmationCode (\ s a -> s{_csuConfirmationCode = a}); @@ -144,6 +148,8 @@  -- | Represents the response from the server for the registration confirmation. --+--+-- -- /See:/ 'confirmSignUpResponse' smart constructor. newtype ConfirmSignUpResponse = ConfirmSignUpResponse'     { _csursResponseStatus :: Int@@ -153,7 +159,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csursResponseStatus'+-- * 'csursResponseStatus' - -- | The response status code. confirmSignUpResponse     :: Int -- ^ 'csursResponseStatus'     -> ConfirmSignUpResponse@@ -162,7 +168,7 @@     { _csursResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. csursResponseStatus :: Lens' ConfirmSignUpResponse Int csursResponseStatus = lens _csursResponseStatus (\ s a -> s{_csursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates the user import job.+--+-- module Network.AWS.CognitoIdentityProvider.CreateUserImportJob     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the request to create the user import job. --+--+-- -- /See:/ 'createUserImportJob' smart constructor. data CreateUserImportJob = CreateUserImportJob'     { _cuijJobName               :: !Text@@ -57,11 +61,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cuijJobName'+-- * 'cuijJobName' - The job name for the user import job. ----- * 'cuijUserPoolId'+-- * 'cuijUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'cuijCloudWatchLogsRoleARN'+-- * 'cuijCloudWatchLogsRoleARN' - The role ARN for the Amazon CloudWatch Logging role for the user import job. createUserImportJob     :: Text -- ^ 'cuijJobName'     -> Text -- ^ 'cuijUserPoolId'@@ -128,6 +132,8 @@  -- | Represents the response from the server to the request to create the user import job. --+--+-- -- /See:/ 'createUserImportJobResponse' smart constructor. data CreateUserImportJobResponse = CreateUserImportJobResponse'     { _cuijrsUserImportJob  :: !(Maybe UserImportJobType)@@ -138,9 +144,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cuijrsUserImportJob'+-- * 'cuijrsUserImportJob' - The job object that represents the user import job. ----- * 'cuijrsResponseStatus'+-- * 'cuijrsResponseStatus' - -- | The response status code. createUserImportJobResponse     :: Int -- ^ 'cuijrsResponseStatus'     -> CreateUserImportJobResponse@@ -154,7 +160,7 @@ cuijrsUserImportJob :: Lens' CreateUserImportJobResponse (Maybe UserImportJobType) cuijrsUserImportJob = lens _cuijrsUserImportJob (\ s a -> s{_cuijrsUserImportJob = a}); --- | The response status code.+-- | -- | The response status code. cuijrsResponseStatus :: Lens' CreateUserImportJobResponse Int cuijrsResponseStatus = lens _cuijrsResponseStatus (\ s a -> s{_cuijrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a new Amazon Cognito user pool and sets the password policy for the pool.+--+-- module Network.AWS.CognitoIdentityProvider.CreateUserPool     (     -- * Creating a Request@@ -29,11 +31,13 @@     , cupSmsAuthenticationMessage     , cupEmailVerificationSubject     , cupAliasAttributes+    , cupSchema     , cupEmailConfiguration     , cupSmsVerificationMessage     , cupMFAConfiguration     , cupLambdaConfig     , cupSmsConfiguration+    , cupAdminCreateUserConfig     , cupDeviceConfiguration     , cupAutoVerifiedAttributes     , cupPolicies@@ -56,17 +60,21 @@  -- | Represents the request to create a user pool. --+--+-- -- /See:/ 'createUserPool' smart constructor. data CreateUserPool = CreateUserPool'     { _cupEmailVerificationMessage :: !(Maybe Text)     , _cupSmsAuthenticationMessage :: !(Maybe Text)     , _cupEmailVerificationSubject :: !(Maybe Text)     , _cupAliasAttributes          :: !(Maybe [AliasAttributeType])+    , _cupSchema                   :: !(Maybe (List1 SchemaAttributeType))     , _cupEmailConfiguration       :: !(Maybe EmailConfigurationType)     , _cupSmsVerificationMessage   :: !(Maybe Text)     , _cupMFAConfiguration         :: !(Maybe UserPoolMFAType)     , _cupLambdaConfig             :: !(Maybe LambdaConfigType)     , _cupSmsConfiguration         :: !(Maybe SmsConfigurationType)+    , _cupAdminCreateUserConfig    :: !(Maybe AdminCreateUserConfigType)     , _cupDeviceConfiguration      :: !(Maybe DeviceConfigurationType)     , _cupAutoVerifiedAttributes   :: !(Maybe [VerifiedAttributeType])     , _cupPolicies                 :: !(Maybe UserPoolPolicyType)@@ -77,31 +85,35 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cupEmailVerificationMessage'+-- * 'cupEmailVerificationMessage' - A string representing the email verification message. ----- * 'cupSmsAuthenticationMessage'+-- * 'cupSmsAuthenticationMessage' - A string representing the SMS authentication message. ----- * 'cupEmailVerificationSubject'+-- * 'cupEmailVerificationSubject' - A string representing the email verification subject. ----- * 'cupAliasAttributes'+-- * 'cupAliasAttributes' - Attributes supported as an alias for this user pool. Possible values: __phone_number__ , __email__ , or __preferred_username__ . ----- * 'cupEmailConfiguration'+-- * 'cupSchema' - An array of schema attributes for the new user pool. These attributes can be standard or custom attributes. ----- * 'cupSmsVerificationMessage'+-- * 'cupEmailConfiguration' - The email configuration. ----- * 'cupMFAConfiguration'+-- * 'cupSmsVerificationMessage' - A string representing the SMS verification message. ----- * 'cupLambdaConfig'+-- * 'cupMFAConfiguration' - Specifies MFA configuration details. ----- * 'cupSmsConfiguration'+-- * 'cupLambdaConfig' - The Lambda trigger configuration information for the new user pool. ----- * 'cupDeviceConfiguration'+-- * 'cupSmsConfiguration' - The SMS configuration. ----- * 'cupAutoVerifiedAttributes'+-- * 'cupAdminCreateUserConfig' - The configuration for AdminCreateUser requests. ----- * 'cupPolicies'+-- * 'cupDeviceConfiguration' - The device configuration. ----- * 'cupPoolName'+-- * 'cupAutoVerifiedAttributes' - The attributes to be auto-verified. Possible values: __email__ , __phone_number__ .+--+-- * 'cupPolicies' - The policies associated with the new user pool.+--+-- * 'cupPoolName' - A string used to name the user pool. createUserPool     :: Text -- ^ 'cupPoolName'     -> CreateUserPool@@ -111,11 +123,13 @@     , _cupSmsAuthenticationMessage = Nothing     , _cupEmailVerificationSubject = Nothing     , _cupAliasAttributes = Nothing+    , _cupSchema = Nothing     , _cupEmailConfiguration = Nothing     , _cupSmsVerificationMessage = Nothing     , _cupMFAConfiguration = Nothing     , _cupLambdaConfig = Nothing     , _cupSmsConfiguration = Nothing+    , _cupAdminCreateUserConfig = Nothing     , _cupDeviceConfiguration = Nothing     , _cupAutoVerifiedAttributes = Nothing     , _cupPolicies = Nothing@@ -134,10 +148,14 @@ cupEmailVerificationSubject :: Lens' CreateUserPool (Maybe Text) cupEmailVerificationSubject = lens _cupEmailVerificationSubject (\ s a -> s{_cupEmailVerificationSubject = a}); --- | Attributes supported as an alias for this user pool. Possible values: __phone_number__, __email__, or __preferred_username__.+-- | Attributes supported as an alias for this user pool. Possible values: __phone_number__ , __email__ , or __preferred_username__ . cupAliasAttributes :: Lens' CreateUserPool [AliasAttributeType] cupAliasAttributes = lens _cupAliasAttributes (\ s a -> s{_cupAliasAttributes = a}) . _Default . _Coerce; +-- | An array of schema attributes for the new user pool. These attributes can be standard or custom attributes.+cupSchema :: Lens' CreateUserPool (Maybe (NonEmpty SchemaAttributeType))+cupSchema = lens _cupSchema (\ s a -> s{_cupSchema = a}) . mapping _List1;+ -- | The email configuration. cupEmailConfiguration :: Lens' CreateUserPool (Maybe EmailConfigurationType) cupEmailConfiguration = lens _cupEmailConfiguration (\ s a -> s{_cupEmailConfiguration = a});@@ -158,11 +176,15 @@ cupSmsConfiguration :: Lens' CreateUserPool (Maybe SmsConfigurationType) cupSmsConfiguration = lens _cupSmsConfiguration (\ s a -> s{_cupSmsConfiguration = a}); +-- | The configuration for AdminCreateUser requests.+cupAdminCreateUserConfig :: Lens' CreateUserPool (Maybe AdminCreateUserConfigType)+cupAdminCreateUserConfig = lens _cupAdminCreateUserConfig (\ s a -> s{_cupAdminCreateUserConfig = a});+ -- | The device configuration. cupDeviceConfiguration :: Lens' CreateUserPool (Maybe DeviceConfigurationType) cupDeviceConfiguration = lens _cupDeviceConfiguration (\ s a -> s{_cupDeviceConfiguration = a}); --- | The attributes to be auto-verified. Possible values: __email__, __phone_number__.+-- | The attributes to be auto-verified. Possible values: __email__ , __phone_number__ . cupAutoVerifiedAttributes :: Lens' CreateUserPool [VerifiedAttributeType] cupAutoVerifiedAttributes = lens _cupAutoVerifiedAttributes (\ s a -> s{_cupAutoVerifiedAttributes = a}) . _Default . _Coerce; @@ -208,12 +230,15 @@                   ("EmailVerificationSubject" .=) <$>                     _cupEmailVerificationSubject,                   ("AliasAttributes" .=) <$> _cupAliasAttributes,+                  ("Schema" .=) <$> _cupSchema,                   ("EmailConfiguration" .=) <$> _cupEmailConfiguration,                   ("SmsVerificationMessage" .=) <$>                     _cupSmsVerificationMessage,                   ("MfaConfiguration" .=) <$> _cupMFAConfiguration,                   ("LambdaConfig" .=) <$> _cupLambdaConfig,                   ("SmsConfiguration" .=) <$> _cupSmsConfiguration,+                  ("AdminCreateUserConfig" .=) <$>+                    _cupAdminCreateUserConfig,                   ("DeviceConfiguration" .=) <$>                     _cupDeviceConfiguration,                   ("AutoVerifiedAttributes" .=) <$>@@ -229,6 +254,8 @@  -- | Represents the response from the server for the request to create a user pool. --+--+-- -- /See:/ 'createUserPoolResponse' smart constructor. data CreateUserPoolResponse = CreateUserPoolResponse'     { _cuprsUserPool       :: !(Maybe UserPoolType)@@ -239,9 +266,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cuprsUserPool'+-- * 'cuprsUserPool' - A container for the user pool details. ----- * 'cuprsResponseStatus'+-- * 'cuprsResponseStatus' - -- | The response status code. createUserPoolResponse     :: Int -- ^ 'cuprsResponseStatus'     -> CreateUserPoolResponse@@ -255,7 +282,7 @@ cuprsUserPool :: Lens' CreateUserPoolResponse (Maybe UserPoolType) cuprsUserPool = lens _cuprsUserPool (\ s a -> s{_cuprsUserPool = a}); --- | The response status code.+-- | -- | The response status code. cuprsResponseStatus :: Lens' CreateUserPoolResponse Int cuprsResponseStatus = lens _cuprsResponseStatus (\ s a -> s{_cuprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates the user pool client.+--+-- module Network.AWS.CognitoIdentityProvider.CreateUserPoolClient     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | Represents the request to create a user pool client. --+--+-- -- /See:/ 'createUserPoolClient' smart constructor. data CreateUserPoolClient = CreateUserPoolClient'     { _cupcRefreshTokenValidity :: !(Maybe Nat)@@ -65,19 +69,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cupcRefreshTokenValidity'+-- * 'cupcRefreshTokenValidity' - Refreshes the token validity. ----- * 'cupcExplicitAuthFlows'+-- * 'cupcExplicitAuthFlows' - The explicit authentication flows. ----- * 'cupcGenerateSecret'+-- * 'cupcGenerateSecret' - Boolean to specify whether you want to generate a secret for the user pool client being created. ----- * 'cupcWriteAttributes'+-- * 'cupcWriteAttributes' - The write attributes. ----- * 'cupcReadAttributes'+-- * 'cupcReadAttributes' - The read attributes. ----- * 'cupcUserPoolId'+-- * 'cupcUserPoolId' - The user pool ID for the user pool where you want to create a user pool client. ----- * 'cupcClientName'+-- * 'cupcClientName' - The client name for the user pool client you would like to create. createUserPoolClient     :: Text -- ^ 'cupcUserPoolId'     -> Text -- ^ 'cupcClientName'@@ -166,6 +170,8 @@  -- | Represents the response from the server to create a user pool client. --+--+-- -- /See:/ 'createUserPoolClientResponse' smart constructor. data CreateUserPoolClientResponse = CreateUserPoolClientResponse'     { _cupcrsUserPoolClient :: !(Maybe UserPoolClientType)@@ -176,9 +182,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cupcrsUserPoolClient'+-- * 'cupcrsUserPoolClient' - The user pool client that was just created. ----- * 'cupcrsResponseStatus'+-- * 'cupcrsResponseStatus' - -- | The response status code. createUserPoolClientResponse     :: Int -- ^ 'cupcrsResponseStatus'     -> CreateUserPoolClientResponse@@ -192,7 +198,7 @@ cupcrsUserPoolClient :: Lens' CreateUserPoolClientResponse (Maybe UserPoolClientType) cupcrsUserPoolClient = lens _cupcrsUserPoolClient (\ s a -> s{_cupcrsUserPoolClient = a}); --- | The response status code.+-- | -- | The response status code. cupcrsResponseStatus :: Lens' CreateUserPoolClientResponse Int cupcrsResponseStatus = lens _cupcrsResponseStatus (\ s a -> s{_cupcrsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Allows a user to delete one\'s self.+-- Allows a user to delete one's self.+--+-- module Network.AWS.CognitoIdentityProvider.DeleteUser     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | Represents the request to delete a user. --+--+-- -- /See:/ 'deleteUser' smart constructor. newtype DeleteUser = DeleteUser'     { _duAccessToken :: Maybe (Sensitive Text)@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duAccessToken'+-- * 'duAccessToken' - The access token from a request to delete a user. deleteUser     :: DeleteUser deleteUser =

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the attributes for a user.+--+-- module Network.AWS.CognitoIdentityProvider.DeleteUserAttributes     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to delete user attributes. --+--+-- -- /See:/ 'deleteUserAttributes' smart constructor. data DeleteUserAttributes = DeleteUserAttributes'     { _duaAccessToken        :: !(Maybe (Sensitive Text))@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duaAccessToken'+-- * 'duaAccessToken' - The access token used in the request to delete user attributes. ----- * 'duaUserAttributeNames'+-- * 'duaUserAttributeNames' - An array of strings representing the user attribute names you wish to delete. deleteUserAttributes     :: DeleteUserAttributes deleteUserAttributes =@@ -113,6 +117,8 @@  -- | Represents the response from the server to delete user attributes. --+--+-- -- /See:/ 'deleteUserAttributesResponse' smart constructor. newtype DeleteUserAttributesResponse = DeleteUserAttributesResponse'     { _duarsResponseStatus :: Int@@ -122,7 +128,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duarsResponseStatus'+-- * 'duarsResponseStatus' - -- | The response status code. deleteUserAttributesResponse     :: Int -- ^ 'duarsResponseStatus'     -> DeleteUserAttributesResponse@@ -131,7 +137,7 @@     { _duarsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. duarsResponseStatus :: Lens' DeleteUserAttributesResponse Int duarsResponseStatus = lens _duarsResponseStatus (\ s a -> s{_duarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the specified Amazon Cognito user pool.+--+-- module Network.AWS.CognitoIdentityProvider.DeleteUserPool     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | Represents the request to delete a user pool. --+--+-- -- /See:/ 'deleteUserPool' smart constructor. newtype DeleteUserPool = DeleteUserPool'     { _dupUserPoolId :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dupUserPoolId'+-- * 'dupUserPoolId' - The user pool ID for the user pool you want to delete. deleteUserPool     :: Text -- ^ 'dupUserPoolId'     -> DeleteUserPool

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Allows the developer to delete the user pool client.+--+-- module Network.AWS.CognitoIdentityProvider.DeleteUserPoolClient     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the request to delete a user pool client. --+--+-- -- /See:/ 'deleteUserPoolClient' smart constructor. data DeleteUserPoolClient = DeleteUserPoolClient'     { _dupcUserPoolId :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dupcUserPoolId'+-- * 'dupcUserPoolId' - The user pool ID for the user pool where you want to delete the client. ----- * 'dupcClientId'+-- * 'dupcClientId' - The ID of the client associated with the user pool. deleteUserPoolClient     :: Text -- ^ 'dupcUserPoolId'     -> Text -- ^ 'dupcClientId'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes the user import job.+--+-- module Network.AWS.CognitoIdentityProvider.DescribeUserImportJob     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to describe the user import job. --+--+-- -- /See:/ 'describeUserImportJob' smart constructor. data DescribeUserImportJob = DescribeUserImportJob'     { _duijUserPoolId :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duijUserPoolId'+-- * 'duijUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'duijJobId'+-- * 'duijJobId' - The job ID for the user import job. describeUserImportJob     :: Text -- ^ 'duijUserPoolId'     -> Text -- ^ 'duijJobId'@@ -115,6 +119,8 @@  -- | Represents the response from the server to the request to describe the user import job. --+--+-- -- /See:/ 'describeUserImportJobResponse' smart constructor. data DescribeUserImportJobResponse = DescribeUserImportJobResponse'     { _duijrsUserImportJob  :: !(Maybe UserImportJobType)@@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duijrsUserImportJob'+-- * 'duijrsUserImportJob' - The job object that represents the user import job. ----- * 'duijrsResponseStatus'+-- * 'duijrsResponseStatus' - -- | The response status code. describeUserImportJobResponse     :: Int -- ^ 'duijrsResponseStatus'     -> DescribeUserImportJobResponse@@ -141,7 +147,7 @@ duijrsUserImportJob :: Lens' DescribeUserImportJobResponse (Maybe UserImportJobType) duijrsUserImportJob = lens _duijrsUserImportJob (\ s a -> s{_duijrsUserImportJob = a}); --- | The response status code.+-- | -- | The response status code. duijrsResponseStatus :: Lens' DescribeUserImportJobResponse Int duijrsResponseStatus = lens _duijrsResponseStatus (\ s a -> s{_duijrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns the configuration information and metadata of the specified user pool.+--+-- module Network.AWS.CognitoIdentityProvider.DescribeUserPool     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to describe the user pool. --+--+-- -- /See:/ 'describeUserPool' smart constructor. newtype DescribeUserPool = DescribeUserPool'     { _dUserPoolId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dUserPoolId'+-- * 'dUserPoolId' - The user pool ID for the user pool you want to describe. describeUserPool     :: Text -- ^ 'dUserPoolId'     -> DescribeUserPool@@ -102,6 +106,8 @@  -- | Represents the response to describe the user pool. --+--+-- -- /See:/ 'describeUserPoolResponse' smart constructor. data DescribeUserPoolResponse = DescribeUserPoolResponse'     { _duprsUserPool       :: !(Maybe UserPoolType)@@ -112,9 +118,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'duprsUserPool'+-- * 'duprsUserPool' - The container of metadata returned by the server to describe the pool. ----- * 'duprsResponseStatus'+-- * 'duprsResponseStatus' - -- | The response status code. describeUserPoolResponse     :: Int -- ^ 'duprsResponseStatus'     -> DescribeUserPoolResponse@@ -128,7 +134,7 @@ duprsUserPool :: Lens' DescribeUserPoolResponse (Maybe UserPoolType) duprsUserPool = lens _duprsUserPool (\ s a -> s{_duprsUserPool = a}); --- | The response status code.+-- | -- | The response status code. duprsResponseStatus :: Lens' DescribeUserPoolResponse Int duprsResponseStatus = lens _duprsResponseStatus (\ s a -> s{_duprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Client method for returning the configuration information and metadata of the specified user pool client.+--+-- module Network.AWS.CognitoIdentityProvider.DescribeUserPoolClient     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to describe a user pool client. --+--+-- -- /See:/ 'describeUserPoolClient' smart constructor. data DescribeUserPoolClient = DescribeUserPoolClient'     { _desUserPoolId :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desUserPoolId'+-- * 'desUserPoolId' - The user pool ID for the user pool you want to describe. ----- * 'desClientId'+-- * 'desClientId' - The ID of the client associated with the user pool. describeUserPoolClient     :: Text -- ^ 'desUserPoolId'     -> Text -- ^ 'desClientId'@@ -115,6 +119,8 @@  -- | Represents the response from the server from a request to describe the user pool client. --+--+-- -- /See:/ 'describeUserPoolClientResponse' smart constructor. data DescribeUserPoolClientResponse = DescribeUserPoolClientResponse'     { _dupcrsUserPoolClient :: !(Maybe UserPoolClientType)@@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dupcrsUserPoolClient'+-- * 'dupcrsUserPoolClient' - The user pool client from a server response to describe the user pool client. ----- * 'dupcrsResponseStatus'+-- * 'dupcrsResponseStatus' - -- | The response status code. describeUserPoolClientResponse     :: Int -- ^ 'dupcrsResponseStatus'     -> DescribeUserPoolClientResponse@@ -141,7 +147,7 @@ dupcrsUserPoolClient :: Lens' DescribeUserPoolClientResponse (Maybe UserPoolClientType) dupcrsUserPoolClient = lens _dupcrsUserPoolClient (\ s a -> s{_dupcrsUserPoolClient = a}); --- | The response status code.+-- | -- | The response status code. dupcrsResponseStatus :: Lens' DescribeUserPoolClientResponse Int dupcrsResponseStatus = lens _dupcrsResponseStatus (\ s a -> s{_dupcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Forgets the specified device.+--+-- module Network.AWS.CognitoIdentityProvider.ForgetDevice     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the request to forget the device. --+--+-- -- /See:/ 'forgetDevice' smart constructor. data ForgetDevice = ForgetDevice'     { _fdAccessToken :: !(Maybe (Sensitive Text))@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fdAccessToken'+-- * 'fdAccessToken' - The access token for the forgotten device request. ----- * 'fdDeviceKey'+-- * 'fdDeviceKey' - The device key. forgetDevice     :: Text -- ^ 'fdDeviceKey'     -> ForgetDevice

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves the password for the specified client ID or username.+--+-- module Network.AWS.CognitoIdentityProvider.ForgotPassword     (     -- * Creating a Request@@ -44,8 +46,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Represents the request to reset a user\'s password.+-- | Represents the request to reset a user's password. --+--+-- -- /See:/ 'forgotPassword' smart constructor. data ForgotPassword = ForgotPassword'     { _fpSecretHash :: !(Maybe (Sensitive Text))@@ -57,11 +61,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fpSecretHash'+-- * 'fpSecretHash' - A keyed-hash message authentication code (HMAC) calculated using the secret key of a user pool client and username plus the client ID in the message. ----- * 'fpClientId'+-- * 'fpClientId' - The ID of the client associated with the user pool. ----- * 'fpUsername'+-- * 'fpUsername' - The user name of the user for whom you want to enter a code to reset a forgotten password. forgotPassword     :: Text -- ^ 'fpClientId'     -> Text -- ^ 'fpUsername'@@ -81,7 +85,7 @@ fpClientId :: Lens' ForgotPassword Text fpClientId = lens _fpClientId (\ s a -> s{_fpClientId = a}) . _Sensitive; --- | The user name of the user for whom you want to enter a code to retrieve a forgotten password.+-- | The user name of the user for whom you want to enter a code to reset a forgotten password. fpUsername :: Lens' ForgotPassword Text fpUsername = lens _fpUsername (\ s a -> s{_fpUsername = a}) . _Sensitive; @@ -125,6 +129,8 @@  -- | Respresents the response from the server regarding the request to reset a password. --+--+-- -- /See:/ 'forgotPasswordResponse' smart constructor. data ForgotPasswordResponse = ForgotPasswordResponse'     { _fprsCodeDeliveryDetails :: !(Maybe CodeDeliveryDetailsType)@@ -135,9 +141,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fprsCodeDeliveryDetails'+-- * 'fprsCodeDeliveryDetails' - The code delivery details returned by the server in response to the request to reset a password. ----- * 'fprsResponseStatus'+-- * 'fprsResponseStatus' - -- | The response status code. forgotPasswordResponse     :: Int -- ^ 'fprsResponseStatus'     -> ForgotPasswordResponse@@ -147,11 +153,11 @@     , _fprsResponseStatus = pResponseStatus_     } --- | Undocumented member.+-- | The code delivery details returned by the server in response to the request to reset a password. fprsCodeDeliveryDetails :: Lens' ForgotPasswordResponse (Maybe CodeDeliveryDetailsType) fprsCodeDeliveryDetails = lens _fprsCodeDeliveryDetails (\ s a -> s{_fprsCodeDeliveryDetails = a}); --- | The response status code.+-- | -- | The response status code. fprsResponseStatus :: Lens' ForgotPasswordResponse Int fprsResponseStatus = lens _fprsResponseStatus (\ s a -> s{_fprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the header information for the .csv file to be used as input for the user import job.+--+-- module Network.AWS.CognitoIdentityProvider.GetCSVHeader     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to get the header information for the .csv file for the user import job. --+--+-- -- /See:/ 'getCSVHeader' smart constructor. newtype GetCSVHeader = GetCSVHeader'     { _gchUserPoolId :: Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gchUserPoolId'+-- * 'gchUserPoolId' - The user pool ID for the user pool that the users are to be imported into. getCSVHeader     :: Text -- ^ 'gchUserPoolId'     -> GetCSVHeader@@ -105,6 +109,8 @@  -- | Represents the response from the server to the request to get the header information for the .csv file for the user import job. --+--+-- -- /See:/ 'getCSVHeaderResponse' smart constructor. data GetCSVHeaderResponse = GetCSVHeaderResponse'     { _gchrsUserPoolId     :: !(Maybe Text)@@ -116,11 +122,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gchrsUserPoolId'+-- * 'gchrsUserPoolId' - The user pool ID for the user pool that the users are to be imported into. ----- * 'gchrsCSVHeader'+-- * 'gchrsCSVHeader' - The header information for the .csv file for the user import job. ----- * 'gchrsResponseStatus'+-- * 'gchrsResponseStatus' - -- | The response status code. getCSVHeaderResponse     :: Int -- ^ 'gchrsResponseStatus'     -> GetCSVHeaderResponse@@ -139,7 +145,7 @@ gchrsCSVHeader :: Lens' GetCSVHeaderResponse [Text] gchrsCSVHeader = lens _gchrsCSVHeader (\ s a -> s{_gchrsCSVHeader = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. gchrsResponseStatus :: Lens' GetCSVHeaderResponse Int gchrsResponseStatus = lens _gchrsResponseStatus (\ s a -> s{_gchrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the device.+--+-- module Network.AWS.CognitoIdentityProvider.GetDevice     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to get the device. --+--+-- -- /See:/ 'getDevice' smart constructor. data GetDevice = GetDevice'     { _gdAccessToken :: !(Maybe (Sensitive Text))@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdAccessToken'+-- * 'gdAccessToken' - The access token. ----- * 'gdDeviceKey'+-- * 'gdDeviceKey' - The device key. getDevice     :: Text -- ^ 'gdDeviceKey'     -> GetDevice@@ -113,6 +117,8 @@  -- | Gets the device response. --+--+-- -- /See:/ 'getDeviceResponse' smart constructor. data GetDeviceResponse = GetDeviceResponse'     { _gdrsResponseStatus :: !Int@@ -123,9 +129,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdrsResponseStatus'+-- * 'gdrsResponseStatus' - -- | The response status code. ----- * 'gdrsDevice'+-- * 'gdrsDevice' - The device. getDeviceResponse     :: Int -- ^ 'gdrsResponseStatus'     -> DeviceType -- ^ 'gdrsDevice'@@ -136,7 +142,7 @@     , _gdrsDevice = pDevice_     } --- | The response status code.+-- | -- | The response status code. gdrsResponseStatus :: Lens' GetDeviceResponse Int gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the user attributes and metadata for a user.+--+-- module Network.AWS.CognitoIdentityProvider.GetUser     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the request to get information about the user. --+--+-- -- /See:/ 'getUser' smart constructor. newtype GetUser = GetUser'     { _guAccessToken :: Maybe (Sensitive Text)@@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'guAccessToken'+-- * 'guAccessToken' - The access token returned by the server response to get information about the user. getUser     :: GetUser getUser =@@ -106,6 +110,8 @@  -- | Represents the response from the server from the request to get information about the user. --+--+-- -- /See:/ 'getUserResponse' smart constructor. data GetUserResponse = GetUserResponse'     { _gursMFAOptions     :: !(Maybe [MFAOptionType])@@ -118,13 +124,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gursMFAOptions'+-- * 'gursMFAOptions' - Specifies the options for MFA (e.g., email or phone number). ----- * 'gursResponseStatus'+-- * 'gursResponseStatus' - -- | The response status code. ----- * 'gursUsername'+-- * 'gursUsername' - The user name of the user you wish to retrieve from the get user request. ----- * 'gursUserAttributes'+-- * 'gursUserAttributes' - An array of name-value pairs representing user attributes. getUserResponse     :: Int -- ^ 'gursResponseStatus'     -> Text -- ^ 'gursUsername'@@ -141,7 +147,7 @@ gursMFAOptions :: Lens' GetUserResponse [MFAOptionType] gursMFAOptions = lens _gursMFAOptions (\ s a -> s{_gursMFAOptions = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. gursResponseStatus :: Lens' GetUserResponse Int gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the user attribute verification code for the specified attribute name.+--+-- module Network.AWS.CognitoIdentityProvider.GetUserAttributeVerificationCode     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to get user attribute verification. --+--+-- -- /See:/ 'getUserAttributeVerificationCode' smart constructor. data GetUserAttributeVerificationCode = GetUserAttributeVerificationCode'     { _guavcAccessToken   :: !(Maybe (Sensitive Text))@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'guavcAccessToken'+-- * 'guavcAccessToken' - The access token returned by the server response to get the user attribute verification code. ----- * 'guavcAttributeName'+-- * 'guavcAttributeName' - The attribute name returned by the server response to get the user attribute verification code. getUserAttributeVerificationCode     :: Text -- ^ 'guavcAttributeName'     -> GetUserAttributeVerificationCode@@ -120,6 +124,8 @@  -- | The verification code response returned by the server response to get the user attribute verification code. --+--+-- -- /See:/ 'getUserAttributeVerificationCodeResponse' smart constructor. data GetUserAttributeVerificationCodeResponse = GetUserAttributeVerificationCodeResponse'     { _guavcrsCodeDeliveryDetails :: !(Maybe CodeDeliveryDetailsType)@@ -130,9 +136,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'guavcrsCodeDeliveryDetails'+-- * 'guavcrsCodeDeliveryDetails' - The code delivery details returned by the server in response to the request to get the user attribute verification code. ----- * 'guavcrsResponseStatus'+-- * 'guavcrsResponseStatus' - -- | The response status code. getUserAttributeVerificationCodeResponse     :: Int -- ^ 'guavcrsResponseStatus'     -> GetUserAttributeVerificationCodeResponse@@ -142,11 +148,11 @@     , _guavcrsResponseStatus = pResponseStatus_     } --- | The code delivery details returned by the server response to get the user attribute verification code.+-- | The code delivery details returned by the server in response to the request to get the user attribute verification code. guavcrsCodeDeliveryDetails :: Lens' GetUserAttributeVerificationCodeResponse (Maybe CodeDeliveryDetailsType) guavcrsCodeDeliveryDetails = lens _guavcrsCodeDeliveryDetails (\ s a -> s{_guavcrsCodeDeliveryDetails = a}); --- | The response status code.+-- | -- | The response status code. guavcrsResponseStatus :: Lens' GetUserAttributeVerificationCodeResponse Int guavcrsResponseStatus = lens _guavcrsResponseStatus (\ s a -> s{_guavcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Signs out users from all devices.+--+-- module Network.AWS.CognitoIdentityProvider.GlobalSignOut     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | Represents the request to sign out all devices. --+--+-- -- /See:/ 'globalSignOut' smart constructor. newtype GlobalSignOut = GlobalSignOut'     { _gsoAccessToken :: Maybe (Sensitive Text)@@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsoAccessToken'+-- * 'gsoAccessToken' - The access token. globalSignOut     :: GlobalSignOut globalSignOut =@@ -99,6 +103,8 @@  -- | The response to the request to sign out all devices. --+--+-- -- /See:/ 'globalSignOutResponse' smart constructor. newtype GlobalSignOutResponse = GlobalSignOutResponse'     { _gsorsResponseStatus :: Int@@ -108,7 +114,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsorsResponseStatus'+-- * 'gsorsResponseStatus' - -- | The response status code. globalSignOutResponse     :: Int -- ^ 'gsorsResponseStatus'     -> GlobalSignOutResponse@@ -117,7 +123,7 @@     { _gsorsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. gsorsResponseStatus :: Lens' GlobalSignOutResponse Int gsorsResponseStatus = lens _gsorsResponseStatus (\ s a -> s{_gsorsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Initiates the authentication flow.+--+-- module Network.AWS.CognitoIdentityProvider.InitiateAuth     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | Initiates the authentication request. --+--+-- -- /See:/ 'initiateAuth' smart constructor. data InitiateAuth = InitiateAuth'     { _iaClientMetadata :: !(Maybe (Map Text Text))@@ -62,13 +66,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iaClientMetadata'+-- * 'iaClientMetadata' - The client app's metadata. ----- * 'iaAuthParameters'+-- * 'iaAuthParameters' - The authentication parameters. ----- * 'iaAuthFlow'+-- * 'iaAuthFlow' - The authentication flow. ----- * 'iaClientId'+-- * 'iaClientId' - The client ID. initiateAuth     :: AuthFlowType -- ^ 'iaAuthFlow'     -> Text -- ^ 'iaClientId'@@ -81,7 +85,7 @@     , _iaClientId = _Sensitive # pClientId_     } --- | The client app\'s metadata.+-- | The client app's metadata. iaClientMetadata :: Lens' InitiateAuth (HashMap Text Text) iaClientMetadata = lens _iaClientMetadata (\ s a -> s{_iaClientMetadata = a}) . _Default . _Map; @@ -141,6 +145,8 @@  -- | Initiates the authentication response. --+--+-- -- /See:/ 'initiateAuthResponse' smart constructor. data InitiateAuthResponse = InitiateAuthResponse'     { _iarsChallengeName        :: !(Maybe ChallengeNameType)@@ -154,15 +160,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iarsChallengeName'+-- * 'iarsChallengeName' - The name of the challenge. ----- * 'iarsChallengeParameters'+-- * 'iarsChallengeParameters' - The challenge parameters. ----- * 'iarsAuthenticationResult'+-- * 'iarsAuthenticationResult' - The result returned by the server in response to the request to initiate authentication. ----- * 'iarsSession'+-- * 'iarsSession' - The session. ----- * 'iarsResponseStatus'+-- * 'iarsResponseStatus' - -- | The response status code. initiateAuthResponse     :: Int -- ^ 'iarsResponseStatus'     -> InitiateAuthResponse@@ -183,7 +189,7 @@ iarsChallengeParameters :: Lens' InitiateAuthResponse (HashMap Text Text) iarsChallengeParameters = lens _iarsChallengeParameters (\ s a -> s{_iarsChallengeParameters = a}) . _Default . _Map; --- | Undocumented member.+-- | The result returned by the server in response to the request to initiate authentication. iarsAuthenticationResult :: Lens' InitiateAuthResponse (Maybe AuthenticationResultType) iarsAuthenticationResult = lens _iarsAuthenticationResult (\ s a -> s{_iarsAuthenticationResult = a}); @@ -191,7 +197,7 @@ iarsSession :: Lens' InitiateAuthResponse (Maybe Text) iarsSession = lens _iarsSession (\ s a -> s{_iarsSession = a}); --- | The response status code.+-- | -- | The response status code. iarsResponseStatus :: Lens' InitiateAuthResponse Int iarsResponseStatus = lens _iarsResponseStatus (\ s a -> s{_iarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the devices.+--+-- module Network.AWS.CognitoIdentityProvider.ListDevices     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the request to list the devices. --+--+-- -- /See:/ 'listDevices' smart constructor. data ListDevices = ListDevices'     { _ldPaginationToken :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldPaginationToken'+-- * 'ldPaginationToken' - The pagination token for the list request. ----- * 'ldLimit'+-- * 'ldLimit' - The limit of the device request. ----- * 'ldAccessToken'+-- * 'ldAccessToken' - The access tokens for the request to list devices. listDevices     :: Text -- ^ 'ldAccessToken'     -> ListDevices@@ -126,6 +130,8 @@  -- | Represents the response to list devices. --+--+-- -- /See:/ 'listDevicesResponse' smart constructor. data ListDevicesResponse = ListDevicesResponse'     { _ldrsPaginationToken :: !(Maybe Text)@@ -137,11 +143,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldrsPaginationToken'+-- * 'ldrsPaginationToken' - The pagination token for the list device response. ----- * 'ldrsDevices'+-- * 'ldrsDevices' - The devices returned in the list devices response. ----- * 'ldrsResponseStatus'+-- * 'ldrsResponseStatus' - -- | The response status code. listDevicesResponse     :: Int -- ^ 'ldrsResponseStatus'     -> ListDevicesResponse@@ -160,7 +166,7 @@ ldrsDevices :: Lens' ListDevicesResponse [DeviceType] ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ldrsResponseStatus :: Lens' ListDevicesResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the user import jobs.+--+-- module Network.AWS.CognitoIdentityProvider.ListUserImportJobs     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the request to list the user import jobs. --+--+-- -- /See:/ 'listUserImportJobs' smart constructor. data ListUserImportJobs = ListUserImportJobs'     { _luijPaginationToken :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'luijPaginationToken'+-- * 'luijPaginationToken' - An identifier that was returned from the previous call to ListUserImportJobs, which can be used to return the next set of import jobs in the list. ----- * 'luijUserPoolId'+-- * 'luijUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'luijMaxResults'+-- * 'luijMaxResults' - The maximum number of import jobs you want the request to return. listUserImportJobs     :: Text -- ^ 'luijUserPoolId'     -> Natural -- ^ 'luijMaxResults'@@ -74,7 +78,7 @@     , _luijMaxResults = _Nat # pMaxResults_     } --- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of import jobs in the list.+-- | An identifier that was returned from the previous call to ListUserImportJobs, which can be used to return the next set of import jobs in the list. luijPaginationToken :: Lens' ListUserImportJobs (Maybe Text) luijPaginationToken = lens _luijPaginationToken (\ s a -> s{_luijPaginationToken = a}); @@ -128,6 +132,8 @@  -- | Represents the response from the server to the request to list the user import jobs. --+--+-- -- /See:/ 'listUserImportJobsResponse' smart constructor. data ListUserImportJobsResponse = ListUserImportJobsResponse'     { _luijrsPaginationToken :: !(Maybe Text)@@ -139,11 +145,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'luijrsPaginationToken'+-- * 'luijrsPaginationToken' - An identifier that can be used to return the next set of user import jobs in the list. ----- * 'luijrsUserImportJobs'+-- * 'luijrsUserImportJobs' - The user import jobs. ----- * 'luijrsResponseStatus'+-- * 'luijrsResponseStatus' - -- | The response status code. listUserImportJobsResponse     :: Int -- ^ 'luijrsResponseStatus'     -> ListUserImportJobsResponse@@ -162,7 +168,7 @@ luijrsUserImportJobs :: Lens' ListUserImportJobsResponse (Maybe (NonEmpty UserImportJobType)) luijrsUserImportJobs = lens _luijrsUserImportJobs (\ s a -> s{_luijrsUserImportJobs = a}) . mapping _List1; --- | The response status code.+-- | -- | The response status code. luijrsResponseStatus :: Lens' ListUserImportJobsResponse Int luijrsResponseStatus = lens _luijrsResponseStatus (\ s a -> s{_luijrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the clients that have been created for the specified user pool.+--+-- module Network.AWS.CognitoIdentityProvider.ListUserPoolClients     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the request to list the user pool clients. --+--+-- -- /See:/ 'listUserPoolClients' smart constructor. data ListUserPoolClients = ListUserPoolClients'     { _lupcNextToken  :: !(Maybe Text)@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lupcNextToken'+-- * 'lupcNextToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'lupcMaxResults'+-- * 'lupcMaxResults' - The maximum number of results you want the request to return when listing the user pool clients. ----- * 'lupcUserPoolId'+-- * 'lupcUserPoolId' - The user pool ID for the user pool where you want to list user pool clients. listUserPoolClients     :: Text -- ^ 'lupcUserPoolId'     -> ListUserPoolClients@@ -127,6 +131,8 @@  -- | Represents the response from the server that lists user pool clients. --+--+-- -- /See:/ 'listUserPoolClientsResponse' smart constructor. data ListUserPoolClientsResponse = ListUserPoolClientsResponse'     { _lupcrsNextToken       :: !(Maybe Text)@@ -138,11 +144,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lupcrsNextToken'+-- * 'lupcrsNextToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'lupcrsUserPoolClients'+-- * 'lupcrsUserPoolClients' - The user pool clients in the response that lists user pool clients. ----- * 'lupcrsResponseStatus'+-- * 'lupcrsResponseStatus' - -- | The response status code. listUserPoolClientsResponse     :: Int -- ^ 'lupcrsResponseStatus'     -> ListUserPoolClientsResponse@@ -161,7 +167,7 @@ lupcrsUserPoolClients :: Lens' ListUserPoolClientsResponse [UserPoolClientDescription] lupcrsUserPoolClients = lens _lupcrsUserPoolClients (\ s a -> s{_lupcrsUserPoolClients = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lupcrsResponseStatus :: Lens' ListUserPoolClientsResponse Int lupcrsResponseStatus = lens _lupcrsResponseStatus (\ s a -> s{_lupcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the user pools associated with an AWS account.+--+-- module Network.AWS.CognitoIdentityProvider.ListUserPools     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the request to list user pools. --+--+-- -- /See:/ 'listUserPools' smart constructor. data ListUserPools = ListUserPools'     { _lupNextToken  :: !(Maybe Text)@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lupNextToken'+-- * 'lupNextToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'lupMaxResults'+-- * 'lupMaxResults' - The maximum number of results you want the request to return when listing the user pools. listUserPools     :: Natural -- ^ 'lupMaxResults'     -> ListUserPools@@ -116,6 +120,8 @@  -- | Represents the response to list user pools. --+--+-- -- /See:/ 'listUserPoolsResponse' smart constructor. data ListUserPoolsResponse = ListUserPoolsResponse'     { _luprsUserPools      :: !(Maybe [UserPoolDescriptionType])@@ -127,11 +133,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'luprsUserPools'+-- * 'luprsUserPools' - The user pools from the response to list users. ----- * 'luprsNextToken'+-- * 'luprsNextToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'luprsResponseStatus'+-- * 'luprsResponseStatus' - -- | The response status code. listUserPoolsResponse     :: Int -- ^ 'luprsResponseStatus'     -> ListUserPoolsResponse@@ -150,7 +156,7 @@ luprsNextToken :: Lens' ListUserPoolsResponse (Maybe Text) luprsNextToken = lens _luprsNextToken (\ s a -> s{_luprsNextToken = a}); --- | The response status code.+-- | -- | The response status code. luprsResponseStatus :: Lens' ListUserPoolsResponse Int luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the users in the Amazon Cognito user pool.+--+-- module Network.AWS.CognitoIdentityProvider.ListUsers     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | Represents the request to list users. --+--+-- -- /See:/ 'listUsers' smart constructor. data ListUsers = ListUsers'     { _luPaginationToken :: !(Maybe Text)@@ -62,15 +66,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'luPaginationToken'+-- * 'luPaginationToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'luAttributesToGet'+-- * 'luAttributesToGet' - The attributes to get from the request to list users. ----- * 'luLimit'+-- * 'luLimit' - The limit of the request to list users. ----- * 'luFilter'+-- * 'luFilter' - The filter for the list users request. ----- * 'luUserPoolId'+-- * 'luUserPoolId' - The user pool ID for which you want to list users. listUsers     :: Text -- ^ 'luUserPoolId'     -> ListUsers@@ -146,6 +150,8 @@  -- | The response from the request to list users. --+--+-- -- /See:/ 'listUsersResponse' smart constructor. data ListUsersResponse = ListUsersResponse'     { _lursPaginationToken :: !(Maybe Text)@@ -157,11 +163,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lursPaginationToken'+-- * 'lursPaginationToken' - An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. ----- * 'lursUsers'+-- * 'lursUsers' - The users returned in the request to list users. ----- * 'lursResponseStatus'+-- * 'lursResponseStatus' - -- | The response status code. listUsersResponse     :: Int -- ^ 'lursResponseStatus'     -> ListUsersResponse@@ -180,7 +186,7 @@ lursUsers :: Lens' ListUsersResponse [UserType] lursUsers = lens _lursUsers (\ s a -> s{_lursUsers = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lursResponseStatus :: Lens' ListUsersResponse Int lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Resends the confirmation (for confirmation of registration) to a specific user in the user pool.+--+-- module Network.AWS.CognitoIdentityProvider.ResendConfirmationCode     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the request to resend the confirmation code. --+--+-- -- /See:/ 'resendConfirmationCode' smart constructor. data ResendConfirmationCode = ResendConfirmationCode'     { _rccSecretHash :: !(Maybe (Sensitive Text))@@ -57,11 +61,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rccSecretHash'+-- * 'rccSecretHash' - A keyed-hash message authentication code (HMAC) calculated using the secret key of a user pool client and username plus the client ID in the message. ----- * 'rccClientId'+-- * 'rccClientId' - The ID of the client associated with the user pool. ----- * 'rccUsername'+-- * 'rccUsername' - The user name of the user to whom you wish to resend a confirmation code. resendConfirmationCode     :: Text -- ^ 'rccClientId'     -> Text -- ^ 'rccUsername'@@ -124,8 +128,10 @@ instance ToQuery ResendConfirmationCode where         toQuery = const mempty --- | The response from the server when the Amazon Cognito service makes the request to resend a confirmation code.+-- | The response from the server when the Amazon Cognito Your User Pools service makes the request to resend a confirmation code. --+--+-- -- /See:/ 'resendConfirmationCodeResponse' smart constructor. data ResendConfirmationCodeResponse = ResendConfirmationCodeResponse'     { _rccrsCodeDeliveryDetails :: !(Maybe CodeDeliveryDetailsType)@@ -136,9 +142,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rccrsCodeDeliveryDetails'+-- * 'rccrsCodeDeliveryDetails' - The code delivery details returned by the server in response to the request to resend the confirmation code. ----- * 'rccrsResponseStatus'+-- * 'rccrsResponseStatus' - -- | The response status code. resendConfirmationCodeResponse     :: Int -- ^ 'rccrsResponseStatus'     -> ResendConfirmationCodeResponse@@ -148,11 +154,11 @@     , _rccrsResponseStatus = pResponseStatus_     } --- | Undocumented member.+-- | The code delivery details returned by the server in response to the request to resend the confirmation code. rccrsCodeDeliveryDetails :: Lens' ResendConfirmationCodeResponse (Maybe CodeDeliveryDetailsType) rccrsCodeDeliveryDetails = lens _rccrsCodeDeliveryDetails (\ s a -> s{_rccrsCodeDeliveryDetails = a}); --- | The response status code.+-- | -- | The response status code. rccrsResponseStatus :: Lens' ResendConfirmationCodeResponse Int rccrsResponseStatus = lens _rccrsResponseStatus (\ s a -> s{_rccrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Responds to the authentication challenge.+--+-- module Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | The request to respond to an authentication challenge. --+--+-- -- /See:/ 'respondToAuthChallenge' smart constructor. data RespondToAuthChallenge = RespondToAuthChallenge'     { _rtacChallengeResponses :: !(Maybe (Map Text Text))@@ -62,13 +66,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtacChallengeResponses'+-- * 'rtacChallengeResponses' - The responses to the authentication challenge. ----- * 'rtacSession'+-- * 'rtacSession' - The session. ----- * 'rtacClientId'+-- * 'rtacClientId' - The client ID. ----- * 'rtacChallengeName'+-- * 'rtacChallengeName' - The name of the challenge. respondToAuthChallenge     :: Text -- ^ 'rtacClientId'     -> ChallengeNameType -- ^ 'rtacChallengeName'@@ -143,6 +147,8 @@  -- | The response to respond to the authentication challenge. --+--+-- -- /See:/ 'respondToAuthChallengeResponse' smart constructor. data RespondToAuthChallengeResponse = RespondToAuthChallengeResponse'     { _rtacrsChallengeName        :: !(Maybe ChallengeNameType)@@ -156,15 +162,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtacrsChallengeName'+-- * 'rtacrsChallengeName' - The challenge name. ----- * 'rtacrsChallengeParameters'+-- * 'rtacrsChallengeParameters' - The challenge parameters. ----- * 'rtacrsAuthenticationResult'+-- * 'rtacrsAuthenticationResult' - The result returned by the server in response to the request to respond to the authentication challenge. ----- * 'rtacrsSession'+-- * 'rtacrsSession' - The session. ----- * 'rtacrsResponseStatus'+-- * 'rtacrsResponseStatus' - -- | The response status code. respondToAuthChallengeResponse     :: Int -- ^ 'rtacrsResponseStatus'     -> RespondToAuthChallengeResponse@@ -185,7 +191,7 @@ rtacrsChallengeParameters :: Lens' RespondToAuthChallengeResponse (HashMap Text Text) rtacrsChallengeParameters = lens _rtacrsChallengeParameters (\ s a -> s{_rtacrsChallengeParameters = a}) . _Default . _Map; --- | Undocumented member.+-- | The result returned by the server in response to the request to respond to the authentication challenge. rtacrsAuthenticationResult :: Lens' RespondToAuthChallengeResponse (Maybe AuthenticationResultType) rtacrsAuthenticationResult = lens _rtacrsAuthenticationResult (\ s a -> s{_rtacrsAuthenticationResult = a}); @@ -193,7 +199,7 @@ rtacrsSession :: Lens' RespondToAuthChallengeResponse (Maybe Text) rtacrsSession = lens _rtacrsSession (\ s a -> s{_rtacrsSession = a}); --- | The response status code.+-- | -- | The response status code. rtacrsResponseStatus :: Lens' RespondToAuthChallengeResponse Int rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Sets the user settings like multi-factor authentication (MFA). If MFA is to be removed for a particular attribute pass the attribute with code delivery as null. If null list is passed, all MFA options are removed.+--+-- module Network.AWS.CognitoIdentityProvider.SetUserSettings     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the request to set user settings. --+--+-- -- /See:/ 'setUserSettings' smart constructor. data SetUserSettings = SetUserSettings'     { _susAccessToken :: !(Sensitive Text)@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'susAccessToken'+-- * 'susAccessToken' - The access token for the set user settings request. ----- * 'susMFAOptions'+-- * 'susMFAOptions' - Specifies the options for MFA (e.g., email or phone number). setUserSettings     :: Text -- ^ 'susAccessToken'     -> SetUserSettings@@ -111,6 +115,8 @@  -- | The response from the server for a set user settings request. --+--+-- -- /See:/ 'setUserSettingsResponse' smart constructor. newtype SetUserSettingsResponse = SetUserSettingsResponse'     { _susrsResponseStatus :: Int@@ -120,7 +126,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'susrsResponseStatus'+-- * 'susrsResponseStatus' - -- | The response status code. setUserSettingsResponse     :: Int -- ^ 'susrsResponseStatus'     -> SetUserSettingsResponse@@ -129,7 +135,7 @@     { _susrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. susrsResponseStatus :: Lens' SetUserSettingsResponse Int susrsResponseStatus = lens _susrsResponseStatus (\ s a -> s{_susrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Registers the user in the specified user pool and creates a user name, password, and user attributes.+--+-- module Network.AWS.CognitoIdentityProvider.SignUp     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | Represents the request to register a user. --+--+-- -- /See:/ 'signUp' smart constructor. data SignUp = SignUp'     { _suUserAttributes :: !(Maybe [AttributeType])@@ -64,17 +68,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'suUserAttributes'+-- * 'suUserAttributes' - An array of name-value pairs representing user attributes. ----- * 'suSecretHash'+-- * 'suSecretHash' - A keyed-hash message authentication code (HMAC) calculated using the secret key of a user pool client and username plus the client ID in the message. ----- * 'suValidationData'+-- * 'suValidationData' - The validation data in the request to register a user. ----- * 'suClientId'+-- * 'suClientId' - The ID of the client associated with the user pool. ----- * 'suUsername'+-- * 'suUsername' - The user name of the user you wish to register. ----- * 'suPassword'+-- * 'suPassword' - The password of the user you wish to register. signUp     :: Text -- ^ 'suClientId'     -> Text -- ^ 'suUsername'@@ -158,6 +162,8 @@  -- | The response from the server for a registration request. --+--+-- -- /See:/ 'signUpResponse' smart constructor. data SignUpResponse = SignUpResponse'     { _sursUserConfirmed       :: !(Maybe Bool)@@ -169,11 +175,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sursUserConfirmed'+-- * 'sursUserConfirmed' - A response from the server indicating that a user registration has been confirmed. ----- * 'sursCodeDeliveryDetails'+-- * 'sursCodeDeliveryDetails' - The code delivery details returned by the server response to the user registration request. ----- * 'sursResponseStatus'+-- * 'sursResponseStatus' - -- | The response status code. signUpResponse     :: Int -- ^ 'sursResponseStatus'     -> SignUpResponse@@ -188,11 +194,11 @@ sursUserConfirmed :: Lens' SignUpResponse (Maybe Bool) sursUserConfirmed = lens _sursUserConfirmed (\ s a -> s{_sursUserConfirmed = a}); --- | Undocumented member.+-- | The code delivery details returned by the server response to the user registration request. sursCodeDeliveryDetails :: Lens' SignUpResponse (Maybe CodeDeliveryDetailsType) sursCodeDeliveryDetails = lens _sursCodeDeliveryDetails (\ s a -> s{_sursCodeDeliveryDetails = a}); --- | The response status code.+-- | -- | The response status code. sursResponseStatus :: Lens' SignUpResponse Int sursResponseStatus = lens _sursResponseStatus (\ s a -> s{_sursResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Starts the user import.+--+-- module Network.AWS.CognitoIdentityProvider.StartUserImportJob     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to start the user import job. --+--+-- -- /See:/ 'startUserImportJob' smart constructor. data StartUserImportJob = StartUserImportJob'     { _suijUserPoolId :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'suijUserPoolId'+-- * 'suijUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'suijJobId'+-- * 'suijJobId' - The job ID for the user import job. startUserImportJob     :: Text -- ^ 'suijUserPoolId'     -> Text -- ^ 'suijJobId'@@ -115,6 +119,8 @@  -- | Represents the response from the server to the request to start the user import job. --+--+-- -- /See:/ 'startUserImportJobResponse' smart constructor. data StartUserImportJobResponse = StartUserImportJobResponse'     { _suijrsUserImportJob  :: !(Maybe UserImportJobType)@@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'suijrsUserImportJob'+-- * 'suijrsUserImportJob' - The job object that represents the user import job. ----- * 'suijrsResponseStatus'+-- * 'suijrsResponseStatus' - -- | The response status code. startUserImportJobResponse     :: Int -- ^ 'suijrsResponseStatus'     -> StartUserImportJobResponse@@ -141,7 +147,7 @@ suijrsUserImportJob :: Lens' StartUserImportJobResponse (Maybe UserImportJobType) suijrsUserImportJob = lens _suijrsUserImportJob (\ s a -> s{_suijrsUserImportJob = a}); --- | The response status code.+-- | -- | The response status code. suijrsResponseStatus :: Lens' StartUserImportJobResponse Int suijrsResponseStatus = lens _suijrsResponseStatus (\ s a -> s{_suijrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Stops the user import job.+--+-- module Network.AWS.CognitoIdentityProvider.StopUserImportJob     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to stop the user import job. --+--+-- -- /See:/ 'stopUserImportJob' smart constructor. data StopUserImportJob = StopUserImportJob'     { _sUserPoolId :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sUserPoolId'+-- * 'sUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'sJobId'+-- * 'sJobId' - The job ID for the user import job. stopUserImportJob     :: Text -- ^ 'sUserPoolId'     -> Text -- ^ 'sJobId'@@ -114,6 +118,8 @@  -- | Represents the response from the server to the request to stop the user import job. --+--+-- -- /See:/ 'stopUserImportJobResponse' smart constructor. data StopUserImportJobResponse = StopUserImportJobResponse'     { _srsUserImportJob  :: !(Maybe UserImportJobType)@@ -124,9 +130,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srsUserImportJob'+-- * 'srsUserImportJob' - The job object that represents the user import job. ----- * 'srsResponseStatus'+-- * 'srsResponseStatus' - -- | The response status code. stopUserImportJobResponse     :: Int -- ^ 'srsResponseStatus'     -> StopUserImportJobResponse@@ -140,7 +146,7 @@ srsUserImportJob :: Lens' StopUserImportJobResponse (Maybe UserImportJobType) srsUserImportJob = lens _srsUserImportJob (\ s a -> s{_srsUserImportJob = a}); --- | The response status code.+-- | -- | The response status code. srsResponseStatus :: Lens' StopUserImportJobResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); 

@@ -16,6 +16,7 @@       cognitoIdentityProvider      -- * Errors+    , _UnsupportedUserStateException     , _PasswordResetRequiredException     , _InvalidParameterException     , _InvalidLambdaResponseException@@ -65,6 +66,9 @@     -- * ExplicitAuthFlowsType     , ExplicitAuthFlowsType (..) +    -- * MessageActionType+    , MessageActionType (..)+     -- * StatusType     , StatusType (..) @@ -80,6 +84,13 @@     -- * VerifiedAttributeType     , VerifiedAttributeType (..) +    -- * AdminCreateUserConfigType+    , AdminCreateUserConfigType+    , adminCreateUserConfigType+    , acuctAllowAdminCreateUserOnly+    , acuctUnusedAccountValidityDays+    , acuctInviteMessageTemplate+     -- * AttributeType     , AttributeType     , attributeType@@ -148,6 +159,13 @@     , motDeliveryMedium     , motAttributeName +    -- * MessageTemplateType+    , MessageTemplateType+    , messageTemplateType+    , mttEmailSubject+    , mttSMSMessage+    , mttEmailMessage+     -- * NewDeviceMetadataType     , NewDeviceMetadataType     , newDeviceMetadataType@@ -183,8 +201,8 @@     -- * SmsConfigurationType     , SmsConfigurationType     , smsConfigurationType-    , sctSNSCallerARN     , sctExternalId+    , sctSNSCallerARN      -- * StringAttributeConstraintsType     , StringAttributeConstraintsType@@ -266,6 +284,7 @@     , uptCreationDate     , uptLambdaConfig     , uptSmsConfiguration+    , uptAdminCreateUserConfig     , uptDeviceConfiguration     , uptAutoVerifiedAttributes     , uptPolicies@@ -278,6 +297,7 @@     , utUsername     , utUserCreateDate     , utAttributes+    , utMFAOptions     , utUserLastModifiedDate     ) where @@ -287,7 +307,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2016-04-18' of the Amazon Cognito Identity Provider SDK configuration.+-- | API version @2016-04-18@ of the Amazon Cognito Identity Provider SDK configuration. cognitoIdentityProvider :: Service cognitoIdentityProvider =     Service@@ -321,127 +341,188 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing +-- | The request failed because the user is in an unsupported state.+--+--+_UnsupportedUserStateException :: AsError a => Getting (First ServiceError) a ServiceError+_UnsupportedUserStateException =+    _ServiceError . hasCode "UnsupportedUserStateException"+ -- | This exception is thrown when a password reset is required.+--+-- _PasswordResetRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _PasswordResetRequiredException =     _ServiceError . hasCode "PasswordResetRequiredException"  -- | This exception is thrown when the Amazon Cognito service encounters an invalid parameter.+--+-- _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =     _ServiceError . hasCode "InvalidParameterException"  -- | This exception is thrown when the Amazon Cognito service encounters an invalid AWS Lambda response.+--+-- _InvalidLambdaResponseException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLambdaResponseException =     _ServiceError . hasCode "InvalidLambdaResponseException"  -- | This exception is thrown when Amazon Cognito is not allowed to use your email identity. HTTP status code: 400.+--+-- _InvalidEmailRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidEmailRoleAccessPolicyException =     _ServiceError . hasCode "InvalidEmailRoleAccessPolicyException"  -- | This exception is thrown when a user is not found.+--+-- _UserNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _UserNotFoundException = _ServiceError . hasCode "UserNotFoundException"  -- | This exception gets thrown when the Amazon Cognito service encounters an unexpected exception with the AWS Lambda service.+--+-- _UnexpectedLambdaException :: AsError a => Getting (First ServiceError) a ServiceError _UnexpectedLambdaException =     _ServiceError . hasCode "UnexpectedLambdaException"  -- | This exception gets thrown when a user is not authorized.+--+-- _NotAuthorizedException :: AsError a => Getting (First ServiceError) a ServiceError _NotAuthorizedException = _ServiceError . hasCode "NotAuthorizedException"  -- | This exception is thrown when Amazon Cognito encounters an internal error.+--+-- _InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError _InternalErrorException = _ServiceError . hasCode "InternalErrorException"  -- | This exception is thrown when the user pool configuration is invalid.+--+-- _InvalidUserPoolConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidUserPoolConfigurationException =     _ServiceError . hasCode "InvalidUserPoolConfigurationException"  -- | This exception is returned when the role provided for SMS configuration does not have permission to publish using Amazon SNS.+--+-- _InvalidSmsRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSmsRoleAccessPolicyException =     _ServiceError . hasCode "InvalidSmsRoleAccessPolicyException"  -- | This exception is thrown if the provided code does not match what the server was expecting.+--+-- _CodeMismatchException :: AsError a => Getting (First ServiceError) a ServiceError _CodeMismatchException = _ServiceError . hasCode "CodeMismatchException"  -- | This exception is thrown when you are trying to modify a user pool while a user import job is in progress for that pool.+--+-- _UserImportInProgressException :: AsError a => Getting (First ServiceError) a ServiceError _UserImportInProgressException =     _ServiceError . hasCode "UserImportInProgressException"  -- | This exception is thrown when the trust relationship is invalid for the role provided for SMS configuration. This can happen if you do not trust __cognito-idp.amazonaws.com__ or the external ID provided in the role does not match what is provided in the SMS configuration for the user pool.+--+-- _InvalidSmsRoleTrustRelationshipException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSmsRoleTrustRelationshipException =     _ServiceError . hasCode "InvalidSmsRoleTrustRelationshipException"  -- | This exception gets thrown when the user has made too many requests for a given operation.+--+-- _TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyRequestsException = _ServiceError . hasCode "TooManyRequestsException"  -- | This exception is thrown if two or more modifications are happening concurrently.+--+-- _ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError _ConcurrentModificationException =     _ServiceError . hasCode "ConcurrentModificationException"  -- | This exception gets thrown when the Amazon Cognito service encounters a user validation exception with the AWS Lambda service.+--+-- _UserLambdaValidationException :: AsError a => Getting (First ServiceError) a ServiceError _UserLambdaValidationException =     _ServiceError . hasCode "UserLambdaValidationException"  -- | This exception is thrown when a precondition is not met.+--+-- _PreconditionNotMetException :: AsError a => Getting (First ServiceError) a ServiceError _PreconditionNotMetException =     _ServiceError . hasCode "PreconditionNotMetException"  -- | This exception is thrown if a code has expired.+--+-- _ExpiredCodeException :: AsError a => Getting (First ServiceError) a ServiceError _ExpiredCodeException = _ServiceError . hasCode "ExpiredCodeException"  -- | This exception gets thrown when the user has made too many failed attempts for a given action (e.g., sign in).+--+-- _TooManyFailedAttemptsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyFailedAttemptsException =     _ServiceError . hasCode "TooManyFailedAttemptsException"  -- | This exception is thrown when a user is not confirmed successfully.+--+-- _UserNotConfirmedException :: AsError a => Getting (First ServiceError) a ServiceError _UserNotConfirmedException =     _ServiceError . hasCode "UserNotConfirmedException"  -- | This exception is thrown when a verification code fails to deliver successfully.+--+-- _CodeDeliveryFailureException :: AsError a => Getting (First ServiceError) a ServiceError _CodeDeliveryFailureException =     _ServiceError . hasCode "CodeDeliveryFailureException"  -- | This exception is thrown when the Amazon Cognito service cannot find the requested resource.+--+-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =     _ServiceError . hasCode "ResourceNotFoundException"  -- | This exception is thrown when Amazon Cognito cannot find a multi-factor authentication (MFA) method.+--+-- _MFAMethodNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _MFAMethodNotFoundException =     _ServiceError . hasCode "MFAMethodNotFoundException"  -- | This exception is thrown when a user tries to confirm the account with an email or phone number that has already been supplied as an alias from a different account. This exception tells user that an account with this email or phone already exists.+--+-- _AliasExistsException :: AsError a => Getting (First ServiceError) a ServiceError _AliasExistsException = _ServiceError . hasCode "AliasExistsException"  -- | This exception is thrown when a user exceeds the limit for a requested AWS resource.+--+-- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = _ServiceError . hasCode "LimitExceededException"  -- | This exception is thrown when the Amazon Cognito service encounters an invalid password.+--+-- _InvalidPasswordException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidPasswordException = _ServiceError . hasCode "InvalidPasswordException"  -- | This exception is thrown when Amazon Cognito encounters a user name that already exists in the user pool.+--+-- _UsernameExistsException :: AsError a => Getting (First ServiceError) a ServiceError _UsernameExistsException = _ServiceError . hasCode "UsernameExistsException"

@@ -21,8 +21,75 @@ import           Network.AWS.Lens import           Network.AWS.Prelude +-- | The type of configuration for creating a new user profile.+--+--+--+-- /See:/ 'adminCreateUserConfigType' smart constructor.+data AdminCreateUserConfigType = AdminCreateUserConfigType'+    { _acuctAllowAdminCreateUserOnly  :: !(Maybe Bool)+    , _acuctUnusedAccountValidityDays :: !(Maybe Nat)+    , _acuctInviteMessageTemplate     :: !(Maybe MessageTemplateType)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminCreateUserConfigType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acuctAllowAdminCreateUserOnly' - Set to True if only the administrator is allowed to create user profiles. Set to False if users can sign themselves up via an app.+--+-- * 'acuctUnusedAccountValidityDays' - The user account expiration limit, in days, after which the account is no longer usable. To reset the account after that time limit, you must call AdminCreateUser again, specifying "RESEND" for the MessageAction parameter.+--+-- * 'acuctInviteMessageTemplate' - The message template to be used for the welcome message to new users.+adminCreateUserConfigType+    :: AdminCreateUserConfigType+adminCreateUserConfigType =+    AdminCreateUserConfigType'+    { _acuctAllowAdminCreateUserOnly = Nothing+    , _acuctUnusedAccountValidityDays = Nothing+    , _acuctInviteMessageTemplate = Nothing+    }++-- | Set to True if only the administrator is allowed to create user profiles. Set to False if users can sign themselves up via an app.+acuctAllowAdminCreateUserOnly :: Lens' AdminCreateUserConfigType (Maybe Bool)+acuctAllowAdminCreateUserOnly = lens _acuctAllowAdminCreateUserOnly (\ s a -> s{_acuctAllowAdminCreateUserOnly = a});++-- | The user account expiration limit, in days, after which the account is no longer usable. To reset the account after that time limit, you must call AdminCreateUser again, specifying "RESEND" for the MessageAction parameter.+acuctUnusedAccountValidityDays :: Lens' AdminCreateUserConfigType (Maybe Natural)+acuctUnusedAccountValidityDays = lens _acuctUnusedAccountValidityDays (\ s a -> s{_acuctUnusedAccountValidityDays = a}) . mapping _Nat;++-- | The message template to be used for the welcome message to new users.+acuctInviteMessageTemplate :: Lens' AdminCreateUserConfigType (Maybe MessageTemplateType)+acuctInviteMessageTemplate = lens _acuctInviteMessageTemplate (\ s a -> s{_acuctInviteMessageTemplate = a});++instance FromJSON AdminCreateUserConfigType where+        parseJSON+          = withObject "AdminCreateUserConfigType"+              (\ x ->+                 AdminCreateUserConfigType' <$>+                   (x .:? "AllowAdminCreateUserOnly") <*>+                     (x .:? "UnusedAccountValidityDays")+                     <*> (x .:? "InviteMessageTemplate"))++instance Hashable AdminCreateUserConfigType++instance NFData AdminCreateUserConfigType++instance ToJSON AdminCreateUserConfigType where+        toJSON AdminCreateUserConfigType'{..}+          = object+              (catMaybes+                 [("AllowAdminCreateUserOnly" .=) <$>+                    _acuctAllowAdminCreateUserOnly,+                  ("UnusedAccountValidityDays" .=) <$>+                    _acuctUnusedAccountValidityDays,+                  ("InviteMessageTemplate" .=) <$>+                    _acuctInviteMessageTemplate])+ -- | Specifies whether the attribute is standard or custom. --+--+-- -- /See:/ 'attributeType' smart constructor. data AttributeType = AttributeType'     { _atValue :: !(Maybe (Sensitive Text))@@ -33,9 +100,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'atValue'+-- * 'atValue' - The value of the attribute. ----- * 'atName'+-- * 'atName' - The name of the attribute. attributeType     :: Text -- ^ 'atName'     -> AttributeType@@ -72,6 +139,8 @@  -- | The result type of the authentication result. --+--+-- -- /See:/ 'authenticationResultType' smart constructor. data AuthenticationResultType = AuthenticationResultType'     { _artAccessToken       :: !(Maybe (Sensitive Text))@@ -86,17 +155,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'artAccessToken'+-- * 'artAccessToken' - The access token of the authentication result. ----- * 'artRefreshToken'+-- * 'artRefreshToken' - The refresh token of the authentication result. ----- * 'artNewDeviceMetadata'+-- * 'artNewDeviceMetadata' - The new device metadata from an authentication result. ----- * 'artExpiresIn'+-- * 'artExpiresIn' - The expiration period of the authentication result. ----- * 'artTokenType'+-- * 'artTokenType' - The token type of the authentication result. ----- * 'artIdToken'+-- * 'artIdToken' - The ID token of the authentication result. authenticationResultType     :: AuthenticationResultType authenticationResultType =@@ -150,6 +219,8 @@  -- | The type of code delivery details being returned from the server. --+--+-- -- /See:/ 'codeDeliveryDetailsType' smart constructor. data CodeDeliveryDetailsType = CodeDeliveryDetailsType'     { _cddtDestination    :: !(Maybe Text)@@ -161,11 +232,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cddtDestination'+-- * 'cddtDestination' - The destination for the code delivery details. ----- * 'cddtDeliveryMedium'+-- * 'cddtDeliveryMedium' - The delivery medium (email message or phone number). ----- * 'cddtAttributeName'+-- * 'cddtAttributeName' - The name of the attribute in the code delivery details type. codeDeliveryDetailsType     :: CodeDeliveryDetailsType codeDeliveryDetailsType =@@ -199,8 +270,10 @@  instance NFData CodeDeliveryDetailsType --- | The type of configuration for the user pool\'s device tracking.+-- | The type of configuration for the user pool's device tracking. --+--+-- -- /See:/ 'deviceConfigurationType' smart constructor. data DeviceConfigurationType = DeviceConfigurationType'     { _dctChallengeRequiredOnNewDevice     :: !(Maybe Bool)@@ -211,9 +284,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dctChallengeRequiredOnNewDevice'+-- * 'dctChallengeRequiredOnNewDevice' - Indicates whether a challenge is required on a new device. Only applicable to a new device. ----- * 'dctDeviceOnlyRememberedOnUserPrompt'+-- * 'dctDeviceOnlyRememberedOnUserPrompt' - If true, a device is only remembered on user prompt. deviceConfigurationType     :: DeviceConfigurationType deviceConfigurationType =@@ -253,6 +326,8 @@  -- | The device verifier against which it will be authenticated. --+--+-- -- /See:/ 'deviceSecretVerifierConfigType' smart constructor. data DeviceSecretVerifierConfigType = DeviceSecretVerifierConfigType'     { _dsvctPasswordVerifier :: !(Maybe Text)@@ -263,9 +338,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsvctPasswordVerifier'+-- * 'dsvctPasswordVerifier' - The password verifier. ----- * 'dsvctSalt'+-- * 'dsvctSalt' - The salt. deviceSecretVerifierConfigType     :: DeviceSecretVerifierConfigType deviceSecretVerifierConfigType =@@ -295,6 +370,8 @@  -- | The device type. --+--+-- -- /See:/ 'deviceType' smart constructor. data DeviceType = DeviceType'     { _dtDeviceLastModifiedDate      :: !(Maybe POSIX)@@ -308,15 +385,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtDeviceLastModifiedDate'+-- * 'dtDeviceLastModifiedDate' - The last modified date of the device. ----- * 'dtDeviceCreateDate'+-- * 'dtDeviceCreateDate' - The creation date of the device. ----- * 'dtDeviceAttributes'+-- * 'dtDeviceAttributes' - The device attributes. ----- * 'dtDeviceKey'+-- * 'dtDeviceKey' - The device key. ----- * 'dtDeviceLastAuthenticatedDate'+-- * 'dtDeviceLastAuthenticatedDate' - The date in which the device was last authenticated. deviceType     :: DeviceType deviceType =@@ -365,6 +442,8 @@  -- | The email configuration type. --+--+-- -- /See:/ 'emailConfigurationType' smart constructor. data EmailConfigurationType = EmailConfigurationType'     { _ectSourceARN           :: !(Maybe Text)@@ -375,9 +454,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ectSourceARN'+-- * 'ectSourceARN' - The Amazon Resource Name (ARN) of the email source. ----- * 'ectReplyToEmailAddress'+-- * 'ectReplyToEmailAddress' - The REPLY-TO email address. emailConfigurationType     :: EmailConfigurationType emailConfigurationType =@@ -416,6 +495,8 @@  -- | Specifies the type of configuration for AWS Lambda triggers. --+--+-- -- /See:/ 'lambdaConfigType' smart constructor. data LambdaConfigType = LambdaConfigType'     { _lctPreAuthentication           :: !(Maybe Text)@@ -432,21 +513,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lctPreAuthentication'+-- * 'lctPreAuthentication' - A pre-authentication AWS Lambda trigger. ----- * 'lctCreateAuthChallenge'+-- * 'lctCreateAuthChallenge' - Creates an authentication challenge. ----- * 'lctVerifyAuthChallengeResponse'+-- * 'lctVerifyAuthChallengeResponse' - Verifies the authentication challenge response. ----- * 'lctPostAuthentication'+-- * 'lctPostAuthentication' - A post-authentication AWS Lambda trigger. ----- * 'lctCustomMessage'+-- * 'lctCustomMessage' - A custom Message AWS Lambda trigger. ----- * 'lctDefineAuthChallenge'+-- * 'lctDefineAuthChallenge' - Defines the authentication challenge. ----- * 'lctPostConfirmation'+-- * 'lctPostConfirmation' - A post-confirmation AWS Lambda trigger. ----- * 'lctPreSignUp'+-- * 'lctPreSignUp' - A pre-registration AWS Lambda trigger. lambdaConfigType     :: LambdaConfigType lambdaConfigType =@@ -529,6 +610,8 @@  -- | Specifies the different settings for multi-factor authentication (MFA). --+--+-- -- /See:/ 'mfaOptionType' smart constructor. data MFAOptionType = MFAOptionType'     { _motDeliveryMedium :: !(Maybe DeliveryMediumType)@@ -539,9 +622,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'motDeliveryMedium'+-- * 'motDeliveryMedium' - The delivery medium (email message or SMS message) to send the MFA code. ----- * 'motAttributeName'+-- * 'motAttributeName' - The attribute name of the MFA option type. mfaOptionType     :: MFAOptionType mfaOptionType =@@ -576,8 +659,71 @@                  [("DeliveryMedium" .=) <$> _motDeliveryMedium,                   ("AttributeName" .=) <$> _motAttributeName]) +-- | The message template structure.+--+--+--+-- /See:/ 'messageTemplateType' smart constructor.+data MessageTemplateType = MessageTemplateType'+    { _mttEmailSubject :: !(Maybe Text)+    , _mttSMSMessage   :: !(Maybe Text)+    , _mttEmailMessage :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'MessageTemplateType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mttEmailSubject' - The subject line for email messages.+--+-- * 'mttSMSMessage' - The message template for SMS messages.+--+-- * 'mttEmailMessage' - The message template for email messages.+messageTemplateType+    :: MessageTemplateType+messageTemplateType =+    MessageTemplateType'+    { _mttEmailSubject = Nothing+    , _mttSMSMessage = Nothing+    , _mttEmailMessage = Nothing+    }++-- | The subject line for email messages.+mttEmailSubject :: Lens' MessageTemplateType (Maybe Text)+mttEmailSubject = lens _mttEmailSubject (\ s a -> s{_mttEmailSubject = a});++-- | The message template for SMS messages.+mttSMSMessage :: Lens' MessageTemplateType (Maybe Text)+mttSMSMessage = lens _mttSMSMessage (\ s a -> s{_mttSMSMessage = a});++-- | The message template for email messages.+mttEmailMessage :: Lens' MessageTemplateType (Maybe Text)+mttEmailMessage = lens _mttEmailMessage (\ s a -> s{_mttEmailMessage = a});++instance FromJSON MessageTemplateType where+        parseJSON+          = withObject "MessageTemplateType"+              (\ x ->+                 MessageTemplateType' <$>+                   (x .:? "EmailSubject") <*> (x .:? "SMSMessage") <*>+                     (x .:? "EmailMessage"))++instance Hashable MessageTemplateType++instance NFData MessageTemplateType++instance ToJSON MessageTemplateType where+        toJSON MessageTemplateType'{..}+          = object+              (catMaybes+                 [("EmailSubject" .=) <$> _mttEmailSubject,+                  ("SMSMessage" .=) <$> _mttSMSMessage,+                  ("EmailMessage" .=) <$> _mttEmailMessage])+ -- | The new device metadata type. --+--+-- -- /See:/ 'newDeviceMetadataType' smart constructor. data NewDeviceMetadataType = NewDeviceMetadataType'     { _ndmtDeviceGroupKey :: !(Maybe Text)@@ -588,9 +734,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ndmtDeviceGroupKey'+-- * 'ndmtDeviceGroupKey' - The device group key. ----- * 'ndmtDeviceKey'+-- * 'ndmtDeviceKey' - The device key. newDeviceMetadataType     :: NewDeviceMetadataType newDeviceMetadataType =@@ -620,6 +766,8 @@  -- | The minimum and maximum value of an attribute that is of the number data type. --+--+-- -- /See:/ 'numberAttributeConstraintsType' smart constructor. data NumberAttributeConstraintsType = NumberAttributeConstraintsType'     { _nactMaxValue :: !(Maybe Text)@@ -630,9 +778,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'nactMaxValue'+-- * 'nactMaxValue' - The maximum value of an attribute that is of the number data type. ----- * 'nactMinValue'+-- * 'nactMinValue' - The minimum value of an attribute that is of the number data type. numberAttributeConstraintsType     :: NumberAttributeConstraintsType numberAttributeConstraintsType =@@ -670,6 +818,8 @@  -- | The password policy type. --+--+-- -- /See:/ 'passwordPolicyType' smart constructor. data PasswordPolicyType = PasswordPolicyType'     { _pptRequireNumbers   :: !(Maybe Bool)@@ -683,15 +833,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pptRequireNumbers'+-- * 'pptRequireNumbers' - In the password policy that you have set, refers to whether you have required users to use at least one number in their password. ----- * 'pptRequireUppercase'+-- * 'pptRequireUppercase' - In the password policy that you have set, refers to whether you have required users to use at least one uppercase letter in their password. ----- * 'pptRequireLowercase'+-- * 'pptRequireLowercase' - In the password policy that you have set, refers to whether you have required users to use at least one lowercase letter in their password. ----- * 'pptMinimumLength'+-- * 'pptMinimumLength' - The minimum length of the password policy that you have set. Cannot be less than 6. ----- * 'pptRequireSymbols'+-- * 'pptRequireSymbols' - In the password policy that you have set, refers to whether you have required users to use at least one symbol in their password. passwordPolicyType     :: PasswordPolicyType passwordPolicyType =@@ -750,6 +900,8 @@  -- | Contains information about the schema attribute. --+--+-- -- /See:/ 'schemaAttributeType' smart constructor. data SchemaAttributeType = SchemaAttributeType'     { _satNumberAttributeConstraints :: !(Maybe NumberAttributeConstraintsType)@@ -765,19 +917,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'satNumberAttributeConstraints'+-- * 'satNumberAttributeConstraints' - Specifies the constraints for an attribute of the number type. ----- * 'satRequired'+-- * 'satRequired' - Specifies whether a user pool attribute is required. If the attribute is required and the user does not provide a value, registration or sign-in will fail. ----- * 'satAttributeDataType'+-- * 'satAttributeDataType' - The attribute data type. ----- * 'satStringAttributeConstraints'+-- * 'satStringAttributeConstraints' - Specifies the constraints for an attribute of the string type. ----- * 'satName'+-- * 'satName' - A schema attribute of the name type. ----- * 'satDeveloperOnlyAttribute'+-- * 'satDeveloperOnlyAttribute' - Specifies whether the attribute type is developer only. ----- * 'satMutable'+-- * 'satMutable' - Specifies whether the attribute can be changed once it has been created. schemaAttributeType     :: SchemaAttributeType schemaAttributeType =@@ -853,41 +1005,44 @@  -- | The SMS configuratoin type. --+--+-- -- /See:/ 'smsConfigurationType' smart constructor. data SmsConfigurationType = SmsConfigurationType'-    { _sctSNSCallerARN :: !(Maybe Text)-    , _sctExternalId   :: !(Maybe Text)+    { _sctExternalId   :: !(Maybe Text)+    , _sctSNSCallerARN :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'SmsConfigurationType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sctSNSCallerARN'+-- * 'sctExternalId' - The external ID. ----- * 'sctExternalId'+-- * 'sctSNSCallerARN' - The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) caller. smsConfigurationType-    :: SmsConfigurationType-smsConfigurationType =+    :: Text -- ^ 'sctSNSCallerARN'+    -> SmsConfigurationType+smsConfigurationType pSNSCallerARN_ =     SmsConfigurationType'-    { _sctSNSCallerARN = Nothing-    , _sctExternalId = Nothing+    { _sctExternalId = Nothing+    , _sctSNSCallerARN = pSNSCallerARN_     } --- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) caller.-sctSNSCallerARN :: Lens' SmsConfigurationType (Maybe Text)-sctSNSCallerARN = lens _sctSNSCallerARN (\ s a -> s{_sctSNSCallerARN = a});- -- | The external ID. sctExternalId :: Lens' SmsConfigurationType (Maybe Text) sctExternalId = lens _sctExternalId (\ s a -> s{_sctExternalId = a}); +-- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) caller.+sctSNSCallerARN :: Lens' SmsConfigurationType Text+sctSNSCallerARN = lens _sctSNSCallerARN (\ s a -> s{_sctSNSCallerARN = a});+ instance FromJSON SmsConfigurationType where         parseJSON           = withObject "SmsConfigurationType"               (\ x ->                  SmsConfigurationType' <$>-                   (x .:? "SnsCallerArn") <*> (x .:? "ExternalId"))+                   (x .:? "ExternalId") <*> (x .: "SnsCallerArn"))  instance Hashable SmsConfigurationType @@ -897,11 +1052,13 @@         toJSON SmsConfigurationType'{..}           = object               (catMaybes-                 [("SnsCallerArn" .=) <$> _sctSNSCallerARN,-                  ("ExternalId" .=) <$> _sctExternalId])+                 [("ExternalId" .=) <$> _sctExternalId,+                  Just ("SnsCallerArn" .= _sctSNSCallerARN)])  -- | The type of constraints associated with an attribute of the string type. --+--+-- -- /See:/ 'stringAttributeConstraintsType' smart constructor. data StringAttributeConstraintsType = StringAttributeConstraintsType'     { _sactMaxLength :: !(Maybe Text)@@ -912,9 +1069,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sactMaxLength'+-- * 'sactMaxLength' - The maximum length of an attribute value of the string type. ----- * 'sactMinLength'+-- * 'sactMinLength' - The minimum length of an attribute value of the string type. stringAttributeConstraintsType     :: StringAttributeConstraintsType stringAttributeConstraintsType =@@ -952,6 +1109,8 @@  -- | The user import job type. --+--+-- -- /See:/ 'userImportJobType' smart constructor. data UserImportJobType = UserImportJobType'     { _uijtStatus                :: !(Maybe UserImportJobStatusType)@@ -973,31 +1132,31 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uijtStatus'+-- * 'uijtStatus' - The status of the user import job. One of the following:     * Created - The job was created but not started.     * Pending - A transition state. You have started the job, but it has not begun importing users yet.     * InProgress - The job has started, and users are being imported.     * Stopping - You have stopped the job, but the job has not stopped importing users yet.     * Stopped - You have stopped the job, and the job has stopped importing users.     * Succeeded - The job has completed successfully.     * Failed - The job has stopped due to an error.     * Expired - You created a job, but did not start the job within 24-48 hours. All data associated with the job was deleted, and the job cannot be started. ----- * 'uijtSkippedUsers'+-- * 'uijtSkippedUsers' - The number of users that were skipped. ----- * 'uijtJobId'+-- * 'uijtJobId' - The job ID for the user import job. ----- * 'uijtUserPoolId'+-- * 'uijtUserPoolId' - The user pool ID for the user pool that the users are being imported into. ----- * 'uijtJobName'+-- * 'uijtJobName' - The job name for the user import job. ----- * 'uijtPreSignedURL'+-- * 'uijtPreSignedURL' - The pre-signed URL to be used to upload the .csv file. ----- * 'uijtFailedUsers'+-- * 'uijtFailedUsers' - The number of users that could not be imported. ----- * 'uijtStartDate'+-- * 'uijtStartDate' - The date when the user import job was started. ----- * 'uijtCompletionMessage'+-- * 'uijtCompletionMessage' - The message returned when the user import job is completed. ----- * 'uijtCreationDate'+-- * 'uijtCreationDate' - The date when the user import job was created. ----- * 'uijtCompletionDate'+-- * 'uijtCompletionDate' - The date when the user imoprt job was completed. ----- * 'uijtCloudWatchLogsRoleARN'+-- * 'uijtCloudWatchLogsRoleARN' - The role ARN for the Amazon CloudWatch Logging role for the user import job. For more information, see "Creating the CloudWatch Logs IAM Role" in the Amazon Cognito Developer Guide. ----- * 'uijtImportedUsers'+-- * 'uijtImportedUsers' - The number of users that were successfully imported. userImportJobType     :: UserImportJobType userImportJobType =@@ -1017,16 +1176,7 @@     , _uijtImportedUsers = Nothing     } --- | The status of the user import job. One of the following:------ -   Created - The job was created but not started.--- -   Pending - A transition state. You have started the job, but it has not begun importing users yet.--- -   InProgress - The job has started, and users are being imported.--- -   Stopping - You have stopped the job, but the job has not stopped importing users yet.--- -   Stopped - You have stopped the job, and the job has stopped importing users.--- -   Succeeded - The job has completed successfully.--- -   Failed - The job has stopped due to an error.--- -   Expired - You created a job, but did not start the job within 24-48 hours. All data associated with the job was deleted, and the job cannot be started.+-- | The status of the user import job. One of the following:     * Created - The job was created but not started.     * Pending - A transition state. You have started the job, but it has not begun importing users yet.     * InProgress - The job has started, and users are being imported.     * Stopping - You have stopped the job, but the job has not stopped importing users yet.     * Stopped - You have stopped the job, and the job has stopped importing users.     * Succeeded - The job has completed successfully.     * Failed - The job has stopped due to an error.     * Expired - You created a job, but did not start the job within 24-48 hours. All data associated with the job was deleted, and the job cannot be started. uijtStatus :: Lens' UserImportJobType (Maybe UserImportJobStatusType) uijtStatus = lens _uijtStatus (\ s a -> s{_uijtStatus = a}); @@ -1070,7 +1220,7 @@ uijtCompletionDate :: Lens' UserImportJobType (Maybe UTCTime) uijtCompletionDate = lens _uijtCompletionDate (\ s a -> s{_uijtCompletionDate = a}) . mapping _Time; --- | The role ARN for the Amazon CloudWatch Logging role for the user import job. For more information, see \"Creating the CloudWatch Logs IAM Role\" in the Amazon Cognito Developer Guide.+-- | The role ARN for the Amazon CloudWatch Logging role for the user import job. For more information, see "Creating the CloudWatch Logs IAM Role" in the Amazon Cognito Developer Guide. uijtCloudWatchLogsRoleARN :: Lens' UserImportJobType (Maybe Text) uijtCloudWatchLogsRoleARN = lens _uijtCloudWatchLogsRoleARN (\ s a -> s{_uijtCloudWatchLogsRoleARN = a}); @@ -1102,6 +1252,8 @@  -- | The description of the user poool client. --+--+-- -- /See:/ 'userPoolClientDescription' smart constructor. data UserPoolClientDescription = UserPoolClientDescription'     { _upcdClientId   :: !(Maybe (Sensitive Text))@@ -1113,11 +1265,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'upcdClientId'+-- * 'upcdClientId' - The ID of the client associated with the user pool. ----- * 'upcdUserPoolId'+-- * 'upcdUserPoolId' - The user pool ID for the user pool where you want to describe the user pool client. ----- * 'upcdClientName'+-- * 'upcdClientName' - The client name from the user pool client description. userPoolClientDescription     :: UserPoolClientDescription userPoolClientDescription =@@ -1153,6 +1305,8 @@  -- | A user pool of the client type. --+--+-- -- /See:/ 'userPoolClientType' smart constructor. data UserPoolClientType = UserPoolClientType'     { _upctRefreshTokenValidity :: !(Maybe Nat)@@ -1171,25 +1325,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'upctRefreshTokenValidity'+-- * 'upctRefreshTokenValidity' - The validity of the refresh token. ----- * 'upctClientId'+-- * 'upctClientId' - The ID of the client associated with the user pool. ----- * 'upctExplicitAuthFlows'+-- * 'upctExplicitAuthFlows' - The explicit authentication flows. ----- * 'upctClientSecret'+-- * 'upctClientSecret' - The client secret from the user pool request of the client type. ----- * 'upctLastModifiedDate'+-- * 'upctLastModifiedDate' - The last modified date from the user pool request of the client type. ----- * 'upctUserPoolId'+-- * 'upctUserPoolId' - The user pool ID for the user pool client. ----- * 'upctWriteAttributes'+-- * 'upctWriteAttributes' - The writeable attributes. ----- * 'upctCreationDate'+-- * 'upctCreationDate' - The creation date from the user pool request of the client type. ----- * 'upctReadAttributes'+-- * 'upctReadAttributes' - The Read-only attributes. ----- * 'upctClientName'+-- * 'upctClientName' - The client name from the user pool request of the client type. userPoolClientType     :: UserPoolClientType userPoolClientType =@@ -1267,6 +1421,8 @@  -- | A user pool description. --+--+-- -- /See:/ 'userPoolDescriptionType' smart constructor. data UserPoolDescriptionType = UserPoolDescriptionType'     { _updtStatus           :: !(Maybe StatusType)@@ -1281,17 +1437,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'updtStatus'+-- * 'updtStatus' - The user pool status in a user pool description. ----- * 'updtLastModifiedDate'+-- * 'updtLastModifiedDate' - The last modified date in a user pool description. ----- * 'updtName'+-- * 'updtName' - The name in a user pool description. ----- * 'updtId'+-- * 'updtId' - The ID in a user pool description. ----- * 'updtCreationDate'+-- * 'updtCreationDate' - The creation date in a user pool description. ----- * 'updtLambdaConfig'+-- * 'updtLambdaConfig' - The AWS Lambda configuration information in a user pool description. userPoolDescriptionType     :: UserPoolDescriptionType userPoolDescriptionType =@@ -1345,6 +1501,8 @@  -- | The type of policy in a user pool. --+--+-- -- /See:/ 'userPoolPolicyType' smart constructor. newtype UserPoolPolicyType = UserPoolPolicyType'     { _upptPasswordPolicy :: Maybe PasswordPolicyType@@ -1354,7 +1512,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'upptPasswordPolicy'+-- * 'upptPasswordPolicy' - A container with information about the user pool password policy. userPoolPolicyType     :: UserPoolPolicyType userPoolPolicyType =@@ -1384,6 +1542,8 @@  -- | A container with information about the user pool type. --+--+-- -- /See:/ 'userPoolType' smart constructor. data UserPoolType = UserPoolType'     { _uptStatus                    :: !(Maybe StatusType)@@ -1404,6 +1564,7 @@     , _uptCreationDate              :: !(Maybe POSIX)     , _uptLambdaConfig              :: !(Maybe LambdaConfigType)     , _uptSmsConfiguration          :: !(Maybe SmsConfigurationType)+    , _uptAdminCreateUserConfig     :: !(Maybe AdminCreateUserConfigType)     , _uptDeviceConfiguration       :: !(Maybe DeviceConfigurationType)     , _uptAutoVerifiedAttributes    :: !(Maybe [VerifiedAttributeType])     , _uptPolicies                  :: !(Maybe UserPoolPolicyType)@@ -1413,47 +1574,49 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uptStatus'+-- * 'uptStatus' - The status of a user pool. ----- * 'uptEmailConfigurationFailure'+-- * 'uptEmailConfigurationFailure' - The reason why the email configuration cannot send the messages to your users. ----- * 'uptLastModifiedDate'+-- * 'uptLastModifiedDate' - The last modified date of a user pool. ----- * 'uptEstimatedNumberOfUsers'+-- * 'uptEstimatedNumberOfUsers' - A number estimating the size of the user pool. ----- * 'uptEmailVerificationMessage'+-- * 'uptEmailVerificationMessage' - The contents of the email verification message. ----- * 'uptSmsAuthenticationMessage'+-- * 'uptSmsAuthenticationMessage' - The contents of the SMS authentication message. ----- * 'uptSchemaAttributes'+-- * 'uptSchemaAttributes' - A container with the schema attributes of a user pool. ----- * 'uptEmailVerificationSubject'+-- * 'uptEmailVerificationSubject' - The subject of the email verification message. ----- * 'uptAliasAttributes'+-- * 'uptAliasAttributes' - Specifies the attributes that are aliased in a user pool. ----- * 'uptEmailConfiguration'+-- * 'uptEmailConfiguration' - The email configuration. ----- * 'uptSmsVerificationMessage'+-- * 'uptSmsVerificationMessage' - The contents of the SMS verification message. ----- * 'uptName'+-- * 'uptName' - The name of the user pool. ----- * 'uptMFAConfiguration'+-- * 'uptMFAConfiguration' - Can be one of the following values:     * @OFF@ - MFA tokens are not required and cannot be specified during user registration.     * @ON@ - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.     * @OPTIONAL@ - Users have the option when registering to create an MFA token. ----- * 'uptId'+-- * 'uptId' - The ID of the user pool. ----- * 'uptSmsConfigurationFailure'+-- * 'uptSmsConfigurationFailure' - The reason why the SMS configuration cannot send the message(s) to your users. ----- * 'uptCreationDate'+-- * 'uptCreationDate' - The creation date of a user pool. ----- * 'uptLambdaConfig'+-- * 'uptLambdaConfig' - A container describing the AWS Lambda triggers associated with a user pool. ----- * 'uptSmsConfiguration'+-- * 'uptSmsConfiguration' - The SMS configuration. ----- * 'uptDeviceConfiguration'+-- * 'uptAdminCreateUserConfig' - The configuration for AdminCreateUser requests. ----- * 'uptAutoVerifiedAttributes'+-- * 'uptDeviceConfiguration' - The device configuration. ----- * 'uptPolicies'+-- * 'uptAutoVerifiedAttributes' - Specifies the attributes that are auto-verified in a user pool.+--+-- * 'uptPolicies' - A container describing the policies associated with a user pool. userPoolType     :: UserPoolType userPoolType =@@ -1476,6 +1639,7 @@     , _uptCreationDate = Nothing     , _uptLambdaConfig = Nothing     , _uptSmsConfiguration = Nothing+    , _uptAdminCreateUserConfig = Nothing     , _uptDeviceConfiguration = Nothing     , _uptAutoVerifiedAttributes = Nothing     , _uptPolicies = Nothing@@ -1529,11 +1693,7 @@ uptName :: Lens' UserPoolType (Maybe Text) uptName = lens _uptName (\ s a -> s{_uptName = a}); --- | Can be one of the following values:------ -   'OFF' - MFA tokens are not required and cannot be specified during user registration.--- -   'ON' - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.--- -   'OPTIONAL' - Users have the option when registering to create an MFA token.+-- | Can be one of the following values:     * @OFF@ - MFA tokens are not required and cannot be specified during user registration.     * @ON@ - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.     * @OPTIONAL@ - Users have the option when registering to create an MFA token. uptMFAConfiguration :: Lens' UserPoolType (Maybe UserPoolMFAType) uptMFAConfiguration = lens _uptMFAConfiguration (\ s a -> s{_uptMFAConfiguration = a}); @@ -1557,6 +1717,10 @@ uptSmsConfiguration :: Lens' UserPoolType (Maybe SmsConfigurationType) uptSmsConfiguration = lens _uptSmsConfiguration (\ s a -> s{_uptSmsConfiguration = a}); +-- | The configuration for AdminCreateUser requests.+uptAdminCreateUserConfig :: Lens' UserPoolType (Maybe AdminCreateUserConfigType)+uptAdminCreateUserConfig = lens _uptAdminCreateUserConfig (\ s a -> s{_uptAdminCreateUserConfig = a});+ -- | The device configuration. uptDeviceConfiguration :: Lens' UserPoolType (Maybe DeviceConfigurationType) uptDeviceConfiguration = lens _uptDeviceConfiguration (\ s a -> s{_uptDeviceConfiguration = a});@@ -1592,6 +1756,7 @@                      <*> (x .:? "CreationDate")                      <*> (x .:? "LambdaConfig")                      <*> (x .:? "SmsConfiguration")+                     <*> (x .:? "AdminCreateUserConfig")                      <*> (x .:? "DeviceConfiguration")                      <*> (x .:? "AutoVerifiedAttributes" .!= mempty)                      <*> (x .:? "Policies"))@@ -1602,6 +1767,8 @@  -- | The user type. --+--+-- -- /See:/ 'userType' smart constructor. data UserType = UserType'     { _utEnabled              :: !(Maybe Bool)@@ -1609,6 +1776,7 @@     , _utUsername             :: !(Maybe (Sensitive Text))     , _utUserCreateDate       :: !(Maybe POSIX)     , _utAttributes           :: !(Maybe [AttributeType])+    , _utMFAOptions           :: !(Maybe [MFAOptionType])     , _utUserLastModifiedDate :: !(Maybe POSIX)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -1616,17 +1784,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'utEnabled'+-- * 'utEnabled' - Specifies whether the user is enabled. ----- * 'utUserStatus'+-- * 'utUserStatus' - The user status. Can be one of the following:     * UNCONFIRMED - User has been created but not confirmed.     * CONFIRMED - User has been confirmed.     * ARCHIVED - User is no longer active.     * COMPROMISED - User is disabled due to a potential security threat.     * UNKNOWN - User status is not known. ----- * 'utUsername'+-- * 'utUsername' - The user name of the user you wish to describe. ----- * 'utUserCreateDate'+-- * 'utUserCreateDate' - The creation date of the user. ----- * 'utAttributes'+-- * 'utAttributes' - A container with information about the user type attributes. ----- * 'utUserLastModifiedDate'+-- * 'utMFAOptions' - The MFA options for the user.+--+-- * 'utUserLastModifiedDate' - The last modified date of the user. userType     :: UserType userType =@@ -1636,6 +1806,7 @@     , _utUsername = Nothing     , _utUserCreateDate = Nothing     , _utAttributes = Nothing+    , _utMFAOptions = Nothing     , _utUserLastModifiedDate = Nothing     } @@ -1643,13 +1814,7 @@ utEnabled :: Lens' UserType (Maybe Bool) utEnabled = lens _utEnabled (\ s a -> s{_utEnabled = a}); --- | The user status. Can be one of the following:------ -   UNCONFIRMED - User has been created but not confirmed.--- -   CONFIRMED - User has been confirmed.--- -   ARCHIVED - User is no longer active.--- -   COMPROMISED - User is disabled due to a potential security threat.--- -   UNKNOWN - User status is not known.+-- | The user status. Can be one of the following:     * UNCONFIRMED - User has been created but not confirmed.     * CONFIRMED - User has been confirmed.     * ARCHIVED - User is no longer active.     * COMPROMISED - User is disabled due to a potential security threat.     * UNKNOWN - User status is not known. utUserStatus :: Lens' UserType (Maybe UserStatusType) utUserStatus = lens _utUserStatus (\ s a -> s{_utUserStatus = a}); @@ -1665,6 +1830,10 @@ utAttributes :: Lens' UserType [AttributeType] utAttributes = lens _utAttributes (\ s a -> s{_utAttributes = a}) . _Default . _Coerce; +-- | The MFA options for the user.+utMFAOptions :: Lens' UserType [MFAOptionType]+utMFAOptions = lens _utMFAOptions (\ s a -> s{_utMFAOptions = a}) . _Default . _Coerce;+ -- | The last modified date of the user. utUserLastModifiedDate :: Lens' UserType (Maybe UTCTime) utUserLastModifiedDate = lens _utUserLastModifiedDate (\ s a -> s{_utUserLastModifiedDate = a}) . mapping _Time;@@ -1678,6 +1847,7 @@                      (x .:? "Username")                      <*> (x .:? "UserCreateDate")                      <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "MFAOptions" .!= mempty)                      <*> (x .:? "UserLastModifiedDate"))  instance Hashable UserType

@@ -126,6 +126,7 @@     | CNTCustomChallenge     | CNTDevicePasswordVerifier     | CNTDeviceSrpAuth+    | CNTNewPasswordRequired     | CNTPasswordVerifier     | CNTSmsMFA     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -136,10 +137,11 @@         "custom_challenge" -> pure CNTCustomChallenge         "device_password_verifier" -> pure CNTDevicePasswordVerifier         "device_srp_auth" -> pure CNTDeviceSrpAuth+        "new_password_required" -> pure CNTNewPasswordRequired         "password_verifier" -> pure CNTPasswordVerifier         "sms_mfa" -> pure CNTSmsMFA         e -> fromTextError $ "Failure parsing ChallengeNameType from value: '" <> e-           <> "'. Accepted values: admin_no_srp_auth, custom_challenge, device_password_verifier, device_srp_auth, password_verifier, sms_mfa"+           <> "'. Accepted values: admin_no_srp_auth, custom_challenge, device_password_verifier, device_srp_auth, new_password_required, password_verifier, sms_mfa"  instance ToText ChallengeNameType where     toText = \case@@ -147,6 +149,7 @@         CNTCustomChallenge -> "CUSTOM_CHALLENGE"         CNTDevicePasswordVerifier -> "DEVICE_PASSWORD_VERIFIER"         CNTDeviceSrpAuth -> "DEVICE_SRP_AUTH"+        CNTNewPasswordRequired -> "NEW_PASSWORD_REQUIRED"         CNTPasswordVerifier -> "PASSWORD_VERIFIER"         CNTSmsMFA -> "SMS_MFA" @@ -246,6 +249,32 @@ instance FromJSON ExplicitAuthFlowsType where     parseJSON = parseJSONText "ExplicitAuthFlowsType" +data MessageActionType+    = Resend+    | Suppress+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText MessageActionType where+    parser = takeLowerText >>= \case+        "resend" -> pure Resend+        "suppress" -> pure Suppress+        e -> fromTextError $ "Failure parsing MessageActionType from value: '" <> e+           <> "'. Accepted values: resend, suppress"++instance ToText MessageActionType where+    toText = \case+        Resend -> "RESEND"+        Suppress -> "SUPPRESS"++instance Hashable     MessageActionType+instance NFData       MessageActionType+instance ToByteString MessageActionType+instance ToQuery      MessageActionType+instance ToHeader     MessageActionType++instance ToJSON MessageActionType where+    toJSON = toJSONText+ data StatusType     = Disabled     | Enabled@@ -352,6 +381,7 @@     = Archived     | Compromised     | Confirmed+    | ForceChangePassword     | ResetRequired     | Unconfirmed     | Unknown@@ -362,17 +392,19 @@         "archived" -> pure Archived         "compromised" -> pure Compromised         "confirmed" -> pure Confirmed+        "force_change_password" -> pure ForceChangePassword         "reset_required" -> pure ResetRequired         "unconfirmed" -> pure Unconfirmed         "unknown" -> pure Unknown         e -> fromTextError $ "Failure parsing UserStatusType from value: '" <> e-           <> "'. Accepted values: archived, compromised, confirmed, reset_required, unconfirmed, unknown"+           <> "'. Accepted values: archived, compromised, confirmed, force_change_password, reset_required, unconfirmed, unknown"  instance ToText UserStatusType where     toText = \case         Archived -> "ARCHIVED"         Compromised -> "COMPROMISED"         Confirmed -> "CONFIRMED"+        ForceChangePassword -> "FORCE_CHANGE_PASSWORD"         ResetRequired -> "RESET_REQUIRED"         Unconfirmed -> "UNCONFIRMED"         Unknown -> "UNKNOWN"

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates the device status.+--+-- module Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to update the device status. --+--+-- -- /See:/ 'updateDeviceStatus' smart constructor. data UpdateDeviceStatus = UpdateDeviceStatus'     { _udsDeviceRememberedStatus :: !(Maybe DeviceRememberedStatusType)@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udsDeviceRememberedStatus'+-- * 'udsDeviceRememberedStatus' - The status of whether a device is remembered. ----- * 'udsAccessToken'+-- * 'udsAccessToken' - The access token. ----- * 'udsDeviceKey'+-- * 'udsDeviceKey' - The device key. updateDeviceStatus     :: Text -- ^ 'udsAccessToken'     -> Text -- ^ 'udsDeviceKey'@@ -124,6 +128,8 @@  -- | The response to the request to update the device status. --+--+-- -- /See:/ 'updateDeviceStatusResponse' smart constructor. newtype UpdateDeviceStatusResponse = UpdateDeviceStatusResponse'     { _udsrsResponseStatus :: Int@@ -133,7 +139,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udsrsResponseStatus'+-- * 'udsrsResponseStatus' - -- | The response status code. updateDeviceStatusResponse     :: Int -- ^ 'udsrsResponseStatus'     -> UpdateDeviceStatusResponse@@ -142,7 +148,7 @@     { _udsrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. udsrsResponseStatus :: Lens' UpdateDeviceStatusResponse Int udsrsResponseStatus = lens _udsrsResponseStatus (\ s a -> s{_udsrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Allows a user to update a specific attribute (one at a time).+--+-- module Network.AWS.CognitoIdentityProvider.UpdateUserAttributes     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to update user attributes. --+--+-- -- /See:/ 'updateUserAttributes' smart constructor. data UpdateUserAttributes = UpdateUserAttributes'     { _uuaAccessToken    :: !(Maybe (Sensitive Text))@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uuaAccessToken'+-- * 'uuaAccessToken' - The access token for the request to update user attributes. ----- * 'uuaUserAttributes'+-- * 'uuaUserAttributes' - An array of name-value pairs representing user attributes. updateUserAttributes     :: UpdateUserAttributes updateUserAttributes =@@ -114,6 +118,8 @@  -- | Represents the response from the server for the request to update user attributes. --+--+-- -- /See:/ 'updateUserAttributesResponse' smart constructor. data UpdateUserAttributesResponse = UpdateUserAttributesResponse'     { _uuarsCodeDeliveryDetailsList :: !(Maybe [CodeDeliveryDetailsType])@@ -124,9 +130,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uuarsCodeDeliveryDetailsList'+-- * 'uuarsCodeDeliveryDetailsList' - The code delivery details list from the server for the request to update user attributes. ----- * 'uuarsResponseStatus'+-- * 'uuarsResponseStatus' - -- | The response status code. updateUserAttributesResponse     :: Int -- ^ 'uuarsResponseStatus'     -> UpdateUserAttributesResponse@@ -140,7 +146,7 @@ uuarsCodeDeliveryDetailsList :: Lens' UpdateUserAttributesResponse [CodeDeliveryDetailsType] uuarsCodeDeliveryDetailsList = lens _uuarsCodeDeliveryDetailsList (\ s a -> s{_uuarsCodeDeliveryDetailsList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. uuarsResponseStatus :: Lens' UpdateUserAttributesResponse Int uuarsResponseStatus = lens _uuarsResponseStatus (\ s a -> s{_uuarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates the specified user pool with the specified attributes.+--+-- module Network.AWS.CognitoIdentityProvider.UpdateUserPool     (     -- * Creating a Request@@ -33,6 +35,7 @@     , uupMFAConfiguration     , uupLambdaConfig     , uupSmsConfiguration+    , uupAdminCreateUserConfig     , uupDeviceConfiguration     , uupAutoVerifiedAttributes     , uupPolicies@@ -54,6 +57,8 @@  -- | Represents the request to update the user pool. --+--+-- -- /See:/ 'updateUserPool' smart constructor. data UpdateUserPool = UpdateUserPool'     { _uupEmailVerificationMessage :: !(Maybe Text)@@ -64,6 +69,7 @@     , _uupMFAConfiguration         :: !(Maybe UserPoolMFAType)     , _uupLambdaConfig             :: !(Maybe LambdaConfigType)     , _uupSmsConfiguration         :: !(Maybe SmsConfigurationType)+    , _uupAdminCreateUserConfig    :: !(Maybe AdminCreateUserConfigType)     , _uupDeviceConfiguration      :: !(Maybe DeviceConfigurationType)     , _uupAutoVerifiedAttributes   :: !(Maybe [VerifiedAttributeType])     , _uupPolicies                 :: !(Maybe UserPoolPolicyType)@@ -74,29 +80,31 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uupEmailVerificationMessage'+-- * 'uupEmailVerificationMessage' - The contents of the email verification message. ----- * 'uupSmsAuthenticationMessage'+-- * 'uupSmsAuthenticationMessage' - The contents of the SMS authentication message. ----- * 'uupEmailVerificationSubject'+-- * 'uupEmailVerificationSubject' - The subject of the email verfication message. ----- * 'uupEmailConfiguration'+-- * 'uupEmailConfiguration' - Email configuration. ----- * 'uupSmsVerificationMessage'+-- * 'uupSmsVerificationMessage' - A container with information about the SMS verification message. ----- * 'uupMFAConfiguration'+-- * 'uupMFAConfiguration' - Can be one of the following values:     * @OFF@ - MFA tokens are not required and cannot be specified during user registration.     * @ON@ - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.     * @OPTIONAL@ - Users have the option when registering to create an MFA token. ----- * 'uupLambdaConfig'+-- * 'uupLambdaConfig' - The AWS Lambda configuration information from the request to update the user pool. ----- * 'uupSmsConfiguration'+-- * 'uupSmsConfiguration' - SMS configuration. ----- * 'uupDeviceConfiguration'+-- * 'uupAdminCreateUserConfig' - The configuration for AdminCreateUser requests. ----- * 'uupAutoVerifiedAttributes'+-- * 'uupDeviceConfiguration' - Device configuration. ----- * 'uupPolicies'+-- * 'uupAutoVerifiedAttributes' - The attributes that are automatically verified when the Amazon Cognito service makes a request to update user pools. ----- * 'uupUserPoolId'+-- * 'uupPolicies' - A container with the policies you wish to update in a user pool.+--+-- * 'uupUserPoolId' - The user pool ID for the user pool you want to update. updateUserPool     :: Text -- ^ 'uupUserPoolId'     -> UpdateUserPool@@ -110,6 +118,7 @@     , _uupMFAConfiguration = Nothing     , _uupLambdaConfig = Nothing     , _uupSmsConfiguration = Nothing+    , _uupAdminCreateUserConfig = Nothing     , _uupDeviceConfiguration = Nothing     , _uupAutoVerifiedAttributes = Nothing     , _uupPolicies = Nothing@@ -124,7 +133,7 @@ uupSmsAuthenticationMessage :: Lens' UpdateUserPool (Maybe Text) uupSmsAuthenticationMessage = lens _uupSmsAuthenticationMessage (\ s a -> s{_uupSmsAuthenticationMessage = a}); --- | The subject of the email verfication message+-- | The subject of the email verfication message. uupEmailVerificationSubject :: Lens' UpdateUserPool (Maybe Text) uupEmailVerificationSubject = lens _uupEmailVerificationSubject (\ s a -> s{_uupEmailVerificationSubject = a}); @@ -136,11 +145,7 @@ uupSmsVerificationMessage :: Lens' UpdateUserPool (Maybe Text) uupSmsVerificationMessage = lens _uupSmsVerificationMessage (\ s a -> s{_uupSmsVerificationMessage = a}); --- | Can be one of the following values:------ -   'OFF' - MFA tokens are not required and cannot be specified during user registration.--- -   'ON' - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.--- -   'OPTIONAL' - Users have the option when registering to create an MFA token.+-- | Can be one of the following values:     * @OFF@ - MFA tokens are not required and cannot be specified during user registration.     * @ON@ - MFA tokens are required for all user registrations. You can only specify required when you are initially creating a user pool.     * @OPTIONAL@ - Users have the option when registering to create an MFA token. uupMFAConfiguration :: Lens' UpdateUserPool (Maybe UserPoolMFAType) uupMFAConfiguration = lens _uupMFAConfiguration (\ s a -> s{_uupMFAConfiguration = a}); @@ -152,6 +157,10 @@ uupSmsConfiguration :: Lens' UpdateUserPool (Maybe SmsConfigurationType) uupSmsConfiguration = lens _uupSmsConfiguration (\ s a -> s{_uupSmsConfiguration = a}); +-- | The configuration for AdminCreateUser requests.+uupAdminCreateUserConfig :: Lens' UpdateUserPool (Maybe AdminCreateUserConfigType)+uupAdminCreateUserConfig = lens _uupAdminCreateUserConfig (\ s a -> s{_uupAdminCreateUserConfig = a});+ -- | Device configuration. uupDeviceConfiguration :: Lens' UpdateUserPool (Maybe DeviceConfigurationType) uupDeviceConfiguration = lens _uupDeviceConfiguration (\ s a -> s{_uupDeviceConfiguration = a});@@ -206,6 +215,8 @@                   ("MfaConfiguration" .=) <$> _uupMFAConfiguration,                   ("LambdaConfig" .=) <$> _uupLambdaConfig,                   ("SmsConfiguration" .=) <$> _uupSmsConfiguration,+                  ("AdminCreateUserConfig" .=) <$>+                    _uupAdminCreateUserConfig,                   ("DeviceConfiguration" .=) <$>                     _uupDeviceConfiguration,                   ("AutoVerifiedAttributes" .=) <$>@@ -221,6 +232,8 @@  -- | Represents the response from the server when you make a request to update the user pool. --+--+-- -- /See:/ 'updateUserPoolResponse' smart constructor. newtype UpdateUserPoolResponse = UpdateUserPoolResponse'     { _uuprsResponseStatus :: Int@@ -230,7 +243,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uuprsResponseStatus'+-- * 'uuprsResponseStatus' - -- | The response status code. updateUserPoolResponse     :: Int -- ^ 'uuprsResponseStatus'     -> UpdateUserPoolResponse@@ -239,7 +252,7 @@     { _uuprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. uuprsResponseStatus :: Lens' UpdateUserPoolResponse Int uuprsResponseStatus = lens _uuprsResponseStatus (\ s a -> s{_uuprsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Allows the developer to update the specified user pool client and password policy.+--+-- module Network.AWS.CognitoIdentityProvider.UpdateUserPoolClient     (     -- * Creating a Request@@ -50,6 +52,8 @@  -- | Represents the request to update the user pool client. --+--+-- -- /See:/ 'updateUserPoolClient' smart constructor. data UpdateUserPoolClient = UpdateUserPoolClient'     { _uupcRefreshTokenValidity :: !(Maybe Nat)@@ -65,19 +69,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uupcRefreshTokenValidity'+-- * 'uupcRefreshTokenValidity' - The validity of the refresh token. ----- * 'uupcExplicitAuthFlows'+-- * 'uupcExplicitAuthFlows' - Explicit authentication flows. ----- * 'uupcWriteAttributes'+-- * 'uupcWriteAttributes' - The writeable attributes of the user pool. ----- * 'uupcReadAttributes'+-- * 'uupcReadAttributes' - The read-only attributes of the user pool. ----- * 'uupcClientName'+-- * 'uupcClientName' - The client name from the update user pool client request. ----- * 'uupcUserPoolId'+-- * 'uupcUserPoolId' - The user pool ID for the user pool where you want to update the user pool client. ----- * 'uupcClientId'+-- * 'uupcClientId' - The ID of the client associated with the user pool. updateUserPoolClient     :: Text -- ^ 'uupcUserPoolId'     -> Text -- ^ 'uupcClientId'@@ -166,6 +170,8 @@  -- | Represents the response from the server to the request to update the user pool client. --+--+-- -- /See:/ 'updateUserPoolClientResponse' smart constructor. data UpdateUserPoolClientResponse = UpdateUserPoolClientResponse'     { _uupcrsUserPoolClient :: !(Maybe UserPoolClientType)@@ -176,9 +182,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uupcrsUserPoolClient'+-- * 'uupcrsUserPoolClient' - The user pool client value from the response from the server when an update user pool client request is made. ----- * 'uupcrsResponseStatus'+-- * 'uupcrsResponseStatus' - -- | The response status code. updateUserPoolClientResponse     :: Int -- ^ 'uupcrsResponseStatus'     -> UpdateUserPoolClientResponse@@ -192,7 +198,7 @@ uupcrsUserPoolClient :: Lens' UpdateUserPoolClientResponse (Maybe UserPoolClientType) uupcrsUserPoolClient = lens _uupcrsUserPoolClient (\ s a -> s{_uupcrsUserPoolClient = a}); --- | The response status code.+-- | -- | The response status code. uupcrsResponseStatus :: Lens' UpdateUserPoolClientResponse Int uupcrsResponseStatus = lens _uupcrsResponseStatus (\ s a -> s{_uupcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Verifies the specified user attributes in the user pool.+--+-- module Network.AWS.CognitoIdentityProvider.VerifyUserAttribute     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the request to verify user attributes. --+--+-- -- /See:/ 'verifyUserAttribute' smart constructor. data VerifyUserAttribute = VerifyUserAttribute'     { _vuaAccessToken   :: !(Maybe (Sensitive Text))@@ -56,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'vuaAccessToken'+-- * 'vuaAccessToken' - Represents the access token of the request to verify user attributes. ----- * 'vuaAttributeName'+-- * 'vuaAttributeName' - The attribute name in the request to verify user attributes. ----- * 'vuaCode'+-- * 'vuaCode' - The verification code in the request to verify user attributes. verifyUserAttribute     :: Text -- ^ 'vuaAttributeName'     -> Text -- ^ 'vuaCode'@@ -123,6 +127,8 @@  -- | A container representing the response from the server from the request to verify user attributes. --+--+-- -- /See:/ 'verifyUserAttributeResponse' smart constructor. newtype VerifyUserAttributeResponse = VerifyUserAttributeResponse'     { _vuarsResponseStatus :: Int@@ -132,7 +138,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'vuarsResponseStatus'+-- * 'vuarsResponseStatus' - -- | The response status code. verifyUserAttributeResponse     :: Int -- ^ 'vuarsResponseStatus'     -> VerifyUserAttributeResponse@@ -141,7 +147,7 @@     { _vuarsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. vuarsResponseStatus :: Lens' VerifyUserAttributeResponse Int vuarsResponseStatus = lens _vuarsResponseStatus (\ s a -> s{_vuarsResponseStatus = a}); 

@@ -139,6 +139,9 @@ --         , requestAdminUpdateDeviceStatus $ --             adminUpdateDeviceStatus --+--         , requestAdminCreateUser $+--             adminCreateUser+-- --         , requestAddCustomAttributes $ --             addCustomAttributes --@@ -307,6 +310,9 @@ --         , responseAdminUpdateDeviceStatus $ --             adminUpdateDeviceStatusResponse --+--         , responseAdminCreateUser $+--             adminCreateUserResponse+-- --         , responseAddCustomAttributes $ --             addCustomAttributesResponse --@@ -551,6 +557,11 @@     "AdminUpdateDeviceStatus"     "fixture/AdminUpdateDeviceStatus.yaml" +requestAdminCreateUser :: AdminCreateUser -> TestTree+requestAdminCreateUser = req+    "AdminCreateUser"+    "fixture/AdminCreateUser.yaml"+ requestAddCustomAttributes :: AddCustomAttributes -> TestTree requestAddCustomAttributes = req     "AddCustomAttributes"@@ -901,6 +912,13 @@     "fixture/AdminUpdateDeviceStatusResponse.proto"     cognitoIdentityProvider     (Proxy :: Proxy AdminUpdateDeviceStatus)++responseAdminCreateUser :: AdminCreateUserResponse -> TestTree+responseAdminCreateUser = res+    "AdminCreateUserResponse"+    "fixture/AdminCreateUserResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminCreateUser)  responseAddCustomAttributes :: AddCustomAttributesResponse -> TestTree responseAddCustomAttributes = res