{-# 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.LexRuntime.PostText
(
PostText (..),
newPostText,
postText_activeContexts,
postText_requestAttributes,
postText_sessionAttributes,
postText_botName,
postText_botAlias,
postText_userId,
postText_inputText,
PostTextResponse (..),
newPostTextResponse,
postTextResponse_activeContexts,
postTextResponse_alternativeIntents,
postTextResponse_botVersion,
postTextResponse_dialogState,
postTextResponse_intentName,
postTextResponse_message,
postTextResponse_messageFormat,
postTextResponse_nluIntentConfidence,
postTextResponse_responseCard,
postTextResponse_sentimentResponse,
postTextResponse_sessionAttributes,
postTextResponse_sessionId,
postTextResponse_slotToElicit,
postTextResponse_slots,
postTextResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LexRuntime.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PostText = PostText'
{
PostText -> Maybe (Sensitive [ActiveContext])
activeContexts :: Prelude.Maybe (Data.Sensitive [ActiveContext]),
PostText -> Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
PostText -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
PostText -> Text
botName :: Prelude.Text,
PostText -> Text
botAlias :: Prelude.Text,
PostText -> Text
userId :: Prelude.Text,
PostText -> Sensitive Text
inputText :: Data.Sensitive Prelude.Text
}
deriving (PostText -> PostText -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostText -> PostText -> Bool
$c/= :: PostText -> PostText -> Bool
== :: PostText -> PostText -> Bool
$c== :: PostText -> PostText -> Bool
Prelude.Eq, Int -> PostText -> ShowS
[PostText] -> ShowS
PostText -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostText] -> ShowS
$cshowList :: [PostText] -> ShowS
show :: PostText -> String
$cshow :: PostText -> String
showsPrec :: Int -> PostText -> ShowS
$cshowsPrec :: Int -> PostText -> ShowS
Prelude.Show, forall x. Rep PostText x -> PostText
forall x. PostText -> Rep PostText x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PostText x -> PostText
$cfrom :: forall x. PostText -> Rep PostText x
Prelude.Generic)
newPostText ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
PostText
newPostText :: Text -> Text -> Text -> Text -> PostText
newPostText Text
pBotName_ Text
pBotAlias_ Text
pUserId_ Text
pInputText_ =
PostText'
{ $sel:activeContexts:PostText' :: Maybe (Sensitive [ActiveContext])
activeContexts = forall a. Maybe a
Prelude.Nothing,
$sel:requestAttributes:PostText' :: Maybe (Sensitive (HashMap Text Text))
requestAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:sessionAttributes:PostText' :: Maybe (Sensitive (HashMap Text Text))
sessionAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:botName:PostText' :: Text
botName = Text
pBotName_,
$sel:botAlias:PostText' :: Text
botAlias = Text
pBotAlias_,
$sel:userId:PostText' :: Text
userId = Text
pUserId_,
$sel:inputText:PostText' :: Sensitive Text
inputText = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pInputText_
}
postText_activeContexts :: Lens.Lens' PostText (Prelude.Maybe [ActiveContext])
postText_activeContexts :: Lens' PostText (Maybe [ActiveContext])
postText_activeContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Maybe (Sensitive [ActiveContext])
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:activeContexts:PostText' :: PostText -> Maybe (Sensitive [ActiveContext])
activeContexts} -> Maybe (Sensitive [ActiveContext])
activeContexts) (\s :: PostText
s@PostText' {} Maybe (Sensitive [ActiveContext])
a -> PostText
s {$sel:activeContexts:PostText' :: Maybe (Sensitive [ActiveContext])
activeContexts = Maybe (Sensitive [ActiveContext])
a} :: PostText) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postText_requestAttributes :: Lens.Lens' PostText (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
postText_requestAttributes :: Lens' PostText (Maybe (HashMap Text Text))
postText_requestAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Maybe (Sensitive (HashMap Text Text))
$sel:requestAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
requestAttributes} -> Maybe (Sensitive (HashMap Text Text))
requestAttributes) (\s :: PostText
s@PostText' {} Maybe (Sensitive (HashMap Text Text))
a -> PostText
s {$sel:requestAttributes:PostText' :: Maybe (Sensitive (HashMap Text Text))
requestAttributes = Maybe (Sensitive (HashMap Text Text))
a} :: PostText) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postText_sessionAttributes :: Lens.Lens' PostText (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
postText_sessionAttributes :: Lens' PostText (Maybe (HashMap Text Text))
postText_sessionAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Maybe (Sensitive (HashMap Text Text))
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
$sel:sessionAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes} -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes) (\s :: PostText
s@PostText' {} Maybe (Sensitive (HashMap Text Text))
a -> PostText
s {$sel:sessionAttributes:PostText' :: Maybe (Sensitive (HashMap Text Text))
sessionAttributes = Maybe (Sensitive (HashMap Text Text))
a} :: PostText) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postText_botName :: Lens.Lens' PostText Prelude.Text
postText_botName :: Lens' PostText Text
postText_botName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Text
botName :: Text
$sel:botName:PostText' :: PostText -> Text
botName} -> Text
botName) (\s :: PostText
s@PostText' {} Text
a -> PostText
s {$sel:botName:PostText' :: Text
botName = Text
a} :: PostText)
postText_botAlias :: Lens.Lens' PostText Prelude.Text
postText_botAlias :: Lens' PostText Text
postText_botAlias = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Text
botAlias :: Text
$sel:botAlias:PostText' :: PostText -> Text
botAlias} -> Text
botAlias) (\s :: PostText
s@PostText' {} Text
a -> PostText
s {$sel:botAlias:PostText' :: Text
botAlias = Text
a} :: PostText)
postText_userId :: Lens.Lens' PostText Prelude.Text
postText_userId :: Lens' PostText Text
postText_userId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Text
userId :: Text
$sel:userId:PostText' :: PostText -> Text
userId} -> Text
userId) (\s :: PostText
s@PostText' {} Text
a -> PostText
s {$sel:userId:PostText' :: Text
userId = Text
a} :: PostText)
postText_inputText :: Lens.Lens' PostText Prelude.Text
postText_inputText :: Lens' PostText Text
postText_inputText = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostText' {Sensitive Text
inputText :: Sensitive Text
$sel:inputText:PostText' :: PostText -> Sensitive Text
inputText} -> Sensitive Text
inputText) (\s :: PostText
s@PostText' {} Sensitive Text
a -> PostText
s {$sel:inputText:PostText' :: Sensitive Text
inputText = Sensitive Text
a} :: PostText) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
instance Core.AWSRequest PostText where
type AWSResponse PostText = PostTextResponse
request :: (Service -> Service) -> PostText -> Request PostText
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PostText
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PostText)))
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 (Sensitive [ActiveContext])
-> Maybe [PredictedIntent]
-> Maybe Text
-> Maybe DialogState
-> Maybe Text
-> Maybe (Sensitive Text)
-> Maybe MessageFormatType
-> Maybe IntentConfidence
-> Maybe ResponseCard
-> Maybe SentimentResponse
-> Maybe (Sensitive (HashMap Text Text))
-> Maybe Text
-> Maybe Text
-> Maybe (Sensitive (HashMap Text Text))
-> Int
-> PostTextResponse
PostTextResponse'
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
"activeContexts" 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
"alternativeIntents"
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
"botVersion")
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
"dialogState")
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
"intentName")
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
"message")
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
"messageFormat")
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
"nluIntentConfidence")
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
"responseCard")
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
"sentimentResponse")
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
"sessionAttributes"
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
"sessionId")
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
"slotToElicit")
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable PostText where
hashWithSalt :: Int -> PostText -> Int
hashWithSalt Int
_salt PostText' {Maybe (Sensitive [ActiveContext])
Maybe (Sensitive (HashMap Text Text))
Text
Sensitive Text
inputText :: Sensitive Text
userId :: Text
botAlias :: Text
botName :: Text
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Maybe (Sensitive (HashMap Text Text))
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:inputText:PostText' :: PostText -> Sensitive Text
$sel:userId:PostText' :: PostText -> Text
$sel:botAlias:PostText' :: PostText -> Text
$sel:botName:PostText' :: PostText -> Text
$sel:sessionAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:requestAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:activeContexts:PostText' :: PostText -> Maybe (Sensitive [ActiveContext])
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive [ActiveContext])
activeContexts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive (HashMap Text Text))
requestAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive (HashMap Text Text))
sessionAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
botName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
botAlias
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
inputText
instance Prelude.NFData PostText where
rnf :: PostText -> ()
rnf PostText' {Maybe (Sensitive [ActiveContext])
Maybe (Sensitive (HashMap Text Text))
Text
Sensitive Text
inputText :: Sensitive Text
userId :: Text
botAlias :: Text
botName :: Text
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Maybe (Sensitive (HashMap Text Text))
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:inputText:PostText' :: PostText -> Sensitive Text
$sel:userId:PostText' :: PostText -> Text
$sel:botAlias:PostText' :: PostText -> Text
$sel:botName:PostText' :: PostText -> Text
$sel:sessionAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:requestAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:activeContexts:PostText' :: PostText -> Maybe (Sensitive [ActiveContext])
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive [ActiveContext])
activeContexts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
requestAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
sessionAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
botName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
botAlias
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
inputText
instance Data.ToHeaders PostText where
toHeaders :: PostText -> 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 PostText where
toJSON :: PostText -> Value
toJSON PostText' {Maybe (Sensitive [ActiveContext])
Maybe (Sensitive (HashMap Text Text))
Text
Sensitive Text
inputText :: Sensitive Text
userId :: Text
botAlias :: Text
botName :: Text
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Maybe (Sensitive (HashMap Text Text))
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:inputText:PostText' :: PostText -> Sensitive Text
$sel:userId:PostText' :: PostText -> Text
$sel:botAlias:PostText' :: PostText -> Text
$sel:botName:PostText' :: PostText -> Text
$sel:sessionAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:requestAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:activeContexts:PostText' :: PostText -> Maybe (Sensitive [ActiveContext])
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"activeContexts" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive [ActiveContext])
activeContexts,
(Key
"requestAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive (HashMap Text Text))
requestAttributes,
(Key
"sessionAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive (HashMap Text Text))
sessionAttributes,
forall a. a -> Maybe a
Prelude.Just (Key
"inputText" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
inputText)
]
)
instance Data.ToPath PostText where
toPath :: PostText -> ByteString
toPath PostText' {Maybe (Sensitive [ActiveContext])
Maybe (Sensitive (HashMap Text Text))
Text
Sensitive Text
inputText :: Sensitive Text
userId :: Text
botAlias :: Text
botName :: Text
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
requestAttributes :: Maybe (Sensitive (HashMap Text Text))
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:inputText:PostText' :: PostText -> Sensitive Text
$sel:userId:PostText' :: PostText -> Text
$sel:botAlias:PostText' :: PostText -> Text
$sel:botName:PostText' :: PostText -> Text
$sel:sessionAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:requestAttributes:PostText' :: PostText -> Maybe (Sensitive (HashMap Text Text))
$sel:activeContexts:PostText' :: PostText -> Maybe (Sensitive [ActiveContext])
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/bot/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
botName,
ByteString
"/alias/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
botAlias,
ByteString
"/user/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
userId,
ByteString
"/text"
]
instance Data.ToQuery PostText where
toQuery :: PostText -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PostTextResponse = PostTextResponse'
{
PostTextResponse -> Maybe (Sensitive [ActiveContext])
activeContexts :: Prelude.Maybe (Data.Sensitive [ActiveContext]),
PostTextResponse -> Maybe [PredictedIntent]
alternativeIntents :: Prelude.Maybe [PredictedIntent],
PostTextResponse -> Maybe Text
botVersion :: Prelude.Maybe Prelude.Text,
PostTextResponse -> Maybe DialogState
dialogState :: Prelude.Maybe DialogState,
PostTextResponse -> Maybe Text
intentName :: Prelude.Maybe Prelude.Text,
PostTextResponse -> Maybe (Sensitive Text)
message :: Prelude.Maybe (Data.Sensitive Prelude.Text),
PostTextResponse -> Maybe MessageFormatType
messageFormat :: Prelude.Maybe MessageFormatType,
PostTextResponse -> Maybe IntentConfidence
nluIntentConfidence :: Prelude.Maybe IntentConfidence,
PostTextResponse -> Maybe ResponseCard
responseCard :: Prelude.Maybe ResponseCard,
PostTextResponse -> Maybe SentimentResponse
sentimentResponse :: Prelude.Maybe SentimentResponse,
PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
PostTextResponse -> Maybe Text
sessionId :: Prelude.Maybe Prelude.Text,
PostTextResponse -> Maybe Text
slotToElicit :: Prelude.Maybe Prelude.Text,
PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
slots :: Prelude.Maybe (Data.Sensitive (Prelude.HashMap Prelude.Text Prelude.Text)),
PostTextResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PostTextResponse -> PostTextResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTextResponse -> PostTextResponse -> Bool
$c/= :: PostTextResponse -> PostTextResponse -> Bool
== :: PostTextResponse -> PostTextResponse -> Bool
$c== :: PostTextResponse -> PostTextResponse -> Bool
Prelude.Eq, Int -> PostTextResponse -> ShowS
[PostTextResponse] -> ShowS
PostTextResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTextResponse] -> ShowS
$cshowList :: [PostTextResponse] -> ShowS
show :: PostTextResponse -> String
$cshow :: PostTextResponse -> String
showsPrec :: Int -> PostTextResponse -> ShowS
$cshowsPrec :: Int -> PostTextResponse -> ShowS
Prelude.Show, forall x. Rep PostTextResponse x -> PostTextResponse
forall x. PostTextResponse -> Rep PostTextResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PostTextResponse x -> PostTextResponse
$cfrom :: forall x. PostTextResponse -> Rep PostTextResponse x
Prelude.Generic)
newPostTextResponse ::
Prelude.Int ->
PostTextResponse
newPostTextResponse :: Int -> PostTextResponse
newPostTextResponse Int
pHttpStatus_ =
PostTextResponse'
{ $sel:activeContexts:PostTextResponse' :: Maybe (Sensitive [ActiveContext])
activeContexts = forall a. Maybe a
Prelude.Nothing,
$sel:alternativeIntents:PostTextResponse' :: Maybe [PredictedIntent]
alternativeIntents = forall a. Maybe a
Prelude.Nothing,
$sel:botVersion:PostTextResponse' :: Maybe Text
botVersion = forall a. Maybe a
Prelude.Nothing,
$sel:dialogState:PostTextResponse' :: Maybe DialogState
dialogState = forall a. Maybe a
Prelude.Nothing,
$sel:intentName:PostTextResponse' :: Maybe Text
intentName = forall a. Maybe a
Prelude.Nothing,
$sel:message:PostTextResponse' :: Maybe (Sensitive Text)
message = forall a. Maybe a
Prelude.Nothing,
$sel:messageFormat:PostTextResponse' :: Maybe MessageFormatType
messageFormat = forall a. Maybe a
Prelude.Nothing,
$sel:nluIntentConfidence:PostTextResponse' :: Maybe IntentConfidence
nluIntentConfidence = forall a. Maybe a
Prelude.Nothing,
$sel:responseCard:PostTextResponse' :: Maybe ResponseCard
responseCard = forall a. Maybe a
Prelude.Nothing,
$sel:sentimentResponse:PostTextResponse' :: Maybe SentimentResponse
sentimentResponse = forall a. Maybe a
Prelude.Nothing,
$sel:sessionAttributes:PostTextResponse' :: Maybe (Sensitive (HashMap Text Text))
sessionAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:sessionId:PostTextResponse' :: Maybe Text
sessionId = forall a. Maybe a
Prelude.Nothing,
$sel:slotToElicit:PostTextResponse' :: Maybe Text
slotToElicit = forall a. Maybe a
Prelude.Nothing,
$sel:slots:PostTextResponse' :: Maybe (Sensitive (HashMap Text Text))
slots = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PostTextResponse' :: Int
httpStatus = Int
pHttpStatus_
}
postTextResponse_activeContexts :: Lens.Lens' PostTextResponse (Prelude.Maybe [ActiveContext])
postTextResponse_activeContexts :: Lens' PostTextResponse (Maybe [ActiveContext])
postTextResponse_activeContexts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe (Sensitive [ActiveContext])
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:activeContexts:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive [ActiveContext])
activeContexts} -> Maybe (Sensitive [ActiveContext])
activeContexts) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe (Sensitive [ActiveContext])
a -> PostTextResponse
s {$sel:activeContexts:PostTextResponse' :: Maybe (Sensitive [ActiveContext])
activeContexts = Maybe (Sensitive [ActiveContext])
a} :: PostTextResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postTextResponse_alternativeIntents :: Lens.Lens' PostTextResponse (Prelude.Maybe [PredictedIntent])
postTextResponse_alternativeIntents :: Lens' PostTextResponse (Maybe [PredictedIntent])
postTextResponse_alternativeIntents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe [PredictedIntent]
alternativeIntents :: Maybe [PredictedIntent]
$sel:alternativeIntents:PostTextResponse' :: PostTextResponse -> Maybe [PredictedIntent]
alternativeIntents} -> Maybe [PredictedIntent]
alternativeIntents) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe [PredictedIntent]
a -> PostTextResponse
s {$sel:alternativeIntents:PostTextResponse' :: Maybe [PredictedIntent]
alternativeIntents = Maybe [PredictedIntent]
a} :: PostTextResponse) 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
postTextResponse_botVersion :: Lens.Lens' PostTextResponse (Prelude.Maybe Prelude.Text)
postTextResponse_botVersion :: Lens' PostTextResponse (Maybe Text)
postTextResponse_botVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe Text
botVersion :: Maybe Text
$sel:botVersion:PostTextResponse' :: PostTextResponse -> Maybe Text
botVersion} -> Maybe Text
botVersion) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe Text
a -> PostTextResponse
s {$sel:botVersion:PostTextResponse' :: Maybe Text
botVersion = Maybe Text
a} :: PostTextResponse)
postTextResponse_dialogState :: Lens.Lens' PostTextResponse (Prelude.Maybe DialogState)
postTextResponse_dialogState :: Lens' PostTextResponse (Maybe DialogState)
postTextResponse_dialogState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe DialogState
dialogState :: Maybe DialogState
$sel:dialogState:PostTextResponse' :: PostTextResponse -> Maybe DialogState
dialogState} -> Maybe DialogState
dialogState) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe DialogState
a -> PostTextResponse
s {$sel:dialogState:PostTextResponse' :: Maybe DialogState
dialogState = Maybe DialogState
a} :: PostTextResponse)
postTextResponse_intentName :: Lens.Lens' PostTextResponse (Prelude.Maybe Prelude.Text)
postTextResponse_intentName :: Lens' PostTextResponse (Maybe Text)
postTextResponse_intentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe Text
intentName :: Maybe Text
$sel:intentName:PostTextResponse' :: PostTextResponse -> Maybe Text
intentName} -> Maybe Text
intentName) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe Text
a -> PostTextResponse
s {$sel:intentName:PostTextResponse' :: Maybe Text
intentName = Maybe Text
a} :: PostTextResponse)
postTextResponse_message :: Lens.Lens' PostTextResponse (Prelude.Maybe Prelude.Text)
postTextResponse_message :: Lens' PostTextResponse (Maybe Text)
postTextResponse_message = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe (Sensitive Text)
message :: Maybe (Sensitive Text)
$sel:message:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive Text)
message} -> Maybe (Sensitive Text)
message) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe (Sensitive Text)
a -> PostTextResponse
s {$sel:message:PostTextResponse' :: Maybe (Sensitive Text)
message = Maybe (Sensitive Text)
a} :: PostTextResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive
postTextResponse_messageFormat :: Lens.Lens' PostTextResponse (Prelude.Maybe MessageFormatType)
postTextResponse_messageFormat :: Lens' PostTextResponse (Maybe MessageFormatType)
postTextResponse_messageFormat = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe MessageFormatType
messageFormat :: Maybe MessageFormatType
$sel:messageFormat:PostTextResponse' :: PostTextResponse -> Maybe MessageFormatType
messageFormat} -> Maybe MessageFormatType
messageFormat) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe MessageFormatType
a -> PostTextResponse
s {$sel:messageFormat:PostTextResponse' :: Maybe MessageFormatType
messageFormat = Maybe MessageFormatType
a} :: PostTextResponse)
postTextResponse_nluIntentConfidence :: Lens.Lens' PostTextResponse (Prelude.Maybe IntentConfidence)
postTextResponse_nluIntentConfidence :: Lens' PostTextResponse (Maybe IntentConfidence)
postTextResponse_nluIntentConfidence = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe IntentConfidence
nluIntentConfidence :: Maybe IntentConfidence
$sel:nluIntentConfidence:PostTextResponse' :: PostTextResponse -> Maybe IntentConfidence
nluIntentConfidence} -> Maybe IntentConfidence
nluIntentConfidence) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe IntentConfidence
a -> PostTextResponse
s {$sel:nluIntentConfidence:PostTextResponse' :: Maybe IntentConfidence
nluIntentConfidence = Maybe IntentConfidence
a} :: PostTextResponse)
postTextResponse_responseCard :: Lens.Lens' PostTextResponse (Prelude.Maybe ResponseCard)
postTextResponse_responseCard :: Lens' PostTextResponse (Maybe ResponseCard)
postTextResponse_responseCard = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe ResponseCard
responseCard :: Maybe ResponseCard
$sel:responseCard:PostTextResponse' :: PostTextResponse -> Maybe ResponseCard
responseCard} -> Maybe ResponseCard
responseCard) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe ResponseCard
a -> PostTextResponse
s {$sel:responseCard:PostTextResponse' :: Maybe ResponseCard
responseCard = Maybe ResponseCard
a} :: PostTextResponse)
postTextResponse_sentimentResponse :: Lens.Lens' PostTextResponse (Prelude.Maybe SentimentResponse)
postTextResponse_sentimentResponse :: Lens' PostTextResponse (Maybe SentimentResponse)
postTextResponse_sentimentResponse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe SentimentResponse
sentimentResponse :: Maybe SentimentResponse
$sel:sentimentResponse:PostTextResponse' :: PostTextResponse -> Maybe SentimentResponse
sentimentResponse} -> Maybe SentimentResponse
sentimentResponse) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe SentimentResponse
a -> PostTextResponse
s {$sel:sentimentResponse:PostTextResponse' :: Maybe SentimentResponse
sentimentResponse = Maybe SentimentResponse
a} :: PostTextResponse)
postTextResponse_sessionAttributes :: Lens.Lens' PostTextResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
postTextResponse_sessionAttributes :: Lens' PostTextResponse (Maybe (HashMap Text Text))
postTextResponse_sessionAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe (Sensitive (HashMap Text Text))
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
$sel:sessionAttributes:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes} -> Maybe (Sensitive (HashMap Text Text))
sessionAttributes) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe (Sensitive (HashMap Text Text))
a -> PostTextResponse
s {$sel:sessionAttributes:PostTextResponse' :: Maybe (Sensitive (HashMap Text Text))
sessionAttributes = Maybe (Sensitive (HashMap Text Text))
a} :: PostTextResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postTextResponse_sessionId :: Lens.Lens' PostTextResponse (Prelude.Maybe Prelude.Text)
postTextResponse_sessionId :: Lens' PostTextResponse (Maybe Text)
postTextResponse_sessionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe Text
sessionId :: Maybe Text
$sel:sessionId:PostTextResponse' :: PostTextResponse -> Maybe Text
sessionId} -> Maybe Text
sessionId) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe Text
a -> PostTextResponse
s {$sel:sessionId:PostTextResponse' :: Maybe Text
sessionId = Maybe Text
a} :: PostTextResponse)
postTextResponse_slotToElicit :: Lens.Lens' PostTextResponse (Prelude.Maybe Prelude.Text)
postTextResponse_slotToElicit :: Lens' PostTextResponse (Maybe Text)
postTextResponse_slotToElicit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe Text
slotToElicit :: Maybe Text
$sel:slotToElicit:PostTextResponse' :: PostTextResponse -> Maybe Text
slotToElicit} -> Maybe Text
slotToElicit) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe Text
a -> PostTextResponse
s {$sel:slotToElicit:PostTextResponse' :: Maybe Text
slotToElicit = Maybe Text
a} :: PostTextResponse)
postTextResponse_slots :: Lens.Lens' PostTextResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
postTextResponse_slots :: Lens' PostTextResponse (Maybe (HashMap Text Text))
postTextResponse_slots = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Maybe (Sensitive (HashMap Text Text))
slots :: Maybe (Sensitive (HashMap Text Text))
$sel:slots:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
slots} -> Maybe (Sensitive (HashMap Text Text))
slots) (\s :: PostTextResponse
s@PostTextResponse' {} Maybe (Sensitive (HashMap Text Text))
a -> PostTextResponse
s {$sel:slots:PostTextResponse' :: Maybe (Sensitive (HashMap Text Text))
slots = Maybe (Sensitive (HashMap Text Text))
a} :: PostTextResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping (forall a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced)
postTextResponse_httpStatus :: Lens.Lens' PostTextResponse Prelude.Int
postTextResponse_httpStatus :: Lens' PostTextResponse Int
postTextResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PostTextResponse' {Int
httpStatus :: Int
$sel:httpStatus:PostTextResponse' :: PostTextResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PostTextResponse
s@PostTextResponse' {} Int
a -> PostTextResponse
s {$sel:httpStatus:PostTextResponse' :: Int
httpStatus = Int
a} :: PostTextResponse)
instance Prelude.NFData PostTextResponse where
rnf :: PostTextResponse -> ()
rnf PostTextResponse' {Int
Maybe [PredictedIntent]
Maybe Text
Maybe (Sensitive [ActiveContext])
Maybe (Sensitive Text)
Maybe (Sensitive (HashMap Text Text))
Maybe DialogState
Maybe IntentConfidence
Maybe MessageFormatType
Maybe ResponseCard
Maybe SentimentResponse
httpStatus :: Int
slots :: Maybe (Sensitive (HashMap Text Text))
slotToElicit :: Maybe Text
sessionId :: Maybe Text
sessionAttributes :: Maybe (Sensitive (HashMap Text Text))
sentimentResponse :: Maybe SentimentResponse
responseCard :: Maybe ResponseCard
nluIntentConfidence :: Maybe IntentConfidence
messageFormat :: Maybe MessageFormatType
message :: Maybe (Sensitive Text)
intentName :: Maybe Text
dialogState :: Maybe DialogState
botVersion :: Maybe Text
alternativeIntents :: Maybe [PredictedIntent]
activeContexts :: Maybe (Sensitive [ActiveContext])
$sel:httpStatus:PostTextResponse' :: PostTextResponse -> Int
$sel:slots:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
$sel:slotToElicit:PostTextResponse' :: PostTextResponse -> Maybe Text
$sel:sessionId:PostTextResponse' :: PostTextResponse -> Maybe Text
$sel:sessionAttributes:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive (HashMap Text Text))
$sel:sentimentResponse:PostTextResponse' :: PostTextResponse -> Maybe SentimentResponse
$sel:responseCard:PostTextResponse' :: PostTextResponse -> Maybe ResponseCard
$sel:nluIntentConfidence:PostTextResponse' :: PostTextResponse -> Maybe IntentConfidence
$sel:messageFormat:PostTextResponse' :: PostTextResponse -> Maybe MessageFormatType
$sel:message:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive Text)
$sel:intentName:PostTextResponse' :: PostTextResponse -> Maybe Text
$sel:dialogState:PostTextResponse' :: PostTextResponse -> Maybe DialogState
$sel:botVersion:PostTextResponse' :: PostTextResponse -> Maybe Text
$sel:alternativeIntents:PostTextResponse' :: PostTextResponse -> Maybe [PredictedIntent]
$sel:activeContexts:PostTextResponse' :: PostTextResponse -> Maybe (Sensitive [ActiveContext])
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive [ActiveContext])
activeContexts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PredictedIntent]
alternativeIntents
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
botVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DialogState
dialogState
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
intentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
message
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageFormatType
messageFormat
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IntentConfidence
nluIntentConfidence
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ResponseCard
responseCard
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SentimentResponse
sentimentResponse
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
sessionAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sessionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
slotToElicit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive (HashMap Text Text))
slots
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus