{-# 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.GetIntent
(
GetIntent (..),
newGetIntent,
getIntent_name,
getIntent_version,
GetIntentResponse (..),
newGetIntentResponse,
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
data GetIntent = GetIntent'
{
GetIntent -> Text
name :: Prelude.Text,
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)
newGetIntent ::
Prelude.Text ->
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_}
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)
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
data GetIntentResponse = GetIntentResponse'
{
GetIntentResponse -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
GetIntentResponse -> Maybe Statement
conclusionStatement :: Prelude.Maybe Statement,
GetIntentResponse -> Maybe Prompt
confirmationPrompt :: Prelude.Maybe Prompt,
GetIntentResponse -> Maybe POSIX
createdDate :: Prelude.Maybe Data.POSIX,
GetIntentResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
GetIntentResponse -> Maybe CodeHook
dialogCodeHook :: Prelude.Maybe CodeHook,
GetIntentResponse -> Maybe FollowUpPrompt
followUpPrompt :: Prelude.Maybe FollowUpPrompt,
GetIntentResponse -> Maybe FulfillmentActivity
fulfillmentActivity :: Prelude.Maybe FulfillmentActivity,
GetIntentResponse -> Maybe [InputContext]
inputContexts :: Prelude.Maybe [InputContext],
GetIntentResponse -> Maybe KendraConfiguration
kendraConfiguration :: Prelude.Maybe KendraConfiguration,
GetIntentResponse -> Maybe POSIX
lastUpdatedDate :: Prelude.Maybe Data.POSIX,
GetIntentResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetIntentResponse -> Maybe [OutputContext]
outputContexts :: Prelude.Maybe [OutputContext],
GetIntentResponse -> Maybe Text
parentIntentSignature :: Prelude.Maybe Prelude.Text,
GetIntentResponse -> Maybe Statement
rejectionStatement :: Prelude.Maybe Statement,
GetIntentResponse -> Maybe [Text]
sampleUtterances :: Prelude.Maybe [Prelude.Text],
GetIntentResponse -> Maybe [Slot]
slots :: Prelude.Maybe [Slot],
GetIntentResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
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)
newGetIntentResponse ::
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_
}
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)
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)
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)
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
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)
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)
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)
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)
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
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)
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
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)
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
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)
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)
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
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
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)
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