{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.DialogFlow.Types.Product where
import Network.Google.DialogFlow.Types.Sum
import Network.Google.Prelude
data GoogleRpcStatus =
GoogleRpcStatus'
{ _grsDetails :: !(Maybe [GoogleRpcStatusDetailsItem])
, _grsCode :: !(Maybe (Textual Int32))
, _grsMessage :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleRpcStatus
:: GoogleRpcStatus
googleRpcStatus =
GoogleRpcStatus'
{_grsDetails = Nothing, _grsCode = Nothing, _grsMessage = Nothing}
grsDetails :: Lens' GoogleRpcStatus [GoogleRpcStatusDetailsItem]
grsDetails
= lens _grsDetails (\ s a -> s{_grsDetails = a}) .
_Default
. _Coerce
grsCode :: Lens' GoogleRpcStatus (Maybe Int32)
grsCode
= lens _grsCode (\ s a -> s{_grsCode = a}) .
mapping _Coerce
grsMessage :: Lens' GoogleRpcStatus (Maybe Text)
grsMessage
= lens _grsMessage (\ s a -> s{_grsMessage = a})
instance FromJSON GoogleRpcStatus where
parseJSON
= withObject "GoogleRpcStatus"
(\ o ->
GoogleRpcStatus' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON GoogleRpcStatus where
toJSON GoogleRpcStatus'{..}
= object
(catMaybes
[("details" .=) <$> _grsDetails,
("code" .=) <$> _grsCode,
("message" .=) <$> _grsMessage])
data GoogleCloudDialogflowV2IntentFollowupIntentInfo =
GoogleCloudDialogflowV2IntentFollowupIntentInfo'
{ _gcdvifiiFollowupIntentName :: !(Maybe Text)
, _gcdvifiiParentFollowupIntentName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentFollowupIntentInfo
:: GoogleCloudDialogflowV2IntentFollowupIntentInfo
googleCloudDialogflowV2IntentFollowupIntentInfo =
GoogleCloudDialogflowV2IntentFollowupIntentInfo'
{ _gcdvifiiFollowupIntentName = Nothing
, _gcdvifiiParentFollowupIntentName = Nothing
}
gcdvifiiFollowupIntentName :: Lens' GoogleCloudDialogflowV2IntentFollowupIntentInfo (Maybe Text)
gcdvifiiFollowupIntentName
= lens _gcdvifiiFollowupIntentName
(\ s a -> s{_gcdvifiiFollowupIntentName = a})
gcdvifiiParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2IntentFollowupIntentInfo (Maybe Text)
gcdvifiiParentFollowupIntentName
= lens _gcdvifiiParentFollowupIntentName
(\ s a -> s{_gcdvifiiParentFollowupIntentName = a})
instance FromJSON
GoogleCloudDialogflowV2IntentFollowupIntentInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentFollowupIntentInfo"
(\ o ->
GoogleCloudDialogflowV2IntentFollowupIntentInfo' <$>
(o .:? "followupIntentName") <*>
(o .:? "parentFollowupIntentName"))
instance ToJSON
GoogleCloudDialogflowV2IntentFollowupIntentInfo
where
toJSON
GoogleCloudDialogflowV2IntentFollowupIntentInfo'{..}
= object
(catMaybes
[("followupIntentName" .=) <$>
_gcdvifiiFollowupIntentName,
("parentFollowupIntentName" .=) <$>
_gcdvifiiParentFollowupIntentName])
newtype GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses =
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses'
{ _gcdvimsrSimpleResponses :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageSimpleResponses
:: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses
googleCloudDialogflowV2beta1IntentMessageSimpleResponses =
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses'
{_gcdvimsrSimpleResponses = Nothing}
gcdvimsrSimpleResponses :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses [GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse]
gcdvimsrSimpleResponses
= lens _gcdvimsrSimpleResponses
(\ s a -> s{_gcdvimsrSimpleResponses = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses'
<$> (o .:? "simpleResponses" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses'{..}
= object
(catMaybes
[("simpleResponses" .=) <$>
_gcdvimsrSimpleResponses])
data GoogleCloudDialogflowV2SynthesizeSpeechConfig =
GoogleCloudDialogflowV2SynthesizeSpeechConfig'
{ _gcdvsscVolumeGainDB :: !(Maybe (Textual Double))
, _gcdvsscEffectsProFileId :: !(Maybe [Text])
, _gcdvsscVoice :: !(Maybe GoogleCloudDialogflowV2VoiceSelectionParams)
, _gcdvsscSpeakingRate :: !(Maybe (Textual Double))
, _gcdvsscPitch :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2SynthesizeSpeechConfig
:: GoogleCloudDialogflowV2SynthesizeSpeechConfig
googleCloudDialogflowV2SynthesizeSpeechConfig =
GoogleCloudDialogflowV2SynthesizeSpeechConfig'
{ _gcdvsscVolumeGainDB = Nothing
, _gcdvsscEffectsProFileId = Nothing
, _gcdvsscVoice = Nothing
, _gcdvsscSpeakingRate = Nothing
, _gcdvsscPitch = Nothing
}
gcdvsscVolumeGainDB :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe Double)
gcdvsscVolumeGainDB
= lens _gcdvsscVolumeGainDB
(\ s a -> s{_gcdvsscVolumeGainDB = a})
. mapping _Coerce
gcdvsscEffectsProFileId :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig [Text]
gcdvsscEffectsProFileId
= lens _gcdvsscEffectsProFileId
(\ s a -> s{_gcdvsscEffectsProFileId = a})
. _Default
. _Coerce
gcdvsscVoice :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe GoogleCloudDialogflowV2VoiceSelectionParams)
gcdvsscVoice
= lens _gcdvsscVoice (\ s a -> s{_gcdvsscVoice = a})
gcdvsscSpeakingRate :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe Double)
gcdvsscSpeakingRate
= lens _gcdvsscSpeakingRate
(\ s a -> s{_gcdvsscSpeakingRate = a})
. mapping _Coerce
gcdvsscPitch :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe Double)
gcdvsscPitch
= lens _gcdvsscPitch (\ s a -> s{_gcdvsscPitch = a})
. mapping _Coerce
instance FromJSON
GoogleCloudDialogflowV2SynthesizeSpeechConfig
where
parseJSON
= withObject
"GoogleCloudDialogflowV2SynthesizeSpeechConfig"
(\ o ->
GoogleCloudDialogflowV2SynthesizeSpeechConfig' <$>
(o .:? "volumeGainDb") <*>
(o .:? "effectsProfileId" .!= mempty)
<*> (o .:? "voice")
<*> (o .:? "speakingRate")
<*> (o .:? "pitch"))
instance ToJSON
GoogleCloudDialogflowV2SynthesizeSpeechConfig
where
toJSON
GoogleCloudDialogflowV2SynthesizeSpeechConfig'{..}
= object
(catMaybes
[("volumeGainDb" .=) <$> _gcdvsscVolumeGainDB,
("effectsProfileId" .=) <$> _gcdvsscEffectsProFileId,
("voice" .=) <$> _gcdvsscVoice,
("speakingRate" .=) <$> _gcdvsscSpeakingRate,
("pitch" .=) <$> _gcdvsscPitch])
data GoogleCloudDialogflowV2InputAudioConfig =
GoogleCloudDialogflowV2InputAudioConfig'
{ _gcdviacLanguageCode :: !(Maybe Text)
, _gcdviacPhraseHints :: !(Maybe [Text])
, _gcdviacSampleRateHertz :: !(Maybe (Textual Int32))
, _gcdviacModelVariant :: !(Maybe GoogleCloudDialogflowV2InputAudioConfigModelVariant)
, _gcdviacAudioEncoding :: !(Maybe GoogleCloudDialogflowV2InputAudioConfigAudioEncoding)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2InputAudioConfig
:: GoogleCloudDialogflowV2InputAudioConfig
googleCloudDialogflowV2InputAudioConfig =
GoogleCloudDialogflowV2InputAudioConfig'
{ _gcdviacLanguageCode = Nothing
, _gcdviacPhraseHints = Nothing
, _gcdviacSampleRateHertz = Nothing
, _gcdviacModelVariant = Nothing
, _gcdviacAudioEncoding = Nothing
}
gcdviacLanguageCode :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Text)
gcdviacLanguageCode
= lens _gcdviacLanguageCode
(\ s a -> s{_gcdviacLanguageCode = a})
gcdviacPhraseHints :: Lens' GoogleCloudDialogflowV2InputAudioConfig [Text]
gcdviacPhraseHints
= lens _gcdviacPhraseHints
(\ s a -> s{_gcdviacPhraseHints = a})
. _Default
. _Coerce
gcdviacSampleRateHertz :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Int32)
gcdviacSampleRateHertz
= lens _gcdviacSampleRateHertz
(\ s a -> s{_gcdviacSampleRateHertz = a})
. mapping _Coerce
gcdviacModelVariant :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe GoogleCloudDialogflowV2InputAudioConfigModelVariant)
gcdviacModelVariant
= lens _gcdviacModelVariant
(\ s a -> s{_gcdviacModelVariant = a})
gcdviacAudioEncoding :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe GoogleCloudDialogflowV2InputAudioConfigAudioEncoding)
gcdviacAudioEncoding
= lens _gcdviacAudioEncoding
(\ s a -> s{_gcdviacAudioEncoding = a})
instance FromJSON
GoogleCloudDialogflowV2InputAudioConfig
where
parseJSON
= withObject
"GoogleCloudDialogflowV2InputAudioConfig"
(\ o ->
GoogleCloudDialogflowV2InputAudioConfig' <$>
(o .:? "languageCode") <*>
(o .:? "phraseHints" .!= mempty)
<*> (o .:? "sampleRateHertz")
<*> (o .:? "modelVariant")
<*> (o .:? "audioEncoding"))
instance ToJSON
GoogleCloudDialogflowV2InputAudioConfig
where
toJSON GoogleCloudDialogflowV2InputAudioConfig'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdviacLanguageCode,
("phraseHints" .=) <$> _gcdviacPhraseHints,
("sampleRateHertz" .=) <$> _gcdviacSampleRateHertz,
("modelVariant" .=) <$> _gcdviacModelVariant,
("audioEncoding" .=) <$> _gcdviacAudioEncoding])
newtype GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse =
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse'
{ _gcdvbuirIntents :: Maybe [GoogleCloudDialogflowV2beta1Intent]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1BatchUpdateIntentsResponse
:: GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse
googleCloudDialogflowV2beta1BatchUpdateIntentsResponse =
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse'
{_gcdvbuirIntents = Nothing}
gcdvbuirIntents :: Lens' GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse [GoogleCloudDialogflowV2beta1Intent]
gcdvbuirIntents
= lens _gcdvbuirIntents
(\ s a -> s{_gcdvbuirIntents = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse"
(\ o ->
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse'
<$> (o .:? "intents" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse
where
toJSON
GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse'{..}
= object
(catMaybes [("intents" .=) <$> _gcdvbuirIntents])
newtype GoogleCloudDialogflowV2beta1IntentMessagePayload =
GoogleCloudDialogflowV2beta1IntentMessagePayload'
{ _gcdvimpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessagePayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1IntentMessagePayload
googleCloudDialogflowV2beta1IntentMessagePayload pGcdvimpAddtional_ =
GoogleCloudDialogflowV2beta1IntentMessagePayload'
{_gcdvimpAddtional = _Coerce # pGcdvimpAddtional_}
gcdvimpAddtional :: Lens' GoogleCloudDialogflowV2beta1IntentMessagePayload (HashMap Text JSONValue)
gcdvimpAddtional
= lens _gcdvimpAddtional
(\ s a -> s{_gcdvimpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessagePayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessagePayload"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessagePayload' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessagePayload
where
toJSON = toJSON . _gcdvimpAddtional
data GoogleCloudDialogflowV2WebhookRequest =
GoogleCloudDialogflowV2WebhookRequest'
{ _gcdvwrOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest)
, _gcdvwrResponseId :: !(Maybe Text)
, _gcdvwrQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult)
, _gcdvwrSession :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2WebhookRequest
:: GoogleCloudDialogflowV2WebhookRequest
googleCloudDialogflowV2WebhookRequest =
GoogleCloudDialogflowV2WebhookRequest'
{ _gcdvwrOriginalDetectIntentRequest = Nothing
, _gcdvwrResponseId = Nothing
, _gcdvwrQueryResult = Nothing
, _gcdvwrSession = Nothing
}
gcdvwrOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest)
gcdvwrOriginalDetectIntentRequest
= lens _gcdvwrOriginalDetectIntentRequest
(\ s a -> s{_gcdvwrOriginalDetectIntentRequest = a})
gcdvwrResponseId :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe Text)
gcdvwrResponseId
= lens _gcdvwrResponseId
(\ s a -> s{_gcdvwrResponseId = a})
gcdvwrQueryResult :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2QueryResult)
gcdvwrQueryResult
= lens _gcdvwrQueryResult
(\ s a -> s{_gcdvwrQueryResult = a})
gcdvwrSession :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe Text)
gcdvwrSession
= lens _gcdvwrSession
(\ s a -> s{_gcdvwrSession = a})
instance FromJSON
GoogleCloudDialogflowV2WebhookRequest
where
parseJSON
= withObject "GoogleCloudDialogflowV2WebhookRequest"
(\ o ->
GoogleCloudDialogflowV2WebhookRequest' <$>
(o .:? "originalDetectIntentRequest") <*>
(o .:? "responseId")
<*> (o .:? "queryResult")
<*> (o .:? "session"))
instance ToJSON GoogleCloudDialogflowV2WebhookRequest
where
toJSON GoogleCloudDialogflowV2WebhookRequest'{..}
= object
(catMaybes
[("originalDetectIntentRequest" .=) <$>
_gcdvwrOriginalDetectIntentRequest,
("responseId" .=) <$> _gcdvwrResponseId,
("queryResult" .=) <$> _gcdvwrQueryResult,
("session" .=) <$> _gcdvwrSession])
data GoogleCloudDialogflowV2IntentMessageCarouselSelectItem =
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem'
{ _gcdvimcsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage)
, _gcdvimcsiTitle :: !(Maybe Text)
, _gcdvimcsiDescription :: !(Maybe Text)
, _gcdvimcsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageCarouselSelectItem
:: GoogleCloudDialogflowV2IntentMessageCarouselSelectItem
googleCloudDialogflowV2IntentMessageCarouselSelectItem =
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem'
{ _gcdvimcsiImage = Nothing
, _gcdvimcsiTitle = Nothing
, _gcdvimcsiDescription = Nothing
, _gcdvimcsiInfo = Nothing
}
gcdvimcsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage)
gcdvimcsiImage
= lens _gcdvimcsiImage
(\ s a -> s{_gcdvimcsiImage = a})
gcdvimcsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text)
gcdvimcsiTitle
= lens _gcdvimcsiTitle
(\ s a -> s{_gcdvimcsiTitle = a})
gcdvimcsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text)
gcdvimcsiDescription
= lens _gcdvimcsiDescription
(\ s a -> s{_gcdvimcsiDescription = a})
gcdvimcsiInfo :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo)
gcdvimcsiInfo
= lens _gcdvimcsiInfo
(\ s a -> s{_gcdvimcsiInfo = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageCarouselSelectItem"
(\ o ->
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem'
<$>
(o .:? "image") <*> (o .:? "title") <*>
(o .:? "description")
<*> (o .:? "info"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem
where
toJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelectItem'{..}
= object
(catMaybes
[("image" .=) <$> _gcdvimcsiImage,
("title" .=) <$> _gcdvimcsiTitle,
("description" .=) <$> _gcdvimcsiDescription,
("info" .=) <$> _gcdvimcsiInfo])
data GoogleCloudDialogflowV2EventInput =
GoogleCloudDialogflowV2EventInput'
{ _gcdveiLanguageCode :: !(Maybe Text)
, _gcdveiName :: !(Maybe Text)
, _gcdveiParameters :: !(Maybe GoogleCloudDialogflowV2EventInputParameters)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2EventInput
:: GoogleCloudDialogflowV2EventInput
googleCloudDialogflowV2EventInput =
GoogleCloudDialogflowV2EventInput'
{ _gcdveiLanguageCode = Nothing
, _gcdveiName = Nothing
, _gcdveiParameters = Nothing
}
gcdveiLanguageCode :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text)
gcdveiLanguageCode
= lens _gcdveiLanguageCode
(\ s a -> s{_gcdveiLanguageCode = a})
gcdveiName :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text)
gcdveiName
= lens _gcdveiName (\ s a -> s{_gcdveiName = a})
gcdveiParameters :: Lens' GoogleCloudDialogflowV2EventInput (Maybe GoogleCloudDialogflowV2EventInputParameters)
gcdveiParameters
= lens _gcdveiParameters
(\ s a -> s{_gcdveiParameters = a})
instance FromJSON GoogleCloudDialogflowV2EventInput
where
parseJSON
= withObject "GoogleCloudDialogflowV2EventInput"
(\ o ->
GoogleCloudDialogflowV2EventInput' <$>
(o .:? "languageCode") <*> (o .:? "name") <*>
(o .:? "parameters"))
instance ToJSON GoogleCloudDialogflowV2EventInput
where
toJSON GoogleCloudDialogflowV2EventInput'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdveiLanguageCode,
("name" .=) <$> _gcdveiName,
("parameters" .=) <$> _gcdveiParameters])
data GoogleCloudDialogflowV2IntentMessageSimpleResponse =
GoogleCloudDialogflowV2IntentMessageSimpleResponse'
{ _gcdvimsrDisplayText :: !(Maybe Text)
, _gcdvimsrSsml :: !(Maybe Text)
, _gcdvimsrTextToSpeech :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageSimpleResponse
:: GoogleCloudDialogflowV2IntentMessageSimpleResponse
googleCloudDialogflowV2IntentMessageSimpleResponse =
GoogleCloudDialogflowV2IntentMessageSimpleResponse'
{ _gcdvimsrDisplayText = Nothing
, _gcdvimsrSsml = Nothing
, _gcdvimsrTextToSpeech = Nothing
}
gcdvimsrDisplayText :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text)
gcdvimsrDisplayText
= lens _gcdvimsrDisplayText
(\ s a -> s{_gcdvimsrDisplayText = a})
gcdvimsrSsml :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text)
gcdvimsrSsml
= lens _gcdvimsrSsml (\ s a -> s{_gcdvimsrSsml = a})
gcdvimsrTextToSpeech :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text)
gcdvimsrTextToSpeech
= lens _gcdvimsrTextToSpeech
(\ s a -> s{_gcdvimsrTextToSpeech = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageSimpleResponse"
(\ o ->
GoogleCloudDialogflowV2IntentMessageSimpleResponse'
<$>
(o .:? "displayText") <*> (o .:? "ssml") <*>
(o .:? "textToSpeech"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponse
where
toJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponse'{..}
= object
(catMaybes
[("displayText" .=) <$> _gcdvimsrDisplayText,
("ssml" .=) <$> _gcdvimsrSsml,
("textToSpeech" .=) <$> _gcdvimsrTextToSpeech])
newtype GoogleLongrunningOperationMetadata =
GoogleLongrunningOperationMetadata'
{ _glomAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperationMetadata
:: HashMap Text JSONValue
-> GoogleLongrunningOperationMetadata
googleLongrunningOperationMetadata pGlomAddtional_ =
GoogleLongrunningOperationMetadata'
{_glomAddtional = _Coerce # pGlomAddtional_}
glomAddtional :: Lens' GoogleLongrunningOperationMetadata (HashMap Text JSONValue)
glomAddtional
= lens _glomAddtional
(\ s a -> s{_glomAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationMetadata
where
parseJSON
= withObject "GoogleLongrunningOperationMetadata"
(\ o ->
GoogleLongrunningOperationMetadata' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationMetadata
where
toJSON = toJSON . _glomAddtional
data GoogleCloudDialogflowV2IntentTrainingPhrase =
GoogleCloudDialogflowV2IntentTrainingPhrase'
{ _gcdvitpParts :: !(Maybe [GoogleCloudDialogflowV2IntentTrainingPhrasePart])
, _gcdvitpName :: !(Maybe Text)
, _gcdvitpTimesAddedCount :: !(Maybe (Textual Int32))
, _gcdvitpType :: !(Maybe GoogleCloudDialogflowV2IntentTrainingPhraseType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentTrainingPhrase
:: GoogleCloudDialogflowV2IntentTrainingPhrase
googleCloudDialogflowV2IntentTrainingPhrase =
GoogleCloudDialogflowV2IntentTrainingPhrase'
{ _gcdvitpParts = Nothing
, _gcdvitpName = Nothing
, _gcdvitpTimesAddedCount = Nothing
, _gcdvitpType = Nothing
}
gcdvitpParts :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase [GoogleCloudDialogflowV2IntentTrainingPhrasePart]
gcdvitpParts
= lens _gcdvitpParts (\ s a -> s{_gcdvitpParts = a})
. _Default
. _Coerce
gcdvitpName :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Text)
gcdvitpName
= lens _gcdvitpName (\ s a -> s{_gcdvitpName = a})
gcdvitpTimesAddedCount :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Int32)
gcdvitpTimesAddedCount
= lens _gcdvitpTimesAddedCount
(\ s a -> s{_gcdvitpTimesAddedCount = a})
. mapping _Coerce
gcdvitpType :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe GoogleCloudDialogflowV2IntentTrainingPhraseType)
gcdvitpType
= lens _gcdvitpType (\ s a -> s{_gcdvitpType = a})
instance FromJSON
GoogleCloudDialogflowV2IntentTrainingPhrase
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentTrainingPhrase"
(\ o ->
GoogleCloudDialogflowV2IntentTrainingPhrase' <$>
(o .:? "parts" .!= mempty) <*> (o .:? "name") <*>
(o .:? "timesAddedCount")
<*> (o .:? "type"))
instance ToJSON
GoogleCloudDialogflowV2IntentTrainingPhrase
where
toJSON
GoogleCloudDialogflowV2IntentTrainingPhrase'{..}
= object
(catMaybes
[("parts" .=) <$> _gcdvitpParts,
("name" .=) <$> _gcdvitpName,
("timesAddedCount" .=) <$> _gcdvitpTimesAddedCount,
("type" .=) <$> _gcdvitpType])
data GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem =
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem'
{ _gImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
, _gTitle :: !(Maybe Text)
, _gDescription :: !(Maybe Text)
, _gInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem
:: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem
googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem =
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem'
{ _gImage = Nothing
, _gTitle = Nothing
, _gDescription = Nothing
, _gInfo = Nothing
}
gImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
gImage = lens _gImage (\ s a -> s{_gImage = a})
gTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text)
gTitle = lens _gTitle (\ s a -> s{_gTitle = a})
gDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text)
gDescription
= lens _gDescription (\ s a -> s{_gDescription = a})
gInfo :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo)
gInfo = lens _gInfo (\ s a -> s{_gInfo = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem'
<$>
(o .:? "image") <*> (o .:? "title") <*>
(o .:? "description")
<*> (o .:? "info"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem'{..}
= object
(catMaybes
[("image" .=) <$> _gImage, ("title" .=) <$> _gTitle,
("description" .=) <$> _gDescription,
("info" .=) <$> _gInfo])
data GoogleCloudDialogflowV2IntentMessageBasicCard =
GoogleCloudDialogflowV2IntentMessageBasicCard'
{ _gcdvimbcImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage)
, _gcdvimbcButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageBasicCardButton])
, _gcdvimbcSubtitle :: !(Maybe Text)
, _gcdvimbcTitle :: !(Maybe Text)
, _gcdvimbcFormattedText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageBasicCard
:: GoogleCloudDialogflowV2IntentMessageBasicCard
googleCloudDialogflowV2IntentMessageBasicCard =
GoogleCloudDialogflowV2IntentMessageBasicCard'
{ _gcdvimbcImage = Nothing
, _gcdvimbcButtons = Nothing
, _gcdvimbcSubtitle = Nothing
, _gcdvimbcTitle = Nothing
, _gcdvimbcFormattedText = Nothing
}
gcdvimbcImage :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2IntentMessageImage)
gcdvimbcImage
= lens _gcdvimbcImage
(\ s a -> s{_gcdvimbcImage = a})
gcdvimbcButtons :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard [GoogleCloudDialogflowV2IntentMessageBasicCardButton]
gcdvimbcButtons
= lens _gcdvimbcButtons
(\ s a -> s{_gcdvimbcButtons = a})
. _Default
. _Coerce
gcdvimbcSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text)
gcdvimbcSubtitle
= lens _gcdvimbcSubtitle
(\ s a -> s{_gcdvimbcSubtitle = a})
gcdvimbcTitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text)
gcdvimbcTitle
= lens _gcdvimbcTitle
(\ s a -> s{_gcdvimbcTitle = a})
gcdvimbcFormattedText :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text)
gcdvimbcFormattedText
= lens _gcdvimbcFormattedText
(\ s a -> s{_gcdvimbcFormattedText = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageBasicCard
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageBasicCard"
(\ o ->
GoogleCloudDialogflowV2IntentMessageBasicCard' <$>
(o .:? "image") <*> (o .:? "buttons" .!= mempty) <*>
(o .:? "subtitle")
<*> (o .:? "title")
<*> (o .:? "formattedText"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageBasicCard
where
toJSON
GoogleCloudDialogflowV2IntentMessageBasicCard'{..}
= object
(catMaybes
[("image" .=) <$> _gcdvimbcImage,
("buttons" .=) <$> _gcdvimbcButtons,
("subtitle" .=) <$> _gcdvimbcSubtitle,
("title" .=) <$> _gcdvimbcTitle,
("formattedText" .=) <$> _gcdvimbcFormattedText])
data GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse =
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse'
{ _gDisplayText :: !(Maybe Text)
, _gSsml :: !(Maybe Text)
, _gTextToSpeech :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageSimpleResponse
:: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse
googleCloudDialogflowV2beta1IntentMessageSimpleResponse =
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse'
{_gDisplayText = Nothing, _gSsml = Nothing, _gTextToSpeech = Nothing}
gDisplayText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text)
gDisplayText
= lens _gDisplayText (\ s a -> s{_gDisplayText = a})
gSsml :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text)
gSsml = lens _gSsml (\ s a -> s{_gSsml = a})
gTextToSpeech :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text)
gTextToSpeech
= lens _gTextToSpeech
(\ s a -> s{_gTextToSpeech = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse'
<$>
(o .:? "displayText") <*> (o .:? "ssml") <*>
(o .:? "textToSpeech"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse'{..}
= object
(catMaybes
[("displayText" .=) <$> _gDisplayText,
("ssml" .=) <$> _gSsml,
("textToSpeech" .=) <$> _gTextToSpeech])
data GoogleCloudDialogflowV2Intent =
GoogleCloudDialogflowV2Intent'
{ _gcdviDefaultResponsePlatforms :: !(Maybe [Text])
, _gcdviWebhookState :: !(Maybe GoogleCloudDialogflowV2IntentWebhookState)
, _gcdviPriority :: !(Maybe (Textual Int32))
, _gcdviAction :: !(Maybe Text)
, _gcdviRootFollowupIntentName :: !(Maybe Text)
, _gcdviName :: !(Maybe Text)
, _gcdviEvents :: !(Maybe [Text])
, _gcdviParameters :: !(Maybe [GoogleCloudDialogflowV2IntentParameter])
, _gcdviDisplayName :: !(Maybe Text)
, _gcdviInputContextNames :: !(Maybe [Text])
, _gcdviMessages :: !(Maybe [GoogleCloudDialogflowV2IntentMessage])
, _gcdviParentFollowupIntentName :: !(Maybe Text)
, _gcdviOutputContexts :: !(Maybe [GoogleCloudDialogflowV2Context])
, _gcdviTrainingPhrases :: !(Maybe [GoogleCloudDialogflowV2IntentTrainingPhrase])
, _gcdviFollowupIntentInfo :: !(Maybe [GoogleCloudDialogflowV2IntentFollowupIntentInfo])
, _gcdviIsFallback :: !(Maybe Bool)
, _gcdviMlDisabled :: !(Maybe Bool)
, _gcdviResetContexts :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2Intent
:: GoogleCloudDialogflowV2Intent
googleCloudDialogflowV2Intent =
GoogleCloudDialogflowV2Intent'
{ _gcdviDefaultResponsePlatforms = Nothing
, _gcdviWebhookState = Nothing
, _gcdviPriority = Nothing
, _gcdviAction = Nothing
, _gcdviRootFollowupIntentName = Nothing
, _gcdviName = Nothing
, _gcdviEvents = Nothing
, _gcdviParameters = Nothing
, _gcdviDisplayName = Nothing
, _gcdviInputContextNames = Nothing
, _gcdviMessages = Nothing
, _gcdviParentFollowupIntentName = Nothing
, _gcdviOutputContexts = Nothing
, _gcdviTrainingPhrases = Nothing
, _gcdviFollowupIntentInfo = Nothing
, _gcdviIsFallback = Nothing
, _gcdviMlDisabled = Nothing
, _gcdviResetContexts = Nothing
}
gcdviDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2Intent [Text]
gcdviDefaultResponsePlatforms
= lens _gcdviDefaultResponsePlatforms
(\ s a -> s{_gcdviDefaultResponsePlatforms = a})
. _Default
. _Coerce
gcdviWebhookState :: Lens' GoogleCloudDialogflowV2Intent (Maybe GoogleCloudDialogflowV2IntentWebhookState)
gcdviWebhookState
= lens _gcdviWebhookState
(\ s a -> s{_gcdviWebhookState = a})
gcdviPriority :: Lens' GoogleCloudDialogflowV2Intent (Maybe Int32)
gcdviPriority
= lens _gcdviPriority
(\ s a -> s{_gcdviPriority = a})
. mapping _Coerce
gcdviAction :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text)
gcdviAction
= lens _gcdviAction (\ s a -> s{_gcdviAction = a})
gcdviRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text)
gcdviRootFollowupIntentName
= lens _gcdviRootFollowupIntentName
(\ s a -> s{_gcdviRootFollowupIntentName = a})
gcdviName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text)
gcdviName
= lens _gcdviName (\ s a -> s{_gcdviName = a})
gcdviEvents :: Lens' GoogleCloudDialogflowV2Intent [Text]
gcdviEvents
= lens _gcdviEvents (\ s a -> s{_gcdviEvents = a}) .
_Default
. _Coerce
gcdviParameters :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentParameter]
gcdviParameters
= lens _gcdviParameters
(\ s a -> s{_gcdviParameters = a})
. _Default
. _Coerce
gcdviDisplayName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text)
gcdviDisplayName
= lens _gcdviDisplayName
(\ s a -> s{_gcdviDisplayName = a})
gcdviInputContextNames :: Lens' GoogleCloudDialogflowV2Intent [Text]
gcdviInputContextNames
= lens _gcdviInputContextNames
(\ s a -> s{_gcdviInputContextNames = a})
. _Default
. _Coerce
gcdviMessages :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentMessage]
gcdviMessages
= lens _gcdviMessages
(\ s a -> s{_gcdviMessages = a})
. _Default
. _Coerce
gcdviParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text)
gcdviParentFollowupIntentName
= lens _gcdviParentFollowupIntentName
(\ s a -> s{_gcdviParentFollowupIntentName = a})
gcdviOutputContexts :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2Context]
gcdviOutputContexts
= lens _gcdviOutputContexts
(\ s a -> s{_gcdviOutputContexts = a})
. _Default
. _Coerce
gcdviTrainingPhrases :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentTrainingPhrase]
gcdviTrainingPhrases
= lens _gcdviTrainingPhrases
(\ s a -> s{_gcdviTrainingPhrases = a})
. _Default
. _Coerce
gcdviFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentFollowupIntentInfo]
gcdviFollowupIntentInfo
= lens _gcdviFollowupIntentInfo
(\ s a -> s{_gcdviFollowupIntentInfo = a})
. _Default
. _Coerce
gcdviIsFallback :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool)
gcdviIsFallback
= lens _gcdviIsFallback
(\ s a -> s{_gcdviIsFallback = a})
gcdviMlDisabled :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool)
gcdviMlDisabled
= lens _gcdviMlDisabled
(\ s a -> s{_gcdviMlDisabled = a})
gcdviResetContexts :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool)
gcdviResetContexts
= lens _gcdviResetContexts
(\ s a -> s{_gcdviResetContexts = a})
instance FromJSON GoogleCloudDialogflowV2Intent where
parseJSON
= withObject "GoogleCloudDialogflowV2Intent"
(\ o ->
GoogleCloudDialogflowV2Intent' <$>
(o .:? "defaultResponsePlatforms" .!= mempty) <*>
(o .:? "webhookState")
<*> (o .:? "priority")
<*> (o .:? "action")
<*> (o .:? "rootFollowupIntentName")
<*> (o .:? "name")
<*> (o .:? "events" .!= mempty)
<*> (o .:? "parameters" .!= mempty)
<*> (o .:? "displayName")
<*> (o .:? "inputContextNames" .!= mempty)
<*> (o .:? "messages" .!= mempty)
<*> (o .:? "parentFollowupIntentName")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "trainingPhrases" .!= mempty)
<*> (o .:? "followupIntentInfo" .!= mempty)
<*> (o .:? "isFallback")
<*> (o .:? "mlDisabled")
<*> (o .:? "resetContexts"))
instance ToJSON GoogleCloudDialogflowV2Intent where
toJSON GoogleCloudDialogflowV2Intent'{..}
= object
(catMaybes
[("defaultResponsePlatforms" .=) <$>
_gcdviDefaultResponsePlatforms,
("webhookState" .=) <$> _gcdviWebhookState,
("priority" .=) <$> _gcdviPriority,
("action" .=) <$> _gcdviAction,
("rootFollowupIntentName" .=) <$>
_gcdviRootFollowupIntentName,
("name" .=) <$> _gcdviName,
("events" .=) <$> _gcdviEvents,
("parameters" .=) <$> _gcdviParameters,
("displayName" .=) <$> _gcdviDisplayName,
("inputContextNames" .=) <$> _gcdviInputContextNames,
("messages" .=) <$> _gcdviMessages,
("parentFollowupIntentName" .=) <$>
_gcdviParentFollowupIntentName,
("outputContexts" .=) <$> _gcdviOutputContexts,
("trainingPhrases" .=) <$> _gcdviTrainingPhrases,
("followupIntentInfo" .=) <$>
_gcdviFollowupIntentInfo,
("isFallback" .=) <$> _gcdviIsFallback,
("mlDisabled" .=) <$> _gcdviMlDisabled,
("resetContexts" .=) <$> _gcdviResetContexts])
data GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton =
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton'
{ _gcdvimbcbOpenURIAction :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction)
, _gcdvimbcbTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageBasicCardButton
:: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton
googleCloudDialogflowV2beta1IntentMessageBasicCardButton =
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton'
{_gcdvimbcbOpenURIAction = Nothing, _gcdvimbcbTitle = Nothing}
gcdvimbcbOpenURIAction :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction)
gcdvimbcbOpenURIAction
= lens _gcdvimbcbOpenURIAction
(\ s a -> s{_gcdvimbcbOpenURIAction = a})
gcdvimbcbTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton (Maybe Text)
gcdvimbcbTitle
= lens _gcdvimbcbTitle
(\ s a -> s{_gcdvimbcbTitle = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton'
<$> (o .:? "openUriAction") <*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton'{..}
= object
(catMaybes
[("openUriAction" .=) <$> _gcdvimbcbOpenURIAction,
("title" .=) <$> _gcdvimbcbTitle])
newtype GoogleCloudDialogflowV2SentimentAnalysisResult =
GoogleCloudDialogflowV2SentimentAnalysisResult'
{ _gcdvsarQueryTextSentiment :: Maybe GoogleCloudDialogflowV2Sentiment
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2SentimentAnalysisResult
:: GoogleCloudDialogflowV2SentimentAnalysisResult
googleCloudDialogflowV2SentimentAnalysisResult =
GoogleCloudDialogflowV2SentimentAnalysisResult'
{_gcdvsarQueryTextSentiment = Nothing}
gcdvsarQueryTextSentiment :: Lens' GoogleCloudDialogflowV2SentimentAnalysisResult (Maybe GoogleCloudDialogflowV2Sentiment)
gcdvsarQueryTextSentiment
= lens _gcdvsarQueryTextSentiment
(\ s a -> s{_gcdvsarQueryTextSentiment = a})
instance FromJSON
GoogleCloudDialogflowV2SentimentAnalysisResult
where
parseJSON
= withObject
"GoogleCloudDialogflowV2SentimentAnalysisResult"
(\ o ->
GoogleCloudDialogflowV2SentimentAnalysisResult' <$>
(o .:? "queryTextSentiment"))
instance ToJSON
GoogleCloudDialogflowV2SentimentAnalysisResult
where
toJSON
GoogleCloudDialogflowV2SentimentAnalysisResult'{..}
= object
(catMaybes
[("queryTextSentiment" .=) <$>
_gcdvsarQueryTextSentiment])
data GoogleCloudDialogflowV2BatchCreateEntitiesRequest =
GoogleCloudDialogflowV2BatchCreateEntitiesRequest'
{ _gcdvbcerLanguageCode :: !(Maybe Text)
, _gcdvbcerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchCreateEntitiesRequest
:: GoogleCloudDialogflowV2BatchCreateEntitiesRequest
googleCloudDialogflowV2BatchCreateEntitiesRequest =
GoogleCloudDialogflowV2BatchCreateEntitiesRequest'
{_gcdvbcerLanguageCode = Nothing, _gcdvbcerEntities = Nothing}
gcdvbcerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchCreateEntitiesRequest (Maybe Text)
gcdvbcerLanguageCode
= lens _gcdvbcerLanguageCode
(\ s a -> s{_gcdvbcerLanguageCode = a})
gcdvbcerEntities :: Lens' GoogleCloudDialogflowV2BatchCreateEntitiesRequest [GoogleCloudDialogflowV2EntityTypeEntity]
gcdvbcerEntities
= lens _gcdvbcerEntities
(\ s a -> s{_gcdvbcerEntities = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchCreateEntitiesRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchCreateEntitiesRequest"
(\ o ->
GoogleCloudDialogflowV2BatchCreateEntitiesRequest'
<$>
(o .:? "languageCode") <*>
(o .:? "entities" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchCreateEntitiesRequest
where
toJSON
GoogleCloudDialogflowV2BatchCreateEntitiesRequest'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvbcerLanguageCode,
("entities" .=) <$> _gcdvbcerEntities])
newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestions =
GoogleCloudDialogflowV2beta1IntentMessageSuggestions'
{ _gcdvimsSuggestions :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSuggestion]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageSuggestions
:: GoogleCloudDialogflowV2beta1IntentMessageSuggestions
googleCloudDialogflowV2beta1IntentMessageSuggestions =
GoogleCloudDialogflowV2beta1IntentMessageSuggestions'
{_gcdvimsSuggestions = Nothing}
gcdvimsSuggestions :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSuggestions [GoogleCloudDialogflowV2beta1IntentMessageSuggestion]
gcdvimsSuggestions
= lens _gcdvimsSuggestions
(\ s a -> s{_gcdvimsSuggestions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestions
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageSuggestions"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageSuggestions'
<$> (o .:? "suggestions" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestions
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestions'{..}
= object
(catMaybes
[("suggestions" .=) <$> _gcdvimsSuggestions])
newtype GoogleCloudDialogflowV2BatchDeleteIntentsRequest =
GoogleCloudDialogflowV2BatchDeleteIntentsRequest'
{ _gcdvbdirIntents :: Maybe [GoogleCloudDialogflowV2Intent]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchDeleteIntentsRequest
:: GoogleCloudDialogflowV2BatchDeleteIntentsRequest
googleCloudDialogflowV2BatchDeleteIntentsRequest =
GoogleCloudDialogflowV2BatchDeleteIntentsRequest' {_gcdvbdirIntents = Nothing}
gcdvbdirIntents :: Lens' GoogleCloudDialogflowV2BatchDeleteIntentsRequest [GoogleCloudDialogflowV2Intent]
gcdvbdirIntents
= lens _gcdvbdirIntents
(\ s a -> s{_gcdvbdirIntents = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchDeleteIntentsRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchDeleteIntentsRequest"
(\ o ->
GoogleCloudDialogflowV2BatchDeleteIntentsRequest' <$>
(o .:? "intents" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchDeleteIntentsRequest
where
toJSON
GoogleCloudDialogflowV2BatchDeleteIntentsRequest'{..}
= object
(catMaybes [("intents" .=) <$> _gcdvbdirIntents])
data GoogleCloudDialogflowV2QueryResult =
GoogleCloudDialogflowV2QueryResult'
{ _gcdvqrLanguageCode :: !(Maybe Text)
, _gcdvqrAllRequiredParamsPresent :: !(Maybe Bool)
, _gcdvqrIntentDetectionConfidence :: !(Maybe (Textual Double))
, _gcdvqrFulfillmentMessages :: !(Maybe [GoogleCloudDialogflowV2IntentMessage])
, _gcdvqrSpeechRecognitionConfidence :: !(Maybe (Textual Double))
, _gcdvqrAction :: !(Maybe Text)
, _gcdvqrIntent :: !(Maybe GoogleCloudDialogflowV2Intent)
, _gcdvqrSentimentAnalysisResult :: !(Maybe GoogleCloudDialogflowV2SentimentAnalysisResult)
, _gcdvqrQueryText :: !(Maybe Text)
, _gcdvqrFulfillmentText :: !(Maybe Text)
, _gcdvqrParameters :: !(Maybe GoogleCloudDialogflowV2QueryResultParameters)
, _gcdvqrWebhookPayload :: !(Maybe GoogleCloudDialogflowV2QueryResultWebhookPayload)
, _gcdvqrOutputContexts :: !(Maybe [GoogleCloudDialogflowV2Context])
, _gcdvqrWebhookSource :: !(Maybe Text)
, _gcdvqrDiagnosticInfo :: !(Maybe GoogleCloudDialogflowV2QueryResultDiagnosticInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryResult
:: GoogleCloudDialogflowV2QueryResult
googleCloudDialogflowV2QueryResult =
GoogleCloudDialogflowV2QueryResult'
{ _gcdvqrLanguageCode = Nothing
, _gcdvqrAllRequiredParamsPresent = Nothing
, _gcdvqrIntentDetectionConfidence = Nothing
, _gcdvqrFulfillmentMessages = Nothing
, _gcdvqrSpeechRecognitionConfidence = Nothing
, _gcdvqrAction = Nothing
, _gcdvqrIntent = Nothing
, _gcdvqrSentimentAnalysisResult = Nothing
, _gcdvqrQueryText = Nothing
, _gcdvqrFulfillmentText = Nothing
, _gcdvqrParameters = Nothing
, _gcdvqrWebhookPayload = Nothing
, _gcdvqrOutputContexts = Nothing
, _gcdvqrWebhookSource = Nothing
, _gcdvqrDiagnosticInfo = Nothing
}
gcdvqrLanguageCode :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text)
gcdvqrLanguageCode
= lens _gcdvqrLanguageCode
(\ s a -> s{_gcdvqrLanguageCode = a})
gcdvqrAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Bool)
gcdvqrAllRequiredParamsPresent
= lens _gcdvqrAllRequiredParamsPresent
(\ s a -> s{_gcdvqrAllRequiredParamsPresent = a})
gcdvqrIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double)
gcdvqrIntentDetectionConfidence
= lens _gcdvqrIntentDetectionConfidence
(\ s a -> s{_gcdvqrIntentDetectionConfidence = a})
. mapping _Coerce
gcdvqrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2IntentMessage]
gcdvqrFulfillmentMessages
= lens _gcdvqrFulfillmentMessages
(\ s a -> s{_gcdvqrFulfillmentMessages = a})
. _Default
. _Coerce
gcdvqrSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double)
gcdvqrSpeechRecognitionConfidence
= lens _gcdvqrSpeechRecognitionConfidence
(\ s a -> s{_gcdvqrSpeechRecognitionConfidence = a})
. mapping _Coerce
gcdvqrAction :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text)
gcdvqrAction
= lens _gcdvqrAction (\ s a -> s{_gcdvqrAction = a})
gcdvqrIntent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2Intent)
gcdvqrIntent
= lens _gcdvqrIntent (\ s a -> s{_gcdvqrIntent = a})
gcdvqrSentimentAnalysisResult :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2SentimentAnalysisResult)
gcdvqrSentimentAnalysisResult
= lens _gcdvqrSentimentAnalysisResult
(\ s a -> s{_gcdvqrSentimentAnalysisResult = a})
gcdvqrQueryText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text)
gcdvqrQueryText
= lens _gcdvqrQueryText
(\ s a -> s{_gcdvqrQueryText = a})
gcdvqrFulfillmentText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text)
gcdvqrFulfillmentText
= lens _gcdvqrFulfillmentText
(\ s a -> s{_gcdvqrFulfillmentText = a})
gcdvqrParameters :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultParameters)
gcdvqrParameters
= lens _gcdvqrParameters
(\ s a -> s{_gcdvqrParameters = a})
gcdvqrWebhookPayload :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultWebhookPayload)
gcdvqrWebhookPayload
= lens _gcdvqrWebhookPayload
(\ s a -> s{_gcdvqrWebhookPayload = a})
gcdvqrOutputContexts :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2Context]
gcdvqrOutputContexts
= lens _gcdvqrOutputContexts
(\ s a -> s{_gcdvqrOutputContexts = a})
. _Default
. _Coerce
gcdvqrWebhookSource :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text)
gcdvqrWebhookSource
= lens _gcdvqrWebhookSource
(\ s a -> s{_gcdvqrWebhookSource = a})
gcdvqrDiagnosticInfo :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultDiagnosticInfo)
gcdvqrDiagnosticInfo
= lens _gcdvqrDiagnosticInfo
(\ s a -> s{_gcdvqrDiagnosticInfo = a})
instance FromJSON GoogleCloudDialogflowV2QueryResult
where
parseJSON
= withObject "GoogleCloudDialogflowV2QueryResult"
(\ o ->
GoogleCloudDialogflowV2QueryResult' <$>
(o .:? "languageCode") <*>
(o .:? "allRequiredParamsPresent")
<*> (o .:? "intentDetectionConfidence")
<*> (o .:? "fulfillmentMessages" .!= mempty)
<*> (o .:? "speechRecognitionConfidence")
<*> (o .:? "action")
<*> (o .:? "intent")
<*> (o .:? "sentimentAnalysisResult")
<*> (o .:? "queryText")
<*> (o .:? "fulfillmentText")
<*> (o .:? "parameters")
<*> (o .:? "webhookPayload")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "webhookSource")
<*> (o .:? "diagnosticInfo"))
instance ToJSON GoogleCloudDialogflowV2QueryResult
where
toJSON GoogleCloudDialogflowV2QueryResult'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvqrLanguageCode,
("allRequiredParamsPresent" .=) <$>
_gcdvqrAllRequiredParamsPresent,
("intentDetectionConfidence" .=) <$>
_gcdvqrIntentDetectionConfidence,
("fulfillmentMessages" .=) <$>
_gcdvqrFulfillmentMessages,
("speechRecognitionConfidence" .=) <$>
_gcdvqrSpeechRecognitionConfidence,
("action" .=) <$> _gcdvqrAction,
("intent" .=) <$> _gcdvqrIntent,
("sentimentAnalysisResult" .=) <$>
_gcdvqrSentimentAnalysisResult,
("queryText" .=) <$> _gcdvqrQueryText,
("fulfillmentText" .=) <$> _gcdvqrFulfillmentText,
("parameters" .=) <$> _gcdvqrParameters,
("webhookPayload" .=) <$> _gcdvqrWebhookPayload,
("outputContexts" .=) <$> _gcdvqrOutputContexts,
("webhookSource" .=) <$> _gcdvqrWebhookSource,
("diagnosticInfo" .=) <$> _gcdvqrDiagnosticInfo])
data GoogleCloudDialogflowV2BatchUpdateIntentsRequest =
GoogleCloudDialogflowV2BatchUpdateIntentsRequest'
{ _gcdvbuirLanguageCode :: !(Maybe Text)
, _gcdvbuirUpdateMask :: !(Maybe GFieldMask)
, _gcdvbuirIntentView :: !(Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView)
, _gcdvbuirIntentBatchURI :: !(Maybe Text)
, _gcdvbuirIntentBatchInline :: !(Maybe GoogleCloudDialogflowV2IntentBatch)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchUpdateIntentsRequest
:: GoogleCloudDialogflowV2BatchUpdateIntentsRequest
googleCloudDialogflowV2BatchUpdateIntentsRequest =
GoogleCloudDialogflowV2BatchUpdateIntentsRequest'
{ _gcdvbuirLanguageCode = Nothing
, _gcdvbuirUpdateMask = Nothing
, _gcdvbuirIntentView = Nothing
, _gcdvbuirIntentBatchURI = Nothing
, _gcdvbuirIntentBatchInline = Nothing
}
gcdvbuirLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text)
gcdvbuirLanguageCode
= lens _gcdvbuirLanguageCode
(\ s a -> s{_gcdvbuirLanguageCode = a})
gcdvbuirUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GFieldMask)
gcdvbuirUpdateMask
= lens _gcdvbuirUpdateMask
(\ s a -> s{_gcdvbuirUpdateMask = a})
gcdvbuirIntentView :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView)
gcdvbuirIntentView
= lens _gcdvbuirIntentView
(\ s a -> s{_gcdvbuirIntentView = a})
gcdvbuirIntentBatchURI :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text)
gcdvbuirIntentBatchURI
= lens _gcdvbuirIntentBatchURI
(\ s a -> s{_gcdvbuirIntentBatchURI = a})
gcdvbuirIntentBatchInline :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GoogleCloudDialogflowV2IntentBatch)
gcdvbuirIntentBatchInline
= lens _gcdvbuirIntentBatchInline
(\ s a -> s{_gcdvbuirIntentBatchInline = a})
instance FromJSON
GoogleCloudDialogflowV2BatchUpdateIntentsRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchUpdateIntentsRequest"
(\ o ->
GoogleCloudDialogflowV2BatchUpdateIntentsRequest' <$>
(o .:? "languageCode") <*> (o .:? "updateMask") <*>
(o .:? "intentView")
<*> (o .:? "intentBatchUri")
<*> (o .:? "intentBatchInline"))
instance ToJSON
GoogleCloudDialogflowV2BatchUpdateIntentsRequest
where
toJSON
GoogleCloudDialogflowV2BatchUpdateIntentsRequest'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvbuirLanguageCode,
("updateMask" .=) <$> _gcdvbuirUpdateMask,
("intentView" .=) <$> _gcdvbuirIntentView,
("intentBatchUri" .=) <$> _gcdvbuirIntentBatchURI,
("intentBatchInline" .=) <$>
_gcdvbuirIntentBatchInline])
data GoogleTypeLatLng =
GoogleTypeLatLng'
{ _gtllLatitude :: !(Maybe (Textual Double))
, _gtllLongitude :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleTypeLatLng
:: GoogleTypeLatLng
googleTypeLatLng =
GoogleTypeLatLng' {_gtllLatitude = Nothing, _gtllLongitude = Nothing}
gtllLatitude :: Lens' GoogleTypeLatLng (Maybe Double)
gtllLatitude
= lens _gtllLatitude (\ s a -> s{_gtllLatitude = a})
. mapping _Coerce
gtllLongitude :: Lens' GoogleTypeLatLng (Maybe Double)
gtllLongitude
= lens _gtllLongitude
(\ s a -> s{_gtllLongitude = a})
. mapping _Coerce
instance FromJSON GoogleTypeLatLng where
parseJSON
= withObject "GoogleTypeLatLng"
(\ o ->
GoogleTypeLatLng' <$>
(o .:? "latitude") <*> (o .:? "longitude"))
instance ToJSON GoogleTypeLatLng where
toJSON GoogleTypeLatLng'{..}
= object
(catMaybes
[("latitude" .=) <$> _gtllLatitude,
("longitude" .=) <$> _gtllLongitude])
data GoogleCloudDialogflowV2beta1WebhookResponse =
GoogleCloudDialogflowV2beta1WebhookResponse'
{ _gcdvwrFulfillmentMessages :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessage])
, _gcdvwrPayload :: !(Maybe GoogleCloudDialogflowV2beta1WebhookResponsePayload)
, _gcdvwrFulfillmentText :: !(Maybe Text)
, _gcdvwrSource :: !(Maybe Text)
, _gcdvwrEndInteraction :: !(Maybe Bool)
, _gcdvwrOutputContexts :: !(Maybe [GoogleCloudDialogflowV2beta1Context])
, _gcdvwrFollowupEventInput :: !(Maybe GoogleCloudDialogflowV2beta1EventInput)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1WebhookResponse
:: GoogleCloudDialogflowV2beta1WebhookResponse
googleCloudDialogflowV2beta1WebhookResponse =
GoogleCloudDialogflowV2beta1WebhookResponse'
{ _gcdvwrFulfillmentMessages = Nothing
, _gcdvwrPayload = Nothing
, _gcdvwrFulfillmentText = Nothing
, _gcdvwrSource = Nothing
, _gcdvwrEndInteraction = Nothing
, _gcdvwrOutputContexts = Nothing
, _gcdvwrFollowupEventInput = Nothing
}
gcdvwrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1IntentMessage]
gcdvwrFulfillmentMessages
= lens _gcdvwrFulfillmentMessages
(\ s a -> s{_gcdvwrFulfillmentMessages = a})
. _Default
. _Coerce
gcdvwrPayload :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe GoogleCloudDialogflowV2beta1WebhookResponsePayload)
gcdvwrPayload
= lens _gcdvwrPayload
(\ s a -> s{_gcdvwrPayload = a})
gcdvwrFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text)
gcdvwrFulfillmentText
= lens _gcdvwrFulfillmentText
(\ s a -> s{_gcdvwrFulfillmentText = a})
gcdvwrSource :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text)
gcdvwrSource
= lens _gcdvwrSource (\ s a -> s{_gcdvwrSource = a})
gcdvwrEndInteraction :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Bool)
gcdvwrEndInteraction
= lens _gcdvwrEndInteraction
(\ s a -> s{_gcdvwrEndInteraction = a})
gcdvwrOutputContexts :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1Context]
gcdvwrOutputContexts
= lens _gcdvwrOutputContexts
(\ s a -> s{_gcdvwrOutputContexts = a})
. _Default
. _Coerce
gcdvwrFollowupEventInput :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe GoogleCloudDialogflowV2beta1EventInput)
gcdvwrFollowupEventInput
= lens _gcdvwrFollowupEventInput
(\ s a -> s{_gcdvwrFollowupEventInput = a})
instance FromJSON
GoogleCloudDialogflowV2beta1WebhookResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1WebhookResponse"
(\ o ->
GoogleCloudDialogflowV2beta1WebhookResponse' <$>
(o .:? "fulfillmentMessages" .!= mempty) <*>
(o .:? "payload")
<*> (o .:? "fulfillmentText")
<*> (o .:? "source")
<*> (o .:? "endInteraction")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "followupEventInput"))
instance ToJSON
GoogleCloudDialogflowV2beta1WebhookResponse
where
toJSON
GoogleCloudDialogflowV2beta1WebhookResponse'{..}
= object
(catMaybes
[("fulfillmentMessages" .=) <$>
_gcdvwrFulfillmentMessages,
("payload" .=) <$> _gcdvwrPayload,
("fulfillmentText" .=) <$> _gcdvwrFulfillmentText,
("source" .=) <$> _gcdvwrSource,
("endInteraction" .=) <$> _gcdvwrEndInteraction,
("outputContexts" .=) <$> _gcdvwrOutputContexts,
("followupEventInput" .=) <$>
_gcdvwrFollowupEventInput])
newtype GoogleCloudDialogflowV2beta1EventInputParameters =
GoogleCloudDialogflowV2beta1EventInputParameters'
{ _gcdveipAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1EventInputParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1EventInputParameters
googleCloudDialogflowV2beta1EventInputParameters pGcdveipAddtional_ =
GoogleCloudDialogflowV2beta1EventInputParameters'
{_gcdveipAddtional = _Coerce # pGcdveipAddtional_}
gcdveipAddtional :: Lens' GoogleCloudDialogflowV2beta1EventInputParameters (HashMap Text JSONValue)
gcdveipAddtional
= lens _gcdveipAddtional
(\ s a -> s{_gcdveipAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1EventInputParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1EventInputParameters"
(\ o ->
GoogleCloudDialogflowV2beta1EventInputParameters' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1EventInputParameters
where
toJSON = toJSON . _gcdveipAddtional
newtype GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload =
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload'
{ _gcdvodirpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload
googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload pGcdvodirpAddtional_ =
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload'
{_gcdvodirpAddtional = _Coerce # pGcdvodirpAddtional_}
gcdvodirpAddtional :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload (HashMap Text JSONValue)
gcdvodirpAddtional
= lens _gcdvodirpAddtional
(\ s a -> s{_gcdvodirpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload"
(\ o ->
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload
where
toJSON = toJSON . _gcdvodirpAddtional
data GoogleCloudDialogflowV2IntentMessageQuickReplies =
GoogleCloudDialogflowV2IntentMessageQuickReplies'
{ _gcdvimqrTitle :: !(Maybe Text)
, _gcdvimqrQuickReplies :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageQuickReplies
:: GoogleCloudDialogflowV2IntentMessageQuickReplies
googleCloudDialogflowV2IntentMessageQuickReplies =
GoogleCloudDialogflowV2IntentMessageQuickReplies'
{_gcdvimqrTitle = Nothing, _gcdvimqrQuickReplies = Nothing}
gcdvimqrTitle :: Lens' GoogleCloudDialogflowV2IntentMessageQuickReplies (Maybe Text)
gcdvimqrTitle
= lens _gcdvimqrTitle
(\ s a -> s{_gcdvimqrTitle = a})
gcdvimqrQuickReplies :: Lens' GoogleCloudDialogflowV2IntentMessageQuickReplies [Text]
gcdvimqrQuickReplies
= lens _gcdvimqrQuickReplies
(\ s a -> s{_gcdvimqrQuickReplies = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageQuickReplies
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageQuickReplies"
(\ o ->
GoogleCloudDialogflowV2IntentMessageQuickReplies' <$>
(o .:? "title") <*>
(o .:? "quickReplies" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageQuickReplies
where
toJSON
GoogleCloudDialogflowV2IntentMessageQuickReplies'{..}
= object
(catMaybes
[("title" .=) <$> _gcdvimqrTitle,
("quickReplies" .=) <$> _gcdvimqrQuickReplies])
newtype GoogleCloudDialogflowV2beta1KnowledgeAnswers =
GoogleCloudDialogflowV2beta1KnowledgeAnswers'
{ _gcdvkaAnswers :: Maybe [GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1KnowledgeAnswers
:: GoogleCloudDialogflowV2beta1KnowledgeAnswers
googleCloudDialogflowV2beta1KnowledgeAnswers =
GoogleCloudDialogflowV2beta1KnowledgeAnswers' {_gcdvkaAnswers = Nothing}
gcdvkaAnswers :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswers [GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer]
gcdvkaAnswers
= lens _gcdvkaAnswers
(\ s a -> s{_gcdvkaAnswers = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswers
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1KnowledgeAnswers"
(\ o ->
GoogleCloudDialogflowV2beta1KnowledgeAnswers' <$>
(o .:? "answers" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswers
where
toJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswers'{..}
= object
(catMaybes [("answers" .=) <$> _gcdvkaAnswers])
data GoogleCloudDialogflowV2beta1IntentMessageCardButton =
GoogleCloudDialogflowV2beta1IntentMessageCardButton'
{ _gcdvimcbText :: !(Maybe Text)
, _gcdvimcbPostback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageCardButton
:: GoogleCloudDialogflowV2beta1IntentMessageCardButton
googleCloudDialogflowV2beta1IntentMessageCardButton =
GoogleCloudDialogflowV2beta1IntentMessageCardButton'
{_gcdvimcbText = Nothing, _gcdvimcbPostback = Nothing}
gcdvimcbText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCardButton (Maybe Text)
gcdvimcbText
= lens _gcdvimcbText (\ s a -> s{_gcdvimcbText = a})
gcdvimcbPostback :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCardButton (Maybe Text)
gcdvimcbPostback
= lens _gcdvimcbPostback
(\ s a -> s{_gcdvimcbPostback = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageCardButton
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageCardButton"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageCardButton'
<$> (o .:? "text") <*> (o .:? "postback"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageCardButton
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageCardButton'{..}
= object
(catMaybes
[("text" .=) <$> _gcdvimcbText,
("postback" .=) <$> _gcdvimcbPostback])
newtype GoogleCloudDialogflowV2beta1ContextParameters =
GoogleCloudDialogflowV2beta1ContextParameters'
{ _gcdvcpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1ContextParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1ContextParameters
googleCloudDialogflowV2beta1ContextParameters pGcdvcpAddtional_ =
GoogleCloudDialogflowV2beta1ContextParameters'
{_gcdvcpAddtional = _Coerce # pGcdvcpAddtional_}
gcdvcpAddtional :: Lens' GoogleCloudDialogflowV2beta1ContextParameters (HashMap Text JSONValue)
gcdvcpAddtional
= lens _gcdvcpAddtional
(\ s a -> s{_gcdvcpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1ContextParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1ContextParameters"
(\ o ->
GoogleCloudDialogflowV2beta1ContextParameters' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1ContextParameters
where
toJSON = toJSON . _gcdvcpAddtional
newtype GoogleCloudDialogflowV2QueryParametersPayload =
GoogleCloudDialogflowV2QueryParametersPayload'
{ _gcdvqppAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryParametersPayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2QueryParametersPayload
googleCloudDialogflowV2QueryParametersPayload pGcdvqppAddtional_ =
GoogleCloudDialogflowV2QueryParametersPayload'
{_gcdvqppAddtional = _Coerce # pGcdvqppAddtional_}
gcdvqppAddtional :: Lens' GoogleCloudDialogflowV2QueryParametersPayload (HashMap Text JSONValue)
gcdvqppAddtional
= lens _gcdvqppAddtional
(\ s a -> s{_gcdvqppAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2QueryParametersPayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2QueryParametersPayload"
(\ o ->
GoogleCloudDialogflowV2QueryParametersPayload' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2QueryParametersPayload
where
toJSON = toJSON . _gcdvqppAddtional
data GoogleCloudDialogflowV2beta1IntentMessageListSelect =
GoogleCloudDialogflowV2beta1IntentMessageListSelect'
{ _gcdvimlsItems :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem])
, _gcdvimlsTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageListSelect
:: GoogleCloudDialogflowV2beta1IntentMessageListSelect
googleCloudDialogflowV2beta1IntentMessageListSelect =
GoogleCloudDialogflowV2beta1IntentMessageListSelect'
{_gcdvimlsItems = Nothing, _gcdvimlsTitle = Nothing}
gcdvimlsItems :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelect [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem]
gcdvimlsItems
= lens _gcdvimlsItems
(\ s a -> s{_gcdvimlsItems = a})
. _Default
. _Coerce
gcdvimlsTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelect (Maybe Text)
gcdvimlsTitle
= lens _gcdvimlsTitle
(\ s a -> s{_gcdvimlsTitle = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelect
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageListSelect"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageListSelect'
<$> (o .:? "items" .!= mempty) <*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelect
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelect'{..}
= object
(catMaybes
[("items" .=) <$> _gcdvimlsItems,
("title" .=) <$> _gcdvimlsTitle])
newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio =
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio'
{ _gcdvimtpaAudioURI :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio
:: GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio
googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio =
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio'
{_gcdvimtpaAudioURI = Nothing}
gcdvimtpaAudioURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio (Maybe Text)
gcdvimtpaAudioURI
= lens _gcdvimtpaAudioURI
(\ s a -> s{_gcdvimtpaAudioURI = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio'
<$> (o .:? "audioUri"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio'{..}
= object
(catMaybes [("audioUri" .=) <$> _gcdvimtpaAudioURI])
newtype GoogleCloudDialogflowV2SentimentAnalysisRequestConfig =
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig'
{ _gcdvsarcAnalyzeQueryTextSentiment :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2SentimentAnalysisRequestConfig
:: GoogleCloudDialogflowV2SentimentAnalysisRequestConfig
googleCloudDialogflowV2SentimentAnalysisRequestConfig =
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig'
{_gcdvsarcAnalyzeQueryTextSentiment = Nothing}
gcdvsarcAnalyzeQueryTextSentiment :: Lens' GoogleCloudDialogflowV2SentimentAnalysisRequestConfig (Maybe Bool)
gcdvsarcAnalyzeQueryTextSentiment
= lens _gcdvsarcAnalyzeQueryTextSentiment
(\ s a -> s{_gcdvsarcAnalyzeQueryTextSentiment = a})
instance FromJSON
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig
where
parseJSON
= withObject
"GoogleCloudDialogflowV2SentimentAnalysisRequestConfig"
(\ o ->
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig'
<$> (o .:? "analyzeQueryTextSentiment"))
instance ToJSON
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig
where
toJSON
GoogleCloudDialogflowV2SentimentAnalysisRequestConfig'{..}
= object
(catMaybes
[("analyzeQueryTextSentiment" .=) <$>
_gcdvsarcAnalyzeQueryTextSentiment])
data GoogleCloudDialogflowV2IntentTrainingPhrasePart =
GoogleCloudDialogflowV2IntentTrainingPhrasePart'
{ _gcdvitppText :: !(Maybe Text)
, _gcdvitppUserDefined :: !(Maybe Bool)
, _gcdvitppEntityType :: !(Maybe Text)
, _gcdvitppAlias :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentTrainingPhrasePart
:: GoogleCloudDialogflowV2IntentTrainingPhrasePart
googleCloudDialogflowV2IntentTrainingPhrasePart =
GoogleCloudDialogflowV2IntentTrainingPhrasePart'
{ _gcdvitppText = Nothing
, _gcdvitppUserDefined = Nothing
, _gcdvitppEntityType = Nothing
, _gcdvitppAlias = Nothing
}
gcdvitppText :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text)
gcdvitppText
= lens _gcdvitppText (\ s a -> s{_gcdvitppText = a})
gcdvitppUserDefined :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Bool)
gcdvitppUserDefined
= lens _gcdvitppUserDefined
(\ s a -> s{_gcdvitppUserDefined = a})
gcdvitppEntityType :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text)
gcdvitppEntityType
= lens _gcdvitppEntityType
(\ s a -> s{_gcdvitppEntityType = a})
gcdvitppAlias :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text)
gcdvitppAlias
= lens _gcdvitppAlias
(\ s a -> s{_gcdvitppAlias = a})
instance FromJSON
GoogleCloudDialogflowV2IntentTrainingPhrasePart
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentTrainingPhrasePart"
(\ o ->
GoogleCloudDialogflowV2IntentTrainingPhrasePart' <$>
(o .:? "text") <*> (o .:? "userDefined") <*>
(o .:? "entityType")
<*> (o .:? "alias"))
instance ToJSON
GoogleCloudDialogflowV2IntentTrainingPhrasePart
where
toJSON
GoogleCloudDialogflowV2IntentTrainingPhrasePart'{..}
= object
(catMaybes
[("text" .=) <$> _gcdvitppText,
("userDefined" .=) <$> _gcdvitppUserDefined,
("entityType" .=) <$> _gcdvitppEntityType,
("alias" .=) <$> _gcdvitppAlias])
data GoogleProtobufEmpty =
GoogleProtobufEmpty'
deriving (Eq, Show, Data, Typeable, Generic)
googleProtobufEmpty
:: GoogleProtobufEmpty
googleProtobufEmpty = GoogleProtobufEmpty'
instance FromJSON GoogleProtobufEmpty where
parseJSON
= withObject "GoogleProtobufEmpty"
(\ o -> pure GoogleProtobufEmpty')
instance ToJSON GoogleProtobufEmpty where
toJSON = const emptyObject
newtype GoogleCloudDialogflowV2beta1WebhookResponsePayload =
GoogleCloudDialogflowV2beta1WebhookResponsePayload'
{ _gcdvwrpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1WebhookResponsePayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1WebhookResponsePayload
googleCloudDialogflowV2beta1WebhookResponsePayload pGcdvwrpAddtional_ =
GoogleCloudDialogflowV2beta1WebhookResponsePayload'
{_gcdvwrpAddtional = _Coerce # pGcdvwrpAddtional_}
gcdvwrpAddtional :: Lens' GoogleCloudDialogflowV2beta1WebhookResponsePayload (HashMap Text JSONValue)
gcdvwrpAddtional
= lens _gcdvwrpAddtional
(\ s a -> s{_gcdvwrpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1WebhookResponsePayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1WebhookResponsePayload"
(\ o ->
GoogleCloudDialogflowV2beta1WebhookResponsePayload'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1WebhookResponsePayload
where
toJSON = toJSON . _gcdvwrpAddtional
data GoogleCloudDialogflowV2beta1IntentMessageQuickReplies =
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies'
{ _gcdvimqrsTitle :: !(Maybe Text)
, _gcdvimqrsQuickReplies :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageQuickReplies
:: GoogleCloudDialogflowV2beta1IntentMessageQuickReplies
googleCloudDialogflowV2beta1IntentMessageQuickReplies =
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies'
{_gcdvimqrsTitle = Nothing, _gcdvimqrsQuickReplies = Nothing}
gcdvimqrsTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageQuickReplies (Maybe Text)
gcdvimqrsTitle
= lens _gcdvimqrsTitle
(\ s a -> s{_gcdvimqrsTitle = a})
gcdvimqrsQuickReplies :: Lens' GoogleCloudDialogflowV2beta1IntentMessageQuickReplies [Text]
gcdvimqrsQuickReplies
= lens _gcdvimqrsQuickReplies
(\ s a -> s{_gcdvimqrsQuickReplies = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageQuickReplies"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies'
<$>
(o .:? "title") <*>
(o .:? "quickReplies" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageQuickReplies'{..}
= object
(catMaybes
[("title" .=) <$> _gcdvimqrsTitle,
("quickReplies" .=) <$> _gcdvimqrsQuickReplies])
data GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion =
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion'
{ _gcdvimlosURI :: !(Maybe Text)
, _gcdvimlosDestinationName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageLinkOutSuggestion
:: GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion
googleCloudDialogflowV2IntentMessageLinkOutSuggestion =
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion'
{_gcdvimlosURI = Nothing, _gcdvimlosDestinationName = Nothing}
gcdvimlosURI :: Lens' GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion (Maybe Text)
gcdvimlosURI
= lens _gcdvimlosURI (\ s a -> s{_gcdvimlosURI = a})
gcdvimlosDestinationName :: Lens' GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion (Maybe Text)
gcdvimlosDestinationName
= lens _gcdvimlosDestinationName
(\ s a -> s{_gcdvimlosDestinationName = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion"
(\ o ->
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion'
<$> (o .:? "uri") <*> (o .:? "destinationName"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion
where
toJSON
GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion'{..}
= object
(catMaybes
[("uri" .=) <$> _gcdvimlosURI,
("destinationName" .=) <$>
_gcdvimlosDestinationName])
data GoogleCloudDialogflowV2ImportAgentRequest =
GoogleCloudDialogflowV2ImportAgentRequest'
{ _gcdviarAgentURI :: !(Maybe Text)
, _gcdviarAgentContent :: !(Maybe Bytes)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ImportAgentRequest
:: GoogleCloudDialogflowV2ImportAgentRequest
googleCloudDialogflowV2ImportAgentRequest =
GoogleCloudDialogflowV2ImportAgentRequest'
{_gcdviarAgentURI = Nothing, _gcdviarAgentContent = Nothing}
gcdviarAgentURI :: Lens' GoogleCloudDialogflowV2ImportAgentRequest (Maybe Text)
gcdviarAgentURI
= lens _gcdviarAgentURI
(\ s a -> s{_gcdviarAgentURI = a})
gcdviarAgentContent :: Lens' GoogleCloudDialogflowV2ImportAgentRequest (Maybe ByteString)
gcdviarAgentContent
= lens _gcdviarAgentContent
(\ s a -> s{_gcdviarAgentContent = a})
. mapping _Bytes
instance FromJSON
GoogleCloudDialogflowV2ImportAgentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ImportAgentRequest"
(\ o ->
GoogleCloudDialogflowV2ImportAgentRequest' <$>
(o .:? "agentUri") <*> (o .:? "agentContent"))
instance ToJSON
GoogleCloudDialogflowV2ImportAgentRequest
where
toJSON GoogleCloudDialogflowV2ImportAgentRequest'{..}
= object
(catMaybes
[("agentUri" .=) <$> _gcdviarAgentURI,
("agentContent" .=) <$> _gcdviarAgentContent])
newtype GoogleRpcStatusDetailsItem =
GoogleRpcStatusDetailsItem'
{ _grsdiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleRpcStatusDetailsItem
:: HashMap Text JSONValue
-> GoogleRpcStatusDetailsItem
googleRpcStatusDetailsItem pGrsdiAddtional_ =
GoogleRpcStatusDetailsItem' {_grsdiAddtional = _Coerce # pGrsdiAddtional_}
grsdiAddtional :: Lens' GoogleRpcStatusDetailsItem (HashMap Text JSONValue)
grsdiAddtional
= lens _grsdiAddtional
(\ s a -> s{_grsdiAddtional = a})
. _Coerce
instance FromJSON GoogleRpcStatusDetailsItem where
parseJSON
= withObject "GoogleRpcStatusDetailsItem"
(\ o ->
GoogleRpcStatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON GoogleRpcStatusDetailsItem where
toJSON = toJSON . _grsdiAddtional
newtype GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse =
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse'
{ _gcdvbuetrEntityTypes :: Maybe [GoogleCloudDialogflowV2beta1EntityType]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse
:: GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse
googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse =
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse'
{_gcdvbuetrEntityTypes = Nothing}
gcdvbuetrEntityTypes :: Lens' GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse [GoogleCloudDialogflowV2beta1EntityType]
gcdvbuetrEntityTypes
= lens _gcdvbuetrEntityTypes
(\ s a -> s{_gcdvbuetrEntityTypes = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse"
(\ o ->
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse'
<$> (o .:? "entityTypes" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse
where
toJSON
GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse'{..}
= object
(catMaybes
[("entityTypes" .=) <$> _gcdvbuetrEntityTypes])
newtype GoogleCloudDialogflowV2ContextParameters =
GoogleCloudDialogflowV2ContextParameters'
{ _gAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ContextParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2ContextParameters
googleCloudDialogflowV2ContextParameters pGAddtional_ =
GoogleCloudDialogflowV2ContextParameters'
{_gAddtional = _Coerce # pGAddtional_}
gAddtional :: Lens' GoogleCloudDialogflowV2ContextParameters (HashMap Text JSONValue)
gAddtional
= lens _gAddtional (\ s a -> s{_gAddtional = a}) .
_Coerce
instance FromJSON
GoogleCloudDialogflowV2ContextParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ContextParameters"
(\ o ->
GoogleCloudDialogflowV2ContextParameters' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2ContextParameters
where
toJSON = toJSON . _gAddtional
data GoogleCloudDialogflowV2IntentMessageCardButton =
GoogleCloudDialogflowV2IntentMessageCardButton'
{ _gText :: !(Maybe Text)
, _gPostback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageCardButton
:: GoogleCloudDialogflowV2IntentMessageCardButton
googleCloudDialogflowV2IntentMessageCardButton =
GoogleCloudDialogflowV2IntentMessageCardButton'
{_gText = Nothing, _gPostback = Nothing}
gText :: Lens' GoogleCloudDialogflowV2IntentMessageCardButton (Maybe Text)
gText = lens _gText (\ s a -> s{_gText = a})
gPostback :: Lens' GoogleCloudDialogflowV2IntentMessageCardButton (Maybe Text)
gPostback
= lens _gPostback (\ s a -> s{_gPostback = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageCardButton
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageCardButton"
(\ o ->
GoogleCloudDialogflowV2IntentMessageCardButton' <$>
(o .:? "text") <*> (o .:? "postback"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageCardButton
where
toJSON
GoogleCloudDialogflowV2IntentMessageCardButton'{..}
= object
(catMaybes
[("text" .=) <$> _gText,
("postback" .=) <$> _gPostback])
data GoogleCloudDialogflowV2IntentMessageListSelect =
GoogleCloudDialogflowV2IntentMessageListSelect'
{ _gooItems :: !(Maybe [GoogleCloudDialogflowV2IntentMessageListSelectItem])
, _gooTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageListSelect
:: GoogleCloudDialogflowV2IntentMessageListSelect
googleCloudDialogflowV2IntentMessageListSelect =
GoogleCloudDialogflowV2IntentMessageListSelect'
{_gooItems = Nothing, _gooTitle = Nothing}
gooItems :: Lens' GoogleCloudDialogflowV2IntentMessageListSelect [GoogleCloudDialogflowV2IntentMessageListSelectItem]
gooItems
= lens _gooItems (\ s a -> s{_gooItems = a}) .
_Default
. _Coerce
gooTitle :: Lens' GoogleCloudDialogflowV2IntentMessageListSelect (Maybe Text)
gooTitle = lens _gooTitle (\ s a -> s{_gooTitle = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageListSelect
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageListSelect"
(\ o ->
GoogleCloudDialogflowV2IntentMessageListSelect' <$>
(o .:? "items" .!= mempty) <*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageListSelect
where
toJSON
GoogleCloudDialogflowV2IntentMessageListSelect'{..}
= object
(catMaybes
[("items" .=) <$> _gooItems,
("title" .=) <$> _gooTitle])
data GoogleCloudDialogflowV2beta1IntentMessageCard =
GoogleCloudDialogflowV2beta1IntentMessageCard'
{ _gcdvimcButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageCardButton])
, _gcdvimcImageURI :: !(Maybe Text)
, _gcdvimcSubtitle :: !(Maybe Text)
, _gcdvimcTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageCard
:: GoogleCloudDialogflowV2beta1IntentMessageCard
googleCloudDialogflowV2beta1IntentMessageCard =
GoogleCloudDialogflowV2beta1IntentMessageCard'
{ _gcdvimcButtons = Nothing
, _gcdvimcImageURI = Nothing
, _gcdvimcSubtitle = Nothing
, _gcdvimcTitle = Nothing
}
gcdvimcButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard [GoogleCloudDialogflowV2beta1IntentMessageCardButton]
gcdvimcButtons
= lens _gcdvimcButtons
(\ s a -> s{_gcdvimcButtons = a})
. _Default
. _Coerce
gcdvimcImageURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text)
gcdvimcImageURI
= lens _gcdvimcImageURI
(\ s a -> s{_gcdvimcImageURI = a})
gcdvimcSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text)
gcdvimcSubtitle
= lens _gcdvimcSubtitle
(\ s a -> s{_gcdvimcSubtitle = a})
gcdvimcTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text)
gcdvimcTitle
= lens _gcdvimcTitle (\ s a -> s{_gcdvimcTitle = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageCard
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageCard"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageCard' <$>
(o .:? "buttons" .!= mempty) <*> (o .:? "imageUri")
<*> (o .:? "subtitle")
<*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageCard
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageCard'{..}
= object
(catMaybes
[("buttons" .=) <$> _gcdvimcButtons,
("imageUri" .=) <$> _gcdvimcImageURI,
("subtitle" .=) <$> _gcdvimcSubtitle,
("title" .=) <$> _gcdvimcTitle])
data GoogleCloudDialogflowV2RestoreAgentRequest =
GoogleCloudDialogflowV2RestoreAgentRequest'
{ _gcdvrarAgentURI :: !(Maybe Text)
, _gcdvrarAgentContent :: !(Maybe Bytes)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2RestoreAgentRequest
:: GoogleCloudDialogflowV2RestoreAgentRequest
googleCloudDialogflowV2RestoreAgentRequest =
GoogleCloudDialogflowV2RestoreAgentRequest'
{_gcdvrarAgentURI = Nothing, _gcdvrarAgentContent = Nothing}
gcdvrarAgentURI :: Lens' GoogleCloudDialogflowV2RestoreAgentRequest (Maybe Text)
gcdvrarAgentURI
= lens _gcdvrarAgentURI
(\ s a -> s{_gcdvrarAgentURI = a})
gcdvrarAgentContent :: Lens' GoogleCloudDialogflowV2RestoreAgentRequest (Maybe ByteString)
gcdvrarAgentContent
= lens _gcdvrarAgentContent
(\ s a -> s{_gcdvrarAgentContent = a})
. mapping _Bytes
instance FromJSON
GoogleCloudDialogflowV2RestoreAgentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2RestoreAgentRequest"
(\ o ->
GoogleCloudDialogflowV2RestoreAgentRequest' <$>
(o .:? "agentUri") <*> (o .:? "agentContent"))
instance ToJSON
GoogleCloudDialogflowV2RestoreAgentRequest
where
toJSON
GoogleCloudDialogflowV2RestoreAgentRequest'{..}
= object
(catMaybes
[("agentUri" .=) <$> _gcdvrarAgentURI,
("agentContent" .=) <$> _gcdvrarAgentContent])
newtype GoogleCloudDialogflowV2IntentMessageSuggestions =
GoogleCloudDialogflowV2IntentMessageSuggestions'
{ _gSuggestions :: Maybe [GoogleCloudDialogflowV2IntentMessageSuggestion]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageSuggestions
:: GoogleCloudDialogflowV2IntentMessageSuggestions
googleCloudDialogflowV2IntentMessageSuggestions =
GoogleCloudDialogflowV2IntentMessageSuggestions' {_gSuggestions = Nothing}
gSuggestions :: Lens' GoogleCloudDialogflowV2IntentMessageSuggestions [GoogleCloudDialogflowV2IntentMessageSuggestion]
gSuggestions
= lens _gSuggestions (\ s a -> s{_gSuggestions = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageSuggestions
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageSuggestions"
(\ o ->
GoogleCloudDialogflowV2IntentMessageSuggestions' <$>
(o .:? "suggestions" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageSuggestions
where
toJSON
GoogleCloudDialogflowV2IntentMessageSuggestions'{..}
= object
(catMaybes [("suggestions" .=) <$> _gSuggestions])
newtype GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction =
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction'
{ _gcdvimbcbouaURI :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction
:: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction
googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction =
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction'
{_gcdvimbcbouaURI = Nothing}
gcdvimbcbouaURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction (Maybe Text)
gcdvimbcbouaURI
= lens _gcdvimbcbouaURI
(\ s a -> s{_gcdvimbcbouaURI = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction'
<$> (o .:? "uri"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction'{..}
= object
(catMaybes [("uri" .=) <$> _gcdvimbcbouaURI])
data GoogleCloudDialogflowV2QueryParameters =
GoogleCloudDialogflowV2QueryParameters'
{ _gcdvqpContexts :: !(Maybe [GoogleCloudDialogflowV2Context])
, _gcdvqpSentimentAnalysisRequestConfig :: !(Maybe GoogleCloudDialogflowV2SentimentAnalysisRequestConfig)
, _gcdvqpPayload :: !(Maybe GoogleCloudDialogflowV2QueryParametersPayload)
, _gcdvqpGeoLocation :: !(Maybe GoogleTypeLatLng)
, _gcdvqpTimeZone :: !(Maybe Text)
, _gcdvqpSessionEntityTypes :: !(Maybe [GoogleCloudDialogflowV2SessionEntityType])
, _gcdvqpResetContexts :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryParameters
:: GoogleCloudDialogflowV2QueryParameters
googleCloudDialogflowV2QueryParameters =
GoogleCloudDialogflowV2QueryParameters'
{ _gcdvqpContexts = Nothing
, _gcdvqpSentimentAnalysisRequestConfig = Nothing
, _gcdvqpPayload = Nothing
, _gcdvqpGeoLocation = Nothing
, _gcdvqpTimeZone = Nothing
, _gcdvqpSessionEntityTypes = Nothing
, _gcdvqpResetContexts = Nothing
}
gcdvqpContexts :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2Context]
gcdvqpContexts
= lens _gcdvqpContexts
(\ s a -> s{_gcdvqpContexts = a})
. _Default
. _Coerce
gcdvqpSentimentAnalysisRequestConfig :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleCloudDialogflowV2SentimentAnalysisRequestConfig)
gcdvqpSentimentAnalysisRequestConfig
= lens _gcdvqpSentimentAnalysisRequestConfig
(\ s a ->
s{_gcdvqpSentimentAnalysisRequestConfig = a})
gcdvqpPayload :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleCloudDialogflowV2QueryParametersPayload)
gcdvqpPayload
= lens _gcdvqpPayload
(\ s a -> s{_gcdvqpPayload = a})
gcdvqpGeoLocation :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleTypeLatLng)
gcdvqpGeoLocation
= lens _gcdvqpGeoLocation
(\ s a -> s{_gcdvqpGeoLocation = a})
gcdvqpTimeZone :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe Text)
gcdvqpTimeZone
= lens _gcdvqpTimeZone
(\ s a -> s{_gcdvqpTimeZone = a})
gcdvqpSessionEntityTypes :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2SessionEntityType]
gcdvqpSessionEntityTypes
= lens _gcdvqpSessionEntityTypes
(\ s a -> s{_gcdvqpSessionEntityTypes = a})
. _Default
. _Coerce
gcdvqpResetContexts :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe Bool)
gcdvqpResetContexts
= lens _gcdvqpResetContexts
(\ s a -> s{_gcdvqpResetContexts = a})
instance FromJSON
GoogleCloudDialogflowV2QueryParameters
where
parseJSON
= withObject "GoogleCloudDialogflowV2QueryParameters"
(\ o ->
GoogleCloudDialogflowV2QueryParameters' <$>
(o .:? "contexts" .!= mempty) <*>
(o .:? "sentimentAnalysisRequestConfig")
<*> (o .:? "payload")
<*> (o .:? "geoLocation")
<*> (o .:? "timeZone")
<*> (o .:? "sessionEntityTypes" .!= mempty)
<*> (o .:? "resetContexts"))
instance ToJSON
GoogleCloudDialogflowV2QueryParameters
where
toJSON GoogleCloudDialogflowV2QueryParameters'{..}
= object
(catMaybes
[("contexts" .=) <$> _gcdvqpContexts,
("sentimentAnalysisRequestConfig" .=) <$>
_gcdvqpSentimentAnalysisRequestConfig,
("payload" .=) <$> _gcdvqpPayload,
("geoLocation" .=) <$> _gcdvqpGeoLocation,
("timeZone" .=) <$> _gcdvqpTimeZone,
("sessionEntityTypes" .=) <$>
_gcdvqpSessionEntityTypes,
("resetContexts" .=) <$> _gcdvqpResetContexts])
newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestion =
GoogleCloudDialogflowV2beta1IntentMessageSuggestion'
{ _gcdvimsTitle :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageSuggestion
:: GoogleCloudDialogflowV2beta1IntentMessageSuggestion
googleCloudDialogflowV2beta1IntentMessageSuggestion =
GoogleCloudDialogflowV2beta1IntentMessageSuggestion' {_gcdvimsTitle = Nothing}
gcdvimsTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSuggestion (Maybe Text)
gcdvimsTitle
= lens _gcdvimsTitle (\ s a -> s{_gcdvimsTitle = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestion
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageSuggestion"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageSuggestion'
<$> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestion
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageSuggestion'{..}
= object (catMaybes [("title" .=) <$> _gcdvimsTitle])
data GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest =
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest'
{ _gcdvodirPayload :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload)
, _gcdvodirVersion :: !(Maybe Text)
, _gcdvodirSource :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1OriginalDetectIntentRequest
:: GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest
googleCloudDialogflowV2beta1OriginalDetectIntentRequest =
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest'
{ _gcdvodirPayload = Nothing
, _gcdvodirVersion = Nothing
, _gcdvodirSource = Nothing
}
gcdvodirPayload :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload)
gcdvodirPayload
= lens _gcdvodirPayload
(\ s a -> s{_gcdvodirPayload = a})
gcdvodirVersion :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe Text)
gcdvodirVersion
= lens _gcdvodirVersion
(\ s a -> s{_gcdvodirVersion = a})
gcdvodirSource :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe Text)
gcdvodirSource
= lens _gcdvodirSource
(\ s a -> s{_gcdvodirSource = a})
instance FromJSON
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest"
(\ o ->
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest'
<$>
(o .:? "payload") <*> (o .:? "version") <*>
(o .:? "source"))
instance ToJSON
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest
where
toJSON
GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest'{..}
= object
(catMaybes
[("payload" .=) <$> _gcdvodirPayload,
("version" .=) <$> _gcdvodirVersion,
("source" .=) <$> _gcdvodirSource])
newtype GoogleCloudDialogflowV2EventInputParameters =
GoogleCloudDialogflowV2EventInputParameters'
{ _gcdveipsAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2EventInputParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2EventInputParameters
googleCloudDialogflowV2EventInputParameters pGcdveipsAddtional_ =
GoogleCloudDialogflowV2EventInputParameters'
{_gcdveipsAddtional = _Coerce # pGcdveipsAddtional_}
gcdveipsAddtional :: Lens' GoogleCloudDialogflowV2EventInputParameters (HashMap Text JSONValue)
gcdveipsAddtional
= lens _gcdveipsAddtional
(\ s a -> s{_gcdveipsAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2EventInputParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2EventInputParameters"
(\ o ->
GoogleCloudDialogflowV2EventInputParameters' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2EventInputParameters
where
toJSON = toJSON . _gcdveipsAddtional
data GoogleCloudDialogflowV2DetectIntentResponse =
GoogleCloudDialogflowV2DetectIntentResponse'
{ _gcdvdirOutputAudioConfig :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfig)
, _gcdvdirResponseId :: !(Maybe Text)
, _gcdvdirOutputAudio :: !(Maybe Bytes)
, _gcdvdirWebhookStatus :: !(Maybe GoogleRpcStatus)
, _gcdvdirQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2DetectIntentResponse
:: GoogleCloudDialogflowV2DetectIntentResponse
googleCloudDialogflowV2DetectIntentResponse =
GoogleCloudDialogflowV2DetectIntentResponse'
{ _gcdvdirOutputAudioConfig = Nothing
, _gcdvdirResponseId = Nothing
, _gcdvdirOutputAudio = Nothing
, _gcdvdirWebhookStatus = Nothing
, _gcdvdirQueryResult = Nothing
}
gcdvdirOutputAudioConfig :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleCloudDialogflowV2OutputAudioConfig)
gcdvdirOutputAudioConfig
= lens _gcdvdirOutputAudioConfig
(\ s a -> s{_gcdvdirOutputAudioConfig = a})
gcdvdirResponseId :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe Text)
gcdvdirResponseId
= lens _gcdvdirResponseId
(\ s a -> s{_gcdvdirResponseId = a})
gcdvdirOutputAudio :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe ByteString)
gcdvdirOutputAudio
= lens _gcdvdirOutputAudio
(\ s a -> s{_gcdvdirOutputAudio = a})
. mapping _Bytes
gcdvdirWebhookStatus :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleRpcStatus)
gcdvdirWebhookStatus
= lens _gcdvdirWebhookStatus
(\ s a -> s{_gcdvdirWebhookStatus = a})
gcdvdirQueryResult :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleCloudDialogflowV2QueryResult)
gcdvdirQueryResult
= lens _gcdvdirQueryResult
(\ s a -> s{_gcdvdirQueryResult = a})
instance FromJSON
GoogleCloudDialogflowV2DetectIntentResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2DetectIntentResponse"
(\ o ->
GoogleCloudDialogflowV2DetectIntentResponse' <$>
(o .:? "outputAudioConfig") <*> (o .:? "responseId")
<*> (o .:? "outputAudio")
<*> (o .:? "webhookStatus")
<*> (o .:? "queryResult"))
instance ToJSON
GoogleCloudDialogflowV2DetectIntentResponse
where
toJSON
GoogleCloudDialogflowV2DetectIntentResponse'{..}
= object
(catMaybes
[("outputAudioConfig" .=) <$>
_gcdvdirOutputAudioConfig,
("responseId" .=) <$> _gcdvdirResponseId,
("outputAudio" .=) <$> _gcdvdirOutputAudio,
("webhookStatus" .=) <$> _gcdvdirWebhookStatus,
("queryResult" .=) <$> _gcdvdirQueryResult])
data GoogleCloudDialogflowV2IntentMessageListSelectItem =
GoogleCloudDialogflowV2IntentMessageListSelectItem'
{ _gcdvimlsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage)
, _gcdvimlsiTitle :: !(Maybe Text)
, _gcdvimlsiDescription :: !(Maybe Text)
, _gcdvimlsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageListSelectItem
:: GoogleCloudDialogflowV2IntentMessageListSelectItem
googleCloudDialogflowV2IntentMessageListSelectItem =
GoogleCloudDialogflowV2IntentMessageListSelectItem'
{ _gcdvimlsiImage = Nothing
, _gcdvimlsiTitle = Nothing
, _gcdvimlsiDescription = Nothing
, _gcdvimlsiInfo = Nothing
}
gcdvimlsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage)
gcdvimlsiImage
= lens _gcdvimlsiImage
(\ s a -> s{_gcdvimlsiImage = a})
gcdvimlsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text)
gcdvimlsiTitle
= lens _gcdvimlsiTitle
(\ s a -> s{_gcdvimlsiTitle = a})
gcdvimlsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text)
gcdvimlsiDescription
= lens _gcdvimlsiDescription
(\ s a -> s{_gcdvimlsiDescription = a})
gcdvimlsiInfo :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo)
gcdvimlsiInfo
= lens _gcdvimlsiInfo
(\ s a -> s{_gcdvimlsiInfo = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageListSelectItem
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageListSelectItem"
(\ o ->
GoogleCloudDialogflowV2IntentMessageListSelectItem'
<$>
(o .:? "image") <*> (o .:? "title") <*>
(o .:? "description")
<*> (o .:? "info"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageListSelectItem
where
toJSON
GoogleCloudDialogflowV2IntentMessageListSelectItem'{..}
= object
(catMaybes
[("image" .=) <$> _gcdvimlsiImage,
("title" .=) <$> _gcdvimlsiTitle,
("description" .=) <$> _gcdvimlsiDescription,
("info" .=) <$> _gcdvimlsiInfo])
newtype GoogleCloudDialogflowV2beta1SentimentAnalysisResult =
GoogleCloudDialogflowV2beta1SentimentAnalysisResult'
{ _gQueryTextSentiment :: Maybe GoogleCloudDialogflowV2beta1Sentiment
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1SentimentAnalysisResult
:: GoogleCloudDialogflowV2beta1SentimentAnalysisResult
googleCloudDialogflowV2beta1SentimentAnalysisResult =
GoogleCloudDialogflowV2beta1SentimentAnalysisResult'
{_gQueryTextSentiment = Nothing}
gQueryTextSentiment :: Lens' GoogleCloudDialogflowV2beta1SentimentAnalysisResult (Maybe GoogleCloudDialogflowV2beta1Sentiment)
gQueryTextSentiment
= lens _gQueryTextSentiment
(\ s a -> s{_gQueryTextSentiment = a})
instance FromJSON
GoogleCloudDialogflowV2beta1SentimentAnalysisResult
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1SentimentAnalysisResult"
(\ o ->
GoogleCloudDialogflowV2beta1SentimentAnalysisResult'
<$> (o .:? "queryTextSentiment"))
instance ToJSON
GoogleCloudDialogflowV2beta1SentimentAnalysisResult
where
toJSON
GoogleCloudDialogflowV2beta1SentimentAnalysisResult'{..}
= object
(catMaybes
[("queryTextSentiment" .=) <$> _gQueryTextSentiment])
newtype GoogleCloudDialogflowV2EntityTypeBatch =
GoogleCloudDialogflowV2EntityTypeBatch'
{ _gcdvetbEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2EntityTypeBatch
:: GoogleCloudDialogflowV2EntityTypeBatch
googleCloudDialogflowV2EntityTypeBatch =
GoogleCloudDialogflowV2EntityTypeBatch' {_gcdvetbEntityTypes = Nothing}
gcdvetbEntityTypes :: Lens' GoogleCloudDialogflowV2EntityTypeBatch [GoogleCloudDialogflowV2EntityType]
gcdvetbEntityTypes
= lens _gcdvetbEntityTypes
(\ s a -> s{_gcdvetbEntityTypes = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2EntityTypeBatch
where
parseJSON
= withObject "GoogleCloudDialogflowV2EntityTypeBatch"
(\ o ->
GoogleCloudDialogflowV2EntityTypeBatch' <$>
(o .:? "entityTypes" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2EntityTypeBatch
where
toJSON GoogleCloudDialogflowV2EntityTypeBatch'{..}
= object
(catMaybes
[("entityTypes" .=) <$> _gcdvetbEntityTypes])
data GoogleCloudDialogflowV2VoiceSelectionParams =
GoogleCloudDialogflowV2VoiceSelectionParams'
{ _gcdvvspSsmlGender :: !(Maybe GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender)
, _gcdvvspName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2VoiceSelectionParams
:: GoogleCloudDialogflowV2VoiceSelectionParams
googleCloudDialogflowV2VoiceSelectionParams =
GoogleCloudDialogflowV2VoiceSelectionParams'
{_gcdvvspSsmlGender = Nothing, _gcdvvspName = Nothing}
gcdvvspSsmlGender :: Lens' GoogleCloudDialogflowV2VoiceSelectionParams (Maybe GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender)
gcdvvspSsmlGender
= lens _gcdvvspSsmlGender
(\ s a -> s{_gcdvvspSsmlGender = a})
gcdvvspName :: Lens' GoogleCloudDialogflowV2VoiceSelectionParams (Maybe Text)
gcdvvspName
= lens _gcdvvspName (\ s a -> s{_gcdvvspName = a})
instance FromJSON
GoogleCloudDialogflowV2VoiceSelectionParams
where
parseJSON
= withObject
"GoogleCloudDialogflowV2VoiceSelectionParams"
(\ o ->
GoogleCloudDialogflowV2VoiceSelectionParams' <$>
(o .:? "ssmlGender") <*> (o .:? "name"))
instance ToJSON
GoogleCloudDialogflowV2VoiceSelectionParams
where
toJSON
GoogleCloudDialogflowV2VoiceSelectionParams'{..}
= object
(catMaybes
[("ssmlGender" .=) <$> _gcdvvspSsmlGender,
("name" .=) <$> _gcdvvspName])
newtype GoogleCloudDialogflowV2QueryResultDiagnosticInfo =
GoogleCloudDialogflowV2QueryResultDiagnosticInfo'
{ _gcdvqrdiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryResultDiagnosticInfo
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2QueryResultDiagnosticInfo
googleCloudDialogflowV2QueryResultDiagnosticInfo pGcdvqrdiAddtional_ =
GoogleCloudDialogflowV2QueryResultDiagnosticInfo'
{_gcdvqrdiAddtional = _Coerce # pGcdvqrdiAddtional_}
gcdvqrdiAddtional :: Lens' GoogleCloudDialogflowV2QueryResultDiagnosticInfo (HashMap Text JSONValue)
gcdvqrdiAddtional
= lens _gcdvqrdiAddtional
(\ s a -> s{_gcdvqrdiAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2QueryResultDiagnosticInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2QueryResultDiagnosticInfo"
(\ o ->
GoogleCloudDialogflowV2QueryResultDiagnosticInfo' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2QueryResultDiagnosticInfo
where
toJSON = toJSON . _gcdvqrdiAddtional
newtype GoogleCloudDialogflowV2IntentMessageText =
GoogleCloudDialogflowV2IntentMessageText'
{ _gcdvimtText :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageText
:: GoogleCloudDialogflowV2IntentMessageText
googleCloudDialogflowV2IntentMessageText =
GoogleCloudDialogflowV2IntentMessageText' {_gcdvimtText = Nothing}
gcdvimtText :: Lens' GoogleCloudDialogflowV2IntentMessageText [Text]
gcdvimtText
= lens _gcdvimtText (\ s a -> s{_gcdvimtText = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageText
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageText"
(\ o ->
GoogleCloudDialogflowV2IntentMessageText' <$>
(o .:? "text" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageText
where
toJSON GoogleCloudDialogflowV2IntentMessageText'{..}
= object (catMaybes [("text" .=) <$> _gcdvimtText])
data GoogleCloudDialogflowV2DetectIntentRequest =
GoogleCloudDialogflowV2DetectIntentRequest'
{ _gQueryInput :: !(Maybe GoogleCloudDialogflowV2QueryInput)
, _gOutputAudioConfig :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfig)
, _gInputAudio :: !(Maybe Bytes)
, _gQueryParams :: !(Maybe GoogleCloudDialogflowV2QueryParameters)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2DetectIntentRequest
:: GoogleCloudDialogflowV2DetectIntentRequest
googleCloudDialogflowV2DetectIntentRequest =
GoogleCloudDialogflowV2DetectIntentRequest'
{ _gQueryInput = Nothing
, _gOutputAudioConfig = Nothing
, _gInputAudio = Nothing
, _gQueryParams = Nothing
}
gQueryInput :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2QueryInput)
gQueryInput
= lens _gQueryInput (\ s a -> s{_gQueryInput = a})
gOutputAudioConfig :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2OutputAudioConfig)
gOutputAudioConfig
= lens _gOutputAudioConfig
(\ s a -> s{_gOutputAudioConfig = a})
gInputAudio :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe ByteString)
gInputAudio
= lens _gInputAudio (\ s a -> s{_gInputAudio = a}) .
mapping _Bytes
gQueryParams :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2QueryParameters)
gQueryParams
= lens _gQueryParams (\ s a -> s{_gQueryParams = a})
instance FromJSON
GoogleCloudDialogflowV2DetectIntentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2DetectIntentRequest"
(\ o ->
GoogleCloudDialogflowV2DetectIntentRequest' <$>
(o .:? "queryInput") <*> (o .:? "outputAudioConfig")
<*> (o .:? "inputAudio")
<*> (o .:? "queryParams"))
instance ToJSON
GoogleCloudDialogflowV2DetectIntentRequest
where
toJSON
GoogleCloudDialogflowV2DetectIntentRequest'{..}
= object
(catMaybes
[("queryInput" .=) <$> _gQueryInput,
("outputAudioConfig" .=) <$> _gOutputAudioConfig,
("inputAudio" .=) <$> _gInputAudio,
("queryParams" .=) <$> _gQueryParams])
newtype GoogleCloudDialogflowV2beta1QueryResultParameters =
GoogleCloudDialogflowV2beta1QueryResultParameters'
{ _gcdvqrpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1QueryResultParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1QueryResultParameters
googleCloudDialogflowV2beta1QueryResultParameters pGcdvqrpAddtional_ =
GoogleCloudDialogflowV2beta1QueryResultParameters'
{_gcdvqrpAddtional = _Coerce # pGcdvqrpAddtional_}
gcdvqrpAddtional :: Lens' GoogleCloudDialogflowV2beta1QueryResultParameters (HashMap Text JSONValue)
gcdvqrpAddtional
= lens _gcdvqrpAddtional
(\ s a -> s{_gcdvqrpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1QueryResultParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1QueryResultParameters"
(\ o ->
GoogleCloudDialogflowV2beta1QueryResultParameters'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1QueryResultParameters
where
toJSON = toJSON . _gcdvqrpAddtional
data GoogleCloudDialogflowV2beta1IntentMessageBasicCard =
GoogleCloudDialogflowV2beta1IntentMessageBasicCard'
{ _gcdvimbccImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
, _gcdvimbccButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton])
, _gcdvimbccSubtitle :: !(Maybe Text)
, _gcdvimbccTitle :: !(Maybe Text)
, _gcdvimbccFormattedText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageBasicCard
:: GoogleCloudDialogflowV2beta1IntentMessageBasicCard
googleCloudDialogflowV2beta1IntentMessageBasicCard =
GoogleCloudDialogflowV2beta1IntentMessageBasicCard'
{ _gcdvimbccImage = Nothing
, _gcdvimbccButtons = Nothing
, _gcdvimbccSubtitle = Nothing
, _gcdvimbccTitle = Nothing
, _gcdvimbccFormattedText = Nothing
}
gcdvimbccImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
gcdvimbccImage
= lens _gcdvimbccImage
(\ s a -> s{_gcdvimbccImage = a})
gcdvimbccButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton]
gcdvimbccButtons
= lens _gcdvimbccButtons
(\ s a -> s{_gcdvimbccButtons = a})
. _Default
. _Coerce
gcdvimbccSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text)
gcdvimbccSubtitle
= lens _gcdvimbccSubtitle
(\ s a -> s{_gcdvimbccSubtitle = a})
gcdvimbccTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text)
gcdvimbccTitle
= lens _gcdvimbccTitle
(\ s a -> s{_gcdvimbccTitle = a})
gcdvimbccFormattedText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text)
gcdvimbccFormattedText
= lens _gcdvimbccFormattedText
(\ s a -> s{_gcdvimbccFormattedText = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCard
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageBasicCard"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageBasicCard'
<$>
(o .:? "image") <*> (o .:? "buttons" .!= mempty) <*>
(o .:? "subtitle")
<*> (o .:? "title")
<*> (o .:? "formattedText"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCard
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageBasicCard'{..}
= object
(catMaybes
[("image" .=) <$> _gcdvimbccImage,
("buttons" .=) <$> _gcdvimbccButtons,
("subtitle" .=) <$> _gcdvimbccSubtitle,
("title" .=) <$> _gcdvimbccTitle,
("formattedText" .=) <$> _gcdvimbccFormattedText])
data GoogleCloudDialogflowV2beta1IntentTrainingPhrase =
GoogleCloudDialogflowV2beta1IntentTrainingPhrase'
{ _gParts :: !(Maybe [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart])
, _gName :: !(Maybe Text)
, _gTimesAddedCount :: !(Maybe (Textual Int32))
, _gType :: !(Maybe GoogleCloudDialogflowV2beta1IntentTrainingPhraseType)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentTrainingPhrase
:: GoogleCloudDialogflowV2beta1IntentTrainingPhrase
googleCloudDialogflowV2beta1IntentTrainingPhrase =
GoogleCloudDialogflowV2beta1IntentTrainingPhrase'
{ _gParts = Nothing
, _gName = Nothing
, _gTimesAddedCount = Nothing
, _gType = Nothing
}
gParts :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart]
gParts
= lens _gParts (\ s a -> s{_gParts = a}) . _Default .
_Coerce
gName :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Text)
gName = lens _gName (\ s a -> s{_gName = a})
gTimesAddedCount :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Int32)
gTimesAddedCount
= lens _gTimesAddedCount
(\ s a -> s{_gTimesAddedCount = a})
. mapping _Coerce
gType :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe GoogleCloudDialogflowV2beta1IntentTrainingPhraseType)
gType = lens _gType (\ s a -> s{_gType = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrase
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentTrainingPhrase"
(\ o ->
GoogleCloudDialogflowV2beta1IntentTrainingPhrase' <$>
(o .:? "parts" .!= mempty) <*> (o .:? "name") <*>
(o .:? "timesAddedCount")
<*> (o .:? "type"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrase
where
toJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrase'{..}
= object
(catMaybes
[("parts" .=) <$> _gParts, ("name" .=) <$> _gName,
("timesAddedCount" .=) <$> _gTimesAddedCount,
("type" .=) <$> _gType])
data GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer =
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer'
{ _gcdvkaaMatchConfidence :: !(Maybe (Textual Double))
, _gcdvkaaAnswer :: !(Maybe Text)
, _gcdvkaaSource :: !(Maybe Text)
, _gcdvkaaFaqQuestion :: !(Maybe Text)
, _gcdvkaaMatchConfidenceLevel :: !(Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1KnowledgeAnswersAnswer
:: GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer
googleCloudDialogflowV2beta1KnowledgeAnswersAnswer =
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer'
{ _gcdvkaaMatchConfidence = Nothing
, _gcdvkaaAnswer = Nothing
, _gcdvkaaSource = Nothing
, _gcdvkaaFaqQuestion = Nothing
, _gcdvkaaMatchConfidenceLevel = Nothing
}
gcdvkaaMatchConfidence :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Double)
gcdvkaaMatchConfidence
= lens _gcdvkaaMatchConfidence
(\ s a -> s{_gcdvkaaMatchConfidence = a})
. mapping _Coerce
gcdvkaaAnswer :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text)
gcdvkaaAnswer
= lens _gcdvkaaAnswer
(\ s a -> s{_gcdvkaaAnswer = a})
gcdvkaaSource :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text)
gcdvkaaSource
= lens _gcdvkaaSource
(\ s a -> s{_gcdvkaaSource = a})
gcdvkaaFaqQuestion :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text)
gcdvkaaFaqQuestion
= lens _gcdvkaaFaqQuestion
(\ s a -> s{_gcdvkaaFaqQuestion = a})
gcdvkaaMatchConfidenceLevel :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel)
gcdvkaaMatchConfidenceLevel
= lens _gcdvkaaMatchConfidenceLevel
(\ s a -> s{_gcdvkaaMatchConfidenceLevel = a})
instance FromJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer"
(\ o ->
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer'
<$>
(o .:? "matchConfidence") <*> (o .:? "answer") <*>
(o .:? "source")
<*> (o .:? "faqQuestion")
<*> (o .:? "matchConfidenceLevel"))
instance ToJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer
where
toJSON
GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer'{..}
= object
(catMaybes
[("matchConfidence" .=) <$> _gcdvkaaMatchConfidence,
("answer" .=) <$> _gcdvkaaAnswer,
("source" .=) <$> _gcdvkaaSource,
("faqQuestion" .=) <$> _gcdvkaaFaqQuestion,
("matchConfidenceLevel" .=) <$>
_gcdvkaaMatchConfidenceLevel])
data GoogleCloudDialogflowV2beta1EventInput =
GoogleCloudDialogflowV2beta1EventInput'
{ _gooLanguageCode :: !(Maybe Text)
, _gooName :: !(Maybe Text)
, _gooParameters :: !(Maybe GoogleCloudDialogflowV2beta1EventInputParameters)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1EventInput
:: GoogleCloudDialogflowV2beta1EventInput
googleCloudDialogflowV2beta1EventInput =
GoogleCloudDialogflowV2beta1EventInput'
{_gooLanguageCode = Nothing, _gooName = Nothing, _gooParameters = Nothing}
gooLanguageCode :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text)
gooLanguageCode
= lens _gooLanguageCode
(\ s a -> s{_gooLanguageCode = a})
gooName :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text)
gooName = lens _gooName (\ s a -> s{_gooName = a})
gooParameters :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe GoogleCloudDialogflowV2beta1EventInputParameters)
gooParameters
= lens _gooParameters
(\ s a -> s{_gooParameters = a})
instance FromJSON
GoogleCloudDialogflowV2beta1EventInput
where
parseJSON
= withObject "GoogleCloudDialogflowV2beta1EventInput"
(\ o ->
GoogleCloudDialogflowV2beta1EventInput' <$>
(o .:? "languageCode") <*> (o .:? "name") <*>
(o .:? "parameters"))
instance ToJSON
GoogleCloudDialogflowV2beta1EventInput
where
toJSON GoogleCloudDialogflowV2beta1EventInput'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gooLanguageCode,
("name" .=) <$> _gooName,
("parameters" .=) <$> _gooParameters])
data GoogleCloudDialogflowV2BatchUpdateEntitiesRequest =
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest'
{ _gcdvbuerLanguageCode :: !(Maybe Text)
, _gcdvbuerUpdateMask :: !(Maybe GFieldMask)
, _gcdvbuerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchUpdateEntitiesRequest
:: GoogleCloudDialogflowV2BatchUpdateEntitiesRequest
googleCloudDialogflowV2BatchUpdateEntitiesRequest =
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest'
{ _gcdvbuerLanguageCode = Nothing
, _gcdvbuerUpdateMask = Nothing
, _gcdvbuerEntities = Nothing
}
gcdvbuerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe Text)
gcdvbuerLanguageCode
= lens _gcdvbuerLanguageCode
(\ s a -> s{_gcdvbuerLanguageCode = a})
gcdvbuerUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe GFieldMask)
gcdvbuerUpdateMask
= lens _gcdvbuerUpdateMask
(\ s a -> s{_gcdvbuerUpdateMask = a})
gcdvbuerEntities :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest [GoogleCloudDialogflowV2EntityTypeEntity]
gcdvbuerEntities
= lens _gcdvbuerEntities
(\ s a -> s{_gcdvbuerEntities = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchUpdateEntitiesRequest"
(\ o ->
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest'
<$>
(o .:? "languageCode") <*> (o .:? "updateMask") <*>
(o .:? "entities" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest
where
toJSON
GoogleCloudDialogflowV2BatchUpdateEntitiesRequest'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvbuerLanguageCode,
("updateMask" .=) <$> _gcdvbuerUpdateMask,
("entities" .=) <$> _gcdvbuerEntities])
newtype GoogleCloudDialogflowV2IntentMessagePayload =
GoogleCloudDialogflowV2IntentMessagePayload'
{ _gooAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessagePayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2IntentMessagePayload
googleCloudDialogflowV2IntentMessagePayload pGooAddtional_ =
GoogleCloudDialogflowV2IntentMessagePayload'
{_gooAddtional = _Coerce # pGooAddtional_}
gooAddtional :: Lens' GoogleCloudDialogflowV2IntentMessagePayload (HashMap Text JSONValue)
gooAddtional
= lens _gooAddtional (\ s a -> s{_gooAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessagePayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessagePayload"
(\ o ->
GoogleCloudDialogflowV2IntentMessagePayload' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2IntentMessagePayload
where
toJSON = toJSON . _gooAddtional
newtype GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata =
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata'
{ _gcdvkomState :: Maybe GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1KnowledgeOperationMetadata
:: GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata
googleCloudDialogflowV2beta1KnowledgeOperationMetadata =
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata'
{_gcdvkomState = Nothing}
gcdvkomState :: Lens' GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata (Maybe GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState)
gcdvkomState
= lens _gcdvkomState (\ s a -> s{_gcdvkomState = a})
instance FromJSON
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata"
(\ o ->
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata'
<$> (o .:? "state"))
instance ToJSON
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata
where
toJSON
GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata'{..}
= object (catMaybes [("state" .=) <$> _gcdvkomState])
data GoogleCloudDialogflowV2beta1WebhookRequest =
GoogleCloudDialogflowV2beta1WebhookRequest'
{ _gOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest)
, _gResponseId :: !(Maybe Text)
, _gAlternativeQueryResults :: !(Maybe [GoogleCloudDialogflowV2beta1QueryResult])
, _gQueryResult :: !(Maybe GoogleCloudDialogflowV2beta1QueryResult)
, _gSession :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1WebhookRequest
:: GoogleCloudDialogflowV2beta1WebhookRequest
googleCloudDialogflowV2beta1WebhookRequest =
GoogleCloudDialogflowV2beta1WebhookRequest'
{ _gOriginalDetectIntentRequest = Nothing
, _gResponseId = Nothing
, _gAlternativeQueryResults = Nothing
, _gQueryResult = Nothing
, _gSession = Nothing
}
gOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest)
gOriginalDetectIntentRequest
= lens _gOriginalDetectIntentRequest
(\ s a -> s{_gOriginalDetectIntentRequest = a})
gResponseId :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe Text)
gResponseId
= lens _gResponseId (\ s a -> s{_gResponseId = a})
gAlternativeQueryResults :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest [GoogleCloudDialogflowV2beta1QueryResult]
gAlternativeQueryResults
= lens _gAlternativeQueryResults
(\ s a -> s{_gAlternativeQueryResults = a})
. _Default
. _Coerce
gQueryResult :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1QueryResult)
gQueryResult
= lens _gQueryResult (\ s a -> s{_gQueryResult = a})
gSession :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe Text)
gSession = lens _gSession (\ s a -> s{_gSession = a})
instance FromJSON
GoogleCloudDialogflowV2beta1WebhookRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1WebhookRequest"
(\ o ->
GoogleCloudDialogflowV2beta1WebhookRequest' <$>
(o .:? "originalDetectIntentRequest") <*>
(o .:? "responseId")
<*> (o .:? "alternativeQueryResults" .!= mempty)
<*> (o .:? "queryResult")
<*> (o .:? "session"))
instance ToJSON
GoogleCloudDialogflowV2beta1WebhookRequest
where
toJSON
GoogleCloudDialogflowV2beta1WebhookRequest'{..}
= object
(catMaybes
[("originalDetectIntentRequest" .=) <$>
_gOriginalDetectIntentRequest,
("responseId" .=) <$> _gResponseId,
("alternativeQueryResults" .=) <$>
_gAlternativeQueryResults,
("queryResult" .=) <$> _gQueryResult,
("session" .=) <$> _gSession])
newtype GoogleCloudDialogflowV2beta1IntentMessageText =
GoogleCloudDialogflowV2beta1IntentMessageText'
{ _gooText :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageText
:: GoogleCloudDialogflowV2beta1IntentMessageText
googleCloudDialogflowV2beta1IntentMessageText =
GoogleCloudDialogflowV2beta1IntentMessageText' {_gooText = Nothing}
gooText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageText [Text]
gooText
= lens _gooText (\ s a -> s{_gooText = a}) . _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageText
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageText"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageText' <$>
(o .:? "text" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageText
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageText'{..}
= object (catMaybes [("text" .=) <$> _gooText])
newtype GoogleCloudDialogflowV2IntentMessageSimpleResponses =
GoogleCloudDialogflowV2IntentMessageSimpleResponses'
{ _gSimpleResponses :: Maybe [GoogleCloudDialogflowV2IntentMessageSimpleResponse]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageSimpleResponses
:: GoogleCloudDialogflowV2IntentMessageSimpleResponses
googleCloudDialogflowV2IntentMessageSimpleResponses =
GoogleCloudDialogflowV2IntentMessageSimpleResponses'
{_gSimpleResponses = Nothing}
gSimpleResponses :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponses [GoogleCloudDialogflowV2IntentMessageSimpleResponse]
gSimpleResponses
= lens _gSimpleResponses
(\ s a -> s{_gSimpleResponses = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponses
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageSimpleResponses"
(\ o ->
GoogleCloudDialogflowV2IntentMessageSimpleResponses'
<$> (o .:? "simpleResponses" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponses
where
toJSON
GoogleCloudDialogflowV2IntentMessageSimpleResponses'{..}
= object
(catMaybes
[("simpleResponses" .=) <$> _gSimpleResponses])
data GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo =
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo'
{ _gFollowupIntentName :: !(Maybe Text)
, _gParentFollowupIntentName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentFollowupIntentInfo
:: GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo
googleCloudDialogflowV2beta1IntentFollowupIntentInfo =
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo'
{_gFollowupIntentName = Nothing, _gParentFollowupIntentName = Nothing}
gFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo (Maybe Text)
gFollowupIntentName
= lens _gFollowupIntentName
(\ s a -> s{_gFollowupIntentName = a})
gParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo (Maybe Text)
gParentFollowupIntentName
= lens _gParentFollowupIntentName
(\ s a -> s{_gParentFollowupIntentName = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo"
(\ o ->
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo'
<$>
(o .:? "followupIntentName") <*>
(o .:? "parentFollowupIntentName"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo
where
toJSON
GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo'{..}
= object
(catMaybes
[("followupIntentName" .=) <$> _gFollowupIntentName,
("parentFollowupIntentName" .=) <$>
_gParentFollowupIntentName])
newtype GoogleCloudDialogflowV2QueryResultParameters =
GoogleCloudDialogflowV2QueryResultParameters'
{ _gcdvqrpsAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryResultParameters
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2QueryResultParameters
googleCloudDialogflowV2QueryResultParameters pGcdvqrpsAddtional_ =
GoogleCloudDialogflowV2QueryResultParameters'
{_gcdvqrpsAddtional = _Coerce # pGcdvqrpsAddtional_}
gcdvqrpsAddtional :: Lens' GoogleCloudDialogflowV2QueryResultParameters (HashMap Text JSONValue)
gcdvqrpsAddtional
= lens _gcdvqrpsAddtional
(\ s a -> s{_gcdvqrpsAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2QueryResultParameters
where
parseJSON
= withObject
"GoogleCloudDialogflowV2QueryResultParameters"
(\ o ->
GoogleCloudDialogflowV2QueryResultParameters' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2QueryResultParameters
where
toJSON = toJSON . _gcdvqrpsAddtional
newtype GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo =
GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo'
{ _gcdvqrdicAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1QueryResultDiagnosticInfo
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo
googleCloudDialogflowV2beta1QueryResultDiagnosticInfo pGcdvqrdicAddtional_ =
GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo'
{_gcdvqrdicAddtional = _Coerce # pGcdvqrdicAddtional_}
gcdvqrdicAddtional :: Lens' GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo (HashMap Text JSONValue)
gcdvqrdicAddtional
= lens _gcdvqrdicAddtional
(\ s a -> s{_gcdvqrdicAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo"
(\ o ->
GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo
where
toJSON = toJSON . _gcdvqrdicAddtional
data GoogleCloudDialogflowV2BatchDeleteEntitiesRequest =
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest'
{ _gcdvbderLanguageCode :: !(Maybe Text)
, _gcdvbderEntityValues :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchDeleteEntitiesRequest
:: GoogleCloudDialogflowV2BatchDeleteEntitiesRequest
googleCloudDialogflowV2BatchDeleteEntitiesRequest =
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest'
{_gcdvbderLanguageCode = Nothing, _gcdvbderEntityValues = Nothing}
gcdvbderLanguageCode :: Lens' GoogleCloudDialogflowV2BatchDeleteEntitiesRequest (Maybe Text)
gcdvbderLanguageCode
= lens _gcdvbderLanguageCode
(\ s a -> s{_gcdvbderLanguageCode = a})
gcdvbderEntityValues :: Lens' GoogleCloudDialogflowV2BatchDeleteEntitiesRequest [Text]
gcdvbderEntityValues
= lens _gcdvbderEntityValues
(\ s a -> s{_gcdvbderEntityValues = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchDeleteEntitiesRequest"
(\ o ->
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest'
<$>
(o .:? "languageCode") <*>
(o .:? "entityValues" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest
where
toJSON
GoogleCloudDialogflowV2BatchDeleteEntitiesRequest'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvbderLanguageCode,
("entityValues" .=) <$> _gcdvbderEntityValues])
newtype GoogleCloudDialogflowV2BatchUpdateIntentsResponse =
GoogleCloudDialogflowV2BatchUpdateIntentsResponse'
{ _gIntents :: Maybe [GoogleCloudDialogflowV2Intent]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchUpdateIntentsResponse
:: GoogleCloudDialogflowV2BatchUpdateIntentsResponse
googleCloudDialogflowV2BatchUpdateIntentsResponse =
GoogleCloudDialogflowV2BatchUpdateIntentsResponse' {_gIntents = Nothing}
gIntents :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsResponse [GoogleCloudDialogflowV2Intent]
gIntents
= lens _gIntents (\ s a -> s{_gIntents = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchUpdateIntentsResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchUpdateIntentsResponse"
(\ o ->
GoogleCloudDialogflowV2BatchUpdateIntentsResponse'
<$> (o .:? "intents" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchUpdateIntentsResponse
where
toJSON
GoogleCloudDialogflowV2BatchUpdateIntentsResponse'{..}
= object (catMaybes [("intents" .=) <$> _gIntents])
data GoogleCloudDialogflowV2ListEntityTypesResponse =
GoogleCloudDialogflowV2ListEntityTypesResponse'
{ _gcdvletrNextPageToken :: !(Maybe Text)
, _gcdvletrEntityTypes :: !(Maybe [GoogleCloudDialogflowV2EntityType])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ListEntityTypesResponse
:: GoogleCloudDialogflowV2ListEntityTypesResponse
googleCloudDialogflowV2ListEntityTypesResponse =
GoogleCloudDialogflowV2ListEntityTypesResponse'
{_gcdvletrNextPageToken = Nothing, _gcdvletrEntityTypes = Nothing}
gcdvletrNextPageToken :: Lens' GoogleCloudDialogflowV2ListEntityTypesResponse (Maybe Text)
gcdvletrNextPageToken
= lens _gcdvletrNextPageToken
(\ s a -> s{_gcdvletrNextPageToken = a})
gcdvletrEntityTypes :: Lens' GoogleCloudDialogflowV2ListEntityTypesResponse [GoogleCloudDialogflowV2EntityType]
gcdvletrEntityTypes
= lens _gcdvletrEntityTypes
(\ s a -> s{_gcdvletrEntityTypes = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2ListEntityTypesResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ListEntityTypesResponse"
(\ o ->
GoogleCloudDialogflowV2ListEntityTypesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "entityTypes" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2ListEntityTypesResponse
where
toJSON
GoogleCloudDialogflowV2ListEntityTypesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcdvletrNextPageToken,
("entityTypes" .=) <$> _gcdvletrEntityTypes])
data GoogleCloudDialogflowV2Agent =
GoogleCloudDialogflowV2Agent'
{ _gcdvaParent :: !(Maybe Text)
, _gcdvaDefaultLanguageCode :: !(Maybe Text)
, _gcdvaEnableLogging :: !(Maybe Bool)
, _gcdvaClassificationThreshold :: !(Maybe (Textual Double))
, _gcdvaAvatarURI :: !(Maybe Text)
, _gcdvaSupportedLanguageCodes :: !(Maybe [Text])
, _gcdvaDisplayName :: !(Maybe Text)
, _gcdvaMatchMode :: !(Maybe GoogleCloudDialogflowV2AgentMatchMode)
, _gcdvaTimeZone :: !(Maybe Text)
, _gcdvaDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2Agent
:: GoogleCloudDialogflowV2Agent
googleCloudDialogflowV2Agent =
GoogleCloudDialogflowV2Agent'
{ _gcdvaParent = Nothing
, _gcdvaDefaultLanguageCode = Nothing
, _gcdvaEnableLogging = Nothing
, _gcdvaClassificationThreshold = Nothing
, _gcdvaAvatarURI = Nothing
, _gcdvaSupportedLanguageCodes = Nothing
, _gcdvaDisplayName = Nothing
, _gcdvaMatchMode = Nothing
, _gcdvaTimeZone = Nothing
, _gcdvaDescription = Nothing
}
gcdvaParent :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaParent
= lens _gcdvaParent (\ s a -> s{_gcdvaParent = a})
gcdvaDefaultLanguageCode :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaDefaultLanguageCode
= lens _gcdvaDefaultLanguageCode
(\ s a -> s{_gcdvaDefaultLanguageCode = a})
gcdvaEnableLogging :: Lens' GoogleCloudDialogflowV2Agent (Maybe Bool)
gcdvaEnableLogging
= lens _gcdvaEnableLogging
(\ s a -> s{_gcdvaEnableLogging = a})
gcdvaClassificationThreshold :: Lens' GoogleCloudDialogflowV2Agent (Maybe Double)
gcdvaClassificationThreshold
= lens _gcdvaClassificationThreshold
(\ s a -> s{_gcdvaClassificationThreshold = a})
. mapping _Coerce
gcdvaAvatarURI :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaAvatarURI
= lens _gcdvaAvatarURI
(\ s a -> s{_gcdvaAvatarURI = a})
gcdvaSupportedLanguageCodes :: Lens' GoogleCloudDialogflowV2Agent [Text]
gcdvaSupportedLanguageCodes
= lens _gcdvaSupportedLanguageCodes
(\ s a -> s{_gcdvaSupportedLanguageCodes = a})
. _Default
. _Coerce
gcdvaDisplayName :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaDisplayName
= lens _gcdvaDisplayName
(\ s a -> s{_gcdvaDisplayName = a})
gcdvaMatchMode :: Lens' GoogleCloudDialogflowV2Agent (Maybe GoogleCloudDialogflowV2AgentMatchMode)
gcdvaMatchMode
= lens _gcdvaMatchMode
(\ s a -> s{_gcdvaMatchMode = a})
gcdvaTimeZone :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaTimeZone
= lens _gcdvaTimeZone
(\ s a -> s{_gcdvaTimeZone = a})
gcdvaDescription :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text)
gcdvaDescription
= lens _gcdvaDescription
(\ s a -> s{_gcdvaDescription = a})
instance FromJSON GoogleCloudDialogflowV2Agent where
parseJSON
= withObject "GoogleCloudDialogflowV2Agent"
(\ o ->
GoogleCloudDialogflowV2Agent' <$>
(o .:? "parent") <*> (o .:? "defaultLanguageCode")
<*> (o .:? "enableLogging")
<*> (o .:? "classificationThreshold")
<*> (o .:? "avatarUri")
<*> (o .:? "supportedLanguageCodes" .!= mempty)
<*> (o .:? "displayName")
<*> (o .:? "matchMode")
<*> (o .:? "timeZone")
<*> (o .:? "description"))
instance ToJSON GoogleCloudDialogflowV2Agent where
toJSON GoogleCloudDialogflowV2Agent'{..}
= object
(catMaybes
[("parent" .=) <$> _gcdvaParent,
("defaultLanguageCode" .=) <$>
_gcdvaDefaultLanguageCode,
("enableLogging" .=) <$> _gcdvaEnableLogging,
("classificationThreshold" .=) <$>
_gcdvaClassificationThreshold,
("avatarUri" .=) <$> _gcdvaAvatarURI,
("supportedLanguageCodes" .=) <$>
_gcdvaSupportedLanguageCodes,
("displayName" .=) <$> _gcdvaDisplayName,
("matchMode" .=) <$> _gcdvaMatchMode,
("timeZone" .=) <$> _gcdvaTimeZone,
("description" .=) <$> _gcdvaDescription])
data GoogleCloudDialogflowV2beta1IntentMessage =
GoogleCloudDialogflowV2beta1IntentMessage'
{ _gcdvimCard :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageCard)
, _gcdvimImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
, _gcdvimPlatform :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessagePlatform)
, _gcdvimLinkOutSuggestion :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion)
, _gcdvimText :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageText)
, _gcdvimCarouselSelect :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect)
, _gcdvimTelephonySynthesizeSpeech :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech)
, _gcdvimSimpleResponses :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses)
, _gcdvimPayload :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessagePayload)
, _gcdvimTelephonyTransferCall :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall)
, _gcdvimSuggestions :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSuggestions)
, _gcdvimListSelect :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageListSelect)
, _gcdvimTelephonyPlayAudio :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio)
, _gcdvimBasicCard :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCard)
, _gcdvimQuickReplies :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageQuickReplies)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessage
:: GoogleCloudDialogflowV2beta1IntentMessage
googleCloudDialogflowV2beta1IntentMessage =
GoogleCloudDialogflowV2beta1IntentMessage'
{ _gcdvimCard = Nothing
, _gcdvimImage = Nothing
, _gcdvimPlatform = Nothing
, _gcdvimLinkOutSuggestion = Nothing
, _gcdvimText = Nothing
, _gcdvimCarouselSelect = Nothing
, _gcdvimTelephonySynthesizeSpeech = Nothing
, _gcdvimSimpleResponses = Nothing
, _gcdvimPayload = Nothing
, _gcdvimTelephonyTransferCall = Nothing
, _gcdvimSuggestions = Nothing
, _gcdvimListSelect = Nothing
, _gcdvimTelephonyPlayAudio = Nothing
, _gcdvimBasicCard = Nothing
, _gcdvimQuickReplies = Nothing
}
gcdvimCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCard)
gcdvimCard
= lens _gcdvimCard (\ s a -> s{_gcdvimCard = a})
gcdvimImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
gcdvimImage
= lens _gcdvimImage (\ s a -> s{_gcdvimImage = a})
gcdvimPlatform :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePlatform)
gcdvimPlatform
= lens _gcdvimPlatform
(\ s a -> s{_gcdvimPlatform = a})
gcdvimLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion)
gcdvimLinkOutSuggestion
= lens _gcdvimLinkOutSuggestion
(\ s a -> s{_gcdvimLinkOutSuggestion = a})
gcdvimText :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageText)
gcdvimText
= lens _gcdvimText (\ s a -> s{_gcdvimText = a})
gcdvimCarouselSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect)
gcdvimCarouselSelect
= lens _gcdvimCarouselSelect
(\ s a -> s{_gcdvimCarouselSelect = a})
gcdvimTelephonySynthesizeSpeech :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech)
gcdvimTelephonySynthesizeSpeech
= lens _gcdvimTelephonySynthesizeSpeech
(\ s a -> s{_gcdvimTelephonySynthesizeSpeech = a})
gcdvimSimpleResponses :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses)
gcdvimSimpleResponses
= lens _gcdvimSimpleResponses
(\ s a -> s{_gcdvimSimpleResponses = a})
gcdvimPayload :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePayload)
gcdvimPayload
= lens _gcdvimPayload
(\ s a -> s{_gcdvimPayload = a})
gcdvimTelephonyTransferCall :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall)
gcdvimTelephonyTransferCall
= lens _gcdvimTelephonyTransferCall
(\ s a -> s{_gcdvimTelephonyTransferCall = a})
gcdvimSuggestions :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSuggestions)
gcdvimSuggestions
= lens _gcdvimSuggestions
(\ s a -> s{_gcdvimSuggestions = a})
gcdvimListSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageListSelect)
gcdvimListSelect
= lens _gcdvimListSelect
(\ s a -> s{_gcdvimListSelect = a})
gcdvimTelephonyPlayAudio :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio)
gcdvimTelephonyPlayAudio
= lens _gcdvimTelephonyPlayAudio
(\ s a -> s{_gcdvimTelephonyPlayAudio = a})
gcdvimBasicCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCard)
gcdvimBasicCard
= lens _gcdvimBasicCard
(\ s a -> s{_gcdvimBasicCard = a})
gcdvimQuickReplies :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageQuickReplies)
gcdvimQuickReplies
= lens _gcdvimQuickReplies
(\ s a -> s{_gcdvimQuickReplies = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessage
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessage"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessage' <$>
(o .:? "card") <*> (o .:? "image") <*>
(o .:? "platform")
<*> (o .:? "linkOutSuggestion")
<*> (o .:? "text")
<*> (o .:? "carouselSelect")
<*> (o .:? "telephonySynthesizeSpeech")
<*> (o .:? "simpleResponses")
<*> (o .:? "payload")
<*> (o .:? "telephonyTransferCall")
<*> (o .:? "suggestions")
<*> (o .:? "listSelect")
<*> (o .:? "telephonyPlayAudio")
<*> (o .:? "basicCard")
<*> (o .:? "quickReplies"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessage
where
toJSON GoogleCloudDialogflowV2beta1IntentMessage'{..}
= object
(catMaybes
[("card" .=) <$> _gcdvimCard,
("image" .=) <$> _gcdvimImage,
("platform" .=) <$> _gcdvimPlatform,
("linkOutSuggestion" .=) <$>
_gcdvimLinkOutSuggestion,
("text" .=) <$> _gcdvimText,
("carouselSelect" .=) <$> _gcdvimCarouselSelect,
("telephonySynthesizeSpeech" .=) <$>
_gcdvimTelephonySynthesizeSpeech,
("simpleResponses" .=) <$> _gcdvimSimpleResponses,
("payload" .=) <$> _gcdvimPayload,
("telephonyTransferCall" .=) <$>
_gcdvimTelephonyTransferCall,
("suggestions" .=) <$> _gcdvimSuggestions,
("listSelect" .=) <$> _gcdvimListSelect,
("telephonyPlayAudio" .=) <$>
_gcdvimTelephonyPlayAudio,
("basicCard" .=) <$> _gcdvimBasicCard,
("quickReplies" .=) <$> _gcdvimQuickReplies])
data GoogleCloudDialogflowV2IntentMessageSelectItemInfo =
GoogleCloudDialogflowV2IntentMessageSelectItemInfo'
{ _gcdvimsiiKey :: !(Maybe Text)
, _gcdvimsiiSynonyms :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageSelectItemInfo
:: GoogleCloudDialogflowV2IntentMessageSelectItemInfo
googleCloudDialogflowV2IntentMessageSelectItemInfo =
GoogleCloudDialogflowV2IntentMessageSelectItemInfo'
{_gcdvimsiiKey = Nothing, _gcdvimsiiSynonyms = Nothing}
gcdvimsiiKey :: Lens' GoogleCloudDialogflowV2IntentMessageSelectItemInfo (Maybe Text)
gcdvimsiiKey
= lens _gcdvimsiiKey (\ s a -> s{_gcdvimsiiKey = a})
gcdvimsiiSynonyms :: Lens' GoogleCloudDialogflowV2IntentMessageSelectItemInfo [Text]
gcdvimsiiSynonyms
= lens _gcdvimsiiSynonyms
(\ s a -> s{_gcdvimsiiSynonyms = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageSelectItemInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageSelectItemInfo"
(\ o ->
GoogleCloudDialogflowV2IntentMessageSelectItemInfo'
<$> (o .:? "key") <*> (o .:? "synonyms" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageSelectItemInfo
where
toJSON
GoogleCloudDialogflowV2IntentMessageSelectItemInfo'{..}
= object
(catMaybes
[("key" .=) <$> _gcdvimsiiKey,
("synonyms" .=) <$> _gcdvimsiiSynonyms])
data GoogleCloudDialogflowV2beta1Sentiment =
GoogleCloudDialogflowV2beta1Sentiment'
{ _gcdvsScore :: !(Maybe (Textual Double))
, _gcdvsMagnitude :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1Sentiment
:: GoogleCloudDialogflowV2beta1Sentiment
googleCloudDialogflowV2beta1Sentiment =
GoogleCloudDialogflowV2beta1Sentiment'
{_gcdvsScore = Nothing, _gcdvsMagnitude = Nothing}
gcdvsScore :: Lens' GoogleCloudDialogflowV2beta1Sentiment (Maybe Double)
gcdvsScore
= lens _gcdvsScore (\ s a -> s{_gcdvsScore = a}) .
mapping _Coerce
gcdvsMagnitude :: Lens' GoogleCloudDialogflowV2beta1Sentiment (Maybe Double)
gcdvsMagnitude
= lens _gcdvsMagnitude
(\ s a -> s{_gcdvsMagnitude = a})
. mapping _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1Sentiment
where
parseJSON
= withObject "GoogleCloudDialogflowV2beta1Sentiment"
(\ o ->
GoogleCloudDialogflowV2beta1Sentiment' <$>
(o .:? "score") <*> (o .:? "magnitude"))
instance ToJSON GoogleCloudDialogflowV2beta1Sentiment
where
toJSON GoogleCloudDialogflowV2beta1Sentiment'{..}
= object
(catMaybes
[("score" .=) <$> _gcdvsScore,
("magnitude" .=) <$> _gcdvsMagnitude])
newtype GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest =
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest'
{ _gcdvbdetrEntityTypeNames :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchDeleteEntityTypesRequest
:: GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest
googleCloudDialogflowV2BatchDeleteEntityTypesRequest =
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest'
{_gcdvbdetrEntityTypeNames = Nothing}
gcdvbdetrEntityTypeNames :: Lens' GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest [Text]
gcdvbdetrEntityTypeNames
= lens _gcdvbdetrEntityTypeNames
(\ s a -> s{_gcdvbdetrEntityTypeNames = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest"
(\ o ->
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest'
<$> (o .:? "entityTypeNames" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest
where
toJSON
GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest'{..}
= object
(catMaybes
[("entityTypeNames" .=) <$>
_gcdvbdetrEntityTypeNames])
data GoogleCloudDialogflowV2QueryInput =
GoogleCloudDialogflowV2QueryInput'
{ _gcdvqiAudioConfig :: !(Maybe GoogleCloudDialogflowV2InputAudioConfig)
, _gcdvqiEvent :: !(Maybe GoogleCloudDialogflowV2EventInput)
, _gcdvqiText :: !(Maybe GoogleCloudDialogflowV2TextInput)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryInput
:: GoogleCloudDialogflowV2QueryInput
googleCloudDialogflowV2QueryInput =
GoogleCloudDialogflowV2QueryInput'
{ _gcdvqiAudioConfig = Nothing
, _gcdvqiEvent = Nothing
, _gcdvqiText = Nothing
}
gcdvqiAudioConfig :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2InputAudioConfig)
gcdvqiAudioConfig
= lens _gcdvqiAudioConfig
(\ s a -> s{_gcdvqiAudioConfig = a})
gcdvqiEvent :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2EventInput)
gcdvqiEvent
= lens _gcdvqiEvent (\ s a -> s{_gcdvqiEvent = a})
gcdvqiText :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2TextInput)
gcdvqiText
= lens _gcdvqiText (\ s a -> s{_gcdvqiText = a})
instance FromJSON GoogleCloudDialogflowV2QueryInput
where
parseJSON
= withObject "GoogleCloudDialogflowV2QueryInput"
(\ o ->
GoogleCloudDialogflowV2QueryInput' <$>
(o .:? "audioConfig") <*> (o .:? "event") <*>
(o .:? "text"))
instance ToJSON GoogleCloudDialogflowV2QueryInput
where
toJSON GoogleCloudDialogflowV2QueryInput'{..}
= object
(catMaybes
[("audioConfig" .=) <$> _gcdvqiAudioConfig,
("event" .=) <$> _gcdvqiEvent,
("text" .=) <$> _gcdvqiText])
newtype GoogleCloudDialogflowV2ExportAgentRequest =
GoogleCloudDialogflowV2ExportAgentRequest'
{ _gcdvearAgentURI :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ExportAgentRequest
:: GoogleCloudDialogflowV2ExportAgentRequest
googleCloudDialogflowV2ExportAgentRequest =
GoogleCloudDialogflowV2ExportAgentRequest' {_gcdvearAgentURI = Nothing}
gcdvearAgentURI :: Lens' GoogleCloudDialogflowV2ExportAgentRequest (Maybe Text)
gcdvearAgentURI
= lens _gcdvearAgentURI
(\ s a -> s{_gcdvearAgentURI = a})
instance FromJSON
GoogleCloudDialogflowV2ExportAgentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ExportAgentRequest"
(\ o ->
GoogleCloudDialogflowV2ExportAgentRequest' <$>
(o .:? "agentUri"))
instance ToJSON
GoogleCloudDialogflowV2ExportAgentRequest
where
toJSON GoogleCloudDialogflowV2ExportAgentRequest'{..}
= object
(catMaybes [("agentUri" .=) <$> _gcdvearAgentURI])
newtype GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect =
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect'
{ _gcdvimcsItems :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageCarouselSelect
:: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect
googleCloudDialogflowV2beta1IntentMessageCarouselSelect =
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect'
{_gcdvimcsItems = Nothing}
gcdvimcsItems :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect [GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem]
gcdvimcsItems
= lens _gcdvimcsItems
(\ s a -> s{_gcdvimcsItems = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect'
<$> (o .:? "items" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect'{..}
= object
(catMaybes [("items" .=) <$> _gcdvimcsItems])
data GoogleCloudDialogflowV2beta1Context =
GoogleCloudDialogflowV2beta1Context'
{ _gcdvcLifespanCount :: !(Maybe (Textual Int32))
, _gcdvcName :: !(Maybe Text)
, _gcdvcParameters :: !(Maybe GoogleCloudDialogflowV2beta1ContextParameters)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1Context
:: GoogleCloudDialogflowV2beta1Context
googleCloudDialogflowV2beta1Context =
GoogleCloudDialogflowV2beta1Context'
{ _gcdvcLifespanCount = Nothing
, _gcdvcName = Nothing
, _gcdvcParameters = Nothing
}
gcdvcLifespanCount :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Int32)
gcdvcLifespanCount
= lens _gcdvcLifespanCount
(\ s a -> s{_gcdvcLifespanCount = a})
. mapping _Coerce
gcdvcName :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Text)
gcdvcName
= lens _gcdvcName (\ s a -> s{_gcdvcName = a})
gcdvcParameters :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe GoogleCloudDialogflowV2beta1ContextParameters)
gcdvcParameters
= lens _gcdvcParameters
(\ s a -> s{_gcdvcParameters = a})
instance FromJSON GoogleCloudDialogflowV2beta1Context
where
parseJSON
= withObject "GoogleCloudDialogflowV2beta1Context"
(\ o ->
GoogleCloudDialogflowV2beta1Context' <$>
(o .:? "lifespanCount") <*> (o .:? "name") <*>
(o .:? "parameters"))
instance ToJSON GoogleCloudDialogflowV2beta1Context
where
toJSON GoogleCloudDialogflowV2beta1Context'{..}
= object
(catMaybes
[("lifespanCount" .=) <$> _gcdvcLifespanCount,
("name" .=) <$> _gcdvcName,
("parameters" .=) <$> _gcdvcParameters])
data GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest =
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest'
{ _gcdvbuetrLanguageCode :: !(Maybe Text)
, _gcdvbuetrUpdateMask :: !(Maybe GFieldMask)
, _gcdvbuetrEntityTypeBatchInline :: !(Maybe GoogleCloudDialogflowV2EntityTypeBatch)
, _gcdvbuetrEntityTypeBatchURI :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchUpdateEntityTypesRequest
:: GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest
googleCloudDialogflowV2BatchUpdateEntityTypesRequest =
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest'
{ _gcdvbuetrLanguageCode = Nothing
, _gcdvbuetrUpdateMask = Nothing
, _gcdvbuetrEntityTypeBatchInline = Nothing
, _gcdvbuetrEntityTypeBatchURI = Nothing
}
gcdvbuetrLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe Text)
gcdvbuetrLanguageCode
= lens _gcdvbuetrLanguageCode
(\ s a -> s{_gcdvbuetrLanguageCode = a})
gcdvbuetrUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GFieldMask)
gcdvbuetrUpdateMask
= lens _gcdvbuetrUpdateMask
(\ s a -> s{_gcdvbuetrUpdateMask = a})
gcdvbuetrEntityTypeBatchInline :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GoogleCloudDialogflowV2EntityTypeBatch)
gcdvbuetrEntityTypeBatchInline
= lens _gcdvbuetrEntityTypeBatchInline
(\ s a -> s{_gcdvbuetrEntityTypeBatchInline = a})
gcdvbuetrEntityTypeBatchURI :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe Text)
gcdvbuetrEntityTypeBatchURI
= lens _gcdvbuetrEntityTypeBatchURI
(\ s a -> s{_gcdvbuetrEntityTypeBatchURI = a})
instance FromJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest"
(\ o ->
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest'
<$>
(o .:? "languageCode") <*> (o .:? "updateMask") <*>
(o .:? "entityTypeBatchInline")
<*> (o .:? "entityTypeBatchUri"))
instance ToJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest
where
toJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvbuetrLanguageCode,
("updateMask" .=) <$> _gcdvbuetrUpdateMask,
("entityTypeBatchInline" .=) <$>
_gcdvbuetrEntityTypeBatchInline,
("entityTypeBatchUri" .=) <$>
_gcdvbuetrEntityTypeBatchURI])
newtype GoogleLongrunningOperationResponse =
GoogleLongrunningOperationResponse'
{ _glorAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperationResponse
:: HashMap Text JSONValue
-> GoogleLongrunningOperationResponse
googleLongrunningOperationResponse pGlorAddtional_ =
GoogleLongrunningOperationResponse'
{_glorAddtional = _Coerce # pGlorAddtional_}
glorAddtional :: Lens' GoogleLongrunningOperationResponse (HashMap Text JSONValue)
glorAddtional
= lens _glorAddtional
(\ s a -> s{_glorAddtional = a})
. _Coerce
instance FromJSON GoogleLongrunningOperationResponse
where
parseJSON
= withObject "GoogleLongrunningOperationResponse"
(\ o ->
GoogleLongrunningOperationResponse' <$>
(parseJSONObject o))
instance ToJSON GoogleLongrunningOperationResponse
where
toJSON = toJSON . _glorAddtional
data GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech =
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech'
{ _gcdvimtssText :: !(Maybe Text)
, _gcdvimtssSsml :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech
:: GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech
googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech =
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech'
{_gcdvimtssText = Nothing, _gcdvimtssSsml = Nothing}
gcdvimtssText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech (Maybe Text)
gcdvimtssText
= lens _gcdvimtssText
(\ s a -> s{_gcdvimtssText = a})
gcdvimtssSsml :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech (Maybe Text)
gcdvimtssSsml
= lens _gcdvimtssSsml
(\ s a -> s{_gcdvimtssSsml = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech'
<$> (o .:? "text") <*> (o .:? "ssml"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech'{..}
= object
(catMaybes
[("text" .=) <$> _gcdvimtssText,
("ssml" .=) <$> _gcdvimtssSsml])
data GoogleCloudDialogflowV2beta1IntentMessageListSelectItem =
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem'
{ _gcdvimlsicImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
, _gcdvimlsicTitle :: !(Maybe Text)
, _gcdvimlsicDescription :: !(Maybe Text)
, _gcdvimlsicInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageListSelectItem
:: GoogleCloudDialogflowV2beta1IntentMessageListSelectItem
googleCloudDialogflowV2beta1IntentMessageListSelectItem =
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem'
{ _gcdvimlsicImage = Nothing
, _gcdvimlsicTitle = Nothing
, _gcdvimlsicDescription = Nothing
, _gcdvimlsicInfo = Nothing
}
gcdvimlsicImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage)
gcdvimlsicImage
= lens _gcdvimlsicImage
(\ s a -> s{_gcdvimlsicImage = a})
gcdvimlsicTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text)
gcdvimlsicTitle
= lens _gcdvimlsicTitle
(\ s a -> s{_gcdvimlsicTitle = a})
gcdvimlsicDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text)
gcdvimlsicDescription
= lens _gcdvimlsicDescription
(\ s a -> s{_gcdvimlsicDescription = a})
gcdvimlsicInfo :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo)
gcdvimlsicInfo
= lens _gcdvimlsicInfo
(\ s a -> s{_gcdvimlsicInfo = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageListSelectItem"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem'
<$>
(o .:? "image") <*> (o .:? "title") <*>
(o .:? "description")
<*> (o .:? "info"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageListSelectItem'{..}
= object
(catMaybes
[("image" .=) <$> _gcdvimlsicImage,
("title" .=) <$> _gcdvimlsicTitle,
("description" .=) <$> _gcdvimlsicDescription,
("info" .=) <$> _gcdvimlsicInfo])
newtype GoogleCloudDialogflowV2IntentMessageSuggestion =
GoogleCloudDialogflowV2IntentMessageSuggestion'
{ _gcdvimscTitle :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageSuggestion
:: GoogleCloudDialogflowV2IntentMessageSuggestion
googleCloudDialogflowV2IntentMessageSuggestion =
GoogleCloudDialogflowV2IntentMessageSuggestion' {_gcdvimscTitle = Nothing}
gcdvimscTitle :: Lens' GoogleCloudDialogflowV2IntentMessageSuggestion (Maybe Text)
gcdvimscTitle
= lens _gcdvimscTitle
(\ s a -> s{_gcdvimscTitle = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageSuggestion
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageSuggestion"
(\ o ->
GoogleCloudDialogflowV2IntentMessageSuggestion' <$>
(o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageSuggestion
where
toJSON
GoogleCloudDialogflowV2IntentMessageSuggestion'{..}
= object
(catMaybes [("title" .=) <$> _gcdvimscTitle])
data GoogleCloudDialogflowV2beta1EntityTypeEntity =
GoogleCloudDialogflowV2beta1EntityTypeEntity'
{ _gcdveteValue :: !(Maybe Text)
, _gcdveteSynonyms :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1EntityTypeEntity
:: GoogleCloudDialogflowV2beta1EntityTypeEntity
googleCloudDialogflowV2beta1EntityTypeEntity =
GoogleCloudDialogflowV2beta1EntityTypeEntity'
{_gcdveteValue = Nothing, _gcdveteSynonyms = Nothing}
gcdveteValue :: Lens' GoogleCloudDialogflowV2beta1EntityTypeEntity (Maybe Text)
gcdveteValue
= lens _gcdveteValue (\ s a -> s{_gcdveteValue = a})
gcdveteSynonyms :: Lens' GoogleCloudDialogflowV2beta1EntityTypeEntity [Text]
gcdveteSynonyms
= lens _gcdveteSynonyms
(\ s a -> s{_gcdveteSynonyms = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1EntityTypeEntity
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1EntityTypeEntity"
(\ o ->
GoogleCloudDialogflowV2beta1EntityTypeEntity' <$>
(o .:? "value") <*> (o .:? "synonyms" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1EntityTypeEntity
where
toJSON
GoogleCloudDialogflowV2beta1EntityTypeEntity'{..}
= object
(catMaybes
[("value" .=) <$> _gcdveteValue,
("synonyms" .=) <$> _gcdveteSynonyms])
data GoogleCloudDialogflowV2EntityType =
GoogleCloudDialogflowV2EntityType'
{ _gcdvetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity])
, _gcdvetKind :: !(Maybe GoogleCloudDialogflowV2EntityTypeKind)
, _gcdvetName :: !(Maybe Text)
, _gcdvetAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode)
, _gcdvetDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2EntityType
:: GoogleCloudDialogflowV2EntityType
googleCloudDialogflowV2EntityType =
GoogleCloudDialogflowV2EntityType'
{ _gcdvetEntities = Nothing
, _gcdvetKind = Nothing
, _gcdvetName = Nothing
, _gcdvetAutoExpansionMode = Nothing
, _gcdvetDisplayName = Nothing
}
gcdvetEntities :: Lens' GoogleCloudDialogflowV2EntityType [GoogleCloudDialogflowV2EntityTypeEntity]
gcdvetEntities
= lens _gcdvetEntities
(\ s a -> s{_gcdvetEntities = a})
. _Default
. _Coerce
gcdvetKind :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeKind)
gcdvetKind
= lens _gcdvetKind (\ s a -> s{_gcdvetKind = a})
gcdvetName :: Lens' GoogleCloudDialogflowV2EntityType (Maybe Text)
gcdvetName
= lens _gcdvetName (\ s a -> s{_gcdvetName = a})
gcdvetAutoExpansionMode :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode)
gcdvetAutoExpansionMode
= lens _gcdvetAutoExpansionMode
(\ s a -> s{_gcdvetAutoExpansionMode = a})
gcdvetDisplayName :: Lens' GoogleCloudDialogflowV2EntityType (Maybe Text)
gcdvetDisplayName
= lens _gcdvetDisplayName
(\ s a -> s{_gcdvetDisplayName = a})
instance FromJSON GoogleCloudDialogflowV2EntityType
where
parseJSON
= withObject "GoogleCloudDialogflowV2EntityType"
(\ o ->
GoogleCloudDialogflowV2EntityType' <$>
(o .:? "entities" .!= mempty) <*> (o .:? "kind") <*>
(o .:? "name")
<*> (o .:? "autoExpansionMode")
<*> (o .:? "displayName"))
instance ToJSON GoogleCloudDialogflowV2EntityType
where
toJSON GoogleCloudDialogflowV2EntityType'{..}
= object
(catMaybes
[("entities" .=) <$> _gcdvetEntities,
("kind" .=) <$> _gcdvetKind,
("name" .=) <$> _gcdvetName,
("autoExpansionMode" .=) <$>
_gcdvetAutoExpansionMode,
("displayName" .=) <$> _gcdvetDisplayName])
data GoogleCloudDialogflowV2TextInput =
GoogleCloudDialogflowV2TextInput'
{ _gcdvtiLanguageCode :: !(Maybe Text)
, _gcdvtiText :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2TextInput
:: GoogleCloudDialogflowV2TextInput
googleCloudDialogflowV2TextInput =
GoogleCloudDialogflowV2TextInput'
{_gcdvtiLanguageCode = Nothing, _gcdvtiText = Nothing}
gcdvtiLanguageCode :: Lens' GoogleCloudDialogflowV2TextInput (Maybe Text)
gcdvtiLanguageCode
= lens _gcdvtiLanguageCode
(\ s a -> s{_gcdvtiLanguageCode = a})
gcdvtiText :: Lens' GoogleCloudDialogflowV2TextInput (Maybe Text)
gcdvtiText
= lens _gcdvtiText (\ s a -> s{_gcdvtiText = a})
instance FromJSON GoogleCloudDialogflowV2TextInput
where
parseJSON
= withObject "GoogleCloudDialogflowV2TextInput"
(\ o ->
GoogleCloudDialogflowV2TextInput' <$>
(o .:? "languageCode") <*> (o .:? "text"))
instance ToJSON GoogleCloudDialogflowV2TextInput
where
toJSON GoogleCloudDialogflowV2TextInput'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gcdvtiLanguageCode,
("text" .=) <$> _gcdvtiText])
newtype GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction =
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction'
{ _gcdvimbcbouriaURI :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction
:: GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction
googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction =
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction'
{_gcdvimbcbouriaURI = Nothing}
gcdvimbcbouriaURI :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction (Maybe Text)
gcdvimbcbouriaURI
= lens _gcdvimbcbouriaURI
(\ s a -> s{_gcdvimbcbouriaURI = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction"
(\ o ->
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction'
<$> (o .:? "uri"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction
where
toJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction'{..}
= object
(catMaybes [("uri" .=) <$> _gcdvimbcbouriaURI])
data GoogleCloudDialogflowV2IntentMessageCard =
GoogleCloudDialogflowV2IntentMessageCard'
{ _gcdvimccButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageCardButton])
, _gcdvimccImageURI :: !(Maybe Text)
, _gcdvimccSubtitle :: !(Maybe Text)
, _gcdvimccTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageCard
:: GoogleCloudDialogflowV2IntentMessageCard
googleCloudDialogflowV2IntentMessageCard =
GoogleCloudDialogflowV2IntentMessageCard'
{ _gcdvimccButtons = Nothing
, _gcdvimccImageURI = Nothing
, _gcdvimccSubtitle = Nothing
, _gcdvimccTitle = Nothing
}
gcdvimccButtons :: Lens' GoogleCloudDialogflowV2IntentMessageCard [GoogleCloudDialogflowV2IntentMessageCardButton]
gcdvimccButtons
= lens _gcdvimccButtons
(\ s a -> s{_gcdvimccButtons = a})
. _Default
. _Coerce
gcdvimccImageURI :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text)
gcdvimccImageURI
= lens _gcdvimccImageURI
(\ s a -> s{_gcdvimccImageURI = a})
gcdvimccSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text)
gcdvimccSubtitle
= lens _gcdvimccSubtitle
(\ s a -> s{_gcdvimccSubtitle = a})
gcdvimccTitle :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text)
gcdvimccTitle
= lens _gcdvimccTitle
(\ s a -> s{_gcdvimccTitle = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageCard
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageCard"
(\ o ->
GoogleCloudDialogflowV2IntentMessageCard' <$>
(o .:? "buttons" .!= mempty) <*> (o .:? "imageUri")
<*> (o .:? "subtitle")
<*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageCard
where
toJSON GoogleCloudDialogflowV2IntentMessageCard'{..}
= object
(catMaybes
[("buttons" .=) <$> _gcdvimccButtons,
("imageUri" .=) <$> _gcdvimccImageURI,
("subtitle" .=) <$> _gcdvimccSubtitle,
("title" .=) <$> _gcdvimccTitle])
data GoogleCloudDialogflowV2OriginalDetectIntentRequest =
GoogleCloudDialogflowV2OriginalDetectIntentRequest'
{ _gPayload :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload)
, _gVersion :: !(Maybe Text)
, _gSource :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2OriginalDetectIntentRequest
:: GoogleCloudDialogflowV2OriginalDetectIntentRequest
googleCloudDialogflowV2OriginalDetectIntentRequest =
GoogleCloudDialogflowV2OriginalDetectIntentRequest'
{_gPayload = Nothing, _gVersion = Nothing, _gSource = Nothing}
gPayload :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload)
gPayload = lens _gPayload (\ s a -> s{_gPayload = a})
gVersion :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe Text)
gVersion = lens _gVersion (\ s a -> s{_gVersion = a})
gSource :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe Text)
gSource = lens _gSource (\ s a -> s{_gSource = a})
instance FromJSON
GoogleCloudDialogflowV2OriginalDetectIntentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2OriginalDetectIntentRequest"
(\ o ->
GoogleCloudDialogflowV2OriginalDetectIntentRequest'
<$>
(o .:? "payload") <*> (o .:? "version") <*>
(o .:? "source"))
instance ToJSON
GoogleCloudDialogflowV2OriginalDetectIntentRequest
where
toJSON
GoogleCloudDialogflowV2OriginalDetectIntentRequest'{..}
= object
(catMaybes
[("payload" .=) <$> _gPayload,
("version" .=) <$> _gVersion,
("source" .=) <$> _gSource])
data GoogleCloudDialogflowV2beta1IntentMessageImage =
GoogleCloudDialogflowV2beta1IntentMessageImage'
{ _gcdvimiAccessibilityText :: !(Maybe Text)
, _gcdvimiImageURI :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageImage
:: GoogleCloudDialogflowV2beta1IntentMessageImage
googleCloudDialogflowV2beta1IntentMessageImage =
GoogleCloudDialogflowV2beta1IntentMessageImage'
{_gcdvimiAccessibilityText = Nothing, _gcdvimiImageURI = Nothing}
gcdvimiAccessibilityText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageImage (Maybe Text)
gcdvimiAccessibilityText
= lens _gcdvimiAccessibilityText
(\ s a -> s{_gcdvimiAccessibilityText = a})
gcdvimiImageURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageImage (Maybe Text)
gcdvimiImageURI
= lens _gcdvimiImageURI
(\ s a -> s{_gcdvimiImageURI = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageImage
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageImage"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageImage' <$>
(o .:? "accessibilityText") <*> (o .:? "imageUri"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageImage
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageImage'{..}
= object
(catMaybes
[("accessibilityText" .=) <$>
_gcdvimiAccessibilityText,
("imageUri" .=) <$> _gcdvimiImageURI])
data GoogleCloudDialogflowV2OutputAudioConfig =
GoogleCloudDialogflowV2OutputAudioConfig'
{ _gcdvoacSampleRateHertz :: !(Maybe (Textual Int32))
, _gcdvoacSynthesizeSpeechConfig :: !(Maybe GoogleCloudDialogflowV2SynthesizeSpeechConfig)
, _gcdvoacAudioEncoding :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2OutputAudioConfig
:: GoogleCloudDialogflowV2OutputAudioConfig
googleCloudDialogflowV2OutputAudioConfig =
GoogleCloudDialogflowV2OutputAudioConfig'
{ _gcdvoacSampleRateHertz = Nothing
, _gcdvoacSynthesizeSpeechConfig = Nothing
, _gcdvoacAudioEncoding = Nothing
}
gcdvoacSampleRateHertz :: Lens' GoogleCloudDialogflowV2OutputAudioConfig (Maybe Int32)
gcdvoacSampleRateHertz
= lens _gcdvoacSampleRateHertz
(\ s a -> s{_gcdvoacSampleRateHertz = a})
. mapping _Coerce
gcdvoacSynthesizeSpeechConfig :: Lens' GoogleCloudDialogflowV2OutputAudioConfig (Maybe GoogleCloudDialogflowV2SynthesizeSpeechConfig)
gcdvoacSynthesizeSpeechConfig
= lens _gcdvoacSynthesizeSpeechConfig
(\ s a -> s{_gcdvoacSynthesizeSpeechConfig = a})
gcdvoacAudioEncoding :: Lens' GoogleCloudDialogflowV2OutputAudioConfig (Maybe GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding)
gcdvoacAudioEncoding
= lens _gcdvoacAudioEncoding
(\ s a -> s{_gcdvoacAudioEncoding = a})
instance FromJSON
GoogleCloudDialogflowV2OutputAudioConfig
where
parseJSON
= withObject
"GoogleCloudDialogflowV2OutputAudioConfig"
(\ o ->
GoogleCloudDialogflowV2OutputAudioConfig' <$>
(o .:? "sampleRateHertz") <*>
(o .:? "synthesizeSpeechConfig")
<*> (o .:? "audioEncoding"))
instance ToJSON
GoogleCloudDialogflowV2OutputAudioConfig
where
toJSON GoogleCloudDialogflowV2OutputAudioConfig'{..}
= object
(catMaybes
[("sampleRateHertz" .=) <$> _gcdvoacSampleRateHertz,
("synthesizeSpeechConfig" .=) <$>
_gcdvoacSynthesizeSpeechConfig,
("audioEncoding" .=) <$> _gcdvoacAudioEncoding])
data GoogleCloudDialogflowV2ExportAgentResponse =
GoogleCloudDialogflowV2ExportAgentResponse'
{ _gAgentURI :: !(Maybe Text)
, _gAgentContent :: !(Maybe Bytes)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ExportAgentResponse
:: GoogleCloudDialogflowV2ExportAgentResponse
googleCloudDialogflowV2ExportAgentResponse =
GoogleCloudDialogflowV2ExportAgentResponse'
{_gAgentURI = Nothing, _gAgentContent = Nothing}
gAgentURI :: Lens' GoogleCloudDialogflowV2ExportAgentResponse (Maybe Text)
gAgentURI
= lens _gAgentURI (\ s a -> s{_gAgentURI = a})
gAgentContent :: Lens' GoogleCloudDialogflowV2ExportAgentResponse (Maybe ByteString)
gAgentContent
= lens _gAgentContent
(\ s a -> s{_gAgentContent = a})
. mapping _Bytes
instance FromJSON
GoogleCloudDialogflowV2ExportAgentResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ExportAgentResponse"
(\ o ->
GoogleCloudDialogflowV2ExportAgentResponse' <$>
(o .:? "agentUri") <*> (o .:? "agentContent"))
instance ToJSON
GoogleCloudDialogflowV2ExportAgentResponse
where
toJSON
GoogleCloudDialogflowV2ExportAgentResponse'{..}
= object
(catMaybes
[("agentUri" .=) <$> _gAgentURI,
("agentContent" .=) <$> _gAgentContent])
newtype GoogleCloudDialogflowV2WebhookResponsePayload =
GoogleCloudDialogflowV2WebhookResponsePayload'
{ _gcdvwrpcAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2WebhookResponsePayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2WebhookResponsePayload
googleCloudDialogflowV2WebhookResponsePayload pGcdvwrpcAddtional_ =
GoogleCloudDialogflowV2WebhookResponsePayload'
{_gcdvwrpcAddtional = _Coerce # pGcdvwrpcAddtional_}
gcdvwrpcAddtional :: Lens' GoogleCloudDialogflowV2WebhookResponsePayload (HashMap Text JSONValue)
gcdvwrpcAddtional
= lens _gcdvwrpcAddtional
(\ s a -> s{_gcdvwrpcAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2WebhookResponsePayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2WebhookResponsePayload"
(\ o ->
GoogleCloudDialogflowV2WebhookResponsePayload' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2WebhookResponsePayload
where
toJSON = toJSON . _gcdvwrpcAddtional
data GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion =
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion'
{ _gURI :: !(Maybe Text)
, _gDestinationName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion
:: GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion
googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion =
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion'
{_gURI = Nothing, _gDestinationName = Nothing}
gURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion (Maybe Text)
gURI = lens _gURI (\ s a -> s{_gURI = a})
gDestinationName :: Lens' GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion (Maybe Text)
gDestinationName
= lens _gDestinationName
(\ s a -> s{_gDestinationName = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion'
<$> (o .:? "uri") <*> (o .:? "destinationName"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion'{..}
= object
(catMaybes
[("uri" .=) <$> _gURI,
("destinationName" .=) <$> _gDestinationName])
data GoogleCloudDialogflowV2ListIntentsResponse =
GoogleCloudDialogflowV2ListIntentsResponse'
{ _gcdvlirIntents :: !(Maybe [GoogleCloudDialogflowV2Intent])
, _gcdvlirNextPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ListIntentsResponse
:: GoogleCloudDialogflowV2ListIntentsResponse
googleCloudDialogflowV2ListIntentsResponse =
GoogleCloudDialogflowV2ListIntentsResponse'
{_gcdvlirIntents = Nothing, _gcdvlirNextPageToken = Nothing}
gcdvlirIntents :: Lens' GoogleCloudDialogflowV2ListIntentsResponse [GoogleCloudDialogflowV2Intent]
gcdvlirIntents
= lens _gcdvlirIntents
(\ s a -> s{_gcdvlirIntents = a})
. _Default
. _Coerce
gcdvlirNextPageToken :: Lens' GoogleCloudDialogflowV2ListIntentsResponse (Maybe Text)
gcdvlirNextPageToken
= lens _gcdvlirNextPageToken
(\ s a -> s{_gcdvlirNextPageToken = a})
instance FromJSON
GoogleCloudDialogflowV2ListIntentsResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ListIntentsResponse"
(\ o ->
GoogleCloudDialogflowV2ListIntentsResponse' <$>
(o .:? "intents" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON
GoogleCloudDialogflowV2ListIntentsResponse
where
toJSON
GoogleCloudDialogflowV2ListIntentsResponse'{..}
= object
(catMaybes
[("intents" .=) <$> _gcdvlirIntents,
("nextPageToken" .=) <$> _gcdvlirNextPageToken])
newtype GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse =
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse'
{ _gEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2BatchUpdateEntityTypesResponse
:: GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse
googleCloudDialogflowV2BatchUpdateEntityTypesResponse =
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse'
{_gEntityTypes = Nothing}
gEntityTypes :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse [GoogleCloudDialogflowV2EntityType]
gEntityTypes
= lens _gEntityTypes (\ s a -> s{_gEntityTypes = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse"
(\ o ->
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse'
<$> (o .:? "entityTypes" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse
where
toJSON
GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse'{..}
= object
(catMaybes [("entityTypes" .=) <$> _gEntityTypes])
newtype GoogleCloudDialogflowV2QueryResultWebhookPayload =
GoogleCloudDialogflowV2QueryResultWebhookPayload'
{ _gcdvqrwpAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2QueryResultWebhookPayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2QueryResultWebhookPayload
googleCloudDialogflowV2QueryResultWebhookPayload pGcdvqrwpAddtional_ =
GoogleCloudDialogflowV2QueryResultWebhookPayload'
{_gcdvqrwpAddtional = _Coerce # pGcdvqrwpAddtional_}
gcdvqrwpAddtional :: Lens' GoogleCloudDialogflowV2QueryResultWebhookPayload (HashMap Text JSONValue)
gcdvqrwpAddtional
= lens _gcdvqrwpAddtional
(\ s a -> s{_gcdvqrwpAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2QueryResultWebhookPayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2QueryResultWebhookPayload"
(\ o ->
GoogleCloudDialogflowV2QueryResultWebhookPayload' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2QueryResultWebhookPayload
where
toJSON = toJSON . _gcdvqrwpAddtional
data GoogleCloudDialogflowV2beta1IntentParameter =
GoogleCloudDialogflowV2beta1IntentParameter'
{ _gcdvipValue :: !(Maybe Text)
, _gcdvipName :: !(Maybe Text)
, _gcdvipPrompts :: !(Maybe [Text])
, _gcdvipMandatory :: !(Maybe Bool)
, _gcdvipDisplayName :: !(Maybe Text)
, _gcdvipDefaultValue :: !(Maybe Text)
, _gcdvipIsList :: !(Maybe Bool)
, _gcdvipEntityTypeDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentParameter
:: GoogleCloudDialogflowV2beta1IntentParameter
googleCloudDialogflowV2beta1IntentParameter =
GoogleCloudDialogflowV2beta1IntentParameter'
{ _gcdvipValue = Nothing
, _gcdvipName = Nothing
, _gcdvipPrompts = Nothing
, _gcdvipMandatory = Nothing
, _gcdvipDisplayName = Nothing
, _gcdvipDefaultValue = Nothing
, _gcdvipIsList = Nothing
, _gcdvipEntityTypeDisplayName = Nothing
}
gcdvipValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text)
gcdvipValue
= lens _gcdvipValue (\ s a -> s{_gcdvipValue = a})
gcdvipName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text)
gcdvipName
= lens _gcdvipName (\ s a -> s{_gcdvipName = a})
gcdvipPrompts :: Lens' GoogleCloudDialogflowV2beta1IntentParameter [Text]
gcdvipPrompts
= lens _gcdvipPrompts
(\ s a -> s{_gcdvipPrompts = a})
. _Default
. _Coerce
gcdvipMandatory :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool)
gcdvipMandatory
= lens _gcdvipMandatory
(\ s a -> s{_gcdvipMandatory = a})
gcdvipDisplayName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text)
gcdvipDisplayName
= lens _gcdvipDisplayName
(\ s a -> s{_gcdvipDisplayName = a})
gcdvipDefaultValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text)
gcdvipDefaultValue
= lens _gcdvipDefaultValue
(\ s a -> s{_gcdvipDefaultValue = a})
gcdvipIsList :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool)
gcdvipIsList
= lens _gcdvipIsList (\ s a -> s{_gcdvipIsList = a})
gcdvipEntityTypeDisplayName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text)
gcdvipEntityTypeDisplayName
= lens _gcdvipEntityTypeDisplayName
(\ s a -> s{_gcdvipEntityTypeDisplayName = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentParameter
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentParameter"
(\ o ->
GoogleCloudDialogflowV2beta1IntentParameter' <$>
(o .:? "value") <*> (o .:? "name") <*>
(o .:? "prompts" .!= mempty)
<*> (o .:? "mandatory")
<*> (o .:? "displayName")
<*> (o .:? "defaultValue")
<*> (o .:? "isList")
<*> (o .:? "entityTypeDisplayName"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentParameter
where
toJSON
GoogleCloudDialogflowV2beta1IntentParameter'{..}
= object
(catMaybes
[("value" .=) <$> _gcdvipValue,
("name" .=) <$> _gcdvipName,
("prompts" .=) <$> _gcdvipPrompts,
("mandatory" .=) <$> _gcdvipMandatory,
("displayName" .=) <$> _gcdvipDisplayName,
("defaultValue" .=) <$> _gcdvipDefaultValue,
("isList" .=) <$> _gcdvipIsList,
("entityTypeDisplayName" .=) <$>
_gcdvipEntityTypeDisplayName])
data GoogleCloudDialogflowV2IntentParameter =
GoogleCloudDialogflowV2IntentParameter'
{ _gcdvipcValue :: !(Maybe Text)
, _gcdvipcName :: !(Maybe Text)
, _gcdvipcPrompts :: !(Maybe [Text])
, _gcdvipcMandatory :: !(Maybe Bool)
, _gcdvipcDisplayName :: !(Maybe Text)
, _gcdvipcDefaultValue :: !(Maybe Text)
, _gcdvipcIsList :: !(Maybe Bool)
, _gcdvipcEntityTypeDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentParameter
:: GoogleCloudDialogflowV2IntentParameter
googleCloudDialogflowV2IntentParameter =
GoogleCloudDialogflowV2IntentParameter'
{ _gcdvipcValue = Nothing
, _gcdvipcName = Nothing
, _gcdvipcPrompts = Nothing
, _gcdvipcMandatory = Nothing
, _gcdvipcDisplayName = Nothing
, _gcdvipcDefaultValue = Nothing
, _gcdvipcIsList = Nothing
, _gcdvipcEntityTypeDisplayName = Nothing
}
gcdvipcValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text)
gcdvipcValue
= lens _gcdvipcValue (\ s a -> s{_gcdvipcValue = a})
gcdvipcName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text)
gcdvipcName
= lens _gcdvipcName (\ s a -> s{_gcdvipcName = a})
gcdvipcPrompts :: Lens' GoogleCloudDialogflowV2IntentParameter [Text]
gcdvipcPrompts
= lens _gcdvipcPrompts
(\ s a -> s{_gcdvipcPrompts = a})
. _Default
. _Coerce
gcdvipcMandatory :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool)
gcdvipcMandatory
= lens _gcdvipcMandatory
(\ s a -> s{_gcdvipcMandatory = a})
gcdvipcDisplayName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text)
gcdvipcDisplayName
= lens _gcdvipcDisplayName
(\ s a -> s{_gcdvipcDisplayName = a})
gcdvipcDefaultValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text)
gcdvipcDefaultValue
= lens _gcdvipcDefaultValue
(\ s a -> s{_gcdvipcDefaultValue = a})
gcdvipcIsList :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool)
gcdvipcIsList
= lens _gcdvipcIsList
(\ s a -> s{_gcdvipcIsList = a})
gcdvipcEntityTypeDisplayName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text)
gcdvipcEntityTypeDisplayName
= lens _gcdvipcEntityTypeDisplayName
(\ s a -> s{_gcdvipcEntityTypeDisplayName = a})
instance FromJSON
GoogleCloudDialogflowV2IntentParameter
where
parseJSON
= withObject "GoogleCloudDialogflowV2IntentParameter"
(\ o ->
GoogleCloudDialogflowV2IntentParameter' <$>
(o .:? "value") <*> (o .:? "name") <*>
(o .:? "prompts" .!= mempty)
<*> (o .:? "mandatory")
<*> (o .:? "displayName")
<*> (o .:? "defaultValue")
<*> (o .:? "isList")
<*> (o .:? "entityTypeDisplayName"))
instance ToJSON
GoogleCloudDialogflowV2IntentParameter
where
toJSON GoogleCloudDialogflowV2IntentParameter'{..}
= object
(catMaybes
[("value" .=) <$> _gcdvipcValue,
("name" .=) <$> _gcdvipcName,
("prompts" .=) <$> _gcdvipcPrompts,
("mandatory" .=) <$> _gcdvipcMandatory,
("displayName" .=) <$> _gcdvipcDisplayName,
("defaultValue" .=) <$> _gcdvipcDefaultValue,
("isList" .=) <$> _gcdvipcIsList,
("entityTypeDisplayName" .=) <$>
_gcdvipcEntityTypeDisplayName])
newtype GoogleCloudDialogflowV2beta1QueryResultWebhookPayload =
GoogleCloudDialogflowV2beta1QueryResultWebhookPayload'
{ _gcdvqrwpcAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1QueryResultWebhookPayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2beta1QueryResultWebhookPayload
googleCloudDialogflowV2beta1QueryResultWebhookPayload pGcdvqrwpcAddtional_ =
GoogleCloudDialogflowV2beta1QueryResultWebhookPayload'
{_gcdvqrwpcAddtional = _Coerce # pGcdvqrwpcAddtional_}
gcdvqrwpcAddtional :: Lens' GoogleCloudDialogflowV2beta1QueryResultWebhookPayload (HashMap Text JSONValue)
gcdvqrwpcAddtional
= lens _gcdvqrwpcAddtional
(\ s a -> s{_gcdvqrwpcAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1QueryResultWebhookPayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1QueryResultWebhookPayload"
(\ o ->
GoogleCloudDialogflowV2beta1QueryResultWebhookPayload'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2beta1QueryResultWebhookPayload
where
toJSON = toJSON . _gcdvqrwpcAddtional
data GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart =
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart'
{ _gcdvitppcText :: !(Maybe Text)
, _gcdvitppcUserDefined :: !(Maybe Bool)
, _gcdvitppcEntityType :: !(Maybe Text)
, _gcdvitppcAlias :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentTrainingPhrasePart
:: GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart
googleCloudDialogflowV2beta1IntentTrainingPhrasePart =
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart'
{ _gcdvitppcText = Nothing
, _gcdvitppcUserDefined = Nothing
, _gcdvitppcEntityType = Nothing
, _gcdvitppcAlias = Nothing
}
gcdvitppcText :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text)
gcdvitppcText
= lens _gcdvitppcText
(\ s a -> s{_gcdvitppcText = a})
gcdvitppcUserDefined :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Bool)
gcdvitppcUserDefined
= lens _gcdvitppcUserDefined
(\ s a -> s{_gcdvitppcUserDefined = a})
gcdvitppcEntityType :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text)
gcdvitppcEntityType
= lens _gcdvitppcEntityType
(\ s a -> s{_gcdvitppcEntityType = a})
gcdvitppcAlias :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text)
gcdvitppcAlias
= lens _gcdvitppcAlias
(\ s a -> s{_gcdvitppcAlias = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart"
(\ o ->
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart'
<$>
(o .:? "text") <*> (o .:? "userDefined") <*>
(o .:? "entityType")
<*> (o .:? "alias"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart
where
toJSON
GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart'{..}
= object
(catMaybes
[("text" .=) <$> _gcdvitppcText,
("userDefined" .=) <$> _gcdvitppcUserDefined,
("entityType" .=) <$> _gcdvitppcEntityType,
("alias" .=) <$> _gcdvitppcAlias])
data GoogleCloudDialogflowV2ListContextsResponse =
GoogleCloudDialogflowV2ListContextsResponse'
{ _gcdvlcrContexts :: !(Maybe [GoogleCloudDialogflowV2Context])
, _gcdvlcrNextPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ListContextsResponse
:: GoogleCloudDialogflowV2ListContextsResponse
googleCloudDialogflowV2ListContextsResponse =
GoogleCloudDialogflowV2ListContextsResponse'
{_gcdvlcrContexts = Nothing, _gcdvlcrNextPageToken = Nothing}
gcdvlcrContexts :: Lens' GoogleCloudDialogflowV2ListContextsResponse [GoogleCloudDialogflowV2Context]
gcdvlcrContexts
= lens _gcdvlcrContexts
(\ s a -> s{_gcdvlcrContexts = a})
. _Default
. _Coerce
gcdvlcrNextPageToken :: Lens' GoogleCloudDialogflowV2ListContextsResponse (Maybe Text)
gcdvlcrNextPageToken
= lens _gcdvlcrNextPageToken
(\ s a -> s{_gcdvlcrNextPageToken = a})
instance FromJSON
GoogleCloudDialogflowV2ListContextsResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ListContextsResponse"
(\ o ->
GoogleCloudDialogflowV2ListContextsResponse' <$>
(o .:? "contexts" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON
GoogleCloudDialogflowV2ListContextsResponse
where
toJSON
GoogleCloudDialogflowV2ListContextsResponse'{..}
= object
(catMaybes
[("contexts" .=) <$> _gcdvlcrContexts,
("nextPageToken" .=) <$> _gcdvlcrNextPageToken])
newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall =
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall'
{ _gcdvimttcPhoneNumber :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall
:: GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall
googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall =
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall'
{_gcdvimttcPhoneNumber = Nothing}
gcdvimttcPhoneNumber :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall (Maybe Text)
gcdvimttcPhoneNumber
= lens _gcdvimttcPhoneNumber
(\ s a -> s{_gcdvimttcPhoneNumber = a})
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall'
<$> (o .:? "phoneNumber"))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall'{..}
= object
(catMaybes
[("phoneNumber" .=) <$> _gcdvimttcPhoneNumber])
data GoogleCloudDialogflowV2beta1ExportAgentResponse =
GoogleCloudDialogflowV2beta1ExportAgentResponse'
{ _gooAgentURI :: !(Maybe Text)
, _gooAgentContent :: !(Maybe Bytes)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1ExportAgentResponse
:: GoogleCloudDialogflowV2beta1ExportAgentResponse
googleCloudDialogflowV2beta1ExportAgentResponse =
GoogleCloudDialogflowV2beta1ExportAgentResponse'
{_gooAgentURI = Nothing, _gooAgentContent = Nothing}
gooAgentURI :: Lens' GoogleCloudDialogflowV2beta1ExportAgentResponse (Maybe Text)
gooAgentURI
= lens _gooAgentURI (\ s a -> s{_gooAgentURI = a})
gooAgentContent :: Lens' GoogleCloudDialogflowV2beta1ExportAgentResponse (Maybe ByteString)
gooAgentContent
= lens _gooAgentContent
(\ s a -> s{_gooAgentContent = a})
. mapping _Bytes
instance FromJSON
GoogleCloudDialogflowV2beta1ExportAgentResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1ExportAgentResponse"
(\ o ->
GoogleCloudDialogflowV2beta1ExportAgentResponse' <$>
(o .:? "agentUri") <*> (o .:? "agentContent"))
instance ToJSON
GoogleCloudDialogflowV2beta1ExportAgentResponse
where
toJSON
GoogleCloudDialogflowV2beta1ExportAgentResponse'{..}
= object
(catMaybes
[("agentUri" .=) <$> _gooAgentURI,
("agentContent" .=) <$> _gooAgentContent])
newtype GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload =
GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload'
{ _gcdvodirpcAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2OriginalDetectIntentRequestPayload
:: HashMap Text JSONValue
-> GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload
googleCloudDialogflowV2OriginalDetectIntentRequestPayload pGcdvodirpcAddtional_ =
GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload'
{_gcdvodirpcAddtional = _Coerce # pGcdvodirpcAddtional_}
gcdvodirpcAddtional :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload (HashMap Text JSONValue)
gcdvodirpcAddtional
= lens _gcdvodirpcAddtional
(\ s a -> s{_gcdvodirpcAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload
where
parseJSON
= withObject
"GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload"
(\ o ->
GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload'
<$> (parseJSONObject o))
instance ToJSON
GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload
where
toJSON = toJSON . _gcdvodirpcAddtional
data GoogleCloudDialogflowV2SessionEntityType =
GoogleCloudDialogflowV2SessionEntityType'
{ _gcdvSetEntityOverrideMode :: !(Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode)
, _gcdvSetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity])
, _gcdvSetName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2SessionEntityType
:: GoogleCloudDialogflowV2SessionEntityType
googleCloudDialogflowV2SessionEntityType =
GoogleCloudDialogflowV2SessionEntityType'
{ _gcdvSetEntityOverrideMode = Nothing
, _gcdvSetEntities = Nothing
, _gcdvSetName = Nothing
}
gcdvSetEntityOverrideMode :: Lens' GoogleCloudDialogflowV2SessionEntityType (Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode)
gcdvSetEntityOverrideMode
= lens _gcdvSetEntityOverrideMode
(\ s a -> s{_gcdvSetEntityOverrideMode = a})
gcdvSetEntities :: Lens' GoogleCloudDialogflowV2SessionEntityType [GoogleCloudDialogflowV2EntityTypeEntity]
gcdvSetEntities
= lens _gcdvSetEntities
(\ s a -> s{_gcdvSetEntities = a})
. _Default
. _Coerce
gcdvSetName :: Lens' GoogleCloudDialogflowV2SessionEntityType (Maybe Text)
gcdvSetName
= lens _gcdvSetName (\ s a -> s{_gcdvSetName = a})
instance FromJSON
GoogleCloudDialogflowV2SessionEntityType
where
parseJSON
= withObject
"GoogleCloudDialogflowV2SessionEntityType"
(\ o ->
GoogleCloudDialogflowV2SessionEntityType' <$>
(o .:? "entityOverrideMode") <*>
(o .:? "entities" .!= mempty)
<*> (o .:? "name"))
instance ToJSON
GoogleCloudDialogflowV2SessionEntityType
where
toJSON GoogleCloudDialogflowV2SessionEntityType'{..}
= object
(catMaybes
[("entityOverrideMode" .=) <$>
_gcdvSetEntityOverrideMode,
("entities" .=) <$> _gcdvSetEntities,
("name" .=) <$> _gcdvSetName])
data GoogleCloudDialogflowV2EntityTypeEntity =
GoogleCloudDialogflowV2EntityTypeEntity'
{ _gValue :: !(Maybe Text)
, _gSynonyms :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2EntityTypeEntity
:: GoogleCloudDialogflowV2EntityTypeEntity
googleCloudDialogflowV2EntityTypeEntity =
GoogleCloudDialogflowV2EntityTypeEntity'
{_gValue = Nothing, _gSynonyms = Nothing}
gValue :: Lens' GoogleCloudDialogflowV2EntityTypeEntity (Maybe Text)
gValue = lens _gValue (\ s a -> s{_gValue = a})
gSynonyms :: Lens' GoogleCloudDialogflowV2EntityTypeEntity [Text]
gSynonyms
= lens _gSynonyms (\ s a -> s{_gSynonyms = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2EntityTypeEntity
where
parseJSON
= withObject
"GoogleCloudDialogflowV2EntityTypeEntity"
(\ o ->
GoogleCloudDialogflowV2EntityTypeEntity' <$>
(o .:? "value") <*> (o .:? "synonyms" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2EntityTypeEntity
where
toJSON GoogleCloudDialogflowV2EntityTypeEntity'{..}
= object
(catMaybes
[("value" .=) <$> _gValue,
("synonyms" .=) <$> _gSynonyms])
data GoogleCloudDialogflowV2beta1QueryResult =
GoogleCloudDialogflowV2beta1QueryResult'
{ _gLanguageCode :: !(Maybe Text)
, _gAllRequiredParamsPresent :: !(Maybe Bool)
, _gIntentDetectionConfidence :: !(Maybe (Textual Double))
, _gFulfillmentMessages :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessage])
, _gKnowledgeAnswers :: !(Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswers)
, _gSpeechRecognitionConfidence :: !(Maybe (Textual Double))
, _gAction :: !(Maybe Text)
, _gIntent :: !(Maybe GoogleCloudDialogflowV2beta1Intent)
, _gSentimentAnalysisResult :: !(Maybe GoogleCloudDialogflowV2beta1SentimentAnalysisResult)
, _gQueryText :: !(Maybe Text)
, _gFulfillmentText :: !(Maybe Text)
, _gParameters :: !(Maybe GoogleCloudDialogflowV2beta1QueryResultParameters)
, _gWebhookPayload :: !(Maybe GoogleCloudDialogflowV2beta1QueryResultWebhookPayload)
, _gOutputContexts :: !(Maybe [GoogleCloudDialogflowV2beta1Context])
, _gWebhookSource :: !(Maybe Text)
, _gDiagnosticInfo :: !(Maybe GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1QueryResult
:: GoogleCloudDialogflowV2beta1QueryResult
googleCloudDialogflowV2beta1QueryResult =
GoogleCloudDialogflowV2beta1QueryResult'
{ _gLanguageCode = Nothing
, _gAllRequiredParamsPresent = Nothing
, _gIntentDetectionConfidence = Nothing
, _gFulfillmentMessages = Nothing
, _gKnowledgeAnswers = Nothing
, _gSpeechRecognitionConfidence = Nothing
, _gAction = Nothing
, _gIntent = Nothing
, _gSentimentAnalysisResult = Nothing
, _gQueryText = Nothing
, _gFulfillmentText = Nothing
, _gParameters = Nothing
, _gWebhookPayload = Nothing
, _gOutputContexts = Nothing
, _gWebhookSource = Nothing
, _gDiagnosticInfo = Nothing
}
gLanguageCode :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text)
gLanguageCode
= lens _gLanguageCode
(\ s a -> s{_gLanguageCode = a})
gAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Bool)
gAllRequiredParamsPresent
= lens _gAllRequiredParamsPresent
(\ s a -> s{_gAllRequiredParamsPresent = a})
gIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double)
gIntentDetectionConfidence
= lens _gIntentDetectionConfidence
(\ s a -> s{_gIntentDetectionConfidence = a})
. mapping _Coerce
gFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1IntentMessage]
gFulfillmentMessages
= lens _gFulfillmentMessages
(\ s a -> s{_gFulfillmentMessages = a})
. _Default
. _Coerce
gKnowledgeAnswers :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswers)
gKnowledgeAnswers
= lens _gKnowledgeAnswers
(\ s a -> s{_gKnowledgeAnswers = a})
gSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double)
gSpeechRecognitionConfidence
= lens _gSpeechRecognitionConfidence
(\ s a -> s{_gSpeechRecognitionConfidence = a})
. mapping _Coerce
gAction :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text)
gAction = lens _gAction (\ s a -> s{_gAction = a})
gIntent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1Intent)
gIntent = lens _gIntent (\ s a -> s{_gIntent = a})
gSentimentAnalysisResult :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1SentimentAnalysisResult)
gSentimentAnalysisResult
= lens _gSentimentAnalysisResult
(\ s a -> s{_gSentimentAnalysisResult = a})
gQueryText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text)
gQueryText
= lens _gQueryText (\ s a -> s{_gQueryText = a})
gFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text)
gFulfillmentText
= lens _gFulfillmentText
(\ s a -> s{_gFulfillmentText = a})
gParameters :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultParameters)
gParameters
= lens _gParameters (\ s a -> s{_gParameters = a})
gWebhookPayload :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultWebhookPayload)
gWebhookPayload
= lens _gWebhookPayload
(\ s a -> s{_gWebhookPayload = a})
gOutputContexts :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1Context]
gOutputContexts
= lens _gOutputContexts
(\ s a -> s{_gOutputContexts = a})
. _Default
. _Coerce
gWebhookSource :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text)
gWebhookSource
= lens _gWebhookSource
(\ s a -> s{_gWebhookSource = a})
gDiagnosticInfo :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo)
gDiagnosticInfo
= lens _gDiagnosticInfo
(\ s a -> s{_gDiagnosticInfo = a})
instance FromJSON
GoogleCloudDialogflowV2beta1QueryResult
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1QueryResult"
(\ o ->
GoogleCloudDialogflowV2beta1QueryResult' <$>
(o .:? "languageCode") <*>
(o .:? "allRequiredParamsPresent")
<*> (o .:? "intentDetectionConfidence")
<*> (o .:? "fulfillmentMessages" .!= mempty)
<*> (o .:? "knowledgeAnswers")
<*> (o .:? "speechRecognitionConfidence")
<*> (o .:? "action")
<*> (o .:? "intent")
<*> (o .:? "sentimentAnalysisResult")
<*> (o .:? "queryText")
<*> (o .:? "fulfillmentText")
<*> (o .:? "parameters")
<*> (o .:? "webhookPayload")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "webhookSource")
<*> (o .:? "diagnosticInfo"))
instance ToJSON
GoogleCloudDialogflowV2beta1QueryResult
where
toJSON GoogleCloudDialogflowV2beta1QueryResult'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gLanguageCode,
("allRequiredParamsPresent" .=) <$>
_gAllRequiredParamsPresent,
("intentDetectionConfidence" .=) <$>
_gIntentDetectionConfidence,
("fulfillmentMessages" .=) <$> _gFulfillmentMessages,
("knowledgeAnswers" .=) <$> _gKnowledgeAnswers,
("speechRecognitionConfidence" .=) <$>
_gSpeechRecognitionConfidence,
("action" .=) <$> _gAction,
("intent" .=) <$> _gIntent,
("sentimentAnalysisResult" .=) <$>
_gSentimentAnalysisResult,
("queryText" .=) <$> _gQueryText,
("fulfillmentText" .=) <$> _gFulfillmentText,
("parameters" .=) <$> _gParameters,
("webhookPayload" .=) <$> _gWebhookPayload,
("outputContexts" .=) <$> _gOutputContexts,
("webhookSource" .=) <$> _gWebhookSource,
("diagnosticInfo" .=) <$> _gDiagnosticInfo])
data GoogleCloudDialogflowV2IntentMessageImage =
GoogleCloudDialogflowV2IntentMessageImage'
{ _gAccessibilityText :: !(Maybe Text)
, _gImageURI :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageImage
:: GoogleCloudDialogflowV2IntentMessageImage
googleCloudDialogflowV2IntentMessageImage =
GoogleCloudDialogflowV2IntentMessageImage'
{_gAccessibilityText = Nothing, _gImageURI = Nothing}
gAccessibilityText :: Lens' GoogleCloudDialogflowV2IntentMessageImage (Maybe Text)
gAccessibilityText
= lens _gAccessibilityText
(\ s a -> s{_gAccessibilityText = a})
gImageURI :: Lens' GoogleCloudDialogflowV2IntentMessageImage (Maybe Text)
gImageURI
= lens _gImageURI (\ s a -> s{_gImageURI = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageImage
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageImage"
(\ o ->
GoogleCloudDialogflowV2IntentMessageImage' <$>
(o .:? "accessibilityText") <*> (o .:? "imageUri"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageImage
where
toJSON GoogleCloudDialogflowV2IntentMessageImage'{..}
= object
(catMaybes
[("accessibilityText" .=) <$> _gAccessibilityText,
("imageUri" .=) <$> _gImageURI])
data GoogleCloudDialogflowV2WebhookResponse =
GoogleCloudDialogflowV2WebhookResponse'
{ _gooFulfillmentMessages :: !(Maybe [GoogleCloudDialogflowV2IntentMessage])
, _gooPayload :: !(Maybe GoogleCloudDialogflowV2WebhookResponsePayload)
, _gooFulfillmentText :: !(Maybe Text)
, _gooSource :: !(Maybe Text)
, _gooOutputContexts :: !(Maybe [GoogleCloudDialogflowV2Context])
, _gooFollowupEventInput :: !(Maybe GoogleCloudDialogflowV2EventInput)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2WebhookResponse
:: GoogleCloudDialogflowV2WebhookResponse
googleCloudDialogflowV2WebhookResponse =
GoogleCloudDialogflowV2WebhookResponse'
{ _gooFulfillmentMessages = Nothing
, _gooPayload = Nothing
, _gooFulfillmentText = Nothing
, _gooSource = Nothing
, _gooOutputContexts = Nothing
, _gooFollowupEventInput = Nothing
}
gooFulfillmentMessages :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2IntentMessage]
gooFulfillmentMessages
= lens _gooFulfillmentMessages
(\ s a -> s{_gooFulfillmentMessages = a})
. _Default
. _Coerce
gooPayload :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe GoogleCloudDialogflowV2WebhookResponsePayload)
gooPayload
= lens _gooPayload (\ s a -> s{_gooPayload = a})
gooFulfillmentText :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text)
gooFulfillmentText
= lens _gooFulfillmentText
(\ s a -> s{_gooFulfillmentText = a})
gooSource :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text)
gooSource
= lens _gooSource (\ s a -> s{_gooSource = a})
gooOutputContexts :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2Context]
gooOutputContexts
= lens _gooOutputContexts
(\ s a -> s{_gooOutputContexts = a})
. _Default
. _Coerce
gooFollowupEventInput :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe GoogleCloudDialogflowV2EventInput)
gooFollowupEventInput
= lens _gooFollowupEventInput
(\ s a -> s{_gooFollowupEventInput = a})
instance FromJSON
GoogleCloudDialogflowV2WebhookResponse
where
parseJSON
= withObject "GoogleCloudDialogflowV2WebhookResponse"
(\ o ->
GoogleCloudDialogflowV2WebhookResponse' <$>
(o .:? "fulfillmentMessages" .!= mempty) <*>
(o .:? "payload")
<*> (o .:? "fulfillmentText")
<*> (o .:? "source")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "followupEventInput"))
instance ToJSON
GoogleCloudDialogflowV2WebhookResponse
where
toJSON GoogleCloudDialogflowV2WebhookResponse'{..}
= object
(catMaybes
[("fulfillmentMessages" .=) <$>
_gooFulfillmentMessages,
("payload" .=) <$> _gooPayload,
("fulfillmentText" .=) <$> _gooFulfillmentText,
("source" .=) <$> _gooSource,
("outputContexts" .=) <$> _gooOutputContexts,
("followupEventInput" .=) <$>
_gooFollowupEventInput])
data GoogleCloudDialogflowV2TrainAgentRequest =
GoogleCloudDialogflowV2TrainAgentRequest'
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2TrainAgentRequest
:: GoogleCloudDialogflowV2TrainAgentRequest
googleCloudDialogflowV2TrainAgentRequest =
GoogleCloudDialogflowV2TrainAgentRequest'
instance FromJSON
GoogleCloudDialogflowV2TrainAgentRequest
where
parseJSON
= withObject
"GoogleCloudDialogflowV2TrainAgentRequest"
(\ o ->
pure GoogleCloudDialogflowV2TrainAgentRequest')
instance ToJSON
GoogleCloudDialogflowV2TrainAgentRequest
where
toJSON = const emptyObject
newtype GoogleCloudDialogflowV2IntentBatch =
GoogleCloudDialogflowV2IntentBatch'
{ _gcdvibIntents :: Maybe [GoogleCloudDialogflowV2Intent]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentBatch
:: GoogleCloudDialogflowV2IntentBatch
googleCloudDialogflowV2IntentBatch =
GoogleCloudDialogflowV2IntentBatch' {_gcdvibIntents = Nothing}
gcdvibIntents :: Lens' GoogleCloudDialogflowV2IntentBatch [GoogleCloudDialogflowV2Intent]
gcdvibIntents
= lens _gcdvibIntents
(\ s a -> s{_gcdvibIntents = a})
. _Default
. _Coerce
instance FromJSON GoogleCloudDialogflowV2IntentBatch
where
parseJSON
= withObject "GoogleCloudDialogflowV2IntentBatch"
(\ o ->
GoogleCloudDialogflowV2IntentBatch' <$>
(o .:? "intents" .!= mempty))
instance ToJSON GoogleCloudDialogflowV2IntentBatch
where
toJSON GoogleCloudDialogflowV2IntentBatch'{..}
= object
(catMaybes [("intents" .=) <$> _gcdvibIntents])
data GoogleCloudDialogflowV2beta1EntityType =
GoogleCloudDialogflowV2beta1EntityType'
{ _gcdvetcEntities :: !(Maybe [GoogleCloudDialogflowV2beta1EntityTypeEntity])
, _gcdvetcKind :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeKind)
, _gcdvetcName :: !(Maybe Text)
, _gcdvetcAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode)
, _gcdvetcDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1EntityType
:: GoogleCloudDialogflowV2beta1EntityType
googleCloudDialogflowV2beta1EntityType =
GoogleCloudDialogflowV2beta1EntityType'
{ _gcdvetcEntities = Nothing
, _gcdvetcKind = Nothing
, _gcdvetcName = Nothing
, _gcdvetcAutoExpansionMode = Nothing
, _gcdvetcDisplayName = Nothing
}
gcdvetcEntities :: Lens' GoogleCloudDialogflowV2beta1EntityType [GoogleCloudDialogflowV2beta1EntityTypeEntity]
gcdvetcEntities
= lens _gcdvetcEntities
(\ s a -> s{_gcdvetcEntities = a})
. _Default
. _Coerce
gcdvetcKind :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeKind)
gcdvetcKind
= lens _gcdvetcKind (\ s a -> s{_gcdvetcKind = a})
gcdvetcName :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe Text)
gcdvetcName
= lens _gcdvetcName (\ s a -> s{_gcdvetcName = a})
gcdvetcAutoExpansionMode :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode)
gcdvetcAutoExpansionMode
= lens _gcdvetcAutoExpansionMode
(\ s a -> s{_gcdvetcAutoExpansionMode = a})
gcdvetcDisplayName :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe Text)
gcdvetcDisplayName
= lens _gcdvetcDisplayName
(\ s a -> s{_gcdvetcDisplayName = a})
instance FromJSON
GoogleCloudDialogflowV2beta1EntityType
where
parseJSON
= withObject "GoogleCloudDialogflowV2beta1EntityType"
(\ o ->
GoogleCloudDialogflowV2beta1EntityType' <$>
(o .:? "entities" .!= mempty) <*> (o .:? "kind") <*>
(o .:? "name")
<*> (o .:? "autoExpansionMode")
<*> (o .:? "displayName"))
instance ToJSON
GoogleCloudDialogflowV2beta1EntityType
where
toJSON GoogleCloudDialogflowV2beta1EntityType'{..}
= object
(catMaybes
[("entities" .=) <$> _gcdvetcEntities,
("kind" .=) <$> _gcdvetcKind,
("name" .=) <$> _gcdvetcName,
("autoExpansionMode" .=) <$>
_gcdvetcAutoExpansionMode,
("displayName" .=) <$> _gcdvetcDisplayName])
data GoogleCloudDialogflowV2SearchAgentsResponse =
GoogleCloudDialogflowV2SearchAgentsResponse'
{ _gcdvsarNextPageToken :: !(Maybe Text)
, _gcdvsarAgents :: !(Maybe [GoogleCloudDialogflowV2Agent])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2SearchAgentsResponse
:: GoogleCloudDialogflowV2SearchAgentsResponse
googleCloudDialogflowV2SearchAgentsResponse =
GoogleCloudDialogflowV2SearchAgentsResponse'
{_gcdvsarNextPageToken = Nothing, _gcdvsarAgents = Nothing}
gcdvsarNextPageToken :: Lens' GoogleCloudDialogflowV2SearchAgentsResponse (Maybe Text)
gcdvsarNextPageToken
= lens _gcdvsarNextPageToken
(\ s a -> s{_gcdvsarNextPageToken = a})
gcdvsarAgents :: Lens' GoogleCloudDialogflowV2SearchAgentsResponse [GoogleCloudDialogflowV2Agent]
gcdvsarAgents
= lens _gcdvsarAgents
(\ s a -> s{_gcdvsarAgents = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2SearchAgentsResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2SearchAgentsResponse"
(\ o ->
GoogleCloudDialogflowV2SearchAgentsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "agents" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2SearchAgentsResponse
where
toJSON
GoogleCloudDialogflowV2SearchAgentsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcdvsarNextPageToken,
("agents" .=) <$> _gcdvsarAgents])
data GoogleCloudDialogflowV2ListSessionEntityTypesResponse =
GoogleCloudDialogflowV2ListSessionEntityTypesResponse'
{ _gcdvlSetrNextPageToken :: !(Maybe Text)
, _gcdvlSetrSessionEntityTypes :: !(Maybe [GoogleCloudDialogflowV2SessionEntityType])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2ListSessionEntityTypesResponse
:: GoogleCloudDialogflowV2ListSessionEntityTypesResponse
googleCloudDialogflowV2ListSessionEntityTypesResponse =
GoogleCloudDialogflowV2ListSessionEntityTypesResponse'
{_gcdvlSetrNextPageToken = Nothing, _gcdvlSetrSessionEntityTypes = Nothing}
gcdvlSetrNextPageToken :: Lens' GoogleCloudDialogflowV2ListSessionEntityTypesResponse (Maybe Text)
gcdvlSetrNextPageToken
= lens _gcdvlSetrNextPageToken
(\ s a -> s{_gcdvlSetrNextPageToken = a})
gcdvlSetrSessionEntityTypes :: Lens' GoogleCloudDialogflowV2ListSessionEntityTypesResponse [GoogleCloudDialogflowV2SessionEntityType]
gcdvlSetrSessionEntityTypes
= lens _gcdvlSetrSessionEntityTypes
(\ s a -> s{_gcdvlSetrSessionEntityTypes = a})
. _Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2ListSessionEntityTypesResponse
where
parseJSON
= withObject
"GoogleCloudDialogflowV2ListSessionEntityTypesResponse"
(\ o ->
GoogleCloudDialogflowV2ListSessionEntityTypesResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "sessionEntityTypes" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2ListSessionEntityTypesResponse
where
toJSON
GoogleCloudDialogflowV2ListSessionEntityTypesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gcdvlSetrNextPageToken,
("sessionEntityTypes" .=) <$>
_gcdvlSetrSessionEntityTypes])
data GoogleLongrunningOperation =
GoogleLongrunningOperation'
{ _gloDone :: !(Maybe Bool)
, _gloError :: !(Maybe GoogleRpcStatus)
, _gloResponse :: !(Maybe GoogleLongrunningOperationResponse)
, _gloName :: !(Maybe Text)
, _gloMetadata :: !(Maybe GoogleLongrunningOperationMetadata)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleLongrunningOperation
:: GoogleLongrunningOperation
googleLongrunningOperation =
GoogleLongrunningOperation'
{ _gloDone = Nothing
, _gloError = Nothing
, _gloResponse = Nothing
, _gloName = Nothing
, _gloMetadata = Nothing
}
gloDone :: Lens' GoogleLongrunningOperation (Maybe Bool)
gloDone = lens _gloDone (\ s a -> s{_gloDone = a})
gloError :: Lens' GoogleLongrunningOperation (Maybe GoogleRpcStatus)
gloError = lens _gloError (\ s a -> s{_gloError = a})
gloResponse :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationResponse)
gloResponse
= lens _gloResponse (\ s a -> s{_gloResponse = a})
gloName :: Lens' GoogleLongrunningOperation (Maybe Text)
gloName = lens _gloName (\ s a -> s{_gloName = a})
gloMetadata :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationMetadata)
gloMetadata
= lens _gloMetadata (\ s a -> s{_gloMetadata = a})
instance FromJSON GoogleLongrunningOperation where
parseJSON
= withObject "GoogleLongrunningOperation"
(\ o ->
GoogleLongrunningOperation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON GoogleLongrunningOperation where
toJSON GoogleLongrunningOperation'{..}
= object
(catMaybes
[("done" .=) <$> _gloDone,
("error" .=) <$> _gloError,
("response" .=) <$> _gloResponse,
("name" .=) <$> _gloName,
("metadata" .=) <$> _gloMetadata])
data GoogleCloudDialogflowV2IntentMessage =
GoogleCloudDialogflowV2IntentMessage'
{ _gcdvimcCard :: !(Maybe GoogleCloudDialogflowV2IntentMessageCard)
, _gcdvimcImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage)
, _gcdvimcPlatform :: !(Maybe GoogleCloudDialogflowV2IntentMessagePlatform)
, _gcdvimcLinkOutSuggestion :: !(Maybe GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion)
, _gcdvimcText :: !(Maybe GoogleCloudDialogflowV2IntentMessageText)
, _gcdvimcCarouselSelect :: !(Maybe GoogleCloudDialogflowV2IntentMessageCarouselSelect)
, _gcdvimcSimpleResponses :: !(Maybe GoogleCloudDialogflowV2IntentMessageSimpleResponses)
, _gcdvimcPayload :: !(Maybe GoogleCloudDialogflowV2IntentMessagePayload)
, _gcdvimcSuggestions :: !(Maybe GoogleCloudDialogflowV2IntentMessageSuggestions)
, _gcdvimcListSelect :: !(Maybe GoogleCloudDialogflowV2IntentMessageListSelect)
, _gcdvimcBasicCard :: !(Maybe GoogleCloudDialogflowV2IntentMessageBasicCard)
, _gcdvimcQuickReplies :: !(Maybe GoogleCloudDialogflowV2IntentMessageQuickReplies)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessage
:: GoogleCloudDialogflowV2IntentMessage
googleCloudDialogflowV2IntentMessage =
GoogleCloudDialogflowV2IntentMessage'
{ _gcdvimcCard = Nothing
, _gcdvimcImage = Nothing
, _gcdvimcPlatform = Nothing
, _gcdvimcLinkOutSuggestion = Nothing
, _gcdvimcText = Nothing
, _gcdvimcCarouselSelect = Nothing
, _gcdvimcSimpleResponses = Nothing
, _gcdvimcPayload = Nothing
, _gcdvimcSuggestions = Nothing
, _gcdvimcListSelect = Nothing
, _gcdvimcBasicCard = Nothing
, _gcdvimcQuickReplies = Nothing
}
gcdvimcCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCard)
gcdvimcCard
= lens _gcdvimcCard (\ s a -> s{_gcdvimcCard = a})
gcdvimcImage :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageImage)
gcdvimcImage
= lens _gcdvimcImage (\ s a -> s{_gcdvimcImage = a})
gcdvimcPlatform :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePlatform)
gcdvimcPlatform
= lens _gcdvimcPlatform
(\ s a -> s{_gcdvimcPlatform = a})
gcdvimcLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion)
gcdvimcLinkOutSuggestion
= lens _gcdvimcLinkOutSuggestion
(\ s a -> s{_gcdvimcLinkOutSuggestion = a})
gcdvimcText :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageText)
gcdvimcText
= lens _gcdvimcText (\ s a -> s{_gcdvimcText = a})
gcdvimcCarouselSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCarouselSelect)
gcdvimcCarouselSelect
= lens _gcdvimcCarouselSelect
(\ s a -> s{_gcdvimcCarouselSelect = a})
gcdvimcSimpleResponses :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSimpleResponses)
gcdvimcSimpleResponses
= lens _gcdvimcSimpleResponses
(\ s a -> s{_gcdvimcSimpleResponses = a})
gcdvimcPayload :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePayload)
gcdvimcPayload
= lens _gcdvimcPayload
(\ s a -> s{_gcdvimcPayload = a})
gcdvimcSuggestions :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSuggestions)
gcdvimcSuggestions
= lens _gcdvimcSuggestions
(\ s a -> s{_gcdvimcSuggestions = a})
gcdvimcListSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageListSelect)
gcdvimcListSelect
= lens _gcdvimcListSelect
(\ s a -> s{_gcdvimcListSelect = a})
gcdvimcBasicCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageBasicCard)
gcdvimcBasicCard
= lens _gcdvimcBasicCard
(\ s a -> s{_gcdvimcBasicCard = a})
gcdvimcQuickReplies :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageQuickReplies)
gcdvimcQuickReplies
= lens _gcdvimcQuickReplies
(\ s a -> s{_gcdvimcQuickReplies = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessage
where
parseJSON
= withObject "GoogleCloudDialogflowV2IntentMessage"
(\ o ->
GoogleCloudDialogflowV2IntentMessage' <$>
(o .:? "card") <*> (o .:? "image") <*>
(o .:? "platform")
<*> (o .:? "linkOutSuggestion")
<*> (o .:? "text")
<*> (o .:? "carouselSelect")
<*> (o .:? "simpleResponses")
<*> (o .:? "payload")
<*> (o .:? "suggestions")
<*> (o .:? "listSelect")
<*> (o .:? "basicCard")
<*> (o .:? "quickReplies"))
instance ToJSON GoogleCloudDialogflowV2IntentMessage
where
toJSON GoogleCloudDialogflowV2IntentMessage'{..}
= object
(catMaybes
[("card" .=) <$> _gcdvimcCard,
("image" .=) <$> _gcdvimcImage,
("platform" .=) <$> _gcdvimcPlatform,
("linkOutSuggestion" .=) <$>
_gcdvimcLinkOutSuggestion,
("text" .=) <$> _gcdvimcText,
("carouselSelect" .=) <$> _gcdvimcCarouselSelect,
("simpleResponses" .=) <$> _gcdvimcSimpleResponses,
("payload" .=) <$> _gcdvimcPayload,
("suggestions" .=) <$> _gcdvimcSuggestions,
("listSelect" .=) <$> _gcdvimcListSelect,
("basicCard" .=) <$> _gcdvimcBasicCard,
("quickReplies" .=) <$> _gcdvimcQuickReplies])
newtype GoogleCloudDialogflowV2IntentMessageCarouselSelect =
GoogleCloudDialogflowV2IntentMessageCarouselSelect'
{ _gItems :: Maybe [GoogleCloudDialogflowV2IntentMessageCarouselSelectItem]
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageCarouselSelect
:: GoogleCloudDialogflowV2IntentMessageCarouselSelect
googleCloudDialogflowV2IntentMessageCarouselSelect =
GoogleCloudDialogflowV2IntentMessageCarouselSelect' {_gItems = Nothing}
gItems :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelect [GoogleCloudDialogflowV2IntentMessageCarouselSelectItem]
gItems
= lens _gItems (\ s a -> s{_gItems = a}) . _Default .
_Coerce
instance FromJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelect
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageCarouselSelect"
(\ o ->
GoogleCloudDialogflowV2IntentMessageCarouselSelect'
<$> (o .:? "items" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelect
where
toJSON
GoogleCloudDialogflowV2IntentMessageCarouselSelect'{..}
= object (catMaybes [("items" .=) <$> _gItems])
data GoogleCloudDialogflowV2Sentiment =
GoogleCloudDialogflowV2Sentiment'
{ _gScore :: !(Maybe (Textual Double))
, _gMagnitude :: !(Maybe (Textual Double))
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2Sentiment
:: GoogleCloudDialogflowV2Sentiment
googleCloudDialogflowV2Sentiment =
GoogleCloudDialogflowV2Sentiment' {_gScore = Nothing, _gMagnitude = Nothing}
gScore :: Lens' GoogleCloudDialogflowV2Sentiment (Maybe Double)
gScore
= lens _gScore (\ s a -> s{_gScore = a}) .
mapping _Coerce
gMagnitude :: Lens' GoogleCloudDialogflowV2Sentiment (Maybe Double)
gMagnitude
= lens _gMagnitude (\ s a -> s{_gMagnitude = a}) .
mapping _Coerce
instance FromJSON GoogleCloudDialogflowV2Sentiment
where
parseJSON
= withObject "GoogleCloudDialogflowV2Sentiment"
(\ o ->
GoogleCloudDialogflowV2Sentiment' <$>
(o .:? "score") <*> (o .:? "magnitude"))
instance ToJSON GoogleCloudDialogflowV2Sentiment
where
toJSON GoogleCloudDialogflowV2Sentiment'{..}
= object
(catMaybes
[("score" .=) <$> _gScore,
("magnitude" .=) <$> _gMagnitude])
data GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo =
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo'
{ _gooKey :: !(Maybe Text)
, _gooSynonyms :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1IntentMessageSelectItemInfo
:: GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo
googleCloudDialogflowV2beta1IntentMessageSelectItemInfo =
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo'
{_gooKey = Nothing, _gooSynonyms = Nothing}
gooKey :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo (Maybe Text)
gooKey = lens _gooKey (\ s a -> s{_gooKey = a})
gooSynonyms :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo [Text]
gooSynonyms
= lens _gooSynonyms (\ s a -> s{_gooSynonyms = a}) .
_Default
. _Coerce
instance FromJSON
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo
where
parseJSON
= withObject
"GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo"
(\ o ->
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo'
<$> (o .:? "key") <*> (o .:? "synonyms" .!= mempty))
instance ToJSON
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo
where
toJSON
GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo'{..}
= object
(catMaybes
[("key" .=) <$> _gooKey,
("synonyms" .=) <$> _gooSynonyms])
data GoogleCloudDialogflowV2beta1Intent =
GoogleCloudDialogflowV2beta1Intent'
{ _gcdvicDefaultResponsePlatforms :: !(Maybe [Text])
, _gcdvicWebhookState :: !(Maybe GoogleCloudDialogflowV2beta1IntentWebhookState)
, _gcdvicMlEnabled :: !(Maybe Bool)
, _gcdvicPriority :: !(Maybe (Textual Int32))
, _gcdvicAction :: !(Maybe Text)
, _gcdvicRootFollowupIntentName :: !(Maybe Text)
, _gcdvicName :: !(Maybe Text)
, _gcdvicEvents :: !(Maybe [Text])
, _gcdvicParameters :: !(Maybe [GoogleCloudDialogflowV2beta1IntentParameter])
, _gcdvicDisplayName :: !(Maybe Text)
, _gcdvicInputContextNames :: !(Maybe [Text])
, _gcdvicEndInteraction :: !(Maybe Bool)
, _gcdvicMessages :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessage])
, _gcdvicParentFollowupIntentName :: !(Maybe Text)
, _gcdvicOutputContexts :: !(Maybe [GoogleCloudDialogflowV2beta1Context])
, _gcdvicTrainingPhrases :: !(Maybe [GoogleCloudDialogflowV2beta1IntentTrainingPhrase])
, _gcdvicFollowupIntentInfo :: !(Maybe [GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo])
, _gcdvicIsFallback :: !(Maybe Bool)
, _gcdvicMlDisabled :: !(Maybe Bool)
, _gcdvicResetContexts :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2beta1Intent
:: GoogleCloudDialogflowV2beta1Intent
googleCloudDialogflowV2beta1Intent =
GoogleCloudDialogflowV2beta1Intent'
{ _gcdvicDefaultResponsePlatforms = Nothing
, _gcdvicWebhookState = Nothing
, _gcdvicMlEnabled = Nothing
, _gcdvicPriority = Nothing
, _gcdvicAction = Nothing
, _gcdvicRootFollowupIntentName = Nothing
, _gcdvicName = Nothing
, _gcdvicEvents = Nothing
, _gcdvicParameters = Nothing
, _gcdvicDisplayName = Nothing
, _gcdvicInputContextNames = Nothing
, _gcdvicEndInteraction = Nothing
, _gcdvicMessages = Nothing
, _gcdvicParentFollowupIntentName = Nothing
, _gcdvicOutputContexts = Nothing
, _gcdvicTrainingPhrases = Nothing
, _gcdvicFollowupIntentInfo = Nothing
, _gcdvicIsFallback = Nothing
, _gcdvicMlDisabled = Nothing
, _gcdvicResetContexts = Nothing
}
gcdvicDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2beta1Intent [Text]
gcdvicDefaultResponsePlatforms
= lens _gcdvicDefaultResponsePlatforms
(\ s a -> s{_gcdvicDefaultResponsePlatforms = a})
. _Default
. _Coerce
gcdvicWebhookState :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe GoogleCloudDialogflowV2beta1IntentWebhookState)
gcdvicWebhookState
= lens _gcdvicWebhookState
(\ s a -> s{_gcdvicWebhookState = a})
gcdvicMlEnabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool)
gcdvicMlEnabled
= lens _gcdvicMlEnabled
(\ s a -> s{_gcdvicMlEnabled = a})
gcdvicPriority :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Int32)
gcdvicPriority
= lens _gcdvicPriority
(\ s a -> s{_gcdvicPriority = a})
. mapping _Coerce
gcdvicAction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text)
gcdvicAction
= lens _gcdvicAction (\ s a -> s{_gcdvicAction = a})
gcdvicRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text)
gcdvicRootFollowupIntentName
= lens _gcdvicRootFollowupIntentName
(\ s a -> s{_gcdvicRootFollowupIntentName = a})
gcdvicName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text)
gcdvicName
= lens _gcdvicName (\ s a -> s{_gcdvicName = a})
gcdvicEvents :: Lens' GoogleCloudDialogflowV2beta1Intent [Text]
gcdvicEvents
= lens _gcdvicEvents (\ s a -> s{_gcdvicEvents = a})
. _Default
. _Coerce
gcdvicParameters :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentParameter]
gcdvicParameters
= lens _gcdvicParameters
(\ s a -> s{_gcdvicParameters = a})
. _Default
. _Coerce
gcdvicDisplayName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text)
gcdvicDisplayName
= lens _gcdvicDisplayName
(\ s a -> s{_gcdvicDisplayName = a})
gcdvicInputContextNames :: Lens' GoogleCloudDialogflowV2beta1Intent [Text]
gcdvicInputContextNames
= lens _gcdvicInputContextNames
(\ s a -> s{_gcdvicInputContextNames = a})
. _Default
. _Coerce
gcdvicEndInteraction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool)
gcdvicEndInteraction
= lens _gcdvicEndInteraction
(\ s a -> s{_gcdvicEndInteraction = a})
gcdvicMessages :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentMessage]
gcdvicMessages
= lens _gcdvicMessages
(\ s a -> s{_gcdvicMessages = a})
. _Default
. _Coerce
gcdvicParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text)
gcdvicParentFollowupIntentName
= lens _gcdvicParentFollowupIntentName
(\ s a -> s{_gcdvicParentFollowupIntentName = a})
gcdvicOutputContexts :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1Context]
gcdvicOutputContexts
= lens _gcdvicOutputContexts
(\ s a -> s{_gcdvicOutputContexts = a})
. _Default
. _Coerce
gcdvicTrainingPhrases :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentTrainingPhrase]
gcdvicTrainingPhrases
= lens _gcdvicTrainingPhrases
(\ s a -> s{_gcdvicTrainingPhrases = a})
. _Default
. _Coerce
gcdvicFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo]
gcdvicFollowupIntentInfo
= lens _gcdvicFollowupIntentInfo
(\ s a -> s{_gcdvicFollowupIntentInfo = a})
. _Default
. _Coerce
gcdvicIsFallback :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool)
gcdvicIsFallback
= lens _gcdvicIsFallback
(\ s a -> s{_gcdvicIsFallback = a})
gcdvicMlDisabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool)
gcdvicMlDisabled
= lens _gcdvicMlDisabled
(\ s a -> s{_gcdvicMlDisabled = a})
gcdvicResetContexts :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool)
gcdvicResetContexts
= lens _gcdvicResetContexts
(\ s a -> s{_gcdvicResetContexts = a})
instance FromJSON GoogleCloudDialogflowV2beta1Intent
where
parseJSON
= withObject "GoogleCloudDialogflowV2beta1Intent"
(\ o ->
GoogleCloudDialogflowV2beta1Intent' <$>
(o .:? "defaultResponsePlatforms" .!= mempty) <*>
(o .:? "webhookState")
<*> (o .:? "mlEnabled")
<*> (o .:? "priority")
<*> (o .:? "action")
<*> (o .:? "rootFollowupIntentName")
<*> (o .:? "name")
<*> (o .:? "events" .!= mempty)
<*> (o .:? "parameters" .!= mempty)
<*> (o .:? "displayName")
<*> (o .:? "inputContextNames" .!= mempty)
<*> (o .:? "endInteraction")
<*> (o .:? "messages" .!= mempty)
<*> (o .:? "parentFollowupIntentName")
<*> (o .:? "outputContexts" .!= mempty)
<*> (o .:? "trainingPhrases" .!= mempty)
<*> (o .:? "followupIntentInfo" .!= mempty)
<*> (o .:? "isFallback")
<*> (o .:? "mlDisabled")
<*> (o .:? "resetContexts"))
instance ToJSON GoogleCloudDialogflowV2beta1Intent
where
toJSON GoogleCloudDialogflowV2beta1Intent'{..}
= object
(catMaybes
[("defaultResponsePlatforms" .=) <$>
_gcdvicDefaultResponsePlatforms,
("webhookState" .=) <$> _gcdvicWebhookState,
("mlEnabled" .=) <$> _gcdvicMlEnabled,
("priority" .=) <$> _gcdvicPriority,
("action" .=) <$> _gcdvicAction,
("rootFollowupIntentName" .=) <$>
_gcdvicRootFollowupIntentName,
("name" .=) <$> _gcdvicName,
("events" .=) <$> _gcdvicEvents,
("parameters" .=) <$> _gcdvicParameters,
("displayName" .=) <$> _gcdvicDisplayName,
("inputContextNames" .=) <$>
_gcdvicInputContextNames,
("endInteraction" .=) <$> _gcdvicEndInteraction,
("messages" .=) <$> _gcdvicMessages,
("parentFollowupIntentName" .=) <$>
_gcdvicParentFollowupIntentName,
("outputContexts" .=) <$> _gcdvicOutputContexts,
("trainingPhrases" .=) <$> _gcdvicTrainingPhrases,
("followupIntentInfo" .=) <$>
_gcdvicFollowupIntentInfo,
("isFallback" .=) <$> _gcdvicIsFallback,
("mlDisabled" .=) <$> _gcdvicMlDisabled,
("resetContexts" .=) <$> _gcdvicResetContexts])
data GoogleCloudDialogflowV2Context =
GoogleCloudDialogflowV2Context'
{ _gcdvccLifespanCount :: !(Maybe (Textual Int32))
, _gcdvccName :: !(Maybe Text)
, _gcdvccParameters :: !(Maybe GoogleCloudDialogflowV2ContextParameters)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2Context
:: GoogleCloudDialogflowV2Context
googleCloudDialogflowV2Context =
GoogleCloudDialogflowV2Context'
{ _gcdvccLifespanCount = Nothing
, _gcdvccName = Nothing
, _gcdvccParameters = Nothing
}
gcdvccLifespanCount :: Lens' GoogleCloudDialogflowV2Context (Maybe Int32)
gcdvccLifespanCount
= lens _gcdvccLifespanCount
(\ s a -> s{_gcdvccLifespanCount = a})
. mapping _Coerce
gcdvccName :: Lens' GoogleCloudDialogflowV2Context (Maybe Text)
gcdvccName
= lens _gcdvccName (\ s a -> s{_gcdvccName = a})
gcdvccParameters :: Lens' GoogleCloudDialogflowV2Context (Maybe GoogleCloudDialogflowV2ContextParameters)
gcdvccParameters
= lens _gcdvccParameters
(\ s a -> s{_gcdvccParameters = a})
instance FromJSON GoogleCloudDialogflowV2Context
where
parseJSON
= withObject "GoogleCloudDialogflowV2Context"
(\ o ->
GoogleCloudDialogflowV2Context' <$>
(o .:? "lifespanCount") <*> (o .:? "name") <*>
(o .:? "parameters"))
instance ToJSON GoogleCloudDialogflowV2Context where
toJSON GoogleCloudDialogflowV2Context'{..}
= object
(catMaybes
[("lifespanCount" .=) <$> _gcdvccLifespanCount,
("name" .=) <$> _gcdvccName,
("parameters" .=) <$> _gcdvccParameters])
data GoogleCloudDialogflowV2IntentMessageBasicCardButton =
GoogleCloudDialogflowV2IntentMessageBasicCardButton'
{ _gcdvimbcbcOpenURIAction :: !(Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction)
, _gcdvimbcbcTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleCloudDialogflowV2IntentMessageBasicCardButton
:: GoogleCloudDialogflowV2IntentMessageBasicCardButton
googleCloudDialogflowV2IntentMessageBasicCardButton =
GoogleCloudDialogflowV2IntentMessageBasicCardButton'
{_gcdvimbcbcOpenURIAction = Nothing, _gcdvimbcbcTitle = Nothing}
gcdvimbcbcOpenURIAction :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction)
gcdvimbcbcOpenURIAction
= lens _gcdvimbcbcOpenURIAction
(\ s a -> s{_gcdvimbcbcOpenURIAction = a})
gcdvimbcbcTitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCardButton (Maybe Text)
gcdvimbcbcTitle
= lens _gcdvimbcbcTitle
(\ s a -> s{_gcdvimbcbcTitle = a})
instance FromJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButton
where
parseJSON
= withObject
"GoogleCloudDialogflowV2IntentMessageBasicCardButton"
(\ o ->
GoogleCloudDialogflowV2IntentMessageBasicCardButton'
<$> (o .:? "openUriAction") <*> (o .:? "title"))
instance ToJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButton
where
toJSON
GoogleCloudDialogflowV2IntentMessageBasicCardButton'{..}
= object
(catMaybes
[("openUriAction" .=) <$> _gcdvimbcbcOpenURIAction,
("title" .=) <$> _gcdvimbcbcTitle])