{-# 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.GetIntent
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns information about an intent. In addition to the intent name, you
-- must specify the intent version.
--
-- This operation requires permissions to perform the @lex:GetIntent@
-- action.
module Amazonka.LexModels.GetIntent
  ( -- * Creating a Request
    GetIntent (..),
    newGetIntent,

    -- * Request Lenses
    getIntent_name,
    getIntent_version,

    -- * Destructuring the Response
    GetIntentResponse (..),
    newGetIntentResponse,

    -- * Response Lenses
    getIntentResponse_checksum,
    getIntentResponse_conclusionStatement,
    getIntentResponse_confirmationPrompt,
    getIntentResponse_createdDate,
    getIntentResponse_description,
    getIntentResponse_dialogCodeHook,
    getIntentResponse_followUpPrompt,
    getIntentResponse_fulfillmentActivity,
    getIntentResponse_inputContexts,
    getIntentResponse_kendraConfiguration,
    getIntentResponse_lastUpdatedDate,
    getIntentResponse_name,
    getIntentResponse_outputContexts,
    getIntentResponse_parentIntentSignature,
    getIntentResponse_rejectionStatement,
    getIntentResponse_sampleUtterances,
    getIntentResponse_slots,
    getIntentResponse_version,
    getIntentResponse_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:/ 'newGetIntent' smart constructor.
data GetIntent = GetIntent'
  { -- | The name of the intent. The name is case sensitive.
    GetIntent -> Text
name :: Prelude.Text,
    -- | The version of the intent.
    GetIntent -> Text
version :: Prelude.Text
  }
  deriving (GetIntent -> GetIntent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetIntent -> GetIntent -> Bool
$c/= :: GetIntent -> GetIntent -> Bool
== :: GetIntent -> GetIntent -> Bool
$c== :: GetIntent -> GetIntent -> Bool
Prelude.Eq, ReadPrec [GetIntent]
ReadPrec GetIntent
Int -> ReadS GetIntent
ReadS [GetIntent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetIntent]
$creadListPrec :: ReadPrec [GetIntent]
readPrec :: ReadPrec GetIntent
$creadPrec :: ReadPrec GetIntent
readList :: ReadS [GetIntent]
$creadList :: ReadS [GetIntent]
readsPrec :: Int -> ReadS GetIntent
$creadsPrec :: Int -> ReadS GetIntent
Prelude.Read, Int -> GetIntent -> ShowS
[GetIntent] -> ShowS
GetIntent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetIntent] -> ShowS
$cshowList :: [GetIntent] -> ShowS
show :: GetIntent -> String
$cshow :: GetIntent -> String
showsPrec :: Int -> GetIntent -> ShowS
$cshowsPrec :: Int -> GetIntent -> ShowS
Prelude.Show, forall x. Rep GetIntent x -> GetIntent
forall x. GetIntent -> Rep GetIntent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetIntent x -> GetIntent
$cfrom :: forall x. GetIntent -> Rep GetIntent x
Prelude.Generic)

-- |
-- Create a value of 'GetIntent' 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:
--
-- 'name', 'getIntent_name' - The name of the intent. The name is case sensitive.
--
-- 'version', 'getIntent_version' - The version of the intent.
newGetIntent ::
  -- | 'name'
  Prelude.Text ->
  -- | 'version'
  Prelude.Text ->
  GetIntent
newGetIntent :: Text -> Text -> GetIntent
newGetIntent Text
pName_ Text
pVersion_ =
  GetIntent' {$sel:name:GetIntent' :: Text
name = Text
pName_, $sel:version:GetIntent' :: Text
version = Text
pVersion_}

-- | The name of the intent. The name is case sensitive.
getIntent_name :: Lens.Lens' GetIntent Prelude.Text
getIntent_name :: Lens' GetIntent Text
getIntent_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntent' {Text
name :: Text
$sel:name:GetIntent' :: GetIntent -> Text
name} -> Text
name) (\s :: GetIntent
s@GetIntent' {} Text
a -> GetIntent
s {$sel:name:GetIntent' :: Text
name = Text
a} :: GetIntent)

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

instance Core.AWSRequest GetIntent where
  type AWSResponse GetIntent = GetIntentResponse
  request :: (Service -> Service) -> GetIntent -> Request GetIntent
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetIntent
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetIntent)))
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
-> GetIntentResponse
GetIntentResponse'
            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 GetIntent where
  hashWithSalt :: Int -> GetIntent -> Int
hashWithSalt Int
_salt GetIntent' {Text
version :: Text
name :: Text
$sel:version:GetIntent' :: GetIntent -> Text
$sel:name:GetIntent' :: GetIntent -> Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
version

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

instance Data.ToHeaders GetIntent where
  toHeaders :: GetIntent -> 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.ToPath GetIntent where
  toPath :: GetIntent -> ByteString
toPath GetIntent' {Text
version :: Text
name :: Text
$sel:version:GetIntent' :: GetIntent -> Text
$sel:name:GetIntent' :: GetIntent -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"/intents/",
        forall a. ToByteString a => a -> ByteString
Data.toBS Text
name,
        ByteString
"/versions/",
        forall a. ToByteString a => a -> ByteString
Data.toBS Text
version
      ]

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

-- | /See:/ 'newGetIntentResponse' smart constructor.
data GetIntentResponse = GetIntentResponse'
  { -- | Checksum of the intent.
    GetIntentResponse -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
    -- | After the Lambda function specified in the @fulfillmentActivity@ element
    -- fulfills the intent, Amazon Lex conveys this statement to the user.
    GetIntentResponse -> Maybe Statement
conclusionStatement :: Prelude.Maybe Statement,
    -- | If defined in the bot, Amazon Lex uses prompt to confirm the intent
    -- before fulfilling the user\'s request. For more information, see
    -- PutIntent.
    GetIntentResponse -> Maybe Prompt
confirmationPrompt :: Prelude.Maybe Prompt,
    -- | The date that the intent was created.
    GetIntentResponse -> Maybe POSIX
createdDate :: Prelude.Maybe Data.POSIX,
    -- | A description of the intent.
    GetIntentResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    -- | If defined in the bot, Amazon Amazon Lex invokes this Lambda function
    -- for each user input. For more information, see PutIntent.
    GetIntentResponse -> Maybe CodeHook
dialogCodeHook :: Prelude.Maybe CodeHook,
    -- | If defined in the bot, Amazon Lex uses this prompt to solicit additional
    -- user activity after the intent is fulfilled. For more information, see
    -- PutIntent.
    GetIntentResponse -> Maybe FollowUpPrompt
followUpPrompt :: Prelude.Maybe FollowUpPrompt,
    -- | Describes how the intent is fulfilled. For more information, see
    -- PutIntent.
    GetIntentResponse -> 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.
    GetIntentResponse -> Maybe [InputContext]
inputContexts :: Prelude.Maybe [InputContext],
    -- | Configuration information, if any, to connect to an Amazon Kendra index
    -- with the @AMAZON.KendraSearchIntent@ intent.
    GetIntentResponse -> Maybe KendraConfiguration
kendraConfiguration :: Prelude.Maybe KendraConfiguration,
    -- | The date that the intent was updated. When you create a resource, the
    -- creation date and the last updated date are the same.
    GetIntentResponse -> Maybe POSIX
lastUpdatedDate :: Prelude.Maybe Data.POSIX,
    -- | The name of the intent.
    GetIntentResponse -> 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.
    GetIntentResponse -> Maybe [OutputContext]
outputContexts :: Prelude.Maybe [OutputContext],
    -- | A unique identifier for a built-in intent.
    GetIntentResponse -> 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.
    GetIntentResponse -> Maybe Statement
rejectionStatement :: Prelude.Maybe Statement,
    -- | An array of sample utterances configured for the intent.
    GetIntentResponse -> Maybe [Text]
sampleUtterances :: Prelude.Maybe [Prelude.Text],
    -- | An array of intent slots configured for the intent.
    GetIntentResponse -> Maybe [Slot]
slots :: Prelude.Maybe [Slot],
    -- | The version of the intent.
    GetIntentResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    GetIntentResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetIntentResponse -> GetIntentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetIntentResponse -> GetIntentResponse -> Bool
$c/= :: GetIntentResponse -> GetIntentResponse -> Bool
== :: GetIntentResponse -> GetIntentResponse -> Bool
$c== :: GetIntentResponse -> GetIntentResponse -> Bool
Prelude.Eq, ReadPrec [GetIntentResponse]
ReadPrec GetIntentResponse
Int -> ReadS GetIntentResponse
ReadS [GetIntentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetIntentResponse]
$creadListPrec :: ReadPrec [GetIntentResponse]
readPrec :: ReadPrec GetIntentResponse
$creadPrec :: ReadPrec GetIntentResponse
readList :: ReadS [GetIntentResponse]
$creadList :: ReadS [GetIntentResponse]
readsPrec :: Int -> ReadS GetIntentResponse
$creadsPrec :: Int -> ReadS GetIntentResponse
Prelude.Read, Int -> GetIntentResponse -> ShowS
[GetIntentResponse] -> ShowS
GetIntentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetIntentResponse] -> ShowS
$cshowList :: [GetIntentResponse] -> ShowS
show :: GetIntentResponse -> String
$cshow :: GetIntentResponse -> String
showsPrec :: Int -> GetIntentResponse -> ShowS
$cshowsPrec :: Int -> GetIntentResponse -> ShowS
Prelude.Show, forall x. Rep GetIntentResponse x -> GetIntentResponse
forall x. GetIntentResponse -> Rep GetIntentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetIntentResponse x -> GetIntentResponse
$cfrom :: forall x. GetIntentResponse -> Rep GetIntentResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetIntentResponse' 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', 'getIntentResponse_checksum' - Checksum of the intent.
--
-- 'conclusionStatement', 'getIntentResponse_conclusionStatement' - After the Lambda function specified in the @fulfillmentActivity@ element
-- fulfills the intent, Amazon Lex conveys this statement to the user.
--
-- 'confirmationPrompt', 'getIntentResponse_confirmationPrompt' - If defined in the bot, Amazon Lex uses prompt to confirm the intent
-- before fulfilling the user\'s request. For more information, see
-- PutIntent.
--
-- 'createdDate', 'getIntentResponse_createdDate' - The date that the intent was created.
--
-- 'description', 'getIntentResponse_description' - A description of the intent.
--
-- 'dialogCodeHook', 'getIntentResponse_dialogCodeHook' - If defined in the bot, Amazon Amazon Lex invokes this Lambda function
-- for each user input. For more information, see PutIntent.
--
-- 'followUpPrompt', 'getIntentResponse_followUpPrompt' - If defined in the bot, Amazon Lex uses this prompt to solicit additional
-- user activity after the intent is fulfilled. For more information, see
-- PutIntent.
--
-- 'fulfillmentActivity', 'getIntentResponse_fulfillmentActivity' - Describes how the intent is fulfilled. For more information, see
-- PutIntent.
--
-- 'inputContexts', 'getIntentResponse_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', 'getIntentResponse_kendraConfiguration' - Configuration information, if any, to connect to an Amazon Kendra index
-- with the @AMAZON.KendraSearchIntent@ intent.
--
-- 'lastUpdatedDate', 'getIntentResponse_lastUpdatedDate' - The date that the intent was updated. When you create a resource, the
-- creation date and the last updated date are the same.
--
-- 'name', 'getIntentResponse_name' - The name of the intent.
--
-- 'outputContexts', 'getIntentResponse_outputContexts' - An array of @OutputContext@ objects that lists the contexts that the
-- intent activates when the intent is fulfilled.
--
-- 'parentIntentSignature', 'getIntentResponse_parentIntentSignature' - A unique identifier for a built-in intent.
--
-- 'rejectionStatement', 'getIntentResponse_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', 'getIntentResponse_sampleUtterances' - An array of sample utterances configured for the intent.
--
-- 'slots', 'getIntentResponse_slots' - An array of intent slots configured for the intent.
--
-- 'version', 'getIntentResponse_version' - The version of the intent.
--
-- 'httpStatus', 'getIntentResponse_httpStatus' - The response's http status code.
newGetIntentResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetIntentResponse
newGetIntentResponse :: Int -> GetIntentResponse
newGetIntentResponse Int
pHttpStatus_ =
  GetIntentResponse'
    { $sel:checksum:GetIntentResponse' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
      $sel:conclusionStatement:GetIntentResponse' :: Maybe Statement
conclusionStatement = forall a. Maybe a
Prelude.Nothing,
      $sel:confirmationPrompt:GetIntentResponse' :: Maybe Prompt
confirmationPrompt = forall a. Maybe a
Prelude.Nothing,
      $sel:createdDate:GetIntentResponse' :: Maybe POSIX
createdDate = forall a. Maybe a
Prelude.Nothing,
      $sel:description:GetIntentResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
      $sel:dialogCodeHook:GetIntentResponse' :: Maybe CodeHook
dialogCodeHook = forall a. Maybe a
Prelude.Nothing,
      $sel:followUpPrompt:GetIntentResponse' :: Maybe FollowUpPrompt
followUpPrompt = forall a. Maybe a
Prelude.Nothing,
      $sel:fulfillmentActivity:GetIntentResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = forall a. Maybe a
Prelude.Nothing,
      $sel:inputContexts:GetIntentResponse' :: Maybe [InputContext]
inputContexts = forall a. Maybe a
Prelude.Nothing,
      $sel:kendraConfiguration:GetIntentResponse' :: Maybe KendraConfiguration
kendraConfiguration = forall a. Maybe a
Prelude.Nothing,
      $sel:lastUpdatedDate:GetIntentResponse' :: Maybe POSIX
lastUpdatedDate = forall a. Maybe a
Prelude.Nothing,
      $sel:name:GetIntentResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
      $sel:outputContexts:GetIntentResponse' :: Maybe [OutputContext]
outputContexts = forall a. Maybe a
Prelude.Nothing,
      $sel:parentIntentSignature:GetIntentResponse' :: Maybe Text
parentIntentSignature = forall a. Maybe a
Prelude.Nothing,
      $sel:rejectionStatement:GetIntentResponse' :: Maybe Statement
rejectionStatement = forall a. Maybe a
Prelude.Nothing,
      $sel:sampleUtterances:GetIntentResponse' :: Maybe [Text]
sampleUtterances = forall a. Maybe a
Prelude.Nothing,
      $sel:slots:GetIntentResponse' :: Maybe [Slot]
slots = forall a. Maybe a
Prelude.Nothing,
      $sel:version:GetIntentResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetIntentResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

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

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

-- | If defined in the bot, Amazon Lex uses prompt to confirm the intent
-- before fulfilling the user\'s request. For more information, see
-- PutIntent.
getIntentResponse_confirmationPrompt :: Lens.Lens' GetIntentResponse (Prelude.Maybe Prompt)
getIntentResponse_confirmationPrompt :: Lens' GetIntentResponse (Maybe Prompt)
getIntentResponse_confirmationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe Prompt
confirmationPrompt :: Maybe Prompt
$sel:confirmationPrompt:GetIntentResponse' :: GetIntentResponse -> Maybe Prompt
confirmationPrompt} -> Maybe Prompt
confirmationPrompt) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe Prompt
a -> GetIntentResponse
s {$sel:confirmationPrompt:GetIntentResponse' :: Maybe Prompt
confirmationPrompt = Maybe Prompt
a} :: GetIntentResponse)

-- | The date that the intent was created.
getIntentResponse_createdDate :: Lens.Lens' GetIntentResponse (Prelude.Maybe Prelude.UTCTime)
getIntentResponse_createdDate :: Lens' GetIntentResponse (Maybe UTCTime)
getIntentResponse_createdDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe POSIX
createdDate :: Maybe POSIX
$sel:createdDate:GetIntentResponse' :: GetIntentResponse -> Maybe POSIX
createdDate} -> Maybe POSIX
createdDate) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe POSIX
a -> GetIntentResponse
s {$sel:createdDate:GetIntentResponse' :: Maybe POSIX
createdDate = Maybe POSIX
a} :: GetIntentResponse) 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.
getIntentResponse_description :: Lens.Lens' GetIntentResponse (Prelude.Maybe Prelude.Text)
getIntentResponse_description :: Lens' GetIntentResponse (Maybe Text)
getIntentResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe Text
description :: Maybe Text
$sel:description:GetIntentResponse' :: GetIntentResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe Text
a -> GetIntentResponse
s {$sel:description:GetIntentResponse' :: Maybe Text
description = Maybe Text
a} :: GetIntentResponse)

-- | If defined in the bot, Amazon Amazon Lex invokes this Lambda function
-- for each user input. For more information, see PutIntent.
getIntentResponse_dialogCodeHook :: Lens.Lens' GetIntentResponse (Prelude.Maybe CodeHook)
getIntentResponse_dialogCodeHook :: Lens' GetIntentResponse (Maybe CodeHook)
getIntentResponse_dialogCodeHook = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe CodeHook
dialogCodeHook :: Maybe CodeHook
$sel:dialogCodeHook:GetIntentResponse' :: GetIntentResponse -> Maybe CodeHook
dialogCodeHook} -> Maybe CodeHook
dialogCodeHook) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe CodeHook
a -> GetIntentResponse
s {$sel:dialogCodeHook:GetIntentResponse' :: Maybe CodeHook
dialogCodeHook = Maybe CodeHook
a} :: GetIntentResponse)

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

-- | Describes how the intent is fulfilled. For more information, see
-- PutIntent.
getIntentResponse_fulfillmentActivity :: Lens.Lens' GetIntentResponse (Prelude.Maybe FulfillmentActivity)
getIntentResponse_fulfillmentActivity :: Lens' GetIntentResponse (Maybe FulfillmentActivity)
getIntentResponse_fulfillmentActivity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe FulfillmentActivity
fulfillmentActivity :: Maybe FulfillmentActivity
$sel:fulfillmentActivity:GetIntentResponse' :: GetIntentResponse -> Maybe FulfillmentActivity
fulfillmentActivity} -> Maybe FulfillmentActivity
fulfillmentActivity) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe FulfillmentActivity
a -> GetIntentResponse
s {$sel:fulfillmentActivity:GetIntentResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = Maybe FulfillmentActivity
a} :: GetIntentResponse)

-- | 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.
getIntentResponse_inputContexts :: Lens.Lens' GetIntentResponse (Prelude.Maybe [InputContext])
getIntentResponse_inputContexts :: Lens' GetIntentResponse (Maybe [InputContext])
getIntentResponse_inputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe [InputContext]
inputContexts :: Maybe [InputContext]
$sel:inputContexts:GetIntentResponse' :: GetIntentResponse -> Maybe [InputContext]
inputContexts} -> Maybe [InputContext]
inputContexts) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe [InputContext]
a -> GetIntentResponse
s {$sel:inputContexts:GetIntentResponse' :: Maybe [InputContext]
inputContexts = Maybe [InputContext]
a} :: GetIntentResponse) 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, to connect to an Amazon Kendra index
-- with the @AMAZON.KendraSearchIntent@ intent.
getIntentResponse_kendraConfiguration :: Lens.Lens' GetIntentResponse (Prelude.Maybe KendraConfiguration)
getIntentResponse_kendraConfiguration :: Lens' GetIntentResponse (Maybe KendraConfiguration)
getIntentResponse_kendraConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe KendraConfiguration
kendraConfiguration :: Maybe KendraConfiguration
$sel:kendraConfiguration:GetIntentResponse' :: GetIntentResponse -> Maybe KendraConfiguration
kendraConfiguration} -> Maybe KendraConfiguration
kendraConfiguration) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe KendraConfiguration
a -> GetIntentResponse
s {$sel:kendraConfiguration:GetIntentResponse' :: Maybe KendraConfiguration
kendraConfiguration = Maybe KendraConfiguration
a} :: GetIntentResponse)

-- | The date that the intent was updated. When you create a resource, the
-- creation date and the last updated date are the same.
getIntentResponse_lastUpdatedDate :: Lens.Lens' GetIntentResponse (Prelude.Maybe Prelude.UTCTime)
getIntentResponse_lastUpdatedDate :: Lens' GetIntentResponse (Maybe UTCTime)
getIntentResponse_lastUpdatedDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe POSIX
lastUpdatedDate :: Maybe POSIX
$sel:lastUpdatedDate:GetIntentResponse' :: GetIntentResponse -> Maybe POSIX
lastUpdatedDate} -> Maybe POSIX
lastUpdatedDate) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe POSIX
a -> GetIntentResponse
s {$sel:lastUpdatedDate:GetIntentResponse' :: Maybe POSIX
lastUpdatedDate = Maybe POSIX
a} :: GetIntentResponse) 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.
getIntentResponse_name :: Lens.Lens' GetIntentResponse (Prelude.Maybe Prelude.Text)
getIntentResponse_name :: Lens' GetIntentResponse (Maybe Text)
getIntentResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIntentResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetIntentResponse' :: GetIntentResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetIntentResponse
s@GetIntentResponse' {} Maybe Text
a -> GetIntentResponse
s {$sel:name:GetIntentResponse' :: Maybe Text
name = Maybe Text
a} :: GetIntentResponse)

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

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

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

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

instance Prelude.NFData GetIntentResponse where
  rnf :: GetIntentResponse -> ()
rnf GetIntentResponse' {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:GetIntentResponse' :: GetIntentResponse -> Int
$sel:version:GetIntentResponse' :: GetIntentResponse -> Maybe Text
$sel:slots:GetIntentResponse' :: GetIntentResponse -> Maybe [Slot]
$sel:sampleUtterances:GetIntentResponse' :: GetIntentResponse -> Maybe [Text]
$sel:rejectionStatement:GetIntentResponse' :: GetIntentResponse -> Maybe Statement
$sel:parentIntentSignature:GetIntentResponse' :: GetIntentResponse -> Maybe Text
$sel:outputContexts:GetIntentResponse' :: GetIntentResponse -> Maybe [OutputContext]
$sel:name:GetIntentResponse' :: GetIntentResponse -> Maybe Text
$sel:lastUpdatedDate:GetIntentResponse' :: GetIntentResponse -> Maybe POSIX
$sel:kendraConfiguration:GetIntentResponse' :: GetIntentResponse -> Maybe KendraConfiguration
$sel:inputContexts:GetIntentResponse' :: GetIntentResponse -> Maybe [InputContext]
$sel:fulfillmentActivity:GetIntentResponse' :: GetIntentResponse -> Maybe FulfillmentActivity
$sel:followUpPrompt:GetIntentResponse' :: GetIntentResponse -> Maybe FollowUpPrompt
$sel:dialogCodeHook:GetIntentResponse' :: GetIntentResponse -> Maybe CodeHook
$sel:description:GetIntentResponse' :: GetIntentResponse -> Maybe Text
$sel:createdDate:GetIntentResponse' :: GetIntentResponse -> Maybe POSIX
$sel:confirmationPrompt:GetIntentResponse' :: GetIntentResponse -> Maybe Prompt
$sel:conclusionStatement:GetIntentResponse' :: GetIntentResponse -> Maybe Statement
$sel:checksum:GetIntentResponse' :: GetIntentResponse -> 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