{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

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

-- |
-- Module      : Amazonka.CognitoIdentityProvider.AdminCreateUser
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new user in the specified user pool.
--
-- If @MessageAction@ isn\'t set, the default is to send a welcome message
-- via email or phone (SMS).
--
-- This action might generate an SMS text message. Starting June 1, 2021,
-- US telecom carriers require you to register an origination phone number
-- before you can send SMS messages to US phone numbers. If you use SMS
-- text messages in Amazon Cognito, you must register a phone number with
-- <https://console.aws.amazon.com/pinpoint/home/ Amazon Pinpoint>. Amazon
-- Cognito uses the registered number automatically. Otherwise, Amazon
-- Cognito users who must receive SMS messages might not be able to sign
-- up, activate their accounts, or sign in.
--
-- If you have never used SMS text messages with Amazon Cognito or any
-- other Amazon Web Service, Amazon Simple Notification Service might place
-- your account in the SMS sandbox. In
-- /<https://docs.aws.amazon.com/sns/latest/dg/sns-sms-sandbox.html sandbox mode>/
-- , you can send messages only to verified phone numbers. After you test
-- your app while in the sandbox environment, you can move out of the
-- sandbox and into production. For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-sms-userpool-settings.html SMS message settings for Amazon Cognito user pools>
-- in the /Amazon Cognito Developer Guide/.
--
-- This message is based on a template that you configured in your call to
-- create or update a user pool. This template includes your custom sign-up
-- instructions and placeholders for user name and temporary password.
--
-- Alternatively, you can call @AdminCreateUser@ with @SUPPRESS@ for the
-- @MessageAction@ parameter, and Amazon Cognito won\'t send any email.
--
-- In either case, the user will be in the @FORCE_CHANGE_PASSWORD@ state
-- until they sign in and change their password.
--
-- @AdminCreateUser@ requires developer credentials.
module Amazonka.CognitoIdentityProvider.AdminCreateUser
  ( -- * Creating a Request
    AdminCreateUser (..),
    newAdminCreateUser,

    -- * Request Lenses
    adminCreateUser_clientMetadata,
    adminCreateUser_desiredDeliveryMediums,
    adminCreateUser_forceAliasCreation,
    adminCreateUser_messageAction,
    adminCreateUser_temporaryPassword,
    adminCreateUser_userAttributes,
    adminCreateUser_validationData,
    adminCreateUser_userPoolId,
    adminCreateUser_username,

    -- * Destructuring the Response
    AdminCreateUserResponse (..),
    newAdminCreateUserResponse,

    -- * Response Lenses
    adminCreateUserResponse_user,
    adminCreateUserResponse_httpStatus,
  )
where

import Amazonka.CognitoIdentityProvider.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | Represents the request to create a user in the specified user pool.
--
-- /See:/ 'newAdminCreateUser' smart constructor.
data AdminCreateUser = AdminCreateUser'
  { -- | A map of custom key-value pairs that you can provide as input for any
    -- custom workflows that this action triggers.
    --
    -- You create custom workflows by assigning Lambda functions to user pool
    -- triggers. When you use the AdminCreateUser API action, Amazon Cognito
    -- invokes the function that is assigned to the /pre sign-up/ trigger. When
    -- Amazon Cognito invokes this function, it passes a JSON payload, which
    -- the function receives as input. This payload contains a @clientMetadata@
    -- attribute, which provides the data that you assigned to the
    -- ClientMetadata parameter in your AdminCreateUser request. In your
    -- function code in Lambda, you can process the @clientMetadata@ value to
    -- enhance your workflow for your specific needs.
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
    -- in the /Amazon Cognito Developer Guide/.
    --
    -- When you use the ClientMetadata parameter, remember that Amazon Cognito
    -- won\'t do the following:
    --
    -- -   Store the ClientMetadata value. This data is available only to
    --     Lambda triggers that are assigned to a user pool to support custom
    --     workflows. If your user pool configuration doesn\'t include
    --     triggers, the ClientMetadata parameter serves no purpose.
    --
    -- -   Validate the ClientMetadata value.
    --
    -- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
    --     provide sensitive information.
    AdminCreateUser -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | 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\"@. You can specify more than one value.
    AdminCreateUser -> Maybe [DeliveryMediumType]
desiredDeliveryMediums :: Prelude.Maybe [DeliveryMediumType],
    -- | This parameter is used only 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@.
    AdminCreateUser -> Maybe Bool
forceAliasCreation :: Prelude.Maybe Prelude.Bool,
    -- | 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. You can specify only one
    -- value.
    AdminCreateUser -> Maybe MessageActionType
messageAction :: Prelude.Maybe MessageActionType,
    -- | 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 isn\'t required. If you don\'t 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.
    AdminCreateUser -> Maybe (Sensitive Text)
temporaryPassword :: Prelude.Maybe (Data.Sensitive Prelude.Text),
    -- | 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 (when creating a user pool or in
    -- the __Attributes__ tab of the console) either you should supply (in your
    -- call to @AdminCreateUser@) or the user should supply (when they sign up
    -- in response to your welcome message).
    --
    -- For custom attributes, you must prepend the @custom:@ prefix to the
    -- attribute name.
    --
    -- To send a message inviting the user to sign up, you must specify the
    -- user\'s email address or phone number. You can do this 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 can also do this by calling
    -- <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_AdminUpdateUserAttributes.html 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.
    AdminCreateUser -> Maybe [AttributeType]
userAttributes :: Prelude.Maybe [AttributeType],
    -- | 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 isn\'t persisted.
    AdminCreateUser -> Maybe [AttributeType]
validationData :: Prelude.Maybe [AttributeType],
    -- | The user pool ID for the user pool where the user will be created.
    AdminCreateUser -> Text
userPoolId :: Prelude.Text,
    -- | 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 can\'t be changed.
    AdminCreateUser -> Sensitive Text
username :: Data.Sensitive Prelude.Text
  }
  deriving (AdminCreateUser -> AdminCreateUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminCreateUser -> AdminCreateUser -> Bool
$c/= :: AdminCreateUser -> AdminCreateUser -> Bool
== :: AdminCreateUser -> AdminCreateUser -> Bool
$c== :: AdminCreateUser -> AdminCreateUser -> Bool
Prelude.Eq, Int -> AdminCreateUser -> ShowS
[AdminCreateUser] -> ShowS
AdminCreateUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminCreateUser] -> ShowS
$cshowList :: [AdminCreateUser] -> ShowS
show :: AdminCreateUser -> String
$cshow :: AdminCreateUser -> String
showsPrec :: Int -> AdminCreateUser -> ShowS
$cshowsPrec :: Int -> AdminCreateUser -> ShowS
Prelude.Show, forall x. Rep AdminCreateUser x -> AdminCreateUser
forall x. AdminCreateUser -> Rep AdminCreateUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AdminCreateUser x -> AdminCreateUser
$cfrom :: forall x. AdminCreateUser -> Rep AdminCreateUser x
Prelude.Generic)

-- |
-- Create a value of 'AdminCreateUser' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'clientMetadata', 'adminCreateUser_clientMetadata' - A map of custom key-value pairs that you can provide as input for any
-- custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the AdminCreateUser API action, Amazon Cognito
-- invokes the function that is assigned to the /pre sign-up/ trigger. When
-- Amazon Cognito invokes this function, it passes a JSON payload, which
-- the function receives as input. This payload contains a @clientMetadata@
-- attribute, which provides the data that you assigned to the
-- ClientMetadata parameter in your AdminCreateUser request. In your
-- function code in Lambda, you can process the @clientMetadata@ value to
-- enhance your workflow for your specific needs.
--
-- For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
-- in the /Amazon Cognito Developer Guide/.
--
-- When you use the ClientMetadata parameter, remember that Amazon Cognito
-- won\'t do the following:
--
-- -   Store the ClientMetadata value. This data is available only to
--     Lambda triggers that are assigned to a user pool to support custom
--     workflows. If your user pool configuration doesn\'t include
--     triggers, the ClientMetadata parameter serves no purpose.
--
-- -   Validate the ClientMetadata value.
--
-- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
--     provide sensitive information.
--
-- 'desiredDeliveryMediums', 'adminCreateUser_desiredDeliveryMediums' - 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\"@. You can specify more than one value.
--
-- 'forceAliasCreation', 'adminCreateUser_forceAliasCreation' - This parameter is used only 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@.
--
-- 'messageAction', 'adminCreateUser_messageAction' - 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. You can specify only one
-- value.
--
-- 'temporaryPassword', 'adminCreateUser_temporaryPassword' - 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 isn\'t required. If you don\'t 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.
--
-- 'userAttributes', 'adminCreateUser_userAttributes' - 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 (when creating a user pool or in
-- the __Attributes__ tab of the console) either you should supply (in your
-- call to @AdminCreateUser@) or the user should supply (when they sign up
-- in response to your welcome message).
--
-- For custom attributes, you must prepend the @custom:@ prefix to the
-- attribute name.
--
-- To send a message inviting the user to sign up, you must specify the
-- user\'s email address or phone number. You can do this 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 can also do this by calling
-- <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_AdminUpdateUserAttributes.html 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.
--
-- 'validationData', 'adminCreateUser_validationData' - 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 isn\'t persisted.
--
-- 'userPoolId', 'adminCreateUser_userPoolId' - The user pool ID for the user pool where the user will be created.
--
-- 'username', 'adminCreateUser_username' - 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 can\'t be changed.
newAdminCreateUser ::
  -- | 'userPoolId'
  Prelude.Text ->
  -- | 'username'
  Prelude.Text ->
  AdminCreateUser
newAdminCreateUser :: Text -> Text -> AdminCreateUser
newAdminCreateUser Text
pUserPoolId_ Text
pUsername_ =
  AdminCreateUser'
    { $sel:clientMetadata:AdminCreateUser' :: Maybe (HashMap Text Text)
clientMetadata = forall a. Maybe a
Prelude.Nothing,
      $sel:desiredDeliveryMediums:AdminCreateUser' :: Maybe [DeliveryMediumType]
desiredDeliveryMediums = forall a. Maybe a
Prelude.Nothing,
      $sel:forceAliasCreation:AdminCreateUser' :: Maybe Bool
forceAliasCreation = forall a. Maybe a
Prelude.Nothing,
      $sel:messageAction:AdminCreateUser' :: Maybe MessageActionType
messageAction = forall a. Maybe a
Prelude.Nothing,
      $sel:temporaryPassword:AdminCreateUser' :: Maybe (Sensitive Text)
temporaryPassword = forall a. Maybe a
Prelude.Nothing,
      $sel:userAttributes:AdminCreateUser' :: Maybe [AttributeType]
userAttributes = forall a. Maybe a
Prelude.Nothing,
      $sel:validationData:AdminCreateUser' :: Maybe [AttributeType]
validationData = forall a. Maybe a
Prelude.Nothing,
      $sel:userPoolId:AdminCreateUser' :: Text
userPoolId = Text
pUserPoolId_,
      $sel:username:AdminCreateUser' :: Sensitive Text
username = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pUsername_
    }

-- | A map of custom key-value pairs that you can provide as input for any
-- custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the AdminCreateUser API action, Amazon Cognito
-- invokes the function that is assigned to the /pre sign-up/ trigger. When
-- Amazon Cognito invokes this function, it passes a JSON payload, which
-- the function receives as input. This payload contains a @clientMetadata@
-- attribute, which provides the data that you assigned to the
-- ClientMetadata parameter in your AdminCreateUser request. In your
-- function code in Lambda, you can process the @clientMetadata@ value to
-- enhance your workflow for your specific needs.
--
-- For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
-- in the /Amazon Cognito Developer Guide/.
--
-- When you use the ClientMetadata parameter, remember that Amazon Cognito
-- won\'t do the following:
--
-- -   Store the ClientMetadata value. This data is available only to
--     Lambda triggers that are assigned to a user pool to support custom
--     workflows. If your user pool configuration doesn\'t include
--     triggers, the ClientMetadata parameter serves no purpose.
--
-- -   Validate the ClientMetadata value.
--
-- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
--     provide sensitive information.
adminCreateUser_clientMetadata :: Lens.Lens' AdminCreateUser (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
adminCreateUser_clientMetadata :: Lens' AdminCreateUser (Maybe (HashMap Text Text))
adminCreateUser_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe (HashMap Text Text)
a -> AdminCreateUser
s {$sel:clientMetadata:AdminCreateUser' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | 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\"@. You can specify more than one value.
adminCreateUser_desiredDeliveryMediums :: Lens.Lens' AdminCreateUser (Prelude.Maybe [DeliveryMediumType])
adminCreateUser_desiredDeliveryMediums :: Lens' AdminCreateUser (Maybe [DeliveryMediumType])
adminCreateUser_desiredDeliveryMediums = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [DeliveryMediumType]
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
desiredDeliveryMediums} -> Maybe [DeliveryMediumType]
desiredDeliveryMediums) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [DeliveryMediumType]
a -> AdminCreateUser
s {$sel:desiredDeliveryMediums:AdminCreateUser' :: Maybe [DeliveryMediumType]
desiredDeliveryMediums = Maybe [DeliveryMediumType]
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | This parameter is used only 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@.
adminCreateUser_forceAliasCreation :: Lens.Lens' AdminCreateUser (Prelude.Maybe Prelude.Bool)
adminCreateUser_forceAliasCreation :: Lens' AdminCreateUser (Maybe Bool)
adminCreateUser_forceAliasCreation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe Bool
forceAliasCreation :: Maybe Bool
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
forceAliasCreation} -> Maybe Bool
forceAliasCreation) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe Bool
a -> AdminCreateUser
s {$sel:forceAliasCreation:AdminCreateUser' :: Maybe Bool
forceAliasCreation = Maybe Bool
a} :: AdminCreateUser)

-- | 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. You can specify only one
-- value.
adminCreateUser_messageAction :: Lens.Lens' AdminCreateUser (Prelude.Maybe MessageActionType)
adminCreateUser_messageAction :: Lens' AdminCreateUser (Maybe MessageActionType)
adminCreateUser_messageAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe MessageActionType
messageAction :: Maybe MessageActionType
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
messageAction} -> Maybe MessageActionType
messageAction) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe MessageActionType
a -> AdminCreateUser
s {$sel:messageAction:AdminCreateUser' :: Maybe MessageActionType
messageAction = Maybe MessageActionType
a} :: AdminCreateUser)

-- | 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 isn\'t required. If you don\'t 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.
adminCreateUser_temporaryPassword :: Lens.Lens' AdminCreateUser (Prelude.Maybe Prelude.Text)
adminCreateUser_temporaryPassword :: Lens' AdminCreateUser (Maybe Text)
adminCreateUser_temporaryPassword = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe (Sensitive Text)
temporaryPassword :: Maybe (Sensitive Text)
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
temporaryPassword} -> Maybe (Sensitive Text)
temporaryPassword) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe (Sensitive Text)
a -> AdminCreateUser
s {$sel:temporaryPassword:AdminCreateUser' :: Maybe (Sensitive Text)
temporaryPassword = Maybe (Sensitive Text)
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | 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 (when creating a user pool or in
-- the __Attributes__ tab of the console) either you should supply (in your
-- call to @AdminCreateUser@) or the user should supply (when they sign up
-- in response to your welcome message).
--
-- For custom attributes, you must prepend the @custom:@ prefix to the
-- attribute name.
--
-- To send a message inviting the user to sign up, you must specify the
-- user\'s email address or phone number. You can do this 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 can also do this by calling
-- <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_AdminUpdateUserAttributes.html 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.
adminCreateUser_userAttributes :: Lens.Lens' AdminCreateUser (Prelude.Maybe [AttributeType])
adminCreateUser_userAttributes :: Lens' AdminCreateUser (Maybe [AttributeType])
adminCreateUser_userAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
userAttributes} -> Maybe [AttributeType]
userAttributes) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [AttributeType]
a -> AdminCreateUser
s {$sel:userAttributes:AdminCreateUser' :: Maybe [AttributeType]
userAttributes = Maybe [AttributeType]
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | 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 isn\'t persisted.
adminCreateUser_validationData :: Lens.Lens' AdminCreateUser (Prelude.Maybe [AttributeType])
adminCreateUser_validationData :: Lens' AdminCreateUser (Maybe [AttributeType])
adminCreateUser_validationData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [AttributeType]
validationData :: Maybe [AttributeType]
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
validationData} -> Maybe [AttributeType]
validationData) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [AttributeType]
a -> AdminCreateUser
s {$sel:validationData:AdminCreateUser' :: Maybe [AttributeType]
validationData = Maybe [AttributeType]
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The user pool ID for the user pool where the user will be created.
adminCreateUser_userPoolId :: Lens.Lens' AdminCreateUser Prelude.Text
adminCreateUser_userPoolId :: Lens' AdminCreateUser Text
adminCreateUser_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Text
userPoolId :: Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
userPoolId} -> Text
userPoolId) (\s :: AdminCreateUser
s@AdminCreateUser' {} Text
a -> AdminCreateUser
s {$sel:userPoolId:AdminCreateUser' :: Text
userPoolId = Text
a} :: AdminCreateUser)

-- | 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 can\'t be changed.
adminCreateUser_username :: Lens.Lens' AdminCreateUser Prelude.Text
adminCreateUser_username :: Lens' AdminCreateUser Text
adminCreateUser_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Sensitive Text
username :: Sensitive Text
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
username} -> Sensitive Text
username) (\s :: AdminCreateUser
s@AdminCreateUser' {} Sensitive Text
a -> AdminCreateUser
s {$sel:username:AdminCreateUser' :: Sensitive Text
username = Sensitive Text
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

instance Core.AWSRequest AdminCreateUser where
  type
    AWSResponse AdminCreateUser =
      AdminCreateUserResponse
  request :: (Service -> Service) -> AdminCreateUser -> Request AdminCreateUser
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AdminCreateUser
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AdminCreateUser)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe UserType -> Int -> AdminCreateUserResponse
AdminCreateUserResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"User")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable AdminCreateUser where
  hashWithSalt :: Int -> AdminCreateUser -> Int
hashWithSalt Int
_salt AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> Maybe (HashMap Text Text)
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
clientMetadata
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [DeliveryMediumType]
desiredDeliveryMediums
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
forceAliasCreation
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MessageActionType
messageAction
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
temporaryPassword
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
userAttributes
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
validationData
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
username

instance Prelude.NFData AdminCreateUser where
  rnf :: AdminCreateUser -> ()
rnf AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> Maybe (HashMap Text Text)
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
clientMetadata
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [DeliveryMediumType]
desiredDeliveryMediums
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
forceAliasCreation
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageActionType
messageAction
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
temporaryPassword
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
userAttributes
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
validationData
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userPoolId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
username

instance Data.ToHeaders AdminCreateUser where
  toHeaders :: AdminCreateUser -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSCognitoIdentityProviderService.AdminCreateUser" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON AdminCreateUser where
  toJSON :: AdminCreateUser -> Value
toJSON AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> Maybe (HashMap Text Text)
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"ClientMetadata" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
clientMetadata,
            (Key
"DesiredDeliveryMediums" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [DeliveryMediumType]
desiredDeliveryMediums,
            (Key
"ForceAliasCreation" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
forceAliasCreation,
            (Key
"MessageAction" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MessageActionType
messageAction,
            (Key
"TemporaryPassword" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive Text)
temporaryPassword,
            (Key
"UserAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AttributeType]
userAttributes,
            (Key
"ValidationData" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AttributeType]
validationData,
            forall a. a -> Maybe a
Prelude.Just (Key
"UserPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userPoolId),
            forall a. a -> Maybe a
Prelude.Just (Key
"Username" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
username)
          ]
      )

instance Data.ToPath AdminCreateUser where
  toPath :: AdminCreateUser -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery AdminCreateUser where
  toQuery :: AdminCreateUser -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | Represents the response from the server to the request to create the
-- user.
--
-- /See:/ 'newAdminCreateUserResponse' smart constructor.
data AdminCreateUserResponse = AdminCreateUserResponse'
  { -- | The newly created user.
    AdminCreateUserResponse -> Maybe UserType
user :: Prelude.Maybe UserType,
    -- | The response's http status code.
    AdminCreateUserResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
$c/= :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
== :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
$c== :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
Prelude.Eq, Int -> AdminCreateUserResponse -> ShowS
[AdminCreateUserResponse] -> ShowS
AdminCreateUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminCreateUserResponse] -> ShowS
$cshowList :: [AdminCreateUserResponse] -> ShowS
show :: AdminCreateUserResponse -> String
$cshow :: AdminCreateUserResponse -> String
showsPrec :: Int -> AdminCreateUserResponse -> ShowS
$cshowsPrec :: Int -> AdminCreateUserResponse -> ShowS
Prelude.Show, forall x. Rep AdminCreateUserResponse x -> AdminCreateUserResponse
forall x. AdminCreateUserResponse -> Rep AdminCreateUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AdminCreateUserResponse x -> AdminCreateUserResponse
$cfrom :: forall x. AdminCreateUserResponse -> Rep AdminCreateUserResponse x
Prelude.Generic)

-- |
-- Create a value of 'AdminCreateUserResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'user', 'adminCreateUserResponse_user' - The newly created user.
--
-- 'httpStatus', 'adminCreateUserResponse_httpStatus' - The response's http status code.
newAdminCreateUserResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  AdminCreateUserResponse
newAdminCreateUserResponse :: Int -> AdminCreateUserResponse
newAdminCreateUserResponse Int
pHttpStatus_ =
  AdminCreateUserResponse'
    { $sel:user:AdminCreateUserResponse' :: Maybe UserType
user = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:AdminCreateUserResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The newly created user.
adminCreateUserResponse_user :: Lens.Lens' AdminCreateUserResponse (Prelude.Maybe UserType)
adminCreateUserResponse_user :: Lens' AdminCreateUserResponse (Maybe UserType)
adminCreateUserResponse_user = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUserResponse' {Maybe UserType
user :: Maybe UserType
$sel:user:AdminCreateUserResponse' :: AdminCreateUserResponse -> Maybe UserType
user} -> Maybe UserType
user) (\s :: AdminCreateUserResponse
s@AdminCreateUserResponse' {} Maybe UserType
a -> AdminCreateUserResponse
s {$sel:user:AdminCreateUserResponse' :: Maybe UserType
user = Maybe UserType
a} :: AdminCreateUserResponse)

-- | The response's http status code.
adminCreateUserResponse_httpStatus :: Lens.Lens' AdminCreateUserResponse Prelude.Int
adminCreateUserResponse_httpStatus :: Lens' AdminCreateUserResponse Int
adminCreateUserResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUserResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminCreateUserResponse' :: AdminCreateUserResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AdminCreateUserResponse
s@AdminCreateUserResponse' {} Int
a -> AdminCreateUserResponse
s {$sel:httpStatus:AdminCreateUserResponse' :: Int
httpStatus = Int
a} :: AdminCreateUserResponse)

instance Prelude.NFData AdminCreateUserResponse where
  rnf :: AdminCreateUserResponse -> ()
rnf AdminCreateUserResponse' {Int
Maybe UserType
httpStatus :: Int
user :: Maybe UserType
$sel:httpStatus:AdminCreateUserResponse' :: AdminCreateUserResponse -> Int
$sel:user:AdminCreateUserResponse' :: AdminCreateUserResponse -> Maybe UserType
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe UserType
user
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus