diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/DialogFlow.hs b/gen/Network/Google/DialogFlow.hs --- a/gen/Network/Google/DialogFlow.hs +++ b/gen/Network/Google/DialogFlow.hs @@ -165,12 +165,22 @@ -- ** GoogleCloudDialogflowV2beta1IntentTrainingPhraseType , GoogleCloudDialogflowV2beta1IntentTrainingPhraseType (..) + -- ** GoogleCloudDialogflowV2SynthesizeSpeechConfig + , GoogleCloudDialogflowV2SynthesizeSpeechConfig + , googleCloudDialogflowV2SynthesizeSpeechConfig + , gcdvsscVolumeGainDB + , gcdvsscEffectsProFileId + , gcdvsscVoice + , gcdvsscSpeakingRate + , gcdvsscPitch + -- ** GoogleCloudDialogflowV2InputAudioConfig , GoogleCloudDialogflowV2InputAudioConfig , googleCloudDialogflowV2InputAudioConfig , gcdviacLanguageCode , gcdviacPhraseHints , gcdviacSampleRateHertz + , gcdviacModelVariant , gcdviacAudioEncoding -- ** GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse @@ -213,6 +223,9 @@ , gcdvimsrSsml , gcdvimsrTextToSpeech + -- ** GoogleCloudDialogflowV2InputAudioConfigModelVariant + , GoogleCloudDialogflowV2InputAudioConfigModelVariant (..) + -- ** GoogleLongrunningOperationMetadata , GoogleLongrunningOperationMetadata , googleLongrunningOperationMetadata @@ -272,12 +285,20 @@ , gcdviMlDisabled , gcdviResetContexts + -- ** GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender + , GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender (..) + -- ** GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton , googleCloudDialogflowV2beta1IntentMessageBasicCardButton , gcdvimbcbOpenURIAction , gcdvimbcbTitle + -- ** GoogleCloudDialogflowV2SentimentAnalysisResult + , GoogleCloudDialogflowV2SentimentAnalysisResult + , googleCloudDialogflowV2SentimentAnalysisResult + , gcdvsarQueryTextSentiment + -- ** GoogleCloudDialogflowV2BatchCreateEntitiesRequest , GoogleCloudDialogflowV2BatchCreateEntitiesRequest , googleCloudDialogflowV2BatchCreateEntitiesRequest @@ -307,6 +328,7 @@ , gcdvqrSpeechRecognitionConfidence , gcdvqrAction , gcdvqrIntent + , gcdvqrSentimentAnalysisResult , gcdvqrQueryText , gcdvqrFulfillmentText , gcdvqrParameters @@ -389,6 +411,11 @@ , googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio , gcdvimtpaAudioURI + -- ** GoogleCloudDialogflowV2SentimentAnalysisRequestConfig + , GoogleCloudDialogflowV2SentimentAnalysisRequestConfig + , googleCloudDialogflowV2SentimentAnalysisRequestConfig + , gcdvsarcAnalyzeQueryTextSentiment + -- ** GoogleCloudDialogflowV2IntentTrainingPhrasePart , GoogleCloudDialogflowV2IntentTrainingPhrasePart , googleCloudDialogflowV2IntentTrainingPhrasePart @@ -482,6 +509,7 @@ , GoogleCloudDialogflowV2QueryParameters , googleCloudDialogflowV2QueryParameters , gcdvqpContexts + , gcdvqpSentimentAnalysisRequestConfig , gcdvqpPayload , gcdvqpGeoLocation , gcdvqpTimeZone @@ -511,7 +539,9 @@ -- ** GoogleCloudDialogflowV2DetectIntentResponse , GoogleCloudDialogflowV2DetectIntentResponse , googleCloudDialogflowV2DetectIntentResponse + , gcdvdirOutputAudioConfig , gcdvdirResponseId + , gcdvdirOutputAudio , gcdvdirWebhookStatus , gcdvdirQueryResult @@ -526,13 +556,19 @@ -- ** GoogleCloudDialogflowV2beta1SentimentAnalysisResult , GoogleCloudDialogflowV2beta1SentimentAnalysisResult , googleCloudDialogflowV2beta1SentimentAnalysisResult - , gcdvsarQueryTextSentiment + , gQueryTextSentiment -- ** GoogleCloudDialogflowV2EntityTypeBatch , GoogleCloudDialogflowV2EntityTypeBatch , googleCloudDialogflowV2EntityTypeBatch , gcdvetbEntityTypes + -- ** GoogleCloudDialogflowV2VoiceSelectionParams + , GoogleCloudDialogflowV2VoiceSelectionParams + , googleCloudDialogflowV2VoiceSelectionParams + , gcdvvspSsmlGender + , gcdvvspName + -- ** GoogleCloudDialogflowV2QueryResultDiagnosticInfo , GoogleCloudDialogflowV2QueryResultDiagnosticInfo , googleCloudDialogflowV2QueryResultDiagnosticInfo @@ -546,9 +582,10 @@ -- ** GoogleCloudDialogflowV2DetectIntentRequest , GoogleCloudDialogflowV2DetectIntentRequest , googleCloudDialogflowV2DetectIntentRequest - , gcdvdirQueryInput - , gcdvdirInputAudio - , gcdvdirQueryParams + , gQueryInput + , gOutputAudioConfig + , gInputAudio + , gQueryParams -- ** GoogleCloudDialogflowV2beta1QueryResultParameters , GoogleCloudDialogflowV2beta1QueryResultParameters @@ -831,6 +868,13 @@ , gcdvimiAccessibilityText , gcdvimiImageURI + -- ** GoogleCloudDialogflowV2OutputAudioConfig + , GoogleCloudDialogflowV2OutputAudioConfig + , googleCloudDialogflowV2OutputAudioConfig + , gcdvoacSampleRateHertz + , gcdvoacSynthesizeSpeechConfig + , gcdvoacAudioEncoding + -- ** GoogleCloudDialogflowV2ExportAgentResponse , GoogleCloudDialogflowV2ExportAgentResponse , googleCloudDialogflowV2ExportAgentResponse @@ -876,6 +920,9 @@ , gcdvipIsList , gcdvipEntityTypeDisplayName + -- ** GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding + , GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding (..) + -- ** GoogleCloudDialogflowV2EntityTypeAutoExpansionMode , GoogleCloudDialogflowV2EntityTypeAutoExpansionMode (..) @@ -1043,6 +1090,12 @@ , GoogleCloudDialogflowV2IntentMessageCarouselSelect , googleCloudDialogflowV2IntentMessageCarouselSelect , gItems + + -- ** GoogleCloudDialogflowV2Sentiment + , GoogleCloudDialogflowV2Sentiment + , googleCloudDialogflowV2Sentiment + , gScore + , gMagnitude -- ** GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo , GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo diff --git a/gen/Network/Google/DialogFlow/Types.hs b/gen/Network/Google/DialogFlow/Types.hs --- a/gen/Network/Google/DialogFlow/Types.hs +++ b/gen/Network/Google/DialogFlow/Types.hs @@ -47,12 +47,22 @@ -- * GoogleCloudDialogflowV2beta1IntentTrainingPhraseType , GoogleCloudDialogflowV2beta1IntentTrainingPhraseType (..) + -- * GoogleCloudDialogflowV2SynthesizeSpeechConfig + , GoogleCloudDialogflowV2SynthesizeSpeechConfig + , googleCloudDialogflowV2SynthesizeSpeechConfig + , gcdvsscVolumeGainDB + , gcdvsscEffectsProFileId + , gcdvsscVoice + , gcdvsscSpeakingRate + , gcdvsscPitch + -- * GoogleCloudDialogflowV2InputAudioConfig , GoogleCloudDialogflowV2InputAudioConfig , googleCloudDialogflowV2InputAudioConfig , gcdviacLanguageCode , gcdviacPhraseHints , gcdviacSampleRateHertz + , gcdviacModelVariant , gcdviacAudioEncoding -- * GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse @@ -95,6 +105,9 @@ , gcdvimsrSsml , gcdvimsrTextToSpeech + -- * GoogleCloudDialogflowV2InputAudioConfigModelVariant + , GoogleCloudDialogflowV2InputAudioConfigModelVariant (..) + -- * GoogleLongrunningOperationMetadata , GoogleLongrunningOperationMetadata , googleLongrunningOperationMetadata @@ -154,12 +167,20 @@ , gcdviMlDisabled , gcdviResetContexts + -- * GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender + , GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender (..) + -- * GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton , googleCloudDialogflowV2beta1IntentMessageBasicCardButton , gcdvimbcbOpenURIAction , gcdvimbcbTitle + -- * GoogleCloudDialogflowV2SentimentAnalysisResult + , GoogleCloudDialogflowV2SentimentAnalysisResult + , googleCloudDialogflowV2SentimentAnalysisResult + , gcdvsarQueryTextSentiment + -- * GoogleCloudDialogflowV2BatchCreateEntitiesRequest , GoogleCloudDialogflowV2BatchCreateEntitiesRequest , googleCloudDialogflowV2BatchCreateEntitiesRequest @@ -189,6 +210,7 @@ , gcdvqrSpeechRecognitionConfidence , gcdvqrAction , gcdvqrIntent + , gcdvqrSentimentAnalysisResult , gcdvqrQueryText , gcdvqrFulfillmentText , gcdvqrParameters @@ -271,6 +293,11 @@ , googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio , gcdvimtpaAudioURI + -- * GoogleCloudDialogflowV2SentimentAnalysisRequestConfig + , GoogleCloudDialogflowV2SentimentAnalysisRequestConfig + , googleCloudDialogflowV2SentimentAnalysisRequestConfig + , gcdvsarcAnalyzeQueryTextSentiment + -- * GoogleCloudDialogflowV2IntentTrainingPhrasePart , GoogleCloudDialogflowV2IntentTrainingPhrasePart , googleCloudDialogflowV2IntentTrainingPhrasePart @@ -364,6 +391,7 @@ , GoogleCloudDialogflowV2QueryParameters , googleCloudDialogflowV2QueryParameters , gcdvqpContexts + , gcdvqpSentimentAnalysisRequestConfig , gcdvqpPayload , gcdvqpGeoLocation , gcdvqpTimeZone @@ -393,7 +421,9 @@ -- * GoogleCloudDialogflowV2DetectIntentResponse , GoogleCloudDialogflowV2DetectIntentResponse , googleCloudDialogflowV2DetectIntentResponse + , gcdvdirOutputAudioConfig , gcdvdirResponseId + , gcdvdirOutputAudio , gcdvdirWebhookStatus , gcdvdirQueryResult @@ -408,13 +438,19 @@ -- * GoogleCloudDialogflowV2beta1SentimentAnalysisResult , GoogleCloudDialogflowV2beta1SentimentAnalysisResult , googleCloudDialogflowV2beta1SentimentAnalysisResult - , gcdvsarQueryTextSentiment + , gQueryTextSentiment -- * GoogleCloudDialogflowV2EntityTypeBatch , GoogleCloudDialogflowV2EntityTypeBatch , googleCloudDialogflowV2EntityTypeBatch , gcdvetbEntityTypes + -- * GoogleCloudDialogflowV2VoiceSelectionParams + , GoogleCloudDialogflowV2VoiceSelectionParams + , googleCloudDialogflowV2VoiceSelectionParams + , gcdvvspSsmlGender + , gcdvvspName + -- * GoogleCloudDialogflowV2QueryResultDiagnosticInfo , GoogleCloudDialogflowV2QueryResultDiagnosticInfo , googleCloudDialogflowV2QueryResultDiagnosticInfo @@ -428,9 +464,10 @@ -- * GoogleCloudDialogflowV2DetectIntentRequest , GoogleCloudDialogflowV2DetectIntentRequest , googleCloudDialogflowV2DetectIntentRequest - , gcdvdirQueryInput - , gcdvdirInputAudio - , gcdvdirQueryParams + , gQueryInput + , gOutputAudioConfig + , gInputAudio + , gQueryParams -- * GoogleCloudDialogflowV2beta1QueryResultParameters , GoogleCloudDialogflowV2beta1QueryResultParameters @@ -713,6 +750,13 @@ , gcdvimiAccessibilityText , gcdvimiImageURI + -- * GoogleCloudDialogflowV2OutputAudioConfig + , GoogleCloudDialogflowV2OutputAudioConfig + , googleCloudDialogflowV2OutputAudioConfig + , gcdvoacSampleRateHertz + , gcdvoacSynthesizeSpeechConfig + , gcdvoacAudioEncoding + -- * GoogleCloudDialogflowV2ExportAgentResponse , GoogleCloudDialogflowV2ExportAgentResponse , googleCloudDialogflowV2ExportAgentResponse @@ -758,6 +802,9 @@ , gcdvipIsList , gcdvipEntityTypeDisplayName + -- * GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding + , GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding (..) + -- * GoogleCloudDialogflowV2EntityTypeAutoExpansionMode , GoogleCloudDialogflowV2EntityTypeAutoExpansionMode (..) @@ -926,6 +973,12 @@ , googleCloudDialogflowV2IntentMessageCarouselSelect , gItems + -- * GoogleCloudDialogflowV2Sentiment + , GoogleCloudDialogflowV2Sentiment + , googleCloudDialogflowV2Sentiment + , gScore + , gMagnitude + -- * GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo , GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo , googleCloudDialogflowV2beta1IntentMessageSelectItemInfo @@ -985,8 +1038,8 @@ -- | View, manage and query your Dialogflow agents dialogFlowScope :: Proxy '["https://www.googleapis.com/auth/dialogflow"] -dialogFlowScope = Proxy; +dialogFlowScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy diff --git a/gen/Network/Google/DialogFlow/Types/Product.hs b/gen/Network/Google/DialogFlow/Types/Product.hs --- a/gen/Network/Google/DialogFlow/Types/Product.hs +++ b/gen/Network/Google/DialogFlow/Types/Product.hs @@ -57,9155 +57,10162 @@ -- security\/privacy reasons. -- -- /See:/ 'googleRpcStatus' smart constructor. -data GoogleRpcStatus = GoogleRpcStatus' - { _grsDetails :: !(Maybe [GoogleRpcStatusDetailsItem]) - , _grsCode :: !(Maybe (Textual Int32)) - , _grsMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleRpcStatus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'grsDetails' --- --- * 'grsCode' --- --- * 'grsMessage' -googleRpcStatus - :: GoogleRpcStatus -googleRpcStatus = - GoogleRpcStatus' - { _grsDetails = Nothing - , _grsCode = Nothing - , _grsMessage = Nothing - } - --- | A list of messages that carry the error details. There is a common set --- of message types for APIs to use. -grsDetails :: Lens' GoogleRpcStatus [GoogleRpcStatusDetailsItem] -grsDetails - = lens _grsDetails (\ s a -> s{_grsDetails = a}) . - _Default - . _Coerce - --- | The status code, which should be an enum value of google.rpc.Code. -grsCode :: Lens' GoogleRpcStatus (Maybe Int32) -grsCode - = lens _grsCode (\ s a -> s{_grsCode = a}) . - mapping _Coerce - --- | A developer-facing error message, which should be in English. Any --- user-facing error message should be localized and sent in the --- google.rpc.Status.details field, or localized by the client. -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]) - --- | Represents a single followup intent in the chain. --- --- /See:/ 'googleCloudDialogflowV2IntentFollowupIntentInfo' smart constructor. -data GoogleCloudDialogflowV2IntentFollowupIntentInfo = GoogleCloudDialogflowV2IntentFollowupIntentInfo' - { _gcdvifiiFollowupIntentName :: !(Maybe Text) - , _gcdvifiiParentFollowupIntentName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentFollowupIntentInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvifiiFollowupIntentName' --- --- * 'gcdvifiiParentFollowupIntentName' -googleCloudDialogflowV2IntentFollowupIntentInfo - :: GoogleCloudDialogflowV2IntentFollowupIntentInfo -googleCloudDialogflowV2IntentFollowupIntentInfo = - GoogleCloudDialogflowV2IntentFollowupIntentInfo' - { _gcdvifiiFollowupIntentName = Nothing - , _gcdvifiiParentFollowupIntentName = Nothing - } - --- | The unique identifier of the followup intent. Format: --- \`projects\/\/agent\/intents\/\`. -gcdvifiiFollowupIntentName :: Lens' GoogleCloudDialogflowV2IntentFollowupIntentInfo (Maybe Text) -gcdvifiiFollowupIntentName - = lens _gcdvifiiFollowupIntentName - (\ s a -> s{_gcdvifiiFollowupIntentName = a}) - --- | The unique identifier of the followup intent\'s parent. Format: --- \`projects\/\/agent\/intents\/\`. -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]) - --- | The collection of simple response candidates. This message in --- \`QueryResult.fulfillment_messages\` and --- \`WebhookResponse.fulfillment_messages\` should contain only one --- \`SimpleResponse\`. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSimpleResponses' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses = GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' - { _gcdvimsrSimpleResponses :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimsrSimpleResponses' -googleCloudDialogflowV2beta1IntentMessageSimpleResponses - :: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses -googleCloudDialogflowV2beta1IntentMessageSimpleResponses = - GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' - { _gcdvimsrSimpleResponses = Nothing - } - --- | Required. The list of simple responses. -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]) - --- | Instructs the speech recognizer how to process the audio content. --- --- /See:/ 'googleCloudDialogflowV2InputAudioConfig' smart constructor. -data GoogleCloudDialogflowV2InputAudioConfig = GoogleCloudDialogflowV2InputAudioConfig' - { _gcdviacLanguageCode :: !(Maybe Text) - , _gcdviacPhraseHints :: !(Maybe [Text]) - , _gcdviacSampleRateHertz :: !(Maybe (Textual Int32)) - , _gcdviacAudioEncoding :: !(Maybe GoogleCloudDialogflowV2InputAudioConfigAudioEncoding) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2InputAudioConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdviacLanguageCode' --- --- * 'gcdviacPhraseHints' --- --- * 'gcdviacSampleRateHertz' --- --- * 'gcdviacAudioEncoding' -googleCloudDialogflowV2InputAudioConfig - :: GoogleCloudDialogflowV2InputAudioConfig -googleCloudDialogflowV2InputAudioConfig = - GoogleCloudDialogflowV2InputAudioConfig' - { _gcdviacLanguageCode = Nothing - , _gcdviacPhraseHints = Nothing - , _gcdviacSampleRateHertz = Nothing - , _gcdviacAudioEncoding = Nothing - } - --- | Required. The language of the supplied audio. Dialogflow does not do --- translations. See [Language --- Support](https:\/\/dialogflow.com\/docs\/languages) for a list of the --- currently supported language codes. Note that queries in the same --- session do not necessarily need to specify the same language. -gcdviacLanguageCode :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Text) -gcdviacLanguageCode - = lens _gcdviacLanguageCode - (\ s a -> s{_gcdviacLanguageCode = a}) - --- | Optional. The collection of phrase hints which are used to boost --- accuracy of speech recognition. Refer to [Cloud Speech API --- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/basics#phrase-hints) --- for more details. -gcdviacPhraseHints :: Lens' GoogleCloudDialogflowV2InputAudioConfig [Text] -gcdviacPhraseHints - = lens _gcdviacPhraseHints - (\ s a -> s{_gcdviacPhraseHints = a}) - . _Default - . _Coerce - --- | Required. Sample rate (in Hertz) of the audio content sent in the query. --- Refer to [Cloud Speech API --- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/basics) --- for more details. -gcdviacSampleRateHertz :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Int32) -gcdviacSampleRateHertz - = lens _gcdviacSampleRateHertz - (\ s a -> s{_gcdviacSampleRateHertz = a}) - . mapping _Coerce - --- | Required. Audio encoding of the audio content to process. -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 .:? "audioEncoding")) - -instance ToJSON - GoogleCloudDialogflowV2InputAudioConfig where - toJSON GoogleCloudDialogflowV2InputAudioConfig'{..} - = object - (catMaybes - [("languageCode" .=) <$> _gcdviacLanguageCode, - ("phraseHints" .=) <$> _gcdviacPhraseHints, - ("sampleRateHertz" .=) <$> _gcdviacSampleRateHertz, - ("audioEncoding" .=) <$> _gcdviacAudioEncoding]) - --- | The response message for Intents.BatchUpdateIntents. --- --- /See:/ 'googleCloudDialogflowV2beta1BatchUpdateIntentsResponse' smart constructor. -newtype GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse = GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' - { _gcdvbuirIntents :: Maybe [GoogleCloudDialogflowV2beta1Intent] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbuirIntents' -googleCloudDialogflowV2beta1BatchUpdateIntentsResponse - :: GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse -googleCloudDialogflowV2beta1BatchUpdateIntentsResponse = - GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' - { _gcdvbuirIntents = Nothing - } - --- | The collection of updated or created intents. -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]) - --- | Returns a response containing a custom, platform-specific payload. See --- the Intent.Message.Platform type for a description of the structure that --- may be required for your platform. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessagePayload' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessagePayload = GoogleCloudDialogflowV2beta1IntentMessagePayload' - { _gcdvimpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessagePayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimpAddtional' -googleCloudDialogflowV2beta1IntentMessagePayload - :: HashMap Text JSONValue -- ^ 'gcdvimpAddtional' - -> GoogleCloudDialogflowV2beta1IntentMessagePayload -googleCloudDialogflowV2beta1IntentMessagePayload pGcdvimpAddtional_ = - GoogleCloudDialogflowV2beta1IntentMessagePayload' - { _gcdvimpAddtional = _Coerce # pGcdvimpAddtional_ - } - --- | Properties of the object. -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 - --- | The request message for a webhook call. --- --- /See:/ 'googleCloudDialogflowV2WebhookRequest' smart constructor. -data GoogleCloudDialogflowV2WebhookRequest = GoogleCloudDialogflowV2WebhookRequest' - { _gcdvwrOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest) - , _gcdvwrResponseId :: !(Maybe Text) - , _gcdvwrQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult) - , _gcdvwrSession :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2WebhookRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvwrOriginalDetectIntentRequest' --- --- * 'gcdvwrResponseId' --- --- * 'gcdvwrQueryResult' --- --- * 'gcdvwrSession' -googleCloudDialogflowV2WebhookRequest - :: GoogleCloudDialogflowV2WebhookRequest -googleCloudDialogflowV2WebhookRequest = - GoogleCloudDialogflowV2WebhookRequest' - { _gcdvwrOriginalDetectIntentRequest = Nothing - , _gcdvwrResponseId = Nothing - , _gcdvwrQueryResult = Nothing - , _gcdvwrSession = Nothing - } - --- | Optional. The contents of the original request that was passed to --- \`[Streaming]DetectIntent\` call. -gcdvwrOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest) -gcdvwrOriginalDetectIntentRequest - = lens _gcdvwrOriginalDetectIntentRequest - (\ s a -> s{_gcdvwrOriginalDetectIntentRequest = a}) - --- | The unique identifier of the response. Contains the same value as --- \`[Streaming]DetectIntentResponse.response_id\`. -gcdvwrResponseId :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe Text) -gcdvwrResponseId - = lens _gcdvwrResponseId - (\ s a -> s{_gcdvwrResponseId = a}) - --- | The result of the conversational query or event processing. Contains the --- same value as \`[Streaming]DetectIntentResponse.query_result\`. -gcdvwrQueryResult :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2QueryResult) -gcdvwrQueryResult - = lens _gcdvwrQueryResult - (\ s a -> s{_gcdvwrQueryResult = a}) - --- | The unique identifier of detectIntent request session. Can be used to --- identify end-user inside webhook implementation. Format: --- \`projects\/\/agent\/sessions\/\`, or --- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\`. -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]) - --- | An item in the carousel. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageCarouselSelectItem' smart constructor. -data GoogleCloudDialogflowV2IntentMessageCarouselSelectItem = GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' - { _gcdvimcsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) - , _gcdvimcsiTitle :: !(Maybe Text) - , _gcdvimcsiDescription :: !(Maybe Text) - , _gcdvimcsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimcsiImage' --- --- * 'gcdvimcsiTitle' --- --- * 'gcdvimcsiDescription' --- --- * 'gcdvimcsiInfo' -googleCloudDialogflowV2IntentMessageCarouselSelectItem - :: GoogleCloudDialogflowV2IntentMessageCarouselSelectItem -googleCloudDialogflowV2IntentMessageCarouselSelectItem = - GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' - { _gcdvimcsiImage = Nothing - , _gcdvimcsiTitle = Nothing - , _gcdvimcsiDescription = Nothing - , _gcdvimcsiInfo = Nothing - } - --- | Optional. The image to display. -gcdvimcsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage) -gcdvimcsiImage - = lens _gcdvimcsiImage - (\ s a -> s{_gcdvimcsiImage = a}) - --- | Required. Title of the carousel item. -gcdvimcsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text) -gcdvimcsiTitle - = lens _gcdvimcsiTitle - (\ s a -> s{_gcdvimcsiTitle = a}) - --- | Optional. The body text of the card. -gcdvimcsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text) -gcdvimcsiDescription - = lens _gcdvimcsiDescription - (\ s a -> s{_gcdvimcsiDescription = a}) - --- | Required. Additional info about the option item. -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]) - --- | Events allow for matching intents by event name instead of the natural --- language input. For instance, input \`\` can trigger a personalized --- welcome response. The parameter \`name\` may be used by the agent in the --- response: \`“Hello #welcome_event.name! What can I do for you today?”\`. --- --- /See:/ 'googleCloudDialogflowV2EventInput' smart constructor. -data GoogleCloudDialogflowV2EventInput = GoogleCloudDialogflowV2EventInput' - { _gcdveiLanguageCode :: !(Maybe Text) - , _gcdveiName :: !(Maybe Text) - , _gcdveiParameters :: !(Maybe GoogleCloudDialogflowV2EventInputParameters) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2EventInput' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdveiLanguageCode' --- --- * 'gcdveiName' --- --- * 'gcdveiParameters' -googleCloudDialogflowV2EventInput - :: GoogleCloudDialogflowV2EventInput -googleCloudDialogflowV2EventInput = - GoogleCloudDialogflowV2EventInput' - { _gcdveiLanguageCode = Nothing - , _gcdveiName = Nothing - , _gcdveiParameters = Nothing - } - --- | Required. The language of this query. See [Language --- Support](https:\/\/dialogflow.com\/docs\/languages) for a list of the --- currently supported language codes. Note that queries in the same --- session do not necessarily need to specify the same language. -gcdveiLanguageCode :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text) -gcdveiLanguageCode - = lens _gcdveiLanguageCode - (\ s a -> s{_gcdveiLanguageCode = a}) - --- | Required. The unique identifier of the event. -gcdveiName :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text) -gcdveiName - = lens _gcdveiName (\ s a -> s{_gcdveiName = a}) - --- | Optional. The collection of parameters associated with the event. -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]) - --- | The simple response message containing speech or text. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageSimpleResponse' smart constructor. -data GoogleCloudDialogflowV2IntentMessageSimpleResponse = GoogleCloudDialogflowV2IntentMessageSimpleResponse' - { _gcdvimsrDisplayText :: !(Maybe Text) - , _gcdvimsrSsml :: !(Maybe Text) - , _gcdvimsrTextToSpeech :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSimpleResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimsrDisplayText' --- --- * 'gcdvimsrSsml' --- --- * 'gcdvimsrTextToSpeech' -googleCloudDialogflowV2IntentMessageSimpleResponse - :: GoogleCloudDialogflowV2IntentMessageSimpleResponse -googleCloudDialogflowV2IntentMessageSimpleResponse = - GoogleCloudDialogflowV2IntentMessageSimpleResponse' - { _gcdvimsrDisplayText = Nothing - , _gcdvimsrSsml = Nothing - , _gcdvimsrTextToSpeech = Nothing - } - --- | Optional. The text to display. -gcdvimsrDisplayText :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text) -gcdvimsrDisplayText - = lens _gcdvimsrDisplayText - (\ s a -> s{_gcdvimsrDisplayText = a}) - --- | One of text_to_speech or ssml must be provided. Structured spoken --- response to the user in the SSML format. Mutually exclusive with --- text_to_speech. -gcdvimsrSsml :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text) -gcdvimsrSsml - = lens _gcdvimsrSsml (\ s a -> s{_gcdvimsrSsml = a}) - --- | One of text_to_speech or ssml must be provided. The plain text of the --- speech output. Mutually exclusive with ssml. -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]) - --- | Service-specific metadata associated with the operation. It typically --- contains progress information and common metadata such as create time. --- Some services might not provide such metadata. Any method that returns a --- long-running operation should document the metadata type, if any. --- --- /See:/ 'googleLongrunningOperationMetadata' smart constructor. -newtype GoogleLongrunningOperationMetadata = GoogleLongrunningOperationMetadata' - { _glomAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleLongrunningOperationMetadata' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'glomAddtional' -googleLongrunningOperationMetadata - :: HashMap Text JSONValue -- ^ 'glomAddtional' - -> GoogleLongrunningOperationMetadata -googleLongrunningOperationMetadata pGlomAddtional_ = - GoogleLongrunningOperationMetadata' - { _glomAddtional = _Coerce # pGlomAddtional_ - } - --- | Properties of the object. Contains field \'type with type URL. -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 - --- | Represents an example or template that the agent is trained on. --- --- /See:/ 'googleCloudDialogflowV2IntentTrainingPhrase' smart constructor. -data GoogleCloudDialogflowV2IntentTrainingPhrase = GoogleCloudDialogflowV2IntentTrainingPhrase' - { _gcdvitpParts :: !(Maybe [GoogleCloudDialogflowV2IntentTrainingPhrasePart]) - , _gcdvitpName :: !(Maybe Text) - , _gcdvitpTimesAddedCount :: !(Maybe (Textual Int32)) - , _gcdvitpType :: !(Maybe GoogleCloudDialogflowV2IntentTrainingPhraseType) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentTrainingPhrase' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvitpParts' --- --- * 'gcdvitpName' --- --- * 'gcdvitpTimesAddedCount' --- --- * 'gcdvitpType' -googleCloudDialogflowV2IntentTrainingPhrase - :: GoogleCloudDialogflowV2IntentTrainingPhrase -googleCloudDialogflowV2IntentTrainingPhrase = - GoogleCloudDialogflowV2IntentTrainingPhrase' - { _gcdvitpParts = Nothing - , _gcdvitpName = Nothing - , _gcdvitpTimesAddedCount = Nothing - , _gcdvitpType = Nothing - } - --- | Required. The collection of training phrase parts (can be annotated). --- Fields: \`entity_type\`, \`alias\` and \`user_defined\` should be --- populated only for the annotated parts of the training phrase. -gcdvitpParts :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase [GoogleCloudDialogflowV2IntentTrainingPhrasePart] -gcdvitpParts - = lens _gcdvitpParts (\ s a -> s{_gcdvitpParts = a}) - . _Default - . _Coerce - --- | Output only. The unique identifier of this training phrase. -gcdvitpName :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Text) -gcdvitpName - = lens _gcdvitpName (\ s a -> s{_gcdvitpName = a}) - --- | Optional. Indicates how many times this example or template was added to --- the intent. Each time a developer adds an existing sample by editing an --- intent or training, this counter is increased. -gcdvitpTimesAddedCount :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Int32) -gcdvitpTimesAddedCount - = lens _gcdvitpTimesAddedCount - (\ s a -> s{_gcdvitpTimesAddedCount = a}) - . mapping _Coerce - --- | Required. The type of the training phrase. -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]) - --- | An item in the carousel. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem = GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' - { _gImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) - , _gTitle :: !(Maybe Text) - , _gDescription :: !(Maybe Text) - , _gInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gImage' --- --- * 'gTitle' --- --- * 'gDescription' --- --- * 'gInfo' -googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem - :: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem -googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem = - GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' - { _gImage = Nothing - , _gTitle = Nothing - , _gDescription = Nothing - , _gInfo = Nothing - } - --- | Optional. The image to display. -gImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) -gImage = lens _gImage (\ s a -> s{_gImage = a}) - --- | Required. Title of the carousel item. -gTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text) -gTitle = lens _gTitle (\ s a -> s{_gTitle = a}) - --- | Optional. The body text of the card. -gDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text) -gDescription - = lens _gDescription (\ s a -> s{_gDescription = a}) - --- | Required. Additional info about the option item. -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]) - --- | The basic card message. Useful for displaying information. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCard' smart constructor. -data GoogleCloudDialogflowV2IntentMessageBasicCard = GoogleCloudDialogflowV2IntentMessageBasicCard' - { _gcdvimbcImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) - , _gcdvimbcButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageBasicCardButton]) - , _gcdvimbcSubtitle :: !(Maybe Text) - , _gcdvimbcTitle :: !(Maybe Text) - , _gcdvimbcFormattedText :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCard' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbcImage' --- --- * 'gcdvimbcButtons' --- --- * 'gcdvimbcSubtitle' --- --- * 'gcdvimbcTitle' --- --- * 'gcdvimbcFormattedText' -googleCloudDialogflowV2IntentMessageBasicCard - :: GoogleCloudDialogflowV2IntentMessageBasicCard -googleCloudDialogflowV2IntentMessageBasicCard = - GoogleCloudDialogflowV2IntentMessageBasicCard' - { _gcdvimbcImage = Nothing - , _gcdvimbcButtons = Nothing - , _gcdvimbcSubtitle = Nothing - , _gcdvimbcTitle = Nothing - , _gcdvimbcFormattedText = Nothing - } - --- | Optional. The image for the card. -gcdvimbcImage :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2IntentMessageImage) -gcdvimbcImage - = lens _gcdvimbcImage - (\ s a -> s{_gcdvimbcImage = a}) - --- | Optional. The collection of card buttons. -gcdvimbcButtons :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard [GoogleCloudDialogflowV2IntentMessageBasicCardButton] -gcdvimbcButtons - = lens _gcdvimbcButtons - (\ s a -> s{_gcdvimbcButtons = a}) - . _Default - . _Coerce - --- | Optional. The subtitle of the card. -gcdvimbcSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text) -gcdvimbcSubtitle - = lens _gcdvimbcSubtitle - (\ s a -> s{_gcdvimbcSubtitle = a}) - --- | Optional. The title of the card. -gcdvimbcTitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text) -gcdvimbcTitle - = lens _gcdvimbcTitle - (\ s a -> s{_gcdvimbcTitle = a}) - --- | Required, unless image is present. The body text of the card. -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]) - --- | The simple response message containing speech or text. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSimpleResponse' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse = GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' - { _gDisplayText :: !(Maybe Text) - , _gSsml :: !(Maybe Text) - , _gTextToSpeech :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gDisplayText' --- --- * 'gSsml' --- --- * 'gTextToSpeech' -googleCloudDialogflowV2beta1IntentMessageSimpleResponse - :: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse -googleCloudDialogflowV2beta1IntentMessageSimpleResponse = - GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' - { _gDisplayText = Nothing - , _gSsml = Nothing - , _gTextToSpeech = Nothing - } - --- | Optional. The text to display. -gDisplayText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text) -gDisplayText - = lens _gDisplayText (\ s a -> s{_gDisplayText = a}) - --- | One of text_to_speech or ssml must be provided. Structured spoken --- response to the user in the SSML format. Mutually exclusive with --- text_to_speech. -gSsml :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text) -gSsml = lens _gSsml (\ s a -> s{_gSsml = a}) - --- | One of text_to_speech or ssml must be provided. The plain text of the --- speech output. Mutually exclusive with ssml. -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]) - --- | Represents an intent. Intents convert a number of user expressions or --- patterns into an action. An action is an extraction of a user command or --- sentence semantics. --- --- /See:/ 'googleCloudDialogflowV2Intent' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2Intent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdviDefaultResponsePlatforms' --- --- * 'gcdviWebhookState' --- --- * 'gcdviPriority' --- --- * 'gcdviAction' --- --- * 'gcdviRootFollowupIntentName' --- --- * 'gcdviName' --- --- * 'gcdviEvents' --- --- * 'gcdviParameters' --- --- * 'gcdviDisplayName' --- --- * 'gcdviInputContextNames' --- --- * 'gcdviMessages' --- --- * 'gcdviParentFollowupIntentName' --- --- * 'gcdviOutputContexts' --- --- * 'gcdviTrainingPhrases' --- --- * 'gcdviFollowupIntentInfo' --- --- * 'gcdviIsFallback' --- --- * 'gcdviMlDisabled' --- --- * 'gcdviResetContexts' -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 - } - --- | Optional. The list of platforms for which the first response will be --- taken from among the messages assigned to the DEFAULT_PLATFORM. -gcdviDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2Intent [Text] -gcdviDefaultResponsePlatforms - = lens _gcdviDefaultResponsePlatforms - (\ s a -> s{_gcdviDefaultResponsePlatforms = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether webhooks are enabled for the intent. -gcdviWebhookState :: Lens' GoogleCloudDialogflowV2Intent (Maybe GoogleCloudDialogflowV2IntentWebhookState) -gcdviWebhookState - = lens _gcdviWebhookState - (\ s a -> s{_gcdviWebhookState = a}) - --- | Optional. The priority of this intent. Higher numbers represent higher --- priorities. If this is zero or unspecified, we use the default priority --- 500000. Negative numbers mean that the intent is disabled. -gcdviPriority :: Lens' GoogleCloudDialogflowV2Intent (Maybe Int32) -gcdviPriority - = lens _gcdviPriority - (\ s a -> s{_gcdviPriority = a}) - . mapping _Coerce - --- | Optional. The name of the action associated with the intent. Note: The --- action name must not contain whitespaces. -gcdviAction :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) -gcdviAction - = lens _gcdviAction (\ s a -> s{_gcdviAction = a}) - --- | Read-only. The unique identifier of the root intent in the chain of --- followup intents. It identifies the correct followup intents chain for --- this intent. We populate this field only in the output. Format: --- \`projects\/\/agent\/intents\/\`. -gcdviRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) -gcdviRootFollowupIntentName - = lens _gcdviRootFollowupIntentName - (\ s a -> s{_gcdviRootFollowupIntentName = a}) - --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of this intent. Format: --- \`projects\/\/agent\/intents\/\`. -gcdviName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) -gcdviName - = lens _gcdviName (\ s a -> s{_gcdviName = a}) - --- | Optional. The collection of event names that trigger the intent. If the --- collection of input contexts is not empty, all of the contexts must be --- present in the active user session for an event to trigger this intent. -gcdviEvents :: Lens' GoogleCloudDialogflowV2Intent [Text] -gcdviEvents - = lens _gcdviEvents (\ s a -> s{_gcdviEvents = a}) . - _Default - . _Coerce - --- | Optional. The collection of parameters associated with the intent. -gcdviParameters :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentParameter] -gcdviParameters - = lens _gcdviParameters - (\ s a -> s{_gcdviParameters = a}) - . _Default - . _Coerce - --- | Required. The name of this intent. -gcdviDisplayName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) -gcdviDisplayName - = lens _gcdviDisplayName - (\ s a -> s{_gcdviDisplayName = a}) - --- | Optional. The list of context names required for this intent to be --- triggered. Format: \`projects\/\/agent\/sessions\/-\/contexts\/\`. -gcdviInputContextNames :: Lens' GoogleCloudDialogflowV2Intent [Text] -gcdviInputContextNames - = lens _gcdviInputContextNames - (\ s a -> s{_gcdviInputContextNames = a}) - . _Default - . _Coerce - --- | Optional. The collection of rich messages corresponding to the --- \`Response\` field in the Dialogflow console. -gcdviMessages :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentMessage] -gcdviMessages - = lens _gcdviMessages - (\ s a -> s{_gcdviMessages = a}) - . _Default - . _Coerce - --- | Read-only after creation. The unique identifier of the parent intent in --- the chain of followup intents. You can set this field when creating an --- intent, for example with CreateIntent or BatchUpdateIntents, in order to --- make this intent a followup intent. It identifies the parent followup --- intent. Format: \`projects\/\/agent\/intents\/\`. -gcdviParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) -gcdviParentFollowupIntentName - = lens _gcdviParentFollowupIntentName - (\ s a -> s{_gcdviParentFollowupIntentName = a}) - --- | Optional. The collection of contexts that are activated when the intent --- is matched. Context messages in this collection should not set the --- parameters field. Setting the \`lifespan_count\` to 0 will reset the --- context when the intent is matched. Format: --- \`projects\/\/agent\/sessions\/-\/contexts\/\`. -gcdviOutputContexts :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2Context] -gcdviOutputContexts - = lens _gcdviOutputContexts - (\ s a -> s{_gcdviOutputContexts = a}) - . _Default - . _Coerce - --- | Optional. The collection of examples\/templates that the agent is --- trained on. -gcdviTrainingPhrases :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentTrainingPhrase] -gcdviTrainingPhrases - = lens _gcdviTrainingPhrases - (\ s a -> s{_gcdviTrainingPhrases = a}) - . _Default - . _Coerce - --- | Read-only. Information about all followup intents that have this intent --- as a direct or indirect parent. We populate this field only in the --- output. -gcdviFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentFollowupIntentInfo] -gcdviFollowupIntentInfo - = lens _gcdviFollowupIntentInfo - (\ s a -> s{_gcdviFollowupIntentInfo = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether this is a fallback intent. -gcdviIsFallback :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool) -gcdviIsFallback - = lens _gcdviIsFallback - (\ s a -> s{_gcdviIsFallback = a}) - --- | Optional. Indicates whether Machine Learning is disabled for the intent. --- Note: If \`ml_diabled\` setting is set to true, then this intent is not --- taken into account during inference in \`ML ONLY\` match mode. Also, --- auto-markup in the UI is turned off. -gcdviMlDisabled :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool) -gcdviMlDisabled - = lens _gcdviMlDisabled - (\ s a -> s{_gcdviMlDisabled = a}) - --- | Optional. Indicates whether to delete all contexts in the current --- session when this intent is matched. -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]) - --- | The button object that appears at the bottom of a card. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCardButton' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton = GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' - { _gcdvimbcbOpenURIAction :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction) - , _gcdvimbcbTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbcbOpenURIAction' --- --- * 'gcdvimbcbTitle' -googleCloudDialogflowV2beta1IntentMessageBasicCardButton - :: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton -googleCloudDialogflowV2beta1IntentMessageBasicCardButton = - GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' - { _gcdvimbcbOpenURIAction = Nothing - , _gcdvimbcbTitle = Nothing - } - --- | Required. Action to take when a user taps on the button. -gcdvimbcbOpenURIAction :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction) -gcdvimbcbOpenURIAction - = lens _gcdvimbcbOpenURIAction - (\ s a -> s{_gcdvimbcbOpenURIAction = a}) - --- | Required. The title of the button. -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]) - --- | The request message for EntityTypes.BatchCreateEntities. --- --- /See:/ 'googleCloudDialogflowV2BatchCreateEntitiesRequest' smart constructor. -data GoogleCloudDialogflowV2BatchCreateEntitiesRequest = GoogleCloudDialogflowV2BatchCreateEntitiesRequest' - { _gcdvbcerLanguageCode :: !(Maybe Text) - , _gcdvbcerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchCreateEntitiesRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbcerLanguageCode' --- --- * 'gcdvbcerEntities' -googleCloudDialogflowV2BatchCreateEntitiesRequest - :: GoogleCloudDialogflowV2BatchCreateEntitiesRequest -googleCloudDialogflowV2BatchCreateEntitiesRequest = - GoogleCloudDialogflowV2BatchCreateEntitiesRequest' - { _gcdvbcerLanguageCode = Nothing - , _gcdvbcerEntities = Nothing - } - --- | Optional. The language of entity synonyms defined in \`entities\`. If --- not specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. -gcdvbcerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchCreateEntitiesRequest (Maybe Text) -gcdvbcerLanguageCode - = lens _gcdvbcerLanguageCode - (\ s a -> s{_gcdvbcerLanguageCode = a}) - --- | Required. The entities to create. -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]) - --- | The collection of suggestions. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSuggestions' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestions = GoogleCloudDialogflowV2beta1IntentMessageSuggestions' - { _gcdvimsSuggestions :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSuggestion] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSuggestions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimsSuggestions' -googleCloudDialogflowV2beta1IntentMessageSuggestions - :: GoogleCloudDialogflowV2beta1IntentMessageSuggestions -googleCloudDialogflowV2beta1IntentMessageSuggestions = - GoogleCloudDialogflowV2beta1IntentMessageSuggestions' - { _gcdvimsSuggestions = Nothing - } - --- | Required. The list of suggested replies. -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]) - --- | The request message for Intents.BatchDeleteIntents. --- --- /See:/ 'googleCloudDialogflowV2BatchDeleteIntentsRequest' smart constructor. -newtype GoogleCloudDialogflowV2BatchDeleteIntentsRequest = GoogleCloudDialogflowV2BatchDeleteIntentsRequest' - { _gcdvbdirIntents :: Maybe [GoogleCloudDialogflowV2Intent] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteIntentsRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbdirIntents' -googleCloudDialogflowV2BatchDeleteIntentsRequest - :: GoogleCloudDialogflowV2BatchDeleteIntentsRequest -googleCloudDialogflowV2BatchDeleteIntentsRequest = - GoogleCloudDialogflowV2BatchDeleteIntentsRequest' - { _gcdvbdirIntents = Nothing - } - --- | Required. The collection of intents to delete. Only intent \`name\` must --- be filled in. -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]) - --- | Represents the result of conversational query or event processing. --- --- /See:/ 'googleCloudDialogflowV2QueryResult' smart constructor. -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) - , _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) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryResult' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrLanguageCode' --- --- * 'gcdvqrAllRequiredParamsPresent' --- --- * 'gcdvqrIntentDetectionConfidence' --- --- * 'gcdvqrFulfillmentMessages' --- --- * 'gcdvqrSpeechRecognitionConfidence' --- --- * 'gcdvqrAction' --- --- * 'gcdvqrIntent' --- --- * 'gcdvqrQueryText' --- --- * 'gcdvqrFulfillmentText' --- --- * 'gcdvqrParameters' --- --- * 'gcdvqrWebhookPayload' --- --- * 'gcdvqrOutputContexts' --- --- * 'gcdvqrWebhookSource' --- --- * 'gcdvqrDiagnosticInfo' -googleCloudDialogflowV2QueryResult - :: GoogleCloudDialogflowV2QueryResult -googleCloudDialogflowV2QueryResult = - GoogleCloudDialogflowV2QueryResult' - { _gcdvqrLanguageCode = Nothing - , _gcdvqrAllRequiredParamsPresent = Nothing - , _gcdvqrIntentDetectionConfidence = Nothing - , _gcdvqrFulfillmentMessages = Nothing - , _gcdvqrSpeechRecognitionConfidence = Nothing - , _gcdvqrAction = Nothing - , _gcdvqrIntent = Nothing - , _gcdvqrQueryText = Nothing - , _gcdvqrFulfillmentText = Nothing - , _gcdvqrParameters = Nothing - , _gcdvqrWebhookPayload = Nothing - , _gcdvqrOutputContexts = Nothing - , _gcdvqrWebhookSource = Nothing - , _gcdvqrDiagnosticInfo = Nothing - } - --- | The language that was triggered during intent detection. See [Language --- Support](https:\/\/dialogflow.com\/docs\/reference\/language) for a list --- of the currently supported language codes. -gcdvqrLanguageCode :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) -gcdvqrLanguageCode - = lens _gcdvqrLanguageCode - (\ s a -> s{_gcdvqrLanguageCode = a}) - --- | This field is set to: - \`false\` if the matched intent has required --- parameters and not all of the required parameter values have been --- collected. - \`true\` if all required parameter values have been --- collected, or if the matched intent doesn\'t contain any required --- parameters. -gcdvqrAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Bool) -gcdvqrAllRequiredParamsPresent - = lens _gcdvqrAllRequiredParamsPresent - (\ s a -> s{_gcdvqrAllRequiredParamsPresent = a}) - --- | The intent detection confidence. Values range from 0.0 (completely --- uncertain) to 1.0 (completely certain). If there are \`multiple --- knowledge_answers\` messages, this value is set to the greatest --- \`knowledgeAnswers.match_confidence\` value in the list. -gcdvqrIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double) -gcdvqrIntentDetectionConfidence - = lens _gcdvqrIntentDetectionConfidence - (\ s a -> s{_gcdvqrIntentDetectionConfidence = a}) - . mapping _Coerce - --- | The collection of rich messages to present to the user. -gcdvqrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2IntentMessage] -gcdvqrFulfillmentMessages - = lens _gcdvqrFulfillmentMessages - (\ s a -> s{_gcdvqrFulfillmentMessages = a}) - . _Default - . _Coerce - --- | The Speech recognition confidence between 0.0 and 1.0. A higher number --- indicates an estimated greater likelihood that the recognized words are --- correct. The default of 0.0 is a sentinel value indicating that --- confidence was not set. This field is not guaranteed to be accurate or --- set. In particular this field isn\'t set for StreamingDetectIntent since --- the streaming endpoint has separate confidence estimates per portion of --- the audio in StreamingRecognitionResult. -gcdvqrSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double) -gcdvqrSpeechRecognitionConfidence - = lens _gcdvqrSpeechRecognitionConfidence - (\ s a -> s{_gcdvqrSpeechRecognitionConfidence = a}) - . mapping _Coerce - --- | The action name from the matched intent. -gcdvqrAction :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) -gcdvqrAction - = lens _gcdvqrAction (\ s a -> s{_gcdvqrAction = a}) - --- | The intent that matched the conversational query. Some, not all fields --- are filled in this message, including but not limited to: \`name\`, --- \`display_name\` and \`webhook_state\`. -gcdvqrIntent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2Intent) -gcdvqrIntent - = lens _gcdvqrIntent (\ s a -> s{_gcdvqrIntent = a}) - --- | The original conversational query text: - If natural language text was --- provided as input, \`query_text\` contains a copy of the input. - If --- natural language speech audio was provided as input, \`query_text\` --- contains the speech recognition result. If speech recognizer produced --- multiple alternatives, a particular one is picked. - If an event was --- provided as input, \`query_text\` is not set. -gcdvqrQueryText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) -gcdvqrQueryText - = lens _gcdvqrQueryText - (\ s a -> s{_gcdvqrQueryText = a}) - --- | The text to be pronounced to the user or shown on the screen. -gcdvqrFulfillmentText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) -gcdvqrFulfillmentText - = lens _gcdvqrFulfillmentText - (\ s a -> s{_gcdvqrFulfillmentText = a}) - --- | The collection of extracted parameters. -gcdvqrParameters :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultParameters) -gcdvqrParameters - = lens _gcdvqrParameters - (\ s a -> s{_gcdvqrParameters = a}) - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`payload\` field returned in the webhook response. -gcdvqrWebhookPayload :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultWebhookPayload) -gcdvqrWebhookPayload - = lens _gcdvqrWebhookPayload - (\ s a -> s{_gcdvqrWebhookPayload = a}) - --- | The collection of output contexts. If applicable, --- \`output_contexts.parameters\` contains entries with name \`.original\` --- containing the original parameter values before the query. -gcdvqrOutputContexts :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2Context] -gcdvqrOutputContexts - = lens _gcdvqrOutputContexts - (\ s a -> s{_gcdvqrOutputContexts = a}) - . _Default - . _Coerce - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`source\` field returned in the webhook response. -gcdvqrWebhookSource :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) -gcdvqrWebhookSource - = lens _gcdvqrWebhookSource - (\ s a -> s{_gcdvqrWebhookSource = a}) - --- | The free-form diagnostic info. For example, this field could contain --- webhook call latency. The string keys of the Struct\'s fields map can --- change without notice. -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 .:? "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, - ("queryText" .=) <$> _gcdvqrQueryText, - ("fulfillmentText" .=) <$> _gcdvqrFulfillmentText, - ("parameters" .=) <$> _gcdvqrParameters, - ("webhookPayload" .=) <$> _gcdvqrWebhookPayload, - ("outputContexts" .=) <$> _gcdvqrOutputContexts, - ("webhookSource" .=) <$> _gcdvqrWebhookSource, - ("diagnosticInfo" .=) <$> _gcdvqrDiagnosticInfo]) - --- | The request message for Intents.BatchUpdateIntents. --- --- /See:/ 'googleCloudDialogflowV2BatchUpdateIntentsRequest' smart constructor. -data GoogleCloudDialogflowV2BatchUpdateIntentsRequest = GoogleCloudDialogflowV2BatchUpdateIntentsRequest' - { _gcdvbuirLanguageCode :: !(Maybe Text) - , _gcdvbuirUpdateMask :: !(Maybe GFieldMask) - , _gcdvbuirIntentView :: !(Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView) - , _gcdvbuirIntentBatchURI :: !(Maybe Text) - , _gcdvbuirIntentBatchInline :: !(Maybe GoogleCloudDialogflowV2IntentBatch) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateIntentsRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbuirLanguageCode' --- --- * 'gcdvbuirUpdateMask' --- --- * 'gcdvbuirIntentView' --- --- * 'gcdvbuirIntentBatchURI' --- --- * 'gcdvbuirIntentBatchInline' -googleCloudDialogflowV2BatchUpdateIntentsRequest - :: GoogleCloudDialogflowV2BatchUpdateIntentsRequest -googleCloudDialogflowV2BatchUpdateIntentsRequest = - GoogleCloudDialogflowV2BatchUpdateIntentsRequest' - { _gcdvbuirLanguageCode = Nothing - , _gcdvbuirUpdateMask = Nothing - , _gcdvbuirIntentView = Nothing - , _gcdvbuirIntentBatchURI = Nothing - , _gcdvbuirIntentBatchInline = Nothing - } - --- | Optional. The language of training phrases, parameters and rich messages --- defined in \`intents\`. If not specified, the agent\'s default language --- is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. -gcdvbuirLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text) -gcdvbuirLanguageCode - = lens _gcdvbuirLanguageCode - (\ s a -> s{_gcdvbuirLanguageCode = a}) - --- | Optional. The mask to control which fields get updated. -gcdvbuirUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GFieldMask) -gcdvbuirUpdateMask - = lens _gcdvbuirUpdateMask - (\ s a -> s{_gcdvbuirUpdateMask = a}) - --- | Optional. The resource view to apply to the returned intent. -gcdvbuirIntentView :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView) -gcdvbuirIntentView - = lens _gcdvbuirIntentView - (\ s a -> s{_gcdvbuirIntentView = a}) - --- | The URI to a Google Cloud Storage file containing intents to update or --- create. The file format can either be a serialized proto (of IntentBatch --- type) or JSON object. Note: The URI must start with \"gs:\/\/\". -gcdvbuirIntentBatchURI :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text) -gcdvbuirIntentBatchURI - = lens _gcdvbuirIntentBatchURI - (\ s a -> s{_gcdvbuirIntentBatchURI = a}) - --- | The collection of intents to update or create. -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]) - --- | An object representing a latitude\/longitude pair. This is expressed as --- a pair of doubles representing degrees latitude and degrees longitude. --- Unless specified otherwise, this must conform to the --- . --- Values must be within normalized ranges. --- --- /See:/ 'googleTypeLatLng' smart constructor. -data GoogleTypeLatLng = GoogleTypeLatLng' - { _gtllLatitude :: !(Maybe (Textual Double)) - , _gtllLongitude :: !(Maybe (Textual Double)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleTypeLatLng' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gtllLatitude' --- --- * 'gtllLongitude' -googleTypeLatLng - :: GoogleTypeLatLng -googleTypeLatLng = - GoogleTypeLatLng' - { _gtllLatitude = Nothing - , _gtllLongitude = Nothing - } - --- | The latitude in degrees. It must be in the range [-90.0, +90.0]. -gtllLatitude :: Lens' GoogleTypeLatLng (Maybe Double) -gtllLatitude - = lens _gtllLatitude (\ s a -> s{_gtllLatitude = a}) - . mapping _Coerce - --- | The longitude in degrees. It must be in the range [-180.0, +180.0]. -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]) - --- | The response message for a webhook call. --- --- /See:/ 'googleCloudDialogflowV2beta1WebhookResponse' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvwrFulfillmentMessages' --- --- * 'gcdvwrPayload' --- --- * 'gcdvwrFulfillmentText' --- --- * 'gcdvwrSource' --- --- * 'gcdvwrEndInteraction' --- --- * 'gcdvwrOutputContexts' --- --- * 'gcdvwrFollowupEventInput' -googleCloudDialogflowV2beta1WebhookResponse - :: GoogleCloudDialogflowV2beta1WebhookResponse -googleCloudDialogflowV2beta1WebhookResponse = - GoogleCloudDialogflowV2beta1WebhookResponse' - { _gcdvwrFulfillmentMessages = Nothing - , _gcdvwrPayload = Nothing - , _gcdvwrFulfillmentText = Nothing - , _gcdvwrSource = Nothing - , _gcdvwrEndInteraction = Nothing - , _gcdvwrOutputContexts = Nothing - , _gcdvwrFollowupEventInput = Nothing - } - --- | Optional. The collection of rich messages to present to the user. This --- value is passed directly to \`QueryResult.fulfillment_messages\`. -gcdvwrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1IntentMessage] -gcdvwrFulfillmentMessages - = lens _gcdvwrFulfillmentMessages - (\ s a -> s{_gcdvwrFulfillmentMessages = a}) - . _Default - . _Coerce - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_payload\`. See the related --- \`fulfillment_messages[i].payload field\`, which may be used as an --- alternative to this field. This field can be used for Actions on Google --- responses. It should have a structure similar to the JSON message shown --- here. For more information, see [Actions on Google Webhook --- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) --- --- > { --- > "google": { --- > "expectUserResponse": true, --- > "richResponse": { --- > "items": [ --- > { --- > "simpleResponse": { --- > "textToSpeech": "this is a simple response" --- > } --- > } --- > ] --- > } --- > } --- > } -gcdvwrPayload :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe GoogleCloudDialogflowV2beta1WebhookResponsePayload) -gcdvwrPayload - = lens _gcdvwrPayload - (\ s a -> s{_gcdvwrPayload = a}) - --- | Optional. The text to be shown on the screen. This value is passed --- directly to \`QueryResult.fulfillment_text\`. -gcdvwrFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text) -gcdvwrFulfillmentText - = lens _gcdvwrFulfillmentText - (\ s a -> s{_gcdvwrFulfillmentText = a}) - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_source\`. -gcdvwrSource :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text) -gcdvwrSource - = lens _gcdvwrSource (\ s a -> s{_gcdvwrSource = a}) - --- | Optional. Indicates that this intent ends an interaction. Some --- integrations (e.g., Actions on Google or Dialogflow phone gateway) use --- this information to close interaction with an end user. Default is --- false. -gcdvwrEndInteraction :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Bool) -gcdvwrEndInteraction - = lens _gcdvwrEndInteraction - (\ s a -> s{_gcdvwrEndInteraction = a}) - --- | Optional. The collection of output contexts. This value is passed --- directly to \`QueryResult.output_contexts\`. -gcdvwrOutputContexts :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1Context] -gcdvwrOutputContexts - = lens _gcdvwrOutputContexts - (\ s a -> s{_gcdvwrOutputContexts = a}) - . _Default - . _Coerce - --- | Optional. Makes the platform immediately invoke another \`DetectIntent\` --- call internally with the specified event as input. -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]) - --- | Optional. The collection of parameters associated with the event. --- --- /See:/ 'googleCloudDialogflowV2beta1EventInputParameters' smart constructor. -newtype GoogleCloudDialogflowV2beta1EventInputParameters = GoogleCloudDialogflowV2beta1EventInputParameters' - { _gcdveipAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1EventInputParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdveipAddtional' -googleCloudDialogflowV2beta1EventInputParameters - :: HashMap Text JSONValue -- ^ 'gcdveipAddtional' - -> GoogleCloudDialogflowV2beta1EventInputParameters -googleCloudDialogflowV2beta1EventInputParameters pGcdveipAddtional_ = - GoogleCloudDialogflowV2beta1EventInputParameters' - { _gcdveipAddtional = _Coerce # pGcdveipAddtional_ - } - --- | Properties of the object. -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 - --- | Optional. This field is set to the value of the --- \`QueryParameters.payload\` field passed in the request. Some --- integrations that query a Dialogflow agent may provide additional --- information in the payload. In particular for the Telephony Gateway this --- field has the form: --- --- > { --- > "telephony": { --- > "caller_id": "+18558363987" --- > } --- > } --- --- Note: The caller ID field (\`caller_id\`) will be redacted for Standard --- Edition agents and populated with the caller ID in [E.164 --- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition --- agents. --- --- /See:/ 'googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' smart constructor. -newtype GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload = GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' - { _gcdvodirpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvodirpAddtional' -googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload - :: HashMap Text JSONValue -- ^ 'gcdvodirpAddtional' - -> GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload -googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload pGcdvodirpAddtional_ = - GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' - { _gcdvodirpAddtional = _Coerce # pGcdvodirpAddtional_ - } - --- | Properties of the object. -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 - --- | The quick replies response message. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageQuickReplies' smart constructor. -data GoogleCloudDialogflowV2IntentMessageQuickReplies = GoogleCloudDialogflowV2IntentMessageQuickReplies' - { _gcdvimqrTitle :: !(Maybe Text) - , _gcdvimqrQuickReplies :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageQuickReplies' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimqrTitle' --- --- * 'gcdvimqrQuickReplies' -googleCloudDialogflowV2IntentMessageQuickReplies - :: GoogleCloudDialogflowV2IntentMessageQuickReplies -googleCloudDialogflowV2IntentMessageQuickReplies = - GoogleCloudDialogflowV2IntentMessageQuickReplies' - { _gcdvimqrTitle = Nothing - , _gcdvimqrQuickReplies = Nothing - } - --- | Optional. The title of the collection of quick replies. -gcdvimqrTitle :: Lens' GoogleCloudDialogflowV2IntentMessageQuickReplies (Maybe Text) -gcdvimqrTitle - = lens _gcdvimqrTitle - (\ s a -> s{_gcdvimqrTitle = a}) - --- | Optional. The collection of quick replies. -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]) - --- | Represents the result of querying a Knowledge base. --- --- /See:/ 'googleCloudDialogflowV2beta1KnowledgeAnswers' smart constructor. -newtype GoogleCloudDialogflowV2beta1KnowledgeAnswers = GoogleCloudDialogflowV2beta1KnowledgeAnswers' - { _gcdvkaAnswers :: Maybe [GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeAnswers' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvkaAnswers' -googleCloudDialogflowV2beta1KnowledgeAnswers - :: GoogleCloudDialogflowV2beta1KnowledgeAnswers -googleCloudDialogflowV2beta1KnowledgeAnswers = - GoogleCloudDialogflowV2beta1KnowledgeAnswers' - { _gcdvkaAnswers = Nothing - } - --- | A list of answers from Knowledge Connector. -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]) - --- | Optional. Contains information about a button. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCardButton' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageCardButton = GoogleCloudDialogflowV2beta1IntentMessageCardButton' - { _gcdvimcbText :: !(Maybe Text) - , _gcdvimcbPostback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCardButton' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimcbText' --- --- * 'gcdvimcbPostback' -googleCloudDialogflowV2beta1IntentMessageCardButton - :: GoogleCloudDialogflowV2beta1IntentMessageCardButton -googleCloudDialogflowV2beta1IntentMessageCardButton = - GoogleCloudDialogflowV2beta1IntentMessageCardButton' - { _gcdvimcbText = Nothing - , _gcdvimcbPostback = Nothing - } - --- | Optional. The text to show on the button. -gcdvimcbText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCardButton (Maybe Text) -gcdvimcbText - = lens _gcdvimcbText (\ s a -> s{_gcdvimcbText = a}) - --- | Optional. The text to send back to the Dialogflow API or a URI to open. -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]) - --- | Optional. The collection of parameters associated with this context. --- Refer to [this --- doc](https:\/\/dialogflow.com\/docs\/actions-and-parameters) for syntax. --- --- /See:/ 'googleCloudDialogflowV2beta1ContextParameters' smart constructor. -newtype GoogleCloudDialogflowV2beta1ContextParameters = GoogleCloudDialogflowV2beta1ContextParameters' - { _gcdvcpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1ContextParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvcpAddtional' -googleCloudDialogflowV2beta1ContextParameters - :: HashMap Text JSONValue -- ^ 'gcdvcpAddtional' - -> GoogleCloudDialogflowV2beta1ContextParameters -googleCloudDialogflowV2beta1ContextParameters pGcdvcpAddtional_ = - GoogleCloudDialogflowV2beta1ContextParameters' - { _gcdvcpAddtional = _Coerce # pGcdvcpAddtional_ - } - --- | Properties of the object. -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 - --- | Optional. This field can be used to pass custom data into the webhook --- associated with the agent. Arbitrary JSON objects are supported. --- --- /See:/ 'googleCloudDialogflowV2QueryParametersPayload' smart constructor. -newtype GoogleCloudDialogflowV2QueryParametersPayload = GoogleCloudDialogflowV2QueryParametersPayload' - { _gcdvqppAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryParametersPayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqppAddtional' -googleCloudDialogflowV2QueryParametersPayload - :: HashMap Text JSONValue -- ^ 'gcdvqppAddtional' - -> GoogleCloudDialogflowV2QueryParametersPayload -googleCloudDialogflowV2QueryParametersPayload pGcdvqppAddtional_ = - GoogleCloudDialogflowV2QueryParametersPayload' - { _gcdvqppAddtional = _Coerce # pGcdvqppAddtional_ - } - --- | Properties of the object. -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 - --- | The card for presenting a list of options to select from. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageListSelect' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageListSelect = GoogleCloudDialogflowV2beta1IntentMessageListSelect' - { _gcdvimlsItems :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem]) - , _gcdvimlsTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageListSelect' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimlsItems' --- --- * 'gcdvimlsTitle' -googleCloudDialogflowV2beta1IntentMessageListSelect - :: GoogleCloudDialogflowV2beta1IntentMessageListSelect -googleCloudDialogflowV2beta1IntentMessageListSelect = - GoogleCloudDialogflowV2beta1IntentMessageListSelect' - { _gcdvimlsItems = Nothing - , _gcdvimlsTitle = Nothing - } - --- | Required. List items. -gcdvimlsItems :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelect [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem] -gcdvimlsItems - = lens _gcdvimlsItems - (\ s a -> s{_gcdvimlsItems = a}) - . _Default - . _Coerce - --- | Optional. The overall title of the list. -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]) - --- | Plays audio from a file in Telephony Gateway. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio = GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' - { _gcdvimtpaAudioURI :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimtpaAudioURI' -googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio - :: GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio -googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio = - GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' - { _gcdvimtpaAudioURI = Nothing - } - --- | Required. URI to a Google Cloud Storage object containing the audio to --- play, e.g., \"gs:\/\/bucket\/object\". The object must contain a single --- channel (mono) of linear PCM audio (2 bytes \/ sample) at 8kHz. This --- object must be readable by the --- \`service-\'gcp-sa-dialogflow.iam.gserviceaccount.com\` service account --- where is the number of the Telephony Gateway project (usually the same --- as the Dialogflow agent project). If the Google Cloud Storage bucket is --- in the Telephony Gateway project, this permission is added by default --- when enabling the Dialogflow V2 API. For audio from other sources, --- consider using the \`TelephonySynthesizeSpeech\` message with SSML. -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]) - --- | Represents a part of a training phrase. --- --- /See:/ 'googleCloudDialogflowV2IntentTrainingPhrasePart' smart constructor. -data GoogleCloudDialogflowV2IntentTrainingPhrasePart = GoogleCloudDialogflowV2IntentTrainingPhrasePart' - { _gcdvitppText :: !(Maybe Text) - , _gcdvitppUserDefined :: !(Maybe Bool) - , _gcdvitppEntityType :: !(Maybe Text) - , _gcdvitppAlias :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentTrainingPhrasePart' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvitppText' --- --- * 'gcdvitppUserDefined' --- --- * 'gcdvitppEntityType' --- --- * 'gcdvitppAlias' -googleCloudDialogflowV2IntentTrainingPhrasePart - :: GoogleCloudDialogflowV2IntentTrainingPhrasePart -googleCloudDialogflowV2IntentTrainingPhrasePart = - GoogleCloudDialogflowV2IntentTrainingPhrasePart' - { _gcdvitppText = Nothing - , _gcdvitppUserDefined = Nothing - , _gcdvitppEntityType = Nothing - , _gcdvitppAlias = Nothing - } - --- | Required. The text corresponding to the example or template, if there --- are no annotations. For annotated examples, it is the text for one of --- the example\'s parts. -gcdvitppText :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text) -gcdvitppText - = lens _gcdvitppText (\ s a -> s{_gcdvitppText = a}) - --- | Optional. Indicates whether the text was manually annotated by the --- developer. -gcdvitppUserDefined :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Bool) -gcdvitppUserDefined - = lens _gcdvitppUserDefined - (\ s a -> s{_gcdvitppUserDefined = a}) - --- | Optional. The entity type name prefixed with \`\'\`. This field is --- required for the annotated part of the text and applies only to --- examples. -gcdvitppEntityType :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text) -gcdvitppEntityType - = lens _gcdvitppEntityType - (\ s a -> s{_gcdvitppEntityType = a}) - --- | Optional. The parameter name for the value extracted from the annotated --- part of the example. -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]) - --- | A generic empty message that you can re-use to avoid defining duplicated --- empty messages in your APIs. A typical example is to use it as the --- request or the response type of an API method. For instance: service Foo --- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The --- JSON representation for \`Empty\` is empty JSON object \`{}\`. --- --- /See:/ 'googleProtobufEmpty' smart constructor. -data GoogleProtobufEmpty = - GoogleProtobufEmpty' - deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleProtobufEmpty' with the minimum fields required to make a request. --- -googleProtobufEmpty - :: GoogleProtobufEmpty -googleProtobufEmpty = GoogleProtobufEmpty' - -instance FromJSON GoogleProtobufEmpty where - parseJSON - = withObject "GoogleProtobufEmpty" - (\ o -> pure GoogleProtobufEmpty') - -instance ToJSON GoogleProtobufEmpty where - toJSON = const emptyObject - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_payload\`. See the related --- \`fulfillment_messages[i].payload field\`, which may be used as an --- alternative to this field. This field can be used for Actions on Google --- responses. It should have a structure similar to the JSON message shown --- here. For more information, see [Actions on Google Webhook --- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) --- --- > { --- > "google": { --- > "expectUserResponse": true, --- > "richResponse": { --- > "items": [ --- > { --- > "simpleResponse": { --- > "textToSpeech": "this is a simple response" --- > } --- > } --- > ] --- > } --- > } --- > } --- --- /See:/ 'googleCloudDialogflowV2beta1WebhookResponsePayload' smart constructor. -newtype GoogleCloudDialogflowV2beta1WebhookResponsePayload = GoogleCloudDialogflowV2beta1WebhookResponsePayload' - { _gcdvwrpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookResponsePayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvwrpAddtional' -googleCloudDialogflowV2beta1WebhookResponsePayload - :: HashMap Text JSONValue -- ^ 'gcdvwrpAddtional' - -> GoogleCloudDialogflowV2beta1WebhookResponsePayload -googleCloudDialogflowV2beta1WebhookResponsePayload pGcdvwrpAddtional_ = - GoogleCloudDialogflowV2beta1WebhookResponsePayload' - { _gcdvwrpAddtional = _Coerce # pGcdvwrpAddtional_ - } - --- | Properties of the object. -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 - --- | The quick replies response message. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageQuickReplies' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageQuickReplies = GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' - { _gcdvimqrsTitle :: !(Maybe Text) - , _gcdvimqrsQuickReplies :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimqrsTitle' --- --- * 'gcdvimqrsQuickReplies' -googleCloudDialogflowV2beta1IntentMessageQuickReplies - :: GoogleCloudDialogflowV2beta1IntentMessageQuickReplies -googleCloudDialogflowV2beta1IntentMessageQuickReplies = - GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' - { _gcdvimqrsTitle = Nothing - , _gcdvimqrsQuickReplies = Nothing - } - --- | Optional. The title of the collection of quick replies. -gcdvimqrsTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageQuickReplies (Maybe Text) -gcdvimqrsTitle - = lens _gcdvimqrsTitle - (\ s a -> s{_gcdvimqrsTitle = a}) - --- | Optional. The collection of quick replies. -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]) - --- | The suggestion chip message that allows the user to jump out to the app --- or website associated with this agent. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageLinkOutSuggestion' smart constructor. -data GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion = GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' - { _gcdvimlosURI :: !(Maybe Text) - , _gcdvimlosDestinationName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimlosURI' --- --- * 'gcdvimlosDestinationName' -googleCloudDialogflowV2IntentMessageLinkOutSuggestion - :: GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion -googleCloudDialogflowV2IntentMessageLinkOutSuggestion = - GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' - { _gcdvimlosURI = Nothing - , _gcdvimlosDestinationName = Nothing - } - --- | Required. The URI of the app or site to open when the user taps the --- suggestion chip. -gcdvimlosURI :: Lens' GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion (Maybe Text) -gcdvimlosURI - = lens _gcdvimlosURI (\ s a -> s{_gcdvimlosURI = a}) - --- | Required. The name of the app or site this chip is linking to. -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]) - --- | The request message for Agents.ImportAgent. --- --- /See:/ 'googleCloudDialogflowV2ImportAgentRequest' smart constructor. -data GoogleCloudDialogflowV2ImportAgentRequest = GoogleCloudDialogflowV2ImportAgentRequest' - { _gcdviarAgentURI :: !(Maybe Text) - , _gcdviarAgentContent :: !(Maybe Bytes) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ImportAgentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdviarAgentURI' --- --- * 'gcdviarAgentContent' -googleCloudDialogflowV2ImportAgentRequest - :: GoogleCloudDialogflowV2ImportAgentRequest -googleCloudDialogflowV2ImportAgentRequest = - GoogleCloudDialogflowV2ImportAgentRequest' - { _gcdviarAgentURI = Nothing - , _gcdviarAgentContent = Nothing - } - --- | The URI to a Google Cloud Storage file containing the agent to import. --- Note: The URI must start with \"gs:\/\/\". -gcdviarAgentURI :: Lens' GoogleCloudDialogflowV2ImportAgentRequest (Maybe Text) -gcdviarAgentURI - = lens _gcdviarAgentURI - (\ s a -> s{_gcdviarAgentURI = a}) - --- | The agent to import. Example for how to import an agent via the command --- line: --- --- > curl \ --- > 'https://dialogflow.googleapis.com/v2/projects//agent:import\ --- > -X POST \ --- > -H 'Authorization: Bearer '$(gcloud auth application-default --- > print-access-token) \ --- > -H 'Accept: application/json' \ --- > -H 'Content-Type: application/json' \ --- > --compressed \ --- > --data-binary "{ --- > 'agentContent': '$(cat | base64 -w 0)' --- > }" -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]) - --- --- /See:/ 'googleRpcStatusDetailsItem' smart constructor. -newtype GoogleRpcStatusDetailsItem = GoogleRpcStatusDetailsItem' - { _grsdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleRpcStatusDetailsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'grsdiAddtional' -googleRpcStatusDetailsItem - :: HashMap Text JSONValue -- ^ 'grsdiAddtional' - -> GoogleRpcStatusDetailsItem -googleRpcStatusDetailsItem pGrsdiAddtional_ = - GoogleRpcStatusDetailsItem' - { _grsdiAddtional = _Coerce # pGrsdiAddtional_ - } - --- | Properties of the object. Contains field \'type with type URL. -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 - --- | The response message for EntityTypes.BatchUpdateEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' smart constructor. -newtype GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse = GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' - { _gcdvbuetrEntityTypes :: Maybe [GoogleCloudDialogflowV2beta1EntityType] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbuetrEntityTypes' -googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse - :: GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse -googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse = - GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' - { _gcdvbuetrEntityTypes = Nothing - } - --- | The collection of updated or created entity types. -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]) - --- | Optional. The collection of parameters associated with this context. --- Refer to [this --- doc](https:\/\/dialogflow.com\/docs\/actions-and-parameters) for syntax. --- --- /See:/ 'googleCloudDialogflowV2ContextParameters' smart constructor. -newtype GoogleCloudDialogflowV2ContextParameters = GoogleCloudDialogflowV2ContextParameters' - { _gAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ContextParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gAddtional' -googleCloudDialogflowV2ContextParameters - :: HashMap Text JSONValue -- ^ 'gAddtional' - -> GoogleCloudDialogflowV2ContextParameters -googleCloudDialogflowV2ContextParameters pGAddtional_ = - GoogleCloudDialogflowV2ContextParameters' - { _gAddtional = _Coerce # pGAddtional_ - } - --- | Properties of the object. -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 - --- | Optional. Contains information about a button. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageCardButton' smart constructor. -data GoogleCloudDialogflowV2IntentMessageCardButton = GoogleCloudDialogflowV2IntentMessageCardButton' - { _gText :: !(Maybe Text) - , _gPostback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCardButton' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gText' --- --- * 'gPostback' -googleCloudDialogflowV2IntentMessageCardButton - :: GoogleCloudDialogflowV2IntentMessageCardButton -googleCloudDialogflowV2IntentMessageCardButton = - GoogleCloudDialogflowV2IntentMessageCardButton' - { _gText = Nothing - , _gPostback = Nothing - } - --- | Optional. The text to show on the button. -gText :: Lens' GoogleCloudDialogflowV2IntentMessageCardButton (Maybe Text) -gText = lens _gText (\ s a -> s{_gText = a}) - --- | Optional. The text to send back to the Dialogflow API or a URI to open. -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]) - --- | The card for presenting a list of options to select from. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageListSelect' smart constructor. -data GoogleCloudDialogflowV2IntentMessageListSelect = GoogleCloudDialogflowV2IntentMessageListSelect' - { _gooItems :: !(Maybe [GoogleCloudDialogflowV2IntentMessageListSelectItem]) - , _gooTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageListSelect' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooItems' --- --- * 'gooTitle' -googleCloudDialogflowV2IntentMessageListSelect - :: GoogleCloudDialogflowV2IntentMessageListSelect -googleCloudDialogflowV2IntentMessageListSelect = - GoogleCloudDialogflowV2IntentMessageListSelect' - { _gooItems = Nothing - , _gooTitle = Nothing - } - --- | Required. List items. -gooItems :: Lens' GoogleCloudDialogflowV2IntentMessageListSelect [GoogleCloudDialogflowV2IntentMessageListSelectItem] -gooItems - = lens _gooItems (\ s a -> s{_gooItems = a}) . - _Default - . _Coerce - --- | Optional. The overall title of the list. -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]) - --- | The card response message. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCard' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageCard = GoogleCloudDialogflowV2beta1IntentMessageCard' - { _gcdvimcButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageCardButton]) - , _gcdvimcImageURI :: !(Maybe Text) - , _gcdvimcSubtitle :: !(Maybe Text) - , _gcdvimcTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCard' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimcButtons' --- --- * 'gcdvimcImageURI' --- --- * 'gcdvimcSubtitle' --- --- * 'gcdvimcTitle' -googleCloudDialogflowV2beta1IntentMessageCard - :: GoogleCloudDialogflowV2beta1IntentMessageCard -googleCloudDialogflowV2beta1IntentMessageCard = - GoogleCloudDialogflowV2beta1IntentMessageCard' - { _gcdvimcButtons = Nothing - , _gcdvimcImageURI = Nothing - , _gcdvimcSubtitle = Nothing - , _gcdvimcTitle = Nothing - } - --- | Optional. The collection of card buttons. -gcdvimcButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard [GoogleCloudDialogflowV2beta1IntentMessageCardButton] -gcdvimcButtons - = lens _gcdvimcButtons - (\ s a -> s{_gcdvimcButtons = a}) - . _Default - . _Coerce - --- | Optional. The public URI to an image file for the card. -gcdvimcImageURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text) -gcdvimcImageURI - = lens _gcdvimcImageURI - (\ s a -> s{_gcdvimcImageURI = a}) - --- | Optional. The subtitle of the card. -gcdvimcSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text) -gcdvimcSubtitle - = lens _gcdvimcSubtitle - (\ s a -> s{_gcdvimcSubtitle = a}) - --- | Optional. The title of the card. -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]) - --- | The request message for Agents.RestoreAgent. --- --- /See:/ 'googleCloudDialogflowV2RestoreAgentRequest' smart constructor. -data GoogleCloudDialogflowV2RestoreAgentRequest = GoogleCloudDialogflowV2RestoreAgentRequest' - { _gcdvrarAgentURI :: !(Maybe Text) - , _gcdvrarAgentContent :: !(Maybe Bytes) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2RestoreAgentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvrarAgentURI' --- --- * 'gcdvrarAgentContent' -googleCloudDialogflowV2RestoreAgentRequest - :: GoogleCloudDialogflowV2RestoreAgentRequest -googleCloudDialogflowV2RestoreAgentRequest = - GoogleCloudDialogflowV2RestoreAgentRequest' - { _gcdvrarAgentURI = Nothing - , _gcdvrarAgentContent = Nothing - } - --- | The URI to a Google Cloud Storage file containing the agent to restore. --- Note: The URI must start with \"gs:\/\/\". -gcdvrarAgentURI :: Lens' GoogleCloudDialogflowV2RestoreAgentRequest (Maybe Text) -gcdvrarAgentURI - = lens _gcdvrarAgentURI - (\ s a -> s{_gcdvrarAgentURI = a}) - --- | The agent to restore. Example for how to restore an agent via the --- command line: --- --- > curl \ --- > 'https://dialogflow.googleapis.com/v2/projects//agent:restore\ --- > -X POST \ --- > -H 'Authorization: Bearer '$(gcloud auth application-default --- > print-access-token) \ --- > -H 'Accept: application/json' \ --- > -H 'Content-Type: application/json' \ --- > --compressed \ --- > --data-binary "{ --- > 'agentContent': '$(cat | base64 -w 0)' --- > }" -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]) - --- | The collection of suggestions. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageSuggestions' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageSuggestions = GoogleCloudDialogflowV2IntentMessageSuggestions' - { _gSuggestions :: Maybe [GoogleCloudDialogflowV2IntentMessageSuggestion] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSuggestions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gSuggestions' -googleCloudDialogflowV2IntentMessageSuggestions - :: GoogleCloudDialogflowV2IntentMessageSuggestions -googleCloudDialogflowV2IntentMessageSuggestions = - GoogleCloudDialogflowV2IntentMessageSuggestions' - { _gSuggestions = Nothing - } - --- | Required. The list of suggested replies. -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]) - --- | Opens the given URI. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction = GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' - { _gcdvimbcbouaURI :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbcbouaURI' -googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction - :: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction -googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction = - GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' - { _gcdvimbcbouaURI = Nothing - } - --- | Required. The HTTP or HTTPS scheme URI. -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]) - --- | Represents the parameters of the conversational query. --- --- /See:/ 'googleCloudDialogflowV2QueryParameters' smart constructor. -data GoogleCloudDialogflowV2QueryParameters = GoogleCloudDialogflowV2QueryParameters' - { _gcdvqpContexts :: !(Maybe [GoogleCloudDialogflowV2Context]) - , _gcdvqpPayload :: !(Maybe GoogleCloudDialogflowV2QueryParametersPayload) - , _gcdvqpGeoLocation :: !(Maybe GoogleTypeLatLng) - , _gcdvqpTimeZone :: !(Maybe Text) - , _gcdvqpSessionEntityTypes :: !(Maybe [GoogleCloudDialogflowV2SessionEntityType]) - , _gcdvqpResetContexts :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqpContexts' --- --- * 'gcdvqpPayload' --- --- * 'gcdvqpGeoLocation' --- --- * 'gcdvqpTimeZone' --- --- * 'gcdvqpSessionEntityTypes' --- --- * 'gcdvqpResetContexts' -googleCloudDialogflowV2QueryParameters - :: GoogleCloudDialogflowV2QueryParameters -googleCloudDialogflowV2QueryParameters = - GoogleCloudDialogflowV2QueryParameters' - { _gcdvqpContexts = Nothing - , _gcdvqpPayload = Nothing - , _gcdvqpGeoLocation = Nothing - , _gcdvqpTimeZone = Nothing - , _gcdvqpSessionEntityTypes = Nothing - , _gcdvqpResetContexts = Nothing - } - --- | Optional. The collection of contexts to be activated before this query --- is executed. -gcdvqpContexts :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2Context] -gcdvqpContexts - = lens _gcdvqpContexts - (\ s a -> s{_gcdvqpContexts = a}) - . _Default - . _Coerce - --- | Optional. This field can be used to pass custom data into the webhook --- associated with the agent. Arbitrary JSON objects are supported. -gcdvqpPayload :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleCloudDialogflowV2QueryParametersPayload) -gcdvqpPayload - = lens _gcdvqpPayload - (\ s a -> s{_gcdvqpPayload = a}) - --- | Optional. The geo location of this conversational query. -gcdvqpGeoLocation :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleTypeLatLng) -gcdvqpGeoLocation - = lens _gcdvqpGeoLocation - (\ s a -> s{_gcdvqpGeoLocation = a}) - --- | Optional. The time zone of this conversational query from the [time zone --- database](https:\/\/www.iana.org\/time-zones), e.g., America\/New_York, --- Europe\/Paris. If not provided, the time zone specified in agent --- settings is used. -gcdvqpTimeZone :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe Text) -gcdvqpTimeZone - = lens _gcdvqpTimeZone - (\ s a -> s{_gcdvqpTimeZone = a}) - --- | Optional. Additional session entity types to replace or extend developer --- entity types with. The entity synonyms apply to all languages and --- persist for the session of this query. -gcdvqpSessionEntityTypes :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2SessionEntityType] -gcdvqpSessionEntityTypes - = lens _gcdvqpSessionEntityTypes - (\ s a -> s{_gcdvqpSessionEntityTypes = a}) - . _Default - . _Coerce - --- | Optional. Specifies whether to delete all contexts in the current --- session before the new ones are activated. -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 .:? "payload") - <*> (o .:? "geoLocation") - <*> (o .:? "timeZone") - <*> (o .:? "sessionEntityTypes" .!= mempty) - <*> (o .:? "resetContexts")) - -instance ToJSON - GoogleCloudDialogflowV2QueryParameters where - toJSON GoogleCloudDialogflowV2QueryParameters'{..} - = object - (catMaybes - [("contexts" .=) <$> _gcdvqpContexts, - ("payload" .=) <$> _gcdvqpPayload, - ("geoLocation" .=) <$> _gcdvqpGeoLocation, - ("timeZone" .=) <$> _gcdvqpTimeZone, - ("sessionEntityTypes" .=) <$> - _gcdvqpSessionEntityTypes, - ("resetContexts" .=) <$> _gcdvqpResetContexts]) - --- | The suggestion chip message that the user can tap to quickly post a --- reply to the conversation. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSuggestion' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestion = GoogleCloudDialogflowV2beta1IntentMessageSuggestion' - { _gcdvimsTitle :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSuggestion' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimsTitle' -googleCloudDialogflowV2beta1IntentMessageSuggestion - :: GoogleCloudDialogflowV2beta1IntentMessageSuggestion -googleCloudDialogflowV2beta1IntentMessageSuggestion = - GoogleCloudDialogflowV2beta1IntentMessageSuggestion' - { _gcdvimsTitle = Nothing - } - --- | Required. The text shown the in the suggestion chip. -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]) - --- | Represents the contents of the original request that was passed to the --- \`[Streaming]DetectIntent\` call. --- --- /See:/ 'googleCloudDialogflowV2beta1OriginalDetectIntentRequest' smart constructor. -data GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest = GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' - { _gcdvodirPayload :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload) - , _gcdvodirVersion :: !(Maybe Text) - , _gcdvodirSource :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvodirPayload' --- --- * 'gcdvodirVersion' --- --- * 'gcdvodirSource' -googleCloudDialogflowV2beta1OriginalDetectIntentRequest - :: GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest -googleCloudDialogflowV2beta1OriginalDetectIntentRequest = - GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' - { _gcdvodirPayload = Nothing - , _gcdvodirVersion = Nothing - , _gcdvodirSource = Nothing - } - --- | Optional. This field is set to the value of the --- \`QueryParameters.payload\` field passed in the request. Some --- integrations that query a Dialogflow agent may provide additional --- information in the payload. In particular for the Telephony Gateway this --- field has the form: --- --- > { --- > "telephony": { --- > "caller_id": "+18558363987" --- > } --- > } --- --- Note: The caller ID field (\`caller_id\`) will be redacted for Standard --- Edition agents and populated with the caller ID in [E.164 --- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition --- agents. -gcdvodirPayload :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload) -gcdvodirPayload - = lens _gcdvodirPayload - (\ s a -> s{_gcdvodirPayload = a}) - --- | Optional. The version of the protocol used for this request. This field --- is AoG-specific. -gcdvodirVersion :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe Text) -gcdvodirVersion - = lens _gcdvodirVersion - (\ s a -> s{_gcdvodirVersion = a}) - --- | The source of this request, e.g., \`google\`, \`facebook\`, \`slack\`. --- It is set by Dialogflow-owned servers. -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]) - --- | Optional. The collection of parameters associated with the event. --- --- /See:/ 'googleCloudDialogflowV2EventInputParameters' smart constructor. -newtype GoogleCloudDialogflowV2EventInputParameters = GoogleCloudDialogflowV2EventInputParameters' - { _gcdveipsAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2EventInputParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdveipsAddtional' -googleCloudDialogflowV2EventInputParameters - :: HashMap Text JSONValue -- ^ 'gcdveipsAddtional' - -> GoogleCloudDialogflowV2EventInputParameters -googleCloudDialogflowV2EventInputParameters pGcdveipsAddtional_ = - GoogleCloudDialogflowV2EventInputParameters' - { _gcdveipsAddtional = _Coerce # pGcdveipsAddtional_ - } - --- | Properties of the object. -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 - --- | The message returned from the DetectIntent method. --- --- /See:/ 'googleCloudDialogflowV2DetectIntentResponse' smart constructor. -data GoogleCloudDialogflowV2DetectIntentResponse = GoogleCloudDialogflowV2DetectIntentResponse' - { _gcdvdirResponseId :: !(Maybe Text) - , _gcdvdirWebhookStatus :: !(Maybe GoogleRpcStatus) - , _gcdvdirQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2DetectIntentResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvdirResponseId' --- --- * 'gcdvdirWebhookStatus' --- --- * 'gcdvdirQueryResult' -googleCloudDialogflowV2DetectIntentResponse - :: GoogleCloudDialogflowV2DetectIntentResponse -googleCloudDialogflowV2DetectIntentResponse = - GoogleCloudDialogflowV2DetectIntentResponse' - { _gcdvdirResponseId = Nothing - , _gcdvdirWebhookStatus = Nothing - , _gcdvdirQueryResult = Nothing - } - --- | The unique identifier of the response. It can be used to locate a --- response in the training example set or for reporting issues. -gcdvdirResponseId :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe Text) -gcdvdirResponseId - = lens _gcdvdirResponseId - (\ s a -> s{_gcdvdirResponseId = a}) - --- | Specifies the status of the webhook request. -gcdvdirWebhookStatus :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleRpcStatus) -gcdvdirWebhookStatus - = lens _gcdvdirWebhookStatus - (\ s a -> s{_gcdvdirWebhookStatus = a}) - --- | The selected results of the conversational query or event processing. --- See \`alternative_query_results\` for additional potential results. -gcdvdirQueryResult :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleCloudDialogflowV2QueryResult) -gcdvdirQueryResult - = lens _gcdvdirQueryResult - (\ s a -> s{_gcdvdirQueryResult = a}) - -instance FromJSON - GoogleCloudDialogflowV2DetectIntentResponse where - parseJSON - = withObject - "GoogleCloudDialogflowV2DetectIntentResponse" - (\ o -> - GoogleCloudDialogflowV2DetectIntentResponse' <$> - (o .:? "responseId") <*> (o .:? "webhookStatus") <*> - (o .:? "queryResult")) - -instance ToJSON - GoogleCloudDialogflowV2DetectIntentResponse where - toJSON - GoogleCloudDialogflowV2DetectIntentResponse'{..} - = object - (catMaybes - [("responseId" .=) <$> _gcdvdirResponseId, - ("webhookStatus" .=) <$> _gcdvdirWebhookStatus, - ("queryResult" .=) <$> _gcdvdirQueryResult]) - --- | An item in the list. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageListSelectItem' smart constructor. -data GoogleCloudDialogflowV2IntentMessageListSelectItem = GoogleCloudDialogflowV2IntentMessageListSelectItem' - { _gcdvimlsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) - , _gcdvimlsiTitle :: !(Maybe Text) - , _gcdvimlsiDescription :: !(Maybe Text) - , _gcdvimlsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageListSelectItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimlsiImage' --- --- * 'gcdvimlsiTitle' --- --- * 'gcdvimlsiDescription' --- --- * 'gcdvimlsiInfo' -googleCloudDialogflowV2IntentMessageListSelectItem - :: GoogleCloudDialogflowV2IntentMessageListSelectItem -googleCloudDialogflowV2IntentMessageListSelectItem = - GoogleCloudDialogflowV2IntentMessageListSelectItem' - { _gcdvimlsiImage = Nothing - , _gcdvimlsiTitle = Nothing - , _gcdvimlsiDescription = Nothing - , _gcdvimlsiInfo = Nothing - } - --- | Optional. The image to display. -gcdvimlsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage) -gcdvimlsiImage - = lens _gcdvimlsiImage - (\ s a -> s{_gcdvimlsiImage = a}) - --- | Required. The title of the list item. -gcdvimlsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text) -gcdvimlsiTitle - = lens _gcdvimlsiTitle - (\ s a -> s{_gcdvimlsiTitle = a}) - --- | Optional. The main text describing the item. -gcdvimlsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text) -gcdvimlsiDescription - = lens _gcdvimlsiDescription - (\ s a -> s{_gcdvimlsiDescription = a}) - --- | Required. Additional information about this option. -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]) - --- | The result of sentiment analysis as configured by --- \`sentiment_analysis_request_config\`. --- --- /See:/ 'googleCloudDialogflowV2beta1SentimentAnalysisResult' smart constructor. -newtype GoogleCloudDialogflowV2beta1SentimentAnalysisResult = GoogleCloudDialogflowV2beta1SentimentAnalysisResult' - { _gcdvsarQueryTextSentiment :: Maybe GoogleCloudDialogflowV2beta1Sentiment - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1SentimentAnalysisResult' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvsarQueryTextSentiment' -googleCloudDialogflowV2beta1SentimentAnalysisResult - :: GoogleCloudDialogflowV2beta1SentimentAnalysisResult -googleCloudDialogflowV2beta1SentimentAnalysisResult = - GoogleCloudDialogflowV2beta1SentimentAnalysisResult' - { _gcdvsarQueryTextSentiment = Nothing - } - --- | The sentiment analysis result for \`query_text\`. -gcdvsarQueryTextSentiment :: Lens' GoogleCloudDialogflowV2beta1SentimentAnalysisResult (Maybe GoogleCloudDialogflowV2beta1Sentiment) -gcdvsarQueryTextSentiment - = lens _gcdvsarQueryTextSentiment - (\ s a -> s{_gcdvsarQueryTextSentiment = a}) - -instance FromJSON - GoogleCloudDialogflowV2beta1SentimentAnalysisResult - where - parseJSON - = withObject - "GoogleCloudDialogflowV2beta1SentimentAnalysisResult" - (\ o -> - GoogleCloudDialogflowV2beta1SentimentAnalysisResult' - <$> (o .:? "queryTextSentiment")) - -instance ToJSON - GoogleCloudDialogflowV2beta1SentimentAnalysisResult - where - toJSON - GoogleCloudDialogflowV2beta1SentimentAnalysisResult'{..} - = object - (catMaybes - [("queryTextSentiment" .=) <$> - _gcdvsarQueryTextSentiment]) - --- | This message is a wrapper around a collection of entity types. --- --- /See:/ 'googleCloudDialogflowV2EntityTypeBatch' smart constructor. -newtype GoogleCloudDialogflowV2EntityTypeBatch = GoogleCloudDialogflowV2EntityTypeBatch' - { _gcdvetbEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2EntityTypeBatch' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvetbEntityTypes' -googleCloudDialogflowV2EntityTypeBatch - :: GoogleCloudDialogflowV2EntityTypeBatch -googleCloudDialogflowV2EntityTypeBatch = - GoogleCloudDialogflowV2EntityTypeBatch' - { _gcdvetbEntityTypes = Nothing - } - --- | A collection of entity types. -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]) - --- | The free-form diagnostic info. For example, this field could contain --- webhook call latency. The string keys of the Struct\'s fields map can --- change without notice. --- --- /See:/ 'googleCloudDialogflowV2QueryResultDiagnosticInfo' smart constructor. -newtype GoogleCloudDialogflowV2QueryResultDiagnosticInfo = GoogleCloudDialogflowV2QueryResultDiagnosticInfo' - { _gcdvqrdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryResultDiagnosticInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrdiAddtional' -googleCloudDialogflowV2QueryResultDiagnosticInfo - :: HashMap Text JSONValue -- ^ 'gcdvqrdiAddtional' - -> GoogleCloudDialogflowV2QueryResultDiagnosticInfo -googleCloudDialogflowV2QueryResultDiagnosticInfo pGcdvqrdiAddtional_ = - GoogleCloudDialogflowV2QueryResultDiagnosticInfo' - { _gcdvqrdiAddtional = _Coerce # pGcdvqrdiAddtional_ - } - --- | Properties of the object. -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 - --- | The text response message. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageText' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageText = GoogleCloudDialogflowV2IntentMessageText' - { _gcdvimtText :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageText' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimtText' -googleCloudDialogflowV2IntentMessageText - :: GoogleCloudDialogflowV2IntentMessageText -googleCloudDialogflowV2IntentMessageText = - GoogleCloudDialogflowV2IntentMessageText' - { _gcdvimtText = Nothing - } - --- | Optional. The collection of the agent\'s responses. -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]) - --- | The request to detect user\'s intent. --- --- /See:/ 'googleCloudDialogflowV2DetectIntentRequest' smart constructor. -data GoogleCloudDialogflowV2DetectIntentRequest = GoogleCloudDialogflowV2DetectIntentRequest' - { _gcdvdirQueryInput :: !(Maybe GoogleCloudDialogflowV2QueryInput) - , _gcdvdirInputAudio :: !(Maybe Bytes) - , _gcdvdirQueryParams :: !(Maybe GoogleCloudDialogflowV2QueryParameters) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2DetectIntentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvdirQueryInput' --- --- * 'gcdvdirInputAudio' --- --- * 'gcdvdirQueryParams' -googleCloudDialogflowV2DetectIntentRequest - :: GoogleCloudDialogflowV2DetectIntentRequest -googleCloudDialogflowV2DetectIntentRequest = - GoogleCloudDialogflowV2DetectIntentRequest' - { _gcdvdirQueryInput = Nothing - , _gcdvdirInputAudio = Nothing - , _gcdvdirQueryParams = Nothing - } - --- | Required. The input specification. It can be set to: 1. an audio config --- which instructs the speech recognizer how to process the speech audio, --- 2. a conversational query in the form of text, or 3. an event that --- specifies which intent to trigger. -gcdvdirQueryInput :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2QueryInput) -gcdvdirQueryInput - = lens _gcdvdirQueryInput - (\ s a -> s{_gcdvdirQueryInput = a}) - --- | Optional. The natural language speech audio to be processed. This field --- should be populated iff \`query_input\` is set to an input audio config. --- A single request can contain up to 1 minute of speech audio data. -gcdvdirInputAudio :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe ByteString) -gcdvdirInputAudio - = lens _gcdvdirInputAudio - (\ s a -> s{_gcdvdirInputAudio = a}) - . mapping _Bytes - --- | Optional. The parameters of this query. -gcdvdirQueryParams :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2QueryParameters) -gcdvdirQueryParams - = lens _gcdvdirQueryParams - (\ s a -> s{_gcdvdirQueryParams = a}) - -instance FromJSON - GoogleCloudDialogflowV2DetectIntentRequest where - parseJSON - = withObject - "GoogleCloudDialogflowV2DetectIntentRequest" - (\ o -> - GoogleCloudDialogflowV2DetectIntentRequest' <$> - (o .:? "queryInput") <*> (o .:? "inputAudio") <*> - (o .:? "queryParams")) - -instance ToJSON - GoogleCloudDialogflowV2DetectIntentRequest where - toJSON - GoogleCloudDialogflowV2DetectIntentRequest'{..} - = object - (catMaybes - [("queryInput" .=) <$> _gcdvdirQueryInput, - ("inputAudio" .=) <$> _gcdvdirInputAudio, - ("queryParams" .=) <$> _gcdvdirQueryParams]) - --- | The collection of extracted parameters. --- --- /See:/ 'googleCloudDialogflowV2beta1QueryResultParameters' smart constructor. -newtype GoogleCloudDialogflowV2beta1QueryResultParameters = GoogleCloudDialogflowV2beta1QueryResultParameters' - { _gcdvqrpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrpAddtional' -googleCloudDialogflowV2beta1QueryResultParameters - :: HashMap Text JSONValue -- ^ 'gcdvqrpAddtional' - -> GoogleCloudDialogflowV2beta1QueryResultParameters -googleCloudDialogflowV2beta1QueryResultParameters pGcdvqrpAddtional_ = - GoogleCloudDialogflowV2beta1QueryResultParameters' - { _gcdvqrpAddtional = _Coerce # pGcdvqrpAddtional_ - } - --- | Properties of the object. -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 - --- | The basic card message. Useful for displaying information. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCard' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageBasicCard = GoogleCloudDialogflowV2beta1IntentMessageBasicCard' - { _gcdvimbccImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) - , _gcdvimbccButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton]) - , _gcdvimbccSubtitle :: !(Maybe Text) - , _gcdvimbccTitle :: !(Maybe Text) - , _gcdvimbccFormattedText :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCard' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbccImage' --- --- * 'gcdvimbccButtons' --- --- * 'gcdvimbccSubtitle' --- --- * 'gcdvimbccTitle' --- --- * 'gcdvimbccFormattedText' -googleCloudDialogflowV2beta1IntentMessageBasicCard - :: GoogleCloudDialogflowV2beta1IntentMessageBasicCard -googleCloudDialogflowV2beta1IntentMessageBasicCard = - GoogleCloudDialogflowV2beta1IntentMessageBasicCard' - { _gcdvimbccImage = Nothing - , _gcdvimbccButtons = Nothing - , _gcdvimbccSubtitle = Nothing - , _gcdvimbccTitle = Nothing - , _gcdvimbccFormattedText = Nothing - } - --- | Optional. The image for the card. -gcdvimbccImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) -gcdvimbccImage - = lens _gcdvimbccImage - (\ s a -> s{_gcdvimbccImage = a}) - --- | Optional. The collection of card buttons. -gcdvimbccButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton] -gcdvimbccButtons - = lens _gcdvimbccButtons - (\ s a -> s{_gcdvimbccButtons = a}) - . _Default - . _Coerce - --- | Optional. The subtitle of the card. -gcdvimbccSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text) -gcdvimbccSubtitle - = lens _gcdvimbccSubtitle - (\ s a -> s{_gcdvimbccSubtitle = a}) - --- | Optional. The title of the card. -gcdvimbccTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text) -gcdvimbccTitle - = lens _gcdvimbccTitle - (\ s a -> s{_gcdvimbccTitle = a}) - --- | Required, unless image is present. The body text of the card. -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]) - --- | Represents an example or template that the agent is trained on. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentTrainingPhrase' smart constructor. -data GoogleCloudDialogflowV2beta1IntentTrainingPhrase = GoogleCloudDialogflowV2beta1IntentTrainingPhrase' - { _gParts :: !(Maybe [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart]) - , _gName :: !(Maybe Text) - , _gTimesAddedCount :: !(Maybe (Textual Int32)) - , _gType :: !(Maybe GoogleCloudDialogflowV2beta1IntentTrainingPhraseType) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentTrainingPhrase' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gParts' --- --- * 'gName' --- --- * 'gTimesAddedCount' --- --- * 'gType' -googleCloudDialogflowV2beta1IntentTrainingPhrase - :: GoogleCloudDialogflowV2beta1IntentTrainingPhrase -googleCloudDialogflowV2beta1IntentTrainingPhrase = - GoogleCloudDialogflowV2beta1IntentTrainingPhrase' - { _gParts = Nothing - , _gName = Nothing - , _gTimesAddedCount = Nothing - , _gType = Nothing - } - --- | Required. The collection of training phrase parts (can be annotated). --- Fields: \`entity_type\`, \`alias\` and \`user_defined\` should be --- populated only for the annotated parts of the training phrase. -gParts :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart] -gParts - = lens _gParts (\ s a -> s{_gParts = a}) . _Default . - _Coerce - --- | Output only. The unique identifier of this training phrase. -gName :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Text) -gName = lens _gName (\ s a -> s{_gName = a}) - --- | Optional. Indicates how many times this example or template was added to --- the intent. Each time a developer adds an existing sample by editing an --- intent or training, this counter is increased. -gTimesAddedCount :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Int32) -gTimesAddedCount - = lens _gTimesAddedCount - (\ s a -> s{_gTimesAddedCount = a}) - . mapping _Coerce - --- | Required. The type of the training phrase. -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]) - --- | An answer from Knowledge Connector. --- --- /See:/ 'googleCloudDialogflowV2beta1KnowledgeAnswersAnswer' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvkaaMatchConfidence' --- --- * 'gcdvkaaAnswer' --- --- * 'gcdvkaaSource' --- --- * 'gcdvkaaFaqQuestion' --- --- * 'gcdvkaaMatchConfidenceLevel' -googleCloudDialogflowV2beta1KnowledgeAnswersAnswer - :: GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer -googleCloudDialogflowV2beta1KnowledgeAnswersAnswer = - GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer' - { _gcdvkaaMatchConfidence = Nothing - , _gcdvkaaAnswer = Nothing - , _gcdvkaaSource = Nothing - , _gcdvkaaFaqQuestion = Nothing - , _gcdvkaaMatchConfidenceLevel = Nothing - } - --- | The system\'s confidence score that this Knowledge answer is a good --- match for this conversational query. The range is from 0.0 (completely --- uncertain) to 1.0 (completely certain). Note: The confidence score is --- likely to vary somewhat (possibly even for identical requests), as the --- underlying model is under constant improvement. It may be deprecated in --- the future. We recommend using \`match_confidence_level\` which should --- be generally more stable. -gcdvkaaMatchConfidence :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Double) -gcdvkaaMatchConfidence - = lens _gcdvkaaMatchConfidence - (\ s a -> s{_gcdvkaaMatchConfidence = a}) - . mapping _Coerce - --- | The piece of text from the \`source\` knowledge base document that --- answers this conversational query. -gcdvkaaAnswer :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) -gcdvkaaAnswer - = lens _gcdvkaaAnswer - (\ s a -> s{_gcdvkaaAnswer = a}) - --- | Indicates which Knowledge Document this answer was extracted from. --- Format: \`projects\/\/knowledgeBases\/\/documents\/\`. -gcdvkaaSource :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) -gcdvkaaSource - = lens _gcdvkaaSource - (\ s a -> s{_gcdvkaaSource = a}) - --- | The corresponding FAQ question if the answer was extracted from a FAQ --- Document, empty otherwise. -gcdvkaaFaqQuestion :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) -gcdvkaaFaqQuestion - = lens _gcdvkaaFaqQuestion - (\ s a -> s{_gcdvkaaFaqQuestion = a}) - --- | The system\'s confidence level that this knowledge answer is a good --- match for this conversational query. NOTE: The confidence level for a --- given \`\` pair may change without notice, as it depends on models that --- are constantly being improved. However, it will change less frequently --- than the confidence score below, and should be preferred for referencing --- the quality of an answer. -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]) - --- | Events allow for matching intents by event name instead of the natural --- language input. For instance, input \`\` can trigger a personalized --- welcome response. The parameter \`name\` may be used by the agent in the --- response: \`“Hello #welcome_event.name! What can I do for you today?”\`. --- --- /See:/ 'googleCloudDialogflowV2beta1EventInput' smart constructor. -data GoogleCloudDialogflowV2beta1EventInput = GoogleCloudDialogflowV2beta1EventInput' - { _gooLanguageCode :: !(Maybe Text) - , _gooName :: !(Maybe Text) - , _gooParameters :: !(Maybe GoogleCloudDialogflowV2beta1EventInputParameters) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1EventInput' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooLanguageCode' --- --- * 'gooName' --- --- * 'gooParameters' -googleCloudDialogflowV2beta1EventInput - :: GoogleCloudDialogflowV2beta1EventInput -googleCloudDialogflowV2beta1EventInput = - GoogleCloudDialogflowV2beta1EventInput' - { _gooLanguageCode = Nothing - , _gooName = Nothing - , _gooParameters = Nothing - } - --- | Required. The language of this query. See [Language --- Support](https:\/\/dialogflow.com\/docs\/languages) for a list of the --- currently supported language codes. Note that queries in the same --- session do not necessarily need to specify the same language. -gooLanguageCode :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text) -gooLanguageCode - = lens _gooLanguageCode - (\ s a -> s{_gooLanguageCode = a}) - --- | Required. The unique identifier of the event. -gooName :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text) -gooName = lens _gooName (\ s a -> s{_gooName = a}) - --- | Optional. The collection of parameters associated with the event. -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]) - --- | The request message for EntityTypes.BatchUpdateEntities. --- --- /See:/ 'googleCloudDialogflowV2BatchUpdateEntitiesRequest' smart constructor. -data GoogleCloudDialogflowV2BatchUpdateEntitiesRequest = GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' - { _gcdvbuerLanguageCode :: !(Maybe Text) - , _gcdvbuerUpdateMask :: !(Maybe GFieldMask) - , _gcdvbuerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbuerLanguageCode' --- --- * 'gcdvbuerUpdateMask' --- --- * 'gcdvbuerEntities' -googleCloudDialogflowV2BatchUpdateEntitiesRequest - :: GoogleCloudDialogflowV2BatchUpdateEntitiesRequest -googleCloudDialogflowV2BatchUpdateEntitiesRequest = - GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' - { _gcdvbuerLanguageCode = Nothing - , _gcdvbuerUpdateMask = Nothing - , _gcdvbuerEntities = Nothing - } - --- | Optional. The language of entity synonyms defined in \`entities\`. If --- not specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. -gcdvbuerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe Text) -gcdvbuerLanguageCode - = lens _gcdvbuerLanguageCode - (\ s a -> s{_gcdvbuerLanguageCode = a}) - --- | Optional. The mask to control which fields get updated. -gcdvbuerUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe GFieldMask) -gcdvbuerUpdateMask - = lens _gcdvbuerUpdateMask - (\ s a -> s{_gcdvbuerUpdateMask = a}) - --- | Required. The entities to update or create. -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]) - --- | Returns a response containing a custom, platform-specific payload. See --- the Intent.Message.Platform type for a description of the structure that --- may be required for your platform. --- --- /See:/ 'googleCloudDialogflowV2IntentMessagePayload' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessagePayload = GoogleCloudDialogflowV2IntentMessagePayload' - { _gooAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessagePayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooAddtional' -googleCloudDialogflowV2IntentMessagePayload - :: HashMap Text JSONValue -- ^ 'gooAddtional' - -> GoogleCloudDialogflowV2IntentMessagePayload -googleCloudDialogflowV2IntentMessagePayload pGooAddtional_ = - GoogleCloudDialogflowV2IntentMessagePayload' - { _gooAddtional = _Coerce # pGooAddtional_ - } - --- | Properties of the object. -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 - --- | Metadata in google::longrunning::Operation for Knowledge operations. --- --- /See:/ 'googleCloudDialogflowV2beta1KnowledgeOperationMetadata' smart constructor. -newtype GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata = GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' - { _gcdvkomState :: Maybe GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvkomState' -googleCloudDialogflowV2beta1KnowledgeOperationMetadata - :: GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata -googleCloudDialogflowV2beta1KnowledgeOperationMetadata = - GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' - { _gcdvkomState = Nothing - } - --- | Required. The current state of this operation. -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]) - --- | The request message for a webhook call. --- --- /See:/ 'googleCloudDialogflowV2beta1WebhookRequest' smart constructor. -data GoogleCloudDialogflowV2beta1WebhookRequest = GoogleCloudDialogflowV2beta1WebhookRequest' - { _gOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest) - , _gResponseId :: !(Maybe Text) - , _gAlternativeQueryResults :: !(Maybe [GoogleCloudDialogflowV2beta1QueryResult]) - , _gQueryResult :: !(Maybe GoogleCloudDialogflowV2beta1QueryResult) - , _gSession :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gOriginalDetectIntentRequest' --- --- * 'gResponseId' --- --- * 'gAlternativeQueryResults' --- --- * 'gQueryResult' --- --- * 'gSession' -googleCloudDialogflowV2beta1WebhookRequest - :: GoogleCloudDialogflowV2beta1WebhookRequest -googleCloudDialogflowV2beta1WebhookRequest = - GoogleCloudDialogflowV2beta1WebhookRequest' - { _gOriginalDetectIntentRequest = Nothing - , _gResponseId = Nothing - , _gAlternativeQueryResults = Nothing - , _gQueryResult = Nothing - , _gSession = Nothing - } - --- | Optional. The contents of the original request that was passed to --- \`[Streaming]DetectIntent\` call. -gOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest) -gOriginalDetectIntentRequest - = lens _gOriginalDetectIntentRequest - (\ s a -> s{_gOriginalDetectIntentRequest = a}) - --- | The unique identifier of the response. Contains the same value as --- \`[Streaming]DetectIntentResponse.response_id\`. -gResponseId :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe Text) -gResponseId - = lens _gResponseId (\ s a -> s{_gResponseId = a}) - --- | Alternative query results from KnowledgeService. -gAlternativeQueryResults :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest [GoogleCloudDialogflowV2beta1QueryResult] -gAlternativeQueryResults - = lens _gAlternativeQueryResults - (\ s a -> s{_gAlternativeQueryResults = a}) - . _Default - . _Coerce - --- | The result of the conversational query or event processing. Contains the --- same value as \`[Streaming]DetectIntentResponse.query_result\`. -gQueryResult :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1QueryResult) -gQueryResult - = lens _gQueryResult (\ s a -> s{_gQueryResult = a}) - --- | The unique identifier of detectIntent request session. Can be used to --- identify end-user inside webhook implementation. Format: --- \`projects\/\/agent\/sessions\/\`, or --- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\`. -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]) - --- | The text response message. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageText' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageText = GoogleCloudDialogflowV2beta1IntentMessageText' - { _gooText :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageText' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooText' -googleCloudDialogflowV2beta1IntentMessageText - :: GoogleCloudDialogflowV2beta1IntentMessageText -googleCloudDialogflowV2beta1IntentMessageText = - GoogleCloudDialogflowV2beta1IntentMessageText' - { _gooText = Nothing - } - --- | Optional. The collection of the agent\'s responses. -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]) - --- | The collection of simple response candidates. This message in --- \`QueryResult.fulfillment_messages\` and --- \`WebhookResponse.fulfillment_messages\` should contain only one --- \`SimpleResponse\`. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageSimpleResponses' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageSimpleResponses = GoogleCloudDialogflowV2IntentMessageSimpleResponses' - { _gSimpleResponses :: Maybe [GoogleCloudDialogflowV2IntentMessageSimpleResponse] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSimpleResponses' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gSimpleResponses' -googleCloudDialogflowV2IntentMessageSimpleResponses - :: GoogleCloudDialogflowV2IntentMessageSimpleResponses -googleCloudDialogflowV2IntentMessageSimpleResponses = - GoogleCloudDialogflowV2IntentMessageSimpleResponses' - { _gSimpleResponses = Nothing - } - --- | Required. The list of simple responses. -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]) - --- | Represents a single followup intent in the chain. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentFollowupIntentInfo' smart constructor. -data GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo = GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' - { _gFollowupIntentName :: !(Maybe Text) - , _gParentFollowupIntentName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gFollowupIntentName' --- --- * 'gParentFollowupIntentName' -googleCloudDialogflowV2beta1IntentFollowupIntentInfo - :: GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo -googleCloudDialogflowV2beta1IntentFollowupIntentInfo = - GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' - { _gFollowupIntentName = Nothing - , _gParentFollowupIntentName = Nothing - } - --- | The unique identifier of the followup intent. Format: --- \`projects\/\/agent\/intents\/\`. -gFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo (Maybe Text) -gFollowupIntentName - = lens _gFollowupIntentName - (\ s a -> s{_gFollowupIntentName = a}) - --- | The unique identifier of the followup intent\'s parent. Format: --- \`projects\/\/agent\/intents\/\`. -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]) - --- | The collection of extracted parameters. --- --- /See:/ 'googleCloudDialogflowV2QueryResultParameters' smart constructor. -newtype GoogleCloudDialogflowV2QueryResultParameters = GoogleCloudDialogflowV2QueryResultParameters' - { _gcdvqrpsAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryResultParameters' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrpsAddtional' -googleCloudDialogflowV2QueryResultParameters - :: HashMap Text JSONValue -- ^ 'gcdvqrpsAddtional' - -> GoogleCloudDialogflowV2QueryResultParameters -googleCloudDialogflowV2QueryResultParameters pGcdvqrpsAddtional_ = - GoogleCloudDialogflowV2QueryResultParameters' - { _gcdvqrpsAddtional = _Coerce # pGcdvqrpsAddtional_ - } - --- | Properties of the object. -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 - --- | The free-form diagnostic info. For example, this field could contain --- webhook call latency. The string keys of the Struct\'s fields map can --- change without notice. --- --- /See:/ 'googleCloudDialogflowV2beta1QueryResultDiagnosticInfo' smart constructor. -newtype GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo = GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' - { _gcdvqrdicAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrdicAddtional' -googleCloudDialogflowV2beta1QueryResultDiagnosticInfo - :: HashMap Text JSONValue -- ^ 'gcdvqrdicAddtional' - -> GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo -googleCloudDialogflowV2beta1QueryResultDiagnosticInfo pGcdvqrdicAddtional_ = - GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' - { _gcdvqrdicAddtional = _Coerce # pGcdvqrdicAddtional_ - } - --- | Properties of the object. -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 - --- | The request message for EntityTypes.BatchDeleteEntities. --- --- /See:/ 'googleCloudDialogflowV2BatchDeleteEntitiesRequest' smart constructor. -data GoogleCloudDialogflowV2BatchDeleteEntitiesRequest = GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' - { _gcdvbderLanguageCode :: !(Maybe Text) - , _gcdvbderEntityValues :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbderLanguageCode' --- --- * 'gcdvbderEntityValues' -googleCloudDialogflowV2BatchDeleteEntitiesRequest - :: GoogleCloudDialogflowV2BatchDeleteEntitiesRequest -googleCloudDialogflowV2BatchDeleteEntitiesRequest = - GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' - { _gcdvbderLanguageCode = Nothing - , _gcdvbderEntityValues = Nothing - } - --- | Optional. The language of entity synonyms defined in \`entities\`. If --- not specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. -gcdvbderLanguageCode :: Lens' GoogleCloudDialogflowV2BatchDeleteEntitiesRequest (Maybe Text) -gcdvbderLanguageCode - = lens _gcdvbderLanguageCode - (\ s a -> s{_gcdvbderLanguageCode = a}) - --- | Required. The canonical \`values\` of the entities to delete. Note that --- these are not fully-qualified names, i.e. they don\'t start with --- \`projects\/\`. -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]) - --- | The response message for Intents.BatchUpdateIntents. --- --- /See:/ 'googleCloudDialogflowV2BatchUpdateIntentsResponse' smart constructor. -newtype GoogleCloudDialogflowV2BatchUpdateIntentsResponse = GoogleCloudDialogflowV2BatchUpdateIntentsResponse' - { _gIntents :: Maybe [GoogleCloudDialogflowV2Intent] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateIntentsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gIntents' -googleCloudDialogflowV2BatchUpdateIntentsResponse - :: GoogleCloudDialogflowV2BatchUpdateIntentsResponse -googleCloudDialogflowV2BatchUpdateIntentsResponse = - GoogleCloudDialogflowV2BatchUpdateIntentsResponse' - { _gIntents = Nothing - } - --- | The collection of updated or created intents. -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]) - --- | The response message for EntityTypes.ListEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2ListEntityTypesResponse' smart constructor. -data GoogleCloudDialogflowV2ListEntityTypesResponse = GoogleCloudDialogflowV2ListEntityTypesResponse' - { _gcdvletrNextPageToken :: !(Maybe Text) - , _gcdvletrEntityTypes :: !(Maybe [GoogleCloudDialogflowV2EntityType]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ListEntityTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvletrNextPageToken' --- --- * 'gcdvletrEntityTypes' -googleCloudDialogflowV2ListEntityTypesResponse - :: GoogleCloudDialogflowV2ListEntityTypesResponse -googleCloudDialogflowV2ListEntityTypesResponse = - GoogleCloudDialogflowV2ListEntityTypesResponse' - { _gcdvletrNextPageToken = Nothing - , _gcdvletrEntityTypes = Nothing - } - --- | Token to retrieve the next page of results, or empty if there are no --- more results in the list. -gcdvletrNextPageToken :: Lens' GoogleCloudDialogflowV2ListEntityTypesResponse (Maybe Text) -gcdvletrNextPageToken - = lens _gcdvletrNextPageToken - (\ s a -> s{_gcdvletrNextPageToken = a}) - --- | The list of agent entity types. There will be a maximum number of items --- returned based on the page_size field in the request. -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]) - --- | Represents a conversational agent. --- --- /See:/ 'googleCloudDialogflowV2Agent' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2Agent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvaParent' --- --- * 'gcdvaDefaultLanguageCode' --- --- * 'gcdvaEnableLogging' --- --- * 'gcdvaClassificationThreshold' --- --- * 'gcdvaAvatarURI' --- --- * 'gcdvaSupportedLanguageCodes' --- --- * 'gcdvaDisplayName' --- --- * 'gcdvaMatchMode' --- --- * 'gcdvaTimeZone' --- --- * 'gcdvaDescription' -googleCloudDialogflowV2Agent - :: GoogleCloudDialogflowV2Agent -googleCloudDialogflowV2Agent = - GoogleCloudDialogflowV2Agent' - { _gcdvaParent = Nothing - , _gcdvaDefaultLanguageCode = Nothing - , _gcdvaEnableLogging = Nothing - , _gcdvaClassificationThreshold = Nothing - , _gcdvaAvatarURI = Nothing - , _gcdvaSupportedLanguageCodes = Nothing - , _gcdvaDisplayName = Nothing - , _gcdvaMatchMode = Nothing - , _gcdvaTimeZone = Nothing - , _gcdvaDescription = Nothing - } - --- | Required. The project of this agent. Format: \`projects\/\`. -gcdvaParent :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) -gcdvaParent - = lens _gcdvaParent (\ s a -> s{_gcdvaParent = a}) - --- | Required. The default language of the agent as a language tag. See --- [Language Support](https:\/\/dialogflow.com\/docs\/reference\/language) --- for a list of the currently supported language codes. This field cannot --- be set by the \`Update\` method. -gcdvaDefaultLanguageCode :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) -gcdvaDefaultLanguageCode - = lens _gcdvaDefaultLanguageCode - (\ s a -> s{_gcdvaDefaultLanguageCode = a}) - --- | Optional. Determines whether this agent should log conversation queries. -gcdvaEnableLogging :: Lens' GoogleCloudDialogflowV2Agent (Maybe Bool) -gcdvaEnableLogging - = lens _gcdvaEnableLogging - (\ s a -> s{_gcdvaEnableLogging = a}) - --- | Optional. To filter out false positive results and still get variety in --- matched natural language inputs for your agent, you can tune the machine --- learning classification threshold. If the returned score value is less --- than the threshold value, then a fallback intent is be triggered or, if --- there are no fallback intents defined, no intent will be triggered. The --- score values range from 0.0 (completely uncertain) to 1.0 (completely --- certain). If set to 0.0, the default of 0.3 is used. -gcdvaClassificationThreshold :: Lens' GoogleCloudDialogflowV2Agent (Maybe Double) -gcdvaClassificationThreshold - = lens _gcdvaClassificationThreshold - (\ s a -> s{_gcdvaClassificationThreshold = a}) - . mapping _Coerce - --- | Optional. The URI of the agent\'s avatar. Avatars are used throughout --- the Dialogflow console and in the self-hosted [Web --- Demo](https:\/\/dialogflow.com\/docs\/integrations\/web-demo) --- integration. -gcdvaAvatarURI :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) -gcdvaAvatarURI - = lens _gcdvaAvatarURI - (\ s a -> s{_gcdvaAvatarURI = a}) - --- | Optional. The list of all languages supported by this agent (except for --- the \`default_language_code\`). -gcdvaSupportedLanguageCodes :: Lens' GoogleCloudDialogflowV2Agent [Text] -gcdvaSupportedLanguageCodes - = lens _gcdvaSupportedLanguageCodes - (\ s a -> s{_gcdvaSupportedLanguageCodes = a}) - . _Default - . _Coerce - --- | Required. The name of this agent. -gcdvaDisplayName :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) -gcdvaDisplayName - = lens _gcdvaDisplayName - (\ s a -> s{_gcdvaDisplayName = a}) - --- | Optional. Determines how intents are detected from user queries. -gcdvaMatchMode :: Lens' GoogleCloudDialogflowV2Agent (Maybe GoogleCloudDialogflowV2AgentMatchMode) -gcdvaMatchMode - = lens _gcdvaMatchMode - (\ s a -> s{_gcdvaMatchMode = a}) - --- | Required. The time zone of this agent from the [time zone --- database](https:\/\/www.iana.org\/time-zones), e.g., America\/New_York, --- Europe\/Paris. -gcdvaTimeZone :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) -gcdvaTimeZone - = lens _gcdvaTimeZone - (\ s a -> s{_gcdvaTimeZone = a}) - --- | Optional. The description of this agent. The maximum length is 500 --- characters. If exceeded, the request is rejected. -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]) - --- | Corresponds to the \`Response\` field in the Dialogflow console. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessage' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimCard' --- --- * 'gcdvimImage' --- --- * 'gcdvimPlatform' --- --- * 'gcdvimLinkOutSuggestion' --- --- * 'gcdvimText' --- --- * 'gcdvimCarouselSelect' --- --- * 'gcdvimTelephonySynthesizeSpeech' --- --- * 'gcdvimSimpleResponses' --- --- * 'gcdvimPayload' --- --- * 'gcdvimTelephonyTransferCall' --- --- * 'gcdvimSuggestions' --- --- * 'gcdvimListSelect' --- --- * 'gcdvimTelephonyPlayAudio' --- --- * 'gcdvimBasicCard' --- --- * 'gcdvimQuickReplies' -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 - } - --- | Displays a card. -gcdvimCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCard) -gcdvimCard - = lens _gcdvimCard (\ s a -> s{_gcdvimCard = a}) - --- | Displays an image. -gcdvimImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) -gcdvimImage - = lens _gcdvimImage (\ s a -> s{_gcdvimImage = a}) - --- | Optional. The platform that this message is intended for. -gcdvimPlatform :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePlatform) -gcdvimPlatform - = lens _gcdvimPlatform - (\ s a -> s{_gcdvimPlatform = a}) - --- | Displays a link out suggestion chip for Actions on Google. -gcdvimLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion) -gcdvimLinkOutSuggestion - = lens _gcdvimLinkOutSuggestion - (\ s a -> s{_gcdvimLinkOutSuggestion = a}) - --- | Returns a text response. -gcdvimText :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageText) -gcdvimText - = lens _gcdvimText (\ s a -> s{_gcdvimText = a}) - --- | Displays a carousel card for Actions on Google. -gcdvimCarouselSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect) -gcdvimCarouselSelect - = lens _gcdvimCarouselSelect - (\ s a -> s{_gcdvimCarouselSelect = a}) - --- | Synthesizes speech in Telephony Gateway. -gcdvimTelephonySynthesizeSpeech :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech) -gcdvimTelephonySynthesizeSpeech - = lens _gcdvimTelephonySynthesizeSpeech - (\ s a -> s{_gcdvimTelephonySynthesizeSpeech = a}) - --- | Returns a voice or text-only response for Actions on Google. -gcdvimSimpleResponses :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses) -gcdvimSimpleResponses - = lens _gcdvimSimpleResponses - (\ s a -> s{_gcdvimSimpleResponses = a}) - --- | Returns a response containing a custom, platform-specific payload. See --- the Intent.Message.Platform type for a description of the structure that --- may be required for your platform. -gcdvimPayload :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePayload) -gcdvimPayload - = lens _gcdvimPayload - (\ s a -> s{_gcdvimPayload = a}) - --- | Transfers the call in Telephony Gateway. -gcdvimTelephonyTransferCall :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall) -gcdvimTelephonyTransferCall - = lens _gcdvimTelephonyTransferCall - (\ s a -> s{_gcdvimTelephonyTransferCall = a}) - --- | Displays suggestion chips for Actions on Google. -gcdvimSuggestions :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSuggestions) -gcdvimSuggestions - = lens _gcdvimSuggestions - (\ s a -> s{_gcdvimSuggestions = a}) - --- | Displays a list card for Actions on Google. -gcdvimListSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageListSelect) -gcdvimListSelect - = lens _gcdvimListSelect - (\ s a -> s{_gcdvimListSelect = a}) - --- | Plays audio from a file in Telephony Gateway. -gcdvimTelephonyPlayAudio :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio) -gcdvimTelephonyPlayAudio - = lens _gcdvimTelephonyPlayAudio - (\ s a -> s{_gcdvimTelephonyPlayAudio = a}) - --- | Displays a basic card for Actions on Google. -gcdvimBasicCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCard) -gcdvimBasicCard - = lens _gcdvimBasicCard - (\ s a -> s{_gcdvimBasicCard = a}) - --- | Displays quick replies. -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]) - --- | Additional info about the select item for when it is triggered in a --- dialog. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageSelectItemInfo' smart constructor. -data GoogleCloudDialogflowV2IntentMessageSelectItemInfo = GoogleCloudDialogflowV2IntentMessageSelectItemInfo' - { _gcdvimsiiKey :: !(Maybe Text) - , _gcdvimsiiSynonyms :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSelectItemInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimsiiKey' --- --- * 'gcdvimsiiSynonyms' -googleCloudDialogflowV2IntentMessageSelectItemInfo - :: GoogleCloudDialogflowV2IntentMessageSelectItemInfo -googleCloudDialogflowV2IntentMessageSelectItemInfo = - GoogleCloudDialogflowV2IntentMessageSelectItemInfo' - { _gcdvimsiiKey = Nothing - , _gcdvimsiiSynonyms = Nothing - } - --- | Required. A unique key that will be sent back to the agent if this --- response is given. -gcdvimsiiKey :: Lens' GoogleCloudDialogflowV2IntentMessageSelectItemInfo (Maybe Text) -gcdvimsiiKey - = lens _gcdvimsiiKey (\ s a -> s{_gcdvimsiiKey = a}) - --- | Optional. A list of synonyms that can also be used to trigger this item --- in dialog. -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]) - --- | The sentiment, such as positive\/negative feeling or association, for a --- unit of analysis, such as the query text. --- --- /See:/ 'googleCloudDialogflowV2beta1Sentiment' smart constructor. -data GoogleCloudDialogflowV2beta1Sentiment = GoogleCloudDialogflowV2beta1Sentiment' - { _gcdvsScore :: !(Maybe (Textual Double)) - , _gcdvsMagnitude :: !(Maybe (Textual Double)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1Sentiment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvsScore' --- --- * 'gcdvsMagnitude' -googleCloudDialogflowV2beta1Sentiment - :: GoogleCloudDialogflowV2beta1Sentiment -googleCloudDialogflowV2beta1Sentiment = - GoogleCloudDialogflowV2beta1Sentiment' - { _gcdvsScore = Nothing - , _gcdvsMagnitude = Nothing - } - --- | Sentiment score between -1.0 (negative sentiment) and 1.0 (positive --- sentiment). -gcdvsScore :: Lens' GoogleCloudDialogflowV2beta1Sentiment (Maybe Double) -gcdvsScore - = lens _gcdvsScore (\ s a -> s{_gcdvsScore = a}) . - mapping _Coerce - --- | A non-negative number in the [0, +inf) range, which represents the --- absolute magnitude of sentiment, regardless of score (positive or --- negative). -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]) - --- | The request message for EntityTypes.BatchDeleteEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2BatchDeleteEntityTypesRequest' smart constructor. -newtype GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest = GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' - { _gcdvbdetrEntityTypeNames :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbdetrEntityTypeNames' -googleCloudDialogflowV2BatchDeleteEntityTypesRequest - :: GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest -googleCloudDialogflowV2BatchDeleteEntityTypesRequest = - GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' - { _gcdvbdetrEntityTypeNames = Nothing - } - --- | Required. The names entity types to delete. All names must point to the --- same agent as \`parent\`. -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]) - --- | Represents the query input. It can contain either: 1. An audio config --- which instructs the speech recognizer how to process the speech audio. --- 2. A conversational query in the form of text,. 3. An event that --- specifies which intent to trigger. --- --- /See:/ 'googleCloudDialogflowV2QueryInput' smart constructor. -data GoogleCloudDialogflowV2QueryInput = GoogleCloudDialogflowV2QueryInput' - { _gcdvqiAudioConfig :: !(Maybe GoogleCloudDialogflowV2InputAudioConfig) - , _gcdvqiEvent :: !(Maybe GoogleCloudDialogflowV2EventInput) - , _gcdvqiText :: !(Maybe GoogleCloudDialogflowV2TextInput) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryInput' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqiAudioConfig' --- --- * 'gcdvqiEvent' --- --- * 'gcdvqiText' -googleCloudDialogflowV2QueryInput - :: GoogleCloudDialogflowV2QueryInput -googleCloudDialogflowV2QueryInput = - GoogleCloudDialogflowV2QueryInput' - { _gcdvqiAudioConfig = Nothing - , _gcdvqiEvent = Nothing - , _gcdvqiText = Nothing - } - --- | Instructs the speech recognizer how to process the speech audio. -gcdvqiAudioConfig :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2InputAudioConfig) -gcdvqiAudioConfig - = lens _gcdvqiAudioConfig - (\ s a -> s{_gcdvqiAudioConfig = a}) - --- | The event to be processed. -gcdvqiEvent :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2EventInput) -gcdvqiEvent - = lens _gcdvqiEvent (\ s a -> s{_gcdvqiEvent = a}) - --- | The natural language text to be processed. -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]) - --- | The request message for Agents.ExportAgent. --- --- /See:/ 'googleCloudDialogflowV2ExportAgentRequest' smart constructor. -newtype GoogleCloudDialogflowV2ExportAgentRequest = GoogleCloudDialogflowV2ExportAgentRequest' - { _gcdvearAgentURI :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ExportAgentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvearAgentURI' -googleCloudDialogflowV2ExportAgentRequest - :: GoogleCloudDialogflowV2ExportAgentRequest -googleCloudDialogflowV2ExportAgentRequest = - GoogleCloudDialogflowV2ExportAgentRequest' - { _gcdvearAgentURI = Nothing - } - --- | Optional. The [Google Cloud --- Storage](https:\/\/cloud.google.com\/storage\/docs\/) URI to export the --- agent to. The format of this URI must be \`gs:\/\/\/\`. If left --- unspecified, the serialized agent is returned inline. -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]) - --- | The card for presenting a carousel of options to select from. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCarouselSelect' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect = GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' - { _gcdvimcsItems :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimcsItems' -googleCloudDialogflowV2beta1IntentMessageCarouselSelect - :: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect -googleCloudDialogflowV2beta1IntentMessageCarouselSelect = - GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' - { _gcdvimcsItems = Nothing - } - --- | Required. Carousel items. -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]) - --- | Represents a context. --- --- /See:/ 'googleCloudDialogflowV2beta1Context' smart constructor. -data GoogleCloudDialogflowV2beta1Context = GoogleCloudDialogflowV2beta1Context' - { _gcdvcLifespanCount :: !(Maybe (Textual Int32)) - , _gcdvcName :: !(Maybe Text) - , _gcdvcParameters :: !(Maybe GoogleCloudDialogflowV2beta1ContextParameters) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1Context' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvcLifespanCount' --- --- * 'gcdvcName' --- --- * 'gcdvcParameters' -googleCloudDialogflowV2beta1Context - :: GoogleCloudDialogflowV2beta1Context -googleCloudDialogflowV2beta1Context = - GoogleCloudDialogflowV2beta1Context' - { _gcdvcLifespanCount = Nothing - , _gcdvcName = Nothing - , _gcdvcParameters = Nothing - } - --- | Optional. The number of conversational query requests after which the --- context expires. If set to \`0\` (the default) the context expires --- immediately. Contexts expire automatically after 10 minutes even if --- there are no matching queries. -gcdvcLifespanCount :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Int32) -gcdvcLifespanCount - = lens _gcdvcLifespanCount - (\ s a -> s{_gcdvcLifespanCount = a}) - . mapping _Coerce - --- | Required. The unique identifier of the context. Format: --- \`projects\/\/agent\/sessions\/\/contexts\/\`, or --- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\/contexts\/\`. --- The \`Context ID\` is always converted to lowercase, may only contain --- characters in a-zA-Z0-9_-% and may be at most 250 bytes long. If --- \`Environment ID\` is not specified, we assume default \'draft\' --- environment. If \`User ID\` is not specified, we assume default \'-\' --- user. -gcdvcName :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Text) -gcdvcName - = lens _gcdvcName (\ s a -> s{_gcdvcName = a}) - --- | Optional. The collection of parameters associated with this context. --- Refer to [this --- doc](https:\/\/dialogflow.com\/docs\/actions-and-parameters) for syntax. -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]) - --- | The request message for EntityTypes.BatchUpdateEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2BatchUpdateEntityTypesRequest' smart constructor. -data GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest = GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' - { _gcdvbuetrLanguageCode :: !(Maybe Text) - , _gcdvbuetrUpdateMask :: !(Maybe GFieldMask) - , _gcdvbuetrEntityTypeBatchInline :: !(Maybe GoogleCloudDialogflowV2EntityTypeBatch) - , _gcdvbuetrEntityTypeBatchURI :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvbuetrLanguageCode' --- --- * 'gcdvbuetrUpdateMask' --- --- * 'gcdvbuetrEntityTypeBatchInline' --- --- * 'gcdvbuetrEntityTypeBatchURI' -googleCloudDialogflowV2BatchUpdateEntityTypesRequest - :: GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest -googleCloudDialogflowV2BatchUpdateEntityTypesRequest = - GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' - { _gcdvbuetrLanguageCode = Nothing - , _gcdvbuetrUpdateMask = Nothing - , _gcdvbuetrEntityTypeBatchInline = Nothing - , _gcdvbuetrEntityTypeBatchURI = Nothing - } - --- | Optional. The language of entity synonyms defined in \`entity_types\`. --- If not specified, the agent\'s default language is used. [More than a --- dozen languages](https:\/\/dialogflow.com\/docs\/reference\/language) --- are supported. Note: languages must be enabled in the agent, before they --- can be used. -gcdvbuetrLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe Text) -gcdvbuetrLanguageCode - = lens _gcdvbuetrLanguageCode - (\ s a -> s{_gcdvbuetrLanguageCode = a}) - --- | Optional. The mask to control which fields get updated. -gcdvbuetrUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GFieldMask) -gcdvbuetrUpdateMask - = lens _gcdvbuetrUpdateMask - (\ s a -> s{_gcdvbuetrUpdateMask = a}) - --- | The collection of entity types to update or create. -gcdvbuetrEntityTypeBatchInline :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GoogleCloudDialogflowV2EntityTypeBatch) -gcdvbuetrEntityTypeBatchInline - = lens _gcdvbuetrEntityTypeBatchInline - (\ s a -> s{_gcdvbuetrEntityTypeBatchInline = a}) - --- | The URI to a Google Cloud Storage file containing entity types to update --- or create. The file format can either be a serialized proto (of --- EntityBatch type) or a JSON object. Note: The URI must start with --- \"gs:\/\/\". -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]) - --- | The normal response of the operation in case of success. If the original --- method returns no data on success, such as \`Delete\`, the response is --- \`google.protobuf.Empty\`. If the original method is standard --- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource. --- For other methods, the response should have the type \`XxxResponse\`, --- where \`Xxx\` is the original method name. For example, if the original --- method name is \`TakeSnapshot()\`, the inferred response type is --- \`TakeSnapshotResponse\`. --- --- /See:/ 'googleLongrunningOperationResponse' smart constructor. -newtype GoogleLongrunningOperationResponse = GoogleLongrunningOperationResponse' - { _glorAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleLongrunningOperationResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'glorAddtional' -googleLongrunningOperationResponse - :: HashMap Text JSONValue -- ^ 'glorAddtional' - -> GoogleLongrunningOperationResponse -googleLongrunningOperationResponse pGlorAddtional_ = - GoogleLongrunningOperationResponse' - { _glorAddtional = _Coerce # pGlorAddtional_ - } - --- | Properties of the object. Contains field \'type with type URL. -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 - --- | Synthesizes speech and plays back the synthesized audio to the caller in --- Telephony Gateway. Telephony Gateway takes the synthesizer settings from --- \`DetectIntentResponse.output_audio_config\` which can either be set at --- request-level or can come from the agent-level synthesizer config. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech = GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' - { _gcdvimtssText :: !(Maybe Text) - , _gcdvimtssSsml :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimtssText' --- --- * 'gcdvimtssSsml' -googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech - :: GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech -googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech = - GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' - { _gcdvimtssText = Nothing - , _gcdvimtssSsml = Nothing - } - --- | The raw text to be synthesized. -gcdvimtssText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech (Maybe Text) -gcdvimtssText - = lens _gcdvimtssText - (\ s a -> s{_gcdvimtssText = a}) - --- | The SSML to be synthesized. For more information, see --- [SSML](https:\/\/developers.google.com\/actions\/reference\/ssml). -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]) - --- | An item in the list. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageListSelectItem' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageListSelectItem = GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' - { _gcdvimlsicImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) - , _gcdvimlsicTitle :: !(Maybe Text) - , _gcdvimlsicDescription :: !(Maybe Text) - , _gcdvimlsicInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimlsicImage' --- --- * 'gcdvimlsicTitle' --- --- * 'gcdvimlsicDescription' --- --- * 'gcdvimlsicInfo' -googleCloudDialogflowV2beta1IntentMessageListSelectItem - :: GoogleCloudDialogflowV2beta1IntentMessageListSelectItem -googleCloudDialogflowV2beta1IntentMessageListSelectItem = - GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' - { _gcdvimlsicImage = Nothing - , _gcdvimlsicTitle = Nothing - , _gcdvimlsicDescription = Nothing - , _gcdvimlsicInfo = Nothing - } - --- | Optional. The image to display. -gcdvimlsicImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) -gcdvimlsicImage - = lens _gcdvimlsicImage - (\ s a -> s{_gcdvimlsicImage = a}) - --- | Required. The title of the list item. -gcdvimlsicTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text) -gcdvimlsicTitle - = lens _gcdvimlsicTitle - (\ s a -> s{_gcdvimlsicTitle = a}) - --- | Optional. The main text describing the item. -gcdvimlsicDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text) -gcdvimlsicDescription - = lens _gcdvimlsicDescription - (\ s a -> s{_gcdvimlsicDescription = a}) - --- | Required. Additional information about this option. -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]) - --- | The suggestion chip message that the user can tap to quickly post a --- reply to the conversation. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageSuggestion' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageSuggestion = GoogleCloudDialogflowV2IntentMessageSuggestion' - { _gcdvimscTitle :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSuggestion' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimscTitle' -googleCloudDialogflowV2IntentMessageSuggestion - :: GoogleCloudDialogflowV2IntentMessageSuggestion -googleCloudDialogflowV2IntentMessageSuggestion = - GoogleCloudDialogflowV2IntentMessageSuggestion' - { _gcdvimscTitle = Nothing - } - --- | Required. The text shown the in the suggestion chip. -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]) - --- | Optional. Represents an entity. --- --- /See:/ 'googleCloudDialogflowV2beta1EntityTypeEntity' smart constructor. -data GoogleCloudDialogflowV2beta1EntityTypeEntity = GoogleCloudDialogflowV2beta1EntityTypeEntity' - { _gcdveteValue :: !(Maybe Text) - , _gcdveteSynonyms :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1EntityTypeEntity' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdveteValue' --- --- * 'gcdveteSynonyms' -googleCloudDialogflowV2beta1EntityTypeEntity - :: GoogleCloudDialogflowV2beta1EntityTypeEntity -googleCloudDialogflowV2beta1EntityTypeEntity = - GoogleCloudDialogflowV2beta1EntityTypeEntity' - { _gcdveteValue = Nothing - , _gcdveteSynonyms = Nothing - } - --- | Required. For \`KIND_MAP\` entity types: A canonical name to be used in --- place of synonyms. For \`KIND_LIST\` entity types: A string that can --- contain references to other entity types (with or without aliases). -gcdveteValue :: Lens' GoogleCloudDialogflowV2beta1EntityTypeEntity (Maybe Text) -gcdveteValue - = lens _gcdveteValue (\ s a -> s{_gcdveteValue = a}) - --- | Required. A collection of synonyms. For \`KIND_LIST\` entity types this --- must contain exactly one synonym equal to \`value\`. -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]) - --- | Represents an entity type. Entity types serve as a tool for extracting --- parameter values from natural language queries. --- --- /See:/ 'googleCloudDialogflowV2EntityType' smart constructor. -data GoogleCloudDialogflowV2EntityType = GoogleCloudDialogflowV2EntityType' - { _gcdvetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) - , _gcdvetKind :: !(Maybe GoogleCloudDialogflowV2EntityTypeKind) - , _gcdvetName :: !(Maybe Text) - , _gcdvetAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode) - , _gcdvetDisplayName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2EntityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvetEntities' --- --- * 'gcdvetKind' --- --- * 'gcdvetName' --- --- * 'gcdvetAutoExpansionMode' --- --- * 'gcdvetDisplayName' -googleCloudDialogflowV2EntityType - :: GoogleCloudDialogflowV2EntityType -googleCloudDialogflowV2EntityType = - GoogleCloudDialogflowV2EntityType' - { _gcdvetEntities = Nothing - , _gcdvetKind = Nothing - , _gcdvetName = Nothing - , _gcdvetAutoExpansionMode = Nothing - , _gcdvetDisplayName = Nothing - } - --- | Optional. The collection of entities associated with the entity type. -gcdvetEntities :: Lens' GoogleCloudDialogflowV2EntityType [GoogleCloudDialogflowV2EntityTypeEntity] -gcdvetEntities - = lens _gcdvetEntities - (\ s a -> s{_gcdvetEntities = a}) - . _Default - . _Coerce - --- | Required. Indicates the kind of entity type. -gcdvetKind :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeKind) -gcdvetKind - = lens _gcdvetKind (\ s a -> s{_gcdvetKind = a}) - --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of the entity type. Format: --- \`projects\/\/agent\/entityTypes\/\`. -gcdvetName :: Lens' GoogleCloudDialogflowV2EntityType (Maybe Text) -gcdvetName - = lens _gcdvetName (\ s a -> s{_gcdvetName = a}) - --- | Optional. Indicates whether the entity type can be automatically --- expanded. -gcdvetAutoExpansionMode :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode) -gcdvetAutoExpansionMode - = lens _gcdvetAutoExpansionMode - (\ s a -> s{_gcdvetAutoExpansionMode = a}) - --- | Required. The name of the entity type. -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]) - --- | Represents the natural language text to be processed. --- --- /See:/ 'googleCloudDialogflowV2TextInput' smart constructor. -data GoogleCloudDialogflowV2TextInput = GoogleCloudDialogflowV2TextInput' - { _gcdvtiLanguageCode :: !(Maybe Text) - , _gcdvtiText :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2TextInput' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvtiLanguageCode' --- --- * 'gcdvtiText' -googleCloudDialogflowV2TextInput - :: GoogleCloudDialogflowV2TextInput -googleCloudDialogflowV2TextInput = - GoogleCloudDialogflowV2TextInput' - { _gcdvtiLanguageCode = Nothing - , _gcdvtiText = Nothing - } - --- | Required. The language of this conversational query. See [Language --- Support](https:\/\/dialogflow.com\/docs\/languages) for a list of the --- currently supported language codes. Note that queries in the same --- session do not necessarily need to specify the same language. -gcdvtiLanguageCode :: Lens' GoogleCloudDialogflowV2TextInput (Maybe Text) -gcdvtiLanguageCode - = lens _gcdvtiLanguageCode - (\ s a -> s{_gcdvtiLanguageCode = a}) - --- | Required. The UTF-8 encoded natural language text to be processed. Text --- length must not exceed 256 characters. -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]) - --- | Opens the given URI. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction = GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' - { _gcdvimbcbouriaURI :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbcbouriaURI' -googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction - :: GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction -googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction = - GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' - { _gcdvimbcbouriaURI = Nothing - } - --- | Required. The HTTP or HTTPS scheme URI. -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]) - --- | The card response message. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageCard' smart constructor. -data GoogleCloudDialogflowV2IntentMessageCard = GoogleCloudDialogflowV2IntentMessageCard' - { _gcdvimccButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageCardButton]) - , _gcdvimccImageURI :: !(Maybe Text) - , _gcdvimccSubtitle :: !(Maybe Text) - , _gcdvimccTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCard' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimccButtons' --- --- * 'gcdvimccImageURI' --- --- * 'gcdvimccSubtitle' --- --- * 'gcdvimccTitle' -googleCloudDialogflowV2IntentMessageCard - :: GoogleCloudDialogflowV2IntentMessageCard -googleCloudDialogflowV2IntentMessageCard = - GoogleCloudDialogflowV2IntentMessageCard' - { _gcdvimccButtons = Nothing - , _gcdvimccImageURI = Nothing - , _gcdvimccSubtitle = Nothing - , _gcdvimccTitle = Nothing - } - --- | Optional. The collection of card buttons. -gcdvimccButtons :: Lens' GoogleCloudDialogflowV2IntentMessageCard [GoogleCloudDialogflowV2IntentMessageCardButton] -gcdvimccButtons - = lens _gcdvimccButtons - (\ s a -> s{_gcdvimccButtons = a}) - . _Default - . _Coerce - --- | Optional. The public URI to an image file for the card. -gcdvimccImageURI :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text) -gcdvimccImageURI - = lens _gcdvimccImageURI - (\ s a -> s{_gcdvimccImageURI = a}) - --- | Optional. The subtitle of the card. -gcdvimccSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text) -gcdvimccSubtitle - = lens _gcdvimccSubtitle - (\ s a -> s{_gcdvimccSubtitle = a}) - --- | Optional. The title of the card. -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]) - --- | Represents the contents of the original request that was passed to the --- \`[Streaming]DetectIntent\` call. --- --- /See:/ 'googleCloudDialogflowV2OriginalDetectIntentRequest' smart constructor. -data GoogleCloudDialogflowV2OriginalDetectIntentRequest = GoogleCloudDialogflowV2OriginalDetectIntentRequest' - { _gPayload :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload) - , _gVersion :: !(Maybe Text) - , _gSource :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2OriginalDetectIntentRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gPayload' --- --- * 'gVersion' --- --- * 'gSource' -googleCloudDialogflowV2OriginalDetectIntentRequest - :: GoogleCloudDialogflowV2OriginalDetectIntentRequest -googleCloudDialogflowV2OriginalDetectIntentRequest = - GoogleCloudDialogflowV2OriginalDetectIntentRequest' - { _gPayload = Nothing - , _gVersion = Nothing - , _gSource = Nothing - } - --- | Optional. This field is set to the value of the --- \`QueryParameters.payload\` field passed in the request. Some --- integrations that query a Dialogflow agent may provide additional --- information in the payload. In particular for the Telephony Gateway this --- field has the form: --- --- > { --- > "telephony": { --- > "caller_id": "+18558363987" --- > } --- > } --- --- Note: The caller ID field (\`caller_id\`) will be redacted for Standard --- Edition agents and populated with the caller ID in [E.164 --- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition --- agents. -gPayload :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload) -gPayload = lens _gPayload (\ s a -> s{_gPayload = a}) - --- | Optional. The version of the protocol used for this request. This field --- is AoG-specific. -gVersion :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe Text) -gVersion = lens _gVersion (\ s a -> s{_gVersion = a}) - --- | The source of this request, e.g., \`google\`, \`facebook\`, \`slack\`. --- It is set by Dialogflow-owned servers. -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]) - --- | The image response message. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageImage' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageImage = GoogleCloudDialogflowV2beta1IntentMessageImage' - { _gcdvimiAccessibilityText :: !(Maybe Text) - , _gcdvimiImageURI :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageImage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimiAccessibilityText' --- --- * 'gcdvimiImageURI' -googleCloudDialogflowV2beta1IntentMessageImage - :: GoogleCloudDialogflowV2beta1IntentMessageImage -googleCloudDialogflowV2beta1IntentMessageImage = - GoogleCloudDialogflowV2beta1IntentMessageImage' - { _gcdvimiAccessibilityText = Nothing - , _gcdvimiImageURI = Nothing - } - --- | A text description of the image to be used for accessibility, e.g., --- screen readers. Required if image_uri is set for CarouselSelect. -gcdvimiAccessibilityText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageImage (Maybe Text) -gcdvimiAccessibilityText - = lens _gcdvimiAccessibilityText - (\ s a -> s{_gcdvimiAccessibilityText = a}) - --- | Optional. The public URI to an image file. -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]) - --- | The response message for Agents.ExportAgent. --- --- /See:/ 'googleCloudDialogflowV2ExportAgentResponse' smart constructor. -data GoogleCloudDialogflowV2ExportAgentResponse = GoogleCloudDialogflowV2ExportAgentResponse' - { _gAgentURI :: !(Maybe Text) - , _gAgentContent :: !(Maybe Bytes) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ExportAgentResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gAgentURI' --- --- * 'gAgentContent' -googleCloudDialogflowV2ExportAgentResponse - :: GoogleCloudDialogflowV2ExportAgentResponse -googleCloudDialogflowV2ExportAgentResponse = - GoogleCloudDialogflowV2ExportAgentResponse' - { _gAgentURI = Nothing - , _gAgentContent = Nothing - } - --- | The URI to a file containing the exported agent. This field is populated --- only if \`agent_uri\` is specified in \`ExportAgentRequest\`. -gAgentURI :: Lens' GoogleCloudDialogflowV2ExportAgentResponse (Maybe Text) -gAgentURI - = lens _gAgentURI (\ s a -> s{_gAgentURI = a}) - --- | The exported agent. Example for how to export an agent to a zip file via --- a command line: --- --- > curl \ --- > 'https://dialogflow.googleapis.com/v2/projects//agent:export'\ --- > -X POST \ --- > -H 'Authorization: Bearer '$(gcloud auth application-default --- > print-access-token) \ --- > -H 'Accept: application/json' \ --- > -H 'Content-Type: application/json' \ --- > --compressed \ --- > --data-binary '{}' \ --- > | grep agentContent | sed -e 's/.*"agentContent": "\([^"]*\)".*/\1/' \ --- > | base64 --decode > -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]) - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_payload\`. See the related --- \`fulfillment_messages[i].payload field\`, which may be used as an --- alternative to this field. This field can be used for Actions on Google --- responses. It should have a structure similar to the JSON message shown --- here. For more information, see [Actions on Google Webhook --- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) --- --- > { --- > "google": { --- > "expectUserResponse": true, --- > "richResponse": { --- > "items": [ --- > { --- > "simpleResponse": { --- > "textToSpeech": "this is a simple response" --- > } --- > } --- > ] --- > } --- > } --- > } --- --- /See:/ 'googleCloudDialogflowV2WebhookResponsePayload' smart constructor. -newtype GoogleCloudDialogflowV2WebhookResponsePayload = GoogleCloudDialogflowV2WebhookResponsePayload' - { _gcdvwrpcAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2WebhookResponsePayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvwrpcAddtional' -googleCloudDialogflowV2WebhookResponsePayload - :: HashMap Text JSONValue -- ^ 'gcdvwrpcAddtional' - -> GoogleCloudDialogflowV2WebhookResponsePayload -googleCloudDialogflowV2WebhookResponsePayload pGcdvwrpcAddtional_ = - GoogleCloudDialogflowV2WebhookResponsePayload' - { _gcdvwrpcAddtional = _Coerce # pGcdvwrpcAddtional_ - } - --- | Properties of the object. -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 - --- | The suggestion chip message that allows the user to jump out to the app --- or website associated with this agent. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion = GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' - { _gURI :: !(Maybe Text) - , _gDestinationName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gURI' --- --- * 'gDestinationName' -googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion - :: GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion -googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion = - GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' - { _gURI = Nothing - , _gDestinationName = Nothing - } - --- | Required. The URI of the app or site to open when the user taps the --- suggestion chip. -gURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion (Maybe Text) -gURI = lens _gURI (\ s a -> s{_gURI = a}) - --- | Required. The name of the app or site this chip is linking to. -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]) - --- | The response message for Intents.ListIntents. --- --- /See:/ 'googleCloudDialogflowV2ListIntentsResponse' smart constructor. -data GoogleCloudDialogflowV2ListIntentsResponse = GoogleCloudDialogflowV2ListIntentsResponse' - { _gcdvlirIntents :: !(Maybe [GoogleCloudDialogflowV2Intent]) - , _gcdvlirNextPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ListIntentsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvlirIntents' --- --- * 'gcdvlirNextPageToken' -googleCloudDialogflowV2ListIntentsResponse - :: GoogleCloudDialogflowV2ListIntentsResponse -googleCloudDialogflowV2ListIntentsResponse = - GoogleCloudDialogflowV2ListIntentsResponse' - { _gcdvlirIntents = Nothing - , _gcdvlirNextPageToken = Nothing - } - --- | The list of agent intents. There will be a maximum number of items --- returned based on the page_size field in the request. -gcdvlirIntents :: Lens' GoogleCloudDialogflowV2ListIntentsResponse [GoogleCloudDialogflowV2Intent] -gcdvlirIntents - = lens _gcdvlirIntents - (\ s a -> s{_gcdvlirIntents = a}) - . _Default - . _Coerce - --- | Token to retrieve the next page of results, or empty if there are no --- more results in the list. -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]) - --- | The response message for EntityTypes.BatchUpdateEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2BatchUpdateEntityTypesResponse' smart constructor. -newtype GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse = GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' - { _gEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gEntityTypes' -googleCloudDialogflowV2BatchUpdateEntityTypesResponse - :: GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse -googleCloudDialogflowV2BatchUpdateEntityTypesResponse = - GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' - { _gEntityTypes = Nothing - } - --- | The collection of updated or created entity types. -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]) - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`payload\` field returned in the webhook response. --- --- /See:/ 'googleCloudDialogflowV2QueryResultWebhookPayload' smart constructor. -newtype GoogleCloudDialogflowV2QueryResultWebhookPayload = GoogleCloudDialogflowV2QueryResultWebhookPayload' - { _gcdvqrwpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2QueryResultWebhookPayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrwpAddtional' -googleCloudDialogflowV2QueryResultWebhookPayload - :: HashMap Text JSONValue -- ^ 'gcdvqrwpAddtional' - -> GoogleCloudDialogflowV2QueryResultWebhookPayload -googleCloudDialogflowV2QueryResultWebhookPayload pGcdvqrwpAddtional_ = - GoogleCloudDialogflowV2QueryResultWebhookPayload' - { _gcdvqrwpAddtional = _Coerce # pGcdvqrwpAddtional_ - } - --- | Properties of the object. -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 - --- | Represents intent parameters. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentParameter' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentParameter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvipValue' --- --- * 'gcdvipName' --- --- * 'gcdvipPrompts' --- --- * 'gcdvipMandatory' --- --- * 'gcdvipDisplayName' --- --- * 'gcdvipDefaultValue' --- --- * 'gcdvipIsList' --- --- * 'gcdvipEntityTypeDisplayName' -googleCloudDialogflowV2beta1IntentParameter - :: GoogleCloudDialogflowV2beta1IntentParameter -googleCloudDialogflowV2beta1IntentParameter = - GoogleCloudDialogflowV2beta1IntentParameter' - { _gcdvipValue = Nothing - , _gcdvipName = Nothing - , _gcdvipPrompts = Nothing - , _gcdvipMandatory = Nothing - , _gcdvipDisplayName = Nothing - , _gcdvipDefaultValue = Nothing - , _gcdvipIsList = Nothing - , _gcdvipEntityTypeDisplayName = Nothing - } - --- | Optional. The definition of the parameter value. It can be: - a constant --- string, - a parameter value defined as --- \`$parameter_name\`, - an original parameter value defined as \`$parameter_name.original\`, --- - a parameter value from some context defined as --- \`#context_name.parameter_name\`. -gcdvipValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) -gcdvipValue - = lens _gcdvipValue (\ s a -> s{_gcdvipValue = a}) - --- | The unique identifier of this parameter. -gcdvipName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) -gcdvipName - = lens _gcdvipName (\ s a -> s{_gcdvipName = a}) - --- | Optional. The collection of prompts that the agent can present to the --- user in order to collect value for the parameter. -gcdvipPrompts :: Lens' GoogleCloudDialogflowV2beta1IntentParameter [Text] -gcdvipPrompts - = lens _gcdvipPrompts - (\ s a -> s{_gcdvipPrompts = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether the parameter is required. That is, whether --- the intent cannot be completed without collecting the parameter value. -gcdvipMandatory :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool) -gcdvipMandatory - = lens _gcdvipMandatory - (\ s a -> s{_gcdvipMandatory = a}) - --- | Required. The name of the parameter. -gcdvipDisplayName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) -gcdvipDisplayName - = lens _gcdvipDisplayName - (\ s a -> s{_gcdvipDisplayName = a}) - --- | Optional. The default value to use when the \`value\` yields an empty --- result. Default values can be extracted from contexts by using the --- following syntax: \`#context_name.parameter_name\`. -gcdvipDefaultValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) -gcdvipDefaultValue - = lens _gcdvipDefaultValue - (\ s a -> s{_gcdvipDefaultValue = a}) - --- | Optional. Indicates whether the parameter represents a list of values. -gcdvipIsList :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool) -gcdvipIsList - = lens _gcdvipIsList (\ s a -> s{_gcdvipIsList = a}) - --- | Optional. The name of the entity type, prefixed with \`\'\`, that --- describes values of the parameter. If the parameter is required, this --- must be provided. -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]) - --- | Represents intent parameters. --- --- /See:/ 'googleCloudDialogflowV2IntentParameter' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentParameter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvipcValue' --- --- * 'gcdvipcName' --- --- * 'gcdvipcPrompts' --- --- * 'gcdvipcMandatory' --- --- * 'gcdvipcDisplayName' --- --- * 'gcdvipcDefaultValue' --- --- * 'gcdvipcIsList' --- --- * 'gcdvipcEntityTypeDisplayName' -googleCloudDialogflowV2IntentParameter - :: GoogleCloudDialogflowV2IntentParameter -googleCloudDialogflowV2IntentParameter = - GoogleCloudDialogflowV2IntentParameter' - { _gcdvipcValue = Nothing - , _gcdvipcName = Nothing - , _gcdvipcPrompts = Nothing - , _gcdvipcMandatory = Nothing - , _gcdvipcDisplayName = Nothing - , _gcdvipcDefaultValue = Nothing - , _gcdvipcIsList = Nothing - , _gcdvipcEntityTypeDisplayName = Nothing - } - --- | Optional. The definition of the parameter value. It can be: - a constant --- string, - a parameter value defined as --- \`$parameter_name\`, - an original parameter value defined as \`$parameter_name.original\`, --- - a parameter value from some context defined as --- \`#context_name.parameter_name\`. -gcdvipcValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) -gcdvipcValue - = lens _gcdvipcValue (\ s a -> s{_gcdvipcValue = a}) - --- | The unique identifier of this parameter. -gcdvipcName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) -gcdvipcName - = lens _gcdvipcName (\ s a -> s{_gcdvipcName = a}) - --- | Optional. The collection of prompts that the agent can present to the --- user in order to collect value for the parameter. -gcdvipcPrompts :: Lens' GoogleCloudDialogflowV2IntentParameter [Text] -gcdvipcPrompts - = lens _gcdvipcPrompts - (\ s a -> s{_gcdvipcPrompts = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether the parameter is required. That is, whether --- the intent cannot be completed without collecting the parameter value. -gcdvipcMandatory :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool) -gcdvipcMandatory - = lens _gcdvipcMandatory - (\ s a -> s{_gcdvipcMandatory = a}) - --- | Required. The name of the parameter. -gcdvipcDisplayName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) -gcdvipcDisplayName - = lens _gcdvipcDisplayName - (\ s a -> s{_gcdvipcDisplayName = a}) - --- | Optional. The default value to use when the \`value\` yields an empty --- result. Default values can be extracted from contexts by using the --- following syntax: \`#context_name.parameter_name\`. -gcdvipcDefaultValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) -gcdvipcDefaultValue - = lens _gcdvipcDefaultValue - (\ s a -> s{_gcdvipcDefaultValue = a}) - --- | Optional. Indicates whether the parameter represents a list of values. -gcdvipcIsList :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool) -gcdvipcIsList - = lens _gcdvipcIsList - (\ s a -> s{_gcdvipcIsList = a}) - --- | Optional. The name of the entity type, prefixed with \`\'\`, that --- describes values of the parameter. If the parameter is required, this --- must be provided. -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]) - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`payload\` field returned in the webhook response. --- --- /See:/ 'googleCloudDialogflowV2beta1QueryResultWebhookPayload' smart constructor. -newtype GoogleCloudDialogflowV2beta1QueryResultWebhookPayload = GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' - { _gcdvqrwpcAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvqrwpcAddtional' -googleCloudDialogflowV2beta1QueryResultWebhookPayload - :: HashMap Text JSONValue -- ^ 'gcdvqrwpcAddtional' - -> GoogleCloudDialogflowV2beta1QueryResultWebhookPayload -googleCloudDialogflowV2beta1QueryResultWebhookPayload pGcdvqrwpcAddtional_ = - GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' - { _gcdvqrwpcAddtional = _Coerce # pGcdvqrwpcAddtional_ - } - --- | Properties of the object. -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 - --- | Represents a part of a training phrase. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentTrainingPhrasePart' smart constructor. -data GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart = GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' - { _gcdvitppcText :: !(Maybe Text) - , _gcdvitppcUserDefined :: !(Maybe Bool) - , _gcdvitppcEntityType :: !(Maybe Text) - , _gcdvitppcAlias :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvitppcText' --- --- * 'gcdvitppcUserDefined' --- --- * 'gcdvitppcEntityType' --- --- * 'gcdvitppcAlias' -googleCloudDialogflowV2beta1IntentTrainingPhrasePart - :: GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart -googleCloudDialogflowV2beta1IntentTrainingPhrasePart = - GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' - { _gcdvitppcText = Nothing - , _gcdvitppcUserDefined = Nothing - , _gcdvitppcEntityType = Nothing - , _gcdvitppcAlias = Nothing - } - --- | Required. The text corresponding to the example or template, if there --- are no annotations. For annotated examples, it is the text for one of --- the example\'s parts. -gcdvitppcText :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text) -gcdvitppcText - = lens _gcdvitppcText - (\ s a -> s{_gcdvitppcText = a}) - --- | Optional. Indicates whether the text was manually annotated by the --- developer. -gcdvitppcUserDefined :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Bool) -gcdvitppcUserDefined - = lens _gcdvitppcUserDefined - (\ s a -> s{_gcdvitppcUserDefined = a}) - --- | Optional. The entity type name prefixed with \`\'\`. This field is --- required for the annotated part of the text and applies only to --- examples. -gcdvitppcEntityType :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text) -gcdvitppcEntityType - = lens _gcdvitppcEntityType - (\ s a -> s{_gcdvitppcEntityType = a}) - --- | Optional. The parameter name for the value extracted from the annotated --- part of the example. -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]) - --- | The response message for Contexts.ListContexts. --- --- /See:/ 'googleCloudDialogflowV2ListContextsResponse' smart constructor. -data GoogleCloudDialogflowV2ListContextsResponse = GoogleCloudDialogflowV2ListContextsResponse' - { _gcdvlcrContexts :: !(Maybe [GoogleCloudDialogflowV2Context]) - , _gcdvlcrNextPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ListContextsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvlcrContexts' --- --- * 'gcdvlcrNextPageToken' -googleCloudDialogflowV2ListContextsResponse - :: GoogleCloudDialogflowV2ListContextsResponse -googleCloudDialogflowV2ListContextsResponse = - GoogleCloudDialogflowV2ListContextsResponse' - { _gcdvlcrContexts = Nothing - , _gcdvlcrNextPageToken = Nothing - } - --- | The list of contexts. There will be a maximum number of items returned --- based on the page_size field in the request. -gcdvlcrContexts :: Lens' GoogleCloudDialogflowV2ListContextsResponse [GoogleCloudDialogflowV2Context] -gcdvlcrContexts - = lens _gcdvlcrContexts - (\ s a -> s{_gcdvlcrContexts = a}) - . _Default - . _Coerce - --- | Token to retrieve the next page of results, or empty if there are no --- more results in the list. -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]) - --- | Transfers the call in Telephony Gateway. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' smart constructor. -newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall = GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' - { _gcdvimttcPhoneNumber :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimttcPhoneNumber' -googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall - :: GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall -googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall = - GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' - { _gcdvimttcPhoneNumber = Nothing - } - --- | Required. The phone number to transfer the call to in [E.164 --- format](https:\/\/en.wikipedia.org\/wiki\/E.164). We currently only --- allow transferring to US numbers (+1xxxyyyzzzz). -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]) - --- | The response message for Agents.ExportAgent. --- --- /See:/ 'googleCloudDialogflowV2beta1ExportAgentResponse' smart constructor. -data GoogleCloudDialogflowV2beta1ExportAgentResponse = GoogleCloudDialogflowV2beta1ExportAgentResponse' - { _gooAgentURI :: !(Maybe Text) - , _gooAgentContent :: !(Maybe Bytes) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1ExportAgentResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooAgentURI' --- --- * 'gooAgentContent' -googleCloudDialogflowV2beta1ExportAgentResponse - :: GoogleCloudDialogflowV2beta1ExportAgentResponse -googleCloudDialogflowV2beta1ExportAgentResponse = - GoogleCloudDialogflowV2beta1ExportAgentResponse' - { _gooAgentURI = Nothing - , _gooAgentContent = Nothing - } - --- | The URI to a file containing the exported agent. This field is populated --- only if \`agent_uri\` is specified in \`ExportAgentRequest\`. -gooAgentURI :: Lens' GoogleCloudDialogflowV2beta1ExportAgentResponse (Maybe Text) -gooAgentURI - = lens _gooAgentURI (\ s a -> s{_gooAgentURI = a}) - --- | The exported agent. Example for how to export an agent to a zip file via --- a command line: --- --- > curl \ --- > 'https://dialogflow.googleapis.com/v2beta1/projects//agent:export'\ --- > -X POST \ --- > -H 'Authorization: Bearer '$(gcloud auth application-default --- > print-access-token) \ --- > -H 'Accept: application/json' \ --- > -H 'Content-Type: application/json' \ --- > --compressed \ --- > --data-binary '{}' \ --- > | grep agentContent | sed -e 's/.*"agentContent": "\([^"]*\)".*/\1/' \ --- > | base64 --decode > -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]) - --- | Optional. This field is set to the value of the --- \`QueryParameters.payload\` field passed in the request. Some --- integrations that query a Dialogflow agent may provide additional --- information in the payload. In particular for the Telephony Gateway this --- field has the form: --- --- > { --- > "telephony": { --- > "caller_id": "+18558363987" --- > } --- > } --- --- Note: The caller ID field (\`caller_id\`) will be redacted for Standard --- Edition agents and populated with the caller ID in [E.164 --- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition --- agents. --- --- /See:/ 'googleCloudDialogflowV2OriginalDetectIntentRequestPayload' smart constructor. -newtype GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload = GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' - { _gcdvodirpcAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvodirpcAddtional' -googleCloudDialogflowV2OriginalDetectIntentRequestPayload - :: HashMap Text JSONValue -- ^ 'gcdvodirpcAddtional' - -> GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload -googleCloudDialogflowV2OriginalDetectIntentRequestPayload pGcdvodirpcAddtional_ = - GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' - { _gcdvodirpcAddtional = _Coerce # pGcdvodirpcAddtional_ - } - --- | Properties of the object. -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 - --- | Represents a session entity type. Extends or replaces a developer entity --- type at the user session level (we refer to the entity types defined at --- the agent level as \"developer entity types\"). Note: session entity --- types apply to all queries, regardless of the language. --- --- /See:/ 'googleCloudDialogflowV2SessionEntityType' smart constructor. -data GoogleCloudDialogflowV2SessionEntityType = GoogleCloudDialogflowV2SessionEntityType' - { _gcdvSetEntityOverrideMode :: !(Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode) - , _gcdvSetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) - , _gcdvSetName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2SessionEntityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvSetEntityOverrideMode' --- --- * 'gcdvSetEntities' --- --- * 'gcdvSetName' -googleCloudDialogflowV2SessionEntityType - :: GoogleCloudDialogflowV2SessionEntityType -googleCloudDialogflowV2SessionEntityType = - GoogleCloudDialogflowV2SessionEntityType' - { _gcdvSetEntityOverrideMode = Nothing - , _gcdvSetEntities = Nothing - , _gcdvSetName = Nothing - } - --- | Required. Indicates whether the additional data should override or --- supplement the developer entity type definition. -gcdvSetEntityOverrideMode :: Lens' GoogleCloudDialogflowV2SessionEntityType (Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode) -gcdvSetEntityOverrideMode - = lens _gcdvSetEntityOverrideMode - (\ s a -> s{_gcdvSetEntityOverrideMode = a}) - --- | Required. The collection of entities associated with this session entity --- type. -gcdvSetEntities :: Lens' GoogleCloudDialogflowV2SessionEntityType [GoogleCloudDialogflowV2EntityTypeEntity] -gcdvSetEntities - = lens _gcdvSetEntities - (\ s a -> s{_gcdvSetEntities = a}) - . _Default - . _Coerce - --- | Required. The unique identifier of this session entity type. Format: --- \`projects\/\/agent\/sessions\/\/entityTypes\/\`. \`\` must be the --- display name of an existing entity type in the same agent that will be --- overridden or supplemented. -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]) - --- | Optional. Represents an entity. --- --- /See:/ 'googleCloudDialogflowV2EntityTypeEntity' smart constructor. -data GoogleCloudDialogflowV2EntityTypeEntity = GoogleCloudDialogflowV2EntityTypeEntity' - { _gValue :: !(Maybe Text) - , _gSynonyms :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2EntityTypeEntity' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gValue' --- --- * 'gSynonyms' -googleCloudDialogflowV2EntityTypeEntity - :: GoogleCloudDialogflowV2EntityTypeEntity -googleCloudDialogflowV2EntityTypeEntity = - GoogleCloudDialogflowV2EntityTypeEntity' - { _gValue = Nothing - , _gSynonyms = Nothing - } - --- | Required. For \`KIND_MAP\` entity types: A canonical name to be used in --- place of synonyms. For \`KIND_LIST\` entity types: A string that can --- contain references to other entity types (with or without aliases). -gValue :: Lens' GoogleCloudDialogflowV2EntityTypeEntity (Maybe Text) -gValue = lens _gValue (\ s a -> s{_gValue = a}) - --- | Required. A collection of synonyms. For \`KIND_LIST\` entity types this --- must contain exactly one synonym equal to \`value\`. -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]) - --- | Represents the result of conversational query or event processing. --- --- /See:/ 'googleCloudDialogflowV2beta1QueryResult' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResult' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gLanguageCode' --- --- * 'gAllRequiredParamsPresent' --- --- * 'gIntentDetectionConfidence' --- --- * 'gFulfillmentMessages' --- --- * 'gKnowledgeAnswers' --- --- * 'gSpeechRecognitionConfidence' --- --- * 'gAction' --- --- * 'gIntent' --- --- * 'gSentimentAnalysisResult' --- --- * 'gQueryText' --- --- * 'gFulfillmentText' --- --- * 'gParameters' --- --- * 'gWebhookPayload' --- --- * 'gOutputContexts' --- --- * 'gWebhookSource' --- --- * 'gDiagnosticInfo' -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 - } - --- | The language that was triggered during intent detection. See [Language --- Support](https:\/\/dialogflow.com\/docs\/reference\/language) for a list --- of the currently supported language codes. -gLanguageCode :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) -gLanguageCode - = lens _gLanguageCode - (\ s a -> s{_gLanguageCode = a}) - --- | This field is set to: - \`false\` if the matched intent has required --- parameters and not all of the required parameter values have been --- collected. - \`true\` if all required parameter values have been --- collected, or if the matched intent doesn\'t contain any required --- parameters. -gAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Bool) -gAllRequiredParamsPresent - = lens _gAllRequiredParamsPresent - (\ s a -> s{_gAllRequiredParamsPresent = a}) - --- | The intent detection confidence. Values range from 0.0 (completely --- uncertain) to 1.0 (completely certain). If there are \`multiple --- knowledge_answers\` messages, this value is set to the greatest --- \`knowledgeAnswers.match_confidence\` value in the list. -gIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double) -gIntentDetectionConfidence - = lens _gIntentDetectionConfidence - (\ s a -> s{_gIntentDetectionConfidence = a}) - . mapping _Coerce - --- | The collection of rich messages to present to the user. -gFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1IntentMessage] -gFulfillmentMessages - = lens _gFulfillmentMessages - (\ s a -> s{_gFulfillmentMessages = a}) - . _Default - . _Coerce - --- | The result from Knowledge Connector (if any), ordered by decreasing --- \`KnowledgeAnswers.match_confidence\`. -gKnowledgeAnswers :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswers) -gKnowledgeAnswers - = lens _gKnowledgeAnswers - (\ s a -> s{_gKnowledgeAnswers = a}) - --- | The Speech recognition confidence between 0.0 and 1.0. A higher number --- indicates an estimated greater likelihood that the recognized words are --- correct. The default of 0.0 is a sentinel value indicating that --- confidence was not set. This field is not guaranteed to be accurate or --- set. In particular this field isn\'t set for StreamingDetectIntent since --- the streaming endpoint has separate confidence estimates per portion of --- the audio in StreamingRecognitionResult. -gSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double) -gSpeechRecognitionConfidence - = lens _gSpeechRecognitionConfidence - (\ s a -> s{_gSpeechRecognitionConfidence = a}) - . mapping _Coerce - --- | The action name from the matched intent. -gAction :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) -gAction = lens _gAction (\ s a -> s{_gAction = a}) - --- | The intent that matched the conversational query. Some, not all fields --- are filled in this message, including but not limited to: \`name\`, --- \`display_name\` and \`webhook_state\`. -gIntent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1Intent) -gIntent = lens _gIntent (\ s a -> s{_gIntent = a}) - --- | The sentiment analysis result, which depends on the --- \`sentiment_analysis_request_config\` specified in the request. -gSentimentAnalysisResult :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1SentimentAnalysisResult) -gSentimentAnalysisResult - = lens _gSentimentAnalysisResult - (\ s a -> s{_gSentimentAnalysisResult = a}) - --- | The original conversational query text: - If natural language text was --- provided as input, \`query_text\` contains a copy of the input. - If --- natural language speech audio was provided as input, \`query_text\` --- contains the speech recognition result. If speech recognizer produced --- multiple alternatives, a particular one is picked. - If an event was --- provided as input, \`query_text\` is not set. -gQueryText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) -gQueryText - = lens _gQueryText (\ s a -> s{_gQueryText = a}) - --- | The text to be pronounced to the user or shown on the screen. -gFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) -gFulfillmentText - = lens _gFulfillmentText - (\ s a -> s{_gFulfillmentText = a}) - --- | The collection of extracted parameters. -gParameters :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultParameters) -gParameters - = lens _gParameters (\ s a -> s{_gParameters = a}) - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`payload\` field returned in the webhook response. -gWebhookPayload :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultWebhookPayload) -gWebhookPayload - = lens _gWebhookPayload - (\ s a -> s{_gWebhookPayload = a}) - --- | The collection of output contexts. If applicable, --- \`output_contexts.parameters\` contains entries with name \`.original\` --- containing the original parameter values before the query. -gOutputContexts :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1Context] -gOutputContexts - = lens _gOutputContexts - (\ s a -> s{_gOutputContexts = a}) - . _Default - . _Coerce - --- | If the query was fulfilled by a webhook call, this field is set to the --- value of the \`source\` field returned in the webhook response. -gWebhookSource :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) -gWebhookSource - = lens _gWebhookSource - (\ s a -> s{_gWebhookSource = a}) - --- | The free-form diagnostic info. For example, this field could contain --- webhook call latency. The string keys of the Struct\'s fields map can --- change without notice. -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]) - --- | The image response message. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageImage' smart constructor. -data GoogleCloudDialogflowV2IntentMessageImage = GoogleCloudDialogflowV2IntentMessageImage' - { _gAccessibilityText :: !(Maybe Text) - , _gImageURI :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageImage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gAccessibilityText' --- --- * 'gImageURI' -googleCloudDialogflowV2IntentMessageImage - :: GoogleCloudDialogflowV2IntentMessageImage -googleCloudDialogflowV2IntentMessageImage = - GoogleCloudDialogflowV2IntentMessageImage' - { _gAccessibilityText = Nothing - , _gImageURI = Nothing - } - --- | Optional. A text description of the image to be used for accessibility, --- e.g., screen readers. -gAccessibilityText :: Lens' GoogleCloudDialogflowV2IntentMessageImage (Maybe Text) -gAccessibilityText - = lens _gAccessibilityText - (\ s a -> s{_gAccessibilityText = a}) - --- | Optional. The public URI to an image file. -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]) - --- | The response message for a webhook call. --- --- /See:/ 'googleCloudDialogflowV2WebhookResponse' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2WebhookResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooFulfillmentMessages' --- --- * 'gooPayload' --- --- * 'gooFulfillmentText' --- --- * 'gooSource' --- --- * 'gooOutputContexts' --- --- * 'gooFollowupEventInput' -googleCloudDialogflowV2WebhookResponse - :: GoogleCloudDialogflowV2WebhookResponse -googleCloudDialogflowV2WebhookResponse = - GoogleCloudDialogflowV2WebhookResponse' - { _gooFulfillmentMessages = Nothing - , _gooPayload = Nothing - , _gooFulfillmentText = Nothing - , _gooSource = Nothing - , _gooOutputContexts = Nothing - , _gooFollowupEventInput = Nothing - } - --- | Optional. The collection of rich messages to present to the user. This --- value is passed directly to \`QueryResult.fulfillment_messages\`. -gooFulfillmentMessages :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2IntentMessage] -gooFulfillmentMessages - = lens _gooFulfillmentMessages - (\ s a -> s{_gooFulfillmentMessages = a}) - . _Default - . _Coerce - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_payload\`. See the related --- \`fulfillment_messages[i].payload field\`, which may be used as an --- alternative to this field. This field can be used for Actions on Google --- responses. It should have a structure similar to the JSON message shown --- here. For more information, see [Actions on Google Webhook --- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) --- --- > { --- > "google": { --- > "expectUserResponse": true, --- > "richResponse": { --- > "items": [ --- > { --- > "simpleResponse": { --- > "textToSpeech": "this is a simple response" --- > } --- > } --- > ] --- > } --- > } --- > } -gooPayload :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe GoogleCloudDialogflowV2WebhookResponsePayload) -gooPayload - = lens _gooPayload (\ s a -> s{_gooPayload = a}) - --- | Optional. The text to be shown on the screen. This value is passed --- directly to \`QueryResult.fulfillment_text\`. -gooFulfillmentText :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text) -gooFulfillmentText - = lens _gooFulfillmentText - (\ s a -> s{_gooFulfillmentText = a}) - --- | Optional. This value is passed directly to --- \`QueryResult.webhook_source\`. -gooSource :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text) -gooSource - = lens _gooSource (\ s a -> s{_gooSource = a}) - --- | Optional. The collection of output contexts. This value is passed --- directly to \`QueryResult.output_contexts\`. -gooOutputContexts :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2Context] -gooOutputContexts - = lens _gooOutputContexts - (\ s a -> s{_gooOutputContexts = a}) - . _Default - . _Coerce - --- | Optional. Makes the platform immediately invoke another \`DetectIntent\` --- call internally with the specified event as input. -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]) - --- | The request message for Agents.TrainAgent. --- --- /See:/ 'googleCloudDialogflowV2TrainAgentRequest' smart constructor. -data GoogleCloudDialogflowV2TrainAgentRequest = - GoogleCloudDialogflowV2TrainAgentRequest' - deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2TrainAgentRequest' with the minimum fields required to make a request. --- -googleCloudDialogflowV2TrainAgentRequest - :: GoogleCloudDialogflowV2TrainAgentRequest -googleCloudDialogflowV2TrainAgentRequest = - GoogleCloudDialogflowV2TrainAgentRequest' - -instance FromJSON - GoogleCloudDialogflowV2TrainAgentRequest where - parseJSON - = withObject - "GoogleCloudDialogflowV2TrainAgentRequest" - (\ o -> - pure GoogleCloudDialogflowV2TrainAgentRequest') - -instance ToJSON - GoogleCloudDialogflowV2TrainAgentRequest where - toJSON = const emptyObject - --- | This message is a wrapper around a collection of intents. --- --- /See:/ 'googleCloudDialogflowV2IntentBatch' smart constructor. -newtype GoogleCloudDialogflowV2IntentBatch = GoogleCloudDialogflowV2IntentBatch' - { _gcdvibIntents :: Maybe [GoogleCloudDialogflowV2Intent] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentBatch' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvibIntents' -googleCloudDialogflowV2IntentBatch - :: GoogleCloudDialogflowV2IntentBatch -googleCloudDialogflowV2IntentBatch = - GoogleCloudDialogflowV2IntentBatch' - { _gcdvibIntents = Nothing - } - --- | A collection of intents. -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]) - --- | Represents an entity type. Entity types serve as a tool for extracting --- parameter values from natural language queries. --- --- /See:/ 'googleCloudDialogflowV2beta1EntityType' smart constructor. -data GoogleCloudDialogflowV2beta1EntityType = GoogleCloudDialogflowV2beta1EntityType' - { _gcdvetcEntities :: !(Maybe [GoogleCloudDialogflowV2beta1EntityTypeEntity]) - , _gcdvetcKind :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeKind) - , _gcdvetcName :: !(Maybe Text) - , _gcdvetcAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode) - , _gcdvetcDisplayName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1EntityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvetcEntities' --- --- * 'gcdvetcKind' --- --- * 'gcdvetcName' --- --- * 'gcdvetcAutoExpansionMode' --- --- * 'gcdvetcDisplayName' -googleCloudDialogflowV2beta1EntityType - :: GoogleCloudDialogflowV2beta1EntityType -googleCloudDialogflowV2beta1EntityType = - GoogleCloudDialogflowV2beta1EntityType' - { _gcdvetcEntities = Nothing - , _gcdvetcKind = Nothing - , _gcdvetcName = Nothing - , _gcdvetcAutoExpansionMode = Nothing - , _gcdvetcDisplayName = Nothing - } - --- | Optional. The collection of entities associated with the entity type. -gcdvetcEntities :: Lens' GoogleCloudDialogflowV2beta1EntityType [GoogleCloudDialogflowV2beta1EntityTypeEntity] -gcdvetcEntities - = lens _gcdvetcEntities - (\ s a -> s{_gcdvetcEntities = a}) - . _Default - . _Coerce - --- | Required. Indicates the kind of entity type. -gcdvetcKind :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeKind) -gcdvetcKind - = lens _gcdvetcKind (\ s a -> s{_gcdvetcKind = a}) - --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of the entity type. Format: --- \`projects\/\/agent\/entityTypes\/\`. -gcdvetcName :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe Text) -gcdvetcName - = lens _gcdvetcName (\ s a -> s{_gcdvetcName = a}) - --- | Optional. Indicates whether the entity type can be automatically --- expanded. -gcdvetcAutoExpansionMode :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode) -gcdvetcAutoExpansionMode - = lens _gcdvetcAutoExpansionMode - (\ s a -> s{_gcdvetcAutoExpansionMode = a}) - --- | Required. The name of the entity type. -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]) - --- | The response message for Agents.SearchAgents. --- --- /See:/ 'googleCloudDialogflowV2SearchAgentsResponse' smart constructor. -data GoogleCloudDialogflowV2SearchAgentsResponse = GoogleCloudDialogflowV2SearchAgentsResponse' - { _gcdvsarNextPageToken :: !(Maybe Text) - , _gcdvsarAgents :: !(Maybe [GoogleCloudDialogflowV2Agent]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2SearchAgentsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvsarNextPageToken' --- --- * 'gcdvsarAgents' -googleCloudDialogflowV2SearchAgentsResponse - :: GoogleCloudDialogflowV2SearchAgentsResponse -googleCloudDialogflowV2SearchAgentsResponse = - GoogleCloudDialogflowV2SearchAgentsResponse' - { _gcdvsarNextPageToken = Nothing - , _gcdvsarAgents = Nothing - } - --- | Token to retrieve the next page of results, or empty if there are no --- more results in the list. -gcdvsarNextPageToken :: Lens' GoogleCloudDialogflowV2SearchAgentsResponse (Maybe Text) -gcdvsarNextPageToken - = lens _gcdvsarNextPageToken - (\ s a -> s{_gcdvsarNextPageToken = a}) - --- | The list of agents. There will be a maximum number of items returned --- based on the page_size field in the request. -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]) - --- | The response message for SessionEntityTypes.ListSessionEntityTypes. --- --- /See:/ 'googleCloudDialogflowV2ListSessionEntityTypesResponse' smart constructor. -data GoogleCloudDialogflowV2ListSessionEntityTypesResponse = GoogleCloudDialogflowV2ListSessionEntityTypesResponse' - { _gcdvlSetrNextPageToken :: !(Maybe Text) - , _gcdvlSetrSessionEntityTypes :: !(Maybe [GoogleCloudDialogflowV2SessionEntityType]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2ListSessionEntityTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvlSetrNextPageToken' --- --- * 'gcdvlSetrSessionEntityTypes' -googleCloudDialogflowV2ListSessionEntityTypesResponse - :: GoogleCloudDialogflowV2ListSessionEntityTypesResponse -googleCloudDialogflowV2ListSessionEntityTypesResponse = - GoogleCloudDialogflowV2ListSessionEntityTypesResponse' - { _gcdvlSetrNextPageToken = Nothing - , _gcdvlSetrSessionEntityTypes = Nothing - } - --- | Token to retrieve the next page of results, or empty if there are no --- more results in the list. -gcdvlSetrNextPageToken :: Lens' GoogleCloudDialogflowV2ListSessionEntityTypesResponse (Maybe Text) -gcdvlSetrNextPageToken - = lens _gcdvlSetrNextPageToken - (\ s a -> s{_gcdvlSetrNextPageToken = a}) - --- | The list of session entity types. There will be a maximum number of --- items returned based on the page_size field in the request. -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]) - --- | This resource represents a long-running operation that is the result of --- a network API call. --- --- /See:/ 'googleLongrunningOperation' smart constructor. -data GoogleLongrunningOperation = GoogleLongrunningOperation' - { _gloDone :: !(Maybe Bool) - , _gloError :: !(Maybe GoogleRpcStatus) - , _gloResponse :: !(Maybe GoogleLongrunningOperationResponse) - , _gloName :: !(Maybe Text) - , _gloMetadata :: !(Maybe GoogleLongrunningOperationMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleLongrunningOperation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gloDone' --- --- * 'gloError' --- --- * 'gloResponse' --- --- * 'gloName' --- --- * 'gloMetadata' -googleLongrunningOperation - :: GoogleLongrunningOperation -googleLongrunningOperation = - GoogleLongrunningOperation' - { _gloDone = Nothing - , _gloError = Nothing - , _gloResponse = Nothing - , _gloName = Nothing - , _gloMetadata = Nothing - } - --- | If the value is \`false\`, it means the operation is still in progress. --- If \`true\`, the operation is completed, and either \`error\` or --- \`response\` is available. -gloDone :: Lens' GoogleLongrunningOperation (Maybe Bool) -gloDone = lens _gloDone (\ s a -> s{_gloDone = a}) - --- | The error result of the operation in case of failure or cancellation. -gloError :: Lens' GoogleLongrunningOperation (Maybe GoogleRpcStatus) -gloError = lens _gloError (\ s a -> s{_gloError = a}) - --- | The normal response of the operation in case of success. If the original --- method returns no data on success, such as \`Delete\`, the response is --- \`google.protobuf.Empty\`. If the original method is standard --- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource. --- For other methods, the response should have the type \`XxxResponse\`, --- where \`Xxx\` is the original method name. For example, if the original --- method name is \`TakeSnapshot()\`, the inferred response type is --- \`TakeSnapshotResponse\`. -gloResponse :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationResponse) -gloResponse - = lens _gloResponse (\ s a -> s{_gloResponse = a}) - --- | The server-assigned name, which is only unique within the same service --- that originally returns it. If you use the default HTTP mapping, the --- \`name\` should have the format of \`operations\/some\/unique\/name\`. -gloName :: Lens' GoogleLongrunningOperation (Maybe Text) -gloName = lens _gloName (\ s a -> s{_gloName = a}) - --- | Service-specific metadata associated with the operation. It typically --- contains progress information and common metadata such as create time. --- Some services might not provide such metadata. Any method that returns a --- long-running operation should document the metadata type, if any. -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]) - --- | Corresponds to the \`Response\` field in the Dialogflow console. --- --- /See:/ 'googleCloudDialogflowV2IntentMessage' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimcCard' --- --- * 'gcdvimcImage' --- --- * 'gcdvimcPlatform' --- --- * 'gcdvimcLinkOutSuggestion' --- --- * 'gcdvimcText' --- --- * 'gcdvimcCarouselSelect' --- --- * 'gcdvimcSimpleResponses' --- --- * 'gcdvimcPayload' --- --- * 'gcdvimcSuggestions' --- --- * 'gcdvimcListSelect' --- --- * 'gcdvimcBasicCard' --- --- * 'gcdvimcQuickReplies' -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 - } - --- | The card response. -gcdvimcCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCard) -gcdvimcCard - = lens _gcdvimcCard (\ s a -> s{_gcdvimcCard = a}) - --- | The image response. -gcdvimcImage :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageImage) -gcdvimcImage - = lens _gcdvimcImage (\ s a -> s{_gcdvimcImage = a}) - --- | Optional. The platform that this message is intended for. -gcdvimcPlatform :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePlatform) -gcdvimcPlatform - = lens _gcdvimcPlatform - (\ s a -> s{_gcdvimcPlatform = a}) - --- | The link out suggestion chip for Actions on Google. -gcdvimcLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion) -gcdvimcLinkOutSuggestion - = lens _gcdvimcLinkOutSuggestion - (\ s a -> s{_gcdvimcLinkOutSuggestion = a}) - --- | The text response. -gcdvimcText :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageText) -gcdvimcText - = lens _gcdvimcText (\ s a -> s{_gcdvimcText = a}) - --- | The carousel card response for Actions on Google. -gcdvimcCarouselSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCarouselSelect) -gcdvimcCarouselSelect - = lens _gcdvimcCarouselSelect - (\ s a -> s{_gcdvimcCarouselSelect = a}) - --- | The voice and text-only responses for Actions on Google. -gcdvimcSimpleResponses :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSimpleResponses) -gcdvimcSimpleResponses - = lens _gcdvimcSimpleResponses - (\ s a -> s{_gcdvimcSimpleResponses = a}) - --- | Returns a response containing a custom, platform-specific payload. See --- the Intent.Message.Platform type for a description of the structure that --- may be required for your platform. -gcdvimcPayload :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePayload) -gcdvimcPayload - = lens _gcdvimcPayload - (\ s a -> s{_gcdvimcPayload = a}) - --- | The suggestion chips for Actions on Google. -gcdvimcSuggestions :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSuggestions) -gcdvimcSuggestions - = lens _gcdvimcSuggestions - (\ s a -> s{_gcdvimcSuggestions = a}) - --- | The list card response for Actions on Google. -gcdvimcListSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageListSelect) -gcdvimcListSelect - = lens _gcdvimcListSelect - (\ s a -> s{_gcdvimcListSelect = a}) - --- | The basic card response for Actions on Google. -gcdvimcBasicCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageBasicCard) -gcdvimcBasicCard - = lens _gcdvimcBasicCard - (\ s a -> s{_gcdvimcBasicCard = a}) - --- | The quick replies response. -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]) - --- | The card for presenting a carousel of options to select from. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageCarouselSelect' smart constructor. -newtype GoogleCloudDialogflowV2IntentMessageCarouselSelect = GoogleCloudDialogflowV2IntentMessageCarouselSelect' - { _gItems :: Maybe [GoogleCloudDialogflowV2IntentMessageCarouselSelectItem] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCarouselSelect' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gItems' -googleCloudDialogflowV2IntentMessageCarouselSelect - :: GoogleCloudDialogflowV2IntentMessageCarouselSelect -googleCloudDialogflowV2IntentMessageCarouselSelect = - GoogleCloudDialogflowV2IntentMessageCarouselSelect' - { _gItems = Nothing - } - --- | Required. Carousel items. -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]) - --- | Additional info about the select item for when it is triggered in a --- dialog. --- --- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSelectItemInfo' smart constructor. -data GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo = GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' - { _gooKey :: !(Maybe Text) - , _gooSynonyms :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gooKey' --- --- * 'gooSynonyms' -googleCloudDialogflowV2beta1IntentMessageSelectItemInfo - :: GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo -googleCloudDialogflowV2beta1IntentMessageSelectItemInfo = - GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' - { _gooKey = Nothing - , _gooSynonyms = Nothing - } - --- | Required. A unique key that will be sent back to the agent if this --- response is given. -gooKey :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo (Maybe Text) -gooKey = lens _gooKey (\ s a -> s{_gooKey = a}) - --- | Optional. A list of synonyms that can also be used to trigger this item --- in dialog. -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]) - --- | Represents an intent. Intents convert a number of user expressions or --- patterns into an action. An action is an extraction of a user command or --- sentence semantics. --- --- /See:/ 'googleCloudDialogflowV2beta1Intent' smart constructor. -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) - --- | Creates a value of 'GoogleCloudDialogflowV2beta1Intent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvicDefaultResponsePlatforms' --- --- * 'gcdvicWebhookState' --- --- * 'gcdvicMlEnabled' --- --- * 'gcdvicPriority' --- --- * 'gcdvicAction' --- --- * 'gcdvicRootFollowupIntentName' --- --- * 'gcdvicName' --- --- * 'gcdvicEvents' --- --- * 'gcdvicParameters' --- --- * 'gcdvicDisplayName' --- --- * 'gcdvicInputContextNames' --- --- * 'gcdvicEndInteraction' --- --- * 'gcdvicMessages' --- --- * 'gcdvicParentFollowupIntentName' --- --- * 'gcdvicOutputContexts' --- --- * 'gcdvicTrainingPhrases' --- --- * 'gcdvicFollowupIntentInfo' --- --- * 'gcdvicIsFallback' --- --- * 'gcdvicMlDisabled' --- --- * 'gcdvicResetContexts' -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 - } - --- | Optional. The list of platforms for which the first response will be --- taken from among the messages assigned to the DEFAULT_PLATFORM. -gcdvicDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] -gcdvicDefaultResponsePlatforms - = lens _gcdvicDefaultResponsePlatforms - (\ s a -> s{_gcdvicDefaultResponsePlatforms = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether webhooks are enabled for the intent. -gcdvicWebhookState :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe GoogleCloudDialogflowV2beta1IntentWebhookState) -gcdvicWebhookState - = lens _gcdvicWebhookState - (\ s a -> s{_gcdvicWebhookState = a}) - --- | Optional. Indicates whether Machine Learning is enabled for the intent. --- Note: If \`ml_enabled\` setting is set to false, then this intent is not --- taken into account during inference in \`ML ONLY\` match mode. Also, --- auto-markup in the UI is turned off. DEPRECATED! Please use --- \`ml_disabled\` field instead. NOTE: If both \`ml_enabled\` and --- \`ml_disabled\` are either not set or false, then the default value is --- determined as follows: - Before April 15th, 2018 the default is: --- ml_enabled = false \/ ml_disabled = true. - After April 15th, 2018 the --- default is: ml_enabled = true \/ ml_disabled = false. -gcdvicMlEnabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) -gcdvicMlEnabled - = lens _gcdvicMlEnabled - (\ s a -> s{_gcdvicMlEnabled = a}) - --- | Optional. The priority of this intent. Higher numbers represent higher --- priorities. If this is zero or unspecified, we use the default priority --- 500000. Negative numbers mean that the intent is disabled. -gcdvicPriority :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Int32) -gcdvicPriority - = lens _gcdvicPriority - (\ s a -> s{_gcdvicPriority = a}) - . mapping _Coerce - --- | Optional. The name of the action associated with the intent. Note: The --- action name must not contain whitespaces. -gcdvicAction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) -gcdvicAction - = lens _gcdvicAction (\ s a -> s{_gcdvicAction = a}) - --- | Read-only. The unique identifier of the root intent in the chain of --- followup intents. It identifies the correct followup intents chain for --- this intent. We populate this field only in the output. Format: --- \`projects\/\/agent\/intents\/\`. -gcdvicRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) -gcdvicRootFollowupIntentName - = lens _gcdvicRootFollowupIntentName - (\ s a -> s{_gcdvicRootFollowupIntentName = a}) - --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of this intent. Format: --- \`projects\/\/agent\/intents\/\`. -gcdvicName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) -gcdvicName - = lens _gcdvicName (\ s a -> s{_gcdvicName = a}) - --- | Optional. The collection of event names that trigger the intent. If the --- collection of input contexts is not empty, all of the contexts must be --- present in the active user session for an event to trigger this intent. -gcdvicEvents :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] -gcdvicEvents - = lens _gcdvicEvents (\ s a -> s{_gcdvicEvents = a}) - . _Default - . _Coerce - --- | Optional. The collection of parameters associated with the intent. -gcdvicParameters :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentParameter] -gcdvicParameters - = lens _gcdvicParameters - (\ s a -> s{_gcdvicParameters = a}) - . _Default - . _Coerce - --- | Required. The name of this intent. -gcdvicDisplayName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) -gcdvicDisplayName - = lens _gcdvicDisplayName - (\ s a -> s{_gcdvicDisplayName = a}) - --- | Optional. The list of context names required for this intent to be --- triggered. Format: \`projects\/\/agent\/sessions\/-\/contexts\/\`. -gcdvicInputContextNames :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] -gcdvicInputContextNames - = lens _gcdvicInputContextNames - (\ s a -> s{_gcdvicInputContextNames = a}) - . _Default - . _Coerce - --- | Optional. Indicates that this intent ends an interaction. Some --- integrations (e.g., Actions on Google or Dialogflow phone gateway) use --- this information to close interaction with an end user. Default is --- false. -gcdvicEndInteraction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) -gcdvicEndInteraction - = lens _gcdvicEndInteraction - (\ s a -> s{_gcdvicEndInteraction = a}) - --- | Optional. The collection of rich messages corresponding to the --- \`Response\` field in the Dialogflow console. -gcdvicMessages :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentMessage] -gcdvicMessages - = lens _gcdvicMessages - (\ s a -> s{_gcdvicMessages = a}) - . _Default - . _Coerce - --- | Read-only after creation. The unique identifier of the parent intent in --- the chain of followup intents. You can set this field when creating an --- intent, for example with CreateIntent or BatchUpdateIntents, in order to --- make this intent a followup intent. It identifies the parent followup --- intent. Format: \`projects\/\/agent\/intents\/\`. -gcdvicParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) -gcdvicParentFollowupIntentName - = lens _gcdvicParentFollowupIntentName - (\ s a -> s{_gcdvicParentFollowupIntentName = a}) - --- | Optional. The collection of contexts that are activated when the intent --- is matched. Context messages in this collection should not set the --- parameters field. Setting the \`lifespan_count\` to 0 will reset the --- context when the intent is matched. Format: --- \`projects\/\/agent\/sessions\/-\/contexts\/\`. -gcdvicOutputContexts :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1Context] -gcdvicOutputContexts - = lens _gcdvicOutputContexts - (\ s a -> s{_gcdvicOutputContexts = a}) - . _Default - . _Coerce - --- | Optional. The collection of examples\/templates that the agent is --- trained on. -gcdvicTrainingPhrases :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentTrainingPhrase] -gcdvicTrainingPhrases - = lens _gcdvicTrainingPhrases - (\ s a -> s{_gcdvicTrainingPhrases = a}) - . _Default - . _Coerce - --- | Read-only. Information about all followup intents that have this intent --- as a direct or indirect parent. We populate this field only in the --- output. -gcdvicFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo] -gcdvicFollowupIntentInfo - = lens _gcdvicFollowupIntentInfo - (\ s a -> s{_gcdvicFollowupIntentInfo = a}) - . _Default - . _Coerce - --- | Optional. Indicates whether this is a fallback intent. -gcdvicIsFallback :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) -gcdvicIsFallback - = lens _gcdvicIsFallback - (\ s a -> s{_gcdvicIsFallback = a}) - --- | Optional. Indicates whether Machine Learning is disabled for the intent. --- Note: If \`ml_disabled\` setting is set to true, then this intent is not --- taken into account during inference in \`ML ONLY\` match mode. Also, --- auto-markup in the UI is turned off. -gcdvicMlDisabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) -gcdvicMlDisabled - = lens _gcdvicMlDisabled - (\ s a -> s{_gcdvicMlDisabled = a}) - --- | Optional. Indicates whether to delete all contexts in the current --- session when this intent is matched. -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]) - --- | Represents a context. --- --- /See:/ 'googleCloudDialogflowV2Context' smart constructor. -data GoogleCloudDialogflowV2Context = GoogleCloudDialogflowV2Context' - { _gcdvccLifespanCount :: !(Maybe (Textual Int32)) - , _gcdvccName :: !(Maybe Text) - , _gcdvccParameters :: !(Maybe GoogleCloudDialogflowV2ContextParameters) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2Context' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvccLifespanCount' --- --- * 'gcdvccName' --- --- * 'gcdvccParameters' -googleCloudDialogflowV2Context - :: GoogleCloudDialogflowV2Context -googleCloudDialogflowV2Context = - GoogleCloudDialogflowV2Context' - { _gcdvccLifespanCount = Nothing - , _gcdvccName = Nothing - , _gcdvccParameters = Nothing - } - --- | Optional. The number of conversational query requests after which the --- context expires. If set to \`0\` (the default) the context expires --- immediately. Contexts expire automatically after 20 minutes even if --- there are no matching queries. -gcdvccLifespanCount :: Lens' GoogleCloudDialogflowV2Context (Maybe Int32) -gcdvccLifespanCount - = lens _gcdvccLifespanCount - (\ s a -> s{_gcdvccLifespanCount = a}) - . mapping _Coerce - --- | Required. The unique identifier of the context. Format: --- \`projects\/\/agent\/sessions\/\/contexts\/\`. The \`Context ID\` is --- always converted to lowercase, may only contain characters in --- [a-zA-Z0-9_-%] and may be at most 250 bytes long. -gcdvccName :: Lens' GoogleCloudDialogflowV2Context (Maybe Text) -gcdvccName - = lens _gcdvccName (\ s a -> s{_gcdvccName = a}) - --- | Optional. The collection of parameters associated with this context. --- Refer to [this --- doc](https:\/\/dialogflow.com\/docs\/actions-and-parameters) for syntax. -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]) - --- | The button object that appears at the bottom of a card. --- --- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCardButton' smart constructor. -data GoogleCloudDialogflowV2IntentMessageBasicCardButton = GoogleCloudDialogflowV2IntentMessageBasicCardButton' - { _gcdvimbcbcOpenURIAction :: !(Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction) - , _gcdvimbcbcTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCardButton' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gcdvimbcbcOpenURIAction' --- --- * 'gcdvimbcbcTitle' -googleCloudDialogflowV2IntentMessageBasicCardButton - :: GoogleCloudDialogflowV2IntentMessageBasicCardButton -googleCloudDialogflowV2IntentMessageBasicCardButton = - GoogleCloudDialogflowV2IntentMessageBasicCardButton' - { _gcdvimbcbcOpenURIAction = Nothing - , _gcdvimbcbcTitle = Nothing - } - --- | Required. Action to take when a user taps on the button. -gcdvimbcbcOpenURIAction :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction) -gcdvimbcbcOpenURIAction - = lens _gcdvimbcbcOpenURIAction - (\ s a -> s{_gcdvimbcbcOpenURIAction = a}) - --- | Required. The title of the button. -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 +data GoogleRpcStatus = + GoogleRpcStatus' + { _grsDetails :: !(Maybe [GoogleRpcStatusDetailsItem]) + , _grsCode :: !(Maybe (Textual Int32)) + , _grsMessage :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleRpcStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'grsDetails' +-- +-- * 'grsCode' +-- +-- * 'grsMessage' +googleRpcStatus + :: GoogleRpcStatus +googleRpcStatus = + GoogleRpcStatus' + {_grsDetails = Nothing, _grsCode = Nothing, _grsMessage = Nothing} + + +-- | A list of messages that carry the error details. There is a common set +-- of message types for APIs to use. +grsDetails :: Lens' GoogleRpcStatus [GoogleRpcStatusDetailsItem] +grsDetails + = lens _grsDetails (\ s a -> s{_grsDetails = a}) . + _Default + . _Coerce + +-- | The status code, which should be an enum value of google.rpc.Code. +grsCode :: Lens' GoogleRpcStatus (Maybe Int32) +grsCode + = lens _grsCode (\ s a -> s{_grsCode = a}) . + mapping _Coerce + +-- | A developer-facing error message, which should be in English. Any +-- user-facing error message should be localized and sent in the +-- google.rpc.Status.details field, or localized by the client. +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]) + +-- | Represents a single followup intent in the chain. +-- +-- /See:/ 'googleCloudDialogflowV2IntentFollowupIntentInfo' smart constructor. +data GoogleCloudDialogflowV2IntentFollowupIntentInfo = + GoogleCloudDialogflowV2IntentFollowupIntentInfo' + { _gcdvifiiFollowupIntentName :: !(Maybe Text) + , _gcdvifiiParentFollowupIntentName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentFollowupIntentInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvifiiFollowupIntentName' +-- +-- * 'gcdvifiiParentFollowupIntentName' +googleCloudDialogflowV2IntentFollowupIntentInfo + :: GoogleCloudDialogflowV2IntentFollowupIntentInfo +googleCloudDialogflowV2IntentFollowupIntentInfo = + GoogleCloudDialogflowV2IntentFollowupIntentInfo' + { _gcdvifiiFollowupIntentName = Nothing + , _gcdvifiiParentFollowupIntentName = Nothing + } + + +-- | The unique identifier of the followup intent. Format: +-- \`projects\/\/agent\/intents\/\`. +gcdvifiiFollowupIntentName :: Lens' GoogleCloudDialogflowV2IntentFollowupIntentInfo (Maybe Text) +gcdvifiiFollowupIntentName + = lens _gcdvifiiFollowupIntentName + (\ s a -> s{_gcdvifiiFollowupIntentName = a}) + +-- | The unique identifier of the followup intent\'s parent. Format: +-- \`projects\/\/agent\/intents\/\`. +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]) + +-- | The collection of simple response candidates. This message in +-- \`QueryResult.fulfillment_messages\` and +-- \`WebhookResponse.fulfillment_messages\` should contain only one +-- \`SimpleResponse\`. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSimpleResponses' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses = + GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' + { _gcdvimsrSimpleResponses :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimsrSimpleResponses' +googleCloudDialogflowV2beta1IntentMessageSimpleResponses + :: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses +googleCloudDialogflowV2beta1IntentMessageSimpleResponses = + GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses' + {_gcdvimsrSimpleResponses = Nothing} + + +-- | Required. The list of simple responses. +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]) + +-- | Configuration of how speech should be synthesized. +-- +-- /See:/ 'googleCloudDialogflowV2SynthesizeSpeechConfig' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2SynthesizeSpeechConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvsscVolumeGainDB' +-- +-- * 'gcdvsscEffectsProFileId' +-- +-- * 'gcdvsscVoice' +-- +-- * 'gcdvsscSpeakingRate' +-- +-- * 'gcdvsscPitch' +googleCloudDialogflowV2SynthesizeSpeechConfig + :: GoogleCloudDialogflowV2SynthesizeSpeechConfig +googleCloudDialogflowV2SynthesizeSpeechConfig = + GoogleCloudDialogflowV2SynthesizeSpeechConfig' + { _gcdvsscVolumeGainDB = Nothing + , _gcdvsscEffectsProFileId = Nothing + , _gcdvsscVoice = Nothing + , _gcdvsscSpeakingRate = Nothing + , _gcdvsscPitch = Nothing + } + + +-- | Optional. Volume gain (in dB) of the normal native volume supported by +-- the specific voice, in the range [-96.0, 16.0]. If unset, or set to a +-- value of 0.0 (dB), will play at normal native signal amplitude. A value +-- of -6.0 (dB) will play at approximately half the amplitude of the normal +-- native signal amplitude. A value of +6.0 (dB) will play at approximately +-- twice the amplitude of the normal native signal amplitude. We strongly +-- recommend not to exceed +10 (dB) as there\'s usually no effective +-- increase in loudness for any value greater than that. +gcdvsscVolumeGainDB :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe Double) +gcdvsscVolumeGainDB + = lens _gcdvsscVolumeGainDB + (\ s a -> s{_gcdvsscVolumeGainDB = a}) + . mapping _Coerce + +-- | Optional. An identifier which selects \'audio effects\' profiles that +-- are applied on (post synthesized) text to speech. Effects are applied on +-- top of each other in the order they are given. +gcdvsscEffectsProFileId :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig [Text] +gcdvsscEffectsProFileId + = lens _gcdvsscEffectsProFileId + (\ s a -> s{_gcdvsscEffectsProFileId = a}) + . _Default + . _Coerce + +-- | Optional. The desired voice of the synthesized audio. +gcdvsscVoice :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe GoogleCloudDialogflowV2VoiceSelectionParams) +gcdvsscVoice + = lens _gcdvsscVoice (\ s a -> s{_gcdvsscVoice = a}) + +-- | Optional. Speaking rate\/speed, in the range [0.25, 4.0]. 1.0 is the +-- normal native speed supported by the specific voice. 2.0 is twice as +-- fast, and 0.5 is half as fast. If unset(0.0), defaults to the native 1.0 +-- speed. Any other values \< 0.25 or > 4.0 will return an error. +gcdvsscSpeakingRate :: Lens' GoogleCloudDialogflowV2SynthesizeSpeechConfig (Maybe Double) +gcdvsscSpeakingRate + = lens _gcdvsscSpeakingRate + (\ s a -> s{_gcdvsscSpeakingRate = a}) + . mapping _Coerce + +-- | Optional. Speaking pitch, in the range [-20.0, 20.0]. 20 means increase +-- 20 semitones from the original pitch. -20 means decrease 20 semitones +-- from the original pitch. +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]) + +-- | Instructs the speech recognizer how to process the audio content. +-- +-- /See:/ 'googleCloudDialogflowV2InputAudioConfig' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2InputAudioConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdviacLanguageCode' +-- +-- * 'gcdviacPhraseHints' +-- +-- * 'gcdviacSampleRateHertz' +-- +-- * 'gcdviacModelVariant' +-- +-- * 'gcdviacAudioEncoding' +googleCloudDialogflowV2InputAudioConfig + :: GoogleCloudDialogflowV2InputAudioConfig +googleCloudDialogflowV2InputAudioConfig = + GoogleCloudDialogflowV2InputAudioConfig' + { _gcdviacLanguageCode = Nothing + , _gcdviacPhraseHints = Nothing + , _gcdviacSampleRateHertz = Nothing + , _gcdviacModelVariant = Nothing + , _gcdviacAudioEncoding = Nothing + } + + +-- | Required. The language of the supplied audio. Dialogflow does not do +-- translations. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. Note that queries +-- in the same session do not necessarily need to specify the same +-- language. +gcdviacLanguageCode :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Text) +gcdviacLanguageCode + = lens _gcdviacLanguageCode + (\ s a -> s{_gcdviacLanguageCode = a}) + +-- | Optional. The collection of phrase hints which are used to boost +-- accuracy of speech recognition. Refer to [Cloud Speech API +-- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/basics#phrase-hints) +-- for more details. +gcdviacPhraseHints :: Lens' GoogleCloudDialogflowV2InputAudioConfig [Text] +gcdviacPhraseHints + = lens _gcdviacPhraseHints + (\ s a -> s{_gcdviacPhraseHints = a}) + . _Default + . _Coerce + +-- | Required. Sample rate (in Hertz) of the audio content sent in the query. +-- Refer to [Cloud Speech API +-- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/basics) +-- for more details. +gcdviacSampleRateHertz :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe Int32) +gcdviacSampleRateHertz + = lens _gcdviacSampleRateHertz + (\ s a -> s{_gcdviacSampleRateHertz = a}) + . mapping _Coerce + +-- | Optional. Which variant of the Speech model to use. +gcdviacModelVariant :: Lens' GoogleCloudDialogflowV2InputAudioConfig (Maybe GoogleCloudDialogflowV2InputAudioConfigModelVariant) +gcdviacModelVariant + = lens _gcdviacModelVariant + (\ s a -> s{_gcdviacModelVariant = a}) + +-- | Required. Audio encoding of the audio content to process. +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]) + +-- | The response message for Intents.BatchUpdateIntents. +-- +-- /See:/ 'googleCloudDialogflowV2beta1BatchUpdateIntentsResponse' smart constructor. +newtype GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse = + GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' + { _gcdvbuirIntents :: Maybe [GoogleCloudDialogflowV2beta1Intent] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbuirIntents' +googleCloudDialogflowV2beta1BatchUpdateIntentsResponse + :: GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse +googleCloudDialogflowV2beta1BatchUpdateIntentsResponse = + GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse' + {_gcdvbuirIntents = Nothing} + + +-- | The collection of updated or created intents. +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]) + +-- | Returns a response containing a custom, platform-specific payload. See +-- the Intent.Message.Platform type for a description of the structure that +-- may be required for your platform. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessagePayload' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessagePayload = + GoogleCloudDialogflowV2beta1IntentMessagePayload' + { _gcdvimpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessagePayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimpAddtional' +googleCloudDialogflowV2beta1IntentMessagePayload + :: HashMap Text JSONValue -- ^ 'gcdvimpAddtional' + -> GoogleCloudDialogflowV2beta1IntentMessagePayload +googleCloudDialogflowV2beta1IntentMessagePayload pGcdvimpAddtional_ = + GoogleCloudDialogflowV2beta1IntentMessagePayload' + {_gcdvimpAddtional = _Coerce # pGcdvimpAddtional_} + + +-- | Properties of the object. +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 + +-- | The request message for a webhook call. +-- +-- /See:/ 'googleCloudDialogflowV2WebhookRequest' smart constructor. +data GoogleCloudDialogflowV2WebhookRequest = + GoogleCloudDialogflowV2WebhookRequest' + { _gcdvwrOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest) + , _gcdvwrResponseId :: !(Maybe Text) + , _gcdvwrQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult) + , _gcdvwrSession :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2WebhookRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvwrOriginalDetectIntentRequest' +-- +-- * 'gcdvwrResponseId' +-- +-- * 'gcdvwrQueryResult' +-- +-- * 'gcdvwrSession' +googleCloudDialogflowV2WebhookRequest + :: GoogleCloudDialogflowV2WebhookRequest +googleCloudDialogflowV2WebhookRequest = + GoogleCloudDialogflowV2WebhookRequest' + { _gcdvwrOriginalDetectIntentRequest = Nothing + , _gcdvwrResponseId = Nothing + , _gcdvwrQueryResult = Nothing + , _gcdvwrSession = Nothing + } + + +-- | Optional. The contents of the original request that was passed to +-- \`[Streaming]DetectIntent\` call. +gcdvwrOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequest) +gcdvwrOriginalDetectIntentRequest + = lens _gcdvwrOriginalDetectIntentRequest + (\ s a -> s{_gcdvwrOriginalDetectIntentRequest = a}) + +-- | The unique identifier of the response. Contains the same value as +-- \`[Streaming]DetectIntentResponse.response_id\`. +gcdvwrResponseId :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe Text) +gcdvwrResponseId + = lens _gcdvwrResponseId + (\ s a -> s{_gcdvwrResponseId = a}) + +-- | The result of the conversational query or event processing. Contains the +-- same value as \`[Streaming]DetectIntentResponse.query_result\`. +gcdvwrQueryResult :: Lens' GoogleCloudDialogflowV2WebhookRequest (Maybe GoogleCloudDialogflowV2QueryResult) +gcdvwrQueryResult + = lens _gcdvwrQueryResult + (\ s a -> s{_gcdvwrQueryResult = a}) + +-- | The unique identifier of detectIntent request session. Can be used to +-- identify end-user inside webhook implementation. Format: +-- \`projects\/\/agent\/sessions\/\`, or +-- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\`. +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]) + +-- | An item in the carousel. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageCarouselSelectItem' smart constructor. +data GoogleCloudDialogflowV2IntentMessageCarouselSelectItem = + GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' + { _gcdvimcsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) + , _gcdvimcsiTitle :: !(Maybe Text) + , _gcdvimcsiDescription :: !(Maybe Text) + , _gcdvimcsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimcsiImage' +-- +-- * 'gcdvimcsiTitle' +-- +-- * 'gcdvimcsiDescription' +-- +-- * 'gcdvimcsiInfo' +googleCloudDialogflowV2IntentMessageCarouselSelectItem + :: GoogleCloudDialogflowV2IntentMessageCarouselSelectItem +googleCloudDialogflowV2IntentMessageCarouselSelectItem = + GoogleCloudDialogflowV2IntentMessageCarouselSelectItem' + { _gcdvimcsiImage = Nothing + , _gcdvimcsiTitle = Nothing + , _gcdvimcsiDescription = Nothing + , _gcdvimcsiInfo = Nothing + } + + +-- | Optional. The image to display. +gcdvimcsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage) +gcdvimcsiImage + = lens _gcdvimcsiImage + (\ s a -> s{_gcdvimcsiImage = a}) + +-- | Required. Title of the carousel item. +gcdvimcsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text) +gcdvimcsiTitle + = lens _gcdvimcsiTitle + (\ s a -> s{_gcdvimcsiTitle = a}) + +-- | Optional. The body text of the card. +gcdvimcsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageCarouselSelectItem (Maybe Text) +gcdvimcsiDescription + = lens _gcdvimcsiDescription + (\ s a -> s{_gcdvimcsiDescription = a}) + +-- | Required. Additional info about the option item. +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]) + +-- | Events allow for matching intents by event name instead of the natural +-- language input. For instance, input \`\` can trigger a personalized +-- welcome response. The parameter \`name\` may be used by the agent in the +-- response: \`\"Hello #welcome_event.name! What can I do for you +-- today?\"\`. +-- +-- /See:/ 'googleCloudDialogflowV2EventInput' smart constructor. +data GoogleCloudDialogflowV2EventInput = + GoogleCloudDialogflowV2EventInput' + { _gcdveiLanguageCode :: !(Maybe Text) + , _gcdveiName :: !(Maybe Text) + , _gcdveiParameters :: !(Maybe GoogleCloudDialogflowV2EventInputParameters) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2EventInput' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdveiLanguageCode' +-- +-- * 'gcdveiName' +-- +-- * 'gcdveiParameters' +googleCloudDialogflowV2EventInput + :: GoogleCloudDialogflowV2EventInput +googleCloudDialogflowV2EventInput = + GoogleCloudDialogflowV2EventInput' + { _gcdveiLanguageCode = Nothing + , _gcdveiName = Nothing + , _gcdveiParameters = Nothing + } + + +-- | Required. The language of this query. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. Note that queries +-- in the same session do not necessarily need to specify the same +-- language. +gcdveiLanguageCode :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text) +gcdveiLanguageCode + = lens _gcdveiLanguageCode + (\ s a -> s{_gcdveiLanguageCode = a}) + +-- | Required. The unique identifier of the event. +gcdveiName :: Lens' GoogleCloudDialogflowV2EventInput (Maybe Text) +gcdveiName + = lens _gcdveiName (\ s a -> s{_gcdveiName = a}) + +-- | Optional. The collection of parameters associated with the event. +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]) + +-- | The simple response message containing speech or text. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageSimpleResponse' smart constructor. +data GoogleCloudDialogflowV2IntentMessageSimpleResponse = + GoogleCloudDialogflowV2IntentMessageSimpleResponse' + { _gcdvimsrDisplayText :: !(Maybe Text) + , _gcdvimsrSsml :: !(Maybe Text) + , _gcdvimsrTextToSpeech :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSimpleResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimsrDisplayText' +-- +-- * 'gcdvimsrSsml' +-- +-- * 'gcdvimsrTextToSpeech' +googleCloudDialogflowV2IntentMessageSimpleResponse + :: GoogleCloudDialogflowV2IntentMessageSimpleResponse +googleCloudDialogflowV2IntentMessageSimpleResponse = + GoogleCloudDialogflowV2IntentMessageSimpleResponse' + { _gcdvimsrDisplayText = Nothing + , _gcdvimsrSsml = Nothing + , _gcdvimsrTextToSpeech = Nothing + } + + +-- | Optional. The text to display. +gcdvimsrDisplayText :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text) +gcdvimsrDisplayText + = lens _gcdvimsrDisplayText + (\ s a -> s{_gcdvimsrDisplayText = a}) + +-- | One of text_to_speech or ssml must be provided. Structured spoken +-- response to the user in the SSML format. Mutually exclusive with +-- text_to_speech. +gcdvimsrSsml :: Lens' GoogleCloudDialogflowV2IntentMessageSimpleResponse (Maybe Text) +gcdvimsrSsml + = lens _gcdvimsrSsml (\ s a -> s{_gcdvimsrSsml = a}) + +-- | One of text_to_speech or ssml must be provided. The plain text of the +-- speech output. Mutually exclusive with ssml. +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]) + +-- | Service-specific metadata associated with the operation. It typically +-- contains progress information and common metadata such as create time. +-- Some services might not provide such metadata. Any method that returns a +-- long-running operation should document the metadata type, if any. +-- +-- /See:/ 'googleLongrunningOperationMetadata' smart constructor. +newtype GoogleLongrunningOperationMetadata = + GoogleLongrunningOperationMetadata' + { _glomAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleLongrunningOperationMetadata' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'glomAddtional' +googleLongrunningOperationMetadata + :: HashMap Text JSONValue -- ^ 'glomAddtional' + -> GoogleLongrunningOperationMetadata +googleLongrunningOperationMetadata pGlomAddtional_ = + GoogleLongrunningOperationMetadata' + {_glomAddtional = _Coerce # pGlomAddtional_} + + +-- | Properties of the object. Contains field \'type with type URL. +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 + +-- | Represents an example that the agent is trained on. +-- +-- /See:/ 'googleCloudDialogflowV2IntentTrainingPhrase' smart constructor. +data GoogleCloudDialogflowV2IntentTrainingPhrase = + GoogleCloudDialogflowV2IntentTrainingPhrase' + { _gcdvitpParts :: !(Maybe [GoogleCloudDialogflowV2IntentTrainingPhrasePart]) + , _gcdvitpName :: !(Maybe Text) + , _gcdvitpTimesAddedCount :: !(Maybe (Textual Int32)) + , _gcdvitpType :: !(Maybe GoogleCloudDialogflowV2IntentTrainingPhraseType) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentTrainingPhrase' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvitpParts' +-- +-- * 'gcdvitpName' +-- +-- * 'gcdvitpTimesAddedCount' +-- +-- * 'gcdvitpType' +googleCloudDialogflowV2IntentTrainingPhrase + :: GoogleCloudDialogflowV2IntentTrainingPhrase +googleCloudDialogflowV2IntentTrainingPhrase = + GoogleCloudDialogflowV2IntentTrainingPhrase' + { _gcdvitpParts = Nothing + , _gcdvitpName = Nothing + , _gcdvitpTimesAddedCount = Nothing + , _gcdvitpType = Nothing + } + + +-- | Required. The ordered list of training phrase parts. The parts are +-- concatenated in order to form the training phrase. Note: The API does +-- not automatically annotate training phrases like the Dialogflow Console +-- does. Note: Do not forget to include whitespace at part boundaries, so +-- the training phrase is well formatted when the parts are concatenated. +-- If the training phrase does not need to be annotated with parameters, +-- you just need a single part with only the Part.text field set. If you +-- want to annotate the training phrase, you must create multiple parts, +-- where the fields of each part are populated in one of two ways: - +-- \`Part.text\` is set to a part of the phrase that has no parameters. - +-- \`Part.text\` is set to a part of the phrase that you want to annotate, +-- and the \`entity_type\`, \`alias\`, and \`user_defined\` fields are all +-- set. +gcdvitpParts :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase [GoogleCloudDialogflowV2IntentTrainingPhrasePart] +gcdvitpParts + = lens _gcdvitpParts (\ s a -> s{_gcdvitpParts = a}) + . _Default + . _Coerce + +-- | Output only. The unique identifier of this training phrase. +gcdvitpName :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Text) +gcdvitpName + = lens _gcdvitpName (\ s a -> s{_gcdvitpName = a}) + +-- | Optional. Indicates how many times this example was added to the intent. +-- Each time a developer adds an existing sample by editing an intent or +-- training, this counter is increased. +gcdvitpTimesAddedCount :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrase (Maybe Int32) +gcdvitpTimesAddedCount + = lens _gcdvitpTimesAddedCount + (\ s a -> s{_gcdvitpTimesAddedCount = a}) + . mapping _Coerce + +-- | Required. The type of the training phrase. +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]) + +-- | An item in the carousel. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem = + GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' + { _gImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) + , _gTitle :: !(Maybe Text) + , _gDescription :: !(Maybe Text) + , _gInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gImage' +-- +-- * 'gTitle' +-- +-- * 'gDescription' +-- +-- * 'gInfo' +googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + :: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem +googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem = + GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem' + { _gImage = Nothing + , _gTitle = Nothing + , _gDescription = Nothing + , _gInfo = Nothing + } + + +-- | Optional. The image to display. +gImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) +gImage = lens _gImage (\ s a -> s{_gImage = a}) + +-- | Required. Title of the carousel item. +gTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text) +gTitle = lens _gTitle (\ s a -> s{_gTitle = a}) + +-- | Optional. The body text of the card. +gDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem (Maybe Text) +gDescription + = lens _gDescription (\ s a -> s{_gDescription = a}) + +-- | Required. Additional info about the option item. +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]) + +-- | The basic card message. Useful for displaying information. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCard' smart constructor. +data GoogleCloudDialogflowV2IntentMessageBasicCard = + GoogleCloudDialogflowV2IntentMessageBasicCard' + { _gcdvimbcImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) + , _gcdvimbcButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageBasicCardButton]) + , _gcdvimbcSubtitle :: !(Maybe Text) + , _gcdvimbcTitle :: !(Maybe Text) + , _gcdvimbcFormattedText :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCard' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbcImage' +-- +-- * 'gcdvimbcButtons' +-- +-- * 'gcdvimbcSubtitle' +-- +-- * 'gcdvimbcTitle' +-- +-- * 'gcdvimbcFormattedText' +googleCloudDialogflowV2IntentMessageBasicCard + :: GoogleCloudDialogflowV2IntentMessageBasicCard +googleCloudDialogflowV2IntentMessageBasicCard = + GoogleCloudDialogflowV2IntentMessageBasicCard' + { _gcdvimbcImage = Nothing + , _gcdvimbcButtons = Nothing + , _gcdvimbcSubtitle = Nothing + , _gcdvimbcTitle = Nothing + , _gcdvimbcFormattedText = Nothing + } + + +-- | Optional. The image for the card. +gcdvimbcImage :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2IntentMessageImage) +gcdvimbcImage + = lens _gcdvimbcImage + (\ s a -> s{_gcdvimbcImage = a}) + +-- | Optional. The collection of card buttons. +gcdvimbcButtons :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard [GoogleCloudDialogflowV2IntentMessageBasicCardButton] +gcdvimbcButtons + = lens _gcdvimbcButtons + (\ s a -> s{_gcdvimbcButtons = a}) + . _Default + . _Coerce + +-- | Optional. The subtitle of the card. +gcdvimbcSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text) +gcdvimbcSubtitle + = lens _gcdvimbcSubtitle + (\ s a -> s{_gcdvimbcSubtitle = a}) + +-- | Optional. The title of the card. +gcdvimbcTitle :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCard (Maybe Text) +gcdvimbcTitle + = lens _gcdvimbcTitle + (\ s a -> s{_gcdvimbcTitle = a}) + +-- | Required, unless image is present. The body text of the card. +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]) + +-- | The simple response message containing speech or text. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSimpleResponse' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse = + GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' + { _gDisplayText :: !(Maybe Text) + , _gSsml :: !(Maybe Text) + , _gTextToSpeech :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gDisplayText' +-- +-- * 'gSsml' +-- +-- * 'gTextToSpeech' +googleCloudDialogflowV2beta1IntentMessageSimpleResponse + :: GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse +googleCloudDialogflowV2beta1IntentMessageSimpleResponse = + GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse' + {_gDisplayText = Nothing, _gSsml = Nothing, _gTextToSpeech = Nothing} + + +-- | Optional. The text to display. +gDisplayText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text) +gDisplayText + = lens _gDisplayText (\ s a -> s{_gDisplayText = a}) + +-- | One of text_to_speech or ssml must be provided. Structured spoken +-- response to the user in the SSML format. Mutually exclusive with +-- text_to_speech. +gSsml :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse (Maybe Text) +gSsml = lens _gSsml (\ s a -> s{_gSsml = a}) + +-- | One of text_to_speech or ssml must be provided. The plain text of the +-- speech output. Mutually exclusive with ssml. +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]) + +-- | Represents an intent. Intents convert a number of user expressions or +-- patterns into an action. An action is an extraction of a user command or +-- sentence semantics. +-- +-- /See:/ 'googleCloudDialogflowV2Intent' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2Intent' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdviDefaultResponsePlatforms' +-- +-- * 'gcdviWebhookState' +-- +-- * 'gcdviPriority' +-- +-- * 'gcdviAction' +-- +-- * 'gcdviRootFollowupIntentName' +-- +-- * 'gcdviName' +-- +-- * 'gcdviEvents' +-- +-- * 'gcdviParameters' +-- +-- * 'gcdviDisplayName' +-- +-- * 'gcdviInputContextNames' +-- +-- * 'gcdviMessages' +-- +-- * 'gcdviParentFollowupIntentName' +-- +-- * 'gcdviOutputContexts' +-- +-- * 'gcdviTrainingPhrases' +-- +-- * 'gcdviFollowupIntentInfo' +-- +-- * 'gcdviIsFallback' +-- +-- * 'gcdviMlDisabled' +-- +-- * 'gcdviResetContexts' +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 + } + + +-- | Optional. The list of platforms for which the first response will be +-- taken from among the messages assigned to the DEFAULT_PLATFORM. +gcdviDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2Intent [Text] +gcdviDefaultResponsePlatforms + = lens _gcdviDefaultResponsePlatforms + (\ s a -> s{_gcdviDefaultResponsePlatforms = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether webhooks are enabled for the intent. +gcdviWebhookState :: Lens' GoogleCloudDialogflowV2Intent (Maybe GoogleCloudDialogflowV2IntentWebhookState) +gcdviWebhookState + = lens _gcdviWebhookState + (\ s a -> s{_gcdviWebhookState = a}) + +-- | Optional. The priority of this intent. Higher numbers represent higher +-- priorities. If this is zero or unspecified, we use the default priority +-- 500000. Negative numbers mean that the intent is disabled. +gcdviPriority :: Lens' GoogleCloudDialogflowV2Intent (Maybe Int32) +gcdviPriority + = lens _gcdviPriority + (\ s a -> s{_gcdviPriority = a}) + . mapping _Coerce + +-- | Optional. The name of the action associated with the intent. Note: The +-- action name must not contain whitespaces. +gcdviAction :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) +gcdviAction + = lens _gcdviAction (\ s a -> s{_gcdviAction = a}) + +-- | Read-only. The unique identifier of the root intent in the chain of +-- followup intents. It identifies the correct followup intents chain for +-- this intent. We populate this field only in the output. Format: +-- \`projects\/\/agent\/intents\/\`. +gcdviRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) +gcdviRootFollowupIntentName + = lens _gcdviRootFollowupIntentName + (\ s a -> s{_gcdviRootFollowupIntentName = a}) + +-- | The unique identifier of this intent. Required for Intents.UpdateIntent +-- and Intents.BatchUpdateIntents methods. Format: +-- \`projects\/\/agent\/intents\/\`. +gcdviName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) +gcdviName + = lens _gcdviName (\ s a -> s{_gcdviName = a}) + +-- | Optional. The collection of event names that trigger the intent. If the +-- collection of input contexts is not empty, all of the contexts must be +-- present in the active user session for an event to trigger this intent. +gcdviEvents :: Lens' GoogleCloudDialogflowV2Intent [Text] +gcdviEvents + = lens _gcdviEvents (\ s a -> s{_gcdviEvents = a}) . + _Default + . _Coerce + +-- | Optional. The collection of parameters associated with the intent. +gcdviParameters :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentParameter] +gcdviParameters + = lens _gcdviParameters + (\ s a -> s{_gcdviParameters = a}) + . _Default + . _Coerce + +-- | Required. The name of this intent. +gcdviDisplayName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) +gcdviDisplayName + = lens _gcdviDisplayName + (\ s a -> s{_gcdviDisplayName = a}) + +-- | Optional. The list of context names required for this intent to be +-- triggered. Format: \`projects\/\/agent\/sessions\/-\/contexts\/\`. +gcdviInputContextNames :: Lens' GoogleCloudDialogflowV2Intent [Text] +gcdviInputContextNames + = lens _gcdviInputContextNames + (\ s a -> s{_gcdviInputContextNames = a}) + . _Default + . _Coerce + +-- | Optional. The collection of rich messages corresponding to the +-- \`Response\` field in the Dialogflow console. +gcdviMessages :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentMessage] +gcdviMessages + = lens _gcdviMessages + (\ s a -> s{_gcdviMessages = a}) + . _Default + . _Coerce + +-- | Read-only after creation. The unique identifier of the parent intent in +-- the chain of followup intents. You can set this field when creating an +-- intent, for example with CreateIntent or BatchUpdateIntents, in order to +-- make this intent a followup intent. It identifies the parent followup +-- intent. Format: \`projects\/\/agent\/intents\/\`. +gcdviParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2Intent (Maybe Text) +gcdviParentFollowupIntentName + = lens _gcdviParentFollowupIntentName + (\ s a -> s{_gcdviParentFollowupIntentName = a}) + +-- | Optional. The collection of contexts that are activated when the intent +-- is matched. Context messages in this collection should not set the +-- parameters field. Setting the \`lifespan_count\` to 0 will reset the +-- context when the intent is matched. Format: +-- \`projects\/\/agent\/sessions\/-\/contexts\/\`. +gcdviOutputContexts :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2Context] +gcdviOutputContexts + = lens _gcdviOutputContexts + (\ s a -> s{_gcdviOutputContexts = a}) + . _Default + . _Coerce + +-- | Optional. The collection of examples that the agent is trained on. +gcdviTrainingPhrases :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentTrainingPhrase] +gcdviTrainingPhrases + = lens _gcdviTrainingPhrases + (\ s a -> s{_gcdviTrainingPhrases = a}) + . _Default + . _Coerce + +-- | Read-only. Information about all followup intents that have this intent +-- as a direct or indirect parent. We populate this field only in the +-- output. +gcdviFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2Intent [GoogleCloudDialogflowV2IntentFollowupIntentInfo] +gcdviFollowupIntentInfo + = lens _gcdviFollowupIntentInfo + (\ s a -> s{_gcdviFollowupIntentInfo = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether this is a fallback intent. +gcdviIsFallback :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool) +gcdviIsFallback + = lens _gcdviIsFallback + (\ s a -> s{_gcdviIsFallback = a}) + +-- | Optional. Indicates whether Machine Learning is disabled for the intent. +-- Note: If \`ml_diabled\` setting is set to true, then this intent is not +-- taken into account during inference in \`ML ONLY\` match mode. Also, +-- auto-markup in the UI is turned off. +gcdviMlDisabled :: Lens' GoogleCloudDialogflowV2Intent (Maybe Bool) +gcdviMlDisabled + = lens _gcdviMlDisabled + (\ s a -> s{_gcdviMlDisabled = a}) + +-- | Optional. Indicates whether to delete all contexts in the current +-- session when this intent is matched. +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]) + +-- | The button object that appears at the bottom of a card. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCardButton' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton = + GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' + { _gcdvimbcbOpenURIAction :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction) + , _gcdvimbcbTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbcbOpenURIAction' +-- +-- * 'gcdvimbcbTitle' +googleCloudDialogflowV2beta1IntentMessageBasicCardButton + :: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton +googleCloudDialogflowV2beta1IntentMessageBasicCardButton = + GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton' + {_gcdvimbcbOpenURIAction = Nothing, _gcdvimbcbTitle = Nothing} + + +-- | Required. Action to take when a user taps on the button. +gcdvimbcbOpenURIAction :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction) +gcdvimbcbOpenURIAction + = lens _gcdvimbcbOpenURIAction + (\ s a -> s{_gcdvimbcbOpenURIAction = a}) + +-- | Required. The title of the button. +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]) + +-- | The result of sentiment analysis as configured by +-- \`sentiment_analysis_request_config\`. +-- +-- /See:/ 'googleCloudDialogflowV2SentimentAnalysisResult' smart constructor. +newtype GoogleCloudDialogflowV2SentimentAnalysisResult = + GoogleCloudDialogflowV2SentimentAnalysisResult' + { _gcdvsarQueryTextSentiment :: Maybe GoogleCloudDialogflowV2Sentiment + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2SentimentAnalysisResult' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvsarQueryTextSentiment' +googleCloudDialogflowV2SentimentAnalysisResult + :: GoogleCloudDialogflowV2SentimentAnalysisResult +googleCloudDialogflowV2SentimentAnalysisResult = + GoogleCloudDialogflowV2SentimentAnalysisResult' + {_gcdvsarQueryTextSentiment = Nothing} + + +-- | The sentiment analysis result for \`query_text\`. +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]) + +-- | The request message for EntityTypes.BatchCreateEntities. +-- +-- /See:/ 'googleCloudDialogflowV2BatchCreateEntitiesRequest' smart constructor. +data GoogleCloudDialogflowV2BatchCreateEntitiesRequest = + GoogleCloudDialogflowV2BatchCreateEntitiesRequest' + { _gcdvbcerLanguageCode :: !(Maybe Text) + , _gcdvbcerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchCreateEntitiesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbcerLanguageCode' +-- +-- * 'gcdvbcerEntities' +googleCloudDialogflowV2BatchCreateEntitiesRequest + :: GoogleCloudDialogflowV2BatchCreateEntitiesRequest +googleCloudDialogflowV2BatchCreateEntitiesRequest = + GoogleCloudDialogflowV2BatchCreateEntitiesRequest' + {_gcdvbcerLanguageCode = Nothing, _gcdvbcerEntities = Nothing} + + +-- | Optional. The language of entity synonyms defined in \`entities\`. If +-- not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. +gcdvbcerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchCreateEntitiesRequest (Maybe Text) +gcdvbcerLanguageCode + = lens _gcdvbcerLanguageCode + (\ s a -> s{_gcdvbcerLanguageCode = a}) + +-- | Required. The entities to create. +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]) + +-- | The collection of suggestions. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSuggestions' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestions = + GoogleCloudDialogflowV2beta1IntentMessageSuggestions' + { _gcdvimsSuggestions :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageSuggestion] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSuggestions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimsSuggestions' +googleCloudDialogflowV2beta1IntentMessageSuggestions + :: GoogleCloudDialogflowV2beta1IntentMessageSuggestions +googleCloudDialogflowV2beta1IntentMessageSuggestions = + GoogleCloudDialogflowV2beta1IntentMessageSuggestions' + {_gcdvimsSuggestions = Nothing} + + +-- | Required. The list of suggested replies. +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]) + +-- | The request message for Intents.BatchDeleteIntents. +-- +-- /See:/ 'googleCloudDialogflowV2BatchDeleteIntentsRequest' smart constructor. +newtype GoogleCloudDialogflowV2BatchDeleteIntentsRequest = + GoogleCloudDialogflowV2BatchDeleteIntentsRequest' + { _gcdvbdirIntents :: Maybe [GoogleCloudDialogflowV2Intent] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteIntentsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbdirIntents' +googleCloudDialogflowV2BatchDeleteIntentsRequest + :: GoogleCloudDialogflowV2BatchDeleteIntentsRequest +googleCloudDialogflowV2BatchDeleteIntentsRequest = + GoogleCloudDialogflowV2BatchDeleteIntentsRequest' {_gcdvbdirIntents = Nothing} + + +-- | Required. The collection of intents to delete. Only intent \`name\` must +-- be filled in. +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]) + +-- | Represents the result of conversational query or event processing. +-- +-- /See:/ 'googleCloudDialogflowV2QueryResult' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryResult' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrLanguageCode' +-- +-- * 'gcdvqrAllRequiredParamsPresent' +-- +-- * 'gcdvqrIntentDetectionConfidence' +-- +-- * 'gcdvqrFulfillmentMessages' +-- +-- * 'gcdvqrSpeechRecognitionConfidence' +-- +-- * 'gcdvqrAction' +-- +-- * 'gcdvqrIntent' +-- +-- * 'gcdvqrSentimentAnalysisResult' +-- +-- * 'gcdvqrQueryText' +-- +-- * 'gcdvqrFulfillmentText' +-- +-- * 'gcdvqrParameters' +-- +-- * 'gcdvqrWebhookPayload' +-- +-- * 'gcdvqrOutputContexts' +-- +-- * 'gcdvqrWebhookSource' +-- +-- * 'gcdvqrDiagnosticInfo' +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 + } + + +-- | The language that was triggered during intent detection. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. +gcdvqrLanguageCode :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) +gcdvqrLanguageCode + = lens _gcdvqrLanguageCode + (\ s a -> s{_gcdvqrLanguageCode = a}) + +-- | This field is set to: - \`false\` if the matched intent has required +-- parameters and not all of the required parameter values have been +-- collected. - \`true\` if all required parameter values have been +-- collected, or if the matched intent doesn\'t contain any required +-- parameters. +gcdvqrAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Bool) +gcdvqrAllRequiredParamsPresent + = lens _gcdvqrAllRequiredParamsPresent + (\ s a -> s{_gcdvqrAllRequiredParamsPresent = a}) + +-- | The intent detection confidence. Values range from 0.0 (completely +-- uncertain) to 1.0 (completely certain). If there are \`multiple +-- knowledge_answers\` messages, this value is set to the greatest +-- \`knowledgeAnswers.match_confidence\` value in the list. +gcdvqrIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double) +gcdvqrIntentDetectionConfidence + = lens _gcdvqrIntentDetectionConfidence + (\ s a -> s{_gcdvqrIntentDetectionConfidence = a}) + . mapping _Coerce + +-- | The collection of rich messages to present to the user. +gcdvqrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2IntentMessage] +gcdvqrFulfillmentMessages + = lens _gcdvqrFulfillmentMessages + (\ s a -> s{_gcdvqrFulfillmentMessages = a}) + . _Default + . _Coerce + +-- | The Speech recognition confidence between 0.0 and 1.0. A higher number +-- indicates an estimated greater likelihood that the recognized words are +-- correct. The default of 0.0 is a sentinel value indicating that +-- confidence was not set. This field is not guaranteed to be accurate or +-- set. In particular this field isn\'t set for StreamingDetectIntent since +-- the streaming endpoint has separate confidence estimates per portion of +-- the audio in StreamingRecognitionResult. +gcdvqrSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Double) +gcdvqrSpeechRecognitionConfidence + = lens _gcdvqrSpeechRecognitionConfidence + (\ s a -> s{_gcdvqrSpeechRecognitionConfidence = a}) + . mapping _Coerce + +-- | The action name from the matched intent. +gcdvqrAction :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) +gcdvqrAction + = lens _gcdvqrAction (\ s a -> s{_gcdvqrAction = a}) + +-- | The intent that matched the conversational query. Some, not all fields +-- are filled in this message, including but not limited to: \`name\`, +-- \`display_name\` and \`webhook_state\`. +gcdvqrIntent :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2Intent) +gcdvqrIntent + = lens _gcdvqrIntent (\ s a -> s{_gcdvqrIntent = a}) + +-- | The sentiment analysis result, which depends on the +-- \`sentiment_analysis_request_config\` specified in the request. +gcdvqrSentimentAnalysisResult :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2SentimentAnalysisResult) +gcdvqrSentimentAnalysisResult + = lens _gcdvqrSentimentAnalysisResult + (\ s a -> s{_gcdvqrSentimentAnalysisResult = a}) + +-- | The original conversational query text: - If natural language text was +-- provided as input, \`query_text\` contains a copy of the input. - If +-- natural language speech audio was provided as input, \`query_text\` +-- contains the speech recognition result. If speech recognizer produced +-- multiple alternatives, a particular one is picked. - If an event was +-- provided as input, \`query_text\` is not set. +gcdvqrQueryText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) +gcdvqrQueryText + = lens _gcdvqrQueryText + (\ s a -> s{_gcdvqrQueryText = a}) + +-- | The text to be pronounced to the user or shown on the screen. Note: This +-- is a legacy field, \`fulfillment_messages\` should be preferred. +gcdvqrFulfillmentText :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) +gcdvqrFulfillmentText + = lens _gcdvqrFulfillmentText + (\ s a -> s{_gcdvqrFulfillmentText = a}) + +-- | The collection of extracted parameters. +gcdvqrParameters :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultParameters) +gcdvqrParameters + = lens _gcdvqrParameters + (\ s a -> s{_gcdvqrParameters = a}) + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`payload\` field returned in the webhook response. +gcdvqrWebhookPayload :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe GoogleCloudDialogflowV2QueryResultWebhookPayload) +gcdvqrWebhookPayload + = lens _gcdvqrWebhookPayload + (\ s a -> s{_gcdvqrWebhookPayload = a}) + +-- | The collection of output contexts. If applicable, +-- \`output_contexts.parameters\` contains entries with name \`.original\` +-- containing the original parameter values before the query. +gcdvqrOutputContexts :: Lens' GoogleCloudDialogflowV2QueryResult [GoogleCloudDialogflowV2Context] +gcdvqrOutputContexts + = lens _gcdvqrOutputContexts + (\ s a -> s{_gcdvqrOutputContexts = a}) + . _Default + . _Coerce + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`source\` field returned in the webhook response. +gcdvqrWebhookSource :: Lens' GoogleCloudDialogflowV2QueryResult (Maybe Text) +gcdvqrWebhookSource + = lens _gcdvqrWebhookSource + (\ s a -> s{_gcdvqrWebhookSource = a}) + +-- | The free-form diagnostic info. For example, this field could contain +-- webhook call latency. The string keys of the Struct\'s fields map can +-- change without notice. +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]) + +-- | The request message for Intents.BatchUpdateIntents. +-- +-- /See:/ 'googleCloudDialogflowV2BatchUpdateIntentsRequest' smart constructor. +data GoogleCloudDialogflowV2BatchUpdateIntentsRequest = + GoogleCloudDialogflowV2BatchUpdateIntentsRequest' + { _gcdvbuirLanguageCode :: !(Maybe Text) + , _gcdvbuirUpdateMask :: !(Maybe GFieldMask) + , _gcdvbuirIntentView :: !(Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView) + , _gcdvbuirIntentBatchURI :: !(Maybe Text) + , _gcdvbuirIntentBatchInline :: !(Maybe GoogleCloudDialogflowV2IntentBatch) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateIntentsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbuirLanguageCode' +-- +-- * 'gcdvbuirUpdateMask' +-- +-- * 'gcdvbuirIntentView' +-- +-- * 'gcdvbuirIntentBatchURI' +-- +-- * 'gcdvbuirIntentBatchInline' +googleCloudDialogflowV2BatchUpdateIntentsRequest + :: GoogleCloudDialogflowV2BatchUpdateIntentsRequest +googleCloudDialogflowV2BatchUpdateIntentsRequest = + GoogleCloudDialogflowV2BatchUpdateIntentsRequest' + { _gcdvbuirLanguageCode = Nothing + , _gcdvbuirUpdateMask = Nothing + , _gcdvbuirIntentView = Nothing + , _gcdvbuirIntentBatchURI = Nothing + , _gcdvbuirIntentBatchInline = Nothing + } + + +-- | Optional. The language of training phrases, parameters and rich messages +-- defined in \`intents\`. If not specified, the agent\'s default language +-- is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. +gcdvbuirLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text) +gcdvbuirLanguageCode + = lens _gcdvbuirLanguageCode + (\ s a -> s{_gcdvbuirLanguageCode = a}) + +-- | Optional. The mask to control which fields get updated. +gcdvbuirUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GFieldMask) +gcdvbuirUpdateMask + = lens _gcdvbuirUpdateMask + (\ s a -> s{_gcdvbuirUpdateMask = a}) + +-- | Optional. The resource view to apply to the returned intent. +gcdvbuirIntentView :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView) +gcdvbuirIntentView + = lens _gcdvbuirIntentView + (\ s a -> s{_gcdvbuirIntentView = a}) + +-- | The URI to a Google Cloud Storage file containing intents to update or +-- create. The file format can either be a serialized proto (of IntentBatch +-- type) or JSON object. Note: The URI must start with \"gs:\/\/\". +gcdvbuirIntentBatchURI :: Lens' GoogleCloudDialogflowV2BatchUpdateIntentsRequest (Maybe Text) +gcdvbuirIntentBatchURI + = lens _gcdvbuirIntentBatchURI + (\ s a -> s{_gcdvbuirIntentBatchURI = a}) + +-- | The collection of intents to update or create. +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]) + +-- | An object representing a latitude\/longitude pair. This is expressed as +-- a pair of doubles representing degrees latitude and degrees longitude. +-- Unless specified otherwise, this must conform to the +-- . +-- Values must be within normalized ranges. +-- +-- /See:/ 'googleTypeLatLng' smart constructor. +data GoogleTypeLatLng = + GoogleTypeLatLng' + { _gtllLatitude :: !(Maybe (Textual Double)) + , _gtllLongitude :: !(Maybe (Textual Double)) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleTypeLatLng' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gtllLatitude' +-- +-- * 'gtllLongitude' +googleTypeLatLng + :: GoogleTypeLatLng +googleTypeLatLng = + GoogleTypeLatLng' {_gtllLatitude = Nothing, _gtllLongitude = Nothing} + + +-- | The latitude in degrees. It must be in the range [-90.0, +90.0]. +gtllLatitude :: Lens' GoogleTypeLatLng (Maybe Double) +gtllLatitude + = lens _gtllLatitude (\ s a -> s{_gtllLatitude = a}) + . mapping _Coerce + +-- | The longitude in degrees. It must be in the range [-180.0, +180.0]. +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]) + +-- | The response message for a webhook call. +-- +-- /See:/ 'googleCloudDialogflowV2beta1WebhookResponse' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvwrFulfillmentMessages' +-- +-- * 'gcdvwrPayload' +-- +-- * 'gcdvwrFulfillmentText' +-- +-- * 'gcdvwrSource' +-- +-- * 'gcdvwrEndInteraction' +-- +-- * 'gcdvwrOutputContexts' +-- +-- * 'gcdvwrFollowupEventInput' +googleCloudDialogflowV2beta1WebhookResponse + :: GoogleCloudDialogflowV2beta1WebhookResponse +googleCloudDialogflowV2beta1WebhookResponse = + GoogleCloudDialogflowV2beta1WebhookResponse' + { _gcdvwrFulfillmentMessages = Nothing + , _gcdvwrPayload = Nothing + , _gcdvwrFulfillmentText = Nothing + , _gcdvwrSource = Nothing + , _gcdvwrEndInteraction = Nothing + , _gcdvwrOutputContexts = Nothing + , _gcdvwrFollowupEventInput = Nothing + } + + +-- | Optional. The collection of rich messages to present to the user. This +-- value is passed directly to \`QueryResult.fulfillment_messages\`. +gcdvwrFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1IntentMessage] +gcdvwrFulfillmentMessages + = lens _gcdvwrFulfillmentMessages + (\ s a -> s{_gcdvwrFulfillmentMessages = a}) + . _Default + . _Coerce + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_payload\`. See the related +-- \`fulfillment_messages[i].payload field\`, which may be used as an +-- alternative to this field. This field can be used for Actions on Google +-- responses. It should have a structure similar to the JSON message shown +-- here. For more information, see [Actions on Google Webhook +-- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) +-- +-- > { +-- > "google": { +-- > "expectUserResponse": true, +-- > "richResponse": { +-- > "items": [ +-- > { +-- > "simpleResponse": { +-- > "textToSpeech": "this is a simple response" +-- > } +-- > } +-- > ] +-- > } +-- > } +-- > } +gcdvwrPayload :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe GoogleCloudDialogflowV2beta1WebhookResponsePayload) +gcdvwrPayload + = lens _gcdvwrPayload + (\ s a -> s{_gcdvwrPayload = a}) + +-- | Optional. The text to be shown on the screen. This value is passed +-- directly to \`QueryResult.fulfillment_text\`. +gcdvwrFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text) +gcdvwrFulfillmentText + = lens _gcdvwrFulfillmentText + (\ s a -> s{_gcdvwrFulfillmentText = a}) + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_source\`. +gcdvwrSource :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Text) +gcdvwrSource + = lens _gcdvwrSource (\ s a -> s{_gcdvwrSource = a}) + +-- | Optional. Indicates that this intent ends an interaction. Some +-- integrations (e.g., Actions on Google or Dialogflow phone gateway) use +-- this information to close interaction with an end user. Default is +-- false. +gcdvwrEndInteraction :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse (Maybe Bool) +gcdvwrEndInteraction + = lens _gcdvwrEndInteraction + (\ s a -> s{_gcdvwrEndInteraction = a}) + +-- | Optional. The collection of output contexts. This value is passed +-- directly to \`QueryResult.output_contexts\`. +gcdvwrOutputContexts :: Lens' GoogleCloudDialogflowV2beta1WebhookResponse [GoogleCloudDialogflowV2beta1Context] +gcdvwrOutputContexts + = lens _gcdvwrOutputContexts + (\ s a -> s{_gcdvwrOutputContexts = a}) + . _Default + . _Coerce + +-- | Optional. Makes the platform immediately invoke another \`DetectIntent\` +-- call internally with the specified event as input. +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]) + +-- | Optional. The collection of parameters associated with the event. +-- +-- /See:/ 'googleCloudDialogflowV2beta1EventInputParameters' smart constructor. +newtype GoogleCloudDialogflowV2beta1EventInputParameters = + GoogleCloudDialogflowV2beta1EventInputParameters' + { _gcdveipAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1EventInputParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdveipAddtional' +googleCloudDialogflowV2beta1EventInputParameters + :: HashMap Text JSONValue -- ^ 'gcdveipAddtional' + -> GoogleCloudDialogflowV2beta1EventInputParameters +googleCloudDialogflowV2beta1EventInputParameters pGcdveipAddtional_ = + GoogleCloudDialogflowV2beta1EventInputParameters' + {_gcdveipAddtional = _Coerce # pGcdveipAddtional_} + + +-- | Properties of the object. +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 + +-- | Optional. This field is set to the value of the +-- \`QueryParameters.payload\` field passed in the request. Some +-- integrations that query a Dialogflow agent may provide additional +-- information in the payload. In particular for the Telephony Gateway this +-- field has the form: +-- +-- > { +-- > "telephony": { +-- > "caller_id": "+18558363987" +-- > } +-- > } +-- +-- Note: The caller ID field (\`caller_id\`) will be redacted for Standard +-- Edition agents and populated with the caller ID in [E.164 +-- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition +-- agents. +-- +-- /See:/ 'googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' smart constructor. +newtype GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload = + GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' + { _gcdvodirpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvodirpAddtional' +googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + :: HashMap Text JSONValue -- ^ 'gcdvodirpAddtional' + -> GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload +googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload pGcdvodirpAddtional_ = + GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload' + {_gcdvodirpAddtional = _Coerce # pGcdvodirpAddtional_} + + +-- | Properties of the object. +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 + +-- | The quick replies response message. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageQuickReplies' smart constructor. +data GoogleCloudDialogflowV2IntentMessageQuickReplies = + GoogleCloudDialogflowV2IntentMessageQuickReplies' + { _gcdvimqrTitle :: !(Maybe Text) + , _gcdvimqrQuickReplies :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageQuickReplies' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimqrTitle' +-- +-- * 'gcdvimqrQuickReplies' +googleCloudDialogflowV2IntentMessageQuickReplies + :: GoogleCloudDialogflowV2IntentMessageQuickReplies +googleCloudDialogflowV2IntentMessageQuickReplies = + GoogleCloudDialogflowV2IntentMessageQuickReplies' + {_gcdvimqrTitle = Nothing, _gcdvimqrQuickReplies = Nothing} + + +-- | Optional. The title of the collection of quick replies. +gcdvimqrTitle :: Lens' GoogleCloudDialogflowV2IntentMessageQuickReplies (Maybe Text) +gcdvimqrTitle + = lens _gcdvimqrTitle + (\ s a -> s{_gcdvimqrTitle = a}) + +-- | Optional. The collection of quick replies. +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]) + +-- | Represents the result of querying a Knowledge base. +-- +-- /See:/ 'googleCloudDialogflowV2beta1KnowledgeAnswers' smart constructor. +newtype GoogleCloudDialogflowV2beta1KnowledgeAnswers = + GoogleCloudDialogflowV2beta1KnowledgeAnswers' + { _gcdvkaAnswers :: Maybe [GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeAnswers' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvkaAnswers' +googleCloudDialogflowV2beta1KnowledgeAnswers + :: GoogleCloudDialogflowV2beta1KnowledgeAnswers +googleCloudDialogflowV2beta1KnowledgeAnswers = + GoogleCloudDialogflowV2beta1KnowledgeAnswers' {_gcdvkaAnswers = Nothing} + + +-- | A list of answers from Knowledge Connector. +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]) + +-- | Optional. Contains information about a button. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCardButton' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageCardButton = + GoogleCloudDialogflowV2beta1IntentMessageCardButton' + { _gcdvimcbText :: !(Maybe Text) + , _gcdvimcbPostback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCardButton' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimcbText' +-- +-- * 'gcdvimcbPostback' +googleCloudDialogflowV2beta1IntentMessageCardButton + :: GoogleCloudDialogflowV2beta1IntentMessageCardButton +googleCloudDialogflowV2beta1IntentMessageCardButton = + GoogleCloudDialogflowV2beta1IntentMessageCardButton' + {_gcdvimcbText = Nothing, _gcdvimcbPostback = Nothing} + + +-- | Optional. The text to show on the button. +gcdvimcbText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCardButton (Maybe Text) +gcdvimcbText + = lens _gcdvimcbText (\ s a -> s{_gcdvimcbText = a}) + +-- | Optional. The text to send back to the Dialogflow API or a URI to open. +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]) + +-- | Optional. The collection of parameters associated with this context. +-- Refer to [this +-- doc](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/intents-actions-parameters) +-- for syntax. +-- +-- /See:/ 'googleCloudDialogflowV2beta1ContextParameters' smart constructor. +newtype GoogleCloudDialogflowV2beta1ContextParameters = + GoogleCloudDialogflowV2beta1ContextParameters' + { _gcdvcpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1ContextParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvcpAddtional' +googleCloudDialogflowV2beta1ContextParameters + :: HashMap Text JSONValue -- ^ 'gcdvcpAddtional' + -> GoogleCloudDialogflowV2beta1ContextParameters +googleCloudDialogflowV2beta1ContextParameters pGcdvcpAddtional_ = + GoogleCloudDialogflowV2beta1ContextParameters' + {_gcdvcpAddtional = _Coerce # pGcdvcpAddtional_} + + +-- | Properties of the object. +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 + +-- | Optional. This field can be used to pass custom data into the webhook +-- associated with the agent. Arbitrary JSON objects are supported. +-- +-- /See:/ 'googleCloudDialogflowV2QueryParametersPayload' smart constructor. +newtype GoogleCloudDialogflowV2QueryParametersPayload = + GoogleCloudDialogflowV2QueryParametersPayload' + { _gcdvqppAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryParametersPayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqppAddtional' +googleCloudDialogflowV2QueryParametersPayload + :: HashMap Text JSONValue -- ^ 'gcdvqppAddtional' + -> GoogleCloudDialogflowV2QueryParametersPayload +googleCloudDialogflowV2QueryParametersPayload pGcdvqppAddtional_ = + GoogleCloudDialogflowV2QueryParametersPayload' + {_gcdvqppAddtional = _Coerce # pGcdvqppAddtional_} + + +-- | Properties of the object. +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 + +-- | The card for presenting a list of options to select from. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageListSelect' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageListSelect = + GoogleCloudDialogflowV2beta1IntentMessageListSelect' + { _gcdvimlsItems :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem]) + , _gcdvimlsTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageListSelect' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimlsItems' +-- +-- * 'gcdvimlsTitle' +googleCloudDialogflowV2beta1IntentMessageListSelect + :: GoogleCloudDialogflowV2beta1IntentMessageListSelect +googleCloudDialogflowV2beta1IntentMessageListSelect = + GoogleCloudDialogflowV2beta1IntentMessageListSelect' + {_gcdvimlsItems = Nothing, _gcdvimlsTitle = Nothing} + + +-- | Required. List items. +gcdvimlsItems :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelect [GoogleCloudDialogflowV2beta1IntentMessageListSelectItem] +gcdvimlsItems + = lens _gcdvimlsItems + (\ s a -> s{_gcdvimlsItems = a}) + . _Default + . _Coerce + +-- | Optional. The overall title of the list. +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]) + +-- | Plays audio from a file in Telephony Gateway. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio = + GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' + { _gcdvimtpaAudioURI :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimtpaAudioURI' +googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + :: GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio +googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio = + GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio' + {_gcdvimtpaAudioURI = Nothing} + + +-- | Required. URI to a Google Cloud Storage object containing the audio to +-- play, e.g., \"gs:\/\/bucket\/object\". The object must contain a single +-- channel (mono) of linear PCM audio (2 bytes \/ sample) at 8kHz. This +-- object must be readable by the +-- \`service-\'gcp-sa-dialogflow.iam.gserviceaccount.com\` service account +-- where is the number of the Telephony Gateway project (usually the same +-- as the Dialogflow agent project). If the Google Cloud Storage bucket is +-- in the Telephony Gateway project, this permission is added by default +-- when enabling the Dialogflow V2 API. For audio from other sources, +-- consider using the \`TelephonySynthesizeSpeech\` message with SSML. +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]) + +-- | Configures the types of sentiment analysis to perform. +-- +-- /See:/ 'googleCloudDialogflowV2SentimentAnalysisRequestConfig' smart constructor. +newtype GoogleCloudDialogflowV2SentimentAnalysisRequestConfig = + GoogleCloudDialogflowV2SentimentAnalysisRequestConfig' + { _gcdvsarcAnalyzeQueryTextSentiment :: Maybe Bool + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2SentimentAnalysisRequestConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvsarcAnalyzeQueryTextSentiment' +googleCloudDialogflowV2SentimentAnalysisRequestConfig + :: GoogleCloudDialogflowV2SentimentAnalysisRequestConfig +googleCloudDialogflowV2SentimentAnalysisRequestConfig = + GoogleCloudDialogflowV2SentimentAnalysisRequestConfig' + {_gcdvsarcAnalyzeQueryTextSentiment = Nothing} + + +-- | Optional. Instructs the service to perform sentiment analysis on +-- \`query_text\`. If not provided, sentiment analysis is not performed on +-- \`query_text\`. +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]) + +-- | Represents a part of a training phrase. +-- +-- /See:/ 'googleCloudDialogflowV2IntentTrainingPhrasePart' smart constructor. +data GoogleCloudDialogflowV2IntentTrainingPhrasePart = + GoogleCloudDialogflowV2IntentTrainingPhrasePart' + { _gcdvitppText :: !(Maybe Text) + , _gcdvitppUserDefined :: !(Maybe Bool) + , _gcdvitppEntityType :: !(Maybe Text) + , _gcdvitppAlias :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentTrainingPhrasePart' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvitppText' +-- +-- * 'gcdvitppUserDefined' +-- +-- * 'gcdvitppEntityType' +-- +-- * 'gcdvitppAlias' +googleCloudDialogflowV2IntentTrainingPhrasePart + :: GoogleCloudDialogflowV2IntentTrainingPhrasePart +googleCloudDialogflowV2IntentTrainingPhrasePart = + GoogleCloudDialogflowV2IntentTrainingPhrasePart' + { _gcdvitppText = Nothing + , _gcdvitppUserDefined = Nothing + , _gcdvitppEntityType = Nothing + , _gcdvitppAlias = Nothing + } + + +-- | Required. The text for this part. +gcdvitppText :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text) +gcdvitppText + = lens _gcdvitppText (\ s a -> s{_gcdvitppText = a}) + +-- | Optional. Indicates whether the text was manually annotated. This field +-- is set to true when the Dialogflow Console is used to manually annotate +-- the part. When creating an annotated part with the API, you must set +-- this to true. +gcdvitppUserDefined :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Bool) +gcdvitppUserDefined + = lens _gcdvitppUserDefined + (\ s a -> s{_gcdvitppUserDefined = a}) + +-- | Optional. The entity type name prefixed with \`\'\`. This field is +-- required for annotated parts of the training phrase. +gcdvitppEntityType :: Lens' GoogleCloudDialogflowV2IntentTrainingPhrasePart (Maybe Text) +gcdvitppEntityType + = lens _gcdvitppEntityType + (\ s a -> s{_gcdvitppEntityType = a}) + +-- | Optional. The parameter name for the value extracted from the annotated +-- part of the example. This field is required for annotated parts of the +-- training phrase. +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]) + +-- | A generic empty message that you can re-use to avoid defining duplicated +-- empty messages in your APIs. A typical example is to use it as the +-- request or the response type of an API method. For instance: service Foo +-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The +-- JSON representation for \`Empty\` is empty JSON object \`{}\`. +-- +-- /See:/ 'googleProtobufEmpty' smart constructor. +data GoogleProtobufEmpty = + GoogleProtobufEmpty' + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleProtobufEmpty' with the minimum fields required to make a request. +-- +googleProtobufEmpty + :: GoogleProtobufEmpty +googleProtobufEmpty = GoogleProtobufEmpty' + + +instance FromJSON GoogleProtobufEmpty where + parseJSON + = withObject "GoogleProtobufEmpty" + (\ o -> pure GoogleProtobufEmpty') + +instance ToJSON GoogleProtobufEmpty where + toJSON = const emptyObject + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_payload\`. See the related +-- \`fulfillment_messages[i].payload field\`, which may be used as an +-- alternative to this field. This field can be used for Actions on Google +-- responses. It should have a structure similar to the JSON message shown +-- here. For more information, see [Actions on Google Webhook +-- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) +-- +-- > { +-- > "google": { +-- > "expectUserResponse": true, +-- > "richResponse": { +-- > "items": [ +-- > { +-- > "simpleResponse": { +-- > "textToSpeech": "this is a simple response" +-- > } +-- > } +-- > ] +-- > } +-- > } +-- > } +-- +-- /See:/ 'googleCloudDialogflowV2beta1WebhookResponsePayload' smart constructor. +newtype GoogleCloudDialogflowV2beta1WebhookResponsePayload = + GoogleCloudDialogflowV2beta1WebhookResponsePayload' + { _gcdvwrpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookResponsePayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvwrpAddtional' +googleCloudDialogflowV2beta1WebhookResponsePayload + :: HashMap Text JSONValue -- ^ 'gcdvwrpAddtional' + -> GoogleCloudDialogflowV2beta1WebhookResponsePayload +googleCloudDialogflowV2beta1WebhookResponsePayload pGcdvwrpAddtional_ = + GoogleCloudDialogflowV2beta1WebhookResponsePayload' + {_gcdvwrpAddtional = _Coerce # pGcdvwrpAddtional_} + + +-- | Properties of the object. +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 + +-- | The quick replies response message. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageQuickReplies' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageQuickReplies = + GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' + { _gcdvimqrsTitle :: !(Maybe Text) + , _gcdvimqrsQuickReplies :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimqrsTitle' +-- +-- * 'gcdvimqrsQuickReplies' +googleCloudDialogflowV2beta1IntentMessageQuickReplies + :: GoogleCloudDialogflowV2beta1IntentMessageQuickReplies +googleCloudDialogflowV2beta1IntentMessageQuickReplies = + GoogleCloudDialogflowV2beta1IntentMessageQuickReplies' + {_gcdvimqrsTitle = Nothing, _gcdvimqrsQuickReplies = Nothing} + + +-- | Optional. The title of the collection of quick replies. +gcdvimqrsTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageQuickReplies (Maybe Text) +gcdvimqrsTitle + = lens _gcdvimqrsTitle + (\ s a -> s{_gcdvimqrsTitle = a}) + +-- | Optional. The collection of quick replies. +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]) + +-- | The suggestion chip message that allows the user to jump out to the app +-- or website associated with this agent. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageLinkOutSuggestion' smart constructor. +data GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion = + GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' + { _gcdvimlosURI :: !(Maybe Text) + , _gcdvimlosDestinationName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimlosURI' +-- +-- * 'gcdvimlosDestinationName' +googleCloudDialogflowV2IntentMessageLinkOutSuggestion + :: GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion +googleCloudDialogflowV2IntentMessageLinkOutSuggestion = + GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion' + {_gcdvimlosURI = Nothing, _gcdvimlosDestinationName = Nothing} + + +-- | Required. The URI of the app or site to open when the user taps the +-- suggestion chip. +gcdvimlosURI :: Lens' GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion (Maybe Text) +gcdvimlosURI + = lens _gcdvimlosURI (\ s a -> s{_gcdvimlosURI = a}) + +-- | Required. The name of the app or site this chip is linking to. +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]) + +-- | The request message for Agents.ImportAgent. +-- +-- /See:/ 'googleCloudDialogflowV2ImportAgentRequest' smart constructor. +data GoogleCloudDialogflowV2ImportAgentRequest = + GoogleCloudDialogflowV2ImportAgentRequest' + { _gcdviarAgentURI :: !(Maybe Text) + , _gcdviarAgentContent :: !(Maybe Bytes) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ImportAgentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdviarAgentURI' +-- +-- * 'gcdviarAgentContent' +googleCloudDialogflowV2ImportAgentRequest + :: GoogleCloudDialogflowV2ImportAgentRequest +googleCloudDialogflowV2ImportAgentRequest = + GoogleCloudDialogflowV2ImportAgentRequest' + {_gcdviarAgentURI = Nothing, _gcdviarAgentContent = Nothing} + + +-- | The URI to a Google Cloud Storage file containing the agent to import. +-- Note: The URI must start with \"gs:\/\/\". +gcdviarAgentURI :: Lens' GoogleCloudDialogflowV2ImportAgentRequest (Maybe Text) +gcdviarAgentURI + = lens _gcdviarAgentURI + (\ s a -> s{_gcdviarAgentURI = a}) + +-- | The agent to import. Example for how to import an agent via the command +-- line: +-- +-- > curl \ +-- > 'https://dialogflow.googleapis.com/v2/projects//agent:import\ +-- > -X POST \ +-- > -H 'Authorization: Bearer '$(gcloud auth application-default +-- > print-access-token) \ +-- > -H 'Accept: application/json' \ +-- > -H 'Content-Type: application/json' \ +-- > --compressed \ +-- > --data-binary "{ +-- > 'agentContent': '$(cat | base64 -w 0)' +-- > }" +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]) + +-- +-- /See:/ 'googleRpcStatusDetailsItem' smart constructor. +newtype GoogleRpcStatusDetailsItem = + GoogleRpcStatusDetailsItem' + { _grsdiAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleRpcStatusDetailsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'grsdiAddtional' +googleRpcStatusDetailsItem + :: HashMap Text JSONValue -- ^ 'grsdiAddtional' + -> GoogleRpcStatusDetailsItem +googleRpcStatusDetailsItem pGrsdiAddtional_ = + GoogleRpcStatusDetailsItem' {_grsdiAddtional = _Coerce # pGrsdiAddtional_} + + +-- | Properties of the object. Contains field \'type with type URL. +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 + +-- | The response message for EntityTypes.BatchUpdateEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' smart constructor. +newtype GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse = + GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' + { _gcdvbuetrEntityTypes :: Maybe [GoogleCloudDialogflowV2beta1EntityType] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbuetrEntityTypes' +googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + :: GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse +googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse = + GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse' + {_gcdvbuetrEntityTypes = Nothing} + + +-- | The collection of updated or created entity types. +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]) + +-- | Optional. The collection of parameters associated with this context. +-- Refer to [this +-- doc](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/intents-actions-parameters) +-- for syntax. +-- +-- /See:/ 'googleCloudDialogflowV2ContextParameters' smart constructor. +newtype GoogleCloudDialogflowV2ContextParameters = + GoogleCloudDialogflowV2ContextParameters' + { _gAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ContextParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gAddtional' +googleCloudDialogflowV2ContextParameters + :: HashMap Text JSONValue -- ^ 'gAddtional' + -> GoogleCloudDialogflowV2ContextParameters +googleCloudDialogflowV2ContextParameters pGAddtional_ = + GoogleCloudDialogflowV2ContextParameters' + {_gAddtional = _Coerce # pGAddtional_} + + +-- | Properties of the object. +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 + +-- | Optional. Contains information about a button. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageCardButton' smart constructor. +data GoogleCloudDialogflowV2IntentMessageCardButton = + GoogleCloudDialogflowV2IntentMessageCardButton' + { _gText :: !(Maybe Text) + , _gPostback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCardButton' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gText' +-- +-- * 'gPostback' +googleCloudDialogflowV2IntentMessageCardButton + :: GoogleCloudDialogflowV2IntentMessageCardButton +googleCloudDialogflowV2IntentMessageCardButton = + GoogleCloudDialogflowV2IntentMessageCardButton' + {_gText = Nothing, _gPostback = Nothing} + + +-- | Optional. The text to show on the button. +gText :: Lens' GoogleCloudDialogflowV2IntentMessageCardButton (Maybe Text) +gText = lens _gText (\ s a -> s{_gText = a}) + +-- | Optional. The text to send back to the Dialogflow API or a URI to open. +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]) + +-- | The card for presenting a list of options to select from. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageListSelect' smart constructor. +data GoogleCloudDialogflowV2IntentMessageListSelect = + GoogleCloudDialogflowV2IntentMessageListSelect' + { _gooItems :: !(Maybe [GoogleCloudDialogflowV2IntentMessageListSelectItem]) + , _gooTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageListSelect' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooItems' +-- +-- * 'gooTitle' +googleCloudDialogflowV2IntentMessageListSelect + :: GoogleCloudDialogflowV2IntentMessageListSelect +googleCloudDialogflowV2IntentMessageListSelect = + GoogleCloudDialogflowV2IntentMessageListSelect' + {_gooItems = Nothing, _gooTitle = Nothing} + + +-- | Required. List items. +gooItems :: Lens' GoogleCloudDialogflowV2IntentMessageListSelect [GoogleCloudDialogflowV2IntentMessageListSelectItem] +gooItems + = lens _gooItems (\ s a -> s{_gooItems = a}) . + _Default + . _Coerce + +-- | Optional. The overall title of the list. +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]) + +-- | The card response message. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCard' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageCard = + GoogleCloudDialogflowV2beta1IntentMessageCard' + { _gcdvimcButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageCardButton]) + , _gcdvimcImageURI :: !(Maybe Text) + , _gcdvimcSubtitle :: !(Maybe Text) + , _gcdvimcTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCard' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimcButtons' +-- +-- * 'gcdvimcImageURI' +-- +-- * 'gcdvimcSubtitle' +-- +-- * 'gcdvimcTitle' +googleCloudDialogflowV2beta1IntentMessageCard + :: GoogleCloudDialogflowV2beta1IntentMessageCard +googleCloudDialogflowV2beta1IntentMessageCard = + GoogleCloudDialogflowV2beta1IntentMessageCard' + { _gcdvimcButtons = Nothing + , _gcdvimcImageURI = Nothing + , _gcdvimcSubtitle = Nothing + , _gcdvimcTitle = Nothing + } + + +-- | Optional. The collection of card buttons. +gcdvimcButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard [GoogleCloudDialogflowV2beta1IntentMessageCardButton] +gcdvimcButtons + = lens _gcdvimcButtons + (\ s a -> s{_gcdvimcButtons = a}) + . _Default + . _Coerce + +-- | Optional. The public URI to an image file for the card. +gcdvimcImageURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text) +gcdvimcImageURI + = lens _gcdvimcImageURI + (\ s a -> s{_gcdvimcImageURI = a}) + +-- | Optional. The subtitle of the card. +gcdvimcSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageCard (Maybe Text) +gcdvimcSubtitle + = lens _gcdvimcSubtitle + (\ s a -> s{_gcdvimcSubtitle = a}) + +-- | Optional. The title of the card. +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]) + +-- | The request message for Agents.RestoreAgent. +-- +-- /See:/ 'googleCloudDialogflowV2RestoreAgentRequest' smart constructor. +data GoogleCloudDialogflowV2RestoreAgentRequest = + GoogleCloudDialogflowV2RestoreAgentRequest' + { _gcdvrarAgentURI :: !(Maybe Text) + , _gcdvrarAgentContent :: !(Maybe Bytes) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2RestoreAgentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvrarAgentURI' +-- +-- * 'gcdvrarAgentContent' +googleCloudDialogflowV2RestoreAgentRequest + :: GoogleCloudDialogflowV2RestoreAgentRequest +googleCloudDialogflowV2RestoreAgentRequest = + GoogleCloudDialogflowV2RestoreAgentRequest' + {_gcdvrarAgentURI = Nothing, _gcdvrarAgentContent = Nothing} + + +-- | The URI to a Google Cloud Storage file containing the agent to restore. +-- Note: The URI must start with \"gs:\/\/\". +gcdvrarAgentURI :: Lens' GoogleCloudDialogflowV2RestoreAgentRequest (Maybe Text) +gcdvrarAgentURI + = lens _gcdvrarAgentURI + (\ s a -> s{_gcdvrarAgentURI = a}) + +-- | The agent to restore. Example for how to restore an agent via the +-- command line: +-- +-- > curl \ +-- > 'https://dialogflow.googleapis.com/v2/projects//agent:restore\ +-- > -X POST \ +-- > -H 'Authorization: Bearer '$(gcloud auth application-default +-- > print-access-token) \ +-- > -H 'Accept: application/json' \ +-- > -H 'Content-Type: application/json' \ +-- > --compressed \ +-- > --data-binary "{ +-- > 'agentContent': '$(cat | base64 -w 0)' +-- > }" +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]) + +-- | The collection of suggestions. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageSuggestions' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageSuggestions = + GoogleCloudDialogflowV2IntentMessageSuggestions' + { _gSuggestions :: Maybe [GoogleCloudDialogflowV2IntentMessageSuggestion] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSuggestions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gSuggestions' +googleCloudDialogflowV2IntentMessageSuggestions + :: GoogleCloudDialogflowV2IntentMessageSuggestions +googleCloudDialogflowV2IntentMessageSuggestions = + GoogleCloudDialogflowV2IntentMessageSuggestions' {_gSuggestions = Nothing} + + +-- | Required. The list of suggested replies. +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]) + +-- | Opens the given URI. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction = + GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' + { _gcdvimbcbouaURI :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbcbouaURI' +googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + :: GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction +googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction = + GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction' + {_gcdvimbcbouaURI = Nothing} + + +-- | Required. The HTTP or HTTPS scheme URI. +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]) + +-- | Represents the parameters of the conversational query. +-- +-- /See:/ 'googleCloudDialogflowV2QueryParameters' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqpContexts' +-- +-- * 'gcdvqpSentimentAnalysisRequestConfig' +-- +-- * 'gcdvqpPayload' +-- +-- * 'gcdvqpGeoLocation' +-- +-- * 'gcdvqpTimeZone' +-- +-- * 'gcdvqpSessionEntityTypes' +-- +-- * 'gcdvqpResetContexts' +googleCloudDialogflowV2QueryParameters + :: GoogleCloudDialogflowV2QueryParameters +googleCloudDialogflowV2QueryParameters = + GoogleCloudDialogflowV2QueryParameters' + { _gcdvqpContexts = Nothing + , _gcdvqpSentimentAnalysisRequestConfig = Nothing + , _gcdvqpPayload = Nothing + , _gcdvqpGeoLocation = Nothing + , _gcdvqpTimeZone = Nothing + , _gcdvqpSessionEntityTypes = Nothing + , _gcdvqpResetContexts = Nothing + } + + +-- | Optional. The collection of contexts to be activated before this query +-- is executed. +gcdvqpContexts :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2Context] +gcdvqpContexts + = lens _gcdvqpContexts + (\ s a -> s{_gcdvqpContexts = a}) + . _Default + . _Coerce + +-- | Optional. Configures the type of sentiment analysis to perform. If not +-- provided, sentiment analysis is not performed. +gcdvqpSentimentAnalysisRequestConfig :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleCloudDialogflowV2SentimentAnalysisRequestConfig) +gcdvqpSentimentAnalysisRequestConfig + = lens _gcdvqpSentimentAnalysisRequestConfig + (\ s a -> + s{_gcdvqpSentimentAnalysisRequestConfig = a}) + +-- | Optional. This field can be used to pass custom data into the webhook +-- associated with the agent. Arbitrary JSON objects are supported. +gcdvqpPayload :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleCloudDialogflowV2QueryParametersPayload) +gcdvqpPayload + = lens _gcdvqpPayload + (\ s a -> s{_gcdvqpPayload = a}) + +-- | Optional. The geo location of this conversational query. +gcdvqpGeoLocation :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe GoogleTypeLatLng) +gcdvqpGeoLocation + = lens _gcdvqpGeoLocation + (\ s a -> s{_gcdvqpGeoLocation = a}) + +-- | Optional. The time zone of this conversational query from the [time zone +-- database](https:\/\/www.iana.org\/time-zones), e.g., America\/New_York, +-- Europe\/Paris. If not provided, the time zone specified in agent +-- settings is used. +gcdvqpTimeZone :: Lens' GoogleCloudDialogflowV2QueryParameters (Maybe Text) +gcdvqpTimeZone + = lens _gcdvqpTimeZone + (\ s a -> s{_gcdvqpTimeZone = a}) + +-- | Optional. Additional session entity types to replace or extend developer +-- entity types with. The entity synonyms apply to all languages and +-- persist for the session of this query. +gcdvqpSessionEntityTypes :: Lens' GoogleCloudDialogflowV2QueryParameters [GoogleCloudDialogflowV2SessionEntityType] +gcdvqpSessionEntityTypes + = lens _gcdvqpSessionEntityTypes + (\ s a -> s{_gcdvqpSessionEntityTypes = a}) + . _Default + . _Coerce + +-- | Optional. Specifies whether to delete all contexts in the current +-- session before the new ones are activated. +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]) + +-- | The suggestion chip message that the user can tap to quickly post a +-- reply to the conversation. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSuggestion' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageSuggestion = + GoogleCloudDialogflowV2beta1IntentMessageSuggestion' + { _gcdvimsTitle :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSuggestion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimsTitle' +googleCloudDialogflowV2beta1IntentMessageSuggestion + :: GoogleCloudDialogflowV2beta1IntentMessageSuggestion +googleCloudDialogflowV2beta1IntentMessageSuggestion = + GoogleCloudDialogflowV2beta1IntentMessageSuggestion' {_gcdvimsTitle = Nothing} + + +-- | Required. The text shown the in the suggestion chip. +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]) + +-- | Represents the contents of the original request that was passed to the +-- \`[Streaming]DetectIntent\` call. +-- +-- /See:/ 'googleCloudDialogflowV2beta1OriginalDetectIntentRequest' smart constructor. +data GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest = + GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' + { _gcdvodirPayload :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload) + , _gcdvodirVersion :: !(Maybe Text) + , _gcdvodirSource :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvodirPayload' +-- +-- * 'gcdvodirVersion' +-- +-- * 'gcdvodirSource' +googleCloudDialogflowV2beta1OriginalDetectIntentRequest + :: GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest +googleCloudDialogflowV2beta1OriginalDetectIntentRequest = + GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest' + { _gcdvodirPayload = Nothing + , _gcdvodirVersion = Nothing + , _gcdvodirSource = Nothing + } + + +-- | Optional. This field is set to the value of the +-- \`QueryParameters.payload\` field passed in the request. Some +-- integrations that query a Dialogflow agent may provide additional +-- information in the payload. In particular for the Telephony Gateway this +-- field has the form: +-- +-- > { +-- > "telephony": { +-- > "caller_id": "+18558363987" +-- > } +-- > } +-- +-- Note: The caller ID field (\`caller_id\`) will be redacted for Standard +-- Edition agents and populated with the caller ID in [E.164 +-- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition +-- agents. +gcdvodirPayload :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload) +gcdvodirPayload + = lens _gcdvodirPayload + (\ s a -> s{_gcdvodirPayload = a}) + +-- | Optional. The version of the protocol used for this request. This field +-- is AoG-specific. +gcdvodirVersion :: Lens' GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest (Maybe Text) +gcdvodirVersion + = lens _gcdvodirVersion + (\ s a -> s{_gcdvodirVersion = a}) + +-- | The source of this request, e.g., \`google\`, \`facebook\`, \`slack\`. +-- It is set by Dialogflow-owned servers. +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]) + +-- | Optional. The collection of parameters associated with the event. +-- +-- /See:/ 'googleCloudDialogflowV2EventInputParameters' smart constructor. +newtype GoogleCloudDialogflowV2EventInputParameters = + GoogleCloudDialogflowV2EventInputParameters' + { _gcdveipsAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2EventInputParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdveipsAddtional' +googleCloudDialogflowV2EventInputParameters + :: HashMap Text JSONValue -- ^ 'gcdveipsAddtional' + -> GoogleCloudDialogflowV2EventInputParameters +googleCloudDialogflowV2EventInputParameters pGcdveipsAddtional_ = + GoogleCloudDialogflowV2EventInputParameters' + {_gcdveipsAddtional = _Coerce # pGcdveipsAddtional_} + + +-- | Properties of the object. +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 + +-- | The message returned from the DetectIntent method. +-- +-- /See:/ 'googleCloudDialogflowV2DetectIntentResponse' smart constructor. +data GoogleCloudDialogflowV2DetectIntentResponse = + GoogleCloudDialogflowV2DetectIntentResponse' + { _gcdvdirOutputAudioConfig :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfig) + , _gcdvdirResponseId :: !(Maybe Text) + , _gcdvdirOutputAudio :: !(Maybe Bytes) + , _gcdvdirWebhookStatus :: !(Maybe GoogleRpcStatus) + , _gcdvdirQueryResult :: !(Maybe GoogleCloudDialogflowV2QueryResult) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2DetectIntentResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvdirOutputAudioConfig' +-- +-- * 'gcdvdirResponseId' +-- +-- * 'gcdvdirOutputAudio' +-- +-- * 'gcdvdirWebhookStatus' +-- +-- * 'gcdvdirQueryResult' +googleCloudDialogflowV2DetectIntentResponse + :: GoogleCloudDialogflowV2DetectIntentResponse +googleCloudDialogflowV2DetectIntentResponse = + GoogleCloudDialogflowV2DetectIntentResponse' + { _gcdvdirOutputAudioConfig = Nothing + , _gcdvdirResponseId = Nothing + , _gcdvdirOutputAudio = Nothing + , _gcdvdirWebhookStatus = Nothing + , _gcdvdirQueryResult = Nothing + } + + +-- | The config used by the speech synthesizer to generate the output audio. +gcdvdirOutputAudioConfig :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleCloudDialogflowV2OutputAudioConfig) +gcdvdirOutputAudioConfig + = lens _gcdvdirOutputAudioConfig + (\ s a -> s{_gcdvdirOutputAudioConfig = a}) + +-- | The unique identifier of the response. It can be used to locate a +-- response in the training example set or for reporting issues. +gcdvdirResponseId :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe Text) +gcdvdirResponseId + = lens _gcdvdirResponseId + (\ s a -> s{_gcdvdirResponseId = a}) + +-- | The audio data bytes encoded as specified in the request. Note: The +-- output audio is generated based on the values of default platform text +-- responses found in the \`query_result.fulfillment_messages\` field. If +-- multiple default text responses exist, they will be concatenated when +-- generating audio. If no default platform text responses exist, the +-- generated audio content will be empty. +gcdvdirOutputAudio :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe ByteString) +gcdvdirOutputAudio + = lens _gcdvdirOutputAudio + (\ s a -> s{_gcdvdirOutputAudio = a}) + . mapping _Bytes + +-- | Specifies the status of the webhook request. +gcdvdirWebhookStatus :: Lens' GoogleCloudDialogflowV2DetectIntentResponse (Maybe GoogleRpcStatus) +gcdvdirWebhookStatus + = lens _gcdvdirWebhookStatus + (\ s a -> s{_gcdvdirWebhookStatus = a}) + +-- | The selected results of the conversational query or event processing. +-- See \`alternative_query_results\` for additional potential results. +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]) + +-- | An item in the list. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageListSelectItem' smart constructor. +data GoogleCloudDialogflowV2IntentMessageListSelectItem = + GoogleCloudDialogflowV2IntentMessageListSelectItem' + { _gcdvimlsiImage :: !(Maybe GoogleCloudDialogflowV2IntentMessageImage) + , _gcdvimlsiTitle :: !(Maybe Text) + , _gcdvimlsiDescription :: !(Maybe Text) + , _gcdvimlsiInfo :: !(Maybe GoogleCloudDialogflowV2IntentMessageSelectItemInfo) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageListSelectItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimlsiImage' +-- +-- * 'gcdvimlsiTitle' +-- +-- * 'gcdvimlsiDescription' +-- +-- * 'gcdvimlsiInfo' +googleCloudDialogflowV2IntentMessageListSelectItem + :: GoogleCloudDialogflowV2IntentMessageListSelectItem +googleCloudDialogflowV2IntentMessageListSelectItem = + GoogleCloudDialogflowV2IntentMessageListSelectItem' + { _gcdvimlsiImage = Nothing + , _gcdvimlsiTitle = Nothing + , _gcdvimlsiDescription = Nothing + , _gcdvimlsiInfo = Nothing + } + + +-- | Optional. The image to display. +gcdvimlsiImage :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2IntentMessageImage) +gcdvimlsiImage + = lens _gcdvimlsiImage + (\ s a -> s{_gcdvimlsiImage = a}) + +-- | Required. The title of the list item. +gcdvimlsiTitle :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text) +gcdvimlsiTitle + = lens _gcdvimlsiTitle + (\ s a -> s{_gcdvimlsiTitle = a}) + +-- | Optional. The main text describing the item. +gcdvimlsiDescription :: Lens' GoogleCloudDialogflowV2IntentMessageListSelectItem (Maybe Text) +gcdvimlsiDescription + = lens _gcdvimlsiDescription + (\ s a -> s{_gcdvimlsiDescription = a}) + +-- | Required. Additional information about this option. +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]) + +-- | The result of sentiment analysis as configured by +-- \`sentiment_analysis_request_config\`. +-- +-- /See:/ 'googleCloudDialogflowV2beta1SentimentAnalysisResult' smart constructor. +newtype GoogleCloudDialogflowV2beta1SentimentAnalysisResult = + GoogleCloudDialogflowV2beta1SentimentAnalysisResult' + { _gQueryTextSentiment :: Maybe GoogleCloudDialogflowV2beta1Sentiment + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1SentimentAnalysisResult' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gQueryTextSentiment' +googleCloudDialogflowV2beta1SentimentAnalysisResult + :: GoogleCloudDialogflowV2beta1SentimentAnalysisResult +googleCloudDialogflowV2beta1SentimentAnalysisResult = + GoogleCloudDialogflowV2beta1SentimentAnalysisResult' + {_gQueryTextSentiment = Nothing} + + +-- | The sentiment analysis result for \`query_text\`. +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]) + +-- | This message is a wrapper around a collection of entity types. +-- +-- /See:/ 'googleCloudDialogflowV2EntityTypeBatch' smart constructor. +newtype GoogleCloudDialogflowV2EntityTypeBatch = + GoogleCloudDialogflowV2EntityTypeBatch' + { _gcdvetbEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2EntityTypeBatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvetbEntityTypes' +googleCloudDialogflowV2EntityTypeBatch + :: GoogleCloudDialogflowV2EntityTypeBatch +googleCloudDialogflowV2EntityTypeBatch = + GoogleCloudDialogflowV2EntityTypeBatch' {_gcdvetbEntityTypes = Nothing} + + +-- | A collection of entity types. +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]) + +-- | Description of which voice to use for speech synthesis. +-- +-- /See:/ 'googleCloudDialogflowV2VoiceSelectionParams' smart constructor. +data GoogleCloudDialogflowV2VoiceSelectionParams = + GoogleCloudDialogflowV2VoiceSelectionParams' + { _gcdvvspSsmlGender :: !(Maybe GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender) + , _gcdvvspName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2VoiceSelectionParams' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvvspSsmlGender' +-- +-- * 'gcdvvspName' +googleCloudDialogflowV2VoiceSelectionParams + :: GoogleCloudDialogflowV2VoiceSelectionParams +googleCloudDialogflowV2VoiceSelectionParams = + GoogleCloudDialogflowV2VoiceSelectionParams' + {_gcdvvspSsmlGender = Nothing, _gcdvvspName = Nothing} + + +-- | Optional. The preferred gender of the voice. If not set, the service +-- will choose a voice based on the other parameters such as language_code +-- and name. Note that this is only a preference, not requirement. If a +-- voice of the appropriate gender is not available, the synthesizer should +-- substitute a voice with a different gender rather than failing the +-- request. +gcdvvspSsmlGender :: Lens' GoogleCloudDialogflowV2VoiceSelectionParams (Maybe GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender) +gcdvvspSsmlGender + = lens _gcdvvspSsmlGender + (\ s a -> s{_gcdvvspSsmlGender = a}) + +-- | Optional. The name of the voice. If not set, the service will choose a +-- voice based on the other parameters such as language_code and gender. +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]) + +-- | The free-form diagnostic info. For example, this field could contain +-- webhook call latency. The string keys of the Struct\'s fields map can +-- change without notice. +-- +-- /See:/ 'googleCloudDialogflowV2QueryResultDiagnosticInfo' smart constructor. +newtype GoogleCloudDialogflowV2QueryResultDiagnosticInfo = + GoogleCloudDialogflowV2QueryResultDiagnosticInfo' + { _gcdvqrdiAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryResultDiagnosticInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrdiAddtional' +googleCloudDialogflowV2QueryResultDiagnosticInfo + :: HashMap Text JSONValue -- ^ 'gcdvqrdiAddtional' + -> GoogleCloudDialogflowV2QueryResultDiagnosticInfo +googleCloudDialogflowV2QueryResultDiagnosticInfo pGcdvqrdiAddtional_ = + GoogleCloudDialogflowV2QueryResultDiagnosticInfo' + {_gcdvqrdiAddtional = _Coerce # pGcdvqrdiAddtional_} + + +-- | Properties of the object. +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 + +-- | The text response message. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageText' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageText = + GoogleCloudDialogflowV2IntentMessageText' + { _gcdvimtText :: Maybe [Text] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageText' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimtText' +googleCloudDialogflowV2IntentMessageText + :: GoogleCloudDialogflowV2IntentMessageText +googleCloudDialogflowV2IntentMessageText = + GoogleCloudDialogflowV2IntentMessageText' {_gcdvimtText = Nothing} + + +-- | Optional. The collection of the agent\'s responses. +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]) + +-- | The request to detect user\'s intent. +-- +-- /See:/ 'googleCloudDialogflowV2DetectIntentRequest' smart constructor. +data GoogleCloudDialogflowV2DetectIntentRequest = + GoogleCloudDialogflowV2DetectIntentRequest' + { _gQueryInput :: !(Maybe GoogleCloudDialogflowV2QueryInput) + , _gOutputAudioConfig :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfig) + , _gInputAudio :: !(Maybe Bytes) + , _gQueryParams :: !(Maybe GoogleCloudDialogflowV2QueryParameters) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2DetectIntentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gQueryInput' +-- +-- * 'gOutputAudioConfig' +-- +-- * 'gInputAudio' +-- +-- * 'gQueryParams' +googleCloudDialogflowV2DetectIntentRequest + :: GoogleCloudDialogflowV2DetectIntentRequest +googleCloudDialogflowV2DetectIntentRequest = + GoogleCloudDialogflowV2DetectIntentRequest' + { _gQueryInput = Nothing + , _gOutputAudioConfig = Nothing + , _gInputAudio = Nothing + , _gQueryParams = Nothing + } + + +-- | Required. The input specification. It can be set to: 1. an audio config +-- which instructs the speech recognizer how to process the speech audio, +-- 2. a conversational query in the form of text, or 3. an event that +-- specifies which intent to trigger. +gQueryInput :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2QueryInput) +gQueryInput + = lens _gQueryInput (\ s a -> s{_gQueryInput = a}) + +-- | Optional. Instructs the speech synthesizer how to generate the output +-- audio. If this field is not set and agent-level speech synthesizer is +-- not configured, no output audio is generated. +gOutputAudioConfig :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe GoogleCloudDialogflowV2OutputAudioConfig) +gOutputAudioConfig + = lens _gOutputAudioConfig + (\ s a -> s{_gOutputAudioConfig = a}) + +-- | Optional. The natural language speech audio to be processed. This field +-- should be populated iff \`query_input\` is set to an input audio config. +-- A single request can contain up to 1 minute of speech audio data. +gInputAudio :: Lens' GoogleCloudDialogflowV2DetectIntentRequest (Maybe ByteString) +gInputAudio + = lens _gInputAudio (\ s a -> s{_gInputAudio = a}) . + mapping _Bytes + +-- | Optional. The parameters of this query. +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]) + +-- | The collection of extracted parameters. +-- +-- /See:/ 'googleCloudDialogflowV2beta1QueryResultParameters' smart constructor. +newtype GoogleCloudDialogflowV2beta1QueryResultParameters = + GoogleCloudDialogflowV2beta1QueryResultParameters' + { _gcdvqrpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrpAddtional' +googleCloudDialogflowV2beta1QueryResultParameters + :: HashMap Text JSONValue -- ^ 'gcdvqrpAddtional' + -> GoogleCloudDialogflowV2beta1QueryResultParameters +googleCloudDialogflowV2beta1QueryResultParameters pGcdvqrpAddtional_ = + GoogleCloudDialogflowV2beta1QueryResultParameters' + {_gcdvqrpAddtional = _Coerce # pGcdvqrpAddtional_} + + +-- | Properties of the object. +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 + +-- | The basic card message. Useful for displaying information. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageBasicCard' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageBasicCard = + GoogleCloudDialogflowV2beta1IntentMessageBasicCard' + { _gcdvimbccImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) + , _gcdvimbccButtons :: !(Maybe [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton]) + , _gcdvimbccSubtitle :: !(Maybe Text) + , _gcdvimbccTitle :: !(Maybe Text) + , _gcdvimbccFormattedText :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageBasicCard' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbccImage' +-- +-- * 'gcdvimbccButtons' +-- +-- * 'gcdvimbccSubtitle' +-- +-- * 'gcdvimbccTitle' +-- +-- * 'gcdvimbccFormattedText' +googleCloudDialogflowV2beta1IntentMessageBasicCard + :: GoogleCloudDialogflowV2beta1IntentMessageBasicCard +googleCloudDialogflowV2beta1IntentMessageBasicCard = + GoogleCloudDialogflowV2beta1IntentMessageBasicCard' + { _gcdvimbccImage = Nothing + , _gcdvimbccButtons = Nothing + , _gcdvimbccSubtitle = Nothing + , _gcdvimbccTitle = Nothing + , _gcdvimbccFormattedText = Nothing + } + + +-- | Optional. The image for the card. +gcdvimbccImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) +gcdvimbccImage + = lens _gcdvimbccImage + (\ s a -> s{_gcdvimbccImage = a}) + +-- | Optional. The collection of card buttons. +gcdvimbccButtons :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard [GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton] +gcdvimbccButtons + = lens _gcdvimbccButtons + (\ s a -> s{_gcdvimbccButtons = a}) + . _Default + . _Coerce + +-- | Optional. The subtitle of the card. +gcdvimbccSubtitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text) +gcdvimbccSubtitle + = lens _gcdvimbccSubtitle + (\ s a -> s{_gcdvimbccSubtitle = a}) + +-- | Optional. The title of the card. +gcdvimbccTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageBasicCard (Maybe Text) +gcdvimbccTitle + = lens _gcdvimbccTitle + (\ s a -> s{_gcdvimbccTitle = a}) + +-- | Required, unless image is present. The body text of the card. +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]) + +-- | Represents an example that the agent is trained on. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentTrainingPhrase' smart constructor. +data GoogleCloudDialogflowV2beta1IntentTrainingPhrase = + GoogleCloudDialogflowV2beta1IntentTrainingPhrase' + { _gParts :: !(Maybe [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart]) + , _gName :: !(Maybe Text) + , _gTimesAddedCount :: !(Maybe (Textual Int32)) + , _gType :: !(Maybe GoogleCloudDialogflowV2beta1IntentTrainingPhraseType) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentTrainingPhrase' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gParts' +-- +-- * 'gName' +-- +-- * 'gTimesAddedCount' +-- +-- * 'gType' +googleCloudDialogflowV2beta1IntentTrainingPhrase + :: GoogleCloudDialogflowV2beta1IntentTrainingPhrase +googleCloudDialogflowV2beta1IntentTrainingPhrase = + GoogleCloudDialogflowV2beta1IntentTrainingPhrase' + { _gParts = Nothing + , _gName = Nothing + , _gTimesAddedCount = Nothing + , _gType = Nothing + } + + +-- | Required. The ordered list of training phrase parts. The parts are +-- concatenated in order to form the training phrase. Note: The API does +-- not automatically annotate training phrases like the Dialogflow Console +-- does. Note: Do not forget to include whitespace at part boundaries, so +-- the training phrase is well formatted when the parts are concatenated. +-- If the training phrase does not need to be annotated with parameters, +-- you just need a single part with only the Part.text field set. If you +-- want to annotate the training phrase, you must create multiple parts, +-- where the fields of each part are populated in one of two ways: - +-- \`Part.text\` is set to a part of the phrase that has no parameters. - +-- \`Part.text\` is set to a part of the phrase that you want to annotate, +-- and the \`entity_type\`, \`alias\`, and \`user_defined\` fields are all +-- set. +gParts :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase [GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart] +gParts + = lens _gParts (\ s a -> s{_gParts = a}) . _Default . + _Coerce + +-- | Output only. The unique identifier of this training phrase. +gName :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Text) +gName = lens _gName (\ s a -> s{_gName = a}) + +-- | Optional. Indicates how many times this example was added to the intent. +-- Each time a developer adds an existing sample by editing an intent or +-- training, this counter is increased. +gTimesAddedCount :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrase (Maybe Int32) +gTimesAddedCount + = lens _gTimesAddedCount + (\ s a -> s{_gTimesAddedCount = a}) + . mapping _Coerce + +-- | Required. The type of the training phrase. +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]) + +-- | An answer from Knowledge Connector. +-- +-- /See:/ 'googleCloudDialogflowV2beta1KnowledgeAnswersAnswer' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvkaaMatchConfidence' +-- +-- * 'gcdvkaaAnswer' +-- +-- * 'gcdvkaaSource' +-- +-- * 'gcdvkaaFaqQuestion' +-- +-- * 'gcdvkaaMatchConfidenceLevel' +googleCloudDialogflowV2beta1KnowledgeAnswersAnswer + :: GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer +googleCloudDialogflowV2beta1KnowledgeAnswersAnswer = + GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer' + { _gcdvkaaMatchConfidence = Nothing + , _gcdvkaaAnswer = Nothing + , _gcdvkaaSource = Nothing + , _gcdvkaaFaqQuestion = Nothing + , _gcdvkaaMatchConfidenceLevel = Nothing + } + + +-- | The system\'s confidence score that this Knowledge answer is a good +-- match for this conversational query. The range is from 0.0 (completely +-- uncertain) to 1.0 (completely certain). Note: The confidence score is +-- likely to vary somewhat (possibly even for identical requests), as the +-- underlying model is under constant improvement. It may be deprecated in +-- the future. We recommend using \`match_confidence_level\` which should +-- be generally more stable. +gcdvkaaMatchConfidence :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Double) +gcdvkaaMatchConfidence + = lens _gcdvkaaMatchConfidence + (\ s a -> s{_gcdvkaaMatchConfidence = a}) + . mapping _Coerce + +-- | The piece of text from the \`source\` knowledge base document that +-- answers this conversational query. +gcdvkaaAnswer :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) +gcdvkaaAnswer + = lens _gcdvkaaAnswer + (\ s a -> s{_gcdvkaaAnswer = a}) + +-- | Indicates which Knowledge Document this answer was extracted from. +-- Format: \`projects\/\/knowledgeBases\/\/documents\/\`. +gcdvkaaSource :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) +gcdvkaaSource + = lens _gcdvkaaSource + (\ s a -> s{_gcdvkaaSource = a}) + +-- | The corresponding FAQ question if the answer was extracted from a FAQ +-- Document, empty otherwise. +gcdvkaaFaqQuestion :: Lens' GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer (Maybe Text) +gcdvkaaFaqQuestion + = lens _gcdvkaaFaqQuestion + (\ s a -> s{_gcdvkaaFaqQuestion = a}) + +-- | The system\'s confidence level that this knowledge answer is a good +-- match for this conversational query. NOTE: The confidence level for a +-- given \`\` pair may change without notice, as it depends on models that +-- are constantly being improved. However, it will change less frequently +-- than the confidence score below, and should be preferred for referencing +-- the quality of an answer. +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]) + +-- | Events allow for matching intents by event name instead of the natural +-- language input. For instance, input \`\` can trigger a personalized +-- welcome response. The parameter \`name\` may be used by the agent in the +-- response: \`\"Hello #welcome_event.name! What can I do for you +-- today?\"\`. +-- +-- /See:/ 'googleCloudDialogflowV2beta1EventInput' smart constructor. +data GoogleCloudDialogflowV2beta1EventInput = + GoogleCloudDialogflowV2beta1EventInput' + { _gooLanguageCode :: !(Maybe Text) + , _gooName :: !(Maybe Text) + , _gooParameters :: !(Maybe GoogleCloudDialogflowV2beta1EventInputParameters) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1EventInput' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooLanguageCode' +-- +-- * 'gooName' +-- +-- * 'gooParameters' +googleCloudDialogflowV2beta1EventInput + :: GoogleCloudDialogflowV2beta1EventInput +googleCloudDialogflowV2beta1EventInput = + GoogleCloudDialogflowV2beta1EventInput' + {_gooLanguageCode = Nothing, _gooName = Nothing, _gooParameters = Nothing} + + +-- | Required. The language of this query. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. Note that queries +-- in the same session do not necessarily need to specify the same +-- language. +gooLanguageCode :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text) +gooLanguageCode + = lens _gooLanguageCode + (\ s a -> s{_gooLanguageCode = a}) + +-- | Required. The unique identifier of the event. +gooName :: Lens' GoogleCloudDialogflowV2beta1EventInput (Maybe Text) +gooName = lens _gooName (\ s a -> s{_gooName = a}) + +-- | Optional. The collection of parameters associated with the event. +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]) + +-- | The request message for EntityTypes.BatchUpdateEntities. +-- +-- /See:/ 'googleCloudDialogflowV2BatchUpdateEntitiesRequest' smart constructor. +data GoogleCloudDialogflowV2BatchUpdateEntitiesRequest = + GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' + { _gcdvbuerLanguageCode :: !(Maybe Text) + , _gcdvbuerUpdateMask :: !(Maybe GFieldMask) + , _gcdvbuerEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbuerLanguageCode' +-- +-- * 'gcdvbuerUpdateMask' +-- +-- * 'gcdvbuerEntities' +googleCloudDialogflowV2BatchUpdateEntitiesRequest + :: GoogleCloudDialogflowV2BatchUpdateEntitiesRequest +googleCloudDialogflowV2BatchUpdateEntitiesRequest = + GoogleCloudDialogflowV2BatchUpdateEntitiesRequest' + { _gcdvbuerLanguageCode = Nothing + , _gcdvbuerUpdateMask = Nothing + , _gcdvbuerEntities = Nothing + } + + +-- | Optional. The language of entity synonyms defined in \`entities\`. If +-- not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. +gcdvbuerLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe Text) +gcdvbuerLanguageCode + = lens _gcdvbuerLanguageCode + (\ s a -> s{_gcdvbuerLanguageCode = a}) + +-- | Optional. The mask to control which fields get updated. +gcdvbuerUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntitiesRequest (Maybe GFieldMask) +gcdvbuerUpdateMask + = lens _gcdvbuerUpdateMask + (\ s a -> s{_gcdvbuerUpdateMask = a}) + +-- | Required. The entities to update or create. +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]) + +-- | Returns a response containing a custom, platform-specific payload. See +-- the Intent.Message.Platform type for a description of the structure that +-- may be required for your platform. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessagePayload' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessagePayload = + GoogleCloudDialogflowV2IntentMessagePayload' + { _gooAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessagePayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooAddtional' +googleCloudDialogflowV2IntentMessagePayload + :: HashMap Text JSONValue -- ^ 'gooAddtional' + -> GoogleCloudDialogflowV2IntentMessagePayload +googleCloudDialogflowV2IntentMessagePayload pGooAddtional_ = + GoogleCloudDialogflowV2IntentMessagePayload' + {_gooAddtional = _Coerce # pGooAddtional_} + + +-- | Properties of the object. +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 + +-- | Metadata in google::longrunning::Operation for Knowledge operations. +-- +-- /See:/ 'googleCloudDialogflowV2beta1KnowledgeOperationMetadata' smart constructor. +newtype GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata = + GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' + { _gcdvkomState :: Maybe GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvkomState' +googleCloudDialogflowV2beta1KnowledgeOperationMetadata + :: GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata +googleCloudDialogflowV2beta1KnowledgeOperationMetadata = + GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata' + {_gcdvkomState = Nothing} + + +-- | Required. The current state of this operation. +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]) + +-- | The request message for a webhook call. +-- +-- /See:/ 'googleCloudDialogflowV2beta1WebhookRequest' smart constructor. +data GoogleCloudDialogflowV2beta1WebhookRequest = + GoogleCloudDialogflowV2beta1WebhookRequest' + { _gOriginalDetectIntentRequest :: !(Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest) + , _gResponseId :: !(Maybe Text) + , _gAlternativeQueryResults :: !(Maybe [GoogleCloudDialogflowV2beta1QueryResult]) + , _gQueryResult :: !(Maybe GoogleCloudDialogflowV2beta1QueryResult) + , _gSession :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1WebhookRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gOriginalDetectIntentRequest' +-- +-- * 'gResponseId' +-- +-- * 'gAlternativeQueryResults' +-- +-- * 'gQueryResult' +-- +-- * 'gSession' +googleCloudDialogflowV2beta1WebhookRequest + :: GoogleCloudDialogflowV2beta1WebhookRequest +googleCloudDialogflowV2beta1WebhookRequest = + GoogleCloudDialogflowV2beta1WebhookRequest' + { _gOriginalDetectIntentRequest = Nothing + , _gResponseId = Nothing + , _gAlternativeQueryResults = Nothing + , _gQueryResult = Nothing + , _gSession = Nothing + } + + +-- | Optional. The contents of the original request that was passed to +-- \`[Streaming]DetectIntent\` call. +gOriginalDetectIntentRequest :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest) +gOriginalDetectIntentRequest + = lens _gOriginalDetectIntentRequest + (\ s a -> s{_gOriginalDetectIntentRequest = a}) + +-- | The unique identifier of the response. Contains the same value as +-- \`[Streaming]DetectIntentResponse.response_id\`. +gResponseId :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe Text) +gResponseId + = lens _gResponseId (\ s a -> s{_gResponseId = a}) + +-- | Alternative query results from KnowledgeService. +gAlternativeQueryResults :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest [GoogleCloudDialogflowV2beta1QueryResult] +gAlternativeQueryResults + = lens _gAlternativeQueryResults + (\ s a -> s{_gAlternativeQueryResults = a}) + . _Default + . _Coerce + +-- | The result of the conversational query or event processing. Contains the +-- same value as \`[Streaming]DetectIntentResponse.query_result\`. +gQueryResult :: Lens' GoogleCloudDialogflowV2beta1WebhookRequest (Maybe GoogleCloudDialogflowV2beta1QueryResult) +gQueryResult + = lens _gQueryResult (\ s a -> s{_gQueryResult = a}) + +-- | The unique identifier of detectIntent request session. Can be used to +-- identify end-user inside webhook implementation. Format: +-- \`projects\/\/agent\/sessions\/\`, or +-- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\`. +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]) + +-- | The text response message. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageText' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageText = + GoogleCloudDialogflowV2beta1IntentMessageText' + { _gooText :: Maybe [Text] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageText' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooText' +googleCloudDialogflowV2beta1IntentMessageText + :: GoogleCloudDialogflowV2beta1IntentMessageText +googleCloudDialogflowV2beta1IntentMessageText = + GoogleCloudDialogflowV2beta1IntentMessageText' {_gooText = Nothing} + + +-- | Optional. The collection of the agent\'s responses. +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]) + +-- | The collection of simple response candidates. This message in +-- \`QueryResult.fulfillment_messages\` and +-- \`WebhookResponse.fulfillment_messages\` should contain only one +-- \`SimpleResponse\`. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageSimpleResponses' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageSimpleResponses = + GoogleCloudDialogflowV2IntentMessageSimpleResponses' + { _gSimpleResponses :: Maybe [GoogleCloudDialogflowV2IntentMessageSimpleResponse] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSimpleResponses' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gSimpleResponses' +googleCloudDialogflowV2IntentMessageSimpleResponses + :: GoogleCloudDialogflowV2IntentMessageSimpleResponses +googleCloudDialogflowV2IntentMessageSimpleResponses = + GoogleCloudDialogflowV2IntentMessageSimpleResponses' + {_gSimpleResponses = Nothing} + + +-- | Required. The list of simple responses. +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]) + +-- | Represents a single followup intent in the chain. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentFollowupIntentInfo' smart constructor. +data GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo = + GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' + { _gFollowupIntentName :: !(Maybe Text) + , _gParentFollowupIntentName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gFollowupIntentName' +-- +-- * 'gParentFollowupIntentName' +googleCloudDialogflowV2beta1IntentFollowupIntentInfo + :: GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo +googleCloudDialogflowV2beta1IntentFollowupIntentInfo = + GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo' + {_gFollowupIntentName = Nothing, _gParentFollowupIntentName = Nothing} + + +-- | The unique identifier of the followup intent. Format: +-- \`projects\/\/agent\/intents\/\`. +gFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo (Maybe Text) +gFollowupIntentName + = lens _gFollowupIntentName + (\ s a -> s{_gFollowupIntentName = a}) + +-- | The unique identifier of the followup intent\'s parent. Format: +-- \`projects\/\/agent\/intents\/\`. +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]) + +-- | The collection of extracted parameters. +-- +-- /See:/ 'googleCloudDialogflowV2QueryResultParameters' smart constructor. +newtype GoogleCloudDialogflowV2QueryResultParameters = + GoogleCloudDialogflowV2QueryResultParameters' + { _gcdvqrpsAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryResultParameters' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrpsAddtional' +googleCloudDialogflowV2QueryResultParameters + :: HashMap Text JSONValue -- ^ 'gcdvqrpsAddtional' + -> GoogleCloudDialogflowV2QueryResultParameters +googleCloudDialogflowV2QueryResultParameters pGcdvqrpsAddtional_ = + GoogleCloudDialogflowV2QueryResultParameters' + {_gcdvqrpsAddtional = _Coerce # pGcdvqrpsAddtional_} + + +-- | Properties of the object. +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 + +-- | The free-form diagnostic info. For example, this field could contain +-- webhook call latency. The string keys of the Struct\'s fields map can +-- change without notice. +-- +-- /See:/ 'googleCloudDialogflowV2beta1QueryResultDiagnosticInfo' smart constructor. +newtype GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo = + GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' + { _gcdvqrdicAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrdicAddtional' +googleCloudDialogflowV2beta1QueryResultDiagnosticInfo + :: HashMap Text JSONValue -- ^ 'gcdvqrdicAddtional' + -> GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo +googleCloudDialogflowV2beta1QueryResultDiagnosticInfo pGcdvqrdicAddtional_ = + GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo' + {_gcdvqrdicAddtional = _Coerce # pGcdvqrdicAddtional_} + + +-- | Properties of the object. +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 + +-- | The request message for EntityTypes.BatchDeleteEntities. +-- +-- /See:/ 'googleCloudDialogflowV2BatchDeleteEntitiesRequest' smart constructor. +data GoogleCloudDialogflowV2BatchDeleteEntitiesRequest = + GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' + { _gcdvbderLanguageCode :: !(Maybe Text) + , _gcdvbderEntityValues :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbderLanguageCode' +-- +-- * 'gcdvbderEntityValues' +googleCloudDialogflowV2BatchDeleteEntitiesRequest + :: GoogleCloudDialogflowV2BatchDeleteEntitiesRequest +googleCloudDialogflowV2BatchDeleteEntitiesRequest = + GoogleCloudDialogflowV2BatchDeleteEntitiesRequest' + {_gcdvbderLanguageCode = Nothing, _gcdvbderEntityValues = Nothing} + + +-- | Optional. The language of entity synonyms defined in \`entities\`. If +-- not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. +gcdvbderLanguageCode :: Lens' GoogleCloudDialogflowV2BatchDeleteEntitiesRequest (Maybe Text) +gcdvbderLanguageCode + = lens _gcdvbderLanguageCode + (\ s a -> s{_gcdvbderLanguageCode = a}) + +-- | Required. The canonical \`values\` of the entities to delete. Note that +-- these are not fully-qualified names, i.e. they don\'t start with +-- \`projects\/\`. +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]) + +-- | The response message for Intents.BatchUpdateIntents. +-- +-- /See:/ 'googleCloudDialogflowV2BatchUpdateIntentsResponse' smart constructor. +newtype GoogleCloudDialogflowV2BatchUpdateIntentsResponse = + GoogleCloudDialogflowV2BatchUpdateIntentsResponse' + { _gIntents :: Maybe [GoogleCloudDialogflowV2Intent] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateIntentsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gIntents' +googleCloudDialogflowV2BatchUpdateIntentsResponse + :: GoogleCloudDialogflowV2BatchUpdateIntentsResponse +googleCloudDialogflowV2BatchUpdateIntentsResponse = + GoogleCloudDialogflowV2BatchUpdateIntentsResponse' {_gIntents = Nothing} + + +-- | The collection of updated or created intents. +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]) + +-- | The response message for EntityTypes.ListEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2ListEntityTypesResponse' smart constructor. +data GoogleCloudDialogflowV2ListEntityTypesResponse = + GoogleCloudDialogflowV2ListEntityTypesResponse' + { _gcdvletrNextPageToken :: !(Maybe Text) + , _gcdvletrEntityTypes :: !(Maybe [GoogleCloudDialogflowV2EntityType]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ListEntityTypesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvletrNextPageToken' +-- +-- * 'gcdvletrEntityTypes' +googleCloudDialogflowV2ListEntityTypesResponse + :: GoogleCloudDialogflowV2ListEntityTypesResponse +googleCloudDialogflowV2ListEntityTypesResponse = + GoogleCloudDialogflowV2ListEntityTypesResponse' + {_gcdvletrNextPageToken = Nothing, _gcdvletrEntityTypes = Nothing} + + +-- | Token to retrieve the next page of results, or empty if there are no +-- more results in the list. +gcdvletrNextPageToken :: Lens' GoogleCloudDialogflowV2ListEntityTypesResponse (Maybe Text) +gcdvletrNextPageToken + = lens _gcdvletrNextPageToken + (\ s a -> s{_gcdvletrNextPageToken = a}) + +-- | The list of agent entity types. There will be a maximum number of items +-- returned based on the page_size field in the request. +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]) + +-- | Represents a conversational agent. +-- +-- /See:/ 'googleCloudDialogflowV2Agent' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2Agent' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvaParent' +-- +-- * 'gcdvaDefaultLanguageCode' +-- +-- * 'gcdvaEnableLogging' +-- +-- * 'gcdvaClassificationThreshold' +-- +-- * 'gcdvaAvatarURI' +-- +-- * 'gcdvaSupportedLanguageCodes' +-- +-- * 'gcdvaDisplayName' +-- +-- * 'gcdvaMatchMode' +-- +-- * 'gcdvaTimeZone' +-- +-- * 'gcdvaDescription' +googleCloudDialogflowV2Agent + :: GoogleCloudDialogflowV2Agent +googleCloudDialogflowV2Agent = + GoogleCloudDialogflowV2Agent' + { _gcdvaParent = Nothing + , _gcdvaDefaultLanguageCode = Nothing + , _gcdvaEnableLogging = Nothing + , _gcdvaClassificationThreshold = Nothing + , _gcdvaAvatarURI = Nothing + , _gcdvaSupportedLanguageCodes = Nothing + , _gcdvaDisplayName = Nothing + , _gcdvaMatchMode = Nothing + , _gcdvaTimeZone = Nothing + , _gcdvaDescription = Nothing + } + + +-- | Required. The project of this agent. Format: \`projects\/\`. +gcdvaParent :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) +gcdvaParent + = lens _gcdvaParent (\ s a -> s{_gcdvaParent = a}) + +-- | Required. The default language of the agent as a language tag. See +-- [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. This field cannot +-- be set by the \`Update\` method. +gcdvaDefaultLanguageCode :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) +gcdvaDefaultLanguageCode + = lens _gcdvaDefaultLanguageCode + (\ s a -> s{_gcdvaDefaultLanguageCode = a}) + +-- | Optional. Determines whether this agent should log conversation queries. +gcdvaEnableLogging :: Lens' GoogleCloudDialogflowV2Agent (Maybe Bool) +gcdvaEnableLogging + = lens _gcdvaEnableLogging + (\ s a -> s{_gcdvaEnableLogging = a}) + +-- | Optional. To filter out false positive results and still get variety in +-- matched natural language inputs for your agent, you can tune the machine +-- learning classification threshold. If the returned score value is less +-- than the threshold value, then a fallback intent will be triggered or, +-- if there are no fallback intents defined, no intent will be triggered. +-- The score values range from 0.0 (completely uncertain) to 1.0 +-- (completely certain). If set to 0.0, the default of 0.3 is used. +gcdvaClassificationThreshold :: Lens' GoogleCloudDialogflowV2Agent (Maybe Double) +gcdvaClassificationThreshold + = lens _gcdvaClassificationThreshold + (\ s a -> s{_gcdvaClassificationThreshold = a}) + . mapping _Coerce + +-- | Optional. The URI of the agent\'s avatar. Avatars are used throughout +-- the Dialogflow console and in the self-hosted [Web +-- Demo](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/integrations\/web-demo) +-- integration. +gcdvaAvatarURI :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) +gcdvaAvatarURI + = lens _gcdvaAvatarURI + (\ s a -> s{_gcdvaAvatarURI = a}) + +-- | Optional. The list of all languages supported by this agent (except for +-- the \`default_language_code\`). +gcdvaSupportedLanguageCodes :: Lens' GoogleCloudDialogflowV2Agent [Text] +gcdvaSupportedLanguageCodes + = lens _gcdvaSupportedLanguageCodes + (\ s a -> s{_gcdvaSupportedLanguageCodes = a}) + . _Default + . _Coerce + +-- | Required. The name of this agent. +gcdvaDisplayName :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) +gcdvaDisplayName + = lens _gcdvaDisplayName + (\ s a -> s{_gcdvaDisplayName = a}) + +-- | Optional. Determines how intents are detected from user queries. +gcdvaMatchMode :: Lens' GoogleCloudDialogflowV2Agent (Maybe GoogleCloudDialogflowV2AgentMatchMode) +gcdvaMatchMode + = lens _gcdvaMatchMode + (\ s a -> s{_gcdvaMatchMode = a}) + +-- | Required. The time zone of this agent from the [time zone +-- database](https:\/\/www.iana.org\/time-zones), e.g., America\/New_York, +-- Europe\/Paris. +gcdvaTimeZone :: Lens' GoogleCloudDialogflowV2Agent (Maybe Text) +gcdvaTimeZone + = lens _gcdvaTimeZone + (\ s a -> s{_gcdvaTimeZone = a}) + +-- | Optional. The description of this agent. The maximum length is 500 +-- characters. If exceeded, the request is rejected. +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]) + +-- | Corresponds to the \`Response\` field in the Dialogflow console. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessage' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimCard' +-- +-- * 'gcdvimImage' +-- +-- * 'gcdvimPlatform' +-- +-- * 'gcdvimLinkOutSuggestion' +-- +-- * 'gcdvimText' +-- +-- * 'gcdvimCarouselSelect' +-- +-- * 'gcdvimTelephonySynthesizeSpeech' +-- +-- * 'gcdvimSimpleResponses' +-- +-- * 'gcdvimPayload' +-- +-- * 'gcdvimTelephonyTransferCall' +-- +-- * 'gcdvimSuggestions' +-- +-- * 'gcdvimListSelect' +-- +-- * 'gcdvimTelephonyPlayAudio' +-- +-- * 'gcdvimBasicCard' +-- +-- * 'gcdvimQuickReplies' +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 + } + + +-- | Displays a card. +gcdvimCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCard) +gcdvimCard + = lens _gcdvimCard (\ s a -> s{_gcdvimCard = a}) + +-- | Displays an image. +gcdvimImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) +gcdvimImage + = lens _gcdvimImage (\ s a -> s{_gcdvimImage = a}) + +-- | Optional. The platform that this message is intended for. +gcdvimPlatform :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePlatform) +gcdvimPlatform + = lens _gcdvimPlatform + (\ s a -> s{_gcdvimPlatform = a}) + +-- | Displays a link out suggestion chip for Actions on Google. +gcdvimLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion) +gcdvimLinkOutSuggestion + = lens _gcdvimLinkOutSuggestion + (\ s a -> s{_gcdvimLinkOutSuggestion = a}) + +-- | Returns a text response. +gcdvimText :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageText) +gcdvimText + = lens _gcdvimText (\ s a -> s{_gcdvimText = a}) + +-- | Displays a carousel card for Actions on Google. +gcdvimCarouselSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect) +gcdvimCarouselSelect + = lens _gcdvimCarouselSelect + (\ s a -> s{_gcdvimCarouselSelect = a}) + +-- | Synthesizes speech in Telephony Gateway. +gcdvimTelephonySynthesizeSpeech :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech) +gcdvimTelephonySynthesizeSpeech + = lens _gcdvimTelephonySynthesizeSpeech + (\ s a -> s{_gcdvimTelephonySynthesizeSpeech = a}) + +-- | Returns a voice or text-only response for Actions on Google. +gcdvimSimpleResponses :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses) +gcdvimSimpleResponses + = lens _gcdvimSimpleResponses + (\ s a -> s{_gcdvimSimpleResponses = a}) + +-- | Returns a response containing a custom, platform-specific payload. See +-- the Intent.Message.Platform type for a description of the structure that +-- may be required for your platform. +gcdvimPayload :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessagePayload) +gcdvimPayload + = lens _gcdvimPayload + (\ s a -> s{_gcdvimPayload = a}) + +-- | Transfers the call in Telephony Gateway. +gcdvimTelephonyTransferCall :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall) +gcdvimTelephonyTransferCall + = lens _gcdvimTelephonyTransferCall + (\ s a -> s{_gcdvimTelephonyTransferCall = a}) + +-- | Displays suggestion chips for Actions on Google. +gcdvimSuggestions :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageSuggestions) +gcdvimSuggestions + = lens _gcdvimSuggestions + (\ s a -> s{_gcdvimSuggestions = a}) + +-- | Displays a list card for Actions on Google. +gcdvimListSelect :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageListSelect) +gcdvimListSelect + = lens _gcdvimListSelect + (\ s a -> s{_gcdvimListSelect = a}) + +-- | Plays audio from a file in Telephony Gateway. +gcdvimTelephonyPlayAudio :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio) +gcdvimTelephonyPlayAudio + = lens _gcdvimTelephonyPlayAudio + (\ s a -> s{_gcdvimTelephonyPlayAudio = a}) + +-- | Displays a basic card for Actions on Google. +gcdvimBasicCard :: Lens' GoogleCloudDialogflowV2beta1IntentMessage (Maybe GoogleCloudDialogflowV2beta1IntentMessageBasicCard) +gcdvimBasicCard + = lens _gcdvimBasicCard + (\ s a -> s{_gcdvimBasicCard = a}) + +-- | Displays quick replies. +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]) + +-- | Additional info about the select item for when it is triggered in a +-- dialog. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageSelectItemInfo' smart constructor. +data GoogleCloudDialogflowV2IntentMessageSelectItemInfo = + GoogleCloudDialogflowV2IntentMessageSelectItemInfo' + { _gcdvimsiiKey :: !(Maybe Text) + , _gcdvimsiiSynonyms :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSelectItemInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimsiiKey' +-- +-- * 'gcdvimsiiSynonyms' +googleCloudDialogflowV2IntentMessageSelectItemInfo + :: GoogleCloudDialogflowV2IntentMessageSelectItemInfo +googleCloudDialogflowV2IntentMessageSelectItemInfo = + GoogleCloudDialogflowV2IntentMessageSelectItemInfo' + {_gcdvimsiiKey = Nothing, _gcdvimsiiSynonyms = Nothing} + + +-- | Required. A unique key that will be sent back to the agent if this +-- response is given. +gcdvimsiiKey :: Lens' GoogleCloudDialogflowV2IntentMessageSelectItemInfo (Maybe Text) +gcdvimsiiKey + = lens _gcdvimsiiKey (\ s a -> s{_gcdvimsiiKey = a}) + +-- | Optional. A list of synonyms that can also be used to trigger this item +-- in dialog. +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]) + +-- | The sentiment, such as positive\/negative feeling or association, for a +-- unit of analysis, such as the query text. +-- +-- /See:/ 'googleCloudDialogflowV2beta1Sentiment' smart constructor. +data GoogleCloudDialogflowV2beta1Sentiment = + GoogleCloudDialogflowV2beta1Sentiment' + { _gcdvsScore :: !(Maybe (Textual Double)) + , _gcdvsMagnitude :: !(Maybe (Textual Double)) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1Sentiment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvsScore' +-- +-- * 'gcdvsMagnitude' +googleCloudDialogflowV2beta1Sentiment + :: GoogleCloudDialogflowV2beta1Sentiment +googleCloudDialogflowV2beta1Sentiment = + GoogleCloudDialogflowV2beta1Sentiment' + {_gcdvsScore = Nothing, _gcdvsMagnitude = Nothing} + + +-- | Sentiment score between -1.0 (negative sentiment) and 1.0 (positive +-- sentiment). +gcdvsScore :: Lens' GoogleCloudDialogflowV2beta1Sentiment (Maybe Double) +gcdvsScore + = lens _gcdvsScore (\ s a -> s{_gcdvsScore = a}) . + mapping _Coerce + +-- | A non-negative number in the [0, +inf) range, which represents the +-- absolute magnitude of sentiment, regardless of score (positive or +-- negative). +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]) + +-- | The request message for EntityTypes.BatchDeleteEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2BatchDeleteEntityTypesRequest' smart constructor. +newtype GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest = + GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' + { _gcdvbdetrEntityTypeNames :: Maybe [Text] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbdetrEntityTypeNames' +googleCloudDialogflowV2BatchDeleteEntityTypesRequest + :: GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest +googleCloudDialogflowV2BatchDeleteEntityTypesRequest = + GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest' + {_gcdvbdetrEntityTypeNames = Nothing} + + +-- | Required. The names entity types to delete. All names must point to the +-- same agent as \`parent\`. +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]) + +-- | Represents the query input. It can contain either: 1. An audio config +-- which instructs the speech recognizer how to process the speech audio. +-- 2. A conversational query in the form of text,. 3. An event that +-- specifies which intent to trigger. +-- +-- /See:/ 'googleCloudDialogflowV2QueryInput' smart constructor. +data GoogleCloudDialogflowV2QueryInput = + GoogleCloudDialogflowV2QueryInput' + { _gcdvqiAudioConfig :: !(Maybe GoogleCloudDialogflowV2InputAudioConfig) + , _gcdvqiEvent :: !(Maybe GoogleCloudDialogflowV2EventInput) + , _gcdvqiText :: !(Maybe GoogleCloudDialogflowV2TextInput) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryInput' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqiAudioConfig' +-- +-- * 'gcdvqiEvent' +-- +-- * 'gcdvqiText' +googleCloudDialogflowV2QueryInput + :: GoogleCloudDialogflowV2QueryInput +googleCloudDialogflowV2QueryInput = + GoogleCloudDialogflowV2QueryInput' + { _gcdvqiAudioConfig = Nothing + , _gcdvqiEvent = Nothing + , _gcdvqiText = Nothing + } + + +-- | Instructs the speech recognizer how to process the speech audio. +gcdvqiAudioConfig :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2InputAudioConfig) +gcdvqiAudioConfig + = lens _gcdvqiAudioConfig + (\ s a -> s{_gcdvqiAudioConfig = a}) + +-- | The event to be processed. +gcdvqiEvent :: Lens' GoogleCloudDialogflowV2QueryInput (Maybe GoogleCloudDialogflowV2EventInput) +gcdvqiEvent + = lens _gcdvqiEvent (\ s a -> s{_gcdvqiEvent = a}) + +-- | The natural language text to be processed. +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]) + +-- | The request message for Agents.ExportAgent. +-- +-- /See:/ 'googleCloudDialogflowV2ExportAgentRequest' smart constructor. +newtype GoogleCloudDialogflowV2ExportAgentRequest = + GoogleCloudDialogflowV2ExportAgentRequest' + { _gcdvearAgentURI :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ExportAgentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvearAgentURI' +googleCloudDialogflowV2ExportAgentRequest + :: GoogleCloudDialogflowV2ExportAgentRequest +googleCloudDialogflowV2ExportAgentRequest = + GoogleCloudDialogflowV2ExportAgentRequest' {_gcdvearAgentURI = Nothing} + + +-- | Optional. The [Google Cloud +-- Storage](https:\/\/cloud.google.com\/storage\/docs\/) URI to export the +-- agent to. The format of this URI must be \`gs:\/\/\/\`. If left +-- unspecified, the serialized agent is returned inline. +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]) + +-- | The card for presenting a carousel of options to select from. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageCarouselSelect' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect = + GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' + { _gcdvimcsItems :: Maybe [GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimcsItems' +googleCloudDialogflowV2beta1IntentMessageCarouselSelect + :: GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect +googleCloudDialogflowV2beta1IntentMessageCarouselSelect = + GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect' + {_gcdvimcsItems = Nothing} + + +-- | Required. Carousel items. +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]) + +-- | Represents a context. +-- +-- /See:/ 'googleCloudDialogflowV2beta1Context' smart constructor. +data GoogleCloudDialogflowV2beta1Context = + GoogleCloudDialogflowV2beta1Context' + { _gcdvcLifespanCount :: !(Maybe (Textual Int32)) + , _gcdvcName :: !(Maybe Text) + , _gcdvcParameters :: !(Maybe GoogleCloudDialogflowV2beta1ContextParameters) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1Context' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvcLifespanCount' +-- +-- * 'gcdvcName' +-- +-- * 'gcdvcParameters' +googleCloudDialogflowV2beta1Context + :: GoogleCloudDialogflowV2beta1Context +googleCloudDialogflowV2beta1Context = + GoogleCloudDialogflowV2beta1Context' + { _gcdvcLifespanCount = Nothing + , _gcdvcName = Nothing + , _gcdvcParameters = Nothing + } + + +-- | Optional. The number of conversational query requests after which the +-- context expires. If set to \`0\` (the default) the context expires +-- immediately. Contexts expire automatically after 20 minutes if there are +-- no matching queries. +gcdvcLifespanCount :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Int32) +gcdvcLifespanCount + = lens _gcdvcLifespanCount + (\ s a -> s{_gcdvcLifespanCount = a}) + . mapping _Coerce + +-- | Required. The unique identifier of the context. Format: +-- \`projects\/\/agent\/sessions\/\/contexts\/\`, or +-- \`projects\/\/agent\/environments\/\/users\/\/sessions\/\/contexts\/\`. +-- The \`Context ID\` is always converted to lowercase, may only contain +-- characters in a-zA-Z0-9_-% and may be at most 250 bytes long. If +-- \`Environment ID\` is not specified, we assume default \'draft\' +-- environment. If \`User ID\` is not specified, we assume default \'-\' +-- user. +gcdvcName :: Lens' GoogleCloudDialogflowV2beta1Context (Maybe Text) +gcdvcName + = lens _gcdvcName (\ s a -> s{_gcdvcName = a}) + +-- | Optional. The collection of parameters associated with this context. +-- Refer to [this +-- doc](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/intents-actions-parameters) +-- for syntax. +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]) + +-- | The request message for EntityTypes.BatchUpdateEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2BatchUpdateEntityTypesRequest' smart constructor. +data GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest = + GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' + { _gcdvbuetrLanguageCode :: !(Maybe Text) + , _gcdvbuetrUpdateMask :: !(Maybe GFieldMask) + , _gcdvbuetrEntityTypeBatchInline :: !(Maybe GoogleCloudDialogflowV2EntityTypeBatch) + , _gcdvbuetrEntityTypeBatchURI :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvbuetrLanguageCode' +-- +-- * 'gcdvbuetrUpdateMask' +-- +-- * 'gcdvbuetrEntityTypeBatchInline' +-- +-- * 'gcdvbuetrEntityTypeBatchURI' +googleCloudDialogflowV2BatchUpdateEntityTypesRequest + :: GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest +googleCloudDialogflowV2BatchUpdateEntityTypesRequest = + GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest' + { _gcdvbuetrLanguageCode = Nothing + , _gcdvbuetrUpdateMask = Nothing + , _gcdvbuetrEntityTypeBatchInline = Nothing + , _gcdvbuetrEntityTypeBatchURI = Nothing + } + + +-- | Optional. The language of entity synonyms defined in \`entity_types\`. +-- If not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. +gcdvbuetrLanguageCode :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe Text) +gcdvbuetrLanguageCode + = lens _gcdvbuetrLanguageCode + (\ s a -> s{_gcdvbuetrLanguageCode = a}) + +-- | Optional. The mask to control which fields get updated. +gcdvbuetrUpdateMask :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GFieldMask) +gcdvbuetrUpdateMask + = lens _gcdvbuetrUpdateMask + (\ s a -> s{_gcdvbuetrUpdateMask = a}) + +-- | The collection of entity types to update or create. +gcdvbuetrEntityTypeBatchInline :: Lens' GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest (Maybe GoogleCloudDialogflowV2EntityTypeBatch) +gcdvbuetrEntityTypeBatchInline + = lens _gcdvbuetrEntityTypeBatchInline + (\ s a -> s{_gcdvbuetrEntityTypeBatchInline = a}) + +-- | The URI to a Google Cloud Storage file containing entity types to update +-- or create. The file format can either be a serialized proto (of +-- EntityBatch type) or a JSON object. Note: The URI must start with +-- \"gs:\/\/\". +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]) + +-- | The normal response of the operation in case of success. If the original +-- method returns no data on success, such as \`Delete\`, the response is +-- \`google.protobuf.Empty\`. If the original method is standard +-- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource. +-- For other methods, the response should have the type \`XxxResponse\`, +-- where \`Xxx\` is the original method name. For example, if the original +-- method name is \`TakeSnapshot()\`, the inferred response type is +-- \`TakeSnapshotResponse\`. +-- +-- /See:/ 'googleLongrunningOperationResponse' smart constructor. +newtype GoogleLongrunningOperationResponse = + GoogleLongrunningOperationResponse' + { _glorAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleLongrunningOperationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'glorAddtional' +googleLongrunningOperationResponse + :: HashMap Text JSONValue -- ^ 'glorAddtional' + -> GoogleLongrunningOperationResponse +googleLongrunningOperationResponse pGlorAddtional_ = + GoogleLongrunningOperationResponse' + {_glorAddtional = _Coerce # pGlorAddtional_} + + +-- | Properties of the object. Contains field \'type with type URL. +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 + +-- | Synthesizes speech and plays back the synthesized audio to the caller in +-- Telephony Gateway. Telephony Gateway takes the synthesizer settings from +-- \`DetectIntentResponse.output_audio_config\` which can either be set at +-- request-level or can come from the agent-level synthesizer config. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech = + GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' + { _gcdvimtssText :: !(Maybe Text) + , _gcdvimtssSsml :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimtssText' +-- +-- * 'gcdvimtssSsml' +googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + :: GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech +googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech = + GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech' + {_gcdvimtssText = Nothing, _gcdvimtssSsml = Nothing} + + +-- | The raw text to be synthesized. +gcdvimtssText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech (Maybe Text) +gcdvimtssText + = lens _gcdvimtssText + (\ s a -> s{_gcdvimtssText = a}) + +-- | The SSML to be synthesized. For more information, see +-- [SSML](https:\/\/developers.google.com\/actions\/reference\/ssml). +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]) + +-- | An item in the list. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageListSelectItem' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageListSelectItem = + GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' + { _gcdvimlsicImage :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) + , _gcdvimlsicTitle :: !(Maybe Text) + , _gcdvimlsicDescription :: !(Maybe Text) + , _gcdvimlsicInfo :: !(Maybe GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimlsicImage' +-- +-- * 'gcdvimlsicTitle' +-- +-- * 'gcdvimlsicDescription' +-- +-- * 'gcdvimlsicInfo' +googleCloudDialogflowV2beta1IntentMessageListSelectItem + :: GoogleCloudDialogflowV2beta1IntentMessageListSelectItem +googleCloudDialogflowV2beta1IntentMessageListSelectItem = + GoogleCloudDialogflowV2beta1IntentMessageListSelectItem' + { _gcdvimlsicImage = Nothing + , _gcdvimlsicTitle = Nothing + , _gcdvimlsicDescription = Nothing + , _gcdvimlsicInfo = Nothing + } + + +-- | Optional. The image to display. +gcdvimlsicImage :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe GoogleCloudDialogflowV2beta1IntentMessageImage) +gcdvimlsicImage + = lens _gcdvimlsicImage + (\ s a -> s{_gcdvimlsicImage = a}) + +-- | Required. The title of the list item. +gcdvimlsicTitle :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text) +gcdvimlsicTitle + = lens _gcdvimlsicTitle + (\ s a -> s{_gcdvimlsicTitle = a}) + +-- | Optional. The main text describing the item. +gcdvimlsicDescription :: Lens' GoogleCloudDialogflowV2beta1IntentMessageListSelectItem (Maybe Text) +gcdvimlsicDescription + = lens _gcdvimlsicDescription + (\ s a -> s{_gcdvimlsicDescription = a}) + +-- | Required. Additional information about this option. +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]) + +-- | The suggestion chip message that the user can tap to quickly post a +-- reply to the conversation. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageSuggestion' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageSuggestion = + GoogleCloudDialogflowV2IntentMessageSuggestion' + { _gcdvimscTitle :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageSuggestion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimscTitle' +googleCloudDialogflowV2IntentMessageSuggestion + :: GoogleCloudDialogflowV2IntentMessageSuggestion +googleCloudDialogflowV2IntentMessageSuggestion = + GoogleCloudDialogflowV2IntentMessageSuggestion' {_gcdvimscTitle = Nothing} + + +-- | Required. The text shown the in the suggestion chip. +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]) + +-- | An **entity entry** for an associated entity type. +-- +-- /See:/ 'googleCloudDialogflowV2beta1EntityTypeEntity' smart constructor. +data GoogleCloudDialogflowV2beta1EntityTypeEntity = + GoogleCloudDialogflowV2beta1EntityTypeEntity' + { _gcdveteValue :: !(Maybe Text) + , _gcdveteSynonyms :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1EntityTypeEntity' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdveteValue' +-- +-- * 'gcdveteSynonyms' +googleCloudDialogflowV2beta1EntityTypeEntity + :: GoogleCloudDialogflowV2beta1EntityTypeEntity +googleCloudDialogflowV2beta1EntityTypeEntity = + GoogleCloudDialogflowV2beta1EntityTypeEntity' + {_gcdveteValue = Nothing, _gcdveteSynonyms = Nothing} + + +-- | Required. The primary value associated with this entity entry. For +-- example, if the entity type is *vegetable*, the value could be +-- *scallions*. For \`KIND_MAP\` entity types: * A canonical value to be +-- used in place of synonyms. For \`KIND_LIST\` entity types: * A string +-- that can contain references to other entity types (with or without +-- aliases). +gcdveteValue :: Lens' GoogleCloudDialogflowV2beta1EntityTypeEntity (Maybe Text) +gcdveteValue + = lens _gcdveteValue (\ s a -> s{_gcdveteValue = a}) + +-- | Required. A collection of value synonyms. For example, if the entity +-- type is *vegetable*, and \`value\` is *scallions*, a synonym could be +-- *green onions*. For \`KIND_LIST\` entity types: * This collection must +-- contain exactly one synonym equal to \`value\`. +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]) + +-- | Represents an entity type. Entity types serve as a tool for extracting +-- parameter values from natural language queries. +-- +-- /See:/ 'googleCloudDialogflowV2EntityType' smart constructor. +data GoogleCloudDialogflowV2EntityType = + GoogleCloudDialogflowV2EntityType' + { _gcdvetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) + , _gcdvetKind :: !(Maybe GoogleCloudDialogflowV2EntityTypeKind) + , _gcdvetName :: !(Maybe Text) + , _gcdvetAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode) + , _gcdvetDisplayName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2EntityType' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvetEntities' +-- +-- * 'gcdvetKind' +-- +-- * 'gcdvetName' +-- +-- * 'gcdvetAutoExpansionMode' +-- +-- * 'gcdvetDisplayName' +googleCloudDialogflowV2EntityType + :: GoogleCloudDialogflowV2EntityType +googleCloudDialogflowV2EntityType = + GoogleCloudDialogflowV2EntityType' + { _gcdvetEntities = Nothing + , _gcdvetKind = Nothing + , _gcdvetName = Nothing + , _gcdvetAutoExpansionMode = Nothing + , _gcdvetDisplayName = Nothing + } + + +-- | Optional. The collection of entity entries associated with the entity +-- type. +gcdvetEntities :: Lens' GoogleCloudDialogflowV2EntityType [GoogleCloudDialogflowV2EntityTypeEntity] +gcdvetEntities + = lens _gcdvetEntities + (\ s a -> s{_gcdvetEntities = a}) + . _Default + . _Coerce + +-- | Required. Indicates the kind of entity type. +gcdvetKind :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeKind) +gcdvetKind + = lens _gcdvetKind (\ s a -> s{_gcdvetKind = a}) + +-- | The unique identifier of the entity type. Required for +-- EntityTypes.UpdateEntityType and EntityTypes.BatchUpdateEntityTypes +-- methods. Format: \`projects\/\/agent\/entityTypes\/\`. +gcdvetName :: Lens' GoogleCloudDialogflowV2EntityType (Maybe Text) +gcdvetName + = lens _gcdvetName (\ s a -> s{_gcdvetName = a}) + +-- | Optional. Indicates whether the entity type can be automatically +-- expanded. +gcdvetAutoExpansionMode :: Lens' GoogleCloudDialogflowV2EntityType (Maybe GoogleCloudDialogflowV2EntityTypeAutoExpansionMode) +gcdvetAutoExpansionMode + = lens _gcdvetAutoExpansionMode + (\ s a -> s{_gcdvetAutoExpansionMode = a}) + +-- | Required. The name of the entity type. +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]) + +-- | Represents the natural language text to be processed. +-- +-- /See:/ 'googleCloudDialogflowV2TextInput' smart constructor. +data GoogleCloudDialogflowV2TextInput = + GoogleCloudDialogflowV2TextInput' + { _gcdvtiLanguageCode :: !(Maybe Text) + , _gcdvtiText :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2TextInput' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvtiLanguageCode' +-- +-- * 'gcdvtiText' +googleCloudDialogflowV2TextInput + :: GoogleCloudDialogflowV2TextInput +googleCloudDialogflowV2TextInput = + GoogleCloudDialogflowV2TextInput' + {_gcdvtiLanguageCode = Nothing, _gcdvtiText = Nothing} + + +-- | Required. The language of this conversational query. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. Note that queries +-- in the same session do not necessarily need to specify the same +-- language. +gcdvtiLanguageCode :: Lens' GoogleCloudDialogflowV2TextInput (Maybe Text) +gcdvtiLanguageCode + = lens _gcdvtiLanguageCode + (\ s a -> s{_gcdvtiLanguageCode = a}) + +-- | Required. The UTF-8 encoded natural language text to be processed. Text +-- length must not exceed 256 characters. +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]) + +-- | Opens the given URI. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction = + GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' + { _gcdvimbcbouriaURI :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbcbouriaURI' +googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + :: GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction +googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction = + GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction' + {_gcdvimbcbouriaURI = Nothing} + + +-- | Required. The HTTP or HTTPS scheme URI. +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]) + +-- | The card response message. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageCard' smart constructor. +data GoogleCloudDialogflowV2IntentMessageCard = + GoogleCloudDialogflowV2IntentMessageCard' + { _gcdvimccButtons :: !(Maybe [GoogleCloudDialogflowV2IntentMessageCardButton]) + , _gcdvimccImageURI :: !(Maybe Text) + , _gcdvimccSubtitle :: !(Maybe Text) + , _gcdvimccTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCard' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimccButtons' +-- +-- * 'gcdvimccImageURI' +-- +-- * 'gcdvimccSubtitle' +-- +-- * 'gcdvimccTitle' +googleCloudDialogflowV2IntentMessageCard + :: GoogleCloudDialogflowV2IntentMessageCard +googleCloudDialogflowV2IntentMessageCard = + GoogleCloudDialogflowV2IntentMessageCard' + { _gcdvimccButtons = Nothing + , _gcdvimccImageURI = Nothing + , _gcdvimccSubtitle = Nothing + , _gcdvimccTitle = Nothing + } + + +-- | Optional. The collection of card buttons. +gcdvimccButtons :: Lens' GoogleCloudDialogflowV2IntentMessageCard [GoogleCloudDialogflowV2IntentMessageCardButton] +gcdvimccButtons + = lens _gcdvimccButtons + (\ s a -> s{_gcdvimccButtons = a}) + . _Default + . _Coerce + +-- | Optional. The public URI to an image file for the card. +gcdvimccImageURI :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text) +gcdvimccImageURI + = lens _gcdvimccImageURI + (\ s a -> s{_gcdvimccImageURI = a}) + +-- | Optional. The subtitle of the card. +gcdvimccSubtitle :: Lens' GoogleCloudDialogflowV2IntentMessageCard (Maybe Text) +gcdvimccSubtitle + = lens _gcdvimccSubtitle + (\ s a -> s{_gcdvimccSubtitle = a}) + +-- | Optional. The title of the card. +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]) + +-- | Represents the contents of the original request that was passed to the +-- \`[Streaming]DetectIntent\` call. +-- +-- /See:/ 'googleCloudDialogflowV2OriginalDetectIntentRequest' smart constructor. +data GoogleCloudDialogflowV2OriginalDetectIntentRequest = + GoogleCloudDialogflowV2OriginalDetectIntentRequest' + { _gPayload :: !(Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload) + , _gVersion :: !(Maybe Text) + , _gSource :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2OriginalDetectIntentRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gPayload' +-- +-- * 'gVersion' +-- +-- * 'gSource' +googleCloudDialogflowV2OriginalDetectIntentRequest + :: GoogleCloudDialogflowV2OriginalDetectIntentRequest +googleCloudDialogflowV2OriginalDetectIntentRequest = + GoogleCloudDialogflowV2OriginalDetectIntentRequest' + {_gPayload = Nothing, _gVersion = Nothing, _gSource = Nothing} + + +-- | Optional. This field is set to the value of the +-- \`QueryParameters.payload\` field passed in the request. Some +-- integrations that query a Dialogflow agent may provide additional +-- information in the payload. In particular for the Telephony Gateway this +-- field has the form: +-- +-- > { +-- > "telephony": { +-- > "caller_id": "+18558363987" +-- > } +-- > } +-- +-- Note: The caller ID field (\`caller_id\`) will be redacted for Standard +-- Edition agents and populated with the caller ID in [E.164 +-- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition +-- agents. +gPayload :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload) +gPayload = lens _gPayload (\ s a -> s{_gPayload = a}) + +-- | Optional. The version of the protocol used for this request. This field +-- is AoG-specific. +gVersion :: Lens' GoogleCloudDialogflowV2OriginalDetectIntentRequest (Maybe Text) +gVersion = lens _gVersion (\ s a -> s{_gVersion = a}) + +-- | The source of this request, e.g., \`google\`, \`facebook\`, \`slack\`. +-- It is set by Dialogflow-owned servers. +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]) + +-- | The image response message. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageImage' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageImage = + GoogleCloudDialogflowV2beta1IntentMessageImage' + { _gcdvimiAccessibilityText :: !(Maybe Text) + , _gcdvimiImageURI :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageImage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimiAccessibilityText' +-- +-- * 'gcdvimiImageURI' +googleCloudDialogflowV2beta1IntentMessageImage + :: GoogleCloudDialogflowV2beta1IntentMessageImage +googleCloudDialogflowV2beta1IntentMessageImage = + GoogleCloudDialogflowV2beta1IntentMessageImage' + {_gcdvimiAccessibilityText = Nothing, _gcdvimiImageURI = Nothing} + + +-- | A text description of the image to be used for accessibility, e.g., +-- screen readers. Required if image_uri is set for CarouselSelect. +gcdvimiAccessibilityText :: Lens' GoogleCloudDialogflowV2beta1IntentMessageImage (Maybe Text) +gcdvimiAccessibilityText + = lens _gcdvimiAccessibilityText + (\ s a -> s{_gcdvimiAccessibilityText = a}) + +-- | Optional. The public URI to an image file. +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]) + +-- | Instructs the speech synthesizer how to generate the output audio +-- content. +-- +-- /See:/ 'googleCloudDialogflowV2OutputAudioConfig' smart constructor. +data GoogleCloudDialogflowV2OutputAudioConfig = + GoogleCloudDialogflowV2OutputAudioConfig' + { _gcdvoacSampleRateHertz :: !(Maybe (Textual Int32)) + , _gcdvoacSynthesizeSpeechConfig :: !(Maybe GoogleCloudDialogflowV2SynthesizeSpeechConfig) + , _gcdvoacAudioEncoding :: !(Maybe GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2OutputAudioConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvoacSampleRateHertz' +-- +-- * 'gcdvoacSynthesizeSpeechConfig' +-- +-- * 'gcdvoacAudioEncoding' +googleCloudDialogflowV2OutputAudioConfig + :: GoogleCloudDialogflowV2OutputAudioConfig +googleCloudDialogflowV2OutputAudioConfig = + GoogleCloudDialogflowV2OutputAudioConfig' + { _gcdvoacSampleRateHertz = Nothing + , _gcdvoacSynthesizeSpeechConfig = Nothing + , _gcdvoacAudioEncoding = Nothing + } + + +-- | Optional. The synthesis sample rate (in hertz) for this audio. If not +-- provided, then the synthesizer will use the default sample rate based on +-- the audio encoding. If this is different from the voice\'s natural +-- sample rate, then the synthesizer will honor this request by converting +-- to the desired sample rate (which might result in worse audio quality). +gcdvoacSampleRateHertz :: Lens' GoogleCloudDialogflowV2OutputAudioConfig (Maybe Int32) +gcdvoacSampleRateHertz + = lens _gcdvoacSampleRateHertz + (\ s a -> s{_gcdvoacSampleRateHertz = a}) + . mapping _Coerce + +-- | Optional. Configuration of how speech should be synthesized. +gcdvoacSynthesizeSpeechConfig :: Lens' GoogleCloudDialogflowV2OutputAudioConfig (Maybe GoogleCloudDialogflowV2SynthesizeSpeechConfig) +gcdvoacSynthesizeSpeechConfig + = lens _gcdvoacSynthesizeSpeechConfig + (\ s a -> s{_gcdvoacSynthesizeSpeechConfig = a}) + +-- | Required. Audio encoding of the synthesized audio content. +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]) + +-- | The response message for Agents.ExportAgent. +-- +-- /See:/ 'googleCloudDialogflowV2ExportAgentResponse' smart constructor. +data GoogleCloudDialogflowV2ExportAgentResponse = + GoogleCloudDialogflowV2ExportAgentResponse' + { _gAgentURI :: !(Maybe Text) + , _gAgentContent :: !(Maybe Bytes) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ExportAgentResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gAgentURI' +-- +-- * 'gAgentContent' +googleCloudDialogflowV2ExportAgentResponse + :: GoogleCloudDialogflowV2ExportAgentResponse +googleCloudDialogflowV2ExportAgentResponse = + GoogleCloudDialogflowV2ExportAgentResponse' + {_gAgentURI = Nothing, _gAgentContent = Nothing} + + +-- | The URI to a file containing the exported agent. This field is populated +-- only if \`agent_uri\` is specified in \`ExportAgentRequest\`. +gAgentURI :: Lens' GoogleCloudDialogflowV2ExportAgentResponse (Maybe Text) +gAgentURI + = lens _gAgentURI (\ s a -> s{_gAgentURI = a}) + +-- | The exported agent. Example for how to export an agent to a zip file via +-- a command line: +-- +-- > curl \ +-- > 'https://dialogflow.googleapis.com/v2/projects//agent:export'\ +-- > -X POST \ +-- > -H 'Authorization: Bearer '$(gcloud auth application-default +-- > print-access-token) \ +-- > -H 'Accept: application/json' \ +-- > -H 'Content-Type: application/json' \ +-- > --compressed \ +-- > --data-binary '{}' \ +-- > | grep agentContent | sed -e 's/.*"agentContent": "\([^"]*\)".*/\1/' \ +-- > | base64 --decode > +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]) + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_payload\`. See the related +-- \`fulfillment_messages[i].payload field\`, which may be used as an +-- alternative to this field. This field can be used for Actions on Google +-- responses. It should have a structure similar to the JSON message shown +-- here. For more information, see [Actions on Google Webhook +-- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) +-- +-- > { +-- > "google": { +-- > "expectUserResponse": true, +-- > "richResponse": { +-- > "items": [ +-- > { +-- > "simpleResponse": { +-- > "textToSpeech": "this is a simple response" +-- > } +-- > } +-- > ] +-- > } +-- > } +-- > } +-- +-- /See:/ 'googleCloudDialogflowV2WebhookResponsePayload' smart constructor. +newtype GoogleCloudDialogflowV2WebhookResponsePayload = + GoogleCloudDialogflowV2WebhookResponsePayload' + { _gcdvwrpcAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2WebhookResponsePayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvwrpcAddtional' +googleCloudDialogflowV2WebhookResponsePayload + :: HashMap Text JSONValue -- ^ 'gcdvwrpcAddtional' + -> GoogleCloudDialogflowV2WebhookResponsePayload +googleCloudDialogflowV2WebhookResponsePayload pGcdvwrpcAddtional_ = + GoogleCloudDialogflowV2WebhookResponsePayload' + {_gcdvwrpcAddtional = _Coerce # pGcdvwrpcAddtional_} + + +-- | Properties of the object. +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 + +-- | The suggestion chip message that allows the user to jump out to the app +-- or website associated with this agent. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion = + GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' + { _gURI :: !(Maybe Text) + , _gDestinationName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gURI' +-- +-- * 'gDestinationName' +googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + :: GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion +googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion = + GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion' + {_gURI = Nothing, _gDestinationName = Nothing} + + +-- | Required. The URI of the app or site to open when the user taps the +-- suggestion chip. +gURI :: Lens' GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion (Maybe Text) +gURI = lens _gURI (\ s a -> s{_gURI = a}) + +-- | Required. The name of the app or site this chip is linking to. +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]) + +-- | The response message for Intents.ListIntents. +-- +-- /See:/ 'googleCloudDialogflowV2ListIntentsResponse' smart constructor. +data GoogleCloudDialogflowV2ListIntentsResponse = + GoogleCloudDialogflowV2ListIntentsResponse' + { _gcdvlirIntents :: !(Maybe [GoogleCloudDialogflowV2Intent]) + , _gcdvlirNextPageToken :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ListIntentsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvlirIntents' +-- +-- * 'gcdvlirNextPageToken' +googleCloudDialogflowV2ListIntentsResponse + :: GoogleCloudDialogflowV2ListIntentsResponse +googleCloudDialogflowV2ListIntentsResponse = + GoogleCloudDialogflowV2ListIntentsResponse' + {_gcdvlirIntents = Nothing, _gcdvlirNextPageToken = Nothing} + + +-- | The list of agent intents. There will be a maximum number of items +-- returned based on the page_size field in the request. +gcdvlirIntents :: Lens' GoogleCloudDialogflowV2ListIntentsResponse [GoogleCloudDialogflowV2Intent] +gcdvlirIntents + = lens _gcdvlirIntents + (\ s a -> s{_gcdvlirIntents = a}) + . _Default + . _Coerce + +-- | Token to retrieve the next page of results, or empty if there are no +-- more results in the list. +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]) + +-- | The response message for EntityTypes.BatchUpdateEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2BatchUpdateEntityTypesResponse' smart constructor. +newtype GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse = + GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' + { _gEntityTypes :: Maybe [GoogleCloudDialogflowV2EntityType] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gEntityTypes' +googleCloudDialogflowV2BatchUpdateEntityTypesResponse + :: GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse +googleCloudDialogflowV2BatchUpdateEntityTypesResponse = + GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse' + {_gEntityTypes = Nothing} + + +-- | The collection of updated or created entity types. +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]) + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`payload\` field returned in the webhook response. +-- +-- /See:/ 'googleCloudDialogflowV2QueryResultWebhookPayload' smart constructor. +newtype GoogleCloudDialogflowV2QueryResultWebhookPayload = + GoogleCloudDialogflowV2QueryResultWebhookPayload' + { _gcdvqrwpAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2QueryResultWebhookPayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrwpAddtional' +googleCloudDialogflowV2QueryResultWebhookPayload + :: HashMap Text JSONValue -- ^ 'gcdvqrwpAddtional' + -> GoogleCloudDialogflowV2QueryResultWebhookPayload +googleCloudDialogflowV2QueryResultWebhookPayload pGcdvqrwpAddtional_ = + GoogleCloudDialogflowV2QueryResultWebhookPayload' + {_gcdvqrwpAddtional = _Coerce # pGcdvqrwpAddtional_} + + +-- | Properties of the object. +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 + +-- | Represents intent parameters. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentParameter' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentParameter' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvipValue' +-- +-- * 'gcdvipName' +-- +-- * 'gcdvipPrompts' +-- +-- * 'gcdvipMandatory' +-- +-- * 'gcdvipDisplayName' +-- +-- * 'gcdvipDefaultValue' +-- +-- * 'gcdvipIsList' +-- +-- * 'gcdvipEntityTypeDisplayName' +googleCloudDialogflowV2beta1IntentParameter + :: GoogleCloudDialogflowV2beta1IntentParameter +googleCloudDialogflowV2beta1IntentParameter = + GoogleCloudDialogflowV2beta1IntentParameter' + { _gcdvipValue = Nothing + , _gcdvipName = Nothing + , _gcdvipPrompts = Nothing + , _gcdvipMandatory = Nothing + , _gcdvipDisplayName = Nothing + , _gcdvipDefaultValue = Nothing + , _gcdvipIsList = Nothing + , _gcdvipEntityTypeDisplayName = Nothing + } + + +-- | Optional. The definition of the parameter value. It can be: - a constant +-- string, - a parameter value defined as \`$parameter_name\`, - an +-- original parameter value defined as \`$parameter_name.original\`, - a +-- parameter value from some context defined as +-- \`#context_name.parameter_name\`. +gcdvipValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) +gcdvipValue + = lens _gcdvipValue (\ s a -> s{_gcdvipValue = a}) + +-- | The unique identifier of this parameter. +gcdvipName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) +gcdvipName + = lens _gcdvipName (\ s a -> s{_gcdvipName = a}) + +-- | Optional. The collection of prompts that the agent can present to the +-- user in order to collect value for the parameter. +gcdvipPrompts :: Lens' GoogleCloudDialogflowV2beta1IntentParameter [Text] +gcdvipPrompts + = lens _gcdvipPrompts + (\ s a -> s{_gcdvipPrompts = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether the parameter is required. That is, whether +-- the intent cannot be completed without collecting the parameter value. +gcdvipMandatory :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool) +gcdvipMandatory + = lens _gcdvipMandatory + (\ s a -> s{_gcdvipMandatory = a}) + +-- | Required. The name of the parameter. +gcdvipDisplayName :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) +gcdvipDisplayName + = lens _gcdvipDisplayName + (\ s a -> s{_gcdvipDisplayName = a}) + +-- | Optional. The default value to use when the \`value\` yields an empty +-- result. Default values can be extracted from contexts by using the +-- following syntax: \`#context_name.parameter_name\`. +gcdvipDefaultValue :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Text) +gcdvipDefaultValue + = lens _gcdvipDefaultValue + (\ s a -> s{_gcdvipDefaultValue = a}) + +-- | Optional. Indicates whether the parameter represents a list of values. +gcdvipIsList :: Lens' GoogleCloudDialogflowV2beta1IntentParameter (Maybe Bool) +gcdvipIsList + = lens _gcdvipIsList (\ s a -> s{_gcdvipIsList = a}) + +-- | Optional. The name of the entity type, prefixed with \`\'\`, that +-- describes values of the parameter. If the parameter is required, this +-- must be provided. +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]) + +-- | Represents intent parameters. +-- +-- /See:/ 'googleCloudDialogflowV2IntentParameter' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentParameter' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvipcValue' +-- +-- * 'gcdvipcName' +-- +-- * 'gcdvipcPrompts' +-- +-- * 'gcdvipcMandatory' +-- +-- * 'gcdvipcDisplayName' +-- +-- * 'gcdvipcDefaultValue' +-- +-- * 'gcdvipcIsList' +-- +-- * 'gcdvipcEntityTypeDisplayName' +googleCloudDialogflowV2IntentParameter + :: GoogleCloudDialogflowV2IntentParameter +googleCloudDialogflowV2IntentParameter = + GoogleCloudDialogflowV2IntentParameter' + { _gcdvipcValue = Nothing + , _gcdvipcName = Nothing + , _gcdvipcPrompts = Nothing + , _gcdvipcMandatory = Nothing + , _gcdvipcDisplayName = Nothing + , _gcdvipcDefaultValue = Nothing + , _gcdvipcIsList = Nothing + , _gcdvipcEntityTypeDisplayName = Nothing + } + + +-- | Optional. The definition of the parameter value. It can be: - a constant +-- string, - a parameter value defined as \`$parameter_name\`, - an +-- original parameter value defined as \`$parameter_name.original\`, - a +-- parameter value from some context defined as +-- \`#context_name.parameter_name\`. +gcdvipcValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) +gcdvipcValue + = lens _gcdvipcValue (\ s a -> s{_gcdvipcValue = a}) + +-- | The unique identifier of this parameter. +gcdvipcName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) +gcdvipcName + = lens _gcdvipcName (\ s a -> s{_gcdvipcName = a}) + +-- | Optional. The collection of prompts that the agent can present to the +-- user in order to collect value for the parameter. +gcdvipcPrompts :: Lens' GoogleCloudDialogflowV2IntentParameter [Text] +gcdvipcPrompts + = lens _gcdvipcPrompts + (\ s a -> s{_gcdvipcPrompts = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether the parameter is required. That is, whether +-- the intent cannot be completed without collecting the parameter value. +gcdvipcMandatory :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool) +gcdvipcMandatory + = lens _gcdvipcMandatory + (\ s a -> s{_gcdvipcMandatory = a}) + +-- | Required. The name of the parameter. +gcdvipcDisplayName :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) +gcdvipcDisplayName + = lens _gcdvipcDisplayName + (\ s a -> s{_gcdvipcDisplayName = a}) + +-- | Optional. The default value to use when the \`value\` yields an empty +-- result. Default values can be extracted from contexts by using the +-- following syntax: \`#context_name.parameter_name\`. +gcdvipcDefaultValue :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Text) +gcdvipcDefaultValue + = lens _gcdvipcDefaultValue + (\ s a -> s{_gcdvipcDefaultValue = a}) + +-- | Optional. Indicates whether the parameter represents a list of values. +gcdvipcIsList :: Lens' GoogleCloudDialogflowV2IntentParameter (Maybe Bool) +gcdvipcIsList + = lens _gcdvipcIsList + (\ s a -> s{_gcdvipcIsList = a}) + +-- | Optional. The name of the entity type, prefixed with \`\'\`, that +-- describes values of the parameter. If the parameter is required, this +-- must be provided. +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]) + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`payload\` field returned in the webhook response. +-- +-- /See:/ 'googleCloudDialogflowV2beta1QueryResultWebhookPayload' smart constructor. +newtype GoogleCloudDialogflowV2beta1QueryResultWebhookPayload = + GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' + { _gcdvqrwpcAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvqrwpcAddtional' +googleCloudDialogflowV2beta1QueryResultWebhookPayload + :: HashMap Text JSONValue -- ^ 'gcdvqrwpcAddtional' + -> GoogleCloudDialogflowV2beta1QueryResultWebhookPayload +googleCloudDialogflowV2beta1QueryResultWebhookPayload pGcdvqrwpcAddtional_ = + GoogleCloudDialogflowV2beta1QueryResultWebhookPayload' + {_gcdvqrwpcAddtional = _Coerce # pGcdvqrwpcAddtional_} + + +-- | Properties of the object. +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 + +-- | Represents a part of a training phrase. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentTrainingPhrasePart' smart constructor. +data GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart = + GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' + { _gcdvitppcText :: !(Maybe Text) + , _gcdvitppcUserDefined :: !(Maybe Bool) + , _gcdvitppcEntityType :: !(Maybe Text) + , _gcdvitppcAlias :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvitppcText' +-- +-- * 'gcdvitppcUserDefined' +-- +-- * 'gcdvitppcEntityType' +-- +-- * 'gcdvitppcAlias' +googleCloudDialogflowV2beta1IntentTrainingPhrasePart + :: GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart +googleCloudDialogflowV2beta1IntentTrainingPhrasePart = + GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart' + { _gcdvitppcText = Nothing + , _gcdvitppcUserDefined = Nothing + , _gcdvitppcEntityType = Nothing + , _gcdvitppcAlias = Nothing + } + + +-- | Required. The text for this part. +gcdvitppcText :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text) +gcdvitppcText + = lens _gcdvitppcText + (\ s a -> s{_gcdvitppcText = a}) + +-- | Optional. Indicates whether the text was manually annotated. This field +-- is set to true when the Dialogflow Console is used to manually annotate +-- the part. When creating an annotated part with the API, you must set +-- this to true. +gcdvitppcUserDefined :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Bool) +gcdvitppcUserDefined + = lens _gcdvitppcUserDefined + (\ s a -> s{_gcdvitppcUserDefined = a}) + +-- | Optional. The entity type name prefixed with \`\'\`. This field is +-- required for annotated parts of the training phrase. +gcdvitppcEntityType :: Lens' GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart (Maybe Text) +gcdvitppcEntityType + = lens _gcdvitppcEntityType + (\ s a -> s{_gcdvitppcEntityType = a}) + +-- | Optional. The parameter name for the value extracted from the annotated +-- part of the example. This field is required for annotated parts of the +-- training phrase. +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]) + +-- | The response message for Contexts.ListContexts. +-- +-- /See:/ 'googleCloudDialogflowV2ListContextsResponse' smart constructor. +data GoogleCloudDialogflowV2ListContextsResponse = + GoogleCloudDialogflowV2ListContextsResponse' + { _gcdvlcrContexts :: !(Maybe [GoogleCloudDialogflowV2Context]) + , _gcdvlcrNextPageToken :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ListContextsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvlcrContexts' +-- +-- * 'gcdvlcrNextPageToken' +googleCloudDialogflowV2ListContextsResponse + :: GoogleCloudDialogflowV2ListContextsResponse +googleCloudDialogflowV2ListContextsResponse = + GoogleCloudDialogflowV2ListContextsResponse' + {_gcdvlcrContexts = Nothing, _gcdvlcrNextPageToken = Nothing} + + +-- | The list of contexts. There will be a maximum number of items returned +-- based on the page_size field in the request. +gcdvlcrContexts :: Lens' GoogleCloudDialogflowV2ListContextsResponse [GoogleCloudDialogflowV2Context] +gcdvlcrContexts + = lens _gcdvlcrContexts + (\ s a -> s{_gcdvlcrContexts = a}) + . _Default + . _Coerce + +-- | Token to retrieve the next page of results, or empty if there are no +-- more results in the list. +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]) + +-- | Transfers the call in Telephony Gateway. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' smart constructor. +newtype GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall = + GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' + { _gcdvimttcPhoneNumber :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimttcPhoneNumber' +googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + :: GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall +googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall = + GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall' + {_gcdvimttcPhoneNumber = Nothing} + + +-- | Required. The phone number to transfer the call to in [E.164 +-- format](https:\/\/en.wikipedia.org\/wiki\/E.164). We currently only +-- allow transferring to US numbers (+1xxxyyyzzzz). +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]) + +-- | The response message for Agents.ExportAgent. +-- +-- /See:/ 'googleCloudDialogflowV2beta1ExportAgentResponse' smart constructor. +data GoogleCloudDialogflowV2beta1ExportAgentResponse = + GoogleCloudDialogflowV2beta1ExportAgentResponse' + { _gooAgentURI :: !(Maybe Text) + , _gooAgentContent :: !(Maybe Bytes) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1ExportAgentResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooAgentURI' +-- +-- * 'gooAgentContent' +googleCloudDialogflowV2beta1ExportAgentResponse + :: GoogleCloudDialogflowV2beta1ExportAgentResponse +googleCloudDialogflowV2beta1ExportAgentResponse = + GoogleCloudDialogflowV2beta1ExportAgentResponse' + {_gooAgentURI = Nothing, _gooAgentContent = Nothing} + + +-- | The URI to a file containing the exported agent. This field is populated +-- only if \`agent_uri\` is specified in \`ExportAgentRequest\`. +gooAgentURI :: Lens' GoogleCloudDialogflowV2beta1ExportAgentResponse (Maybe Text) +gooAgentURI + = lens _gooAgentURI (\ s a -> s{_gooAgentURI = a}) + +-- | The exported agent. Example for how to export an agent to a zip file via +-- a command line: +-- +-- > curl \ +-- > 'https://dialogflow.googleapis.com/v2beta1/projects//agent:export'\ +-- > -X POST \ +-- > -H 'Authorization: Bearer '$(gcloud auth application-default +-- > print-access-token) \ +-- > -H 'Accept: application/json' \ +-- > -H 'Content-Type: application/json' \ +-- > --compressed \ +-- > --data-binary '{}' \ +-- > | grep agentContent | sed -e 's/.*"agentContent": "\([^"]*\)".*/\1/' \ +-- > | base64 --decode > +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]) + +-- | Optional. This field is set to the value of the +-- \`QueryParameters.payload\` field passed in the request. Some +-- integrations that query a Dialogflow agent may provide additional +-- information in the payload. In particular for the Telephony Gateway this +-- field has the form: +-- +-- > { +-- > "telephony": { +-- > "caller_id": "+18558363987" +-- > } +-- > } +-- +-- Note: The caller ID field (\`caller_id\`) will be redacted for Standard +-- Edition agents and populated with the caller ID in [E.164 +-- format](https:\/\/en.wikipedia.org\/wiki\/E.164) for Enterprise Edition +-- agents. +-- +-- /See:/ 'googleCloudDialogflowV2OriginalDetectIntentRequestPayload' smart constructor. +newtype GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload = + GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' + { _gcdvodirpcAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvodirpcAddtional' +googleCloudDialogflowV2OriginalDetectIntentRequestPayload + :: HashMap Text JSONValue -- ^ 'gcdvodirpcAddtional' + -> GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload +googleCloudDialogflowV2OriginalDetectIntentRequestPayload pGcdvodirpcAddtional_ = + GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload' + {_gcdvodirpcAddtional = _Coerce # pGcdvodirpcAddtional_} + + +-- | Properties of the object. +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 + +-- | Represents a session entity type. Extends or replaces a developer entity +-- type at the user session level (we refer to the entity types defined at +-- the agent level as \"developer entity types\"). Note: session entity +-- types apply to all queries, regardless of the language. +-- +-- /See:/ 'googleCloudDialogflowV2SessionEntityType' smart constructor. +data GoogleCloudDialogflowV2SessionEntityType = + GoogleCloudDialogflowV2SessionEntityType' + { _gcdvSetEntityOverrideMode :: !(Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode) + , _gcdvSetEntities :: !(Maybe [GoogleCloudDialogflowV2EntityTypeEntity]) + , _gcdvSetName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2SessionEntityType' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvSetEntityOverrideMode' +-- +-- * 'gcdvSetEntities' +-- +-- * 'gcdvSetName' +googleCloudDialogflowV2SessionEntityType + :: GoogleCloudDialogflowV2SessionEntityType +googleCloudDialogflowV2SessionEntityType = + GoogleCloudDialogflowV2SessionEntityType' + { _gcdvSetEntityOverrideMode = Nothing + , _gcdvSetEntities = Nothing + , _gcdvSetName = Nothing + } + + +-- | Required. Indicates whether the additional data should override or +-- supplement the developer entity type definition. +gcdvSetEntityOverrideMode :: Lens' GoogleCloudDialogflowV2SessionEntityType (Maybe GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode) +gcdvSetEntityOverrideMode + = lens _gcdvSetEntityOverrideMode + (\ s a -> s{_gcdvSetEntityOverrideMode = a}) + +-- | Required. The collection of entities associated with this session entity +-- type. +gcdvSetEntities :: Lens' GoogleCloudDialogflowV2SessionEntityType [GoogleCloudDialogflowV2EntityTypeEntity] +gcdvSetEntities + = lens _gcdvSetEntities + (\ s a -> s{_gcdvSetEntities = a}) + . _Default + . _Coerce + +-- | Required. The unique identifier of this session entity type. Format: +-- \`projects\/\/agent\/sessions\/\/entityTypes\/\`. \`\` must be the +-- display name of an existing entity type in the same agent that will be +-- overridden or supplemented. +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]) + +-- | An **entity entry** for an associated entity type. +-- +-- /See:/ 'googleCloudDialogflowV2EntityTypeEntity' smart constructor. +data GoogleCloudDialogflowV2EntityTypeEntity = + GoogleCloudDialogflowV2EntityTypeEntity' + { _gValue :: !(Maybe Text) + , _gSynonyms :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2EntityTypeEntity' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gValue' +-- +-- * 'gSynonyms' +googleCloudDialogflowV2EntityTypeEntity + :: GoogleCloudDialogflowV2EntityTypeEntity +googleCloudDialogflowV2EntityTypeEntity = + GoogleCloudDialogflowV2EntityTypeEntity' + {_gValue = Nothing, _gSynonyms = Nothing} + + +-- | Required. The primary value associated with this entity entry. For +-- example, if the entity type is *vegetable*, the value could be +-- *scallions*. For \`KIND_MAP\` entity types: * A canonical value to be +-- used in place of synonyms. For \`KIND_LIST\` entity types: * A string +-- that can contain references to other entity types (with or without +-- aliases). +gValue :: Lens' GoogleCloudDialogflowV2EntityTypeEntity (Maybe Text) +gValue = lens _gValue (\ s a -> s{_gValue = a}) + +-- | Required. A collection of value synonyms. For example, if the entity +-- type is *vegetable*, and \`value\` is *scallions*, a synonym could be +-- *green onions*. For \`KIND_LIST\` entity types: * This collection must +-- contain exactly one synonym equal to \`value\`. +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]) + +-- | Represents the result of conversational query or event processing. +-- +-- /See:/ 'googleCloudDialogflowV2beta1QueryResult' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1QueryResult' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gLanguageCode' +-- +-- * 'gAllRequiredParamsPresent' +-- +-- * 'gIntentDetectionConfidence' +-- +-- * 'gFulfillmentMessages' +-- +-- * 'gKnowledgeAnswers' +-- +-- * 'gSpeechRecognitionConfidence' +-- +-- * 'gAction' +-- +-- * 'gIntent' +-- +-- * 'gSentimentAnalysisResult' +-- +-- * 'gQueryText' +-- +-- * 'gFulfillmentText' +-- +-- * 'gParameters' +-- +-- * 'gWebhookPayload' +-- +-- * 'gOutputContexts' +-- +-- * 'gWebhookSource' +-- +-- * 'gDiagnosticInfo' +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 + } + + +-- | The language that was triggered during intent detection. See [Language +-- Support](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- for a list of the currently supported language codes. +gLanguageCode :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) +gLanguageCode + = lens _gLanguageCode + (\ s a -> s{_gLanguageCode = a}) + +-- | This field is set to: - \`false\` if the matched intent has required +-- parameters and not all of the required parameter values have been +-- collected. - \`true\` if all required parameter values have been +-- collected, or if the matched intent doesn\'t contain any required +-- parameters. +gAllRequiredParamsPresent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Bool) +gAllRequiredParamsPresent + = lens _gAllRequiredParamsPresent + (\ s a -> s{_gAllRequiredParamsPresent = a}) + +-- | The intent detection confidence. Values range from 0.0 (completely +-- uncertain) to 1.0 (completely certain). If there are \`multiple +-- knowledge_answers\` messages, this value is set to the greatest +-- \`knowledgeAnswers.match_confidence\` value in the list. +gIntentDetectionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double) +gIntentDetectionConfidence + = lens _gIntentDetectionConfidence + (\ s a -> s{_gIntentDetectionConfidence = a}) + . mapping _Coerce + +-- | The collection of rich messages to present to the user. +gFulfillmentMessages :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1IntentMessage] +gFulfillmentMessages + = lens _gFulfillmentMessages + (\ s a -> s{_gFulfillmentMessages = a}) + . _Default + . _Coerce + +-- | The result from Knowledge Connector (if any), ordered by decreasing +-- \`KnowledgeAnswers.match_confidence\`. +gKnowledgeAnswers :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1KnowledgeAnswers) +gKnowledgeAnswers + = lens _gKnowledgeAnswers + (\ s a -> s{_gKnowledgeAnswers = a}) + +-- | The Speech recognition confidence between 0.0 and 1.0. A higher number +-- indicates an estimated greater likelihood that the recognized words are +-- correct. The default of 0.0 is a sentinel value indicating that +-- confidence was not set. This field is not guaranteed to be accurate or +-- set. In particular this field isn\'t set for StreamingDetectIntent since +-- the streaming endpoint has separate confidence estimates per portion of +-- the audio in StreamingRecognitionResult. +gSpeechRecognitionConfidence :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Double) +gSpeechRecognitionConfidence + = lens _gSpeechRecognitionConfidence + (\ s a -> s{_gSpeechRecognitionConfidence = a}) + . mapping _Coerce + +-- | The action name from the matched intent. +gAction :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) +gAction = lens _gAction (\ s a -> s{_gAction = a}) + +-- | The intent that matched the conversational query. Some, not all fields +-- are filled in this message, including but not limited to: \`name\`, +-- \`display_name\` and \`webhook_state\`. +gIntent :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1Intent) +gIntent = lens _gIntent (\ s a -> s{_gIntent = a}) + +-- | The sentiment analysis result, which depends on the +-- \`sentiment_analysis_request_config\` specified in the request. +gSentimentAnalysisResult :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1SentimentAnalysisResult) +gSentimentAnalysisResult + = lens _gSentimentAnalysisResult + (\ s a -> s{_gSentimentAnalysisResult = a}) + +-- | The original conversational query text: - If natural language text was +-- provided as input, \`query_text\` contains a copy of the input. - If +-- natural language speech audio was provided as input, \`query_text\` +-- contains the speech recognition result. If speech recognizer produced +-- multiple alternatives, a particular one is picked. - If an event was +-- provided as input, \`query_text\` is not set. +gQueryText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) +gQueryText + = lens _gQueryText (\ s a -> s{_gQueryText = a}) + +-- | The text to be pronounced to the user or shown on the screen. Note: This +-- is a legacy field, \`fulfillment_messages\` should be preferred. +gFulfillmentText :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) +gFulfillmentText + = lens _gFulfillmentText + (\ s a -> s{_gFulfillmentText = a}) + +-- | The collection of extracted parameters. +gParameters :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultParameters) +gParameters + = lens _gParameters (\ s a -> s{_gParameters = a}) + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`payload\` field returned in the webhook response. +gWebhookPayload :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe GoogleCloudDialogflowV2beta1QueryResultWebhookPayload) +gWebhookPayload + = lens _gWebhookPayload + (\ s a -> s{_gWebhookPayload = a}) + +-- | The collection of output contexts. If applicable, +-- \`output_contexts.parameters\` contains entries with name \`.original\` +-- containing the original parameter values before the query. +gOutputContexts :: Lens' GoogleCloudDialogflowV2beta1QueryResult [GoogleCloudDialogflowV2beta1Context] +gOutputContexts + = lens _gOutputContexts + (\ s a -> s{_gOutputContexts = a}) + . _Default + . _Coerce + +-- | If the query was fulfilled by a webhook call, this field is set to the +-- value of the \`source\` field returned in the webhook response. +gWebhookSource :: Lens' GoogleCloudDialogflowV2beta1QueryResult (Maybe Text) +gWebhookSource + = lens _gWebhookSource + (\ s a -> s{_gWebhookSource = a}) + +-- | The free-form diagnostic info. For example, this field could contain +-- webhook call latency. The string keys of the Struct\'s fields map can +-- change without notice. +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]) + +-- | The image response message. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageImage' smart constructor. +data GoogleCloudDialogflowV2IntentMessageImage = + GoogleCloudDialogflowV2IntentMessageImage' + { _gAccessibilityText :: !(Maybe Text) + , _gImageURI :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageImage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gAccessibilityText' +-- +-- * 'gImageURI' +googleCloudDialogflowV2IntentMessageImage + :: GoogleCloudDialogflowV2IntentMessageImage +googleCloudDialogflowV2IntentMessageImage = + GoogleCloudDialogflowV2IntentMessageImage' + {_gAccessibilityText = Nothing, _gImageURI = Nothing} + + +-- | Optional. A text description of the image to be used for accessibility, +-- e.g., screen readers. +gAccessibilityText :: Lens' GoogleCloudDialogflowV2IntentMessageImage (Maybe Text) +gAccessibilityText + = lens _gAccessibilityText + (\ s a -> s{_gAccessibilityText = a}) + +-- | Optional. The public URI to an image file. +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]) + +-- | The response message for a webhook call. +-- +-- /See:/ 'googleCloudDialogflowV2WebhookResponse' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2WebhookResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooFulfillmentMessages' +-- +-- * 'gooPayload' +-- +-- * 'gooFulfillmentText' +-- +-- * 'gooSource' +-- +-- * 'gooOutputContexts' +-- +-- * 'gooFollowupEventInput' +googleCloudDialogflowV2WebhookResponse + :: GoogleCloudDialogflowV2WebhookResponse +googleCloudDialogflowV2WebhookResponse = + GoogleCloudDialogflowV2WebhookResponse' + { _gooFulfillmentMessages = Nothing + , _gooPayload = Nothing + , _gooFulfillmentText = Nothing + , _gooSource = Nothing + , _gooOutputContexts = Nothing + , _gooFollowupEventInput = Nothing + } + + +-- | Optional. The collection of rich messages to present to the user. This +-- value is passed directly to \`QueryResult.fulfillment_messages\`. +gooFulfillmentMessages :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2IntentMessage] +gooFulfillmentMessages + = lens _gooFulfillmentMessages + (\ s a -> s{_gooFulfillmentMessages = a}) + . _Default + . _Coerce + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_payload\`. See the related +-- \`fulfillment_messages[i].payload field\`, which may be used as an +-- alternative to this field. This field can be used for Actions on Google +-- responses. It should have a structure similar to the JSON message shown +-- here. For more information, see [Actions on Google Webhook +-- Format](https:\/\/developers.google.com\/actions\/dialogflow\/webhook) +-- +-- > { +-- > "google": { +-- > "expectUserResponse": true, +-- > "richResponse": { +-- > "items": [ +-- > { +-- > "simpleResponse": { +-- > "textToSpeech": "this is a simple response" +-- > } +-- > } +-- > ] +-- > } +-- > } +-- > } +gooPayload :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe GoogleCloudDialogflowV2WebhookResponsePayload) +gooPayload + = lens _gooPayload (\ s a -> s{_gooPayload = a}) + +-- | Optional. The text to be shown on the screen. This value is passed +-- directly to \`QueryResult.fulfillment_text\`. +gooFulfillmentText :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text) +gooFulfillmentText + = lens _gooFulfillmentText + (\ s a -> s{_gooFulfillmentText = a}) + +-- | Optional. This value is passed directly to +-- \`QueryResult.webhook_source\`. +gooSource :: Lens' GoogleCloudDialogflowV2WebhookResponse (Maybe Text) +gooSource + = lens _gooSource (\ s a -> s{_gooSource = a}) + +-- | Optional. The collection of output contexts. This value is passed +-- directly to \`QueryResult.output_contexts\`. +gooOutputContexts :: Lens' GoogleCloudDialogflowV2WebhookResponse [GoogleCloudDialogflowV2Context] +gooOutputContexts + = lens _gooOutputContexts + (\ s a -> s{_gooOutputContexts = a}) + . _Default + . _Coerce + +-- | Optional. Makes the platform immediately invoke another \`DetectIntent\` +-- call internally with the specified event as input. +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]) + +-- | The request message for Agents.TrainAgent. +-- +-- /See:/ 'googleCloudDialogflowV2TrainAgentRequest' smart constructor. +data GoogleCloudDialogflowV2TrainAgentRequest = + GoogleCloudDialogflowV2TrainAgentRequest' + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2TrainAgentRequest' with the minimum fields required to make a request. +-- +googleCloudDialogflowV2TrainAgentRequest + :: GoogleCloudDialogflowV2TrainAgentRequest +googleCloudDialogflowV2TrainAgentRequest = + GoogleCloudDialogflowV2TrainAgentRequest' + + +instance FromJSON + GoogleCloudDialogflowV2TrainAgentRequest + where + parseJSON + = withObject + "GoogleCloudDialogflowV2TrainAgentRequest" + (\ o -> + pure GoogleCloudDialogflowV2TrainAgentRequest') + +instance ToJSON + GoogleCloudDialogflowV2TrainAgentRequest + where + toJSON = const emptyObject + +-- | This message is a wrapper around a collection of intents. +-- +-- /See:/ 'googleCloudDialogflowV2IntentBatch' smart constructor. +newtype GoogleCloudDialogflowV2IntentBatch = + GoogleCloudDialogflowV2IntentBatch' + { _gcdvibIntents :: Maybe [GoogleCloudDialogflowV2Intent] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentBatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvibIntents' +googleCloudDialogflowV2IntentBatch + :: GoogleCloudDialogflowV2IntentBatch +googleCloudDialogflowV2IntentBatch = + GoogleCloudDialogflowV2IntentBatch' {_gcdvibIntents = Nothing} + + +-- | A collection of intents. +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]) + +-- | Represents an entity type. Entity types serve as a tool for extracting +-- parameter values from natural language queries. +-- +-- /See:/ 'googleCloudDialogflowV2beta1EntityType' smart constructor. +data GoogleCloudDialogflowV2beta1EntityType = + GoogleCloudDialogflowV2beta1EntityType' + { _gcdvetcEntities :: !(Maybe [GoogleCloudDialogflowV2beta1EntityTypeEntity]) + , _gcdvetcKind :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeKind) + , _gcdvetcName :: !(Maybe Text) + , _gcdvetcAutoExpansionMode :: !(Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode) + , _gcdvetcDisplayName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1EntityType' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvetcEntities' +-- +-- * 'gcdvetcKind' +-- +-- * 'gcdvetcName' +-- +-- * 'gcdvetcAutoExpansionMode' +-- +-- * 'gcdvetcDisplayName' +googleCloudDialogflowV2beta1EntityType + :: GoogleCloudDialogflowV2beta1EntityType +googleCloudDialogflowV2beta1EntityType = + GoogleCloudDialogflowV2beta1EntityType' + { _gcdvetcEntities = Nothing + , _gcdvetcKind = Nothing + , _gcdvetcName = Nothing + , _gcdvetcAutoExpansionMode = Nothing + , _gcdvetcDisplayName = Nothing + } + + +-- | Optional. The collection of entity entries associated with the entity +-- type. +gcdvetcEntities :: Lens' GoogleCloudDialogflowV2beta1EntityType [GoogleCloudDialogflowV2beta1EntityTypeEntity] +gcdvetcEntities + = lens _gcdvetcEntities + (\ s a -> s{_gcdvetcEntities = a}) + . _Default + . _Coerce + +-- | Required. Indicates the kind of entity type. +gcdvetcKind :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeKind) +gcdvetcKind + = lens _gcdvetcKind (\ s a -> s{_gcdvetcKind = a}) + +-- | The unique identifier of the entity type. Required for +-- EntityTypes.UpdateEntityType and EntityTypes.BatchUpdateEntityTypes +-- methods. Format: \`projects\/\/agent\/entityTypes\/\`. +gcdvetcName :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe Text) +gcdvetcName + = lens _gcdvetcName (\ s a -> s{_gcdvetcName = a}) + +-- | Optional. Indicates whether the entity type can be automatically +-- expanded. +gcdvetcAutoExpansionMode :: Lens' GoogleCloudDialogflowV2beta1EntityType (Maybe GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode) +gcdvetcAutoExpansionMode + = lens _gcdvetcAutoExpansionMode + (\ s a -> s{_gcdvetcAutoExpansionMode = a}) + +-- | Required. The name of the entity type. +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]) + +-- | The response message for Agents.SearchAgents. +-- +-- /See:/ 'googleCloudDialogflowV2SearchAgentsResponse' smart constructor. +data GoogleCloudDialogflowV2SearchAgentsResponse = + GoogleCloudDialogflowV2SearchAgentsResponse' + { _gcdvsarNextPageToken :: !(Maybe Text) + , _gcdvsarAgents :: !(Maybe [GoogleCloudDialogflowV2Agent]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2SearchAgentsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvsarNextPageToken' +-- +-- * 'gcdvsarAgents' +googleCloudDialogflowV2SearchAgentsResponse + :: GoogleCloudDialogflowV2SearchAgentsResponse +googleCloudDialogflowV2SearchAgentsResponse = + GoogleCloudDialogflowV2SearchAgentsResponse' + {_gcdvsarNextPageToken = Nothing, _gcdvsarAgents = Nothing} + + +-- | Token to retrieve the next page of results, or empty if there are no +-- more results in the list. +gcdvsarNextPageToken :: Lens' GoogleCloudDialogflowV2SearchAgentsResponse (Maybe Text) +gcdvsarNextPageToken + = lens _gcdvsarNextPageToken + (\ s a -> s{_gcdvsarNextPageToken = a}) + +-- | The list of agents. There will be a maximum number of items returned +-- based on the page_size field in the request. +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]) + +-- | The response message for SessionEntityTypes.ListSessionEntityTypes. +-- +-- /See:/ 'googleCloudDialogflowV2ListSessionEntityTypesResponse' smart constructor. +data GoogleCloudDialogflowV2ListSessionEntityTypesResponse = + GoogleCloudDialogflowV2ListSessionEntityTypesResponse' + { _gcdvlSetrNextPageToken :: !(Maybe Text) + , _gcdvlSetrSessionEntityTypes :: !(Maybe [GoogleCloudDialogflowV2SessionEntityType]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2ListSessionEntityTypesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvlSetrNextPageToken' +-- +-- * 'gcdvlSetrSessionEntityTypes' +googleCloudDialogflowV2ListSessionEntityTypesResponse + :: GoogleCloudDialogflowV2ListSessionEntityTypesResponse +googleCloudDialogflowV2ListSessionEntityTypesResponse = + GoogleCloudDialogflowV2ListSessionEntityTypesResponse' + {_gcdvlSetrNextPageToken = Nothing, _gcdvlSetrSessionEntityTypes = Nothing} + + +-- | Token to retrieve the next page of results, or empty if there are no +-- more results in the list. +gcdvlSetrNextPageToken :: Lens' GoogleCloudDialogflowV2ListSessionEntityTypesResponse (Maybe Text) +gcdvlSetrNextPageToken + = lens _gcdvlSetrNextPageToken + (\ s a -> s{_gcdvlSetrNextPageToken = a}) + +-- | The list of session entity types. There will be a maximum number of +-- items returned based on the page_size field in the request. +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]) + +-- | This resource represents a long-running operation that is the result of +-- a network API call. +-- +-- /See:/ 'googleLongrunningOperation' smart constructor. +data GoogleLongrunningOperation = + GoogleLongrunningOperation' + { _gloDone :: !(Maybe Bool) + , _gloError :: !(Maybe GoogleRpcStatus) + , _gloResponse :: !(Maybe GoogleLongrunningOperationResponse) + , _gloName :: !(Maybe Text) + , _gloMetadata :: !(Maybe GoogleLongrunningOperationMetadata) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleLongrunningOperation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gloDone' +-- +-- * 'gloError' +-- +-- * 'gloResponse' +-- +-- * 'gloName' +-- +-- * 'gloMetadata' +googleLongrunningOperation + :: GoogleLongrunningOperation +googleLongrunningOperation = + GoogleLongrunningOperation' + { _gloDone = Nothing + , _gloError = Nothing + , _gloResponse = Nothing + , _gloName = Nothing + , _gloMetadata = Nothing + } + + +-- | If the value is \`false\`, it means the operation is still in progress. +-- If \`true\`, the operation is completed, and either \`error\` or +-- \`response\` is available. +gloDone :: Lens' GoogleLongrunningOperation (Maybe Bool) +gloDone = lens _gloDone (\ s a -> s{_gloDone = a}) + +-- | The error result of the operation in case of failure or cancellation. +gloError :: Lens' GoogleLongrunningOperation (Maybe GoogleRpcStatus) +gloError = lens _gloError (\ s a -> s{_gloError = a}) + +-- | The normal response of the operation in case of success. If the original +-- method returns no data on success, such as \`Delete\`, the response is +-- \`google.protobuf.Empty\`. If the original method is standard +-- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource. +-- For other methods, the response should have the type \`XxxResponse\`, +-- where \`Xxx\` is the original method name. For example, if the original +-- method name is \`TakeSnapshot()\`, the inferred response type is +-- \`TakeSnapshotResponse\`. +gloResponse :: Lens' GoogleLongrunningOperation (Maybe GoogleLongrunningOperationResponse) +gloResponse + = lens _gloResponse (\ s a -> s{_gloResponse = a}) + +-- | The server-assigned name, which is only unique within the same service +-- that originally returns it. If you use the default HTTP mapping, the +-- \`name\` should have the format of \`operations\/some\/unique\/name\`. +gloName :: Lens' GoogleLongrunningOperation (Maybe Text) +gloName = lens _gloName (\ s a -> s{_gloName = a}) + +-- | Service-specific metadata associated with the operation. It typically +-- contains progress information and common metadata such as create time. +-- Some services might not provide such metadata. Any method that returns a +-- long-running operation should document the metadata type, if any. +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]) + +-- | Corresponds to the \`Response\` field in the Dialogflow console. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessage' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimcCard' +-- +-- * 'gcdvimcImage' +-- +-- * 'gcdvimcPlatform' +-- +-- * 'gcdvimcLinkOutSuggestion' +-- +-- * 'gcdvimcText' +-- +-- * 'gcdvimcCarouselSelect' +-- +-- * 'gcdvimcSimpleResponses' +-- +-- * 'gcdvimcPayload' +-- +-- * 'gcdvimcSuggestions' +-- +-- * 'gcdvimcListSelect' +-- +-- * 'gcdvimcBasicCard' +-- +-- * 'gcdvimcQuickReplies' +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 + } + + +-- | The card response. +gcdvimcCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCard) +gcdvimcCard + = lens _gcdvimcCard (\ s a -> s{_gcdvimcCard = a}) + +-- | The image response. +gcdvimcImage :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageImage) +gcdvimcImage + = lens _gcdvimcImage (\ s a -> s{_gcdvimcImage = a}) + +-- | Optional. The platform that this message is intended for. +gcdvimcPlatform :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePlatform) +gcdvimcPlatform + = lens _gcdvimcPlatform + (\ s a -> s{_gcdvimcPlatform = a}) + +-- | The link out suggestion chip for Actions on Google. +gcdvimcLinkOutSuggestion :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion) +gcdvimcLinkOutSuggestion + = lens _gcdvimcLinkOutSuggestion + (\ s a -> s{_gcdvimcLinkOutSuggestion = a}) + +-- | The text response. +gcdvimcText :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageText) +gcdvimcText + = lens _gcdvimcText (\ s a -> s{_gcdvimcText = a}) + +-- | The carousel card response for Actions on Google. +gcdvimcCarouselSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageCarouselSelect) +gcdvimcCarouselSelect + = lens _gcdvimcCarouselSelect + (\ s a -> s{_gcdvimcCarouselSelect = a}) + +-- | The voice and text-only responses for Actions on Google. +gcdvimcSimpleResponses :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSimpleResponses) +gcdvimcSimpleResponses + = lens _gcdvimcSimpleResponses + (\ s a -> s{_gcdvimcSimpleResponses = a}) + +-- | Returns a response containing a custom, platform-specific payload. See +-- the Intent.Message.Platform type for a description of the structure that +-- may be required for your platform. +gcdvimcPayload :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessagePayload) +gcdvimcPayload + = lens _gcdvimcPayload + (\ s a -> s{_gcdvimcPayload = a}) + +-- | The suggestion chips for Actions on Google. +gcdvimcSuggestions :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageSuggestions) +gcdvimcSuggestions + = lens _gcdvimcSuggestions + (\ s a -> s{_gcdvimcSuggestions = a}) + +-- | The list card response for Actions on Google. +gcdvimcListSelect :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageListSelect) +gcdvimcListSelect + = lens _gcdvimcListSelect + (\ s a -> s{_gcdvimcListSelect = a}) + +-- | The basic card response for Actions on Google. +gcdvimcBasicCard :: Lens' GoogleCloudDialogflowV2IntentMessage (Maybe GoogleCloudDialogflowV2IntentMessageBasicCard) +gcdvimcBasicCard + = lens _gcdvimcBasicCard + (\ s a -> s{_gcdvimcBasicCard = a}) + +-- | The quick replies response. +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]) + +-- | The card for presenting a carousel of options to select from. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageCarouselSelect' smart constructor. +newtype GoogleCloudDialogflowV2IntentMessageCarouselSelect = + GoogleCloudDialogflowV2IntentMessageCarouselSelect' + { _gItems :: Maybe [GoogleCloudDialogflowV2IntentMessageCarouselSelectItem] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageCarouselSelect' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gItems' +googleCloudDialogflowV2IntentMessageCarouselSelect + :: GoogleCloudDialogflowV2IntentMessageCarouselSelect +googleCloudDialogflowV2IntentMessageCarouselSelect = + GoogleCloudDialogflowV2IntentMessageCarouselSelect' {_gItems = Nothing} + + +-- | Required. Carousel items. +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]) + +-- | The sentiment, such as positive\/negative feeling or association, for a +-- unit of analysis, such as the query text. +-- +-- /See:/ 'googleCloudDialogflowV2Sentiment' smart constructor. +data GoogleCloudDialogflowV2Sentiment = + GoogleCloudDialogflowV2Sentiment' + { _gScore :: !(Maybe (Textual Double)) + , _gMagnitude :: !(Maybe (Textual Double)) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2Sentiment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gScore' +-- +-- * 'gMagnitude' +googleCloudDialogflowV2Sentiment + :: GoogleCloudDialogflowV2Sentiment +googleCloudDialogflowV2Sentiment = + GoogleCloudDialogflowV2Sentiment' {_gScore = Nothing, _gMagnitude = Nothing} + + +-- | Sentiment score between -1.0 (negative sentiment) and 1.0 (positive +-- sentiment). +gScore :: Lens' GoogleCloudDialogflowV2Sentiment (Maybe Double) +gScore + = lens _gScore (\ s a -> s{_gScore = a}) . + mapping _Coerce + +-- | A non-negative number in the [0, +inf) range, which represents the +-- absolute magnitude of sentiment, regardless of score (positive or +-- negative). +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]) + +-- | Additional info about the select item for when it is triggered in a +-- dialog. +-- +-- /See:/ 'googleCloudDialogflowV2beta1IntentMessageSelectItemInfo' smart constructor. +data GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo = + GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' + { _gooKey :: !(Maybe Text) + , _gooSynonyms :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gooKey' +-- +-- * 'gooSynonyms' +googleCloudDialogflowV2beta1IntentMessageSelectItemInfo + :: GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo +googleCloudDialogflowV2beta1IntentMessageSelectItemInfo = + GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo' + {_gooKey = Nothing, _gooSynonyms = Nothing} + + +-- | Required. A unique key that will be sent back to the agent if this +-- response is given. +gooKey :: Lens' GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo (Maybe Text) +gooKey = lens _gooKey (\ s a -> s{_gooKey = a}) + +-- | Optional. A list of synonyms that can also be used to trigger this item +-- in dialog. +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]) + +-- | Represents an intent. Intents convert a number of user expressions or +-- patterns into an action. An action is an extraction of a user command or +-- sentence semantics. +-- +-- /See:/ 'googleCloudDialogflowV2beta1Intent' smart constructor. +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) + + +-- | Creates a value of 'GoogleCloudDialogflowV2beta1Intent' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvicDefaultResponsePlatforms' +-- +-- * 'gcdvicWebhookState' +-- +-- * 'gcdvicMlEnabled' +-- +-- * 'gcdvicPriority' +-- +-- * 'gcdvicAction' +-- +-- * 'gcdvicRootFollowupIntentName' +-- +-- * 'gcdvicName' +-- +-- * 'gcdvicEvents' +-- +-- * 'gcdvicParameters' +-- +-- * 'gcdvicDisplayName' +-- +-- * 'gcdvicInputContextNames' +-- +-- * 'gcdvicEndInteraction' +-- +-- * 'gcdvicMessages' +-- +-- * 'gcdvicParentFollowupIntentName' +-- +-- * 'gcdvicOutputContexts' +-- +-- * 'gcdvicTrainingPhrases' +-- +-- * 'gcdvicFollowupIntentInfo' +-- +-- * 'gcdvicIsFallback' +-- +-- * 'gcdvicMlDisabled' +-- +-- * 'gcdvicResetContexts' +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 + } + + +-- | Optional. The list of platforms for which the first response will be +-- taken from among the messages assigned to the DEFAULT_PLATFORM. +gcdvicDefaultResponsePlatforms :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] +gcdvicDefaultResponsePlatforms + = lens _gcdvicDefaultResponsePlatforms + (\ s a -> s{_gcdvicDefaultResponsePlatforms = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether webhooks are enabled for the intent. +gcdvicWebhookState :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe GoogleCloudDialogflowV2beta1IntentWebhookState) +gcdvicWebhookState + = lens _gcdvicWebhookState + (\ s a -> s{_gcdvicWebhookState = a}) + +-- | Optional. Indicates whether Machine Learning is enabled for the intent. +-- Note: If \`ml_enabled\` setting is set to false, then this intent is not +-- taken into account during inference in \`ML ONLY\` match mode. Also, +-- auto-markup in the UI is turned off. DEPRECATED! Please use +-- \`ml_disabled\` field instead. NOTE: If both \`ml_enabled\` and +-- \`ml_disabled\` are either not set or false, then the default value is +-- determined as follows: - Before April 15th, 2018 the default is: +-- ml_enabled = false \/ ml_disabled = true. - After April 15th, 2018 the +-- default is: ml_enabled = true \/ ml_disabled = false. +gcdvicMlEnabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) +gcdvicMlEnabled + = lens _gcdvicMlEnabled + (\ s a -> s{_gcdvicMlEnabled = a}) + +-- | Optional. The priority of this intent. Higher numbers represent higher +-- priorities. If this is zero or unspecified, we use the default priority +-- 500000. Negative numbers mean that the intent is disabled. +gcdvicPriority :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Int32) +gcdvicPriority + = lens _gcdvicPriority + (\ s a -> s{_gcdvicPriority = a}) + . mapping _Coerce + +-- | Optional. The name of the action associated with the intent. Note: The +-- action name must not contain whitespaces. +gcdvicAction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) +gcdvicAction + = lens _gcdvicAction (\ s a -> s{_gcdvicAction = a}) + +-- | Read-only. The unique identifier of the root intent in the chain of +-- followup intents. It identifies the correct followup intents chain for +-- this intent. We populate this field only in the output. Format: +-- \`projects\/\/agent\/intents\/\`. +gcdvicRootFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) +gcdvicRootFollowupIntentName + = lens _gcdvicRootFollowupIntentName + (\ s a -> s{_gcdvicRootFollowupIntentName = a}) + +-- | The unique identifier of this intent. Required for Intents.UpdateIntent +-- and Intents.BatchUpdateIntents methods. Format: +-- \`projects\/\/agent\/intents\/\`. +gcdvicName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) +gcdvicName + = lens _gcdvicName (\ s a -> s{_gcdvicName = a}) + +-- | Optional. The collection of event names that trigger the intent. If the +-- collection of input contexts is not empty, all of the contexts must be +-- present in the active user session for an event to trigger this intent. +gcdvicEvents :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] +gcdvicEvents + = lens _gcdvicEvents (\ s a -> s{_gcdvicEvents = a}) + . _Default + . _Coerce + +-- | Optional. The collection of parameters associated with the intent. +gcdvicParameters :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentParameter] +gcdvicParameters + = lens _gcdvicParameters + (\ s a -> s{_gcdvicParameters = a}) + . _Default + . _Coerce + +-- | Required. The name of this intent. +gcdvicDisplayName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) +gcdvicDisplayName + = lens _gcdvicDisplayName + (\ s a -> s{_gcdvicDisplayName = a}) + +-- | Optional. The list of context names required for this intent to be +-- triggered. Format: \`projects\/\/agent\/sessions\/-\/contexts\/\`. +gcdvicInputContextNames :: Lens' GoogleCloudDialogflowV2beta1Intent [Text] +gcdvicInputContextNames + = lens _gcdvicInputContextNames + (\ s a -> s{_gcdvicInputContextNames = a}) + . _Default + . _Coerce + +-- | Optional. Indicates that this intent ends an interaction. Some +-- integrations (e.g., Actions on Google or Dialogflow phone gateway) use +-- this information to close interaction with an end user. Default is +-- false. +gcdvicEndInteraction :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) +gcdvicEndInteraction + = lens _gcdvicEndInteraction + (\ s a -> s{_gcdvicEndInteraction = a}) + +-- | Optional. The collection of rich messages corresponding to the +-- \`Response\` field in the Dialogflow console. +gcdvicMessages :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentMessage] +gcdvicMessages + = lens _gcdvicMessages + (\ s a -> s{_gcdvicMessages = a}) + . _Default + . _Coerce + +-- | Read-only after creation. The unique identifier of the parent intent in +-- the chain of followup intents. You can set this field when creating an +-- intent, for example with CreateIntent or BatchUpdateIntents, in order to +-- make this intent a followup intent. It identifies the parent followup +-- intent. Format: \`projects\/\/agent\/intents\/\`. +gcdvicParentFollowupIntentName :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Text) +gcdvicParentFollowupIntentName + = lens _gcdvicParentFollowupIntentName + (\ s a -> s{_gcdvicParentFollowupIntentName = a}) + +-- | Optional. The collection of contexts that are activated when the intent +-- is matched. Context messages in this collection should not set the +-- parameters field. Setting the \`lifespan_count\` to 0 will reset the +-- context when the intent is matched. Format: +-- \`projects\/\/agent\/sessions\/-\/contexts\/\`. +gcdvicOutputContexts :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1Context] +gcdvicOutputContexts + = lens _gcdvicOutputContexts + (\ s a -> s{_gcdvicOutputContexts = a}) + . _Default + . _Coerce + +-- | Optional. The collection of examples that the agent is trained on. +gcdvicTrainingPhrases :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentTrainingPhrase] +gcdvicTrainingPhrases + = lens _gcdvicTrainingPhrases + (\ s a -> s{_gcdvicTrainingPhrases = a}) + . _Default + . _Coerce + +-- | Read-only. Information about all followup intents that have this intent +-- as a direct or indirect parent. We populate this field only in the +-- output. +gcdvicFollowupIntentInfo :: Lens' GoogleCloudDialogflowV2beta1Intent [GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo] +gcdvicFollowupIntentInfo + = lens _gcdvicFollowupIntentInfo + (\ s a -> s{_gcdvicFollowupIntentInfo = a}) + . _Default + . _Coerce + +-- | Optional. Indicates whether this is a fallback intent. +gcdvicIsFallback :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) +gcdvicIsFallback + = lens _gcdvicIsFallback + (\ s a -> s{_gcdvicIsFallback = a}) + +-- | Optional. Indicates whether Machine Learning is disabled for the intent. +-- Note: If \`ml_disabled\` setting is set to true, then this intent is not +-- taken into account during inference in \`ML ONLY\` match mode. Also, +-- auto-markup in the UI is turned off. +gcdvicMlDisabled :: Lens' GoogleCloudDialogflowV2beta1Intent (Maybe Bool) +gcdvicMlDisabled + = lens _gcdvicMlDisabled + (\ s a -> s{_gcdvicMlDisabled = a}) + +-- | Optional. Indicates whether to delete all contexts in the current +-- session when this intent is matched. +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]) + +-- | Represents a context. +-- +-- /See:/ 'googleCloudDialogflowV2Context' smart constructor. +data GoogleCloudDialogflowV2Context = + GoogleCloudDialogflowV2Context' + { _gcdvccLifespanCount :: !(Maybe (Textual Int32)) + , _gcdvccName :: !(Maybe Text) + , _gcdvccParameters :: !(Maybe GoogleCloudDialogflowV2ContextParameters) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2Context' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvccLifespanCount' +-- +-- * 'gcdvccName' +-- +-- * 'gcdvccParameters' +googleCloudDialogflowV2Context + :: GoogleCloudDialogflowV2Context +googleCloudDialogflowV2Context = + GoogleCloudDialogflowV2Context' + { _gcdvccLifespanCount = Nothing + , _gcdvccName = Nothing + , _gcdvccParameters = Nothing + } + + +-- | Optional. The number of conversational query requests after which the +-- context expires. If set to \`0\` (the default) the context expires +-- immediately. Contexts expire automatically after 20 minutes if there are +-- no matching queries. +gcdvccLifespanCount :: Lens' GoogleCloudDialogflowV2Context (Maybe Int32) +gcdvccLifespanCount + = lens _gcdvccLifespanCount + (\ s a -> s{_gcdvccLifespanCount = a}) + . mapping _Coerce + +-- | Required. The unique identifier of the context. Format: +-- \`projects\/\/agent\/sessions\/\/contexts\/\`. The \`Context ID\` is +-- always converted to lowercase, may only contain characters in +-- [a-zA-Z0-9_-%] and may be at most 250 bytes long. +gcdvccName :: Lens' GoogleCloudDialogflowV2Context (Maybe Text) +gcdvccName + = lens _gcdvccName (\ s a -> s{_gcdvccName = a}) + +-- | Optional. The collection of parameters associated with this context. +-- Refer to [this +-- doc](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/intents-actions-parameters) +-- for syntax. +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]) + +-- | The button object that appears at the bottom of a card. +-- +-- /See:/ 'googleCloudDialogflowV2IntentMessageBasicCardButton' smart constructor. +data GoogleCloudDialogflowV2IntentMessageBasicCardButton = + GoogleCloudDialogflowV2IntentMessageBasicCardButton' + { _gcdvimbcbcOpenURIAction :: !(Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction) + , _gcdvimbcbcTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudDialogflowV2IntentMessageBasicCardButton' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcdvimbcbcOpenURIAction' +-- +-- * 'gcdvimbcbcTitle' +googleCloudDialogflowV2IntentMessageBasicCardButton + :: GoogleCloudDialogflowV2IntentMessageBasicCardButton +googleCloudDialogflowV2IntentMessageBasicCardButton = + GoogleCloudDialogflowV2IntentMessageBasicCardButton' + {_gcdvimbcbcOpenURIAction = Nothing, _gcdvimbcbcTitle = Nothing} + + +-- | Required. Action to take when a user taps on the button. +gcdvimbcbcOpenURIAction :: Lens' GoogleCloudDialogflowV2IntentMessageBasicCardButton (Maybe GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction) +gcdvimbcbcOpenURIAction + = lens _gcdvimbcbcOpenURIAction + (\ s a -> s{_gcdvimbcbcOpenURIAction = a}) + +-- | Required. The title of the button. +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'{..} diff --git a/gen/Network/Google/DialogFlow/Types/Sum.hs b/gen/Network/Google/DialogFlow/Types/Sum.hs --- a/gen/Network/Google/DialogFlow/Types/Sum.hs +++ b/gen/Network/Google/DialogFlow/Types/Sum.hs @@ -59,7 +59,10 @@ | Template -- ^ @TEMPLATE@ -- Templates are not annotated with entity types, but they can contain - -- \@-prefixed entity type names as substrings. + -- \@-prefixed entity type names as substrings. Template mode has been + -- deprecated. Example mode is the only supported way to create new + -- training phrases. If you have existing training phrases that you\'ve + -- created in template mode, those will continue to work. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable GoogleCloudDialogflowV2beta1IntentTrainingPhraseType @@ -83,6 +86,105 @@ instance ToJSON GoogleCloudDialogflowV2beta1IntentTrainingPhraseType where toJSON = toJSONText +-- | Optional. Which variant of the Speech model to use. +data GoogleCloudDialogflowV2InputAudioConfigModelVariant + = SpeechModelVariantUnspecified + -- ^ @SPEECH_MODEL_VARIANT_UNSPECIFIED@ + -- No model variant specified. In this case we default to + -- USE_BEST_AVAILABLE. + | UseBestAvailable + -- ^ @USE_BEST_AVAILABLE@ + -- Use the best available variant of the Speech model that the caller is + -- eligible for. Please see the [Dialogflow + -- docs](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/data-logging) + -- for how to make your project eligible for enhanced models. + | UseStandard + -- ^ @USE_STANDARD@ + -- Use standard model variant even if an enhanced model is available. See + -- the [Cloud Speech + -- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/enhanced-models) + -- for details about enhanced models. + | UseEnhanced + -- ^ @USE_ENHANCED@ + -- Use an enhanced model variant: * If an enhanced variant does not exist + -- for the given model and request language, we fall back to the standard + -- variant. The [Cloud Speech + -- documentation](https:\/\/cloud.google.com\/speech-to-text\/docs\/enhanced-models) + -- describes which models have enhanced variants. * If the API caller + -- isn\'t eligible for enhanced models, we return an error. Please see the + -- [Dialogflow + -- docs](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/data-logging) + -- for how to make your project eligible. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2InputAudioConfigModelVariant + +instance FromHttpApiData GoogleCloudDialogflowV2InputAudioConfigModelVariant where + parseQueryParam = \case + "SPEECH_MODEL_VARIANT_UNSPECIFIED" -> Right SpeechModelVariantUnspecified + "USE_BEST_AVAILABLE" -> Right UseBestAvailable + "USE_STANDARD" -> Right UseStandard + "USE_ENHANCED" -> Right UseEnhanced + x -> Left ("Unable to parse GoogleCloudDialogflowV2InputAudioConfigModelVariant from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2InputAudioConfigModelVariant where + toQueryParam = \case + SpeechModelVariantUnspecified -> "SPEECH_MODEL_VARIANT_UNSPECIFIED" + UseBestAvailable -> "USE_BEST_AVAILABLE" + UseStandard -> "USE_STANDARD" + UseEnhanced -> "USE_ENHANCED" + +instance FromJSON GoogleCloudDialogflowV2InputAudioConfigModelVariant where + parseJSON = parseJSONText "GoogleCloudDialogflowV2InputAudioConfigModelVariant" + +instance ToJSON GoogleCloudDialogflowV2InputAudioConfigModelVariant where + toJSON = toJSONText + +-- | Optional. The preferred gender of the voice. If not set, the service +-- will choose a voice based on the other parameters such as language_code +-- and name. Note that this is only a preference, not requirement. If a +-- voice of the appropriate gender is not available, the synthesizer should +-- substitute a voice with a different gender rather than failing the +-- request. +data GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender + = SsmlVoiceGenderUnspecified + -- ^ @SSML_VOICE_GENDER_UNSPECIFIED@ + -- An unspecified gender, which means that the client doesn\'t care which + -- gender the selected voice will have. + | SsmlVoiceGenderMale + -- ^ @SSML_VOICE_GENDER_MALE@ + -- A male voice. + | SsmlVoiceGenderFemale + -- ^ @SSML_VOICE_GENDER_FEMALE@ + -- A female voice. + | SsmlVoiceGenderNeutral + -- ^ @SSML_VOICE_GENDER_NEUTRAL@ + -- A gender-neutral voice. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender + +instance FromHttpApiData GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender where + parseQueryParam = \case + "SSML_VOICE_GENDER_UNSPECIFIED" -> Right SsmlVoiceGenderUnspecified + "SSML_VOICE_GENDER_MALE" -> Right SsmlVoiceGenderMale + "SSML_VOICE_GENDER_FEMALE" -> Right SsmlVoiceGenderFemale + "SSML_VOICE_GENDER_NEUTRAL" -> Right SsmlVoiceGenderNeutral + x -> Left ("Unable to parse GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender where + toQueryParam = \case + SsmlVoiceGenderUnspecified -> "SSML_VOICE_GENDER_UNSPECIFIED" + SsmlVoiceGenderMale -> "SSML_VOICE_GENDER_MALE" + SsmlVoiceGenderFemale -> "SSML_VOICE_GENDER_FEMALE" + SsmlVoiceGenderNeutral -> "SSML_VOICE_GENDER_NEUTRAL" + +instance FromJSON GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender where + parseJSON = parseJSONText "GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender" + +instance ToJSON GoogleCloudDialogflowV2VoiceSelectionParamsSsmlGender where + toJSON = toJSONText + -- | The system\'s confidence level that this knowledge answer is a good -- match for this conversational query. NOTE: The confidence level for a -- given \`\` pair may change without notice, as it depends on models that @@ -301,7 +403,10 @@ | GCDVITPTTemplate -- ^ @TEMPLATE@ -- Templates are not annotated with entity types, but they can contain - -- \@-prefixed entity type names as substrings. + -- \@-prefixed entity type names as substrings. Template mode has been + -- deprecated. Example mode is the only supported way to create new + -- training phrases. If you have existing training phrases that you\'ve + -- created in template mode, those will continue to work. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable GoogleCloudDialogflowV2IntentTrainingPhraseType @@ -630,6 +735,49 @@ parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1IntentWebhookState" instance ToJSON GoogleCloudDialogflowV2beta1IntentWebhookState where + toJSON = toJSONText + +-- | Required. Audio encoding of the synthesized audio content. +data GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding + = OutputAudioEncodingUnspecified + -- ^ @OUTPUT_AUDIO_ENCODING_UNSPECIFIED@ + -- Not specified. + | OutputAudioEncodingLinear16 + -- ^ @OUTPUT_AUDIO_ENCODING_LINEAR_16@ + -- Uncompressed 16-bit signed little-endian samples (Linear PCM). Audio + -- content returned as LINEAR16 also contains a WAV header. + | OutputAudioEncodingMP3 + -- ^ @OUTPUT_AUDIO_ENCODING_MP3@ + -- MP3 audio. + | OutputAudioEncodingOggOpus + -- ^ @OUTPUT_AUDIO_ENCODING_OGG_OPUS@ + -- Opus encoded audio wrapped in an ogg container. The result will be a + -- file which can be played natively on Android, and in browsers (at least + -- Chrome and Firefox). The quality of the encoding is considerably higher + -- than MP3 while using approximately the same bitrate. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding + +instance FromHttpApiData GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding where + parseQueryParam = \case + "OUTPUT_AUDIO_ENCODING_UNSPECIFIED" -> Right OutputAudioEncodingUnspecified + "OUTPUT_AUDIO_ENCODING_LINEAR_16" -> Right OutputAudioEncodingLinear16 + "OUTPUT_AUDIO_ENCODING_MP3" -> Right OutputAudioEncodingMP3 + "OUTPUT_AUDIO_ENCODING_OGG_OPUS" -> Right OutputAudioEncodingOggOpus + x -> Left ("Unable to parse GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding where + toQueryParam = \case + OutputAudioEncodingUnspecified -> "OUTPUT_AUDIO_ENCODING_UNSPECIFIED" + OutputAudioEncodingLinear16 -> "OUTPUT_AUDIO_ENCODING_LINEAR_16" + OutputAudioEncodingMP3 -> "OUTPUT_AUDIO_ENCODING_MP3" + OutputAudioEncodingOggOpus -> "OUTPUT_AUDIO_ENCODING_OGG_OPUS" + +instance FromJSON GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding where + parseJSON = parseJSONText "GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding" + +instance ToJSON GoogleCloudDialogflowV2OutputAudioConfigAudioEncoding where toJSON = toJSONText -- | Optional. Indicates whether the entity type can be automatically diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs @@ -64,7 +64,8 @@ -- | Deletes entity types in the specified agent. Operation -- -- /See:/ 'projectsAgentEntityTypesBatchDelete' smart constructor. -data ProjectsAgentEntityTypesBatchDelete = ProjectsAgentEntityTypesBatchDelete' +data ProjectsAgentEntityTypesBatchDelete = + ProjectsAgentEntityTypesBatchDelete' { _paetbdParent :: !Text , _paetbdXgafv :: !(Maybe Xgafv) , _paetbdUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _paetbdUploadType :: !(Maybe Text) , _paetbdPayload :: !GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest , _paetbdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesBatchDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest -- ^ 'paetbdPayload' -> ProjectsAgentEntityTypesBatchDelete projectsAgentEntityTypesBatchDelete pPaetbdParent_ pPaetbdPayload_ = - ProjectsAgentEntityTypesBatchDelete' + ProjectsAgentEntityTypesBatchDelete' { _paetbdParent = pPaetbdParent_ , _paetbdXgafv = Nothing , _paetbdUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _paetbdCallback = Nothing } + -- | Required. The name of the agent to delete all entities types for. -- Format: \`projects\/\/agent\`. paetbdParent :: Lens' ProjectsAgentEntityTypesBatchDelete Text @@ -148,7 +152,8 @@ (\ s a -> s{_paetbdCallback = a}) instance GoogleRequest - ProjectsAgentEntityTypesBatchDelete where + ProjectsAgentEntityTypesBatchDelete + where type Rs ProjectsAgentEntityTypesBatchDelete = GoogleLongrunningOperation type Scopes ProjectsAgentEntityTypesBatchDelete = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs @@ -64,7 +64,8 @@ -- | Updates\/Creates multiple entity types in the specified agent. Operation -- -- /See:/ 'projectsAgentEntityTypesBatchUpdate' smart constructor. -data ProjectsAgentEntityTypesBatchUpdate = ProjectsAgentEntityTypesBatchUpdate' +data ProjectsAgentEntityTypesBatchUpdate = + ProjectsAgentEntityTypesBatchUpdate' { _paetbuParent :: !Text , _paetbuXgafv :: !(Maybe Xgafv) , _paetbuUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _paetbuUploadType :: !(Maybe Text) , _paetbuPayload :: !GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest , _paetbuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesBatchUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest -- ^ 'paetbuPayload' -> ProjectsAgentEntityTypesBatchUpdate projectsAgentEntityTypesBatchUpdate pPaetbuParent_ pPaetbuPayload_ = - ProjectsAgentEntityTypesBatchUpdate' + ProjectsAgentEntityTypesBatchUpdate' { _paetbuParent = pPaetbuParent_ , _paetbuXgafv = Nothing , _paetbuUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _paetbuCallback = Nothing } + -- | Required. The name of the agent to update or create entity types in. -- Format: \`projects\/\/agent\`. paetbuParent :: Lens' ProjectsAgentEntityTypesBatchUpdate Text @@ -148,7 +152,8 @@ (\ s a -> s{_paetbuCallback = a}) instance GoogleRequest - ProjectsAgentEntityTypesBatchUpdate where + ProjectsAgentEntityTypesBatchUpdate + where type Rs ProjectsAgentEntityTypesBatchUpdate = GoogleLongrunningOperation type Scopes ProjectsAgentEntityTypesBatchUpdate = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs @@ -65,7 +65,8 @@ -- | Creates an entity type in the specified agent. -- -- /See:/ 'projectsAgentEntityTypesCreate' smart constructor. -data ProjectsAgentEntityTypesCreate = ProjectsAgentEntityTypesCreate' +data ProjectsAgentEntityTypesCreate = + ProjectsAgentEntityTypesCreate' { _paetcParent :: !Text , _paetcXgafv :: !(Maybe Xgafv) , _paetcLanguageCode :: !(Maybe Text) @@ -74,8 +75,10 @@ , _paetcUploadType :: !(Maybe Text) , _paetcPayload :: !GoogleCloudDialogflowV2EntityType , _paetcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> GoogleCloudDialogflowV2EntityType -- ^ 'paetcPayload' -> ProjectsAgentEntityTypesCreate projectsAgentEntityTypesCreate pPaetcParent_ pPaetcPayload_ = - ProjectsAgentEntityTypesCreate' + ProjectsAgentEntityTypesCreate' { _paetcParent = pPaetcParent_ , _paetcXgafv = Nothing , _paetcLanguageCode = Nothing @@ -111,6 +114,7 @@ , _paetcCallback = Nothing } + -- | Required. The agent to create a entity type for. Format: -- \`projects\/\/agent\`. paetcParent :: Lens' ProjectsAgentEntityTypesCreate Text @@ -123,10 +127,10 @@ = lens _paetcXgafv (\ s a -> s{_paetcXgafv = a}) -- | Optional. The language of entity synonyms defined in \`entity_type\`. If --- not specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paetcLanguageCode :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) paetcLanguageCode = lens _paetcLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs @@ -60,15 +60,18 @@ -- | Deletes the specified entity type. -- -- /See:/ 'projectsAgentEntityTypesDelete' smart constructor. -data ProjectsAgentEntityTypesDelete = ProjectsAgentEntityTypesDelete' +data ProjectsAgentEntityTypesDelete = + ProjectsAgentEntityTypesDelete' { _paetdXgafv :: !(Maybe Xgafv) , _paetdUploadProtocol :: !(Maybe Text) , _paetdAccessToken :: !(Maybe Text) , _paetdUploadType :: !(Maybe Text) , _paetdName :: !Text , _paetdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'paetdName' -> ProjectsAgentEntityTypesDelete projectsAgentEntityTypesDelete pPaetdName_ = - ProjectsAgentEntityTypesDelete' + ProjectsAgentEntityTypesDelete' { _paetdXgafv = Nothing , _paetdUploadProtocol = Nothing , _paetdAccessToken = Nothing @@ -96,6 +99,7 @@ , _paetdName = pPaetdName_ , _paetdCallback = Nothing } + -- | V1 error format. paetdXgafv :: Lens' ProjectsAgentEntityTypesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchCreate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchCreate.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchCreate.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchCreate.hs @@ -65,7 +65,8 @@ -- | Creates multiple new entities in the specified entity type. Operation -- -- /See:/ 'projectsAgentEntityTypesEntitiesBatchCreate' smart constructor. -data ProjectsAgentEntityTypesEntitiesBatchCreate = ProjectsAgentEntityTypesEntitiesBatchCreate' +data ProjectsAgentEntityTypesEntitiesBatchCreate = + ProjectsAgentEntityTypesEntitiesBatchCreate' { _paetebcParent :: !Text , _paetebcXgafv :: !(Maybe Xgafv) , _paetebcUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _paetebcUploadType :: !(Maybe Text) , _paetebcPayload :: !GoogleCloudDialogflowV2BatchCreateEntitiesRequest , _paetebcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesEntitiesBatchCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> GoogleCloudDialogflowV2BatchCreateEntitiesRequest -- ^ 'paetebcPayload' -> ProjectsAgentEntityTypesEntitiesBatchCreate projectsAgentEntityTypesEntitiesBatchCreate pPaetebcParent_ pPaetebcPayload_ = - ProjectsAgentEntityTypesEntitiesBatchCreate' + ProjectsAgentEntityTypesEntitiesBatchCreate' { _paetebcParent = pPaetebcParent_ , _paetebcXgafv = Nothing , _paetebcUploadProtocol = Nothing @@ -107,6 +110,7 @@ , _paetebcCallback = Nothing } + -- | Required. The name of the entity type to create entities in. Format: -- \`projects\/\/agent\/entityTypes\/\`. paetebcParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate Text @@ -150,7 +154,8 @@ (\ s a -> s{_paetebcCallback = a}) instance GoogleRequest - ProjectsAgentEntityTypesEntitiesBatchCreate where + ProjectsAgentEntityTypesEntitiesBatchCreate + where type Rs ProjectsAgentEntityTypesEntitiesBatchCreate = GoogleLongrunningOperation type Scopes diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchDelete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchDelete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchDelete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchDelete.hs @@ -65,7 +65,8 @@ -- | Deletes entities in the specified entity type. Operation -- -- /See:/ 'projectsAgentEntityTypesEntitiesBatchDelete' smart constructor. -data ProjectsAgentEntityTypesEntitiesBatchDelete = ProjectsAgentEntityTypesEntitiesBatchDelete' +data ProjectsAgentEntityTypesEntitiesBatchDelete = + ProjectsAgentEntityTypesEntitiesBatchDelete' { _paetebdParent :: !Text , _paetebdXgafv :: !(Maybe Xgafv) , _paetebdUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _paetebdUploadType :: !(Maybe Text) , _paetebdPayload :: !GoogleCloudDialogflowV2BatchDeleteEntitiesRequest , _paetebdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesEntitiesBatchDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> GoogleCloudDialogflowV2BatchDeleteEntitiesRequest -- ^ 'paetebdPayload' -> ProjectsAgentEntityTypesEntitiesBatchDelete projectsAgentEntityTypesEntitiesBatchDelete pPaetebdParent_ pPaetebdPayload_ = - ProjectsAgentEntityTypesEntitiesBatchDelete' + ProjectsAgentEntityTypesEntitiesBatchDelete' { _paetebdParent = pPaetebdParent_ , _paetebdXgafv = Nothing , _paetebdUploadProtocol = Nothing @@ -107,6 +110,7 @@ , _paetebdCallback = Nothing } + -- | Required. The name of the entity type to delete entries for. Format: -- \`projects\/\/agent\/entityTypes\/\`. paetebdParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete Text @@ -150,7 +154,8 @@ (\ s a -> s{_paetebdCallback = a}) instance GoogleRequest - ProjectsAgentEntityTypesEntitiesBatchDelete where + ProjectsAgentEntityTypesEntitiesBatchDelete + where type Rs ProjectsAgentEntityTypesEntitiesBatchDelete = GoogleLongrunningOperation type Scopes diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchUpdate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchUpdate.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchUpdate.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchUpdate.hs @@ -69,7 +69,8 @@ -- explicitly specified in the request. Operation -- -- /See:/ 'projectsAgentEntityTypesEntitiesBatchUpdate' smart constructor. -data ProjectsAgentEntityTypesEntitiesBatchUpdate = ProjectsAgentEntityTypesEntitiesBatchUpdate' +data ProjectsAgentEntityTypesEntitiesBatchUpdate = + ProjectsAgentEntityTypesEntitiesBatchUpdate' { _paetebuParent :: !Text , _paetebuXgafv :: !(Maybe Xgafv) , _paetebuUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _paetebuUploadType :: !(Maybe Text) , _paetebuPayload :: !GoogleCloudDialogflowV2BatchUpdateEntitiesRequest , _paetebuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesEntitiesBatchUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> GoogleCloudDialogflowV2BatchUpdateEntitiesRequest -- ^ 'paetebuPayload' -> ProjectsAgentEntityTypesEntitiesBatchUpdate projectsAgentEntityTypesEntitiesBatchUpdate pPaetebuParent_ pPaetebuPayload_ = - ProjectsAgentEntityTypesEntitiesBatchUpdate' + ProjectsAgentEntityTypesEntitiesBatchUpdate' { _paetebuParent = pPaetebuParent_ , _paetebuXgafv = Nothing , _paetebuUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _paetebuCallback = Nothing } + -- | Required. The name of the entity type to update or create entities in. -- Format: \`projects\/\/agent\/entityTypes\/\`. paetebuParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate Text @@ -154,7 +158,8 @@ (\ s a -> s{_paetebuCallback = a}) instance GoogleRequest - ProjectsAgentEntityTypesEntitiesBatchUpdate where + ProjectsAgentEntityTypesEntitiesBatchUpdate + where type Rs ProjectsAgentEntityTypesEntitiesBatchUpdate = GoogleLongrunningOperation type Scopes diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs @@ -62,7 +62,8 @@ -- | Retrieves the specified entity type. -- -- /See:/ 'projectsAgentEntityTypesGet' smart constructor. -data ProjectsAgentEntityTypesGet = ProjectsAgentEntityTypesGet' +data ProjectsAgentEntityTypesGet = + ProjectsAgentEntityTypesGet' { _paetgXgafv :: !(Maybe Xgafv) , _paetgLanguageCode :: !(Maybe Text) , _paetgUploadProtocol :: !(Maybe Text) @@ -70,8 +71,10 @@ , _paetgUploadType :: !(Maybe Text) , _paetgName :: !Text , _paetgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ :: Text -- ^ 'paetgName' -> ProjectsAgentEntityTypesGet projectsAgentEntityTypesGet pPaetgName_ = - ProjectsAgentEntityTypesGet' + ProjectsAgentEntityTypesGet' { _paetgXgafv = Nothing , _paetgLanguageCode = Nothing , _paetgUploadProtocol = Nothing @@ -103,16 +106,17 @@ , _paetgCallback = Nothing } + -- | V1 error format. paetgXgafv :: Lens' ProjectsAgentEntityTypesGet (Maybe Xgafv) paetgXgafv = lens _paetgXgafv (\ s a -> s{_paetgXgafv = a}) -- | Optional. The language to retrieve entity synonyms for. If not --- specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paetgLanguageCode :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) paetgLanguageCode = lens _paetgLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs @@ -68,7 +68,8 @@ -- | Returns the list of all entity types in the specified agent. -- -- /See:/ 'projectsAgentEntityTypesList' smart constructor. -data ProjectsAgentEntityTypesList = ProjectsAgentEntityTypesList' +data ProjectsAgentEntityTypesList = + ProjectsAgentEntityTypesList' { _paetlParent :: !Text , _paetlXgafv :: !(Maybe Xgafv) , _paetlLanguageCode :: !(Maybe Text) @@ -78,8 +79,10 @@ , _paetlPageToken :: !(Maybe Text) , _paetlPageSize :: !(Maybe (Textual Int32)) , _paetlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ :: Text -- ^ 'paetlParent' -> ProjectsAgentEntityTypesList projectsAgentEntityTypesList pPaetlParent_ = - ProjectsAgentEntityTypesList' + ProjectsAgentEntityTypesList' { _paetlParent = pPaetlParent_ , _paetlXgafv = Nothing , _paetlLanguageCode = Nothing @@ -117,6 +120,7 @@ , _paetlCallback = Nothing } + -- | Required. The agent to list all entity types from. Format: -- \`projects\/\/agent\`. paetlParent :: Lens' ProjectsAgentEntityTypesList Text @@ -129,10 +133,10 @@ = lens _paetlXgafv (\ s a -> s{_paetlXgafv = a}) -- | Optional. The language to list entity synonyms for. If not specified, --- the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paetlLanguageCode :: Lens' ProjectsAgentEntityTypesList (Maybe Text) paetlLanguageCode = lens _paetlLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs @@ -66,7 +66,8 @@ -- | Updates the specified entity type. -- -- /See:/ 'projectsAgentEntityTypesPatch' smart constructor. -data ProjectsAgentEntityTypesPatch = ProjectsAgentEntityTypesPatch' +data ProjectsAgentEntityTypesPatch = + ProjectsAgentEntityTypesPatch' { _paetpXgafv :: !(Maybe Xgafv) , _paetpLanguageCode :: !(Maybe Text) , _paetpUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _paetpPayload :: !GoogleCloudDialogflowV2EntityType , _paetpName :: !Text , _paetpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentEntityTypesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ -> Text -- ^ 'paetpName' -> ProjectsAgentEntityTypesPatch projectsAgentEntityTypesPatch pPaetpPayload_ pPaetpName_ = - ProjectsAgentEntityTypesPatch' + ProjectsAgentEntityTypesPatch' { _paetpXgafv = Nothing , _paetpLanguageCode = Nothing , _paetpUploadProtocol = Nothing @@ -116,16 +119,17 @@ , _paetpCallback = Nothing } + -- | V1 error format. paetpXgafv :: Lens' ProjectsAgentEntityTypesPatch (Maybe Xgafv) paetpXgafv = lens _paetpXgafv (\ s a -> s{_paetpXgafv = a}) -- | Optional. The language of entity synonyms defined in \`entity_type\`. If --- not specified, the agent\'s default language is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- not specified, the agent\'s default language is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paetpLanguageCode :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) paetpLanguageCode = lens _paetpLanguageCode @@ -160,9 +164,9 @@ paetpPayload = lens _paetpPayload (\ s a -> s{_paetpPayload = a}) --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of the entity type. Format: --- \`projects\/\/agent\/entityTypes\/\`. +-- | The unique identifier of the entity type. Required for +-- EntityTypes.UpdateEntityType and EntityTypes.BatchUpdateEntityTypes +-- methods. Format: \`projects\/\/agent\/entityTypes\/\`. paetpName :: Lens' ProjectsAgentEntityTypesPatch Text paetpName = lens _paetpName (\ s a -> s{_paetpName = a}) diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs @@ -64,7 +64,8 @@ -- | Exports the specified agent to a ZIP file. Operation -- -- /See:/ 'projectsAgentExport' smart constructor. -data ProjectsAgentExport = ProjectsAgentExport' +data ProjectsAgentExport = + ProjectsAgentExport' { _paeParent :: !Text , _paeXgafv :: !(Maybe Xgafv) , _paeUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _paeUploadType :: !(Maybe Text) , _paePayload :: !GoogleCloudDialogflowV2ExportAgentRequest , _paeCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentExport' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2ExportAgentRequest -- ^ 'paePayload' -> ProjectsAgentExport projectsAgentExport pPaeParent_ pPaePayload_ = - ProjectsAgentExport' + ProjectsAgentExport' { _paeParent = pPaeParent_ , _paeXgafv = Nothing , _paeUploadProtocol = Nothing @@ -105,6 +108,7 @@ , _paePayload = pPaePayload_ , _paeCallback = Nothing } + -- | Required. The project that the agent to export is associated with. -- Format: \`projects\/\`. diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs @@ -70,7 +70,8 @@ -- ImportAgentRequest. Operation -- -- /See:/ 'projectsAgentImport' smart constructor. -data ProjectsAgentImport = ProjectsAgentImport' +data ProjectsAgentImport = + ProjectsAgentImport' { _paiParent :: !Text , _paiXgafv :: !(Maybe Xgafv) , _paiUploadProtocol :: !(Maybe Text) @@ -78,8 +79,10 @@ , _paiUploadType :: !(Maybe Text) , _paiPayload :: !GoogleCloudDialogflowV2ImportAgentRequest , _paiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentImport' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> GoogleCloudDialogflowV2ImportAgentRequest -- ^ 'paiPayload' -> ProjectsAgentImport projectsAgentImport pPaiParent_ pPaiPayload_ = - ProjectsAgentImport' + ProjectsAgentImport' { _paiParent = pPaiParent_ , _paiXgafv = Nothing , _paiUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _paiPayload = pPaiPayload_ , _paiCallback = Nothing } + -- | Required. The project that the agent to import is associated with. -- Format: \`projects\/\`. diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs @@ -64,7 +64,8 @@ -- | Deletes intents in the specified agent. Operation -- -- /See:/ 'projectsAgentIntentsBatchDelete' smart constructor. -data ProjectsAgentIntentsBatchDelete = ProjectsAgentIntentsBatchDelete' +data ProjectsAgentIntentsBatchDelete = + ProjectsAgentIntentsBatchDelete' { _paibdParent :: !Text , _paibdXgafv :: !(Maybe Xgafv) , _paibdUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _paibdUploadType :: !(Maybe Text) , _paibdPayload :: !GoogleCloudDialogflowV2BatchDeleteIntentsRequest , _paibdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsBatchDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2BatchDeleteIntentsRequest -- ^ 'paibdPayload' -> ProjectsAgentIntentsBatchDelete projectsAgentIntentsBatchDelete pPaibdParent_ pPaibdPayload_ = - ProjectsAgentIntentsBatchDelete' + ProjectsAgentIntentsBatchDelete' { _paibdParent = pPaibdParent_ , _paibdXgafv = Nothing , _paibdUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _paibdCallback = Nothing } + -- | Required. The name of the agent to delete all entities types for. -- Format: \`projects\/\/agent\`. paibdParent :: Lens' ProjectsAgentIntentsBatchDelete Text @@ -147,7 +151,8 @@ (\ s a -> s{_paibdCallback = a}) instance GoogleRequest - ProjectsAgentIntentsBatchDelete where + ProjectsAgentIntentsBatchDelete + where type Rs ProjectsAgentIntentsBatchDelete = GoogleLongrunningOperation type Scopes ProjectsAgentIntentsBatchDelete = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs @@ -64,7 +64,8 @@ -- | Updates\/Creates multiple intents in the specified agent. Operation -- -- /See:/ 'projectsAgentIntentsBatchUpdate' smart constructor. -data ProjectsAgentIntentsBatchUpdate = ProjectsAgentIntentsBatchUpdate' +data ProjectsAgentIntentsBatchUpdate = + ProjectsAgentIntentsBatchUpdate' { _paibuParent :: !Text , _paibuXgafv :: !(Maybe Xgafv) , _paibuUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _paibuUploadType :: !(Maybe Text) , _paibuPayload :: !GoogleCloudDialogflowV2BatchUpdateIntentsRequest , _paibuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsBatchUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2BatchUpdateIntentsRequest -- ^ 'paibuPayload' -> ProjectsAgentIntentsBatchUpdate projectsAgentIntentsBatchUpdate pPaibuParent_ pPaibuPayload_ = - ProjectsAgentIntentsBatchUpdate' + ProjectsAgentIntentsBatchUpdate' { _paibuParent = pPaibuParent_ , _paibuXgafv = Nothing , _paibuUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _paibuCallback = Nothing } + -- | Required. The name of the agent to update or create intents in. Format: -- \`projects\/\/agent\`. paibuParent :: Lens' ProjectsAgentIntentsBatchUpdate Text @@ -147,7 +151,8 @@ (\ s a -> s{_paibuCallback = a}) instance GoogleRequest - ProjectsAgentIntentsBatchUpdate where + ProjectsAgentIntentsBatchUpdate + where type Rs ProjectsAgentIntentsBatchUpdate = GoogleLongrunningOperation type Scopes ProjectsAgentIntentsBatchUpdate = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs @@ -67,7 +67,8 @@ -- | Creates an intent in the specified agent. -- -- /See:/ 'projectsAgentIntentsCreate' smart constructor. -data ProjectsAgentIntentsCreate = ProjectsAgentIntentsCreate' +data ProjectsAgentIntentsCreate = + ProjectsAgentIntentsCreate' { _paicParent :: !Text , _paicXgafv :: !(Maybe Xgafv) , _paicLanguageCode :: !(Maybe Text) @@ -77,8 +78,10 @@ , _paicPayload :: !GoogleCloudDialogflowV2Intent , _paicIntentView :: !(Maybe Text) , _paicCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ -> GoogleCloudDialogflowV2Intent -- ^ 'paicPayload' -> ProjectsAgentIntentsCreate projectsAgentIntentsCreate pPaicParent_ pPaicPayload_ = - ProjectsAgentIntentsCreate' + ProjectsAgentIntentsCreate' { _paicParent = pPaicParent_ , _paicXgafv = Nothing , _paicLanguageCode = Nothing @@ -117,6 +120,7 @@ , _paicCallback = Nothing } + -- | Required. The agent to create a intent for. Format: -- \`projects\/\/agent\`. paicParent :: Lens' ProjectsAgentIntentsCreate Text @@ -130,10 +134,10 @@ -- | Optional. The language of training phrases, parameters and rich messages -- defined in \`intent\`. If not specified, the agent\'s default language --- is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paicLanguageCode :: Lens' ProjectsAgentIntentsCreate (Maybe Text) paicLanguageCode = lens _paicLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs @@ -62,15 +62,18 @@ -- intents. -- -- /See:/ 'projectsAgentIntentsDelete' smart constructor. -data ProjectsAgentIntentsDelete = ProjectsAgentIntentsDelete' +data ProjectsAgentIntentsDelete = + ProjectsAgentIntentsDelete' { _paidXgafv :: !(Maybe Xgafv) , _paidUploadProtocol :: !(Maybe Text) , _paidAccessToken :: !(Maybe Text) , _paidUploadType :: !(Maybe Text) , _paidName :: !Text , _paidCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,7 +93,7 @@ :: Text -- ^ 'paidName' -> ProjectsAgentIntentsDelete projectsAgentIntentsDelete pPaidName_ = - ProjectsAgentIntentsDelete' + ProjectsAgentIntentsDelete' { _paidXgafv = Nothing , _paidUploadProtocol = Nothing , _paidAccessToken = Nothing @@ -98,6 +101,7 @@ , _paidName = pPaidName_ , _paidCallback = Nothing } + -- | V1 error format. paidXgafv :: Lens' ProjectsAgentIntentsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs @@ -64,7 +64,8 @@ -- | Retrieves the specified intent. -- -- /See:/ 'projectsAgentIntentsGet' smart constructor. -data ProjectsAgentIntentsGet = ProjectsAgentIntentsGet' +data ProjectsAgentIntentsGet = + ProjectsAgentIntentsGet' { _paigXgafv :: !(Maybe Xgafv) , _paigLanguageCode :: !(Maybe Text) , _paigUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _paigIntentView :: !(Maybe Text) , _paigName :: !Text , _paigCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,7 +101,7 @@ :: Text -- ^ 'paigName' -> ProjectsAgentIntentsGet projectsAgentIntentsGet pPaigName_ = - ProjectsAgentIntentsGet' + ProjectsAgentIntentsGet' { _paigXgafv = Nothing , _paigLanguageCode = Nothing , _paigUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _paigCallback = Nothing } + -- | V1 error format. paigXgafv :: Lens' ProjectsAgentIntentsGet (Maybe Xgafv) paigXgafv @@ -116,10 +120,10 @@ -- | Optional. The language to retrieve training phrases, parameters and rich -- messages for. If not specified, the agent\'s default language is used. --- [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paigLanguageCode :: Lens' ProjectsAgentIntentsGet (Maybe Text) paigLanguageCode = lens _paigLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs @@ -70,7 +70,8 @@ -- | Returns the list of all intents in the specified agent. -- -- /See:/ 'projectsAgentIntentsList' smart constructor. -data ProjectsAgentIntentsList = ProjectsAgentIntentsList' +data ProjectsAgentIntentsList = + ProjectsAgentIntentsList' { _pailParent :: !Text , _pailXgafv :: !(Maybe Xgafv) , _pailLanguageCode :: !(Maybe Text) @@ -81,8 +82,10 @@ , _pailPageToken :: !(Maybe Text) , _pailPageSize :: !(Maybe (Textual Int32)) , _pailCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -110,7 +113,7 @@ :: Text -- ^ 'pailParent' -> ProjectsAgentIntentsList projectsAgentIntentsList pPailParent_ = - ProjectsAgentIntentsList' + ProjectsAgentIntentsList' { _pailParent = pPailParent_ , _pailXgafv = Nothing , _pailLanguageCode = Nothing @@ -123,6 +126,7 @@ , _pailCallback = Nothing } + -- | Required. The agent to list all intents from. Format: -- \`projects\/\/agent\`. pailParent :: Lens' ProjectsAgentIntentsList Text @@ -136,10 +140,10 @@ -- | Optional. The language to list training phrases, parameters and rich -- messages for. If not specified, the agent\'s default language is used. --- [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent before they can --- be used. +-- [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. pailLanguageCode :: Lens' ProjectsAgentIntentsList (Maybe Text) pailLanguageCode = lens _pailLanguageCode diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs @@ -68,7 +68,8 @@ -- | Updates the specified intent. -- -- /See:/ 'projectsAgentIntentsPatch' smart constructor. -data ProjectsAgentIntentsPatch = ProjectsAgentIntentsPatch' +data ProjectsAgentIntentsPatch = + ProjectsAgentIntentsPatch' { _paipXgafv :: !(Maybe Xgafv) , _paipLanguageCode :: !(Maybe Text) , _paipUploadProtocol :: !(Maybe Text) @@ -79,8 +80,10 @@ , _paipIntentView :: !(Maybe Text) , _paipName :: !Text , _paipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentIntentsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -109,7 +112,7 @@ -> Text -- ^ 'paipName' -> ProjectsAgentIntentsPatch projectsAgentIntentsPatch pPaipPayload_ pPaipName_ = - ProjectsAgentIntentsPatch' + ProjectsAgentIntentsPatch' { _paipXgafv = Nothing , _paipLanguageCode = Nothing , _paipUploadProtocol = Nothing @@ -122,6 +125,7 @@ , _paipCallback = Nothing } + -- | V1 error format. paipXgafv :: Lens' ProjectsAgentIntentsPatch (Maybe Xgafv) paipXgafv @@ -129,10 +133,10 @@ -- | Optional. The language of training phrases, parameters and rich messages -- defined in \`intent\`. If not specified, the agent\'s default language --- is used. [More than a dozen --- languages](https:\/\/dialogflow.com\/docs\/reference\/language) are --- supported. Note: languages must be enabled in the agent, before they can --- be used. +-- is used. [Many +-- languages](https:\/\/cloud.google.com\/dialogflow-enterprise\/docs\/reference\/language) +-- are supported. Note: languages must be enabled in the agent before they +-- can be used. paipLanguageCode :: Lens' ProjectsAgentIntentsPatch (Maybe Text) paipLanguageCode = lens _paipLanguageCode @@ -173,8 +177,8 @@ = lens _paipIntentView (\ s a -> s{_paipIntentView = a}) --- | Required for all methods except \`create\` (\`create\` populates the --- name automatically. The unique identifier of this intent. Format: +-- | The unique identifier of this intent. Required for Intents.UpdateIntent +-- and Intents.BatchUpdateIntents methods. Format: -- \`projects\/\/agent\/intents\/\`. paipName :: Lens' ProjectsAgentIntentsPatch Text paipName = lens _paipName (\ s a -> s{_paipName = a}) diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs @@ -68,7 +68,8 @@ -- version are deleted. Operation -- -- /See:/ 'projectsAgentRestore' smart constructor. -data ProjectsAgentRestore = ProjectsAgentRestore' +data ProjectsAgentRestore = + ProjectsAgentRestore' { _parParent :: !Text , _parXgafv :: !(Maybe Xgafv) , _parUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _parUploadType :: !(Maybe Text) , _parPayload :: !GoogleCloudDialogflowV2RestoreAgentRequest , _parCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentRestore' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> GoogleCloudDialogflowV2RestoreAgentRequest -- ^ 'parPayload' -> ProjectsAgentRestore projectsAgentRestore pParParent_ pParPayload_ = - ProjectsAgentRestore' + ProjectsAgentRestore' { _parParent = pParParent_ , _parXgafv = Nothing , _parUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _parPayload = pParPayload_ , _parCallback = Nothing } + -- | Required. The project that the agent to restore is associated with. -- Format: \`projects\/\`. diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs @@ -74,7 +74,8 @@ -- Sub-Collections](https:\/\/cloud.google.com\/apis\/design\/design_patterns#list_sub-collections). -- -- /See:/ 'projectsAgentSearch' smart constructor. -data ProjectsAgentSearch = ProjectsAgentSearch' +data ProjectsAgentSearch = + ProjectsAgentSearch' { _pasParent :: !Text , _pasXgafv :: !(Maybe Xgafv) , _pasUploadProtocol :: !(Maybe Text) @@ -83,8 +84,10 @@ , _pasPageToken :: !(Maybe Text) , _pasPageSize :: !(Maybe (Textual Int32)) , _pasCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSearch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -108,7 +111,7 @@ :: Text -- ^ 'pasParent' -> ProjectsAgentSearch projectsAgentSearch pPasParent_ = - ProjectsAgentSearch' + ProjectsAgentSearch' { _pasParent = pPasParent_ , _pasXgafv = Nothing , _pasUploadProtocol = Nothing @@ -118,6 +121,7 @@ , _pasPageSize = Nothing , _pasCallback = Nothing } + -- | Required. The project to list agents from. Format: \`projects\/\`. pasParent :: Lens' ProjectsAgentSearch Text diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Create.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Create.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Create.hs @@ -65,7 +65,8 @@ -- the context. -- -- /See:/ 'projectsAgentSessionsContextsCreate' smart constructor. -data ProjectsAgentSessionsContextsCreate = ProjectsAgentSessionsContextsCreate' +data ProjectsAgentSessionsContextsCreate = + ProjectsAgentSessionsContextsCreate' { _pasccParent :: !Text , _pasccXgafv :: !(Maybe Xgafv) , _pasccUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _pasccUploadType :: !(Maybe Text) , _pasccPayload :: !GoogleCloudDialogflowV2Context , _pasccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsContextsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> GoogleCloudDialogflowV2Context -- ^ 'pasccPayload' -> ProjectsAgentSessionsContextsCreate projectsAgentSessionsContextsCreate pPasccParent_ pPasccPayload_ = - ProjectsAgentSessionsContextsCreate' + ProjectsAgentSessionsContextsCreate' { _pasccParent = pPasccParent_ , _pasccXgafv = Nothing , _pasccUploadProtocol = Nothing @@ -107,6 +110,7 @@ , _pasccCallback = Nothing } + -- | Required. The session to create a context for. Format: -- \`projects\/\/agent\/sessions\/\`. pasccParent :: Lens' ProjectsAgentSessionsContextsCreate Text @@ -148,7 +152,8 @@ (\ s a -> s{_pasccCallback = a}) instance GoogleRequest - ProjectsAgentSessionsContextsCreate where + ProjectsAgentSessionsContextsCreate + where type Rs ProjectsAgentSessionsContextsCreate = GoogleCloudDialogflowV2Context type Scopes ProjectsAgentSessionsContextsCreate = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Delete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Delete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Delete.hs @@ -60,15 +60,18 @@ -- | Deletes the specified context. -- -- /See:/ 'projectsAgentSessionsContextsDelete' smart constructor. -data ProjectsAgentSessionsContextsDelete = ProjectsAgentSessionsContextsDelete' +data ProjectsAgentSessionsContextsDelete = + ProjectsAgentSessionsContextsDelete' { _pascdXgafv :: !(Maybe Xgafv) , _pascdUploadProtocol :: !(Maybe Text) , _pascdAccessToken :: !(Maybe Text) , _pascdUploadType :: !(Maybe Text) , _pascdName :: !Text , _pascdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsContextsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'pascdName' -> ProjectsAgentSessionsContextsDelete projectsAgentSessionsContextsDelete pPascdName_ = - ProjectsAgentSessionsContextsDelete' + ProjectsAgentSessionsContextsDelete' { _pascdXgafv = Nothing , _pascdUploadProtocol = Nothing , _pascdAccessToken = Nothing @@ -97,6 +100,7 @@ , _pascdCallback = Nothing } + -- | V1 error format. pascdXgafv :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Xgafv) pascdXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_pascdCallback = a}) instance GoogleRequest - ProjectsAgentSessionsContextsDelete where + ProjectsAgentSessionsContextsDelete + where type Rs ProjectsAgentSessionsContextsDelete = GoogleProtobufEmpty type Scopes ProjectsAgentSessionsContextsDelete = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Get.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Get.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Get.hs @@ -60,15 +60,18 @@ -- | Retrieves the specified context. -- -- /See:/ 'projectsAgentSessionsContextsGet' smart constructor. -data ProjectsAgentSessionsContextsGet = ProjectsAgentSessionsContextsGet' +data ProjectsAgentSessionsContextsGet = + ProjectsAgentSessionsContextsGet' { _pascgXgafv :: !(Maybe Xgafv) , _pascgUploadProtocol :: !(Maybe Text) , _pascgAccessToken :: !(Maybe Text) , _pascgUploadType :: !(Maybe Text) , _pascgName :: !Text , _pascgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsContextsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'pascgName' -> ProjectsAgentSessionsContextsGet projectsAgentSessionsContextsGet pPascgName_ = - ProjectsAgentSessionsContextsGet' + ProjectsAgentSessionsContextsGet' { _pascgXgafv = Nothing , _pascgUploadProtocol = Nothing , _pascgAccessToken = Nothing @@ -97,6 +100,7 @@ , _pascgCallback = Nothing } + -- | V1 error format. pascgXgafv :: Lens' ProjectsAgentSessionsContextsGet (Maybe Xgafv) pascgXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_pascgCallback = a}) instance GoogleRequest - ProjectsAgentSessionsContextsGet where + ProjectsAgentSessionsContextsGet + where type Rs ProjectsAgentSessionsContextsGet = GoogleCloudDialogflowV2Context type Scopes ProjectsAgentSessionsContextsGet = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/List.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/List.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/List.hs @@ -66,7 +66,8 @@ -- | Returns the list of all contexts in the specified session. -- -- /See:/ 'projectsAgentSessionsContextsList' smart constructor. -data ProjectsAgentSessionsContextsList = ProjectsAgentSessionsContextsList' +data ProjectsAgentSessionsContextsList = + ProjectsAgentSessionsContextsList' { _pasclParent :: !Text , _pasclXgafv :: !(Maybe Xgafv) , _pasclUploadProtocol :: !(Maybe Text) @@ -75,8 +76,10 @@ , _pasclPageToken :: !(Maybe Text) , _pasclPageSize :: !(Maybe (Textual Int32)) , _pasclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsContextsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ :: Text -- ^ 'pasclParent' -> ProjectsAgentSessionsContextsList projectsAgentSessionsContextsList pPasclParent_ = - ProjectsAgentSessionsContextsList' + ProjectsAgentSessionsContextsList' { _pasclParent = pPasclParent_ , _pasclXgafv = Nothing , _pasclUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _pasclCallback = Nothing } + -- | Required. The session to list all contexts from. Format: -- \`projects\/\/agent\/sessions\/\`. pasclParent :: Lens' ProjectsAgentSessionsContextsList Text @@ -162,7 +166,8 @@ (\ s a -> s{_pasclCallback = a}) instance GoogleRequest - ProjectsAgentSessionsContextsList where + ProjectsAgentSessionsContextsList + where type Rs ProjectsAgentSessionsContextsList = GoogleCloudDialogflowV2ListContextsResponse type Scopes ProjectsAgentSessionsContextsList = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Patch.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Patch.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Patch.hs @@ -64,7 +64,8 @@ -- | Updates the specified context. -- -- /See:/ 'projectsAgentSessionsContextsPatch' smart constructor. -data ProjectsAgentSessionsContextsPatch = ProjectsAgentSessionsContextsPatch' +data ProjectsAgentSessionsContextsPatch = + ProjectsAgentSessionsContextsPatch' { _pascpXgafv :: !(Maybe Xgafv) , _pascpUploadProtocol :: !(Maybe Text) , _pascpUpdateMask :: !(Maybe GFieldMask) @@ -73,8 +74,10 @@ , _pascpPayload :: !GoogleCloudDialogflowV2Context , _pascpName :: !Text , _pascpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsContextsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> Text -- ^ 'pascpName' -> ProjectsAgentSessionsContextsPatch projectsAgentSessionsContextsPatch pPascpPayload_ pPascpName_ = - ProjectsAgentSessionsContextsPatch' + ProjectsAgentSessionsContextsPatch' { _pascpXgafv = Nothing , _pascpUploadProtocol = Nothing , _pascpUpdateMask = Nothing @@ -110,6 +113,7 @@ , _pascpCallback = Nothing } + -- | V1 error format. pascpXgafv :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Xgafv) pascpXgafv @@ -159,7 +163,8 @@ (\ s a -> s{_pascpCallback = a}) instance GoogleRequest - ProjectsAgentSessionsContextsPatch where + ProjectsAgentSessionsContextsPatch + where type Rs ProjectsAgentSessionsContextsPatch = GoogleCloudDialogflowV2Context type Scopes ProjectsAgentSessionsContextsPatch = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs @@ -61,15 +61,18 @@ -- | Deletes all active contexts in the specified session. -- -- /See:/ 'projectsAgentSessionsDeleteContexts' smart constructor. -data ProjectsAgentSessionsDeleteContexts = ProjectsAgentSessionsDeleteContexts' +data ProjectsAgentSessionsDeleteContexts = + ProjectsAgentSessionsDeleteContexts' { _pasdcParent :: !Text , _pasdcXgafv :: !(Maybe Xgafv) , _pasdcUploadProtocol :: !(Maybe Text) , _pasdcAccessToken :: !(Maybe Text) , _pasdcUploadType :: !(Maybe Text) , _pasdcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsDeleteContexts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'pasdcParent' -> ProjectsAgentSessionsDeleteContexts projectsAgentSessionsDeleteContexts pPasdcParent_ = - ProjectsAgentSessionsDeleteContexts' + ProjectsAgentSessionsDeleteContexts' { _pasdcParent = pPasdcParent_ , _pasdcXgafv = Nothing , _pasdcUploadProtocol = Nothing @@ -98,6 +101,7 @@ , _pasdcCallback = Nothing } + -- | Required. The name of the session to delete all contexts from. Format: -- \`projects\/\/agent\/sessions\/\`. pasdcParent :: Lens' ProjectsAgentSessionsDeleteContexts Text @@ -134,7 +138,8 @@ (\ s a -> s{_pasdcCallback = a}) instance GoogleRequest - ProjectsAgentSessionsDeleteContexts where + ProjectsAgentSessionsDeleteContexts + where type Rs ProjectsAgentSessionsDeleteContexts = GoogleProtobufEmpty type Scopes ProjectsAgentSessionsDeleteContexts = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs @@ -71,7 +71,8 @@ -- affect results of future queries. -- -- /See:/ 'projectsAgentSessionsDetectIntent' smart constructor. -data ProjectsAgentSessionsDetectIntent = ProjectsAgentSessionsDetectIntent' +data ProjectsAgentSessionsDetectIntent = + ProjectsAgentSessionsDetectIntent' { _pasdiXgafv :: !(Maybe Xgafv) , _pasdiUploadProtocol :: !(Maybe Text) , _pasdiAccessToken :: !(Maybe Text) @@ -79,8 +80,10 @@ , _pasdiPayload :: !GoogleCloudDialogflowV2DetectIntentRequest , _pasdiSession :: !Text , _pasdiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsDetectIntent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ -> Text -- ^ 'pasdiSession' -> ProjectsAgentSessionsDetectIntent projectsAgentSessionsDetectIntent pPasdiPayload_ pPasdiSession_ = - ProjectsAgentSessionsDetectIntent' + ProjectsAgentSessionsDetectIntent' { _pasdiXgafv = Nothing , _pasdiUploadProtocol = Nothing , _pasdiAccessToken = Nothing @@ -113,6 +116,7 @@ , _pasdiCallback = Nothing } + -- | V1 error format. pasdiXgafv :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Xgafv) pasdiXgafv @@ -157,7 +161,8 @@ (\ s a -> s{_pasdiCallback = a}) instance GoogleRequest - ProjectsAgentSessionsDetectIntent where + ProjectsAgentSessionsDetectIntent + where type Rs ProjectsAgentSessionsDetectIntent = GoogleCloudDialogflowV2DetectIntentResponse type Scopes ProjectsAgentSessionsDetectIntent = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Create.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Create.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Create.hs @@ -67,7 +67,8 @@ -- already exists, overrides the session entity type. -- -- /See:/ 'projectsAgentSessionsEntityTypesCreate' smart constructor. -data ProjectsAgentSessionsEntityTypesCreate = ProjectsAgentSessionsEntityTypesCreate' +data ProjectsAgentSessionsEntityTypesCreate = + ProjectsAgentSessionsEntityTypesCreate' { _paSetcParent :: !Text , _paSetcXgafv :: !(Maybe Xgafv) , _paSetcUploadProtocol :: !(Maybe Text) @@ -75,8 +76,10 @@ , _paSetcUploadType :: !(Maybe Text) , _paSetcPayload :: !GoogleCloudDialogflowV2SessionEntityType , _paSetcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsEntityTypesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> GoogleCloudDialogflowV2SessionEntityType -- ^ 'paSetcPayload' -> ProjectsAgentSessionsEntityTypesCreate projectsAgentSessionsEntityTypesCreate pPaSetcParent_ pPaSetcPayload_ = - ProjectsAgentSessionsEntityTypesCreate' + ProjectsAgentSessionsEntityTypesCreate' { _paSetcParent = pPaSetcParent_ , _paSetcXgafv = Nothing , _paSetcUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _paSetcCallback = Nothing } + -- | Required. The session to create a session entity type for. Format: -- \`projects\/\/agent\/sessions\/\`. paSetcParent :: Lens' ProjectsAgentSessionsEntityTypesCreate Text @@ -151,7 +155,8 @@ (\ s a -> s{_paSetcCallback = a}) instance GoogleRequest - ProjectsAgentSessionsEntityTypesCreate where + ProjectsAgentSessionsEntityTypesCreate + where type Rs ProjectsAgentSessionsEntityTypesCreate = GoogleCloudDialogflowV2SessionEntityType type Scopes ProjectsAgentSessionsEntityTypesCreate = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Delete.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Delete.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Delete.hs @@ -60,15 +60,18 @@ -- | Deletes the specified session entity type. -- -- /See:/ 'projectsAgentSessionsEntityTypesDelete' smart constructor. -data ProjectsAgentSessionsEntityTypesDelete = ProjectsAgentSessionsEntityTypesDelete' +data ProjectsAgentSessionsEntityTypesDelete = + ProjectsAgentSessionsEntityTypesDelete' { _paSetdXgafv :: !(Maybe Xgafv) , _paSetdUploadProtocol :: !(Maybe Text) , _paSetdAccessToken :: !(Maybe Text) , _paSetdUploadType :: !(Maybe Text) , _paSetdName :: !Text , _paSetdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsEntityTypesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'paSetdName' -> ProjectsAgentSessionsEntityTypesDelete projectsAgentSessionsEntityTypesDelete pPaSetdName_ = - ProjectsAgentSessionsEntityTypesDelete' + ProjectsAgentSessionsEntityTypesDelete' { _paSetdXgafv = Nothing , _paSetdUploadProtocol = Nothing , _paSetdAccessToken = Nothing @@ -97,6 +100,7 @@ , _paSetdCallback = Nothing } + -- | V1 error format. paSetdXgafv :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Xgafv) paSetdXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_paSetdCallback = a}) instance GoogleRequest - ProjectsAgentSessionsEntityTypesDelete where + ProjectsAgentSessionsEntityTypesDelete + where type Rs ProjectsAgentSessionsEntityTypesDelete = GoogleProtobufEmpty type Scopes ProjectsAgentSessionsEntityTypesDelete = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Get.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Get.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Get.hs @@ -60,15 +60,18 @@ -- | Retrieves the specified session entity type. -- -- /See:/ 'projectsAgentSessionsEntityTypesGet' smart constructor. -data ProjectsAgentSessionsEntityTypesGet = ProjectsAgentSessionsEntityTypesGet' +data ProjectsAgentSessionsEntityTypesGet = + ProjectsAgentSessionsEntityTypesGet' { _paSetgXgafv :: !(Maybe Xgafv) , _paSetgUploadProtocol :: !(Maybe Text) , _paSetgAccessToken :: !(Maybe Text) , _paSetgUploadType :: !(Maybe Text) , _paSetgName :: !Text , _paSetgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsEntityTypesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'paSetgName' -> ProjectsAgentSessionsEntityTypesGet projectsAgentSessionsEntityTypesGet pPaSetgName_ = - ProjectsAgentSessionsEntityTypesGet' + ProjectsAgentSessionsEntityTypesGet' { _paSetgXgafv = Nothing , _paSetgUploadProtocol = Nothing , _paSetgAccessToken = Nothing @@ -97,6 +100,7 @@ , _paSetgCallback = Nothing } + -- | V1 error format. paSetgXgafv :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Xgafv) paSetgXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_paSetgCallback = a}) instance GoogleRequest - ProjectsAgentSessionsEntityTypesGet where + ProjectsAgentSessionsEntityTypesGet + where type Rs ProjectsAgentSessionsEntityTypesGet = GoogleCloudDialogflowV2SessionEntityType type Scopes ProjectsAgentSessionsEntityTypesGet = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/List.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/List.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/List.hs @@ -66,7 +66,8 @@ -- | Returns the list of all session entity types in the specified session. -- -- /See:/ 'projectsAgentSessionsEntityTypesList' smart constructor. -data ProjectsAgentSessionsEntityTypesList = ProjectsAgentSessionsEntityTypesList' +data ProjectsAgentSessionsEntityTypesList = + ProjectsAgentSessionsEntityTypesList' { _paSetlParent :: !Text , _paSetlXgafv :: !(Maybe Xgafv) , _paSetlUploadProtocol :: !(Maybe Text) @@ -75,8 +76,10 @@ , _paSetlPageToken :: !(Maybe Text) , _paSetlPageSize :: !(Maybe (Textual Int32)) , _paSetlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsEntityTypesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ :: Text -- ^ 'paSetlParent' -> ProjectsAgentSessionsEntityTypesList projectsAgentSessionsEntityTypesList pPaSetlParent_ = - ProjectsAgentSessionsEntityTypesList' + ProjectsAgentSessionsEntityTypesList' { _paSetlParent = pPaSetlParent_ , _paSetlXgafv = Nothing , _paSetlUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _paSetlCallback = Nothing } + -- | Required. The session to list all session entity types from. Format: -- \`projects\/\/agent\/sessions\/\`. paSetlParent :: Lens' ProjectsAgentSessionsEntityTypesList Text @@ -162,7 +166,8 @@ (\ s a -> s{_paSetlCallback = a}) instance GoogleRequest - ProjectsAgentSessionsEntityTypesList where + ProjectsAgentSessionsEntityTypesList + where type Rs ProjectsAgentSessionsEntityTypesList = GoogleCloudDialogflowV2ListSessionEntityTypesResponse type Scopes ProjectsAgentSessionsEntityTypesList = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Patch.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Patch.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Patch.hs @@ -67,7 +67,8 @@ -- | Updates the specified session entity type. -- -- /See:/ 'projectsAgentSessionsEntityTypesPatch' smart constructor. -data ProjectsAgentSessionsEntityTypesPatch = ProjectsAgentSessionsEntityTypesPatch' +data ProjectsAgentSessionsEntityTypesPatch = + ProjectsAgentSessionsEntityTypesPatch' { _paSetpXgafv :: !(Maybe Xgafv) , _paSetpUploadProtocol :: !(Maybe Text) , _paSetpUpdateMask :: !(Maybe GFieldMask) @@ -76,8 +77,10 @@ , _paSetpPayload :: !GoogleCloudDialogflowV2SessionEntityType , _paSetpName :: !Text , _paSetpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentSessionsEntityTypesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> Text -- ^ 'paSetpName' -> ProjectsAgentSessionsEntityTypesPatch projectsAgentSessionsEntityTypesPatch pPaSetpPayload_ pPaSetpName_ = - ProjectsAgentSessionsEntityTypesPatch' + ProjectsAgentSessionsEntityTypesPatch' { _paSetpXgafv = Nothing , _paSetpUploadProtocol = Nothing , _paSetpUpdateMask = Nothing @@ -113,6 +116,7 @@ , _paSetpCallback = Nothing } + -- | V1 error format. paSetpXgafv :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Xgafv) paSetpXgafv @@ -163,7 +167,8 @@ (\ s a -> s{_paSetpCallback = a}) instance GoogleRequest - ProjectsAgentSessionsEntityTypesPatch where + ProjectsAgentSessionsEntityTypesPatch + where type Rs ProjectsAgentSessionsEntityTypesPatch = GoogleCloudDialogflowV2SessionEntityType type Scopes ProjectsAgentSessionsEntityTypesPatch = diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs @@ -64,7 +64,8 @@ -- | Trains the specified agent. Operation -- -- /See:/ 'projectsAgentTrain' smart constructor. -data ProjectsAgentTrain = ProjectsAgentTrain' +data ProjectsAgentTrain = + ProjectsAgentTrain' { _patParent :: !Text , _patXgafv :: !(Maybe Xgafv) , _patUploadProtocol :: !(Maybe Text) @@ -72,8 +73,10 @@ , _patUploadType :: !(Maybe Text) , _patPayload :: !GoogleCloudDialogflowV2TrainAgentRequest , _patCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAgentTrain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> GoogleCloudDialogflowV2TrainAgentRequest -- ^ 'patPayload' -> ProjectsAgentTrain projectsAgentTrain pPatParent_ pPatPayload_ = - ProjectsAgentTrain' + ProjectsAgentTrain' { _patParent = pPatParent_ , _patXgafv = Nothing , _patUploadProtocol = Nothing @@ -105,6 +108,7 @@ , _patPayload = pPatPayload_ , _patCallback = Nothing } + -- | Required. The project that the agent to train is associated with. -- Format: \`projects\/\`. diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs b/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs @@ -61,15 +61,18 @@ -- | Retrieves the specified agent. -- -- /See:/ 'projectsGetAgent' smart constructor. -data ProjectsGetAgent = ProjectsGetAgent' +data ProjectsGetAgent = + ProjectsGetAgent' { _pgaParent :: !Text , _pgaXgafv :: !(Maybe Xgafv) , _pgaUploadProtocol :: !(Maybe Text) , _pgaAccessToken :: !(Maybe Text) , _pgaUploadType :: !(Maybe Text) , _pgaCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGetAgent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'pgaParent' -> ProjectsGetAgent projectsGetAgent pPgaParent_ = - ProjectsGetAgent' + ProjectsGetAgent' { _pgaParent = pPgaParent_ , _pgaXgafv = Nothing , _pgaUploadProtocol = Nothing @@ -97,6 +100,7 @@ , _pgaUploadType = Nothing , _pgaCallback = Nothing } + -- | Required. The project that the agent to fetch is associated with. -- Format: \`projects\/\`. diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs --- a/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs @@ -64,15 +64,18 @@ -- API service. -- -- /See:/ 'projectsOperationsGet' smart constructor. -data ProjectsOperationsGet = ProjectsOperationsGet' +data ProjectsOperationsGet = + ProjectsOperationsGet' { _pogXgafv :: !(Maybe Xgafv) , _pogUploadProtocol :: !(Maybe Text) , _pogAccessToken :: !(Maybe Text) , _pogUploadType :: !(Maybe Text) , _pogName :: !Text , _pogCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsOperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,7 +95,7 @@ :: Text -- ^ 'pogName' -> ProjectsOperationsGet projectsOperationsGet pPogName_ = - ProjectsOperationsGet' + ProjectsOperationsGet' { _pogXgafv = Nothing , _pogUploadProtocol = Nothing , _pogAccessToken = Nothing @@ -100,6 +103,7 @@ , _pogName = pPogName_ , _pogCallback = Nothing } + -- | V1 error format. pogXgafv :: Lens' ProjectsOperationsGet (Maybe Xgafv) diff --git a/gogol-dialogflow.cabal b/gogol-dialogflow.cabal --- a/gogol-dialogflow.cabal +++ b/gogol-dialogflow.cabal @@ -1,5 +1,5 @@ name: gogol-dialogflow -version: 0.4.0 +version: 0.5.0 synopsis: Google Dialogflow SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -78,5 +78,5 @@ , Network.Google.DialogFlow.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5