{-# 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 #-}
module Amazonka.LexModels.PutIntent
(
PutIntent (..),
newPutIntent,
putIntent_checksum,
putIntent_conclusionStatement,
putIntent_confirmationPrompt,
putIntent_createVersion,
putIntent_description,
putIntent_dialogCodeHook,
putIntent_followUpPrompt,
putIntent_fulfillmentActivity,
putIntent_inputContexts,
putIntent_kendraConfiguration,
putIntent_outputContexts,
putIntent_parentIntentSignature,
putIntent_rejectionStatement,
putIntent_sampleUtterances,
putIntent_slots,
putIntent_name,
PutIntentResponse (..),
newPutIntentResponse,
putIntentResponse_checksum,
putIntentResponse_conclusionStatement,
putIntentResponse_confirmationPrompt,
putIntentResponse_createVersion,
putIntentResponse_createdDate,
putIntentResponse_description,
putIntentResponse_dialogCodeHook,
putIntentResponse_followUpPrompt,
putIntentResponse_fulfillmentActivity,
putIntentResponse_inputContexts,
putIntentResponse_kendraConfiguration,
putIntentResponse_lastUpdatedDate,
putIntentResponse_name,
putIntentResponse_outputContexts,
putIntentResponse_parentIntentSignature,
putIntentResponse_rejectionStatement,
putIntentResponse_sampleUtterances,
putIntentResponse_slots,
putIntentResponse_version,
putIntentResponse_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
data PutIntent = PutIntent'
{
PutIntent -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
PutIntent -> Maybe Statement
conclusionStatement :: Prelude.Maybe Statement,
PutIntent -> Maybe Prompt
confirmationPrompt :: Prelude.Maybe Prompt,
PutIntent -> Maybe Bool
createVersion :: Prelude.Maybe Prelude.Bool,
PutIntent -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
PutIntent -> Maybe CodeHook
dialogCodeHook :: Prelude.Maybe CodeHook,
PutIntent -> Maybe FollowUpPrompt
followUpPrompt :: Prelude.Maybe FollowUpPrompt,
PutIntent -> Maybe FulfillmentActivity
fulfillmentActivity :: Prelude.Maybe FulfillmentActivity,
PutIntent -> Maybe [InputContext]
inputContexts :: Prelude.Maybe [InputContext],
PutIntent -> Maybe KendraConfiguration
kendraConfiguration :: Prelude.Maybe KendraConfiguration,
PutIntent -> Maybe [OutputContext]
outputContexts :: Prelude.Maybe [OutputContext],
PutIntent -> Maybe Text
parentIntentSignature :: Prelude.Maybe Prelude.Text,
PutIntent -> Maybe Statement
rejectionStatement :: Prelude.Maybe Statement,
PutIntent -> Maybe [Text]
sampleUtterances :: Prelude.Maybe [Prelude.Text],
PutIntent -> Maybe [Slot]
slots :: Prelude.Maybe [Slot],
PutIntent -> Text
name :: Prelude.Text
}
deriving (PutIntent -> PutIntent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutIntent -> PutIntent -> Bool
$c/= :: PutIntent -> PutIntent -> Bool
== :: PutIntent -> PutIntent -> Bool
$c== :: PutIntent -> PutIntent -> Bool
Prelude.Eq, ReadPrec [PutIntent]
ReadPrec PutIntent
Int -> ReadS PutIntent
ReadS [PutIntent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutIntent]
$creadListPrec :: ReadPrec [PutIntent]
readPrec :: ReadPrec PutIntent
$creadPrec :: ReadPrec PutIntent
readList :: ReadS [PutIntent]
$creadList :: ReadS [PutIntent]
readsPrec :: Int -> ReadS PutIntent
$creadsPrec :: Int -> ReadS PutIntent
Prelude.Read, Int -> PutIntent -> ShowS
[PutIntent] -> ShowS
PutIntent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutIntent] -> ShowS
$cshowList :: [PutIntent] -> ShowS
show :: PutIntent -> String
$cshow :: PutIntent -> String
showsPrec :: Int -> PutIntent -> ShowS
$cshowsPrec :: Int -> PutIntent -> ShowS
Prelude.Show, forall x. Rep PutIntent x -> PutIntent
forall x. PutIntent -> Rep PutIntent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutIntent x -> PutIntent
$cfrom :: forall x. PutIntent -> Rep PutIntent x
Prelude.Generic)
newPutIntent ::
Prelude.Text ->
PutIntent
newPutIntent :: Text -> PutIntent
newPutIntent Text
pName_ =
PutIntent'
{ $sel:checksum:PutIntent' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
$sel:conclusionStatement:PutIntent' :: Maybe Statement
conclusionStatement = forall a. Maybe a
Prelude.Nothing,
$sel:confirmationPrompt:PutIntent' :: Maybe Prompt
confirmationPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:createVersion:PutIntent' :: Maybe Bool
createVersion = forall a. Maybe a
Prelude.Nothing,
$sel:description:PutIntent' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:dialogCodeHook:PutIntent' :: Maybe CodeHook
dialogCodeHook = forall a. Maybe a
Prelude.Nothing,
$sel:followUpPrompt:PutIntent' :: Maybe FollowUpPrompt
followUpPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:fulfillmentActivity:PutIntent' :: Maybe FulfillmentActivity
fulfillmentActivity = forall a. Maybe a
Prelude.Nothing,
$sel:inputContexts:PutIntent' :: Maybe [InputContext]
inputContexts = forall a. Maybe a
Prelude.Nothing,
$sel:kendraConfiguration:PutIntent' :: Maybe KendraConfiguration
kendraConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:outputContexts:PutIntent' :: Maybe [OutputContext]
outputContexts = forall a. Maybe a
Prelude.Nothing,
$sel:parentIntentSignature:PutIntent' :: Maybe Text
parentIntentSignature = forall a. Maybe a
Prelude.Nothing,
$sel:rejectionStatement:PutIntent' :: Maybe Statement
rejectionStatement = forall a. Maybe a
Prelude.Nothing,
$sel:sampleUtterances:PutIntent' :: Maybe [Text]
sampleUtterances = forall a. Maybe a
Prelude.Nothing,
$sel:slots:PutIntent' :: Maybe [Slot]
slots = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutIntent' :: Text
name = Text
pName_
}
putIntent_checksum :: Lens.Lens' PutIntent (Prelude.Maybe Prelude.Text)
putIntent_checksum :: Lens' PutIntent (Maybe Text)
putIntent_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Text
checksum :: Maybe Text
$sel:checksum:PutIntent' :: PutIntent -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: PutIntent
s@PutIntent' {} Maybe Text
a -> PutIntent
s {$sel:checksum:PutIntent' :: Maybe Text
checksum = Maybe Text
a} :: PutIntent)
putIntent_conclusionStatement :: Lens.Lens' PutIntent (Prelude.Maybe Statement)
putIntent_conclusionStatement :: Lens' PutIntent (Maybe Statement)
putIntent_conclusionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Statement
conclusionStatement :: Maybe Statement
$sel:conclusionStatement:PutIntent' :: PutIntent -> Maybe Statement
conclusionStatement} -> Maybe Statement
conclusionStatement) (\s :: PutIntent
s@PutIntent' {} Maybe Statement
a -> PutIntent
s {$sel:conclusionStatement:PutIntent' :: Maybe Statement
conclusionStatement = Maybe Statement
a} :: PutIntent)
putIntent_confirmationPrompt :: Lens.Lens' PutIntent (Prelude.Maybe Prompt)
putIntent_confirmationPrompt :: Lens' PutIntent (Maybe Prompt)
putIntent_confirmationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Prompt
confirmationPrompt :: Maybe Prompt
$sel:confirmationPrompt:PutIntent' :: PutIntent -> Maybe Prompt
confirmationPrompt} -> Maybe Prompt
confirmationPrompt) (\s :: PutIntent
s@PutIntent' {} Maybe Prompt
a -> PutIntent
s {$sel:confirmationPrompt:PutIntent' :: Maybe Prompt
confirmationPrompt = Maybe Prompt
a} :: PutIntent)
putIntent_createVersion :: Lens.Lens' PutIntent (Prelude.Maybe Prelude.Bool)
putIntent_createVersion :: Lens' PutIntent (Maybe Bool)
putIntent_createVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Bool
createVersion :: Maybe Bool
$sel:createVersion:PutIntent' :: PutIntent -> Maybe Bool
createVersion} -> Maybe Bool
createVersion) (\s :: PutIntent
s@PutIntent' {} Maybe Bool
a -> PutIntent
s {$sel:createVersion:PutIntent' :: Maybe Bool
createVersion = Maybe Bool
a} :: PutIntent)
putIntent_description :: Lens.Lens' PutIntent (Prelude.Maybe Prelude.Text)
putIntent_description :: Lens' PutIntent (Maybe Text)
putIntent_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Text
description :: Maybe Text
$sel:description:PutIntent' :: PutIntent -> Maybe Text
description} -> Maybe Text
description) (\s :: PutIntent
s@PutIntent' {} Maybe Text
a -> PutIntent
s {$sel:description:PutIntent' :: Maybe Text
description = Maybe Text
a} :: PutIntent)
putIntent_dialogCodeHook :: Lens.Lens' PutIntent (Prelude.Maybe CodeHook)
putIntent_dialogCodeHook :: Lens' PutIntent (Maybe CodeHook)
putIntent_dialogCodeHook = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe CodeHook
dialogCodeHook :: Maybe CodeHook
$sel:dialogCodeHook:PutIntent' :: PutIntent -> Maybe CodeHook
dialogCodeHook} -> Maybe CodeHook
dialogCodeHook) (\s :: PutIntent
s@PutIntent' {} Maybe CodeHook
a -> PutIntent
s {$sel:dialogCodeHook:PutIntent' :: Maybe CodeHook
dialogCodeHook = Maybe CodeHook
a} :: PutIntent)
putIntent_followUpPrompt :: Lens.Lens' PutIntent (Prelude.Maybe FollowUpPrompt)
putIntent_followUpPrompt :: Lens' PutIntent (Maybe FollowUpPrompt)
putIntent_followUpPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe FollowUpPrompt
followUpPrompt :: Maybe FollowUpPrompt
$sel:followUpPrompt:PutIntent' :: PutIntent -> Maybe FollowUpPrompt
followUpPrompt} -> Maybe FollowUpPrompt
followUpPrompt) (\s :: PutIntent
s@PutIntent' {} Maybe FollowUpPrompt
a -> PutIntent
s {$sel:followUpPrompt:PutIntent' :: Maybe FollowUpPrompt
followUpPrompt = Maybe FollowUpPrompt
a} :: PutIntent)
putIntent_fulfillmentActivity :: Lens.Lens' PutIntent (Prelude.Maybe FulfillmentActivity)
putIntent_fulfillmentActivity :: Lens' PutIntent (Maybe FulfillmentActivity)
putIntent_fulfillmentActivity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe FulfillmentActivity
fulfillmentActivity :: Maybe FulfillmentActivity
$sel:fulfillmentActivity:PutIntent' :: PutIntent -> Maybe FulfillmentActivity
fulfillmentActivity} -> Maybe FulfillmentActivity
fulfillmentActivity) (\s :: PutIntent
s@PutIntent' {} Maybe FulfillmentActivity
a -> PutIntent
s {$sel:fulfillmentActivity:PutIntent' :: Maybe FulfillmentActivity
fulfillmentActivity = Maybe FulfillmentActivity
a} :: PutIntent)
putIntent_inputContexts :: Lens.Lens' PutIntent (Prelude.Maybe [InputContext])
putIntent_inputContexts :: Lens' PutIntent (Maybe [InputContext])
putIntent_inputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe [InputContext]
inputContexts :: Maybe [InputContext]
$sel:inputContexts:PutIntent' :: PutIntent -> Maybe [InputContext]
inputContexts} -> Maybe [InputContext]
inputContexts) (\s :: PutIntent
s@PutIntent' {} Maybe [InputContext]
a -> PutIntent
s {$sel:inputContexts:PutIntent' :: Maybe [InputContext]
inputContexts = Maybe [InputContext]
a} :: PutIntent) 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
putIntent_kendraConfiguration :: Lens.Lens' PutIntent (Prelude.Maybe KendraConfiguration)
putIntent_kendraConfiguration :: Lens' PutIntent (Maybe KendraConfiguration)
putIntent_kendraConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe KendraConfiguration
kendraConfiguration :: Maybe KendraConfiguration
$sel:kendraConfiguration:PutIntent' :: PutIntent -> Maybe KendraConfiguration
kendraConfiguration} -> Maybe KendraConfiguration
kendraConfiguration) (\s :: PutIntent
s@PutIntent' {} Maybe KendraConfiguration
a -> PutIntent
s {$sel:kendraConfiguration:PutIntent' :: Maybe KendraConfiguration
kendraConfiguration = Maybe KendraConfiguration
a} :: PutIntent)
putIntent_outputContexts :: Lens.Lens' PutIntent (Prelude.Maybe [OutputContext])
putIntent_outputContexts :: Lens' PutIntent (Maybe [OutputContext])
putIntent_outputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe [OutputContext]
outputContexts :: Maybe [OutputContext]
$sel:outputContexts:PutIntent' :: PutIntent -> Maybe [OutputContext]
outputContexts} -> Maybe [OutputContext]
outputContexts) (\s :: PutIntent
s@PutIntent' {} Maybe [OutputContext]
a -> PutIntent
s {$sel:outputContexts:PutIntent' :: Maybe [OutputContext]
outputContexts = Maybe [OutputContext]
a} :: PutIntent) 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
putIntent_parentIntentSignature :: Lens.Lens' PutIntent (Prelude.Maybe Prelude.Text)
putIntent_parentIntentSignature :: Lens' PutIntent (Maybe Text)
putIntent_parentIntentSignature = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Text
parentIntentSignature :: Maybe Text
$sel:parentIntentSignature:PutIntent' :: PutIntent -> Maybe Text
parentIntentSignature} -> Maybe Text
parentIntentSignature) (\s :: PutIntent
s@PutIntent' {} Maybe Text
a -> PutIntent
s {$sel:parentIntentSignature:PutIntent' :: Maybe Text
parentIntentSignature = Maybe Text
a} :: PutIntent)
putIntent_rejectionStatement :: Lens.Lens' PutIntent (Prelude.Maybe Statement)
putIntent_rejectionStatement :: Lens' PutIntent (Maybe Statement)
putIntent_rejectionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe Statement
rejectionStatement :: Maybe Statement
$sel:rejectionStatement:PutIntent' :: PutIntent -> Maybe Statement
rejectionStatement} -> Maybe Statement
rejectionStatement) (\s :: PutIntent
s@PutIntent' {} Maybe Statement
a -> PutIntent
s {$sel:rejectionStatement:PutIntent' :: Maybe Statement
rejectionStatement = Maybe Statement
a} :: PutIntent)
putIntent_sampleUtterances :: Lens.Lens' PutIntent (Prelude.Maybe [Prelude.Text])
putIntent_sampleUtterances :: Lens' PutIntent (Maybe [Text])
putIntent_sampleUtterances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe [Text]
sampleUtterances :: Maybe [Text]
$sel:sampleUtterances:PutIntent' :: PutIntent -> Maybe [Text]
sampleUtterances} -> Maybe [Text]
sampleUtterances) (\s :: PutIntent
s@PutIntent' {} Maybe [Text]
a -> PutIntent
s {$sel:sampleUtterances:PutIntent' :: Maybe [Text]
sampleUtterances = Maybe [Text]
a} :: PutIntent) 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
putIntent_slots :: Lens.Lens' PutIntent (Prelude.Maybe [Slot])
putIntent_slots :: Lens' PutIntent (Maybe [Slot])
putIntent_slots = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Maybe [Slot]
slots :: Maybe [Slot]
$sel:slots:PutIntent' :: PutIntent -> Maybe [Slot]
slots} -> Maybe [Slot]
slots) (\s :: PutIntent
s@PutIntent' {} Maybe [Slot]
a -> PutIntent
s {$sel:slots:PutIntent' :: Maybe [Slot]
slots = Maybe [Slot]
a} :: PutIntent) 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
putIntent_name :: Lens.Lens' PutIntent Prelude.Text
putIntent_name :: Lens' PutIntent Text
putIntent_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntent' {Text
name :: Text
$sel:name:PutIntent' :: PutIntent -> Text
name} -> Text
name) (\s :: PutIntent
s@PutIntent' {} Text
a -> PutIntent
s {$sel:name:PutIntent' :: Text
name = Text
a} :: PutIntent)
instance Core.AWSRequest PutIntent where
type AWSResponse PutIntent = PutIntentResponse
request :: (Service -> Service) -> PutIntent -> Request PutIntent
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutIntent
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutIntent)))
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 Bool
-> 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
-> PutIntentResponse
PutIntentResponse'
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
"createVersion")
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 PutIntent where
hashWithSalt :: Int -> PutIntent -> Int
hashWithSalt Int
_salt PutIntent' {Maybe Bool
Maybe [Text]
Maybe [InputContext]
Maybe [OutputContext]
Maybe [Slot]
Maybe Text
Maybe CodeHook
Maybe FulfillmentActivity
Maybe KendraConfiguration
Maybe Prompt
Maybe Statement
Maybe FollowUpPrompt
Text
name :: Text
slots :: Maybe [Slot]
sampleUtterances :: Maybe [Text]
rejectionStatement :: Maybe Statement
parentIntentSignature :: Maybe Text
outputContexts :: Maybe [OutputContext]
kendraConfiguration :: Maybe KendraConfiguration
inputContexts :: Maybe [InputContext]
fulfillmentActivity :: Maybe FulfillmentActivity
followUpPrompt :: Maybe FollowUpPrompt
dialogCodeHook :: Maybe CodeHook
description :: Maybe Text
createVersion :: Maybe Bool
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:name:PutIntent' :: PutIntent -> Text
$sel:slots:PutIntent' :: PutIntent -> Maybe [Slot]
$sel:sampleUtterances:PutIntent' :: PutIntent -> Maybe [Text]
$sel:rejectionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:parentIntentSignature:PutIntent' :: PutIntent -> Maybe Text
$sel:outputContexts:PutIntent' :: PutIntent -> Maybe [OutputContext]
$sel:kendraConfiguration:PutIntent' :: PutIntent -> Maybe KendraConfiguration
$sel:inputContexts:PutIntent' :: PutIntent -> Maybe [InputContext]
$sel:fulfillmentActivity:PutIntent' :: PutIntent -> Maybe FulfillmentActivity
$sel:followUpPrompt:PutIntent' :: PutIntent -> Maybe FollowUpPrompt
$sel:dialogCodeHook:PutIntent' :: PutIntent -> Maybe CodeHook
$sel:description:PutIntent' :: PutIntent -> Maybe Text
$sel:createVersion:PutIntent' :: PutIntent -> Maybe Bool
$sel:confirmationPrompt:PutIntent' :: PutIntent -> Maybe Prompt
$sel:conclusionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:checksum:PutIntent' :: PutIntent -> 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` Maybe Statement
conclusionStatement
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Prompt
confirmationPrompt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
createVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CodeHook
dialogCodeHook
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FollowUpPrompt
followUpPrompt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FulfillmentActivity
fulfillmentActivity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [InputContext]
inputContexts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe KendraConfiguration
kendraConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [OutputContext]
outputContexts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
parentIntentSignature
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Statement
rejectionStatement
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
sampleUtterances
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Slot]
slots
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData PutIntent where
rnf :: PutIntent -> ()
rnf PutIntent' {Maybe Bool
Maybe [Text]
Maybe [InputContext]
Maybe [OutputContext]
Maybe [Slot]
Maybe Text
Maybe CodeHook
Maybe FulfillmentActivity
Maybe KendraConfiguration
Maybe Prompt
Maybe Statement
Maybe FollowUpPrompt
Text
name :: Text
slots :: Maybe [Slot]
sampleUtterances :: Maybe [Text]
rejectionStatement :: Maybe Statement
parentIntentSignature :: Maybe Text
outputContexts :: Maybe [OutputContext]
kendraConfiguration :: Maybe KendraConfiguration
inputContexts :: Maybe [InputContext]
fulfillmentActivity :: Maybe FulfillmentActivity
followUpPrompt :: Maybe FollowUpPrompt
dialogCodeHook :: Maybe CodeHook
description :: Maybe Text
createVersion :: Maybe Bool
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:name:PutIntent' :: PutIntent -> Text
$sel:slots:PutIntent' :: PutIntent -> Maybe [Slot]
$sel:sampleUtterances:PutIntent' :: PutIntent -> Maybe [Text]
$sel:rejectionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:parentIntentSignature:PutIntent' :: PutIntent -> Maybe Text
$sel:outputContexts:PutIntent' :: PutIntent -> Maybe [OutputContext]
$sel:kendraConfiguration:PutIntent' :: PutIntent -> Maybe KendraConfiguration
$sel:inputContexts:PutIntent' :: PutIntent -> Maybe [InputContext]
$sel:fulfillmentActivity:PutIntent' :: PutIntent -> Maybe FulfillmentActivity
$sel:followUpPrompt:PutIntent' :: PutIntent -> Maybe FollowUpPrompt
$sel:dialogCodeHook:PutIntent' :: PutIntent -> Maybe CodeHook
$sel:description:PutIntent' :: PutIntent -> Maybe Text
$sel:createVersion:PutIntent' :: PutIntent -> Maybe Bool
$sel:confirmationPrompt:PutIntent' :: PutIntent -> Maybe Prompt
$sel:conclusionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:checksum:PutIntent' :: PutIntent -> 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 Bool
createVersion
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 [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 Text
name
instance Data.ToHeaders PutIntent where
toHeaders :: PutIntent -> 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 PutIntent where
toJSON :: PutIntent -> Value
toJSON PutIntent' {Maybe Bool
Maybe [Text]
Maybe [InputContext]
Maybe [OutputContext]
Maybe [Slot]
Maybe Text
Maybe CodeHook
Maybe FulfillmentActivity
Maybe KendraConfiguration
Maybe Prompt
Maybe Statement
Maybe FollowUpPrompt
Text
name :: Text
slots :: Maybe [Slot]
sampleUtterances :: Maybe [Text]
rejectionStatement :: Maybe Statement
parentIntentSignature :: Maybe Text
outputContexts :: Maybe [OutputContext]
kendraConfiguration :: Maybe KendraConfiguration
inputContexts :: Maybe [InputContext]
fulfillmentActivity :: Maybe FulfillmentActivity
followUpPrompt :: Maybe FollowUpPrompt
dialogCodeHook :: Maybe CodeHook
description :: Maybe Text
createVersion :: Maybe Bool
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:name:PutIntent' :: PutIntent -> Text
$sel:slots:PutIntent' :: PutIntent -> Maybe [Slot]
$sel:sampleUtterances:PutIntent' :: PutIntent -> Maybe [Text]
$sel:rejectionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:parentIntentSignature:PutIntent' :: PutIntent -> Maybe Text
$sel:outputContexts:PutIntent' :: PutIntent -> Maybe [OutputContext]
$sel:kendraConfiguration:PutIntent' :: PutIntent -> Maybe KendraConfiguration
$sel:inputContexts:PutIntent' :: PutIntent -> Maybe [InputContext]
$sel:fulfillmentActivity:PutIntent' :: PutIntent -> Maybe FulfillmentActivity
$sel:followUpPrompt:PutIntent' :: PutIntent -> Maybe FollowUpPrompt
$sel:dialogCodeHook:PutIntent' :: PutIntent -> Maybe CodeHook
$sel:description:PutIntent' :: PutIntent -> Maybe Text
$sel:createVersion:PutIntent' :: PutIntent -> Maybe Bool
$sel:confirmationPrompt:PutIntent' :: PutIntent -> Maybe Prompt
$sel:conclusionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:checksum:PutIntent' :: PutIntent -> 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,
(Key
"conclusionStatement" 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 Statement
conclusionStatement,
(Key
"confirmationPrompt" 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 Prompt
confirmationPrompt,
(Key
"createVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
createVersion,
(Key
"description" 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
description,
(Key
"dialogCodeHook" 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 CodeHook
dialogCodeHook,
(Key
"followUpPrompt" 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 FollowUpPrompt
followUpPrompt,
(Key
"fulfillmentActivity" 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 FulfillmentActivity
fulfillmentActivity,
(Key
"inputContexts" 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 [InputContext]
inputContexts,
(Key
"kendraConfiguration" 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 KendraConfiguration
kendraConfiguration,
(Key
"outputContexts" 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 [OutputContext]
outputContexts,
(Key
"parentIntentSignature" 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
parentIntentSignature,
(Key
"rejectionStatement" 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 Statement
rejectionStatement,
(Key
"sampleUtterances" 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]
sampleUtterances,
(Key
"slots" 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 [Slot]
slots
]
)
instance Data.ToPath PutIntent where
toPath :: PutIntent -> ByteString
toPath PutIntent' {Maybe Bool
Maybe [Text]
Maybe [InputContext]
Maybe [OutputContext]
Maybe [Slot]
Maybe Text
Maybe CodeHook
Maybe FulfillmentActivity
Maybe KendraConfiguration
Maybe Prompt
Maybe Statement
Maybe FollowUpPrompt
Text
name :: Text
slots :: Maybe [Slot]
sampleUtterances :: Maybe [Text]
rejectionStatement :: Maybe Statement
parentIntentSignature :: Maybe Text
outputContexts :: Maybe [OutputContext]
kendraConfiguration :: Maybe KendraConfiguration
inputContexts :: Maybe [InputContext]
fulfillmentActivity :: Maybe FulfillmentActivity
followUpPrompt :: Maybe FollowUpPrompt
dialogCodeHook :: Maybe CodeHook
description :: Maybe Text
createVersion :: Maybe Bool
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:name:PutIntent' :: PutIntent -> Text
$sel:slots:PutIntent' :: PutIntent -> Maybe [Slot]
$sel:sampleUtterances:PutIntent' :: PutIntent -> Maybe [Text]
$sel:rejectionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:parentIntentSignature:PutIntent' :: PutIntent -> Maybe Text
$sel:outputContexts:PutIntent' :: PutIntent -> Maybe [OutputContext]
$sel:kendraConfiguration:PutIntent' :: PutIntent -> Maybe KendraConfiguration
$sel:inputContexts:PutIntent' :: PutIntent -> Maybe [InputContext]
$sel:fulfillmentActivity:PutIntent' :: PutIntent -> Maybe FulfillmentActivity
$sel:followUpPrompt:PutIntent' :: PutIntent -> Maybe FollowUpPrompt
$sel:dialogCodeHook:PutIntent' :: PutIntent -> Maybe CodeHook
$sel:description:PutIntent' :: PutIntent -> Maybe Text
$sel:createVersion:PutIntent' :: PutIntent -> Maybe Bool
$sel:confirmationPrompt:PutIntent' :: PutIntent -> Maybe Prompt
$sel:conclusionStatement:PutIntent' :: PutIntent -> Maybe Statement
$sel:checksum:PutIntent' :: PutIntent -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/intents/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
name, ByteString
"/versions/$LATEST"]
instance Data.ToQuery PutIntent where
toQuery :: PutIntent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutIntentResponse = PutIntentResponse'
{
PutIntentResponse -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
PutIntentResponse -> Maybe Statement
conclusionStatement :: Prelude.Maybe Statement,
PutIntentResponse -> Maybe Prompt
confirmationPrompt :: Prelude.Maybe Prompt,
PutIntentResponse -> Maybe Bool
createVersion :: Prelude.Maybe Prelude.Bool,
PutIntentResponse -> Maybe POSIX
createdDate :: Prelude.Maybe Data.POSIX,
PutIntentResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
PutIntentResponse -> Maybe CodeHook
dialogCodeHook :: Prelude.Maybe CodeHook,
PutIntentResponse -> Maybe FollowUpPrompt
followUpPrompt :: Prelude.Maybe FollowUpPrompt,
PutIntentResponse -> Maybe FulfillmentActivity
fulfillmentActivity :: Prelude.Maybe FulfillmentActivity,
PutIntentResponse -> Maybe [InputContext]
inputContexts :: Prelude.Maybe [InputContext],
PutIntentResponse -> Maybe KendraConfiguration
kendraConfiguration :: Prelude.Maybe KendraConfiguration,
PutIntentResponse -> Maybe POSIX
lastUpdatedDate :: Prelude.Maybe Data.POSIX,
PutIntentResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
PutIntentResponse -> Maybe [OutputContext]
outputContexts :: Prelude.Maybe [OutputContext],
PutIntentResponse -> Maybe Text
parentIntentSignature :: Prelude.Maybe Prelude.Text,
PutIntentResponse -> Maybe Statement
rejectionStatement :: Prelude.Maybe Statement,
PutIntentResponse -> Maybe [Text]
sampleUtterances :: Prelude.Maybe [Prelude.Text],
PutIntentResponse -> Maybe [Slot]
slots :: Prelude.Maybe [Slot],
PutIntentResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
PutIntentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutIntentResponse -> PutIntentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutIntentResponse -> PutIntentResponse -> Bool
$c/= :: PutIntentResponse -> PutIntentResponse -> Bool
== :: PutIntentResponse -> PutIntentResponse -> Bool
$c== :: PutIntentResponse -> PutIntentResponse -> Bool
Prelude.Eq, ReadPrec [PutIntentResponse]
ReadPrec PutIntentResponse
Int -> ReadS PutIntentResponse
ReadS [PutIntentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutIntentResponse]
$creadListPrec :: ReadPrec [PutIntentResponse]
readPrec :: ReadPrec PutIntentResponse
$creadPrec :: ReadPrec PutIntentResponse
readList :: ReadS [PutIntentResponse]
$creadList :: ReadS [PutIntentResponse]
readsPrec :: Int -> ReadS PutIntentResponse
$creadsPrec :: Int -> ReadS PutIntentResponse
Prelude.Read, Int -> PutIntentResponse -> ShowS
[PutIntentResponse] -> ShowS
PutIntentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutIntentResponse] -> ShowS
$cshowList :: [PutIntentResponse] -> ShowS
show :: PutIntentResponse -> String
$cshow :: PutIntentResponse -> String
showsPrec :: Int -> PutIntentResponse -> ShowS
$cshowsPrec :: Int -> PutIntentResponse -> ShowS
Prelude.Show, forall x. Rep PutIntentResponse x -> PutIntentResponse
forall x. PutIntentResponse -> Rep PutIntentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutIntentResponse x -> PutIntentResponse
$cfrom :: forall x. PutIntentResponse -> Rep PutIntentResponse x
Prelude.Generic)
newPutIntentResponse ::
Prelude.Int ->
PutIntentResponse
newPutIntentResponse :: Int -> PutIntentResponse
newPutIntentResponse Int
pHttpStatus_ =
PutIntentResponse'
{ $sel:checksum:PutIntentResponse' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
$sel:conclusionStatement:PutIntentResponse' :: Maybe Statement
conclusionStatement = forall a. Maybe a
Prelude.Nothing,
$sel:confirmationPrompt:PutIntentResponse' :: Maybe Prompt
confirmationPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:createVersion:PutIntentResponse' :: Maybe Bool
createVersion = forall a. Maybe a
Prelude.Nothing,
$sel:createdDate:PutIntentResponse' :: Maybe POSIX
createdDate = forall a. Maybe a
Prelude.Nothing,
$sel:description:PutIntentResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:dialogCodeHook:PutIntentResponse' :: Maybe CodeHook
dialogCodeHook = forall a. Maybe a
Prelude.Nothing,
$sel:followUpPrompt:PutIntentResponse' :: Maybe FollowUpPrompt
followUpPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:fulfillmentActivity:PutIntentResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = forall a. Maybe a
Prelude.Nothing,
$sel:inputContexts:PutIntentResponse' :: Maybe [InputContext]
inputContexts = forall a. Maybe a
Prelude.Nothing,
$sel:kendraConfiguration:PutIntentResponse' :: Maybe KendraConfiguration
kendraConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedDate:PutIntentResponse' :: Maybe POSIX
lastUpdatedDate = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutIntentResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:outputContexts:PutIntentResponse' :: Maybe [OutputContext]
outputContexts = forall a. Maybe a
Prelude.Nothing,
$sel:parentIntentSignature:PutIntentResponse' :: Maybe Text
parentIntentSignature = forall a. Maybe a
Prelude.Nothing,
$sel:rejectionStatement:PutIntentResponse' :: Maybe Statement
rejectionStatement = forall a. Maybe a
Prelude.Nothing,
$sel:sampleUtterances:PutIntentResponse' :: Maybe [Text]
sampleUtterances = forall a. Maybe a
Prelude.Nothing,
$sel:slots:PutIntentResponse' :: Maybe [Slot]
slots = forall a. Maybe a
Prelude.Nothing,
$sel:version:PutIntentResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutIntentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putIntentResponse_checksum :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Text)
putIntentResponse_checksum :: Lens' PutIntentResponse (Maybe Text)
putIntentResponse_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Text
checksum :: Maybe Text
$sel:checksum:PutIntentResponse' :: PutIntentResponse -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Text
a -> PutIntentResponse
s {$sel:checksum:PutIntentResponse' :: Maybe Text
checksum = Maybe Text
a} :: PutIntentResponse)
putIntentResponse_conclusionStatement :: Lens.Lens' PutIntentResponse (Prelude.Maybe Statement)
putIntentResponse_conclusionStatement :: Lens' PutIntentResponse (Maybe Statement)
putIntentResponse_conclusionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Statement
conclusionStatement :: Maybe Statement
$sel:conclusionStatement:PutIntentResponse' :: PutIntentResponse -> Maybe Statement
conclusionStatement} -> Maybe Statement
conclusionStatement) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Statement
a -> PutIntentResponse
s {$sel:conclusionStatement:PutIntentResponse' :: Maybe Statement
conclusionStatement = Maybe Statement
a} :: PutIntentResponse)
putIntentResponse_confirmationPrompt :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prompt)
putIntentResponse_confirmationPrompt :: Lens' PutIntentResponse (Maybe Prompt)
putIntentResponse_confirmationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Prompt
confirmationPrompt :: Maybe Prompt
$sel:confirmationPrompt:PutIntentResponse' :: PutIntentResponse -> Maybe Prompt
confirmationPrompt} -> Maybe Prompt
confirmationPrompt) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Prompt
a -> PutIntentResponse
s {$sel:confirmationPrompt:PutIntentResponse' :: Maybe Prompt
confirmationPrompt = Maybe Prompt
a} :: PutIntentResponse)
putIntentResponse_createVersion :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Bool)
putIntentResponse_createVersion :: Lens' PutIntentResponse (Maybe Bool)
putIntentResponse_createVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Bool
createVersion :: Maybe Bool
$sel:createVersion:PutIntentResponse' :: PutIntentResponse -> Maybe Bool
createVersion} -> Maybe Bool
createVersion) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Bool
a -> PutIntentResponse
s {$sel:createVersion:PutIntentResponse' :: Maybe Bool
createVersion = Maybe Bool
a} :: PutIntentResponse)
putIntentResponse_createdDate :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.UTCTime)
putIntentResponse_createdDate :: Lens' PutIntentResponse (Maybe UTCTime)
putIntentResponse_createdDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe POSIX
createdDate :: Maybe POSIX
$sel:createdDate:PutIntentResponse' :: PutIntentResponse -> Maybe POSIX
createdDate} -> Maybe POSIX
createdDate) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe POSIX
a -> PutIntentResponse
s {$sel:createdDate:PutIntentResponse' :: Maybe POSIX
createdDate = Maybe POSIX
a} :: PutIntentResponse) 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
putIntentResponse_description :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Text)
putIntentResponse_description :: Lens' PutIntentResponse (Maybe Text)
putIntentResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Text
description :: Maybe Text
$sel:description:PutIntentResponse' :: PutIntentResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Text
a -> PutIntentResponse
s {$sel:description:PutIntentResponse' :: Maybe Text
description = Maybe Text
a} :: PutIntentResponse)
putIntentResponse_dialogCodeHook :: Lens.Lens' PutIntentResponse (Prelude.Maybe CodeHook)
putIntentResponse_dialogCodeHook :: Lens' PutIntentResponse (Maybe CodeHook)
putIntentResponse_dialogCodeHook = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe CodeHook
dialogCodeHook :: Maybe CodeHook
$sel:dialogCodeHook:PutIntentResponse' :: PutIntentResponse -> Maybe CodeHook
dialogCodeHook} -> Maybe CodeHook
dialogCodeHook) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe CodeHook
a -> PutIntentResponse
s {$sel:dialogCodeHook:PutIntentResponse' :: Maybe CodeHook
dialogCodeHook = Maybe CodeHook
a} :: PutIntentResponse)
putIntentResponse_followUpPrompt :: Lens.Lens' PutIntentResponse (Prelude.Maybe FollowUpPrompt)
putIntentResponse_followUpPrompt :: Lens' PutIntentResponse (Maybe FollowUpPrompt)
putIntentResponse_followUpPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe FollowUpPrompt
followUpPrompt :: Maybe FollowUpPrompt
$sel:followUpPrompt:PutIntentResponse' :: PutIntentResponse -> Maybe FollowUpPrompt
followUpPrompt} -> Maybe FollowUpPrompt
followUpPrompt) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe FollowUpPrompt
a -> PutIntentResponse
s {$sel:followUpPrompt:PutIntentResponse' :: Maybe FollowUpPrompt
followUpPrompt = Maybe FollowUpPrompt
a} :: PutIntentResponse)
putIntentResponse_fulfillmentActivity :: Lens.Lens' PutIntentResponse (Prelude.Maybe FulfillmentActivity)
putIntentResponse_fulfillmentActivity :: Lens' PutIntentResponse (Maybe FulfillmentActivity)
putIntentResponse_fulfillmentActivity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe FulfillmentActivity
fulfillmentActivity :: Maybe FulfillmentActivity
$sel:fulfillmentActivity:PutIntentResponse' :: PutIntentResponse -> Maybe FulfillmentActivity
fulfillmentActivity} -> Maybe FulfillmentActivity
fulfillmentActivity) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe FulfillmentActivity
a -> PutIntentResponse
s {$sel:fulfillmentActivity:PutIntentResponse' :: Maybe FulfillmentActivity
fulfillmentActivity = Maybe FulfillmentActivity
a} :: PutIntentResponse)
putIntentResponse_inputContexts :: Lens.Lens' PutIntentResponse (Prelude.Maybe [InputContext])
putIntentResponse_inputContexts :: Lens' PutIntentResponse (Maybe [InputContext])
putIntentResponse_inputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe [InputContext]
inputContexts :: Maybe [InputContext]
$sel:inputContexts:PutIntentResponse' :: PutIntentResponse -> Maybe [InputContext]
inputContexts} -> Maybe [InputContext]
inputContexts) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe [InputContext]
a -> PutIntentResponse
s {$sel:inputContexts:PutIntentResponse' :: Maybe [InputContext]
inputContexts = Maybe [InputContext]
a} :: PutIntentResponse) 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
putIntentResponse_kendraConfiguration :: Lens.Lens' PutIntentResponse (Prelude.Maybe KendraConfiguration)
putIntentResponse_kendraConfiguration :: Lens' PutIntentResponse (Maybe KendraConfiguration)
putIntentResponse_kendraConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe KendraConfiguration
kendraConfiguration :: Maybe KendraConfiguration
$sel:kendraConfiguration:PutIntentResponse' :: PutIntentResponse -> Maybe KendraConfiguration
kendraConfiguration} -> Maybe KendraConfiguration
kendraConfiguration) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe KendraConfiguration
a -> PutIntentResponse
s {$sel:kendraConfiguration:PutIntentResponse' :: Maybe KendraConfiguration
kendraConfiguration = Maybe KendraConfiguration
a} :: PutIntentResponse)
putIntentResponse_lastUpdatedDate :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.UTCTime)
putIntentResponse_lastUpdatedDate :: Lens' PutIntentResponse (Maybe UTCTime)
putIntentResponse_lastUpdatedDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe POSIX
lastUpdatedDate :: Maybe POSIX
$sel:lastUpdatedDate:PutIntentResponse' :: PutIntentResponse -> Maybe POSIX
lastUpdatedDate} -> Maybe POSIX
lastUpdatedDate) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe POSIX
a -> PutIntentResponse
s {$sel:lastUpdatedDate:PutIntentResponse' :: Maybe POSIX
lastUpdatedDate = Maybe POSIX
a} :: PutIntentResponse) 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
putIntentResponse_name :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Text)
putIntentResponse_name :: Lens' PutIntentResponse (Maybe Text)
putIntentResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Text
name :: Maybe Text
$sel:name:PutIntentResponse' :: PutIntentResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Text
a -> PutIntentResponse
s {$sel:name:PutIntentResponse' :: Maybe Text
name = Maybe Text
a} :: PutIntentResponse)
putIntentResponse_outputContexts :: Lens.Lens' PutIntentResponse (Prelude.Maybe [OutputContext])
putIntentResponse_outputContexts :: Lens' PutIntentResponse (Maybe [OutputContext])
putIntentResponse_outputContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe [OutputContext]
outputContexts :: Maybe [OutputContext]
$sel:outputContexts:PutIntentResponse' :: PutIntentResponse -> Maybe [OutputContext]
outputContexts} -> Maybe [OutputContext]
outputContexts) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe [OutputContext]
a -> PutIntentResponse
s {$sel:outputContexts:PutIntentResponse' :: Maybe [OutputContext]
outputContexts = Maybe [OutputContext]
a} :: PutIntentResponse) 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
putIntentResponse_parentIntentSignature :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Text)
putIntentResponse_parentIntentSignature :: Lens' PutIntentResponse (Maybe Text)
putIntentResponse_parentIntentSignature = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Text
parentIntentSignature :: Maybe Text
$sel:parentIntentSignature:PutIntentResponse' :: PutIntentResponse -> Maybe Text
parentIntentSignature} -> Maybe Text
parentIntentSignature) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Text
a -> PutIntentResponse
s {$sel:parentIntentSignature:PutIntentResponse' :: Maybe Text
parentIntentSignature = Maybe Text
a} :: PutIntentResponse)
putIntentResponse_rejectionStatement :: Lens.Lens' PutIntentResponse (Prelude.Maybe Statement)
putIntentResponse_rejectionStatement :: Lens' PutIntentResponse (Maybe Statement)
putIntentResponse_rejectionStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Statement
rejectionStatement :: Maybe Statement
$sel:rejectionStatement:PutIntentResponse' :: PutIntentResponse -> Maybe Statement
rejectionStatement} -> Maybe Statement
rejectionStatement) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Statement
a -> PutIntentResponse
s {$sel:rejectionStatement:PutIntentResponse' :: Maybe Statement
rejectionStatement = Maybe Statement
a} :: PutIntentResponse)
putIntentResponse_sampleUtterances :: Lens.Lens' PutIntentResponse (Prelude.Maybe [Prelude.Text])
putIntentResponse_sampleUtterances :: Lens' PutIntentResponse (Maybe [Text])
putIntentResponse_sampleUtterances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe [Text]
sampleUtterances :: Maybe [Text]
$sel:sampleUtterances:PutIntentResponse' :: PutIntentResponse -> Maybe [Text]
sampleUtterances} -> Maybe [Text]
sampleUtterances) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe [Text]
a -> PutIntentResponse
s {$sel:sampleUtterances:PutIntentResponse' :: Maybe [Text]
sampleUtterances = Maybe [Text]
a} :: PutIntentResponse) 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
putIntentResponse_slots :: Lens.Lens' PutIntentResponse (Prelude.Maybe [Slot])
putIntentResponse_slots :: Lens' PutIntentResponse (Maybe [Slot])
putIntentResponse_slots = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe [Slot]
slots :: Maybe [Slot]
$sel:slots:PutIntentResponse' :: PutIntentResponse -> Maybe [Slot]
slots} -> Maybe [Slot]
slots) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe [Slot]
a -> PutIntentResponse
s {$sel:slots:PutIntentResponse' :: Maybe [Slot]
slots = Maybe [Slot]
a} :: PutIntentResponse) 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
putIntentResponse_version :: Lens.Lens' PutIntentResponse (Prelude.Maybe Prelude.Text)
putIntentResponse_version :: Lens' PutIntentResponse (Maybe Text)
putIntentResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Maybe Text
version :: Maybe Text
$sel:version:PutIntentResponse' :: PutIntentResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: PutIntentResponse
s@PutIntentResponse' {} Maybe Text
a -> PutIntentResponse
s {$sel:version:PutIntentResponse' :: Maybe Text
version = Maybe Text
a} :: PutIntentResponse)
putIntentResponse_httpStatus :: Lens.Lens' PutIntentResponse Prelude.Int
putIntentResponse_httpStatus :: Lens' PutIntentResponse Int
putIntentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutIntentResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutIntentResponse' :: PutIntentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutIntentResponse
s@PutIntentResponse' {} Int
a -> PutIntentResponse
s {$sel:httpStatus:PutIntentResponse' :: Int
httpStatus = Int
a} :: PutIntentResponse)
instance Prelude.NFData PutIntentResponse where
rnf :: PutIntentResponse -> ()
rnf PutIntentResponse' {Int
Maybe Bool
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
createVersion :: Maybe Bool
confirmationPrompt :: Maybe Prompt
conclusionStatement :: Maybe Statement
checksum :: Maybe Text
$sel:httpStatus:PutIntentResponse' :: PutIntentResponse -> Int
$sel:version:PutIntentResponse' :: PutIntentResponse -> Maybe Text
$sel:slots:PutIntentResponse' :: PutIntentResponse -> Maybe [Slot]
$sel:sampleUtterances:PutIntentResponse' :: PutIntentResponse -> Maybe [Text]
$sel:rejectionStatement:PutIntentResponse' :: PutIntentResponse -> Maybe Statement
$sel:parentIntentSignature:PutIntentResponse' :: PutIntentResponse -> Maybe Text
$sel:outputContexts:PutIntentResponse' :: PutIntentResponse -> Maybe [OutputContext]
$sel:name:PutIntentResponse' :: PutIntentResponse -> Maybe Text
$sel:lastUpdatedDate:PutIntentResponse' :: PutIntentResponse -> Maybe POSIX
$sel:kendraConfiguration:PutIntentResponse' :: PutIntentResponse -> Maybe KendraConfiguration
$sel:inputContexts:PutIntentResponse' :: PutIntentResponse -> Maybe [InputContext]
$sel:fulfillmentActivity:PutIntentResponse' :: PutIntentResponse -> Maybe FulfillmentActivity
$sel:followUpPrompt:PutIntentResponse' :: PutIntentResponse -> Maybe FollowUpPrompt
$sel:dialogCodeHook:PutIntentResponse' :: PutIntentResponse -> Maybe CodeHook
$sel:description:PutIntentResponse' :: PutIntentResponse -> Maybe Text
$sel:createdDate:PutIntentResponse' :: PutIntentResponse -> Maybe POSIX
$sel:createVersion:PutIntentResponse' :: PutIntentResponse -> Maybe Bool
$sel:confirmationPrompt:PutIntentResponse' :: PutIntentResponse -> Maybe Prompt
$sel:conclusionStatement:PutIntentResponse' :: PutIntentResponse -> Maybe Statement
$sel:checksum:PutIntentResponse' :: PutIntentResponse -> 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 Bool
createVersion
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