{-# 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.PutBot
(
PutBot (..),
newPutBot,
putBot_abortStatement,
putBot_checksum,
putBot_clarificationPrompt,
putBot_createVersion,
putBot_description,
putBot_detectSentiment,
putBot_enableModelImprovements,
putBot_idleSessionTTLInSeconds,
putBot_intents,
putBot_nluIntentConfidenceThreshold,
putBot_processBehavior,
putBot_tags,
putBot_voiceId,
putBot_name,
putBot_locale,
putBot_childDirected,
PutBotResponse (..),
newPutBotResponse,
putBotResponse_abortStatement,
putBotResponse_checksum,
putBotResponse_childDirected,
putBotResponse_clarificationPrompt,
putBotResponse_createVersion,
putBotResponse_createdDate,
putBotResponse_description,
putBotResponse_detectSentiment,
putBotResponse_enableModelImprovements,
putBotResponse_failureReason,
putBotResponse_idleSessionTTLInSeconds,
putBotResponse_intents,
putBotResponse_lastUpdatedDate,
putBotResponse_locale,
putBotResponse_name,
putBotResponse_nluIntentConfidenceThreshold,
putBotResponse_status,
putBotResponse_tags,
putBotResponse_version,
putBotResponse_voiceId,
putBotResponse_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 PutBot = PutBot'
{
PutBot -> Maybe Statement
abortStatement :: Prelude.Maybe Statement,
PutBot -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
PutBot -> Maybe Prompt
clarificationPrompt :: Prelude.Maybe Prompt,
PutBot -> Maybe Bool
createVersion :: Prelude.Maybe Prelude.Bool,
PutBot -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
PutBot -> Maybe Bool
detectSentiment :: Prelude.Maybe Prelude.Bool,
PutBot -> Maybe Bool
enableModelImprovements :: Prelude.Maybe Prelude.Bool,
PutBot -> Maybe Natural
idleSessionTTLInSeconds :: Prelude.Maybe Prelude.Natural,
PutBot -> Maybe [Intent]
intents :: Prelude.Maybe [Intent],
PutBot -> Maybe Double
nluIntentConfidenceThreshold :: Prelude.Maybe Prelude.Double,
PutBot -> Maybe ProcessBehavior
processBehavior :: Prelude.Maybe ProcessBehavior,
PutBot -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
PutBot -> Maybe Text
voiceId :: Prelude.Maybe Prelude.Text,
PutBot -> Text
name :: Prelude.Text,
PutBot -> Locale
locale :: Locale,
PutBot -> Bool
childDirected :: Prelude.Bool
}
deriving (PutBot -> PutBot -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBot -> PutBot -> Bool
$c/= :: PutBot -> PutBot -> Bool
== :: PutBot -> PutBot -> Bool
$c== :: PutBot -> PutBot -> Bool
Prelude.Eq, ReadPrec [PutBot]
ReadPrec PutBot
Int -> ReadS PutBot
ReadS [PutBot]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBot]
$creadListPrec :: ReadPrec [PutBot]
readPrec :: ReadPrec PutBot
$creadPrec :: ReadPrec PutBot
readList :: ReadS [PutBot]
$creadList :: ReadS [PutBot]
readsPrec :: Int -> ReadS PutBot
$creadsPrec :: Int -> ReadS PutBot
Prelude.Read, Int -> PutBot -> ShowS
[PutBot] -> ShowS
PutBot -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBot] -> ShowS
$cshowList :: [PutBot] -> ShowS
show :: PutBot -> String
$cshow :: PutBot -> String
showsPrec :: Int -> PutBot -> ShowS
$cshowsPrec :: Int -> PutBot -> ShowS
Prelude.Show, forall x. Rep PutBot x -> PutBot
forall x. PutBot -> Rep PutBot x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutBot x -> PutBot
$cfrom :: forall x. PutBot -> Rep PutBot x
Prelude.Generic)
newPutBot ::
Prelude.Text ->
Locale ->
Prelude.Bool ->
PutBot
newPutBot :: Text -> Locale -> Bool -> PutBot
newPutBot Text
pName_ Locale
pLocale_ Bool
pChildDirected_ =
PutBot'
{ $sel:abortStatement:PutBot' :: Maybe Statement
abortStatement = forall a. Maybe a
Prelude.Nothing,
$sel:checksum:PutBot' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
$sel:clarificationPrompt:PutBot' :: Maybe Prompt
clarificationPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:createVersion:PutBot' :: Maybe Bool
createVersion = forall a. Maybe a
Prelude.Nothing,
$sel:description:PutBot' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:detectSentiment:PutBot' :: Maybe Bool
detectSentiment = forall a. Maybe a
Prelude.Nothing,
$sel:enableModelImprovements:PutBot' :: Maybe Bool
enableModelImprovements = forall a. Maybe a
Prelude.Nothing,
$sel:idleSessionTTLInSeconds:PutBot' :: Maybe Natural
idleSessionTTLInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:intents:PutBot' :: Maybe [Intent]
intents = forall a. Maybe a
Prelude.Nothing,
$sel:nluIntentConfidenceThreshold:PutBot' :: Maybe Double
nluIntentConfidenceThreshold = forall a. Maybe a
Prelude.Nothing,
$sel:processBehavior:PutBot' :: Maybe ProcessBehavior
processBehavior = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutBot' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:voiceId:PutBot' :: Maybe Text
voiceId = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutBot' :: Text
name = Text
pName_,
$sel:locale:PutBot' :: Locale
locale = Locale
pLocale_,
$sel:childDirected:PutBot' :: Bool
childDirected = Bool
pChildDirected_
}
putBot_abortStatement :: Lens.Lens' PutBot (Prelude.Maybe Statement)
putBot_abortStatement :: Lens' PutBot (Maybe Statement)
putBot_abortStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Statement
abortStatement :: Maybe Statement
$sel:abortStatement:PutBot' :: PutBot -> Maybe Statement
abortStatement} -> Maybe Statement
abortStatement) (\s :: PutBot
s@PutBot' {} Maybe Statement
a -> PutBot
s {$sel:abortStatement:PutBot' :: Maybe Statement
abortStatement = Maybe Statement
a} :: PutBot)
putBot_checksum :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Text)
putBot_checksum :: Lens' PutBot (Maybe Text)
putBot_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Text
checksum :: Maybe Text
$sel:checksum:PutBot' :: PutBot -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: PutBot
s@PutBot' {} Maybe Text
a -> PutBot
s {$sel:checksum:PutBot' :: Maybe Text
checksum = Maybe Text
a} :: PutBot)
putBot_clarificationPrompt :: Lens.Lens' PutBot (Prelude.Maybe Prompt)
putBot_clarificationPrompt :: Lens' PutBot (Maybe Prompt)
putBot_clarificationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Prompt
clarificationPrompt :: Maybe Prompt
$sel:clarificationPrompt:PutBot' :: PutBot -> Maybe Prompt
clarificationPrompt} -> Maybe Prompt
clarificationPrompt) (\s :: PutBot
s@PutBot' {} Maybe Prompt
a -> PutBot
s {$sel:clarificationPrompt:PutBot' :: Maybe Prompt
clarificationPrompt = Maybe Prompt
a} :: PutBot)
putBot_createVersion :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Bool)
putBot_createVersion :: Lens' PutBot (Maybe Bool)
putBot_createVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Bool
createVersion :: Maybe Bool
$sel:createVersion:PutBot' :: PutBot -> Maybe Bool
createVersion} -> Maybe Bool
createVersion) (\s :: PutBot
s@PutBot' {} Maybe Bool
a -> PutBot
s {$sel:createVersion:PutBot' :: Maybe Bool
createVersion = Maybe Bool
a} :: PutBot)
putBot_description :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Text)
putBot_description :: Lens' PutBot (Maybe Text)
putBot_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Text
description :: Maybe Text
$sel:description:PutBot' :: PutBot -> Maybe Text
description} -> Maybe Text
description) (\s :: PutBot
s@PutBot' {} Maybe Text
a -> PutBot
s {$sel:description:PutBot' :: Maybe Text
description = Maybe Text
a} :: PutBot)
putBot_detectSentiment :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Bool)
putBot_detectSentiment :: Lens' PutBot (Maybe Bool)
putBot_detectSentiment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Bool
detectSentiment :: Maybe Bool
$sel:detectSentiment:PutBot' :: PutBot -> Maybe Bool
detectSentiment} -> Maybe Bool
detectSentiment) (\s :: PutBot
s@PutBot' {} Maybe Bool
a -> PutBot
s {$sel:detectSentiment:PutBot' :: Maybe Bool
detectSentiment = Maybe Bool
a} :: PutBot)
putBot_enableModelImprovements :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Bool)
putBot_enableModelImprovements :: Lens' PutBot (Maybe Bool)
putBot_enableModelImprovements = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Bool
enableModelImprovements :: Maybe Bool
$sel:enableModelImprovements:PutBot' :: PutBot -> Maybe Bool
enableModelImprovements} -> Maybe Bool
enableModelImprovements) (\s :: PutBot
s@PutBot' {} Maybe Bool
a -> PutBot
s {$sel:enableModelImprovements:PutBot' :: Maybe Bool
enableModelImprovements = Maybe Bool
a} :: PutBot)
putBot_idleSessionTTLInSeconds :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Natural)
putBot_idleSessionTTLInSeconds :: Lens' PutBot (Maybe Natural)
putBot_idleSessionTTLInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Natural
idleSessionTTLInSeconds :: Maybe Natural
$sel:idleSessionTTLInSeconds:PutBot' :: PutBot -> Maybe Natural
idleSessionTTLInSeconds} -> Maybe Natural
idleSessionTTLInSeconds) (\s :: PutBot
s@PutBot' {} Maybe Natural
a -> PutBot
s {$sel:idleSessionTTLInSeconds:PutBot' :: Maybe Natural
idleSessionTTLInSeconds = Maybe Natural
a} :: PutBot)
putBot_intents :: Lens.Lens' PutBot (Prelude.Maybe [Intent])
putBot_intents :: Lens' PutBot (Maybe [Intent])
putBot_intents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe [Intent]
intents :: Maybe [Intent]
$sel:intents:PutBot' :: PutBot -> Maybe [Intent]
intents} -> Maybe [Intent]
intents) (\s :: PutBot
s@PutBot' {} Maybe [Intent]
a -> PutBot
s {$sel:intents:PutBot' :: Maybe [Intent]
intents = Maybe [Intent]
a} :: PutBot) 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
putBot_nluIntentConfidenceThreshold :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Double)
putBot_nluIntentConfidenceThreshold :: Lens' PutBot (Maybe Double)
putBot_nluIntentConfidenceThreshold = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Double
nluIntentConfidenceThreshold :: Maybe Double
$sel:nluIntentConfidenceThreshold:PutBot' :: PutBot -> Maybe Double
nluIntentConfidenceThreshold} -> Maybe Double
nluIntentConfidenceThreshold) (\s :: PutBot
s@PutBot' {} Maybe Double
a -> PutBot
s {$sel:nluIntentConfidenceThreshold:PutBot' :: Maybe Double
nluIntentConfidenceThreshold = Maybe Double
a} :: PutBot)
putBot_processBehavior :: Lens.Lens' PutBot (Prelude.Maybe ProcessBehavior)
putBot_processBehavior :: Lens' PutBot (Maybe ProcessBehavior)
putBot_processBehavior = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe ProcessBehavior
processBehavior :: Maybe ProcessBehavior
$sel:processBehavior:PutBot' :: PutBot -> Maybe ProcessBehavior
processBehavior} -> Maybe ProcessBehavior
processBehavior) (\s :: PutBot
s@PutBot' {} Maybe ProcessBehavior
a -> PutBot
s {$sel:processBehavior:PutBot' :: Maybe ProcessBehavior
processBehavior = Maybe ProcessBehavior
a} :: PutBot)
putBot_tags :: Lens.Lens' PutBot (Prelude.Maybe [Tag])
putBot_tags :: Lens' PutBot (Maybe [Tag])
putBot_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:PutBot' :: PutBot -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: PutBot
s@PutBot' {} Maybe [Tag]
a -> PutBot
s {$sel:tags:PutBot' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: PutBot) 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
putBot_voiceId :: Lens.Lens' PutBot (Prelude.Maybe Prelude.Text)
putBot_voiceId :: Lens' PutBot (Maybe Text)
putBot_voiceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Maybe Text
voiceId :: Maybe Text
$sel:voiceId:PutBot' :: PutBot -> Maybe Text
voiceId} -> Maybe Text
voiceId) (\s :: PutBot
s@PutBot' {} Maybe Text
a -> PutBot
s {$sel:voiceId:PutBot' :: Maybe Text
voiceId = Maybe Text
a} :: PutBot)
putBot_name :: Lens.Lens' PutBot Prelude.Text
putBot_name :: Lens' PutBot Text
putBot_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Text
name :: Text
$sel:name:PutBot' :: PutBot -> Text
name} -> Text
name) (\s :: PutBot
s@PutBot' {} Text
a -> PutBot
s {$sel:name:PutBot' :: Text
name = Text
a} :: PutBot)
putBot_locale :: Lens.Lens' PutBot Locale
putBot_locale :: Lens' PutBot Locale
putBot_locale = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Locale
locale :: Locale
$sel:locale:PutBot' :: PutBot -> Locale
locale} -> Locale
locale) (\s :: PutBot
s@PutBot' {} Locale
a -> PutBot
s {$sel:locale:PutBot' :: Locale
locale = Locale
a} :: PutBot)
putBot_childDirected :: Lens.Lens' PutBot Prelude.Bool
putBot_childDirected :: Lens' PutBot Bool
putBot_childDirected = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBot' {Bool
childDirected :: Bool
$sel:childDirected:PutBot' :: PutBot -> Bool
childDirected} -> Bool
childDirected) (\s :: PutBot
s@PutBot' {} Bool
a -> PutBot
s {$sel:childDirected:PutBot' :: Bool
childDirected = Bool
a} :: PutBot)
instance Core.AWSRequest PutBot where
type AWSResponse PutBot = PutBotResponse
request :: (Service -> Service) -> PutBot -> Request PutBot
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 PutBot
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutBot)))
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 Statement
-> Maybe Text
-> Maybe Bool
-> Maybe Prompt
-> Maybe Bool
-> Maybe POSIX
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Natural
-> Maybe [Intent]
-> Maybe POSIX
-> Maybe Locale
-> Maybe Text
-> Maybe Double
-> Maybe LexStatus
-> Maybe [Tag]
-> Maybe Text
-> Maybe Text
-> Int
-> PutBotResponse
PutBotResponse'
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
"abortStatement")
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
"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
"childDirected")
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
"clarificationPrompt")
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
"detectSentiment")
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
"enableModelImprovements")
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
"failureReason")
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
"idleSessionTTLInSeconds")
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
"intents" 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
"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
"locale")
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
"nluIntentConfidenceThreshold")
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
"status")
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
"tags" 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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"voiceId")
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 PutBot where
hashWithSalt :: Int -> PutBot -> Int
hashWithSalt Int
_salt PutBot' {Bool
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Intent]
Maybe [Tag]
Maybe Text
Maybe ProcessBehavior
Maybe Prompt
Maybe Statement
Text
Locale
childDirected :: Bool
locale :: Locale
name :: Text
voiceId :: Maybe Text
tags :: Maybe [Tag]
processBehavior :: Maybe ProcessBehavior
nluIntentConfidenceThreshold :: Maybe Double
intents :: Maybe [Intent]
idleSessionTTLInSeconds :: Maybe Natural
enableModelImprovements :: Maybe Bool
detectSentiment :: Maybe Bool
description :: Maybe Text
createVersion :: Maybe Bool
clarificationPrompt :: Maybe Prompt
checksum :: Maybe Text
abortStatement :: Maybe Statement
$sel:childDirected:PutBot' :: PutBot -> Bool
$sel:locale:PutBot' :: PutBot -> Locale
$sel:name:PutBot' :: PutBot -> Text
$sel:voiceId:PutBot' :: PutBot -> Maybe Text
$sel:tags:PutBot' :: PutBot -> Maybe [Tag]
$sel:processBehavior:PutBot' :: PutBot -> Maybe ProcessBehavior
$sel:nluIntentConfidenceThreshold:PutBot' :: PutBot -> Maybe Double
$sel:intents:PutBot' :: PutBot -> Maybe [Intent]
$sel:idleSessionTTLInSeconds:PutBot' :: PutBot -> Maybe Natural
$sel:enableModelImprovements:PutBot' :: PutBot -> Maybe Bool
$sel:detectSentiment:PutBot' :: PutBot -> Maybe Bool
$sel:description:PutBot' :: PutBot -> Maybe Text
$sel:createVersion:PutBot' :: PutBot -> Maybe Bool
$sel:clarificationPrompt:PutBot' :: PutBot -> Maybe Prompt
$sel:checksum:PutBot' :: PutBot -> Maybe Text
$sel:abortStatement:PutBot' :: PutBot -> Maybe Statement
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Statement
abortStatement
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
checksum
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Prompt
clarificationPrompt
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 Bool
detectSentiment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableModelImprovements
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
idleSessionTTLInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Intent]
intents
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
nluIntentConfidenceThreshold
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProcessBehavior
processBehavior
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
voiceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Locale
locale
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
childDirected
instance Prelude.NFData PutBot where
rnf :: PutBot -> ()
rnf PutBot' {Bool
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Intent]
Maybe [Tag]
Maybe Text
Maybe ProcessBehavior
Maybe Prompt
Maybe Statement
Text
Locale
childDirected :: Bool
locale :: Locale
name :: Text
voiceId :: Maybe Text
tags :: Maybe [Tag]
processBehavior :: Maybe ProcessBehavior
nluIntentConfidenceThreshold :: Maybe Double
intents :: Maybe [Intent]
idleSessionTTLInSeconds :: Maybe Natural
enableModelImprovements :: Maybe Bool
detectSentiment :: Maybe Bool
description :: Maybe Text
createVersion :: Maybe Bool
clarificationPrompt :: Maybe Prompt
checksum :: Maybe Text
abortStatement :: Maybe Statement
$sel:childDirected:PutBot' :: PutBot -> Bool
$sel:locale:PutBot' :: PutBot -> Locale
$sel:name:PutBot' :: PutBot -> Text
$sel:voiceId:PutBot' :: PutBot -> Maybe Text
$sel:tags:PutBot' :: PutBot -> Maybe [Tag]
$sel:processBehavior:PutBot' :: PutBot -> Maybe ProcessBehavior
$sel:nluIntentConfidenceThreshold:PutBot' :: PutBot -> Maybe Double
$sel:intents:PutBot' :: PutBot -> Maybe [Intent]
$sel:idleSessionTTLInSeconds:PutBot' :: PutBot -> Maybe Natural
$sel:enableModelImprovements:PutBot' :: PutBot -> Maybe Bool
$sel:detectSentiment:PutBot' :: PutBot -> Maybe Bool
$sel:description:PutBot' :: PutBot -> Maybe Text
$sel:createVersion:PutBot' :: PutBot -> Maybe Bool
$sel:clarificationPrompt:PutBot' :: PutBot -> Maybe Prompt
$sel:checksum:PutBot' :: PutBot -> Maybe Text
$sel:abortStatement:PutBot' :: PutBot -> Maybe Statement
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Statement
abortStatement
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Prompt
clarificationPrompt
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 Bool
detectSentiment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableModelImprovements
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
idleSessionTTLInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Intent]
intents
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
nluIntentConfidenceThreshold
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProcessBehavior
processBehavior
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
voiceId
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Locale
locale
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
childDirected
instance Data.ToHeaders PutBot where
toHeaders :: PutBot -> 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 PutBot where
toJSON :: PutBot -> Value
toJSON PutBot' {Bool
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Intent]
Maybe [Tag]
Maybe Text
Maybe ProcessBehavior
Maybe Prompt
Maybe Statement
Text
Locale
childDirected :: Bool
locale :: Locale
name :: Text
voiceId :: Maybe Text
tags :: Maybe [Tag]
processBehavior :: Maybe ProcessBehavior
nluIntentConfidenceThreshold :: Maybe Double
intents :: Maybe [Intent]
idleSessionTTLInSeconds :: Maybe Natural
enableModelImprovements :: Maybe Bool
detectSentiment :: Maybe Bool
description :: Maybe Text
createVersion :: Maybe Bool
clarificationPrompt :: Maybe Prompt
checksum :: Maybe Text
abortStatement :: Maybe Statement
$sel:childDirected:PutBot' :: PutBot -> Bool
$sel:locale:PutBot' :: PutBot -> Locale
$sel:name:PutBot' :: PutBot -> Text
$sel:voiceId:PutBot' :: PutBot -> Maybe Text
$sel:tags:PutBot' :: PutBot -> Maybe [Tag]
$sel:processBehavior:PutBot' :: PutBot -> Maybe ProcessBehavior
$sel:nluIntentConfidenceThreshold:PutBot' :: PutBot -> Maybe Double
$sel:intents:PutBot' :: PutBot -> Maybe [Intent]
$sel:idleSessionTTLInSeconds:PutBot' :: PutBot -> Maybe Natural
$sel:enableModelImprovements:PutBot' :: PutBot -> Maybe Bool
$sel:detectSentiment:PutBot' :: PutBot -> Maybe Bool
$sel:description:PutBot' :: PutBot -> Maybe Text
$sel:createVersion:PutBot' :: PutBot -> Maybe Bool
$sel:clarificationPrompt:PutBot' :: PutBot -> Maybe Prompt
$sel:checksum:PutBot' :: PutBot -> Maybe Text
$sel:abortStatement:PutBot' :: PutBot -> Maybe Statement
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"abortStatement" 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
abortStatement,
(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
"clarificationPrompt" 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
clarificationPrompt,
(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
"detectSentiment" 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
detectSentiment,
(Key
"enableModelImprovements" 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
enableModelImprovements,
(Key
"idleSessionTTLInSeconds" 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 Natural
idleSessionTTLInSeconds,
(Key
"intents" 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 [Intent]
intents,
(Key
"nluIntentConfidenceThreshold" 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 Double
nluIntentConfidenceThreshold,
(Key
"processBehavior" 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 ProcessBehavior
processBehavior,
(Key
"tags" 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 [Tag]
tags,
(Key
"voiceId" 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
voiceId,
forall a. a -> Maybe a
Prelude.Just (Key
"locale" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Locale
locale),
forall a. a -> Maybe a
Prelude.Just
(Key
"childDirected" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Bool
childDirected)
]
)
instance Data.ToPath PutBot where
toPath :: PutBot -> ByteString
toPath PutBot' {Bool
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Intent]
Maybe [Tag]
Maybe Text
Maybe ProcessBehavior
Maybe Prompt
Maybe Statement
Text
Locale
childDirected :: Bool
locale :: Locale
name :: Text
voiceId :: Maybe Text
tags :: Maybe [Tag]
processBehavior :: Maybe ProcessBehavior
nluIntentConfidenceThreshold :: Maybe Double
intents :: Maybe [Intent]
idleSessionTTLInSeconds :: Maybe Natural
enableModelImprovements :: Maybe Bool
detectSentiment :: Maybe Bool
description :: Maybe Text
createVersion :: Maybe Bool
clarificationPrompt :: Maybe Prompt
checksum :: Maybe Text
abortStatement :: Maybe Statement
$sel:childDirected:PutBot' :: PutBot -> Bool
$sel:locale:PutBot' :: PutBot -> Locale
$sel:name:PutBot' :: PutBot -> Text
$sel:voiceId:PutBot' :: PutBot -> Maybe Text
$sel:tags:PutBot' :: PutBot -> Maybe [Tag]
$sel:processBehavior:PutBot' :: PutBot -> Maybe ProcessBehavior
$sel:nluIntentConfidenceThreshold:PutBot' :: PutBot -> Maybe Double
$sel:intents:PutBot' :: PutBot -> Maybe [Intent]
$sel:idleSessionTTLInSeconds:PutBot' :: PutBot -> Maybe Natural
$sel:enableModelImprovements:PutBot' :: PutBot -> Maybe Bool
$sel:detectSentiment:PutBot' :: PutBot -> Maybe Bool
$sel:description:PutBot' :: PutBot -> Maybe Text
$sel:createVersion:PutBot' :: PutBot -> Maybe Bool
$sel:clarificationPrompt:PutBot' :: PutBot -> Maybe Prompt
$sel:checksum:PutBot' :: PutBot -> Maybe Text
$sel:abortStatement:PutBot' :: PutBot -> Maybe Statement
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/bots/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
name, ByteString
"/versions/$LATEST"]
instance Data.ToQuery PutBot where
toQuery :: PutBot -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutBotResponse = PutBotResponse'
{
PutBotResponse -> Maybe Statement
abortStatement :: Prelude.Maybe Statement,
PutBotResponse -> Maybe Text
checksum :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Maybe Bool
childDirected :: Prelude.Maybe Prelude.Bool,
PutBotResponse -> Maybe Prompt
clarificationPrompt :: Prelude.Maybe Prompt,
PutBotResponse -> Maybe Bool
createVersion :: Prelude.Maybe Prelude.Bool,
PutBotResponse -> Maybe POSIX
createdDate :: Prelude.Maybe Data.POSIX,
PutBotResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Maybe Bool
detectSentiment :: Prelude.Maybe Prelude.Bool,
PutBotResponse -> Maybe Bool
enableModelImprovements :: Prelude.Maybe Prelude.Bool,
PutBotResponse -> Maybe Text
failureReason :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Maybe Natural
idleSessionTTLInSeconds :: Prelude.Maybe Prelude.Natural,
PutBotResponse -> Maybe [Intent]
intents :: Prelude.Maybe [Intent],
PutBotResponse -> Maybe POSIX
lastUpdatedDate :: Prelude.Maybe Data.POSIX,
PutBotResponse -> Maybe Locale
locale :: Prelude.Maybe Locale,
PutBotResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Maybe Double
nluIntentConfidenceThreshold :: Prelude.Maybe Prelude.Double,
PutBotResponse -> Maybe LexStatus
status :: Prelude.Maybe LexStatus,
PutBotResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
PutBotResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Maybe Text
voiceId :: Prelude.Maybe Prelude.Text,
PutBotResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutBotResponse -> PutBotResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBotResponse -> PutBotResponse -> Bool
$c/= :: PutBotResponse -> PutBotResponse -> Bool
== :: PutBotResponse -> PutBotResponse -> Bool
$c== :: PutBotResponse -> PutBotResponse -> Bool
Prelude.Eq, ReadPrec [PutBotResponse]
ReadPrec PutBotResponse
Int -> ReadS PutBotResponse
ReadS [PutBotResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBotResponse]
$creadListPrec :: ReadPrec [PutBotResponse]
readPrec :: ReadPrec PutBotResponse
$creadPrec :: ReadPrec PutBotResponse
readList :: ReadS [PutBotResponse]
$creadList :: ReadS [PutBotResponse]
readsPrec :: Int -> ReadS PutBotResponse
$creadsPrec :: Int -> ReadS PutBotResponse
Prelude.Read, Int -> PutBotResponse -> ShowS
[PutBotResponse] -> ShowS
PutBotResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBotResponse] -> ShowS
$cshowList :: [PutBotResponse] -> ShowS
show :: PutBotResponse -> String
$cshow :: PutBotResponse -> String
showsPrec :: Int -> PutBotResponse -> ShowS
$cshowsPrec :: Int -> PutBotResponse -> ShowS
Prelude.Show, forall x. Rep PutBotResponse x -> PutBotResponse
forall x. PutBotResponse -> Rep PutBotResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutBotResponse x -> PutBotResponse
$cfrom :: forall x. PutBotResponse -> Rep PutBotResponse x
Prelude.Generic)
newPutBotResponse ::
Prelude.Int ->
PutBotResponse
newPutBotResponse :: Int -> PutBotResponse
newPutBotResponse Int
pHttpStatus_ =
PutBotResponse'
{ $sel:abortStatement:PutBotResponse' :: Maybe Statement
abortStatement = forall a. Maybe a
Prelude.Nothing,
$sel:checksum:PutBotResponse' :: Maybe Text
checksum = forall a. Maybe a
Prelude.Nothing,
$sel:childDirected:PutBotResponse' :: Maybe Bool
childDirected = forall a. Maybe a
Prelude.Nothing,
$sel:clarificationPrompt:PutBotResponse' :: Maybe Prompt
clarificationPrompt = forall a. Maybe a
Prelude.Nothing,
$sel:createVersion:PutBotResponse' :: Maybe Bool
createVersion = forall a. Maybe a
Prelude.Nothing,
$sel:createdDate:PutBotResponse' :: Maybe POSIX
createdDate = forall a. Maybe a
Prelude.Nothing,
$sel:description:PutBotResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:detectSentiment:PutBotResponse' :: Maybe Bool
detectSentiment = forall a. Maybe a
Prelude.Nothing,
$sel:enableModelImprovements:PutBotResponse' :: Maybe Bool
enableModelImprovements = forall a. Maybe a
Prelude.Nothing,
$sel:failureReason:PutBotResponse' :: Maybe Text
failureReason = forall a. Maybe a
Prelude.Nothing,
$sel:idleSessionTTLInSeconds:PutBotResponse' :: Maybe Natural
idleSessionTTLInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:intents:PutBotResponse' :: Maybe [Intent]
intents = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedDate:PutBotResponse' :: Maybe POSIX
lastUpdatedDate = forall a. Maybe a
Prelude.Nothing,
$sel:locale:PutBotResponse' :: Maybe Locale
locale = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutBotResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:nluIntentConfidenceThreshold:PutBotResponse' :: Maybe Double
nluIntentConfidenceThreshold = forall a. Maybe a
Prelude.Nothing,
$sel:status:PutBotResponse' :: Maybe LexStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutBotResponse' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:version:PutBotResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:voiceId:PutBotResponse' :: Maybe Text
voiceId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutBotResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putBotResponse_abortStatement :: Lens.Lens' PutBotResponse (Prelude.Maybe Statement)
putBotResponse_abortStatement :: Lens' PutBotResponse (Maybe Statement)
putBotResponse_abortStatement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Statement
abortStatement :: Maybe Statement
$sel:abortStatement:PutBotResponse' :: PutBotResponse -> Maybe Statement
abortStatement} -> Maybe Statement
abortStatement) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Statement
a -> PutBotResponse
s {$sel:abortStatement:PutBotResponse' :: Maybe Statement
abortStatement = Maybe Statement
a} :: PutBotResponse)
putBotResponse_checksum :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_checksum :: Lens' PutBotResponse (Maybe Text)
putBotResponse_checksum = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
checksum :: Maybe Text
$sel:checksum:PutBotResponse' :: PutBotResponse -> Maybe Text
checksum} -> Maybe Text
checksum) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:checksum:PutBotResponse' :: Maybe Text
checksum = Maybe Text
a} :: PutBotResponse)
putBotResponse_childDirected :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Bool)
putBotResponse_childDirected :: Lens' PutBotResponse (Maybe Bool)
putBotResponse_childDirected = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Bool
childDirected :: Maybe Bool
$sel:childDirected:PutBotResponse' :: PutBotResponse -> Maybe Bool
childDirected} -> Maybe Bool
childDirected) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Bool
a -> PutBotResponse
s {$sel:childDirected:PutBotResponse' :: Maybe Bool
childDirected = Maybe Bool
a} :: PutBotResponse)
putBotResponse_clarificationPrompt :: Lens.Lens' PutBotResponse (Prelude.Maybe Prompt)
putBotResponse_clarificationPrompt :: Lens' PutBotResponse (Maybe Prompt)
putBotResponse_clarificationPrompt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Prompt
clarificationPrompt :: Maybe Prompt
$sel:clarificationPrompt:PutBotResponse' :: PutBotResponse -> Maybe Prompt
clarificationPrompt} -> Maybe Prompt
clarificationPrompt) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Prompt
a -> PutBotResponse
s {$sel:clarificationPrompt:PutBotResponse' :: Maybe Prompt
clarificationPrompt = Maybe Prompt
a} :: PutBotResponse)
putBotResponse_createVersion :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Bool)
putBotResponse_createVersion :: Lens' PutBotResponse (Maybe Bool)
putBotResponse_createVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Bool
createVersion :: Maybe Bool
$sel:createVersion:PutBotResponse' :: PutBotResponse -> Maybe Bool
createVersion} -> Maybe Bool
createVersion) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Bool
a -> PutBotResponse
s {$sel:createVersion:PutBotResponse' :: Maybe Bool
createVersion = Maybe Bool
a} :: PutBotResponse)
putBotResponse_createdDate :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.UTCTime)
putBotResponse_createdDate :: Lens' PutBotResponse (Maybe UTCTime)
putBotResponse_createdDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe POSIX
createdDate :: Maybe POSIX
$sel:createdDate:PutBotResponse' :: PutBotResponse -> Maybe POSIX
createdDate} -> Maybe POSIX
createdDate) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe POSIX
a -> PutBotResponse
s {$sel:createdDate:PutBotResponse' :: Maybe POSIX
createdDate = Maybe POSIX
a} :: PutBotResponse) 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
putBotResponse_description :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_description :: Lens' PutBotResponse (Maybe Text)
putBotResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
description :: Maybe Text
$sel:description:PutBotResponse' :: PutBotResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:description:PutBotResponse' :: Maybe Text
description = Maybe Text
a} :: PutBotResponse)
putBotResponse_detectSentiment :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Bool)
putBotResponse_detectSentiment :: Lens' PutBotResponse (Maybe Bool)
putBotResponse_detectSentiment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Bool
detectSentiment :: Maybe Bool
$sel:detectSentiment:PutBotResponse' :: PutBotResponse -> Maybe Bool
detectSentiment} -> Maybe Bool
detectSentiment) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Bool
a -> PutBotResponse
s {$sel:detectSentiment:PutBotResponse' :: Maybe Bool
detectSentiment = Maybe Bool
a} :: PutBotResponse)
putBotResponse_enableModelImprovements :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Bool)
putBotResponse_enableModelImprovements :: Lens' PutBotResponse (Maybe Bool)
putBotResponse_enableModelImprovements = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Bool
enableModelImprovements :: Maybe Bool
$sel:enableModelImprovements:PutBotResponse' :: PutBotResponse -> Maybe Bool
enableModelImprovements} -> Maybe Bool
enableModelImprovements) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Bool
a -> PutBotResponse
s {$sel:enableModelImprovements:PutBotResponse' :: Maybe Bool
enableModelImprovements = Maybe Bool
a} :: PutBotResponse)
putBotResponse_failureReason :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_failureReason :: Lens' PutBotResponse (Maybe Text)
putBotResponse_failureReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
failureReason :: Maybe Text
$sel:failureReason:PutBotResponse' :: PutBotResponse -> Maybe Text
failureReason} -> Maybe Text
failureReason) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:failureReason:PutBotResponse' :: Maybe Text
failureReason = Maybe Text
a} :: PutBotResponse)
putBotResponse_idleSessionTTLInSeconds :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Natural)
putBotResponse_idleSessionTTLInSeconds :: Lens' PutBotResponse (Maybe Natural)
putBotResponse_idleSessionTTLInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Natural
idleSessionTTLInSeconds :: Maybe Natural
$sel:idleSessionTTLInSeconds:PutBotResponse' :: PutBotResponse -> Maybe Natural
idleSessionTTLInSeconds} -> Maybe Natural
idleSessionTTLInSeconds) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Natural
a -> PutBotResponse
s {$sel:idleSessionTTLInSeconds:PutBotResponse' :: Maybe Natural
idleSessionTTLInSeconds = Maybe Natural
a} :: PutBotResponse)
putBotResponse_intents :: Lens.Lens' PutBotResponse (Prelude.Maybe [Intent])
putBotResponse_intents :: Lens' PutBotResponse (Maybe [Intent])
putBotResponse_intents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe [Intent]
intents :: Maybe [Intent]
$sel:intents:PutBotResponse' :: PutBotResponse -> Maybe [Intent]
intents} -> Maybe [Intent]
intents) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe [Intent]
a -> PutBotResponse
s {$sel:intents:PutBotResponse' :: Maybe [Intent]
intents = Maybe [Intent]
a} :: PutBotResponse) 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
putBotResponse_lastUpdatedDate :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.UTCTime)
putBotResponse_lastUpdatedDate :: Lens' PutBotResponse (Maybe UTCTime)
putBotResponse_lastUpdatedDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe POSIX
lastUpdatedDate :: Maybe POSIX
$sel:lastUpdatedDate:PutBotResponse' :: PutBotResponse -> Maybe POSIX
lastUpdatedDate} -> Maybe POSIX
lastUpdatedDate) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe POSIX
a -> PutBotResponse
s {$sel:lastUpdatedDate:PutBotResponse' :: Maybe POSIX
lastUpdatedDate = Maybe POSIX
a} :: PutBotResponse) 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
putBotResponse_locale :: Lens.Lens' PutBotResponse (Prelude.Maybe Locale)
putBotResponse_locale :: Lens' PutBotResponse (Maybe Locale)
putBotResponse_locale = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Locale
locale :: Maybe Locale
$sel:locale:PutBotResponse' :: PutBotResponse -> Maybe Locale
locale} -> Maybe Locale
locale) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Locale
a -> PutBotResponse
s {$sel:locale:PutBotResponse' :: Maybe Locale
locale = Maybe Locale
a} :: PutBotResponse)
putBotResponse_name :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_name :: Lens' PutBotResponse (Maybe Text)
putBotResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
name :: Maybe Text
$sel:name:PutBotResponse' :: PutBotResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:name:PutBotResponse' :: Maybe Text
name = Maybe Text
a} :: PutBotResponse)
putBotResponse_nluIntentConfidenceThreshold :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Double)
putBotResponse_nluIntentConfidenceThreshold :: Lens' PutBotResponse (Maybe Double)
putBotResponse_nluIntentConfidenceThreshold = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Double
nluIntentConfidenceThreshold :: Maybe Double
$sel:nluIntentConfidenceThreshold:PutBotResponse' :: PutBotResponse -> Maybe Double
nluIntentConfidenceThreshold} -> Maybe Double
nluIntentConfidenceThreshold) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Double
a -> PutBotResponse
s {$sel:nluIntentConfidenceThreshold:PutBotResponse' :: Maybe Double
nluIntentConfidenceThreshold = Maybe Double
a} :: PutBotResponse)
putBotResponse_status :: Lens.Lens' PutBotResponse (Prelude.Maybe LexStatus)
putBotResponse_status :: Lens' PutBotResponse (Maybe LexStatus)
putBotResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe LexStatus
status :: Maybe LexStatus
$sel:status:PutBotResponse' :: PutBotResponse -> Maybe LexStatus
status} -> Maybe LexStatus
status) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe LexStatus
a -> PutBotResponse
s {$sel:status:PutBotResponse' :: Maybe LexStatus
status = Maybe LexStatus
a} :: PutBotResponse)
putBotResponse_tags :: Lens.Lens' PutBotResponse (Prelude.Maybe [Tag])
putBotResponse_tags :: Lens' PutBotResponse (Maybe [Tag])
putBotResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:PutBotResponse' :: PutBotResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe [Tag]
a -> PutBotResponse
s {$sel:tags:PutBotResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: PutBotResponse) 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
putBotResponse_version :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_version :: Lens' PutBotResponse (Maybe Text)
putBotResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
version :: Maybe Text
$sel:version:PutBotResponse' :: PutBotResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:version:PutBotResponse' :: Maybe Text
version = Maybe Text
a} :: PutBotResponse)
putBotResponse_voiceId :: Lens.Lens' PutBotResponse (Prelude.Maybe Prelude.Text)
putBotResponse_voiceId :: Lens' PutBotResponse (Maybe Text)
putBotResponse_voiceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Maybe Text
voiceId :: Maybe Text
$sel:voiceId:PutBotResponse' :: PutBotResponse -> Maybe Text
voiceId} -> Maybe Text
voiceId) (\s :: PutBotResponse
s@PutBotResponse' {} Maybe Text
a -> PutBotResponse
s {$sel:voiceId:PutBotResponse' :: Maybe Text
voiceId = Maybe Text
a} :: PutBotResponse)
putBotResponse_httpStatus :: Lens.Lens' PutBotResponse Prelude.Int
putBotResponse_httpStatus :: Lens' PutBotResponse Int
putBotResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBotResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutBotResponse' :: PutBotResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutBotResponse
s@PutBotResponse' {} Int
a -> PutBotResponse
s {$sel:httpStatus:PutBotResponse' :: Int
httpStatus = Int
a} :: PutBotResponse)
instance Prelude.NFData PutBotResponse where
rnf :: PutBotResponse -> ()
rnf PutBotResponse' {Int
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Intent]
Maybe [Tag]
Maybe Text
Maybe POSIX
Maybe LexStatus
Maybe Locale
Maybe Prompt
Maybe Statement
httpStatus :: Int
voiceId :: Maybe Text
version :: Maybe Text
tags :: Maybe [Tag]
status :: Maybe LexStatus
nluIntentConfidenceThreshold :: Maybe Double
name :: Maybe Text
locale :: Maybe Locale
lastUpdatedDate :: Maybe POSIX
intents :: Maybe [Intent]
idleSessionTTLInSeconds :: Maybe Natural
failureReason :: Maybe Text
enableModelImprovements :: Maybe Bool
detectSentiment :: Maybe Bool
description :: Maybe Text
createdDate :: Maybe POSIX
createVersion :: Maybe Bool
clarificationPrompt :: Maybe Prompt
childDirected :: Maybe Bool
checksum :: Maybe Text
abortStatement :: Maybe Statement
$sel:httpStatus:PutBotResponse' :: PutBotResponse -> Int
$sel:voiceId:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:version:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:tags:PutBotResponse' :: PutBotResponse -> Maybe [Tag]
$sel:status:PutBotResponse' :: PutBotResponse -> Maybe LexStatus
$sel:nluIntentConfidenceThreshold:PutBotResponse' :: PutBotResponse -> Maybe Double
$sel:name:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:locale:PutBotResponse' :: PutBotResponse -> Maybe Locale
$sel:lastUpdatedDate:PutBotResponse' :: PutBotResponse -> Maybe POSIX
$sel:intents:PutBotResponse' :: PutBotResponse -> Maybe [Intent]
$sel:idleSessionTTLInSeconds:PutBotResponse' :: PutBotResponse -> Maybe Natural
$sel:failureReason:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:enableModelImprovements:PutBotResponse' :: PutBotResponse -> Maybe Bool
$sel:detectSentiment:PutBotResponse' :: PutBotResponse -> Maybe Bool
$sel:description:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:createdDate:PutBotResponse' :: PutBotResponse -> Maybe POSIX
$sel:createVersion:PutBotResponse' :: PutBotResponse -> Maybe Bool
$sel:clarificationPrompt:PutBotResponse' :: PutBotResponse -> Maybe Prompt
$sel:childDirected:PutBotResponse' :: PutBotResponse -> Maybe Bool
$sel:checksum:PutBotResponse' :: PutBotResponse -> Maybe Text
$sel:abortStatement:PutBotResponse' :: PutBotResponse -> Maybe Statement
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Statement
abortStatement
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Bool
childDirected
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Prompt
clarificationPrompt
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 Bool
detectSentiment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableModelImprovements
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
failureReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
idleSessionTTLInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Intent]
intents
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 Locale
locale
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 Double
nluIntentConfidenceThreshold
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LexStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
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 Maybe Text
voiceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus