{-# 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.LexModels.CreateIntentVersion
-- 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 version of an intent based on the @$LATEST@ version of the
-- intent. If the @$LATEST@ version of this intent hasn\'t changed since
-- you last updated it, Amazon Lex doesn\'t create a new version. It
-- returns the last version you created.
--
-- You can update only the @$LATEST@ version of the intent. You can\'t
-- update the numbered versions that you create with the
-- @CreateIntentVersion@ operation.
--
-- When you create a version of an intent, Amazon Lex sets the version to
-- 1. Subsequent versions increment by 1. For more information, see
-- versioning-intro.
--
-- This operation requires permissions to perform the
-- @lex:CreateIntentVersion@ action.
module Amazonka.LexModels.CreateIntentVersion
  ( -- * Creating a Request
    CreateIntentVersion (..),
    newCreateIntentVersion,

    -- * Request Lenses
    createIntentVersion_checksum,
    createIntentVersion_name,

    -- * Destructuring the Response
    CreateIntentVersionResponse (..),
    newCreateIntentVersionResponse,

    -- * Response Lenses
    createIntentVersionResponse_checksum,
    createIntentVersionResponse_conclusionStatement,
    createIntentVersionResponse_confirmationPrompt,
    createIntentVersionResponse_createdDate,
    createIntentVersionResponse_description,
    createIntentVersionResponse_dialogCodeHook,
    createIntentVersionResponse_followUpPrompt,
    createIntentVersionResponse_fulfillmentActivity,
    createIntentVersionResponse_inputContexts,
    createIntentVersionResponse_kendraConfiguration,
    createIntentVersionResponse_lastUpdatedDate,
    createIntentVersionResponse_name,
    createIntentVersionResponse_outputContexts,
    createIntentVersionResponse_parentIntentSignature,
    createIntentVersionResponse_rejectionStatement,
    createIntentVersionResponse_sampleUtterances,
    createIntentVersionResponse_slots,
    createIntentVersionResponse_version,
    createIntentVersionResponse_httpStatus,
  )
where

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

-- | /See:/ 'newCreateIntentVersion' smart constructor.
data CreateIntentVersion = CreateIntentVersion'
  { -- | Checksum of the @$LATEST@ version of the intent that should be used to
    -- create the new version. If you specify a checksum and the @$LATEST@
    -- version of the intent has a different checksum, Amazon Lex returns a
    -- @PreconditionFailedException@ exception and doesn\'t publish a new
    -- version. If you don\'t specify a checksum, Amazon Lex publishes the
    -- @$LATEST@ version.
    CreateIntentVersion -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
    -- | The name of the intent that you want to create a new version of. The
    -- name is case sensitive.
    CreateIntentVersion -> Text
name :: Prelude.Text
  }
  deriving (CreateIntentVersion -> CreateIntentVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateIntentVersion -> CreateIntentVersion -> Bool
$c/= :: CreateIntentVersion -> CreateIntentVersion -> Bool
== :: CreateIntentVersion -> CreateIntentVersion -> Bool
$c== :: CreateIntentVersion -> CreateIntentVersion -> Bool
Prelude.Eq, ReadPrec [CreateIntentVersion]
ReadPrec CreateIntentVersion
Int -> ReadS CreateIntentVersion
ReadS [CreateIntentVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateIntentVersion]
$creadListPrec :: ReadPrec [CreateIntentVersion]
readPrec :: ReadPrec CreateIntentVersion
$creadPrec :: ReadPrec CreateIntentVersion
readList :: ReadS [CreateIntentVersion]
$creadList :: ReadS [CreateIntentVersion]
readsPrec :: Int -> ReadS CreateIntentVersion
$creadsPrec :: Int -> ReadS CreateIntentVersion
Prelude.Read, Int -> CreateIntentVersion -> ShowS
[CreateIntentVersion] -> ShowS
CreateIntentVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateIntentVersion] -> ShowS
$cshowList :: [CreateIntentVersion] -> ShowS
show :: CreateIntentVersion -> String
$cshow :: CreateIntentVersion -> String
showsPrec :: Int -> CreateIntentVersion -> ShowS
$cshowsPrec :: Int -> CreateIntentVersion -> ShowS
Prelude.Show, forall x. Rep CreateIntentVersion x -> CreateIntentVersion
forall x. CreateIntentVersion -> Rep CreateIntentVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateIntentVersion x -> CreateIntentVersion
$cfrom :: forall x. CreateIntentVersion -> Rep CreateIntentVersion x
Prelude.Generic)

-- |
-- Create a value of 'CreateIntentVersion' 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:
--
-- 'checksum', 'createIntentVersion_checksum' - Checksum of the @$LATEST@ version of the intent that should be used to
-- create the new version. If you specify a checksum and the @$LATEST@
-- version of the intent has a different checksum, Amazon Lex returns a
-- @PreconditionFailedException@ exception and doesn\'t publish a new
-- version. If you don\'t specify a checksum, Amazon Lex publishes the
-- @$LATEST@ version.
--
-- 'name', 'createIntentVersion_name' - The name of the intent that you want to create a new version of. The
-- name is case sensitive.
newCreateIntentVersion ::
  -- | 'name'
  Prelude.Text ->
  CreateIntentVersion
newCreateIntentVersion :: Text -> CreateIntentVersion
newCreateIntentVersion Text
pName_ =
  CreateIntentVersion'
    { $sel:checksum:CreateIntentVersion' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
      $sel:name:CreateIntentVersion' :: Text
name = Text
pName_
    }

-- | Checksum of the @$LATEST@ version of the intent that should be used to
-- create the new version. If you specify a checksum and the @$LATEST@
-- version of the intent has a different checksum, Amazon Lex returns a
-- @PreconditionFailedException@ exception and doesn\'t publish a new
-- version. If you don\'t specify a checksum, Amazon Lex publishes the
-- @$LATEST@ version.
createIntentVersion_checksum :: Lens.Lens' CreateIntentVersion (Prelude.Maybe Prelude.Text)
createIntentVersion_checksum :: Lens' CreateIntentVersion (Maybe Text)
createIntentVersion_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersion' {Maybe Text
checksum :: Maybe Text
$sel:checksum:CreateIntentVersion' :: CreateIntentVersion -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: CreateIntentVersion
s@CreateIntentVersion' {} Maybe Text
a -> CreateIntentVersion
s {$sel:checksum:CreateIntentVersion' :: Maybe Text
checksum = Maybe Text
a} :: CreateIntentVersion)

-- | The name of the intent that you want to create a new version of. The
-- name is case sensitive.
createIntentVersion_name :: Lens.Lens' CreateIntentVersion Prelude.Text
createIntentVersion_name :: Lens' CreateIntentVersion Text
createIntentVersion_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersion' {Text
name :: Text
$sel:name:CreateIntentVersion' :: CreateIntentVersion -> Text
name} -> Text
name) (\s :: CreateIntentVersion
s@CreateIntentVersion' {} Text
a -> CreateIntentVersion
s {$sel:name:CreateIntentVersion' :: Text
name = Text
a} :: CreateIntentVersion)

instance Core.AWSRequest CreateIntentVersion where
  type
    AWSResponse CreateIntentVersion =
      CreateIntentVersionResponse
  request :: (Service -> Service)
-> CreateIntentVersion -> Request CreateIntentVersion
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 CreateIntentVersion
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateIntentVersion)))
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 Text
-> Maybe Statement
-> Maybe Prompt
-> Maybe POSIX
-> Maybe Text
-> Maybe CodeHook
-> Maybe FollowUpPrompt
-> Maybe FulfillmentActivity
-> Maybe [InputContext]
-> Maybe KendraConfiguration
-> Maybe POSIX
-> Maybe Text
-> Maybe [OutputContext]
-> Maybe Text
-> Maybe Statement
-> Maybe [Text]
-> Maybe [Slot]
-> Maybe Text
-> Int
-> CreateIntentVersionResponse
CreateIntentVersionResponse'
            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
"checksum")
            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
"conclusionStatement")
            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
"confirmationPrompt")
            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
"createdDate")
            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
"description")
            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
"dialogCodeHook")
            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
"followUpPrompt")
            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
"fulfillmentActivity")
            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
"inputContexts" 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
"kendraConfiguration")
            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
"lastUpdatedDate")
            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
"name")
            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
"outputContexts" 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
"parentIntentSignature")
            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
"rejectionStatement")
            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
"sampleUtterances"
                            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
"slots" 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
"version")
            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 CreateIntentVersion where
  hashWithSalt :: Int -> CreateIntentVersion -> Int
hashWithSalt Int
_salt CreateIntentVersion' {Maybe Text
Text
name :: Text
checksum :: Maybe Text
$sel:name:CreateIntentVersion' :: CreateIntentVersion -> Text
$sel:checksum:CreateIntentVersion' :: CreateIntentVersion -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksum
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name

instance Prelude.NFData CreateIntentVersion where
  rnf :: CreateIntentVersion -> ()
rnf CreateIntentVersion' {Maybe Text
Text
name :: Text
checksum :: Maybe Text
$sel:name:CreateIntentVersion' :: CreateIntentVersion -> Text
$sel:checksum:CreateIntentVersion' :: CreateIntentVersion -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksum seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name

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

instance Data.ToJSON CreateIntentVersion where
  toJSON :: CreateIntentVersion -> Value
toJSON CreateIntentVersion' {Maybe Text
Text
name :: Text
checksum :: Maybe Text
$sel:name:CreateIntentVersion' :: CreateIntentVersion -> Text
$sel:checksum:CreateIntentVersion' :: CreateIntentVersion -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [(Key
"checksum" 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 Text
checksum]
      )

instance Data.ToPath CreateIntentVersion where
  toPath :: CreateIntentVersion -> ByteString
toPath CreateIntentVersion' {Maybe Text
Text
name :: Text
checksum :: Maybe Text
$sel:name:CreateIntentVersion' :: CreateIntentVersion -> Text
$sel:checksum:CreateIntentVersion' :: CreateIntentVersion -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/intents/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
name, ByteString
"/versions"]

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

-- | /See:/ 'newCreateIntentVersionResponse' smart constructor.
data CreateIntentVersionResponse = CreateIntentVersionResponse'
  { -- | Checksum of the intent version created.
    CreateIntentVersionResponse -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
    -- | After the Lambda function specified in the @fulfillmentActivity@ field
    -- fulfills the intent, Amazon Lex conveys this statement to the user.
    CreateIntentVersionResponse -> Maybe Statement
conclusionStatement :: Prelude.Maybe Statement,
    -- | If defined, the prompt that Amazon Lex uses to confirm the user\'s
    -- intent before fulfilling it.
    CreateIntentVersionResponse -> Maybe Prompt
confirmationPrompt :: Prelude.Maybe Prompt,
    -- | The date that the intent was created.
    CreateIntentVersionResponse -> Maybe POSIX
createdDate :: Prelude.Maybe Data.POSIX,
    -- | A description of the intent.
    CreateIntentVersionResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    -- | If defined, Amazon Lex invokes this Lambda function for each user input.
    CreateIntentVersionResponse -> Maybe CodeHook
dialogCodeHook :: Prelude.Maybe CodeHook,
    -- | If defined, Amazon Lex uses this prompt to solicit additional user
    -- activity after the intent is fulfilled.
    CreateIntentVersionResponse -> Maybe FollowUpPrompt
followUpPrompt :: Prelude.Maybe FollowUpPrompt,
    -- | Describes how the intent is fulfilled.
    CreateIntentVersionResponse -> Maybe FulfillmentActivity
fulfillmentActivity :: Prelude.Maybe FulfillmentActivity,
    -- | An array of @InputContext@ objects that lists the contexts that must be
    -- active for Amazon Lex to choose the intent in a conversation with the
    -- user.
    CreateIntentVersionResponse -> Maybe [InputContext]
inputContexts :: Prelude.Maybe [InputContext],
    -- | Configuration information, if any, for connecting an Amazon Kendra index
    -- with the @AMAZON.KendraSearchIntent@ intent.
    CreateIntentVersionResponse -> Maybe KendraConfiguration
kendraConfiguration :: Prelude.Maybe KendraConfiguration,
    -- | The date that the intent was updated.
    CreateIntentVersionResponse -> Maybe POSIX
lastUpdatedDate :: Prelude.Maybe Data.POSIX,
    -- | The name of the intent.
    CreateIntentVersionResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
    -- | An array of @OutputContext@ objects that lists the contexts that the
    -- intent activates when the intent is fulfilled.
    CreateIntentVersionResponse -> Maybe [OutputContext]
outputContexts :: Prelude.Maybe [OutputContext],
    -- | A unique identifier for a built-in intent.
    CreateIntentVersionResponse -> Maybe Text
parentIntentSignature :: Prelude.Maybe Prelude.Text,
    -- | If the user answers \"no\" to the question defined in
    -- @confirmationPrompt@, Amazon Lex responds with this statement to
    -- acknowledge that the intent was canceled.
    CreateIntentVersionResponse -> Maybe Statement
rejectionStatement :: Prelude.Maybe Statement,
    -- | An array of sample utterances configured for the intent.
    CreateIntentVersionResponse -> Maybe [Text]
sampleUtterances :: Prelude.Maybe [Prelude.Text],
    -- | An array of slot types that defines the information required to fulfill
    -- the intent.
    CreateIntentVersionResponse -> Maybe [Slot]
slots :: Prelude.Maybe [Slot],
    -- | The version number assigned to the new version of the intent.
    CreateIntentVersionResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    CreateIntentVersionResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateIntentVersionResponse -> CreateIntentVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateIntentVersionResponse -> CreateIntentVersionResponse -> Bool
$c/= :: CreateIntentVersionResponse -> CreateIntentVersionResponse -> Bool
== :: CreateIntentVersionResponse -> CreateIntentVersionResponse -> Bool
$c== :: CreateIntentVersionResponse -> CreateIntentVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateIntentVersionResponse]
ReadPrec CreateIntentVersionResponse
Int -> ReadS CreateIntentVersionResponse
ReadS [CreateIntentVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateIntentVersionResponse]
$creadListPrec :: ReadPrec [CreateIntentVersionResponse]
readPrec :: ReadPrec CreateIntentVersionResponse
$creadPrec :: ReadPrec CreateIntentVersionResponse
readList :: ReadS [CreateIntentVersionResponse]
$creadList :: ReadS [CreateIntentVersionResponse]
readsPrec :: Int -> ReadS CreateIntentVersionResponse
$creadsPrec :: Int -> ReadS CreateIntentVersionResponse
Prelude.Read, Int -> CreateIntentVersionResponse -> ShowS
[CreateIntentVersionResponse] -> ShowS
CreateIntentVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateIntentVersionResponse] -> ShowS
$cshowList :: [CreateIntentVersionResponse] -> ShowS
show :: CreateIntentVersionResponse -> String
$cshow :: CreateIntentVersionResponse -> String
showsPrec :: Int -> CreateIntentVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateIntentVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateIntentVersionResponse x -> CreateIntentVersionResponse
forall x.
CreateIntentVersionResponse -> Rep CreateIntentVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateIntentVersionResponse x -> CreateIntentVersionResponse
$cfrom :: forall x.
CreateIntentVersionResponse -> Rep CreateIntentVersionResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateIntentVersionResponse' 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:
--
-- 'checksum', 'createIntentVersionResponse_checksum' - Checksum of the intent version created.
--
-- 'conclusionStatement', 'createIntentVersionResponse_conclusionStatement' - After the Lambda function specified in the @fulfillmentActivity@ field
-- fulfills the intent, Amazon Lex conveys this statement to the user.
--
-- 'confirmationPrompt', 'createIntentVersionResponse_confirmationPrompt' - If defined, the prompt that Amazon Lex uses to confirm the user\'s
-- intent before fulfilling it.
--
-- 'createdDate', 'createIntentVersionResponse_createdDate' - The date that the intent was created.
--
-- 'description', 'createIntentVersionResponse_description' - A description of the intent.
--
-- 'dialogCodeHook', 'createIntentVersionResponse_dialogCodeHook' - If defined, Amazon Lex invokes this Lambda function for each user input.
--
-- 'followUpPrompt', 'createIntentVersionResponse_followUpPrompt' - If defined, Amazon Lex uses this prompt to solicit additional user
-- activity after the intent is fulfilled.
--
-- 'fulfillmentActivity', 'createIntentVersionResponse_fulfillmentActivity' - Describes how the intent is fulfilled.
--
-- 'inputContexts', 'createIntentVersionResponse_inputContexts' - An array of @InputContext@ objects that lists the contexts that must be
-- active for Amazon Lex to choose the intent in a conversation with the
-- user.
--
-- 'kendraConfiguration', 'createIntentVersionResponse_kendraConfiguration' - Configuration information, if any, for connecting an Amazon Kendra index
-- with the @AMAZON.KendraSearchIntent@ intent.
--
-- 'lastUpdatedDate', 'createIntentVersionResponse_lastUpdatedDate' - The date that the intent was updated.
--
-- 'name', 'createIntentVersionResponse_name' - The name of the intent.
--
-- 'outputContexts', 'createIntentVersionResponse_outputContexts' - An array of @OutputContext@ objects that lists the contexts that the
-- intent activates when the intent is fulfilled.
--
-- 'parentIntentSignature', 'createIntentVersionResponse_parentIntentSignature' - A unique identifier for a built-in intent.
--
-- 'rejectionStatement', 'createIntentVersionResponse_rejectionStatement' - If the user answers \"no\" to the question defined in
-- @confirmationPrompt@, Amazon Lex responds with this statement to
-- acknowledge that the intent was canceled.
--
-- 'sampleUtterances', 'createIntentVersionResponse_sampleUtterances' - An array of sample utterances configured for the intent.
--
-- 'slots', 'createIntentVersionResponse_slots' - An array of slot types that defines the information required to fulfill
-- the intent.
--
-- 'version', 'createIntentVersionResponse_version' - The version number assigned to the new version of the intent.
--
-- 'httpStatus', 'createIntentVersionResponse_httpStatus' - The response's http status code.
newCreateIntentVersionResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateIntentVersionResponse
newCreateIntentVersionResponse :: Int -> CreateIntentVersionResponse
newCreateIntentVersionResponse Int
pHttpStatus_ =
  CreateIntentVersionResponse'
    { $sel:checksum:CreateIntentVersionResponse' :: Maybe Text
checksum =
        forall a. Maybe a
Prelude.Nothing,
      $sel:conclusionStatement:CreateIntentVersionResponse' :: Maybe Statement
conclusionStatement = forall a. Maybe a
Prelude.Nothing,
      $sel:confirmationPrompt:CreateIntentVersionResponse' :: Maybe Prompt
confirmationPrompt = forall a. Maybe a
Prelude.Nothing,
      $sel:createdDate:CreateIntentVersionResponse' :: Maybe POSIX
createdDate = forall a. Maybe a
Prelude.Nothing,
      $sel:description:CreateIntentVersionResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
      $sel:dialogCodeHook:CreateIntentVersionResponse' :: Maybe CodeHook
dialogCodeHook = forall a. Maybe a
Prelude.Nothing,
      $sel:followUpPrompt:CreateIntentVersionResponse' :: Maybe FollowUpPrompt
followUpPrompt = forall a. Maybe a
Prelude.Nothing,
      $sel:fulfillmentActivity:CreateIntentVersionResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = forall a. Maybe a
Prelude.Nothing,
      $sel:inputContexts:CreateIntentVersionResponse' :: Maybe [InputContext]
inputContexts = forall a. Maybe a
Prelude.Nothing,
      $sel:kendraConfiguration:CreateIntentVersionResponse' :: Maybe KendraConfiguration
kendraConfiguration = forall a. Maybe a
Prelude.Nothing,
      $sel:lastUpdatedDate:CreateIntentVersionResponse' :: Maybe POSIX
lastUpdatedDate = forall a. Maybe a
Prelude.Nothing,
      $sel:name:CreateIntentVersionResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
      $sel:outputContexts:CreateIntentVersionResponse' :: Maybe [OutputContext]
outputContexts = forall a. Maybe a
Prelude.Nothing,
      $sel:parentIntentSignature:CreateIntentVersionResponse' :: Maybe Text
parentIntentSignature = forall a. Maybe a
Prelude.Nothing,
      $sel:rejectionStatement:CreateIntentVersionResponse' :: Maybe Statement
rejectionStatement = forall a. Maybe a
Prelude.Nothing,
      $sel:sampleUtterances:CreateIntentVersionResponse' :: Maybe [Text]
sampleUtterances = forall a. Maybe a
Prelude.Nothing,
      $sel:slots:CreateIntentVersionResponse' :: Maybe [Slot]
slots = forall a. Maybe a
Prelude.Nothing,
      $sel:version:CreateIntentVersionResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateIntentVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Checksum of the intent version created.
createIntentVersionResponse_checksum :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.Text)
createIntentVersionResponse_checksum :: Lens' CreateIntentVersionResponse (Maybe Text)
createIntentVersionResponse_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Text
checksum :: Maybe Text
$sel:checksum:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Text
a -> CreateIntentVersionResponse
s {$sel:checksum:CreateIntentVersionResponse' :: Maybe Text
checksum = Maybe Text
a} :: CreateIntentVersionResponse)

-- | After the Lambda function specified in the @fulfillmentActivity@ field
-- fulfills the intent, Amazon Lex conveys this statement to the user.
createIntentVersionResponse_conclusionStatement :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Statement)
createIntentVersionResponse_conclusionStatement :: Lens' CreateIntentVersionResponse (Maybe Statement)
createIntentVersionResponse_conclusionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Statement
conclusionStatement :: Maybe Statement
$sel:conclusionStatement:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Statement
conclusionStatement} -> Maybe Statement
conclusionStatement) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Statement
a -> CreateIntentVersionResponse
s {$sel:conclusionStatement:CreateIntentVersionResponse' :: Maybe Statement
conclusionStatement = Maybe Statement
a} :: CreateIntentVersionResponse)

-- | If defined, the prompt that Amazon Lex uses to confirm the user\'s
-- intent before fulfilling it.
createIntentVersionResponse_confirmationPrompt :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prompt)
createIntentVersionResponse_confirmationPrompt :: Lens' CreateIntentVersionResponse (Maybe Prompt)
createIntentVersionResponse_confirmationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Prompt
confirmationPrompt :: Maybe Prompt
$sel:confirmationPrompt:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Prompt
confirmationPrompt} -> Maybe Prompt
confirmationPrompt) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Prompt
a -> CreateIntentVersionResponse
s {$sel:confirmationPrompt:CreateIntentVersionResponse' :: Maybe Prompt
confirmationPrompt = Maybe Prompt
a} :: CreateIntentVersionResponse)

-- | The date that the intent was created.
createIntentVersionResponse_createdDate :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.UTCTime)
createIntentVersionResponse_createdDate :: Lens' CreateIntentVersionResponse (Maybe UTCTime)
createIntentVersionResponse_createdDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe POSIX
createdDate :: Maybe POSIX
$sel:createdDate:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe POSIX
createdDate} -> Maybe POSIX
createdDate) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe POSIX
a -> CreateIntentVersionResponse
s {$sel:createdDate:CreateIntentVersionResponse' :: Maybe POSIX
createdDate = Maybe POSIX
a} :: CreateIntentVersionResponse) 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 :: Format). Iso' (Time a) UTCTime
Data._Time

-- | A description of the intent.
createIntentVersionResponse_description :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.Text)
createIntentVersionResponse_description :: Lens' CreateIntentVersionResponse (Maybe Text)
createIntentVersionResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Text
description :: Maybe Text
$sel:description:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Text
a -> CreateIntentVersionResponse
s {$sel:description:CreateIntentVersionResponse' :: Maybe Text
description = Maybe Text
a} :: CreateIntentVersionResponse)

-- | If defined, Amazon Lex invokes this Lambda function for each user input.
createIntentVersionResponse_dialogCodeHook :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe CodeHook)
createIntentVersionResponse_dialogCodeHook :: Lens' CreateIntentVersionResponse (Maybe CodeHook)
createIntentVersionResponse_dialogCodeHook = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe CodeHook
dialogCodeHook :: Maybe CodeHook
$sel:dialogCodeHook:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe CodeHook
dialogCodeHook} -> Maybe CodeHook
dialogCodeHook) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe CodeHook
a -> CreateIntentVersionResponse
s {$sel:dialogCodeHook:CreateIntentVersionResponse' :: Maybe CodeHook
dialogCodeHook = Maybe CodeHook
a} :: CreateIntentVersionResponse)

-- | If defined, Amazon Lex uses this prompt to solicit additional user
-- activity after the intent is fulfilled.
createIntentVersionResponse_followUpPrompt :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe FollowUpPrompt)
createIntentVersionResponse_followUpPrompt :: Lens' CreateIntentVersionResponse (Maybe FollowUpPrompt)
createIntentVersionResponse_followUpPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe FollowUpPrompt
followUpPrompt :: Maybe FollowUpPrompt
$sel:followUpPrompt:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe FollowUpPrompt
followUpPrompt} -> Maybe FollowUpPrompt
followUpPrompt) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe FollowUpPrompt
a -> CreateIntentVersionResponse
s {$sel:followUpPrompt:CreateIntentVersionResponse' :: Maybe FollowUpPrompt
followUpPrompt = Maybe FollowUpPrompt
a} :: CreateIntentVersionResponse)

-- | Describes how the intent is fulfilled.
createIntentVersionResponse_fulfillmentActivity :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe FulfillmentActivity)
createIntentVersionResponse_fulfillmentActivity :: Lens' CreateIntentVersionResponse (Maybe FulfillmentActivity)
createIntentVersionResponse_fulfillmentActivity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe FulfillmentActivity
fulfillmentActivity :: Maybe FulfillmentActivity
$sel:fulfillmentActivity:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe FulfillmentActivity
fulfillmentActivity} -> Maybe FulfillmentActivity
fulfillmentActivity) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe FulfillmentActivity
a -> CreateIntentVersionResponse
s {$sel:fulfillmentActivity:CreateIntentVersionResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = Maybe FulfillmentActivity
a} :: CreateIntentVersionResponse)

-- | An array of @InputContext@ objects that lists the contexts that must be
-- active for Amazon Lex to choose the intent in a conversation with the
-- user.
createIntentVersionResponse_inputContexts :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe [InputContext])
createIntentVersionResponse_inputContexts :: Lens' CreateIntentVersionResponse (Maybe [InputContext])
createIntentVersionResponse_inputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe [InputContext]
inputContexts :: Maybe [InputContext]
$sel:inputContexts:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [InputContext]
inputContexts} -> Maybe [InputContext]
inputContexts) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe [InputContext]
a -> CreateIntentVersionResponse
s {$sel:inputContexts:CreateIntentVersionResponse' :: Maybe [InputContext]
inputContexts = Maybe [InputContext]
a} :: CreateIntentVersionResponse) 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

-- | Configuration information, if any, for connecting an Amazon Kendra index
-- with the @AMAZON.KendraSearchIntent@ intent.
createIntentVersionResponse_kendraConfiguration :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe KendraConfiguration)
createIntentVersionResponse_kendraConfiguration :: Lens' CreateIntentVersionResponse (Maybe KendraConfiguration)
createIntentVersionResponse_kendraConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe KendraConfiguration
kendraConfiguration :: Maybe KendraConfiguration
$sel:kendraConfiguration:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe KendraConfiguration
kendraConfiguration} -> Maybe KendraConfiguration
kendraConfiguration) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe KendraConfiguration
a -> CreateIntentVersionResponse
s {$sel:kendraConfiguration:CreateIntentVersionResponse' :: Maybe KendraConfiguration
kendraConfiguration = Maybe KendraConfiguration
a} :: CreateIntentVersionResponse)

-- | The date that the intent was updated.
createIntentVersionResponse_lastUpdatedDate :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.UTCTime)
createIntentVersionResponse_lastUpdatedDate :: Lens' CreateIntentVersionResponse (Maybe UTCTime)
createIntentVersionResponse_lastUpdatedDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe POSIX
lastUpdatedDate :: Maybe POSIX
$sel:lastUpdatedDate:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe POSIX
lastUpdatedDate} -> Maybe POSIX
lastUpdatedDate) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe POSIX
a -> CreateIntentVersionResponse
s {$sel:lastUpdatedDate:CreateIntentVersionResponse' :: Maybe POSIX
lastUpdatedDate = Maybe POSIX
a} :: CreateIntentVersionResponse) 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 :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The name of the intent.
createIntentVersionResponse_name :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.Text)
createIntentVersionResponse_name :: Lens' CreateIntentVersionResponse (Maybe Text)
createIntentVersionResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Text
name :: Maybe Text
$sel:name:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Text
a -> CreateIntentVersionResponse
s {$sel:name:CreateIntentVersionResponse' :: Maybe Text
name = Maybe Text
a} :: CreateIntentVersionResponse)

-- | An array of @OutputContext@ objects that lists the contexts that the
-- intent activates when the intent is fulfilled.
createIntentVersionResponse_outputContexts :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe [OutputContext])
createIntentVersionResponse_outputContexts :: Lens' CreateIntentVersionResponse (Maybe [OutputContext])
createIntentVersionResponse_outputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe [OutputContext]
outputContexts :: Maybe [OutputContext]
$sel:outputContexts:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [OutputContext]
outputContexts} -> Maybe [OutputContext]
outputContexts) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe [OutputContext]
a -> CreateIntentVersionResponse
s {$sel:outputContexts:CreateIntentVersionResponse' :: Maybe [OutputContext]
outputContexts = Maybe [OutputContext]
a} :: CreateIntentVersionResponse) 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

-- | A unique identifier for a built-in intent.
createIntentVersionResponse_parentIntentSignature :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.Text)
createIntentVersionResponse_parentIntentSignature :: Lens' CreateIntentVersionResponse (Maybe Text)
createIntentVersionResponse_parentIntentSignature = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Text
parentIntentSignature :: Maybe Text
$sel:parentIntentSignature:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
parentIntentSignature} -> Maybe Text
parentIntentSignature) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Text
a -> CreateIntentVersionResponse
s {$sel:parentIntentSignature:CreateIntentVersionResponse' :: Maybe Text
parentIntentSignature = Maybe Text
a} :: CreateIntentVersionResponse)

-- | If the user answers \"no\" to the question defined in
-- @confirmationPrompt@, Amazon Lex responds with this statement to
-- acknowledge that the intent was canceled.
createIntentVersionResponse_rejectionStatement :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Statement)
createIntentVersionResponse_rejectionStatement :: Lens' CreateIntentVersionResponse (Maybe Statement)
createIntentVersionResponse_rejectionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Statement
rejectionStatement :: Maybe Statement
$sel:rejectionStatement:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Statement
rejectionStatement} -> Maybe Statement
rejectionStatement) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Statement
a -> CreateIntentVersionResponse
s {$sel:rejectionStatement:CreateIntentVersionResponse' :: Maybe Statement
rejectionStatement = Maybe Statement
a} :: CreateIntentVersionResponse)

-- | An array of sample utterances configured for the intent.
createIntentVersionResponse_sampleUtterances :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe [Prelude.Text])
createIntentVersionResponse_sampleUtterances :: Lens' CreateIntentVersionResponse (Maybe [Text])
createIntentVersionResponse_sampleUtterances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe [Text]
sampleUtterances :: Maybe [Text]
$sel:sampleUtterances:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [Text]
sampleUtterances} -> Maybe [Text]
sampleUtterances) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe [Text]
a -> CreateIntentVersionResponse
s {$sel:sampleUtterances:CreateIntentVersionResponse' :: Maybe [Text]
sampleUtterances = Maybe [Text]
a} :: CreateIntentVersionResponse) 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

-- | An array of slot types that defines the information required to fulfill
-- the intent.
createIntentVersionResponse_slots :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe [Slot])
createIntentVersionResponse_slots :: Lens' CreateIntentVersionResponse (Maybe [Slot])
createIntentVersionResponse_slots = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe [Slot]
slots :: Maybe [Slot]
$sel:slots:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [Slot]
slots} -> Maybe [Slot]
slots) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe [Slot]
a -> CreateIntentVersionResponse
s {$sel:slots:CreateIntentVersionResponse' :: Maybe [Slot]
slots = Maybe [Slot]
a} :: CreateIntentVersionResponse) 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 version number assigned to the new version of the intent.
createIntentVersionResponse_version :: Lens.Lens' CreateIntentVersionResponse (Prelude.Maybe Prelude.Text)
createIntentVersionResponse_version :: Lens' CreateIntentVersionResponse (Maybe Text)
createIntentVersionResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateIntentVersionResponse' {Maybe Text
version :: Maybe Text
$sel:version:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: CreateIntentVersionResponse
s@CreateIntentVersionResponse' {} Maybe Text
a -> CreateIntentVersionResponse
s {$sel:version:CreateIntentVersionResponse' :: Maybe Text
version = Maybe Text
a} :: CreateIntentVersionResponse)

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

instance Prelude.NFData CreateIntentVersionResponse where
  rnf :: CreateIntentVersionResponse -> ()
rnf CreateIntentVersionResponse' {Int
Maybe [Text]
Maybe [InputContext]
Maybe [OutputContext]
Maybe [Slot]
Maybe Text
Maybe POSIX
Maybe CodeHook
Maybe FulfillmentActivity
Maybe KendraConfiguration
Maybe Prompt
Maybe Statement
Maybe FollowUpPrompt
httpStatus :: Int
version :: Maybe Text
slots :: Maybe [Slot]
sampleUtterances :: Maybe [Text]
rejectionStatement :: Maybe Statement
parentIntentSignature :: Maybe Text
outputContexts :: Maybe [OutputContext]
name :: Maybe Text
lastUpdatedDate :: Maybe POSIX
kendraConfiguration :: Maybe KendraConfiguration
inputContexts :: Maybe [InputContext]
fulfillmentActivity :: Maybe FulfillmentActivity
followUpPrompt :: Maybe FollowUpPrompt
dialogCodeHook :: Maybe CodeHook
description :: Maybe Text
createdDate :: Maybe POSIX
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:httpStatus:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Int
$sel:version:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
$sel:slots:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [Slot]
$sel:sampleUtterances:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [Text]
$sel:rejectionStatement:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Statement
$sel:parentIntentSignature:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
$sel:outputContexts:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [OutputContext]
$sel:name:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
$sel:lastUpdatedDate:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe POSIX
$sel:kendraConfiguration:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe KendraConfiguration
$sel:inputContexts:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe [InputContext]
$sel:fulfillmentActivity:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe FulfillmentActivity
$sel:followUpPrompt:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe FollowUpPrompt
$sel:dialogCodeHook:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe CodeHook
$sel:description:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
$sel:createdDate:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe POSIX
$sel:confirmationPrompt:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Prompt
$sel:conclusionStatement:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Statement
$sel:checksum:CreateIntentVersionResponse' :: CreateIntentVersionResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
checksum
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Statement
conclusionStatement
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Prompt
confirmationPrompt
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdDate
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CodeHook
dialogCodeHook
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FollowUpPrompt
followUpPrompt
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FulfillmentActivity
fulfillmentActivity
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [InputContext]
inputContexts
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe KendraConfiguration
kendraConfiguration
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastUpdatedDate
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [OutputContext]
outputContexts
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
parentIntentSignature
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Statement
rejectionStatement
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
sampleUtterances
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Slot]
slots
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
version
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus