{-# 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.InitiateAuth
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Initiates sign-in for a user in the Amazon Cognito user directory. You
-- can\'t sign in a user with a federated IdP with @InitiateAuth@. For more
-- information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-pools-identity-federation.html Adding user pool sign-in through a third party>.
--
-- 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/.
module Amazonka.CognitoIdentityProvider.InitiateAuth
  ( -- * Creating a Request
    InitiateAuth (..),
    newInitiateAuth,

    -- * Request Lenses
    initiateAuth_analyticsMetadata,
    initiateAuth_authParameters,
    initiateAuth_clientMetadata,
    initiateAuth_userContextData,
    initiateAuth_authFlow,
    initiateAuth_clientId,

    -- * Destructuring the Response
    InitiateAuthResponse (..),
    newInitiateAuthResponse,

    -- * Response Lenses
    initiateAuthResponse_authenticationResult,
    initiateAuthResponse_challengeName,
    initiateAuthResponse_challengeParameters,
    initiateAuthResponse_session,
    initiateAuthResponse_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

-- | Initiates the authentication request.
--
-- /See:/ 'newInitiateAuth' smart constructor.
data InitiateAuth = InitiateAuth'
  { -- | The Amazon Pinpoint analytics metadata that contributes to your metrics
    -- for @InitiateAuth@ calls.
    InitiateAuth -> Maybe AnalyticsMetadataType
analyticsMetadata :: Prelude.Maybe AnalyticsMetadataType,
    -- | The authentication parameters. These are inputs corresponding to the
    -- @AuthFlow@ that you\'re invoking. The required values depend on the
    -- value of @AuthFlow@:
    --
    -- -   For @USER_SRP_AUTH@: @USERNAME@ (required), @SRP_A@ (required),
    --     @SECRET_HASH@ (required if the app client is configured with a
    --     client secret), @DEVICE_KEY@.
    --
    -- -   For @REFRESH_TOKEN_AUTH\/REFRESH_TOKEN@: @REFRESH_TOKEN@ (required),
    --     @SECRET_HASH@ (required if the app client is configured with a
    --     client secret), @DEVICE_KEY@.
    --
    -- -   For @CUSTOM_AUTH@: @USERNAME@ (required), @SECRET_HASH@ (if app
    --     client is configured with client secret), @DEVICE_KEY@. To start the
    --     authentication flow with password verification, include
    --     @ChallengeName: SRP_A@ and @SRP_A: (The SRP_A Value)@.
    InitiateAuth -> Maybe (Sensitive (HashMap Text Text))
authParameters :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
    -- | A map of custom key-value pairs that you can provide as input for
    -- certain custom workflows that this action triggers.
    --
    -- You create custom workflows by assigning Lambda functions to user pool
    -- triggers. When you use the InitiateAuth API action, Amazon Cognito
    -- invokes the Lambda functions that are specified for various triggers.
    -- The ClientMetadata value is passed as input to the functions for only
    -- the following triggers:
    --
    -- -   Pre signup
    --
    -- -   Pre authentication
    --
    -- -   User migration
    --
    -- When Amazon Cognito invokes the functions for these triggers, it passes
    -- a JSON payload, which the function receives as input. This payload
    -- contains a @validationData@ attribute, which provides the data that you
    -- assigned to the ClientMetadata parameter in your InitiateAuth request.
    -- In your function code in Lambda, you can process the @validationData@
    -- value to enhance your workflow for your specific needs.
    --
    -- When you use the InitiateAuth API action, Amazon Cognito also invokes
    -- the functions for the following triggers, but it doesn\'t provide the
    -- ClientMetadata value as input:
    --
    -- -   Post authentication
    --
    -- -   Custom message
    --
    -- -   Pre token generation
    --
    -- -   Create auth challenge
    --
    -- -   Define auth challenge
    --
    -- -   Verify auth challenge
    --
    -- 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.
    InitiateAuth -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | Contextual data about your user session, such as the device fingerprint,
    -- IP address, or location. Amazon Cognito advanced security evaluates the
    -- risk of an authentication event based on the context that your app
    -- generates and passes to Amazon Cognito when it makes API requests.
    InitiateAuth -> Maybe UserContextDataType
userContextData :: Prelude.Maybe UserContextDataType,
    -- | The authentication flow for this call to run. The API action will depend
    -- on this value. For example:
    --
    -- -   @REFRESH_TOKEN_AUTH@ takes in a valid refresh token and returns new
    --     tokens.
    --
    -- -   @USER_SRP_AUTH@ takes in @USERNAME@ and @SRP_A@ and returns the SRP
    --     variables to be used for next challenge execution.
    --
    -- -   @USER_PASSWORD_AUTH@ takes in @USERNAME@ and @PASSWORD@ and returns
    --     the next challenge or tokens.
    --
    -- Valid values include:
    --
    -- -   @USER_SRP_AUTH@: Authentication flow for the Secure Remote Password
    --     (SRP) protocol.
    --
    -- -   @REFRESH_TOKEN_AUTH@\/@REFRESH_TOKEN@: Authentication flow for
    --     refreshing the access token and ID token by supplying a valid
    --     refresh token.
    --
    -- -   @CUSTOM_AUTH@: Custom authentication flow.
    --
    -- -   @USER_PASSWORD_AUTH@: Non-SRP authentication flow; user name and
    --     password are passed directly. If a user migration Lambda trigger is
    --     set, this flow will invoke the user migration Lambda if it doesn\'t
    --     find the user name in the user pool.
    --
    -- @ADMIN_NO_SRP_AUTH@ isn\'t a valid value.
    InitiateAuth -> AuthFlowType
authFlow :: AuthFlowType,
    -- | The app client ID.
    InitiateAuth -> Sensitive Text
clientId :: Data.Sensitive Prelude.Text
  }
  deriving (InitiateAuth -> InitiateAuth -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InitiateAuth -> InitiateAuth -> Bool
$c/= :: InitiateAuth -> InitiateAuth -> Bool
== :: InitiateAuth -> InitiateAuth -> Bool
$c== :: InitiateAuth -> InitiateAuth -> Bool
Prelude.Eq, Int -> InitiateAuth -> ShowS
[InitiateAuth] -> ShowS
InitiateAuth -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InitiateAuth] -> ShowS
$cshowList :: [InitiateAuth] -> ShowS
show :: InitiateAuth -> String
$cshow :: InitiateAuth -> String
showsPrec :: Int -> InitiateAuth -> ShowS
$cshowsPrec :: Int -> InitiateAuth -> ShowS
Prelude.Show, forall x. Rep InitiateAuth x -> InitiateAuth
forall x. InitiateAuth -> Rep InitiateAuth x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InitiateAuth x -> InitiateAuth
$cfrom :: forall x. InitiateAuth -> Rep InitiateAuth x
Prelude.Generic)

-- |
-- Create a value of 'InitiateAuth' 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:
--
-- 'analyticsMetadata', 'initiateAuth_analyticsMetadata' - The Amazon Pinpoint analytics metadata that contributes to your metrics
-- for @InitiateAuth@ calls.
--
-- 'authParameters', 'initiateAuth_authParameters' - The authentication parameters. These are inputs corresponding to the
-- @AuthFlow@ that you\'re invoking. The required values depend on the
-- value of @AuthFlow@:
--
-- -   For @USER_SRP_AUTH@: @USERNAME@ (required), @SRP_A@ (required),
--     @SECRET_HASH@ (required if the app client is configured with a
--     client secret), @DEVICE_KEY@.
--
-- -   For @REFRESH_TOKEN_AUTH\/REFRESH_TOKEN@: @REFRESH_TOKEN@ (required),
--     @SECRET_HASH@ (required if the app client is configured with a
--     client secret), @DEVICE_KEY@.
--
-- -   For @CUSTOM_AUTH@: @USERNAME@ (required), @SECRET_HASH@ (if app
--     client is configured with client secret), @DEVICE_KEY@. To start the
--     authentication flow with password verification, include
--     @ChallengeName: SRP_A@ and @SRP_A: (The SRP_A Value)@.
--
-- 'clientMetadata', 'initiateAuth_clientMetadata' - A map of custom key-value pairs that you can provide as input for
-- certain custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the InitiateAuth API action, Amazon Cognito
-- invokes the Lambda functions that are specified for various triggers.
-- The ClientMetadata value is passed as input to the functions for only
-- the following triggers:
--
-- -   Pre signup
--
-- -   Pre authentication
--
-- -   User migration
--
-- When Amazon Cognito invokes the functions for these triggers, it passes
-- a JSON payload, which the function receives as input. This payload
-- contains a @validationData@ attribute, which provides the data that you
-- assigned to the ClientMetadata parameter in your InitiateAuth request.
-- In your function code in Lambda, you can process the @validationData@
-- value to enhance your workflow for your specific needs.
--
-- When you use the InitiateAuth API action, Amazon Cognito also invokes
-- the functions for the following triggers, but it doesn\'t provide the
-- ClientMetadata value as input:
--
-- -   Post authentication
--
-- -   Custom message
--
-- -   Pre token generation
--
-- -   Create auth challenge
--
-- -   Define auth challenge
--
-- -   Verify auth challenge
--
-- 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.
--
-- 'userContextData', 'initiateAuth_userContextData' - Contextual data about your user session, such as the device fingerprint,
-- IP address, or location. Amazon Cognito advanced security evaluates the
-- risk of an authentication event based on the context that your app
-- generates and passes to Amazon Cognito when it makes API requests.
--
-- 'authFlow', 'initiateAuth_authFlow' - The authentication flow for this call to run. The API action will depend
-- on this value. For example:
--
-- -   @REFRESH_TOKEN_AUTH@ takes in a valid refresh token and returns new
--     tokens.
--
-- -   @USER_SRP_AUTH@ takes in @USERNAME@ and @SRP_A@ and returns the SRP
--     variables to be used for next challenge execution.
--
-- -   @USER_PASSWORD_AUTH@ takes in @USERNAME@ and @PASSWORD@ and returns
--     the next challenge or tokens.
--
-- Valid values include:
--
-- -   @USER_SRP_AUTH@: Authentication flow for the Secure Remote Password
--     (SRP) protocol.
--
-- -   @REFRESH_TOKEN_AUTH@\/@REFRESH_TOKEN@: Authentication flow for
--     refreshing the access token and ID token by supplying a valid
--     refresh token.
--
-- -   @CUSTOM_AUTH@: Custom authentication flow.
--
-- -   @USER_PASSWORD_AUTH@: Non-SRP authentication flow; user name and
--     password are passed directly. If a user migration Lambda trigger is
--     set, this flow will invoke the user migration Lambda if it doesn\'t
--     find the user name in the user pool.
--
-- @ADMIN_NO_SRP_AUTH@ isn\'t a valid value.
--
-- 'clientId', 'initiateAuth_clientId' - The app client ID.
newInitiateAuth ::
  -- | 'authFlow'
  AuthFlowType ->
  -- | 'clientId'
  Prelude.Text ->
  InitiateAuth
newInitiateAuth :: AuthFlowType -> Text -> InitiateAuth
newInitiateAuth AuthFlowType
pAuthFlow_ Text
pClientId_ =
  InitiateAuth'
    { $sel:analyticsMetadata:InitiateAuth' :: Maybe AnalyticsMetadataType
analyticsMetadata = forall a. Maybe a
Prelude.Nothing,
      $sel:authParameters:InitiateAuth' :: Maybe (Sensitive (HashMap Text Text))
authParameters = forall a. Maybe a
Prelude.Nothing,
      $sel:clientMetadata:InitiateAuth' :: Maybe (HashMap Text Text)
clientMetadata = forall a. Maybe a
Prelude.Nothing,
      $sel:userContextData:InitiateAuth' :: Maybe UserContextDataType
userContextData = forall a. Maybe a
Prelude.Nothing,
      $sel:authFlow:InitiateAuth' :: AuthFlowType
authFlow = AuthFlowType
pAuthFlow_,
      $sel:clientId:InitiateAuth' :: Sensitive Text
clientId = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pClientId_
    }

-- | The Amazon Pinpoint analytics metadata that contributes to your metrics
-- for @InitiateAuth@ calls.
initiateAuth_analyticsMetadata :: Lens.Lens' InitiateAuth (Prelude.Maybe AnalyticsMetadataType)
initiateAuth_analyticsMetadata :: Lens' InitiateAuth (Maybe AnalyticsMetadataType)
initiateAuth_analyticsMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {Maybe AnalyticsMetadataType
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:analyticsMetadata:InitiateAuth' :: InitiateAuth -> Maybe AnalyticsMetadataType
analyticsMetadata} -> Maybe AnalyticsMetadataType
analyticsMetadata) (\s :: InitiateAuth
s@InitiateAuth' {} Maybe AnalyticsMetadataType
a -> InitiateAuth
s {$sel:analyticsMetadata:InitiateAuth' :: Maybe AnalyticsMetadataType
analyticsMetadata = Maybe AnalyticsMetadataType
a} :: InitiateAuth)

-- | The authentication parameters. These are inputs corresponding to the
-- @AuthFlow@ that you\'re invoking. The required values depend on the
-- value of @AuthFlow@:
--
-- -   For @USER_SRP_AUTH@: @USERNAME@ (required), @SRP_A@ (required),
--     @SECRET_HASH@ (required if the app client is configured with a
--     client secret), @DEVICE_KEY@.
--
-- -   For @REFRESH_TOKEN_AUTH\/REFRESH_TOKEN@: @REFRESH_TOKEN@ (required),
--     @SECRET_HASH@ (required if the app client is configured with a
--     client secret), @DEVICE_KEY@.
--
-- -   For @CUSTOM_AUTH@: @USERNAME@ (required), @SECRET_HASH@ (if app
--     client is configured with client secret), @DEVICE_KEY@. To start the
--     authentication flow with password verification, include
--     @ChallengeName: SRP_A@ and @SRP_A: (The SRP_A Value)@.
initiateAuth_authParameters :: Lens.Lens' InitiateAuth (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
initiateAuth_authParameters :: Lens' InitiateAuth (Maybe (HashMap Text Text))
initiateAuth_authParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {Maybe (Sensitive (HashMap Text Text))
authParameters :: Maybe (Sensitive (HashMap Text Text))
$sel:authParameters:InitiateAuth' :: InitiateAuth -> Maybe (Sensitive (HashMap Text Text))
authParameters} -> Maybe (Sensitive (HashMap Text Text))
authParameters) (\s :: InitiateAuth
s@InitiateAuth' {} Maybe (Sensitive (HashMap Text Text))
a -> InitiateAuth
s {$sel:authParameters:InitiateAuth' :: Maybe (Sensitive (HashMap Text Text))
authParameters = Maybe (Sensitive (HashMap Text Text))
a} :: InitiateAuth) 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 forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)

-- | A map of custom key-value pairs that you can provide as input for
-- certain custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the InitiateAuth API action, Amazon Cognito
-- invokes the Lambda functions that are specified for various triggers.
-- The ClientMetadata value is passed as input to the functions for only
-- the following triggers:
--
-- -   Pre signup
--
-- -   Pre authentication
--
-- -   User migration
--
-- When Amazon Cognito invokes the functions for these triggers, it passes
-- a JSON payload, which the function receives as input. This payload
-- contains a @validationData@ attribute, which provides the data that you
-- assigned to the ClientMetadata parameter in your InitiateAuth request.
-- In your function code in Lambda, you can process the @validationData@
-- value to enhance your workflow for your specific needs.
--
-- When you use the InitiateAuth API action, Amazon Cognito also invokes
-- the functions for the following triggers, but it doesn\'t provide the
-- ClientMetadata value as input:
--
-- -   Post authentication
--
-- -   Custom message
--
-- -   Pre token generation
--
-- -   Create auth challenge
--
-- -   Define auth challenge
--
-- -   Verify auth challenge
--
-- 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.
initiateAuth_clientMetadata :: Lens.Lens' InitiateAuth (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
initiateAuth_clientMetadata :: Lens' InitiateAuth (Maybe (HashMap Text Text))
initiateAuth_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:InitiateAuth' :: InitiateAuth -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: InitiateAuth
s@InitiateAuth' {} Maybe (HashMap Text Text)
a -> InitiateAuth
s {$sel:clientMetadata:InitiateAuth' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: InitiateAuth) 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

-- | Contextual data about your user session, such as the device fingerprint,
-- IP address, or location. Amazon Cognito advanced security evaluates the
-- risk of an authentication event based on the context that your app
-- generates and passes to Amazon Cognito when it makes API requests.
initiateAuth_userContextData :: Lens.Lens' InitiateAuth (Prelude.Maybe UserContextDataType)
initiateAuth_userContextData :: Lens' InitiateAuth (Maybe UserContextDataType)
initiateAuth_userContextData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {Maybe UserContextDataType
userContextData :: Maybe UserContextDataType
$sel:userContextData:InitiateAuth' :: InitiateAuth -> Maybe UserContextDataType
userContextData} -> Maybe UserContextDataType
userContextData) (\s :: InitiateAuth
s@InitiateAuth' {} Maybe UserContextDataType
a -> InitiateAuth
s {$sel:userContextData:InitiateAuth' :: Maybe UserContextDataType
userContextData = Maybe UserContextDataType
a} :: InitiateAuth)

-- | The authentication flow for this call to run. The API action will depend
-- on this value. For example:
--
-- -   @REFRESH_TOKEN_AUTH@ takes in a valid refresh token and returns new
--     tokens.
--
-- -   @USER_SRP_AUTH@ takes in @USERNAME@ and @SRP_A@ and returns the SRP
--     variables to be used for next challenge execution.
--
-- -   @USER_PASSWORD_AUTH@ takes in @USERNAME@ and @PASSWORD@ and returns
--     the next challenge or tokens.
--
-- Valid values include:
--
-- -   @USER_SRP_AUTH@: Authentication flow for the Secure Remote Password
--     (SRP) protocol.
--
-- -   @REFRESH_TOKEN_AUTH@\/@REFRESH_TOKEN@: Authentication flow for
--     refreshing the access token and ID token by supplying a valid
--     refresh token.
--
-- -   @CUSTOM_AUTH@: Custom authentication flow.
--
-- -   @USER_PASSWORD_AUTH@: Non-SRP authentication flow; user name and
--     password are passed directly. If a user migration Lambda trigger is
--     set, this flow will invoke the user migration Lambda if it doesn\'t
--     find the user name in the user pool.
--
-- @ADMIN_NO_SRP_AUTH@ isn\'t a valid value.
initiateAuth_authFlow :: Lens.Lens' InitiateAuth AuthFlowType
initiateAuth_authFlow :: Lens' InitiateAuth AuthFlowType
initiateAuth_authFlow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {AuthFlowType
authFlow :: AuthFlowType
$sel:authFlow:InitiateAuth' :: InitiateAuth -> AuthFlowType
authFlow} -> AuthFlowType
authFlow) (\s :: InitiateAuth
s@InitiateAuth' {} AuthFlowType
a -> InitiateAuth
s {$sel:authFlow:InitiateAuth' :: AuthFlowType
authFlow = AuthFlowType
a} :: InitiateAuth)

-- | The app client ID.
initiateAuth_clientId :: Lens.Lens' InitiateAuth Prelude.Text
initiateAuth_clientId :: Lens' InitiateAuth Text
initiateAuth_clientId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuth' {Sensitive Text
clientId :: Sensitive Text
$sel:clientId:InitiateAuth' :: InitiateAuth -> Sensitive Text
clientId} -> Sensitive Text
clientId) (\s :: InitiateAuth
s@InitiateAuth' {} Sensitive Text
a -> InitiateAuth
s {$sel:clientId:InitiateAuth' :: Sensitive Text
clientId = Sensitive Text
a} :: InitiateAuth) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

instance Core.AWSRequest InitiateAuth where
  type AWSResponse InitiateAuth = InitiateAuthResponse
  request :: (Service -> Service) -> InitiateAuth -> Request InitiateAuth
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 InitiateAuth
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse InitiateAuth)))
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 AuthenticationResultType
-> Maybe ChallengeNameType
-> Maybe (HashMap Text Text)
-> Maybe Text
-> Int
-> InitiateAuthResponse
InitiateAuthResponse'
            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
"AuthenticationResult")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ChallengeName")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ChallengeParameters"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Session")
            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 InitiateAuth where
  hashWithSalt :: Int -> InitiateAuth -> Int
hashWithSalt Int
_salt InitiateAuth' {Maybe (HashMap Text Text)
Maybe (Sensitive (HashMap Text Text))
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
AuthFlowType
clientId :: Sensitive Text
authFlow :: AuthFlowType
userContextData :: Maybe UserContextDataType
clientMetadata :: Maybe (HashMap Text Text)
authParameters :: Maybe (Sensitive (HashMap Text Text))
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:clientId:InitiateAuth' :: InitiateAuth -> Sensitive Text
$sel:authFlow:InitiateAuth' :: InitiateAuth -> AuthFlowType
$sel:userContextData:InitiateAuth' :: InitiateAuth -> Maybe UserContextDataType
$sel:clientMetadata:InitiateAuth' :: InitiateAuth -> Maybe (HashMap Text Text)
$sel:authParameters:InitiateAuth' :: InitiateAuth -> Maybe (Sensitive (HashMap Text Text))
$sel:analyticsMetadata:InitiateAuth' :: InitiateAuth -> Maybe AnalyticsMetadataType
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AnalyticsMetadataType
analyticsMetadata
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive (HashMap Text Text))
authParameters
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
clientMetadata
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UserContextDataType
userContextData
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AuthFlowType
authFlow
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
clientId

instance Prelude.NFData InitiateAuth where
  rnf :: InitiateAuth -> ()
rnf InitiateAuth' {Maybe (HashMap Text Text)
Maybe (Sensitive (HashMap Text Text))
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
AuthFlowType
clientId :: Sensitive Text
authFlow :: AuthFlowType
userContextData :: Maybe UserContextDataType
clientMetadata :: Maybe (HashMap Text Text)
authParameters :: Maybe (Sensitive (HashMap Text Text))
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:clientId:InitiateAuth' :: InitiateAuth -> Sensitive Text
$sel:authFlow:InitiateAuth' :: InitiateAuth -> AuthFlowType
$sel:userContextData:InitiateAuth' :: InitiateAuth -> Maybe UserContextDataType
$sel:clientMetadata:InitiateAuth' :: InitiateAuth -> Maybe (HashMap Text Text)
$sel:authParameters:InitiateAuth' :: InitiateAuth -> Maybe (Sensitive (HashMap Text Text))
$sel:analyticsMetadata:InitiateAuth' :: InitiateAuth -> Maybe AnalyticsMetadataType
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe AnalyticsMetadataType
analyticsMetadata
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
authParameters
      seq :: forall a b. a -> b -> b
`Prelude.seq` 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 UserContextDataType
userContextData
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AuthFlowType
authFlow
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
clientId

instance Data.ToHeaders InitiateAuth where
  toHeaders :: InitiateAuth -> 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.InitiateAuth" ::
                          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 InitiateAuth where
  toJSON :: InitiateAuth -> Value
toJSON InitiateAuth' {Maybe (HashMap Text Text)
Maybe (Sensitive (HashMap Text Text))
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
AuthFlowType
clientId :: Sensitive Text
authFlow :: AuthFlowType
userContextData :: Maybe UserContextDataType
clientMetadata :: Maybe (HashMap Text Text)
authParameters :: Maybe (Sensitive (HashMap Text Text))
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:clientId:InitiateAuth' :: InitiateAuth -> Sensitive Text
$sel:authFlow:InitiateAuth' :: InitiateAuth -> AuthFlowType
$sel:userContextData:InitiateAuth' :: InitiateAuth -> Maybe UserContextDataType
$sel:clientMetadata:InitiateAuth' :: InitiateAuth -> Maybe (HashMap Text Text)
$sel:authParameters:InitiateAuth' :: InitiateAuth -> Maybe (Sensitive (HashMap Text Text))
$sel:analyticsMetadata:InitiateAuth' :: InitiateAuth -> Maybe AnalyticsMetadataType
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"AnalyticsMetadata" 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 AnalyticsMetadataType
analyticsMetadata,
            (Key
"AuthParameters" 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 (HashMap Text Text))
authParameters,
            (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
"UserContextData" 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 UserContextDataType
userContextData,
            forall a. a -> Maybe a
Prelude.Just (Key
"AuthFlow" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AuthFlowType
authFlow),
            forall a. a -> Maybe a
Prelude.Just (Key
"ClientId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
clientId)
          ]
      )

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

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

-- | Initiates the authentication response.
--
-- /See:/ 'newInitiateAuthResponse' smart constructor.
data InitiateAuthResponse = InitiateAuthResponse'
  { -- | The result of the authentication response. This result is only returned
    -- if the caller doesn\'t need to pass another challenge. If the caller
    -- does need to pass another challenge before it gets tokens,
    -- @ChallengeName@, @ChallengeParameters@, and @Session@ are returned.
    InitiateAuthResponse -> Maybe AuthenticationResultType
authenticationResult :: Prelude.Maybe AuthenticationResultType,
    -- | The name of the challenge that you\'re responding to with this call.
    -- This name is returned in the @AdminInitiateAuth@ response if you must
    -- pass another challenge.
    --
    -- Valid values include the following:
    --
    -- All of the following challenges require @USERNAME@ and @SECRET_HASH@ (if
    -- applicable) in the parameters.
    --
    -- -   @SMS_MFA@: Next challenge is to supply an @SMS_MFA_CODE@, delivered
    --     via SMS.
    --
    -- -   @PASSWORD_VERIFIER@: Next challenge is to supply
    --     @PASSWORD_CLAIM_SIGNATURE@, @PASSWORD_CLAIM_SECRET_BLOCK@, and
    --     @TIMESTAMP@ after the client-side SRP calculations.
    --
    -- -   @CUSTOM_CHALLENGE@: This is returned if your custom authentication
    --     flow determines that the user should pass another challenge before
    --     tokens are issued.
    --
    -- -   @DEVICE_SRP_AUTH@: If device tracking was activated on your user
    --     pool and the previous challenges were passed, this challenge is
    --     returned so that Amazon Cognito can start tracking this device.
    --
    -- -   @DEVICE_PASSWORD_VERIFIER@: Similar to @PASSWORD_VERIFIER@, but for
    --     devices only.
    --
    -- -   @NEW_PASSWORD_REQUIRED@: For users who are required to change their
    --     passwords after successful first login.
    --
    --     Respond to this challenge with @NEW_PASSWORD@ and any required
    --     attributes that Amazon Cognito returned in the @requiredAttributes@
    --     parameter. You can also set values for attributes that aren\'t
    --     required by your user pool and that your app client can write. For
    --     more information, see
    --     <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_RespondToAuthChallenge.html RespondToAuthChallenge>.
    --
    --     In a @NEW_PASSWORD_REQUIRED@ challenge response, you can\'t modify a
    --     required attribute that already has a value. In
    --     @RespondToAuthChallenge@, set a value for any keys that Amazon
    --     Cognito returned in the @requiredAttributes@ parameter, then use the
    --     @UpdateUserAttributes@ API operation to modify the value of any
    --     additional attributes.
    --
    -- -   @MFA_SETUP@: For users who are required to setup an MFA factor
    --     before they can sign in. The MFA types activated for the user pool
    --     will be listed in the challenge parameters @MFA_CAN_SETUP@ value.
    --
    --     To set up software token MFA, use the session returned here from
    --     @InitiateAuth@ as an input to @AssociateSoftwareToken@. Use the
    --     session returned by @VerifySoftwareToken@ as an input to
    --     @RespondToAuthChallenge@ with challenge name @MFA_SETUP@ to complete
    --     sign-in. To set up SMS MFA, an administrator should help the user to
    --     add a phone number to their account, and then the user should call
    --     @InitiateAuth@ again to restart sign-in.
    InitiateAuthResponse -> Maybe ChallengeNameType
challengeName :: Prelude.Maybe ChallengeNameType,
    -- | The challenge parameters. These are returned in the @InitiateAuth@
    -- response if you must pass another challenge. The responses in this
    -- parameter should be used to compute inputs to the next call
    -- (@RespondToAuthChallenge@).
    --
    -- All challenges require @USERNAME@ and @SECRET_HASH@ (if applicable).
    InitiateAuthResponse -> Maybe (HashMap Text Text)
challengeParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The session that should pass both ways in challenge-response calls to
    -- the service. If the caller must pass another challenge, they return a
    -- session with other challenge parameters. This session should be passed
    -- as it is to the next @RespondToAuthChallenge@ API call.
    InitiateAuthResponse -> Maybe Text
session :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    InitiateAuthResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (InitiateAuthResponse -> InitiateAuthResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InitiateAuthResponse -> InitiateAuthResponse -> Bool
$c/= :: InitiateAuthResponse -> InitiateAuthResponse -> Bool
== :: InitiateAuthResponse -> InitiateAuthResponse -> Bool
$c== :: InitiateAuthResponse -> InitiateAuthResponse -> Bool
Prelude.Eq, Int -> InitiateAuthResponse -> ShowS
[InitiateAuthResponse] -> ShowS
InitiateAuthResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InitiateAuthResponse] -> ShowS
$cshowList :: [InitiateAuthResponse] -> ShowS
show :: InitiateAuthResponse -> String
$cshow :: InitiateAuthResponse -> String
showsPrec :: Int -> InitiateAuthResponse -> ShowS
$cshowsPrec :: Int -> InitiateAuthResponse -> ShowS
Prelude.Show, forall x. Rep InitiateAuthResponse x -> InitiateAuthResponse
forall x. InitiateAuthResponse -> Rep InitiateAuthResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InitiateAuthResponse x -> InitiateAuthResponse
$cfrom :: forall x. InitiateAuthResponse -> Rep InitiateAuthResponse x
Prelude.Generic)

-- |
-- Create a value of 'InitiateAuthResponse' 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:
--
-- 'authenticationResult', 'initiateAuthResponse_authenticationResult' - The result of the authentication response. This result is only returned
-- if the caller doesn\'t need to pass another challenge. If the caller
-- does need to pass another challenge before it gets tokens,
-- @ChallengeName@, @ChallengeParameters@, and @Session@ are returned.
--
-- 'challengeName', 'initiateAuthResponse_challengeName' - The name of the challenge that you\'re responding to with this call.
-- This name is returned in the @AdminInitiateAuth@ response if you must
-- pass another challenge.
--
-- Valid values include the following:
--
-- All of the following challenges require @USERNAME@ and @SECRET_HASH@ (if
-- applicable) in the parameters.
--
-- -   @SMS_MFA@: Next challenge is to supply an @SMS_MFA_CODE@, delivered
--     via SMS.
--
-- -   @PASSWORD_VERIFIER@: Next challenge is to supply
--     @PASSWORD_CLAIM_SIGNATURE@, @PASSWORD_CLAIM_SECRET_BLOCK@, and
--     @TIMESTAMP@ after the client-side SRP calculations.
--
-- -   @CUSTOM_CHALLENGE@: This is returned if your custom authentication
--     flow determines that the user should pass another challenge before
--     tokens are issued.
--
-- -   @DEVICE_SRP_AUTH@: If device tracking was activated on your user
--     pool and the previous challenges were passed, this challenge is
--     returned so that Amazon Cognito can start tracking this device.
--
-- -   @DEVICE_PASSWORD_VERIFIER@: Similar to @PASSWORD_VERIFIER@, but for
--     devices only.
--
-- -   @NEW_PASSWORD_REQUIRED@: For users who are required to change their
--     passwords after successful first login.
--
--     Respond to this challenge with @NEW_PASSWORD@ and any required
--     attributes that Amazon Cognito returned in the @requiredAttributes@
--     parameter. You can also set values for attributes that aren\'t
--     required by your user pool and that your app client can write. For
--     more information, see
--     <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_RespondToAuthChallenge.html RespondToAuthChallenge>.
--
--     In a @NEW_PASSWORD_REQUIRED@ challenge response, you can\'t modify a
--     required attribute that already has a value. In
--     @RespondToAuthChallenge@, set a value for any keys that Amazon
--     Cognito returned in the @requiredAttributes@ parameter, then use the
--     @UpdateUserAttributes@ API operation to modify the value of any
--     additional attributes.
--
-- -   @MFA_SETUP@: For users who are required to setup an MFA factor
--     before they can sign in. The MFA types activated for the user pool
--     will be listed in the challenge parameters @MFA_CAN_SETUP@ value.
--
--     To set up software token MFA, use the session returned here from
--     @InitiateAuth@ as an input to @AssociateSoftwareToken@. Use the
--     session returned by @VerifySoftwareToken@ as an input to
--     @RespondToAuthChallenge@ with challenge name @MFA_SETUP@ to complete
--     sign-in. To set up SMS MFA, an administrator should help the user to
--     add a phone number to their account, and then the user should call
--     @InitiateAuth@ again to restart sign-in.
--
-- 'challengeParameters', 'initiateAuthResponse_challengeParameters' - The challenge parameters. These are returned in the @InitiateAuth@
-- response if you must pass another challenge. The responses in this
-- parameter should be used to compute inputs to the next call
-- (@RespondToAuthChallenge@).
--
-- All challenges require @USERNAME@ and @SECRET_HASH@ (if applicable).
--
-- 'session', 'initiateAuthResponse_session' - The session that should pass both ways in challenge-response calls to
-- the service. If the caller must pass another challenge, they return a
-- session with other challenge parameters. This session should be passed
-- as it is to the next @RespondToAuthChallenge@ API call.
--
-- 'httpStatus', 'initiateAuthResponse_httpStatus' - The response's http status code.
newInitiateAuthResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  InitiateAuthResponse
newInitiateAuthResponse :: Int -> InitiateAuthResponse
newInitiateAuthResponse Int
pHttpStatus_ =
  InitiateAuthResponse'
    { $sel:authenticationResult:InitiateAuthResponse' :: Maybe AuthenticationResultType
authenticationResult =
        forall a. Maybe a
Prelude.Nothing,
      $sel:challengeName:InitiateAuthResponse' :: Maybe ChallengeNameType
challengeName = forall a. Maybe a
Prelude.Nothing,
      $sel:challengeParameters:InitiateAuthResponse' :: Maybe (HashMap Text Text)
challengeParameters = forall a. Maybe a
Prelude.Nothing,
      $sel:session:InitiateAuthResponse' :: Maybe Text
session = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:InitiateAuthResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The result of the authentication response. This result is only returned
-- if the caller doesn\'t need to pass another challenge. If the caller
-- does need to pass another challenge before it gets tokens,
-- @ChallengeName@, @ChallengeParameters@, and @Session@ are returned.
initiateAuthResponse_authenticationResult :: Lens.Lens' InitiateAuthResponse (Prelude.Maybe AuthenticationResultType)
initiateAuthResponse_authenticationResult :: Lens' InitiateAuthResponse (Maybe AuthenticationResultType)
initiateAuthResponse_authenticationResult = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuthResponse' {Maybe AuthenticationResultType
authenticationResult :: Maybe AuthenticationResultType
$sel:authenticationResult:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe AuthenticationResultType
authenticationResult} -> Maybe AuthenticationResultType
authenticationResult) (\s :: InitiateAuthResponse
s@InitiateAuthResponse' {} Maybe AuthenticationResultType
a -> InitiateAuthResponse
s {$sel:authenticationResult:InitiateAuthResponse' :: Maybe AuthenticationResultType
authenticationResult = Maybe AuthenticationResultType
a} :: InitiateAuthResponse)

-- | The name of the challenge that you\'re responding to with this call.
-- This name is returned in the @AdminInitiateAuth@ response if you must
-- pass another challenge.
--
-- Valid values include the following:
--
-- All of the following challenges require @USERNAME@ and @SECRET_HASH@ (if
-- applicable) in the parameters.
--
-- -   @SMS_MFA@: Next challenge is to supply an @SMS_MFA_CODE@, delivered
--     via SMS.
--
-- -   @PASSWORD_VERIFIER@: Next challenge is to supply
--     @PASSWORD_CLAIM_SIGNATURE@, @PASSWORD_CLAIM_SECRET_BLOCK@, and
--     @TIMESTAMP@ after the client-side SRP calculations.
--
-- -   @CUSTOM_CHALLENGE@: This is returned if your custom authentication
--     flow determines that the user should pass another challenge before
--     tokens are issued.
--
-- -   @DEVICE_SRP_AUTH@: If device tracking was activated on your user
--     pool and the previous challenges were passed, this challenge is
--     returned so that Amazon Cognito can start tracking this device.
--
-- -   @DEVICE_PASSWORD_VERIFIER@: Similar to @PASSWORD_VERIFIER@, but for
--     devices only.
--
-- -   @NEW_PASSWORD_REQUIRED@: For users who are required to change their
--     passwords after successful first login.
--
--     Respond to this challenge with @NEW_PASSWORD@ and any required
--     attributes that Amazon Cognito returned in the @requiredAttributes@
--     parameter. You can also set values for attributes that aren\'t
--     required by your user pool and that your app client can write. For
--     more information, see
--     <https://docs.aws.amazon.com/cognito-user-identity-pools/latest/APIReference/API_RespondToAuthChallenge.html RespondToAuthChallenge>.
--
--     In a @NEW_PASSWORD_REQUIRED@ challenge response, you can\'t modify a
--     required attribute that already has a value. In
--     @RespondToAuthChallenge@, set a value for any keys that Amazon
--     Cognito returned in the @requiredAttributes@ parameter, then use the
--     @UpdateUserAttributes@ API operation to modify the value of any
--     additional attributes.
--
-- -   @MFA_SETUP@: For users who are required to setup an MFA factor
--     before they can sign in. The MFA types activated for the user pool
--     will be listed in the challenge parameters @MFA_CAN_SETUP@ value.
--
--     To set up software token MFA, use the session returned here from
--     @InitiateAuth@ as an input to @AssociateSoftwareToken@. Use the
--     session returned by @VerifySoftwareToken@ as an input to
--     @RespondToAuthChallenge@ with challenge name @MFA_SETUP@ to complete
--     sign-in. To set up SMS MFA, an administrator should help the user to
--     add a phone number to their account, and then the user should call
--     @InitiateAuth@ again to restart sign-in.
initiateAuthResponse_challengeName :: Lens.Lens' InitiateAuthResponse (Prelude.Maybe ChallengeNameType)
initiateAuthResponse_challengeName :: Lens' InitiateAuthResponse (Maybe ChallengeNameType)
initiateAuthResponse_challengeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuthResponse' {Maybe ChallengeNameType
challengeName :: Maybe ChallengeNameType
$sel:challengeName:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe ChallengeNameType
challengeName} -> Maybe ChallengeNameType
challengeName) (\s :: InitiateAuthResponse
s@InitiateAuthResponse' {} Maybe ChallengeNameType
a -> InitiateAuthResponse
s {$sel:challengeName:InitiateAuthResponse' :: Maybe ChallengeNameType
challengeName = Maybe ChallengeNameType
a} :: InitiateAuthResponse)

-- | The challenge parameters. These are returned in the @InitiateAuth@
-- response if you must pass another challenge. The responses in this
-- parameter should be used to compute inputs to the next call
-- (@RespondToAuthChallenge@).
--
-- All challenges require @USERNAME@ and @SECRET_HASH@ (if applicable).
initiateAuthResponse_challengeParameters :: Lens.Lens' InitiateAuthResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
initiateAuthResponse_challengeParameters :: Lens' InitiateAuthResponse (Maybe (HashMap Text Text))
initiateAuthResponse_challengeParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuthResponse' {Maybe (HashMap Text Text)
challengeParameters :: Maybe (HashMap Text Text)
$sel:challengeParameters:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe (HashMap Text Text)
challengeParameters} -> Maybe (HashMap Text Text)
challengeParameters) (\s :: InitiateAuthResponse
s@InitiateAuthResponse' {} Maybe (HashMap Text Text)
a -> InitiateAuthResponse
s {$sel:challengeParameters:InitiateAuthResponse' :: Maybe (HashMap Text Text)
challengeParameters = Maybe (HashMap Text Text)
a} :: InitiateAuthResponse) 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 session that should pass both ways in challenge-response calls to
-- the service. If the caller must pass another challenge, they return a
-- session with other challenge parameters. This session should be passed
-- as it is to the next @RespondToAuthChallenge@ API call.
initiateAuthResponse_session :: Lens.Lens' InitiateAuthResponse (Prelude.Maybe Prelude.Text)
initiateAuthResponse_session :: Lens' InitiateAuthResponse (Maybe Text)
initiateAuthResponse_session = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\InitiateAuthResponse' {Maybe Text
session :: Maybe Text
$sel:session:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe Text
session} -> Maybe Text
session) (\s :: InitiateAuthResponse
s@InitiateAuthResponse' {} Maybe Text
a -> InitiateAuthResponse
s {$sel:session:InitiateAuthResponse' :: Maybe Text
session = Maybe Text
a} :: InitiateAuthResponse)

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

instance Prelude.NFData InitiateAuthResponse where
  rnf :: InitiateAuthResponse -> ()
rnf InitiateAuthResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe ChallengeNameType
Maybe AuthenticationResultType
httpStatus :: Int
session :: Maybe Text
challengeParameters :: Maybe (HashMap Text Text)
challengeName :: Maybe ChallengeNameType
authenticationResult :: Maybe AuthenticationResultType
$sel:httpStatus:InitiateAuthResponse' :: InitiateAuthResponse -> Int
$sel:session:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe Text
$sel:challengeParameters:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe (HashMap Text Text)
$sel:challengeName:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe ChallengeNameType
$sel:authenticationResult:InitiateAuthResponse' :: InitiateAuthResponse -> Maybe AuthenticationResultType
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe AuthenticationResultType
authenticationResult
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChallengeNameType
challengeName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
challengeParameters
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
session
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus