diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,367 @@ +Mozilla Public License Version 2.0 +================================== + +1. Definitions +-------------- + +1.1. "Contributor" + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +1.2. "Contributor Version" + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +1.3. "Contribution" + means Covered Software of a particular Contributor. + +1.4. "Covered Software" + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +1.5. "Incompatible With Secondary Licenses" + means + + (a) that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or + + (b) that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +1.6. "Executable Form" + means any form of the work other than Source Code Form. + +1.7. "Larger Work" + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +1.8. "License" + means this document. + +1.9. "Licensable" + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +1.10. "Modifications" + means any of the following: + + (a) any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or + + (b) any new file in Source Code Form that contains any Covered + Software. + +1.11. "Patent Claims" of a Contributor + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +1.12. "Secondary License" + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +1.13. "Source Code Form" + means the form of the work preferred for making modifications. + +1.14. "You" (or "Your") + means an individual or a legal entity exercising rights under this + License. For legal entities, "You" includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, "control" means (a) the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or (b) ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + +2. License Grants and Conditions +-------------------------------- + +2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +(a) under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and + +(b) under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +(a) for any code that a Contributor has removed from Covered Software; + or + +(b) for infringements caused by: (i) Your and any other third party's + modifications of Covered Software, or (ii) the combination of its + Contributions with other software (except as part of its Contributor + Version); or + +(c) under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + +3. Responsibilities +------------------- + +3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +(a) such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +(b) You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + +4. Inability to Comply Due to Statute or Regulation +--------------------------------------------------- + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: (a) comply with +the terms of this License to the maximum extent possible; and (b) +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + +5. Termination +-------------- + +5.1. The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated (a) provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and (b) on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +5.2. If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +5.3. In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + +************************************************************************ +* * +* 6. Disclaimer of Warranty * +* ------------------------- * +* * +* Covered Software is provided under this License on an "as is" * +* basis, without warranty of any kind, either expressed, implied, or * +* statutory, including, without limitation, warranties that the * +* Covered Software is free of defects, merchantable, fit for a * +* particular purpose or non-infringing. The entire risk as to the * +* quality and performance of the Covered Software is with You. * +* Should any Covered Software prove defective in any respect, You * +* (not any Contributor) assume the cost of any necessary servicing, * +* repair, or correction. This disclaimer of warranty constitutes an * +* essential part of this License. No use of any Covered Software is * +* authorized under this License except under this disclaimer. * +* * +************************************************************************ + +************************************************************************ +* * +* 7. Limitation of Liability * +* -------------------------- * +* * +* Under no circumstances and under no legal theory, whether tort * +* (including negligence), contract, or otherwise, shall any * +* Contributor, or anyone who distributes Covered Software as * +* permitted above, be liable to You for any direct, indirect, * +* special, incidental, or consequential damages of any character * +* including, without limitation, damages for lost profits, loss of * +* goodwill, work stoppage, computer failure or malfunction, or any * +* and all other commercial damages or losses, even if such party * +* shall have been informed of the possibility of such damages. This * +* limitation of liability shall not apply to liability for death or * +* personal injury resulting from such party's negligence to the * +* extent applicable law prohibits such limitation. Some * +* jurisdictions do not allow the exclusion or limitation of * +* incidental or consequential damages, so this exclusion and * +* limitation may not apply to You. * +* * +************************************************************************ + +8. Litigation +------------- + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + +9. Miscellaneous +---------------- + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + +10. Versions of the License +--------------------------- + +10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +10.4. Distributing Source Code Form that is Incompatible With Secondary +Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +Exhibit A - Source Code Form License Notice +------------------------------------------- + + This Source Code Form is subject to the terms of the Mozilla Public + License, v. 2.0. If a copy of the MPL was not distributed with this + file, You can obtain one at http://mozilla.org/MPL/2.0/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,28 @@ +# gogol-dialogflow + +* [Version](#version) +* [Description](#description) +* [Contribute](#contribute) +* [Licence](#licence) + + +## Version + +`0.3.0` + + +## Description + +A client library for the Google Dialogflow. + + +## Contribute + +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). + +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. + + +## Licence + +`gogol-dialogflow` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/gen/Network/Google/DialogFlow.hs b/gen/Network/Google/DialogFlow.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/DialogFlow.hs @@ -0,0 +1,1177 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} + +-- | +-- Module : Network.Google.DialogFlow +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Builds conversational interfaces (for example, chatbots, and +-- voice-powered apps and devices). +-- +-- /See:/ +module Network.Google.DialogFlow + ( + -- * Service Configuration + dialogFlowService + + -- * OAuth Scopes + , dialogFlowScope + , cloudPlatformScope + + -- * API Declaration + , DialogFlowAPI + + -- * Resources + + -- ** dialogflow.projects.agent.entityTypes.batchDelete + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchDelete + + -- ** dialogflow.projects.agent.entityTypes.batchUpdate + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchUpdate + + -- ** dialogflow.projects.agent.entityTypes.create + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Create + + -- ** dialogflow.projects.agent.entityTypes.delete + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Delete + + -- ** dialogflow.projects.agent.entityTypes.entities.batchCreate + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchCreate + + -- ** dialogflow.projects.agent.entityTypes.entities.batchDelete + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchDelete + + -- ** dialogflow.projects.agent.entityTypes.entities.batchUpdate + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchUpdate + + -- ** dialogflow.projects.agent.entityTypes.get + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Get + + -- ** dialogflow.projects.agent.entityTypes.list + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.List + + -- ** dialogflow.projects.agent.entityTypes.patch + , module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Patch + + -- ** dialogflow.projects.agent.export + , module Network.Google.Resource.DialogFlow.Projects.Agent.Export + + -- ** dialogflow.projects.agent.import + , module Network.Google.Resource.DialogFlow.Projects.Agent.Import + + -- ** dialogflow.projects.agent.intents.batchDelete + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchDelete + + -- ** dialogflow.projects.agent.intents.batchUpdate + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchUpdate + + -- ** dialogflow.projects.agent.intents.create + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Create + + -- ** dialogflow.projects.agent.intents.delete + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Delete + + -- ** dialogflow.projects.agent.intents.get + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Get + + -- ** dialogflow.projects.agent.intents.list + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.List + + -- ** dialogflow.projects.agent.intents.patch + , module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Patch + + -- ** dialogflow.projects.agent.restore + , module Network.Google.Resource.DialogFlow.Projects.Agent.Restore + + -- ** dialogflow.projects.agent.search + , module Network.Google.Resource.DialogFlow.Projects.Agent.Search + + -- ** dialogflow.projects.agent.sessions.contexts.create + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Create + + -- ** dialogflow.projects.agent.sessions.contexts.delete + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Delete + + -- ** dialogflow.projects.agent.sessions.contexts.get + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Get + + -- ** dialogflow.projects.agent.sessions.contexts.list + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.List + + -- ** dialogflow.projects.agent.sessions.contexts.patch + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Patch + + -- ** dialogflow.projects.agent.sessions.deleteContexts + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DeleteContexts + + -- ** dialogflow.projects.agent.sessions.detectIntent + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DetectIntent + + -- ** dialogflow.projects.agent.sessions.entityTypes.create + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Create + + -- ** dialogflow.projects.agent.sessions.entityTypes.delete + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Delete + + -- ** dialogflow.projects.agent.sessions.entityTypes.get + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Get + + -- ** dialogflow.projects.agent.sessions.entityTypes.list + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.List + + -- ** dialogflow.projects.agent.sessions.entityTypes.patch + , module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Patch + + -- ** dialogflow.projects.agent.train + , module Network.Google.Resource.DialogFlow.Projects.Agent.Train + + -- ** dialogflow.projects.getAgent + , module Network.Google.Resource.DialogFlow.Projects.GetAgent + + -- ** dialogflow.projects.operations.get + , module Network.Google.Resource.DialogFlow.Projects.Operations.Get + + -- * Types + + -- ** GoogleRpcStatus + , GoogleRpcStatus + , googleRpcStatus + , grsDetails + , grsCode + , grsMessage + + -- ** GoogleCloudDialogflowV2IntentFollowupIntentInfo + , GoogleCloudDialogflowV2IntentFollowupIntentInfo + , googleCloudDialogflowV2IntentFollowupIntentInfo + , gcdvifiiFollowupIntentName + , gcdvifiiParentFollowupIntentName + + -- ** GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView + , GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView (..) + + -- ** GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses + , GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses + , googleCloudDialogflowV2beta1IntentMessageSimpleResponses + , gcdvimsrSimpleResponses + + -- ** GoogleCloudDialogflowV2beta1IntentTrainingPhraseType + , GoogleCloudDialogflowV2beta1IntentTrainingPhraseType (..) + + -- ** GoogleCloudDialogflowV2InputAudioConfig + , GoogleCloudDialogflowV2InputAudioConfig + , googleCloudDialogflowV2InputAudioConfig + , gcdviacLanguageCode + , gcdviacPhraseHints + , gcdviacSampleRateHertz + , gcdviacAudioEncoding + + -- ** GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , googleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , gcdvbuirIntents + + -- ** GoogleCloudDialogflowV2beta1IntentMessagePayload + , GoogleCloudDialogflowV2beta1IntentMessagePayload + , googleCloudDialogflowV2beta1IntentMessagePayload + , gcdvimpAddtional + + -- ** GoogleCloudDialogflowV2WebhookRequest + , GoogleCloudDialogflowV2WebhookRequest + , googleCloudDialogflowV2WebhookRequest + , gcdvwrOriginalDetectIntentRequest + , gcdvwrResponseId + , gcdvwrQueryResult + , gcdvwrSession + + -- ** GoogleCloudDialogflowV2IntentMessageCarouselSelectItem + , GoogleCloudDialogflowV2IntentMessageCarouselSelectItem + , googleCloudDialogflowV2IntentMessageCarouselSelectItem + , gcdvimcsiImage + , gcdvimcsiTitle + , gcdvimcsiDescription + , gcdvimcsiInfo + + -- ** GoogleCloudDialogflowV2EventInput + , GoogleCloudDialogflowV2EventInput + , googleCloudDialogflowV2EventInput + , gcdveiLanguageCode + , gcdveiName + , gcdveiParameters + + -- ** GoogleCloudDialogflowV2IntentMessageSimpleResponse + , GoogleCloudDialogflowV2IntentMessageSimpleResponse + , googleCloudDialogflowV2IntentMessageSimpleResponse + , gcdvimsrDisplayText + , gcdvimsrSsml + , gcdvimsrTextToSpeech + + -- ** GoogleLongrunningOperationMetadata + , GoogleLongrunningOperationMetadata + , googleLongrunningOperationMetadata + , glomAddtional + + -- ** GoogleCloudDialogflowV2IntentTrainingPhrase + , GoogleCloudDialogflowV2IntentTrainingPhrase + , googleCloudDialogflowV2IntentTrainingPhrase + , gcdvitpParts + , gcdvitpName + , gcdvitpTimesAddedCount + , gcdvitpType + + -- ** GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , gImage + , gTitle + , gDescription + , gInfo + + -- ** GoogleCloudDialogflowV2IntentMessageBasicCard + , GoogleCloudDialogflowV2IntentMessageBasicCard + , googleCloudDialogflowV2IntentMessageBasicCard + , gcdvimbcImage + , gcdvimbcButtons + , gcdvimbcSubtitle + , gcdvimbcTitle + , gcdvimbcFormattedText + + -- ** GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse + , GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse + , googleCloudDialogflowV2beta1IntentMessageSimpleResponse + , gDisplayText + , gSsml + , gTextToSpeech + + -- ** GoogleCloudDialogflowV2Intent + , GoogleCloudDialogflowV2Intent + , googleCloudDialogflowV2Intent + , gcdviDefaultResponsePlatforms + , gcdviWebhookState + , gcdviPriority + , gcdviAction + , gcdviRootFollowupIntentName + , gcdviName + , gcdviEvents + , gcdviParameters + , gcdviDisplayName + , gcdviInputContextNames + , gcdviMessages + , gcdviParentFollowupIntentName + , gcdviOutputContexts + , gcdviTrainingPhrases + , gcdviFollowupIntentInfo + , gcdviIsFallback + , gcdviMlDisabled + , gcdviResetContexts + + -- ** GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton + , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton + , googleCloudDialogflowV2beta1IntentMessageBasicCardButton + , gcdvimbcbOpenURIAction + , gcdvimbcbTitle + + -- ** GoogleCloudDialogflowV2BatchCreateEntitiesRequest + , GoogleCloudDialogflowV2BatchCreateEntitiesRequest + , googleCloudDialogflowV2BatchCreateEntitiesRequest + , gcdvbcerLanguageCode + , gcdvbcerEntities + + -- ** GoogleCloudDialogflowV2beta1IntentMessageSuggestions + , GoogleCloudDialogflowV2beta1IntentMessageSuggestions + , googleCloudDialogflowV2beta1IntentMessageSuggestions + , gcdvimsSuggestions + + -- ** GoogleCloudDialogflowV2BatchDeleteIntentsRequest + , GoogleCloudDialogflowV2BatchDeleteIntentsRequest + , googleCloudDialogflowV2BatchDeleteIntentsRequest + , gcdvbdirIntents + + -- ** GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel + , GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel (..) + + -- ** GoogleCloudDialogflowV2QueryResult + , GoogleCloudDialogflowV2QueryResult + , googleCloudDialogflowV2QueryResult + , gcdvqrLanguageCode + , gcdvqrAllRequiredParamsPresent + , gcdvqrIntentDetectionConfidence + , gcdvqrFulfillmentMessages + , gcdvqrSpeechRecognitionConfidence + , gcdvqrAction + , gcdvqrIntent + , gcdvqrQueryText + , gcdvqrFulfillmentText + , gcdvqrParameters + , gcdvqrWebhookPayload + , gcdvqrOutputContexts + , gcdvqrWebhookSource + , gcdvqrDiagnosticInfo + + -- ** GoogleCloudDialogflowV2BatchUpdateIntentsRequest + , GoogleCloudDialogflowV2BatchUpdateIntentsRequest + , googleCloudDialogflowV2BatchUpdateIntentsRequest + , gcdvbuirLanguageCode + , gcdvbuirUpdateMask + , gcdvbuirIntentView + , gcdvbuirIntentBatchURI + , gcdvbuirIntentBatchInline + + -- ** GoogleTypeLatLng + , GoogleTypeLatLng + , googleTypeLatLng + , gtllLatitude + , gtllLongitude + + -- ** GoogleCloudDialogflowV2beta1WebhookResponse + , GoogleCloudDialogflowV2beta1WebhookResponse + , googleCloudDialogflowV2beta1WebhookResponse + , gcdvwrFulfillmentMessages + , gcdvwrPayload + , gcdvwrFulfillmentText + , gcdvwrSource + , gcdvwrEndInteraction + , gcdvwrOutputContexts + , gcdvwrFollowupEventInput + + -- ** GoogleCloudDialogflowV2beta1EventInputParameters + , GoogleCloudDialogflowV2beta1EventInputParameters + , googleCloudDialogflowV2beta1EventInputParameters + , gcdveipAddtional + + -- ** GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , gcdvodirpAddtional + + -- ** GoogleCloudDialogflowV2IntentMessageQuickReplies + , GoogleCloudDialogflowV2IntentMessageQuickReplies + , googleCloudDialogflowV2IntentMessageQuickReplies + , gcdvimqrTitle + , gcdvimqrQuickReplies + + -- ** GoogleCloudDialogflowV2beta1KnowledgeAnswers + , GoogleCloudDialogflowV2beta1KnowledgeAnswers + , googleCloudDialogflowV2beta1KnowledgeAnswers + , gcdvkaAnswers + + -- ** GoogleCloudDialogflowV2beta1IntentMessageCardButton + , GoogleCloudDialogflowV2beta1IntentMessageCardButton + , googleCloudDialogflowV2beta1IntentMessageCardButton + , gcdvimcbText + , gcdvimcbPostback + + -- ** GoogleCloudDialogflowV2beta1ContextParameters + , GoogleCloudDialogflowV2beta1ContextParameters + , googleCloudDialogflowV2beta1ContextParameters + , gcdvcpAddtional + + -- ** GoogleCloudDialogflowV2QueryParametersPayload + , GoogleCloudDialogflowV2QueryParametersPayload + , googleCloudDialogflowV2QueryParametersPayload + , gcdvqppAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentMessageListSelect + , GoogleCloudDialogflowV2beta1IntentMessageListSelect + , googleCloudDialogflowV2beta1IntentMessageListSelect + , gcdvimlsItems + , gcdvimlsTitle + + -- ** GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , gcdvimtpaAudioURI + + -- ** GoogleCloudDialogflowV2IntentTrainingPhrasePart + , GoogleCloudDialogflowV2IntentTrainingPhrasePart + , googleCloudDialogflowV2IntentTrainingPhrasePart + , gcdvitppText + , gcdvitppUserDefined + , gcdvitppEntityType + , gcdvitppAlias + + -- ** GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState + , GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState (..) + + -- ** GoogleProtobufEmpty + , GoogleProtobufEmpty + , googleProtobufEmpty + + -- ** GoogleCloudDialogflowV2beta1WebhookResponsePayload + , GoogleCloudDialogflowV2beta1WebhookResponsePayload + , googleCloudDialogflowV2beta1WebhookResponsePayload + , gcdvwrpAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentMessageQuickReplies + , GoogleCloudDialogflowV2beta1IntentMessageQuickReplies + , googleCloudDialogflowV2beta1IntentMessageQuickReplies + , gcdvimqrsTitle + , gcdvimqrsQuickReplies + + -- ** GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion + , GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion + , googleCloudDialogflowV2IntentMessageLinkOutSuggestion + , gcdvimlosURI + , gcdvimlosDestinationName + + -- ** GoogleCloudDialogflowV2ImportAgentRequest + , GoogleCloudDialogflowV2ImportAgentRequest + , googleCloudDialogflowV2ImportAgentRequest + , gcdviarAgentURI + , gcdviarAgentContent + + -- ** GoogleRpcStatusDetailsItem + , GoogleRpcStatusDetailsItem + , googleRpcStatusDetailsItem + , grsdiAddtional + + -- ** GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , gcdvbuetrEntityTypes + + -- ** GoogleCloudDialogflowV2ContextParameters + , GoogleCloudDialogflowV2ContextParameters + , googleCloudDialogflowV2ContextParameters + , gAddtional + + -- ** GoogleCloudDialogflowV2IntentMessageCardButton + , GoogleCloudDialogflowV2IntentMessageCardButton + , googleCloudDialogflowV2IntentMessageCardButton + , gText + , gPostback + + -- ** GoogleCloudDialogflowV2IntentMessageListSelect + , GoogleCloudDialogflowV2IntentMessageListSelect + , googleCloudDialogflowV2IntentMessageListSelect + , gooItems + , gooTitle + + -- ** GoogleCloudDialogflowV2beta1IntentMessageCard + , GoogleCloudDialogflowV2beta1IntentMessageCard + , googleCloudDialogflowV2beta1IntentMessageCard + , gcdvimcButtons + , gcdvimcImageURI + , gcdvimcSubtitle + , gcdvimcTitle + + -- ** GoogleCloudDialogflowV2RestoreAgentRequest + , GoogleCloudDialogflowV2RestoreAgentRequest + , googleCloudDialogflowV2RestoreAgentRequest + , gcdvrarAgentURI + , gcdvrarAgentContent + + -- ** GoogleCloudDialogflowV2IntentMessageSuggestions + , GoogleCloudDialogflowV2IntentMessageSuggestions + , googleCloudDialogflowV2IntentMessageSuggestions + , gSuggestions + + -- ** GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , gcdvimbcbouaURI + + -- ** GoogleCloudDialogflowV2QueryParameters + , GoogleCloudDialogflowV2QueryParameters + , googleCloudDialogflowV2QueryParameters + , gcdvqpContexts + , gcdvqpPayload + , gcdvqpGeoLocation + , gcdvqpTimeZone + , gcdvqpSessionEntityTypes + , gcdvqpResetContexts + + -- ** GoogleCloudDialogflowV2beta1IntentMessageSuggestion + , GoogleCloudDialogflowV2beta1IntentMessageSuggestion + , googleCloudDialogflowV2beta1IntentMessageSuggestion + , gcdvimsTitle + + -- ** GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest + , GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest + , googleCloudDialogflowV2beta1OriginalDetectIntentRequest + , gcdvodirPayload + , gcdvodirVersion + , gcdvodirSource + + -- ** GoogleCloudDialogflowV2EventInputParameters + , GoogleCloudDialogflowV2EventInputParameters + , googleCloudDialogflowV2EventInputParameters + , gcdveipsAddtional + + -- ** GoogleCloudDialogflowV2IntentMessagePlatform + , GoogleCloudDialogflowV2IntentMessagePlatform (..) + + -- ** GoogleCloudDialogflowV2DetectIntentResponse + , GoogleCloudDialogflowV2DetectIntentResponse + , googleCloudDialogflowV2DetectIntentResponse + , gcdvdirResponseId + , gcdvdirWebhookStatus + , gcdvdirQueryResult + + -- ** GoogleCloudDialogflowV2IntentMessageListSelectItem + , GoogleCloudDialogflowV2IntentMessageListSelectItem + , googleCloudDialogflowV2IntentMessageListSelectItem + , gcdvimlsiImage + , gcdvimlsiTitle + , gcdvimlsiDescription + , gcdvimlsiInfo + + -- ** GoogleCloudDialogflowV2beta1SentimentAnalysisResult + , GoogleCloudDialogflowV2beta1SentimentAnalysisResult + , googleCloudDialogflowV2beta1SentimentAnalysisResult + , gcdvsarQueryTextSentiment + + -- ** GoogleCloudDialogflowV2EntityTypeBatch + , GoogleCloudDialogflowV2EntityTypeBatch + , googleCloudDialogflowV2EntityTypeBatch + , gcdvetbEntityTypes + + -- ** GoogleCloudDialogflowV2QueryResultDiagnosticInfo + , GoogleCloudDialogflowV2QueryResultDiagnosticInfo + , googleCloudDialogflowV2QueryResultDiagnosticInfo + , gcdvqrdiAddtional + + -- ** GoogleCloudDialogflowV2IntentMessageText + , GoogleCloudDialogflowV2IntentMessageText + , googleCloudDialogflowV2IntentMessageText + , gcdvimtText + + -- ** GoogleCloudDialogflowV2DetectIntentRequest + , GoogleCloudDialogflowV2DetectIntentRequest + , googleCloudDialogflowV2DetectIntentRequest + , gcdvdirQueryInput + , gcdvdirInputAudio + , gcdvdirQueryParams + + -- ** GoogleCloudDialogflowV2beta1QueryResultParameters + , GoogleCloudDialogflowV2beta1QueryResultParameters + , googleCloudDialogflowV2beta1QueryResultParameters + , gcdvqrpAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentMessageBasicCard + , GoogleCloudDialogflowV2beta1IntentMessageBasicCard + , googleCloudDialogflowV2beta1IntentMessageBasicCard + , gcdvimbccImage + , gcdvimbccButtons + , gcdvimbccSubtitle + , gcdvimbccTitle + , gcdvimbccFormattedText + + -- ** GoogleCloudDialogflowV2beta1IntentTrainingPhrase + , GoogleCloudDialogflowV2beta1IntentTrainingPhrase + , googleCloudDialogflowV2beta1IntentTrainingPhrase + , gParts + , gName + , gTimesAddedCount + , gType + + -- ** GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , googleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , gcdvkaaMatchConfidence + , gcdvkaaAnswer + , gcdvkaaSource + , gcdvkaaFaqQuestion + , gcdvkaaMatchConfidenceLevel + + -- ** GoogleCloudDialogflowV2beta1EventInput + , GoogleCloudDialogflowV2beta1EventInput + , googleCloudDialogflowV2beta1EventInput + , gooLanguageCode + , gooName + , gooParameters + + -- ** GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + , GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + , googleCloudDialogflowV2BatchUpdateEntitiesRequest + , gcdvbuerLanguageCode + , gcdvbuerUpdateMask + , gcdvbuerEntities + + -- ** GoogleCloudDialogflowV2IntentMessagePayload + , GoogleCloudDialogflowV2IntentMessagePayload + , googleCloudDialogflowV2IntentMessagePayload + , gooAddtional + + -- ** GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata + , GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata + , googleCloudDialogflowV2beta1KnowledgeOperationMetadata + , gcdvkomState + + -- ** GoogleCloudDialogflowV2beta1WebhookRequest + , GoogleCloudDialogflowV2beta1WebhookRequest + , googleCloudDialogflowV2beta1WebhookRequest + , gOriginalDetectIntentRequest + , gResponseId + , gAlternativeQueryResults + , gQueryResult + , gSession + + -- ** GoogleCloudDialogflowV2IntentTrainingPhraseType + , GoogleCloudDialogflowV2IntentTrainingPhraseType (..) + + -- ** GoogleCloudDialogflowV2beta1IntentMessageText + , GoogleCloudDialogflowV2beta1IntentMessageText + , googleCloudDialogflowV2beta1IntentMessageText + , gooText + + -- ** GoogleCloudDialogflowV2IntentMessageSimpleResponses + , GoogleCloudDialogflowV2IntentMessageSimpleResponses + , googleCloudDialogflowV2IntentMessageSimpleResponses + , gSimpleResponses + + -- ** GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo + , GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo + , googleCloudDialogflowV2beta1IntentFollowupIntentInfo + , gFollowupIntentName + , gParentFollowupIntentName + + -- ** GoogleCloudDialogflowV2QueryResultParameters + , GoogleCloudDialogflowV2QueryResultParameters + , googleCloudDialogflowV2QueryResultParameters + , gcdvqrpsAddtional + + -- ** GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , googleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , gcdvqrdicAddtional + + -- ** GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + , GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + , googleCloudDialogflowV2BatchDeleteEntitiesRequest + , gcdvbderLanguageCode + , gcdvbderEntityValues + + -- ** GoogleCloudDialogflowV2AgentMatchMode + , GoogleCloudDialogflowV2AgentMatchMode (..) + + -- ** GoogleCloudDialogflowV2BatchUpdateIntentsResponse + , GoogleCloudDialogflowV2BatchUpdateIntentsResponse + , googleCloudDialogflowV2BatchUpdateIntentsResponse + , gIntents + + -- ** GoogleCloudDialogflowV2ListEntityTypesResponse + , GoogleCloudDialogflowV2ListEntityTypesResponse + , googleCloudDialogflowV2ListEntityTypesResponse + , gcdvletrNextPageToken + , gcdvletrEntityTypes + + -- ** GoogleCloudDialogflowV2Agent + , GoogleCloudDialogflowV2Agent + , googleCloudDialogflowV2Agent + , gcdvaParent + , gcdvaDefaultLanguageCode + , gcdvaEnableLogging + , gcdvaClassificationThreshold + , gcdvaAvatarURI + , gcdvaSupportedLanguageCodes + , gcdvaDisplayName + , gcdvaMatchMode + , gcdvaTimeZone + , gcdvaDescription + + -- ** GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode + , GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode (..) + + -- ** GoogleCloudDialogflowV2beta1IntentMessage + , GoogleCloudDialogflowV2beta1IntentMessage + , googleCloudDialogflowV2beta1IntentMessage + , gcdvimCard + , gcdvimImage + , gcdvimPlatform + , gcdvimLinkOutSuggestion + , gcdvimText + , gcdvimCarouselSelect + , gcdvimTelephonySynthesizeSpeech + , gcdvimSimpleResponses + , gcdvimPayload + , gcdvimTelephonyTransferCall + , gcdvimSuggestions + , gcdvimListSelect + , gcdvimTelephonyPlayAudio + , gcdvimBasicCard + , gcdvimQuickReplies + + -- ** GoogleCloudDialogflowV2IntentMessageSelectItemInfo + , GoogleCloudDialogflowV2IntentMessageSelectItemInfo + , googleCloudDialogflowV2IntentMessageSelectItemInfo + , gcdvimsiiKey + , gcdvimsiiSynonyms + + -- ** GoogleCloudDialogflowV2beta1Sentiment + , GoogleCloudDialogflowV2beta1Sentiment + , googleCloudDialogflowV2beta1Sentiment + , gcdvsScore + , gcdvsMagnitude + + -- ** GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + , GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + , googleCloudDialogflowV2BatchDeleteEntityTypesRequest + , gcdvbdetrEntityTypeNames + + -- ** Xgafv + , Xgafv (..) + + -- ** GoogleCloudDialogflowV2QueryInput + , GoogleCloudDialogflowV2QueryInput + , googleCloudDialogflowV2QueryInput + , gcdvqiAudioConfig + , gcdvqiEvent + , gcdvqiText + + -- ** GoogleCloudDialogflowV2ExportAgentRequest + , GoogleCloudDialogflowV2ExportAgentRequest + , googleCloudDialogflowV2ExportAgentRequest + , gcdvearAgentURI + + -- ** GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect + , GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect + , googleCloudDialogflowV2beta1IntentMessageCarouselSelect + , gcdvimcsItems + + -- ** GoogleCloudDialogflowV2beta1Context + , GoogleCloudDialogflowV2beta1Context + , googleCloudDialogflowV2beta1Context + , gcdvcLifespanCount + , gcdvcName + , gcdvcParameters + + -- ** GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + , GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + , googleCloudDialogflowV2BatchUpdateEntityTypesRequest + , gcdvbuetrLanguageCode + , gcdvbuetrUpdateMask + , gcdvbuetrEntityTypeBatchInline + , gcdvbuetrEntityTypeBatchURI + + -- ** GoogleLongrunningOperationResponse + , GoogleLongrunningOperationResponse + , googleLongrunningOperationResponse + , glorAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , gcdvimtssText + , gcdvimtssSsml + + -- ** GoogleCloudDialogflowV2beta1IntentMessageListSelectItem + , GoogleCloudDialogflowV2beta1IntentMessageListSelectItem + , googleCloudDialogflowV2beta1IntentMessageListSelectItem + , gcdvimlsicImage + , gcdvimlsicTitle + , gcdvimlsicDescription + , gcdvimlsicInfo + + -- ** GoogleCloudDialogflowV2IntentMessageSuggestion + , GoogleCloudDialogflowV2IntentMessageSuggestion + , googleCloudDialogflowV2IntentMessageSuggestion + , gcdvimscTitle + + -- ** GoogleCloudDialogflowV2beta1EntityTypeEntity + , GoogleCloudDialogflowV2beta1EntityTypeEntity + , googleCloudDialogflowV2beta1EntityTypeEntity + , gcdveteValue + , gcdveteSynonyms + + -- ** GoogleCloudDialogflowV2EntityType + , GoogleCloudDialogflowV2EntityType + , googleCloudDialogflowV2EntityType + , gcdvetEntities + , gcdvetKind + , gcdvetName + , gcdvetAutoExpansionMode + , gcdvetDisplayName + + -- ** GoogleCloudDialogflowV2beta1IntentMessagePlatform + , GoogleCloudDialogflowV2beta1IntentMessagePlatform (..) + + -- ** GoogleCloudDialogflowV2EntityTypeKind + , GoogleCloudDialogflowV2EntityTypeKind (..) + + -- ** GoogleCloudDialogflowV2TextInput + , GoogleCloudDialogflowV2TextInput + , googleCloudDialogflowV2TextInput + , gcdvtiLanguageCode + , gcdvtiText + + -- ** GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , gcdvimbcbouriaURI + + -- ** GoogleCloudDialogflowV2IntentMessageCard + , GoogleCloudDialogflowV2IntentMessageCard + , googleCloudDialogflowV2IntentMessageCard + , gcdvimccButtons + , gcdvimccImageURI + , gcdvimccSubtitle + , gcdvimccTitle + + -- ** GoogleCloudDialogflowV2OriginalDetectIntentRequest + , GoogleCloudDialogflowV2OriginalDetectIntentRequest + , googleCloudDialogflowV2OriginalDetectIntentRequest + , gPayload + , gVersion + , gSource + + -- ** GoogleCloudDialogflowV2beta1IntentWebhookState + , GoogleCloudDialogflowV2beta1IntentWebhookState (..) + + -- ** GoogleCloudDialogflowV2beta1IntentMessageImage + , GoogleCloudDialogflowV2beta1IntentMessageImage + , googleCloudDialogflowV2beta1IntentMessageImage + , gcdvimiAccessibilityText + , gcdvimiImageURI + + -- ** GoogleCloudDialogflowV2ExportAgentResponse + , GoogleCloudDialogflowV2ExportAgentResponse + , googleCloudDialogflowV2ExportAgentResponse + , gAgentURI + , gAgentContent + + -- ** GoogleCloudDialogflowV2WebhookResponsePayload + , GoogleCloudDialogflowV2WebhookResponsePayload + , googleCloudDialogflowV2WebhookResponsePayload + , gcdvwrpcAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , gURI + , gDestinationName + + -- ** GoogleCloudDialogflowV2ListIntentsResponse + , GoogleCloudDialogflowV2ListIntentsResponse + , googleCloudDialogflowV2ListIntentsResponse + , gcdvlirIntents + , gcdvlirNextPageToken + + -- ** GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse + , GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse + , googleCloudDialogflowV2BatchUpdateEntityTypesResponse + , gEntityTypes + + -- ** GoogleCloudDialogflowV2QueryResultWebhookPayload + , GoogleCloudDialogflowV2QueryResultWebhookPayload + , googleCloudDialogflowV2QueryResultWebhookPayload + , gcdvqrwpAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentParameter + , GoogleCloudDialogflowV2beta1IntentParameter + , googleCloudDialogflowV2beta1IntentParameter + , gcdvipValue + , gcdvipName + , gcdvipPrompts + , gcdvipMandatory + , gcdvipDisplayName + , gcdvipDefaultValue + , gcdvipIsList + , gcdvipEntityTypeDisplayName + + -- ** GoogleCloudDialogflowV2EntityTypeAutoExpansionMode + , GoogleCloudDialogflowV2EntityTypeAutoExpansionMode (..) + + -- ** GoogleCloudDialogflowV2IntentParameter + , GoogleCloudDialogflowV2IntentParameter + , googleCloudDialogflowV2IntentParameter + , gcdvipcValue + , gcdvipcName + , gcdvipcPrompts + , gcdvipcMandatory + , gcdvipcDisplayName + , gcdvipcDefaultValue + , gcdvipcIsList + , gcdvipcEntityTypeDisplayName + + -- ** GoogleCloudDialogflowV2beta1QueryResultWebhookPayload + , GoogleCloudDialogflowV2beta1QueryResultWebhookPayload + , googleCloudDialogflowV2beta1QueryResultWebhookPayload + , gcdvqrwpcAddtional + + -- ** GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart + , GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart + , googleCloudDialogflowV2beta1IntentTrainingPhrasePart + , gcdvitppcText + , gcdvitppcUserDefined + , gcdvitppcEntityType + , gcdvitppcAlias + + -- ** GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode + , GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode (..) + + -- ** GoogleCloudDialogflowV2ListContextsResponse + , GoogleCloudDialogflowV2ListContextsResponse + , googleCloudDialogflowV2ListContextsResponse + , gcdvlcrContexts + , gcdvlcrNextPageToken + + -- ** GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , gcdvimttcPhoneNumber + + -- ** GoogleCloudDialogflowV2beta1ExportAgentResponse + , GoogleCloudDialogflowV2beta1ExportAgentResponse + , googleCloudDialogflowV2beta1ExportAgentResponse + , gooAgentURI + , gooAgentContent + + -- ** GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload + , GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload + , googleCloudDialogflowV2OriginalDetectIntentRequestPayload + , gcdvodirpcAddtional + + -- ** GoogleCloudDialogflowV2SessionEntityType + , GoogleCloudDialogflowV2SessionEntityType + , googleCloudDialogflowV2SessionEntityType + , gcdvSetEntityOverrideMode + , gcdvSetEntities + , gcdvSetName + + -- ** GoogleCloudDialogflowV2beta1EntityTypeKind + , GoogleCloudDialogflowV2beta1EntityTypeKind (..) + + -- ** GoogleCloudDialogflowV2EntityTypeEntity + , GoogleCloudDialogflowV2EntityTypeEntity + , googleCloudDialogflowV2EntityTypeEntity + , gValue + , gSynonyms + + -- ** GoogleCloudDialogflowV2IntentWebhookState + , GoogleCloudDialogflowV2IntentWebhookState (..) + + -- ** GoogleCloudDialogflowV2beta1QueryResult + , GoogleCloudDialogflowV2beta1QueryResult + , googleCloudDialogflowV2beta1QueryResult + , gLanguageCode + , gAllRequiredParamsPresent + , gIntentDetectionConfidence + , gFulfillmentMessages + , gKnowledgeAnswers + , gSpeechRecognitionConfidence + , gAction + , gIntent + , gSentimentAnalysisResult + , gQueryText + , gFulfillmentText + , gParameters + , gWebhookPayload + , gOutputContexts + , gWebhookSource + , gDiagnosticInfo + + -- ** GoogleCloudDialogflowV2IntentMessageImage + , GoogleCloudDialogflowV2IntentMessageImage + , googleCloudDialogflowV2IntentMessageImage + , gAccessibilityText + , gImageURI + + -- ** GoogleCloudDialogflowV2WebhookResponse + , GoogleCloudDialogflowV2WebhookResponse + , googleCloudDialogflowV2WebhookResponse + , gooFulfillmentMessages + , gooPayload + , gooFulfillmentText + , gooSource + , gooOutputContexts + , gooFollowupEventInput + + -- ** GoogleCloudDialogflowV2TrainAgentRequest + , GoogleCloudDialogflowV2TrainAgentRequest + , googleCloudDialogflowV2TrainAgentRequest + + -- ** GoogleCloudDialogflowV2IntentBatch + , GoogleCloudDialogflowV2IntentBatch + , googleCloudDialogflowV2IntentBatch + , gcdvibIntents + + -- ** GoogleCloudDialogflowV2beta1EntityType + , GoogleCloudDialogflowV2beta1EntityType + , googleCloudDialogflowV2beta1EntityType + , gcdvetcEntities + , gcdvetcKind + , gcdvetcName + , gcdvetcAutoExpansionMode + , gcdvetcDisplayName + + -- ** GoogleCloudDialogflowV2SearchAgentsResponse + , GoogleCloudDialogflowV2SearchAgentsResponse + , googleCloudDialogflowV2SearchAgentsResponse + , gcdvsarNextPageToken + , gcdvsarAgents + + -- ** GoogleCloudDialogflowV2ListSessionEntityTypesResponse + , GoogleCloudDialogflowV2ListSessionEntityTypesResponse + , googleCloudDialogflowV2ListSessionEntityTypesResponse + , gcdvlSetrNextPageToken + , gcdvlSetrSessionEntityTypes + + -- ** GoogleLongrunningOperation + , GoogleLongrunningOperation + , googleLongrunningOperation + , gloDone + , gloError + , gloResponse + , gloName + , gloMetadata + + -- ** GoogleCloudDialogflowV2IntentMessage + , GoogleCloudDialogflowV2IntentMessage + , googleCloudDialogflowV2IntentMessage + , gcdvimcCard + , gcdvimcImage + , gcdvimcPlatform + , gcdvimcLinkOutSuggestion + , gcdvimcText + , gcdvimcCarouselSelect + , gcdvimcSimpleResponses + , gcdvimcPayload + , gcdvimcSuggestions + , gcdvimcListSelect + , gcdvimcBasicCard + , gcdvimcQuickReplies + + -- ** GoogleCloudDialogflowV2IntentMessageCarouselSelect + , GoogleCloudDialogflowV2IntentMessageCarouselSelect + , googleCloudDialogflowV2IntentMessageCarouselSelect + , gItems + + -- ** GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , googleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , gooKey + , gooSynonyms + + -- ** GoogleCloudDialogflowV2beta1Intent + , GoogleCloudDialogflowV2beta1Intent + , googleCloudDialogflowV2beta1Intent + , gcdvicDefaultResponsePlatforms + , gcdvicWebhookState + , gcdvicMlEnabled + , gcdvicPriority + , gcdvicAction + , gcdvicRootFollowupIntentName + , gcdvicName + , gcdvicEvents + , gcdvicParameters + , gcdvicDisplayName + , gcdvicInputContextNames + , gcdvicEndInteraction + , gcdvicMessages + , gcdvicParentFollowupIntentName + , gcdvicOutputContexts + , gcdvicTrainingPhrases + , gcdvicFollowupIntentInfo + , gcdvicIsFallback + , gcdvicMlDisabled + , gcdvicResetContexts + + -- ** GoogleCloudDialogflowV2Context + , GoogleCloudDialogflowV2Context + , googleCloudDialogflowV2Context + , gcdvccLifespanCount + , gcdvccName + , gcdvccParameters + + -- ** GoogleCloudDialogflowV2InputAudioConfigAudioEncoding + , GoogleCloudDialogflowV2InputAudioConfigAudioEncoding (..) + + -- ** GoogleCloudDialogflowV2IntentMessageBasicCardButton + , GoogleCloudDialogflowV2IntentMessageBasicCardButton + , googleCloudDialogflowV2IntentMessageBasicCardButton + , gcdvimbcbcOpenURIAction + , gcdvimbcbcTitle + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchDelete +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchUpdate +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Create +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Delete +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchCreate +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchDelete +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchUpdate +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Get +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.List +import Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Patch +import Network.Google.Resource.DialogFlow.Projects.Agent.Export +import Network.Google.Resource.DialogFlow.Projects.Agent.Import +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchDelete +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchUpdate +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Create +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Delete +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Get +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.List +import Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Patch +import Network.Google.Resource.DialogFlow.Projects.Agent.Restore +import Network.Google.Resource.DialogFlow.Projects.Agent.Search +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Create +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Delete +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Get +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.List +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Patch +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DeleteContexts +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DetectIntent +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Create +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Delete +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Get +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.List +import Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Patch +import Network.Google.Resource.DialogFlow.Projects.Agent.Train +import Network.Google.Resource.DialogFlow.Projects.GetAgent +import Network.Google.Resource.DialogFlow.Projects.Operations.Get + +{- $resources +TODO +-} + +-- | Represents the entirety of the methods and resources available for the Dialogflow API service. +type DialogFlowAPI = + ProjectsAgentIntentsListResource :<|> + ProjectsAgentIntentsPatchResource + :<|> ProjectsAgentIntentsGetResource + :<|> ProjectsAgentIntentsCreateResource + :<|> ProjectsAgentIntentsBatchUpdateResource + :<|> ProjectsAgentIntentsBatchDeleteResource + :<|> ProjectsAgentIntentsDeleteResource + :<|> + ProjectsAgentEntityTypesEntitiesBatchUpdateResource + :<|> + ProjectsAgentEntityTypesEntitiesBatchDeleteResource + :<|> + ProjectsAgentEntityTypesEntitiesBatchCreateResource + :<|> ProjectsAgentEntityTypesListResource + :<|> ProjectsAgentEntityTypesPatchResource + :<|> ProjectsAgentEntityTypesGetResource + :<|> ProjectsAgentEntityTypesCreateResource + :<|> ProjectsAgentEntityTypesBatchUpdateResource + :<|> ProjectsAgentEntityTypesBatchDeleteResource + :<|> ProjectsAgentEntityTypesDeleteResource + :<|> ProjectsAgentSessionsContextsListResource + :<|> ProjectsAgentSessionsContextsPatchResource + :<|> ProjectsAgentSessionsContextsGetResource + :<|> ProjectsAgentSessionsContextsCreateResource + :<|> ProjectsAgentSessionsContextsDeleteResource + :<|> ProjectsAgentSessionsEntityTypesListResource + :<|> ProjectsAgentSessionsEntityTypesPatchResource + :<|> ProjectsAgentSessionsEntityTypesGetResource + :<|> ProjectsAgentSessionsEntityTypesCreateResource + :<|> ProjectsAgentSessionsEntityTypesDeleteResource + :<|> ProjectsAgentSessionsDetectIntentResource + :<|> ProjectsAgentSessionsDeleteContextsResource + :<|> ProjectsAgentExportResource + :<|> ProjectsAgentRestoreResource + :<|> ProjectsAgentImportResource + :<|> ProjectsAgentTrainResource + :<|> ProjectsAgentSearchResource + :<|> ProjectsOperationsGetResource + :<|> ProjectsGetAgentResource diff --git a/gen/Network/Google/DialogFlow/Types.hs b/gen/Network/Google/DialogFlow/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/DialogFlow/Types.hs @@ -0,0 +1,992 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.DialogFlow.Types +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.DialogFlow.Types + ( + -- * Service Configuration + dialogFlowService + + -- * OAuth Scopes + , dialogFlowScope + , cloudPlatformScope + + -- * GoogleRpcStatus + , GoogleRpcStatus + , googleRpcStatus + , grsDetails + , grsCode + , grsMessage + + -- * GoogleCloudDialogflowV2IntentFollowupIntentInfo + , GoogleCloudDialogflowV2IntentFollowupIntentInfo + , googleCloudDialogflowV2IntentFollowupIntentInfo + , gcdvifiiFollowupIntentName + , gcdvifiiParentFollowupIntentName + + -- * GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView + , GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView (..) + + -- * GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses + , GoogleCloudDialogflowV2beta1IntentMessageSimpleResponses + , googleCloudDialogflowV2beta1IntentMessageSimpleResponses + , gcdvimsrSimpleResponses + + -- * GoogleCloudDialogflowV2beta1IntentTrainingPhraseType + , GoogleCloudDialogflowV2beta1IntentTrainingPhraseType (..) + + -- * GoogleCloudDialogflowV2InputAudioConfig + , GoogleCloudDialogflowV2InputAudioConfig + , googleCloudDialogflowV2InputAudioConfig + , gcdviacLanguageCode + , gcdviacPhraseHints + , gcdviacSampleRateHertz + , gcdviacAudioEncoding + + -- * GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , GoogleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , googleCloudDialogflowV2beta1BatchUpdateIntentsResponse + , gcdvbuirIntents + + -- * GoogleCloudDialogflowV2beta1IntentMessagePayload + , GoogleCloudDialogflowV2beta1IntentMessagePayload + , googleCloudDialogflowV2beta1IntentMessagePayload + , gcdvimpAddtional + + -- * GoogleCloudDialogflowV2WebhookRequest + , GoogleCloudDialogflowV2WebhookRequest + , googleCloudDialogflowV2WebhookRequest + , gcdvwrOriginalDetectIntentRequest + , gcdvwrResponseId + , gcdvwrQueryResult + , gcdvwrSession + + -- * GoogleCloudDialogflowV2IntentMessageCarouselSelectItem + , GoogleCloudDialogflowV2IntentMessageCarouselSelectItem + , googleCloudDialogflowV2IntentMessageCarouselSelectItem + , gcdvimcsiImage + , gcdvimcsiTitle + , gcdvimcsiDescription + , gcdvimcsiInfo + + -- * GoogleCloudDialogflowV2EventInput + , GoogleCloudDialogflowV2EventInput + , googleCloudDialogflowV2EventInput + , gcdveiLanguageCode + , gcdveiName + , gcdveiParameters + + -- * GoogleCloudDialogflowV2IntentMessageSimpleResponse + , GoogleCloudDialogflowV2IntentMessageSimpleResponse + , googleCloudDialogflowV2IntentMessageSimpleResponse + , gcdvimsrDisplayText + , gcdvimsrSsml + , gcdvimsrTextToSpeech + + -- * GoogleLongrunningOperationMetadata + , GoogleLongrunningOperationMetadata + , googleLongrunningOperationMetadata + , glomAddtional + + -- * GoogleCloudDialogflowV2IntentTrainingPhrase + , GoogleCloudDialogflowV2IntentTrainingPhrase + , googleCloudDialogflowV2IntentTrainingPhrase + , gcdvitpParts + , gcdvitpName + , gcdvitpTimesAddedCount + , gcdvitpType + + -- * GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , GoogleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , googleCloudDialogflowV2beta1IntentMessageCarouselSelectItem + , gImage + , gTitle + , gDescription + , gInfo + + -- * GoogleCloudDialogflowV2IntentMessageBasicCard + , GoogleCloudDialogflowV2IntentMessageBasicCard + , googleCloudDialogflowV2IntentMessageBasicCard + , gcdvimbcImage + , gcdvimbcButtons + , gcdvimbcSubtitle + , gcdvimbcTitle + , gcdvimbcFormattedText + + -- * GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse + , GoogleCloudDialogflowV2beta1IntentMessageSimpleResponse + , googleCloudDialogflowV2beta1IntentMessageSimpleResponse + , gDisplayText + , gSsml + , gTextToSpeech + + -- * GoogleCloudDialogflowV2Intent + , GoogleCloudDialogflowV2Intent + , googleCloudDialogflowV2Intent + , gcdviDefaultResponsePlatforms + , gcdviWebhookState + , gcdviPriority + , gcdviAction + , gcdviRootFollowupIntentName + , gcdviName + , gcdviEvents + , gcdviParameters + , gcdviDisplayName + , gcdviInputContextNames + , gcdviMessages + , gcdviParentFollowupIntentName + , gcdviOutputContexts + , gcdviTrainingPhrases + , gcdviFollowupIntentInfo + , gcdviIsFallback + , gcdviMlDisabled + , gcdviResetContexts + + -- * GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton + , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButton + , googleCloudDialogflowV2beta1IntentMessageBasicCardButton + , gcdvimbcbOpenURIAction + , gcdvimbcbTitle + + -- * GoogleCloudDialogflowV2BatchCreateEntitiesRequest + , GoogleCloudDialogflowV2BatchCreateEntitiesRequest + , googleCloudDialogflowV2BatchCreateEntitiesRequest + , gcdvbcerLanguageCode + , gcdvbcerEntities + + -- * GoogleCloudDialogflowV2beta1IntentMessageSuggestions + , GoogleCloudDialogflowV2beta1IntentMessageSuggestions + , googleCloudDialogflowV2beta1IntentMessageSuggestions + , gcdvimsSuggestions + + -- * GoogleCloudDialogflowV2BatchDeleteIntentsRequest + , GoogleCloudDialogflowV2BatchDeleteIntentsRequest + , googleCloudDialogflowV2BatchDeleteIntentsRequest + , gcdvbdirIntents + + -- * GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel + , GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel (..) + + -- * GoogleCloudDialogflowV2QueryResult + , GoogleCloudDialogflowV2QueryResult + , googleCloudDialogflowV2QueryResult + , gcdvqrLanguageCode + , gcdvqrAllRequiredParamsPresent + , gcdvqrIntentDetectionConfidence + , gcdvqrFulfillmentMessages + , gcdvqrSpeechRecognitionConfidence + , gcdvqrAction + , gcdvqrIntent + , gcdvqrQueryText + , gcdvqrFulfillmentText + , gcdvqrParameters + , gcdvqrWebhookPayload + , gcdvqrOutputContexts + , gcdvqrWebhookSource + , gcdvqrDiagnosticInfo + + -- * GoogleCloudDialogflowV2BatchUpdateIntentsRequest + , GoogleCloudDialogflowV2BatchUpdateIntentsRequest + , googleCloudDialogflowV2BatchUpdateIntentsRequest + , gcdvbuirLanguageCode + , gcdvbuirUpdateMask + , gcdvbuirIntentView + , gcdvbuirIntentBatchURI + , gcdvbuirIntentBatchInline + + -- * GoogleTypeLatLng + , GoogleTypeLatLng + , googleTypeLatLng + , gtllLatitude + , gtllLongitude + + -- * GoogleCloudDialogflowV2beta1WebhookResponse + , GoogleCloudDialogflowV2beta1WebhookResponse + , googleCloudDialogflowV2beta1WebhookResponse + , gcdvwrFulfillmentMessages + , gcdvwrPayload + , gcdvwrFulfillmentText + , gcdvwrSource + , gcdvwrEndInteraction + , gcdvwrOutputContexts + , gcdvwrFollowupEventInput + + -- * GoogleCloudDialogflowV2beta1EventInputParameters + , GoogleCloudDialogflowV2beta1EventInputParameters + , googleCloudDialogflowV2beta1EventInputParameters + , gcdveipAddtional + + -- * GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , GoogleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , googleCloudDialogflowV2beta1OriginalDetectIntentRequestPayload + , gcdvodirpAddtional + + -- * GoogleCloudDialogflowV2IntentMessageQuickReplies + , GoogleCloudDialogflowV2IntentMessageQuickReplies + , googleCloudDialogflowV2IntentMessageQuickReplies + , gcdvimqrTitle + , gcdvimqrQuickReplies + + -- * GoogleCloudDialogflowV2beta1KnowledgeAnswers + , GoogleCloudDialogflowV2beta1KnowledgeAnswers + , googleCloudDialogflowV2beta1KnowledgeAnswers + , gcdvkaAnswers + + -- * GoogleCloudDialogflowV2beta1IntentMessageCardButton + , GoogleCloudDialogflowV2beta1IntentMessageCardButton + , googleCloudDialogflowV2beta1IntentMessageCardButton + , gcdvimcbText + , gcdvimcbPostback + + -- * GoogleCloudDialogflowV2beta1ContextParameters + , GoogleCloudDialogflowV2beta1ContextParameters + , googleCloudDialogflowV2beta1ContextParameters + , gcdvcpAddtional + + -- * GoogleCloudDialogflowV2QueryParametersPayload + , GoogleCloudDialogflowV2QueryParametersPayload + , googleCloudDialogflowV2QueryParametersPayload + , gcdvqppAddtional + + -- * GoogleCloudDialogflowV2beta1IntentMessageListSelect + , GoogleCloudDialogflowV2beta1IntentMessageListSelect + , googleCloudDialogflowV2beta1IntentMessageListSelect + , gcdvimlsItems + , gcdvimlsTitle + + -- * GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , GoogleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , googleCloudDialogflowV2beta1IntentMessageTelephonyPlayAudio + , gcdvimtpaAudioURI + + -- * GoogleCloudDialogflowV2IntentTrainingPhrasePart + , GoogleCloudDialogflowV2IntentTrainingPhrasePart + , googleCloudDialogflowV2IntentTrainingPhrasePart + , gcdvitppText + , gcdvitppUserDefined + , gcdvitppEntityType + , gcdvitppAlias + + -- * GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState + , GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState (..) + + -- * GoogleProtobufEmpty + , GoogleProtobufEmpty + , googleProtobufEmpty + + -- * GoogleCloudDialogflowV2beta1WebhookResponsePayload + , GoogleCloudDialogflowV2beta1WebhookResponsePayload + , googleCloudDialogflowV2beta1WebhookResponsePayload + , gcdvwrpAddtional + + -- * GoogleCloudDialogflowV2beta1IntentMessageQuickReplies + , GoogleCloudDialogflowV2beta1IntentMessageQuickReplies + , googleCloudDialogflowV2beta1IntentMessageQuickReplies + , gcdvimqrsTitle + , gcdvimqrsQuickReplies + + -- * GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion + , GoogleCloudDialogflowV2IntentMessageLinkOutSuggestion + , googleCloudDialogflowV2IntentMessageLinkOutSuggestion + , gcdvimlosURI + , gcdvimlosDestinationName + + -- * GoogleCloudDialogflowV2ImportAgentRequest + , GoogleCloudDialogflowV2ImportAgentRequest + , googleCloudDialogflowV2ImportAgentRequest + , gcdviarAgentURI + , gcdviarAgentContent + + -- * GoogleRpcStatusDetailsItem + , GoogleRpcStatusDetailsItem + , googleRpcStatusDetailsItem + , grsdiAddtional + + -- * GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , GoogleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , googleCloudDialogflowV2beta1BatchUpdateEntityTypesResponse + , gcdvbuetrEntityTypes + + -- * GoogleCloudDialogflowV2ContextParameters + , GoogleCloudDialogflowV2ContextParameters + , googleCloudDialogflowV2ContextParameters + , gAddtional + + -- * GoogleCloudDialogflowV2IntentMessageCardButton + , GoogleCloudDialogflowV2IntentMessageCardButton + , googleCloudDialogflowV2IntentMessageCardButton + , gText + , gPostback + + -- * GoogleCloudDialogflowV2IntentMessageListSelect + , GoogleCloudDialogflowV2IntentMessageListSelect + , googleCloudDialogflowV2IntentMessageListSelect + , gooItems + , gooTitle + + -- * GoogleCloudDialogflowV2beta1IntentMessageCard + , GoogleCloudDialogflowV2beta1IntentMessageCard + , googleCloudDialogflowV2beta1IntentMessageCard + , gcdvimcButtons + , gcdvimcImageURI + , gcdvimcSubtitle + , gcdvimcTitle + + -- * GoogleCloudDialogflowV2RestoreAgentRequest + , GoogleCloudDialogflowV2RestoreAgentRequest + , googleCloudDialogflowV2RestoreAgentRequest + , gcdvrarAgentURI + , gcdvrarAgentContent + + -- * GoogleCloudDialogflowV2IntentMessageSuggestions + , GoogleCloudDialogflowV2IntentMessageSuggestions + , googleCloudDialogflowV2IntentMessageSuggestions + , gSuggestions + + -- * GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , GoogleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , googleCloudDialogflowV2beta1IntentMessageBasicCardButtonOpenURIAction + , gcdvimbcbouaURI + + -- * GoogleCloudDialogflowV2QueryParameters + , GoogleCloudDialogflowV2QueryParameters + , googleCloudDialogflowV2QueryParameters + , gcdvqpContexts + , gcdvqpPayload + , gcdvqpGeoLocation + , gcdvqpTimeZone + , gcdvqpSessionEntityTypes + , gcdvqpResetContexts + + -- * GoogleCloudDialogflowV2beta1IntentMessageSuggestion + , GoogleCloudDialogflowV2beta1IntentMessageSuggestion + , googleCloudDialogflowV2beta1IntentMessageSuggestion + , gcdvimsTitle + + -- * GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest + , GoogleCloudDialogflowV2beta1OriginalDetectIntentRequest + , googleCloudDialogflowV2beta1OriginalDetectIntentRequest + , gcdvodirPayload + , gcdvodirVersion + , gcdvodirSource + + -- * GoogleCloudDialogflowV2EventInputParameters + , GoogleCloudDialogflowV2EventInputParameters + , googleCloudDialogflowV2EventInputParameters + , gcdveipsAddtional + + -- * GoogleCloudDialogflowV2IntentMessagePlatform + , GoogleCloudDialogflowV2IntentMessagePlatform (..) + + -- * GoogleCloudDialogflowV2DetectIntentResponse + , GoogleCloudDialogflowV2DetectIntentResponse + , googleCloudDialogflowV2DetectIntentResponse + , gcdvdirResponseId + , gcdvdirWebhookStatus + , gcdvdirQueryResult + + -- * GoogleCloudDialogflowV2IntentMessageListSelectItem + , GoogleCloudDialogflowV2IntentMessageListSelectItem + , googleCloudDialogflowV2IntentMessageListSelectItem + , gcdvimlsiImage + , gcdvimlsiTitle + , gcdvimlsiDescription + , gcdvimlsiInfo + + -- * GoogleCloudDialogflowV2beta1SentimentAnalysisResult + , GoogleCloudDialogflowV2beta1SentimentAnalysisResult + , googleCloudDialogflowV2beta1SentimentAnalysisResult + , gcdvsarQueryTextSentiment + + -- * GoogleCloudDialogflowV2EntityTypeBatch + , GoogleCloudDialogflowV2EntityTypeBatch + , googleCloudDialogflowV2EntityTypeBatch + , gcdvetbEntityTypes + + -- * GoogleCloudDialogflowV2QueryResultDiagnosticInfo + , GoogleCloudDialogflowV2QueryResultDiagnosticInfo + , googleCloudDialogflowV2QueryResultDiagnosticInfo + , gcdvqrdiAddtional + + -- * GoogleCloudDialogflowV2IntentMessageText + , GoogleCloudDialogflowV2IntentMessageText + , googleCloudDialogflowV2IntentMessageText + , gcdvimtText + + -- * GoogleCloudDialogflowV2DetectIntentRequest + , GoogleCloudDialogflowV2DetectIntentRequest + , googleCloudDialogflowV2DetectIntentRequest + , gcdvdirQueryInput + , gcdvdirInputAudio + , gcdvdirQueryParams + + -- * GoogleCloudDialogflowV2beta1QueryResultParameters + , GoogleCloudDialogflowV2beta1QueryResultParameters + , googleCloudDialogflowV2beta1QueryResultParameters + , gcdvqrpAddtional + + -- * GoogleCloudDialogflowV2beta1IntentMessageBasicCard + , GoogleCloudDialogflowV2beta1IntentMessageBasicCard + , googleCloudDialogflowV2beta1IntentMessageBasicCard + , gcdvimbccImage + , gcdvimbccButtons + , gcdvimbccSubtitle + , gcdvimbccTitle + , gcdvimbccFormattedText + + -- * GoogleCloudDialogflowV2beta1IntentTrainingPhrase + , GoogleCloudDialogflowV2beta1IntentTrainingPhrase + , googleCloudDialogflowV2beta1IntentTrainingPhrase + , gParts + , gName + , gTimesAddedCount + , gType + + -- * GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , googleCloudDialogflowV2beta1KnowledgeAnswersAnswer + , gcdvkaaMatchConfidence + , gcdvkaaAnswer + , gcdvkaaSource + , gcdvkaaFaqQuestion + , gcdvkaaMatchConfidenceLevel + + -- * GoogleCloudDialogflowV2beta1EventInput + , GoogleCloudDialogflowV2beta1EventInput + , googleCloudDialogflowV2beta1EventInput + , gooLanguageCode + , gooName + , gooParameters + + -- * GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + , GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + , googleCloudDialogflowV2BatchUpdateEntitiesRequest + , gcdvbuerLanguageCode + , gcdvbuerUpdateMask + , gcdvbuerEntities + + -- * GoogleCloudDialogflowV2IntentMessagePayload + , GoogleCloudDialogflowV2IntentMessagePayload + , googleCloudDialogflowV2IntentMessagePayload + , gooAddtional + + -- * GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata + , GoogleCloudDialogflowV2beta1KnowledgeOperationMetadata + , googleCloudDialogflowV2beta1KnowledgeOperationMetadata + , gcdvkomState + + -- * GoogleCloudDialogflowV2beta1WebhookRequest + , GoogleCloudDialogflowV2beta1WebhookRequest + , googleCloudDialogflowV2beta1WebhookRequest + , gOriginalDetectIntentRequest + , gResponseId + , gAlternativeQueryResults + , gQueryResult + , gSession + + -- * GoogleCloudDialogflowV2IntentTrainingPhraseType + , GoogleCloudDialogflowV2IntentTrainingPhraseType (..) + + -- * GoogleCloudDialogflowV2beta1IntentMessageText + , GoogleCloudDialogflowV2beta1IntentMessageText + , googleCloudDialogflowV2beta1IntentMessageText + , gooText + + -- * GoogleCloudDialogflowV2IntentMessageSimpleResponses + , GoogleCloudDialogflowV2IntentMessageSimpleResponses + , googleCloudDialogflowV2IntentMessageSimpleResponses + , gSimpleResponses + + -- * GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo + , GoogleCloudDialogflowV2beta1IntentFollowupIntentInfo + , googleCloudDialogflowV2beta1IntentFollowupIntentInfo + , gFollowupIntentName + , gParentFollowupIntentName + + -- * GoogleCloudDialogflowV2QueryResultParameters + , GoogleCloudDialogflowV2QueryResultParameters + , googleCloudDialogflowV2QueryResultParameters + , gcdvqrpsAddtional + + -- * GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , GoogleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , googleCloudDialogflowV2beta1QueryResultDiagnosticInfo + , gcdvqrdicAddtional + + -- * GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + , GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + , googleCloudDialogflowV2BatchDeleteEntitiesRequest + , gcdvbderLanguageCode + , gcdvbderEntityValues + + -- * GoogleCloudDialogflowV2AgentMatchMode + , GoogleCloudDialogflowV2AgentMatchMode (..) + + -- * GoogleCloudDialogflowV2BatchUpdateIntentsResponse + , GoogleCloudDialogflowV2BatchUpdateIntentsResponse + , googleCloudDialogflowV2BatchUpdateIntentsResponse + , gIntents + + -- * GoogleCloudDialogflowV2ListEntityTypesResponse + , GoogleCloudDialogflowV2ListEntityTypesResponse + , googleCloudDialogflowV2ListEntityTypesResponse + , gcdvletrNextPageToken + , gcdvletrEntityTypes + + -- * GoogleCloudDialogflowV2Agent + , GoogleCloudDialogflowV2Agent + , googleCloudDialogflowV2Agent + , gcdvaParent + , gcdvaDefaultLanguageCode + , gcdvaEnableLogging + , gcdvaClassificationThreshold + , gcdvaAvatarURI + , gcdvaSupportedLanguageCodes + , gcdvaDisplayName + , gcdvaMatchMode + , gcdvaTimeZone + , gcdvaDescription + + -- * GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode + , GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode (..) + + -- * GoogleCloudDialogflowV2beta1IntentMessage + , GoogleCloudDialogflowV2beta1IntentMessage + , googleCloudDialogflowV2beta1IntentMessage + , gcdvimCard + , gcdvimImage + , gcdvimPlatform + , gcdvimLinkOutSuggestion + , gcdvimText + , gcdvimCarouselSelect + , gcdvimTelephonySynthesizeSpeech + , gcdvimSimpleResponses + , gcdvimPayload + , gcdvimTelephonyTransferCall + , gcdvimSuggestions + , gcdvimListSelect + , gcdvimTelephonyPlayAudio + , gcdvimBasicCard + , gcdvimQuickReplies + + -- * GoogleCloudDialogflowV2IntentMessageSelectItemInfo + , GoogleCloudDialogflowV2IntentMessageSelectItemInfo + , googleCloudDialogflowV2IntentMessageSelectItemInfo + , gcdvimsiiKey + , gcdvimsiiSynonyms + + -- * GoogleCloudDialogflowV2beta1Sentiment + , GoogleCloudDialogflowV2beta1Sentiment + , googleCloudDialogflowV2beta1Sentiment + , gcdvsScore + , gcdvsMagnitude + + -- * GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + , GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + , googleCloudDialogflowV2BatchDeleteEntityTypesRequest + , gcdvbdetrEntityTypeNames + + -- * Xgafv + , Xgafv (..) + + -- * GoogleCloudDialogflowV2QueryInput + , GoogleCloudDialogflowV2QueryInput + , googleCloudDialogflowV2QueryInput + , gcdvqiAudioConfig + , gcdvqiEvent + , gcdvqiText + + -- * GoogleCloudDialogflowV2ExportAgentRequest + , GoogleCloudDialogflowV2ExportAgentRequest + , googleCloudDialogflowV2ExportAgentRequest + , gcdvearAgentURI + + -- * GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect + , GoogleCloudDialogflowV2beta1IntentMessageCarouselSelect + , googleCloudDialogflowV2beta1IntentMessageCarouselSelect + , gcdvimcsItems + + -- * GoogleCloudDialogflowV2beta1Context + , GoogleCloudDialogflowV2beta1Context + , googleCloudDialogflowV2beta1Context + , gcdvcLifespanCount + , gcdvcName + , gcdvcParameters + + -- * GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + , GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + , googleCloudDialogflowV2BatchUpdateEntityTypesRequest + , gcdvbuetrLanguageCode + , gcdvbuetrUpdateMask + , gcdvbuetrEntityTypeBatchInline + , gcdvbuetrEntityTypeBatchURI + + -- * GoogleLongrunningOperationResponse + , GoogleLongrunningOperationResponse + , googleLongrunningOperationResponse + , glorAddtional + + -- * GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , GoogleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , googleCloudDialogflowV2beta1IntentMessageTelephonySynthesizeSpeech + , gcdvimtssText + , gcdvimtssSsml + + -- * GoogleCloudDialogflowV2beta1IntentMessageListSelectItem + , GoogleCloudDialogflowV2beta1IntentMessageListSelectItem + , googleCloudDialogflowV2beta1IntentMessageListSelectItem + , gcdvimlsicImage + , gcdvimlsicTitle + , gcdvimlsicDescription + , gcdvimlsicInfo + + -- * GoogleCloudDialogflowV2IntentMessageSuggestion + , GoogleCloudDialogflowV2IntentMessageSuggestion + , googleCloudDialogflowV2IntentMessageSuggestion + , gcdvimscTitle + + -- * GoogleCloudDialogflowV2beta1EntityTypeEntity + , GoogleCloudDialogflowV2beta1EntityTypeEntity + , googleCloudDialogflowV2beta1EntityTypeEntity + , gcdveteValue + , gcdveteSynonyms + + -- * GoogleCloudDialogflowV2EntityType + , GoogleCloudDialogflowV2EntityType + , googleCloudDialogflowV2EntityType + , gcdvetEntities + , gcdvetKind + , gcdvetName + , gcdvetAutoExpansionMode + , gcdvetDisplayName + + -- * GoogleCloudDialogflowV2beta1IntentMessagePlatform + , GoogleCloudDialogflowV2beta1IntentMessagePlatform (..) + + -- * GoogleCloudDialogflowV2EntityTypeKind + , GoogleCloudDialogflowV2EntityTypeKind (..) + + -- * GoogleCloudDialogflowV2TextInput + , GoogleCloudDialogflowV2TextInput + , googleCloudDialogflowV2TextInput + , gcdvtiLanguageCode + , gcdvtiText + + -- * GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , GoogleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , googleCloudDialogflowV2IntentMessageBasicCardButtonOpenURIAction + , gcdvimbcbouriaURI + + -- * GoogleCloudDialogflowV2IntentMessageCard + , GoogleCloudDialogflowV2IntentMessageCard + , googleCloudDialogflowV2IntentMessageCard + , gcdvimccButtons + , gcdvimccImageURI + , gcdvimccSubtitle + , gcdvimccTitle + + -- * GoogleCloudDialogflowV2OriginalDetectIntentRequest + , GoogleCloudDialogflowV2OriginalDetectIntentRequest + , googleCloudDialogflowV2OriginalDetectIntentRequest + , gPayload + , gVersion + , gSource + + -- * GoogleCloudDialogflowV2beta1IntentWebhookState + , GoogleCloudDialogflowV2beta1IntentWebhookState (..) + + -- * GoogleCloudDialogflowV2beta1IntentMessageImage + , GoogleCloudDialogflowV2beta1IntentMessageImage + , googleCloudDialogflowV2beta1IntentMessageImage + , gcdvimiAccessibilityText + , gcdvimiImageURI + + -- * GoogleCloudDialogflowV2ExportAgentResponse + , GoogleCloudDialogflowV2ExportAgentResponse + , googleCloudDialogflowV2ExportAgentResponse + , gAgentURI + , gAgentContent + + -- * GoogleCloudDialogflowV2WebhookResponsePayload + , GoogleCloudDialogflowV2WebhookResponsePayload + , googleCloudDialogflowV2WebhookResponsePayload + , gcdvwrpcAddtional + + -- * GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , GoogleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , googleCloudDialogflowV2beta1IntentMessageLinkOutSuggestion + , gURI + , gDestinationName + + -- * GoogleCloudDialogflowV2ListIntentsResponse + , GoogleCloudDialogflowV2ListIntentsResponse + , googleCloudDialogflowV2ListIntentsResponse + , gcdvlirIntents + , gcdvlirNextPageToken + + -- * GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse + , GoogleCloudDialogflowV2BatchUpdateEntityTypesResponse + , googleCloudDialogflowV2BatchUpdateEntityTypesResponse + , gEntityTypes + + -- * GoogleCloudDialogflowV2QueryResultWebhookPayload + , GoogleCloudDialogflowV2QueryResultWebhookPayload + , googleCloudDialogflowV2QueryResultWebhookPayload + , gcdvqrwpAddtional + + -- * GoogleCloudDialogflowV2beta1IntentParameter + , GoogleCloudDialogflowV2beta1IntentParameter + , googleCloudDialogflowV2beta1IntentParameter + , gcdvipValue + , gcdvipName + , gcdvipPrompts + , gcdvipMandatory + , gcdvipDisplayName + , gcdvipDefaultValue + , gcdvipIsList + , gcdvipEntityTypeDisplayName + + -- * GoogleCloudDialogflowV2EntityTypeAutoExpansionMode + , GoogleCloudDialogflowV2EntityTypeAutoExpansionMode (..) + + -- * GoogleCloudDialogflowV2IntentParameter + , GoogleCloudDialogflowV2IntentParameter + , googleCloudDialogflowV2IntentParameter + , gcdvipcValue + , gcdvipcName + , gcdvipcPrompts + , gcdvipcMandatory + , gcdvipcDisplayName + , gcdvipcDefaultValue + , gcdvipcIsList + , gcdvipcEntityTypeDisplayName + + -- * GoogleCloudDialogflowV2beta1QueryResultWebhookPayload + , GoogleCloudDialogflowV2beta1QueryResultWebhookPayload + , googleCloudDialogflowV2beta1QueryResultWebhookPayload + , gcdvqrwpcAddtional + + -- * GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart + , GoogleCloudDialogflowV2beta1IntentTrainingPhrasePart + , googleCloudDialogflowV2beta1IntentTrainingPhrasePart + , gcdvitppcText + , gcdvitppcUserDefined + , gcdvitppcEntityType + , gcdvitppcAlias + + -- * GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode + , GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode (..) + + -- * GoogleCloudDialogflowV2ListContextsResponse + , GoogleCloudDialogflowV2ListContextsResponse + , googleCloudDialogflowV2ListContextsResponse + , gcdvlcrContexts + , gcdvlcrNextPageToken + + -- * GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , GoogleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , googleCloudDialogflowV2beta1IntentMessageTelephonyTransferCall + , gcdvimttcPhoneNumber + + -- * GoogleCloudDialogflowV2beta1ExportAgentResponse + , GoogleCloudDialogflowV2beta1ExportAgentResponse + , googleCloudDialogflowV2beta1ExportAgentResponse + , gooAgentURI + , gooAgentContent + + -- * GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload + , GoogleCloudDialogflowV2OriginalDetectIntentRequestPayload + , googleCloudDialogflowV2OriginalDetectIntentRequestPayload + , gcdvodirpcAddtional + + -- * GoogleCloudDialogflowV2SessionEntityType + , GoogleCloudDialogflowV2SessionEntityType + , googleCloudDialogflowV2SessionEntityType + , gcdvSetEntityOverrideMode + , gcdvSetEntities + , gcdvSetName + + -- * GoogleCloudDialogflowV2beta1EntityTypeKind + , GoogleCloudDialogflowV2beta1EntityTypeKind (..) + + -- * GoogleCloudDialogflowV2EntityTypeEntity + , GoogleCloudDialogflowV2EntityTypeEntity + , googleCloudDialogflowV2EntityTypeEntity + , gValue + , gSynonyms + + -- * GoogleCloudDialogflowV2IntentWebhookState + , GoogleCloudDialogflowV2IntentWebhookState (..) + + -- * GoogleCloudDialogflowV2beta1QueryResult + , GoogleCloudDialogflowV2beta1QueryResult + , googleCloudDialogflowV2beta1QueryResult + , gLanguageCode + , gAllRequiredParamsPresent + , gIntentDetectionConfidence + , gFulfillmentMessages + , gKnowledgeAnswers + , gSpeechRecognitionConfidence + , gAction + , gIntent + , gSentimentAnalysisResult + , gQueryText + , gFulfillmentText + , gParameters + , gWebhookPayload + , gOutputContexts + , gWebhookSource + , gDiagnosticInfo + + -- * GoogleCloudDialogflowV2IntentMessageImage + , GoogleCloudDialogflowV2IntentMessageImage + , googleCloudDialogflowV2IntentMessageImage + , gAccessibilityText + , gImageURI + + -- * GoogleCloudDialogflowV2WebhookResponse + , GoogleCloudDialogflowV2WebhookResponse + , googleCloudDialogflowV2WebhookResponse + , gooFulfillmentMessages + , gooPayload + , gooFulfillmentText + , gooSource + , gooOutputContexts + , gooFollowupEventInput + + -- * GoogleCloudDialogflowV2TrainAgentRequest + , GoogleCloudDialogflowV2TrainAgentRequest + , googleCloudDialogflowV2TrainAgentRequest + + -- * GoogleCloudDialogflowV2IntentBatch + , GoogleCloudDialogflowV2IntentBatch + , googleCloudDialogflowV2IntentBatch + , gcdvibIntents + + -- * GoogleCloudDialogflowV2beta1EntityType + , GoogleCloudDialogflowV2beta1EntityType + , googleCloudDialogflowV2beta1EntityType + , gcdvetcEntities + , gcdvetcKind + , gcdvetcName + , gcdvetcAutoExpansionMode + , gcdvetcDisplayName + + -- * GoogleCloudDialogflowV2SearchAgentsResponse + , GoogleCloudDialogflowV2SearchAgentsResponse + , googleCloudDialogflowV2SearchAgentsResponse + , gcdvsarNextPageToken + , gcdvsarAgents + + -- * GoogleCloudDialogflowV2ListSessionEntityTypesResponse + , GoogleCloudDialogflowV2ListSessionEntityTypesResponse + , googleCloudDialogflowV2ListSessionEntityTypesResponse + , gcdvlSetrNextPageToken + , gcdvlSetrSessionEntityTypes + + -- * GoogleLongrunningOperation + , GoogleLongrunningOperation + , googleLongrunningOperation + , gloDone + , gloError + , gloResponse + , gloName + , gloMetadata + + -- * GoogleCloudDialogflowV2IntentMessage + , GoogleCloudDialogflowV2IntentMessage + , googleCloudDialogflowV2IntentMessage + , gcdvimcCard + , gcdvimcImage + , gcdvimcPlatform + , gcdvimcLinkOutSuggestion + , gcdvimcText + , gcdvimcCarouselSelect + , gcdvimcSimpleResponses + , gcdvimcPayload + , gcdvimcSuggestions + , gcdvimcListSelect + , gcdvimcBasicCard + , gcdvimcQuickReplies + + -- * GoogleCloudDialogflowV2IntentMessageCarouselSelect + , GoogleCloudDialogflowV2IntentMessageCarouselSelect + , googleCloudDialogflowV2IntentMessageCarouselSelect + , gItems + + -- * GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , GoogleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , googleCloudDialogflowV2beta1IntentMessageSelectItemInfo + , gooKey + , gooSynonyms + + -- * GoogleCloudDialogflowV2beta1Intent + , GoogleCloudDialogflowV2beta1Intent + , googleCloudDialogflowV2beta1Intent + , gcdvicDefaultResponsePlatforms + , gcdvicWebhookState + , gcdvicMlEnabled + , gcdvicPriority + , gcdvicAction + , gcdvicRootFollowupIntentName + , gcdvicName + , gcdvicEvents + , gcdvicParameters + , gcdvicDisplayName + , gcdvicInputContextNames + , gcdvicEndInteraction + , gcdvicMessages + , gcdvicParentFollowupIntentName + , gcdvicOutputContexts + , gcdvicTrainingPhrases + , gcdvicFollowupIntentInfo + , gcdvicIsFallback + , gcdvicMlDisabled + , gcdvicResetContexts + + -- * GoogleCloudDialogflowV2Context + , GoogleCloudDialogflowV2Context + , googleCloudDialogflowV2Context + , gcdvccLifespanCount + , gcdvccName + , gcdvccParameters + + -- * GoogleCloudDialogflowV2InputAudioConfigAudioEncoding + , GoogleCloudDialogflowV2InputAudioConfigAudioEncoding (..) + + -- * GoogleCloudDialogflowV2IntentMessageBasicCardButton + , GoogleCloudDialogflowV2IntentMessageBasicCardButton + , googleCloudDialogflowV2IntentMessageBasicCardButton + , gcdvimbcbcOpenURIAction + , gcdvimbcbcTitle + ) where + +import Network.Google.DialogFlow.Types.Product +import Network.Google.DialogFlow.Types.Sum +import Network.Google.Prelude + +-- | Default request referring to version 'v2' of the Dialogflow API. This contains the host and root path used as a starting point for constructing service requests. +dialogFlowService :: ServiceConfig +dialogFlowService + = defaultService (ServiceId "dialogflow:v2") + "dialogflow.googleapis.com" + +-- | View, manage and query your Dialogflow agents +dialogFlowScope :: Proxy '["https://www.googleapis.com/auth/dialogflow"] +dialogFlowScope = Proxy; + +-- | View and manage your data across Google Cloud Platform services +cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] +cloudPlatformScope = Proxy; diff --git a/gen/Network/Google/DialogFlow/Types/Product.hs b/gen/Network/Google/DialogFlow/Types/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/DialogFlow/Types/Product.hs @@ -0,0 +1,9215 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} + +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.DialogFlow.Types.Product +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.DialogFlow.Types.Product where + +import Network.Google.DialogFlow.Types.Sum +import Network.Google.Prelude + +-- | The \`Status\` type defines a logical error model that is suitable for +-- different programming environments, including REST APIs and RPC APIs. It +-- is used by [gRPC](https:\/\/github.com\/grpc). The error model is +-- designed to be: - Simple to use and understand for most users - Flexible +-- enough to meet unexpected needs # Overview The \`Status\` message +-- contains three pieces of data: error code, error message, and error +-- details. The error code should be an enum value of google.rpc.Code, but +-- it may accept additional error codes if needed. The error message should +-- be a developer-facing English message that helps developers *understand* +-- and *resolve* the error. If a localized user-facing error message is +-- needed, put the localized message in the error details or localize it in +-- the client. The optional error details may contain arbitrary information +-- about the error. There is a predefined set of error detail types in the +-- package \`google.rpc\` that can be used for common error conditions. # +-- Language mapping The \`Status\` message is the logical representation of +-- the error model, but it is not necessarily the actual wire format. When +-- the \`Status\` message is exposed in different client libraries and +-- different wire protocols, it can be mapped differently. For example, it +-- will likely be mapped to some exceptions in Java, but more likely mapped +-- to some error codes in C. # Other uses The error model and the +-- \`Status\` message can be used in a variety of environments, either with +-- or without APIs, to provide a consistent developer experience across +-- different environments. Example uses of this error model include: - +-- Partial errors. If a service needs to return partial errors to the +-- client, it may embed the \`Status\` in the normal response to indicate +-- the partial errors. - Workflow errors. A typical workflow has multiple +-- steps. Each step may have a \`Status\` message for error reporting. - +-- Batch operations. If a client uses batch request and batch response, the +-- \`Status\` message should be used directly inside batch response, one +-- for each error sub-response. - Asynchronous operations. If an API call +-- embeds asynchronous operation results in its response, the status of +-- those operations should be represented directly using the \`Status\` +-- message. - Logging. If some API errors are stored in logs, the message +-- \`Status\` could be used directly after any stripping needed for +-- 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 + where + toJSON + GoogleCloudDialogflowV2IntentMessageBasicCardButton'{..} + = object + (catMaybes + [("openUriAction" .=) <$> _gcdvimbcbcOpenURIAction, + ("title" .=) <$> _gcdvimbcbcTitle]) diff --git a/gen/Network/Google/DialogFlow/Types/Sum.hs b/gen/Network/Google/DialogFlow/Types/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/DialogFlow/Types/Sum.hs @@ -0,0 +1,846 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.DialogFlow.Types.Sum +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.DialogFlow.Types.Sum where + +import Network.Google.Prelude hiding (Bytes) + +-- | Optional. The resource view to apply to the returned intent. +data GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView + = IntentViewUnspecified + -- ^ @INTENT_VIEW_UNSPECIFIED@ + -- Training phrases field is not populated in the response. + | IntentViewFull + -- ^ @INTENT_VIEW_FULL@ + -- All fields are populated. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView + +instance FromHttpApiData GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView where + parseQueryParam = \case + "INTENT_VIEW_UNSPECIFIED" -> Right IntentViewUnspecified + "INTENT_VIEW_FULL" -> Right IntentViewFull + x -> Left ("Unable to parse GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView where + toQueryParam = \case + IntentViewUnspecified -> "INTENT_VIEW_UNSPECIFIED" + IntentViewFull -> "INTENT_VIEW_FULL" + +instance FromJSON GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView where + parseJSON = parseJSONText "GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView" + +instance ToJSON GoogleCloudDialogflowV2BatchUpdateIntentsRequestIntentView where + toJSON = toJSONText + +-- | Required. The type of the training phrase. +data GoogleCloudDialogflowV2beta1IntentTrainingPhraseType + = TypeUnspecified + -- ^ @TYPE_UNSPECIFIED@ + -- Not specified. This value should never be used. + | Example + -- ^ @EXAMPLE@ + -- Examples do not contain \@-prefixed entity type names, but example parts + -- can be annotated with entity types. + | Template + -- ^ @TEMPLATE@ + -- Templates are not annotated with entity types, but they can contain + -- \@-prefixed entity type names as substrings. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1IntentTrainingPhraseType + +instance FromHttpApiData GoogleCloudDialogflowV2beta1IntentTrainingPhraseType where + parseQueryParam = \case + "TYPE_UNSPECIFIED" -> Right TypeUnspecified + "EXAMPLE" -> Right Example + "TEMPLATE" -> Right Template + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1IntentTrainingPhraseType from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1IntentTrainingPhraseType where + toQueryParam = \case + TypeUnspecified -> "TYPE_UNSPECIFIED" + Example -> "EXAMPLE" + Template -> "TEMPLATE" + +instance FromJSON GoogleCloudDialogflowV2beta1IntentTrainingPhraseType where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1IntentTrainingPhraseType" + +instance ToJSON GoogleCloudDialogflowV2beta1IntentTrainingPhraseType 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 +-- 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. +data GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel + = MatchConfidenceLevelUnspecified + -- ^ @MATCH_CONFIDENCE_LEVEL_UNSPECIFIED@ + -- Not specified. + | Low + -- ^ @LOW@ + -- Indicates that the confidence is low. + | Medium + -- ^ @MEDIUM@ + -- Indicates our confidence is medium. + | High + -- ^ @HIGH@ + -- Indicates our confidence is high. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel + +instance FromHttpApiData GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel where + parseQueryParam = \case + "MATCH_CONFIDENCE_LEVEL_UNSPECIFIED" -> Right MatchConfidenceLevelUnspecified + "LOW" -> Right Low + "MEDIUM" -> Right Medium + "HIGH" -> Right High + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel where + toQueryParam = \case + MatchConfidenceLevelUnspecified -> "MATCH_CONFIDENCE_LEVEL_UNSPECIFIED" + Low -> "LOW" + Medium -> "MEDIUM" + High -> "HIGH" + +instance FromJSON GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel" + +instance ToJSON GoogleCloudDialogflowV2beta1KnowledgeAnswersAnswerMatchConfidenceLevel where + toJSON = toJSONText + +-- | Required. The current state of this operation. +data GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState + = StateUnspecified + -- ^ @STATE_UNSPECIFIED@ + -- State unspecified. + | Pending + -- ^ @PENDING@ + -- The operation has been created. + | Running + -- ^ @RUNNING@ + -- The operation is currently running. + | Done + -- ^ @DONE@ + -- The operation is done, either cancelled or completed. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState + +instance FromHttpApiData GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState where + parseQueryParam = \case + "STATE_UNSPECIFIED" -> Right StateUnspecified + "PENDING" -> Right Pending + "RUNNING" -> Right Running + "DONE" -> Right Done + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState where + toQueryParam = \case + StateUnspecified -> "STATE_UNSPECIFIED" + Pending -> "PENDING" + Running -> "RUNNING" + Done -> "DONE" + +instance FromJSON GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState" + +instance ToJSON GoogleCloudDialogflowV2beta1KnowledgeOperationMetadataState where + toJSON = toJSONText + +-- | Optional. The platform that this message is intended for. +data GoogleCloudDialogflowV2IntentMessagePlatform + = PlatformUnspecified + -- ^ @PLATFORM_UNSPECIFIED@ + -- Not specified. + | Facebook + -- ^ @FACEBOOK@ + -- Facebook. + | Slack + -- ^ @SLACK@ + -- Slack. + | Telegram + -- ^ @TELEGRAM@ + -- Telegram. + | Kik + -- ^ @KIK@ + -- Kik. + | Skype + -- ^ @SKYPE@ + -- Skype. + | Line + -- ^ @LINE@ + -- Line. + | Viber + -- ^ @VIBER@ + -- Viber. + | ActionsOnGoogle + -- ^ @ACTIONS_ON_GOOGLE@ + -- Actions on Google. When using Actions on Google, you can choose one of + -- the specific Intent.Message types that mention support for Actions on + -- Google, or you can use the advanced Intent.Message.payload field. The + -- payload field provides access to AoG features not available in the + -- specific message types. If using the Intent.Message.payload field, 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) + -- + -- > { + -- > "expectUserResponse": true, + -- > "isSsml": false, + -- > "noInputPrompts": [], + -- > "richResponse": { + -- > "items": [ + -- > { + -- > "simpleResponse": { + -- > "displayText": "hi", + -- > "textToSpeech": "hello" + -- > } + -- > } + -- > ], + -- > "suggestions": [ + -- > { + -- > "title": "Say this" + -- > }, + -- > { + -- > "title": "or this" + -- > } + -- > ] + -- > }, + -- > "systemIntent": { + -- > "data": { + -- > "@type": "type.googleapis.com/google.actions.v2.OptionValueSpec", + -- > "listSelect": { + -- > "items": [ + -- > { + -- > "optionInfo": { + -- > "key": "key1", + -- > "synonyms": [ + -- > "key one" + -- > ] + -- > }, + -- > "title": "must not be empty, but unique" + -- > }, + -- > { + -- > "optionInfo": { + -- > "key": "key2", + -- > "synonyms": [ + -- > "key two" + -- > ] + -- > }, + -- > "title": "must not be empty, but unique" + -- > } + -- > ] + -- > } + -- > }, + -- > "intent": "actions.intent.OPTION" + -- > } + -- > } + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2IntentMessagePlatform + +instance FromHttpApiData GoogleCloudDialogflowV2IntentMessagePlatform where + parseQueryParam = \case + "PLATFORM_UNSPECIFIED" -> Right PlatformUnspecified + "FACEBOOK" -> Right Facebook + "SLACK" -> Right Slack + "TELEGRAM" -> Right Telegram + "KIK" -> Right Kik + "SKYPE" -> Right Skype + "LINE" -> Right Line + "VIBER" -> Right Viber + "ACTIONS_ON_GOOGLE" -> Right ActionsOnGoogle + x -> Left ("Unable to parse GoogleCloudDialogflowV2IntentMessagePlatform from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2IntentMessagePlatform where + toQueryParam = \case + PlatformUnspecified -> "PLATFORM_UNSPECIFIED" + Facebook -> "FACEBOOK" + Slack -> "SLACK" + Telegram -> "TELEGRAM" + Kik -> "KIK" + Skype -> "SKYPE" + Line -> "LINE" + Viber -> "VIBER" + ActionsOnGoogle -> "ACTIONS_ON_GOOGLE" + +instance FromJSON GoogleCloudDialogflowV2IntentMessagePlatform where + parseJSON = parseJSONText "GoogleCloudDialogflowV2IntentMessagePlatform" + +instance ToJSON GoogleCloudDialogflowV2IntentMessagePlatform where + toJSON = toJSONText + +-- | Required. The type of the training phrase. +data GoogleCloudDialogflowV2IntentTrainingPhraseType + = GCDVITPTTypeUnspecified + -- ^ @TYPE_UNSPECIFIED@ + -- Not specified. This value should never be used. + | GCDVITPTExample + -- ^ @EXAMPLE@ + -- Examples do not contain \@-prefixed entity type names, but example parts + -- can be annotated with entity types. + | GCDVITPTTemplate + -- ^ @TEMPLATE@ + -- Templates are not annotated with entity types, but they can contain + -- \@-prefixed entity type names as substrings. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2IntentTrainingPhraseType + +instance FromHttpApiData GoogleCloudDialogflowV2IntentTrainingPhraseType where + parseQueryParam = \case + "TYPE_UNSPECIFIED" -> Right GCDVITPTTypeUnspecified + "EXAMPLE" -> Right GCDVITPTExample + "TEMPLATE" -> Right GCDVITPTTemplate + x -> Left ("Unable to parse GoogleCloudDialogflowV2IntentTrainingPhraseType from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2IntentTrainingPhraseType where + toQueryParam = \case + GCDVITPTTypeUnspecified -> "TYPE_UNSPECIFIED" + GCDVITPTExample -> "EXAMPLE" + GCDVITPTTemplate -> "TEMPLATE" + +instance FromJSON GoogleCloudDialogflowV2IntentTrainingPhraseType where + parseJSON = parseJSONText "GoogleCloudDialogflowV2IntentTrainingPhraseType" + +instance ToJSON GoogleCloudDialogflowV2IntentTrainingPhraseType where + toJSON = toJSONText + +-- | Optional. Determines how intents are detected from user queries. +data GoogleCloudDialogflowV2AgentMatchMode + = MatchModeUnspecified + -- ^ @MATCH_MODE_UNSPECIFIED@ + -- Not specified. + | MatchModeHybrid + -- ^ @MATCH_MODE_HYBRID@ + -- Best for agents with a small number of examples in intents and\/or wide + -- use of templates syntax and composite entities. + | MatchModeMlOnly + -- ^ @MATCH_MODE_ML_ONLY@ + -- Can be used for agents with a large number of examples in intents, + -- especially the ones using \@sys.any or very large developer entities. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2AgentMatchMode + +instance FromHttpApiData GoogleCloudDialogflowV2AgentMatchMode where + parseQueryParam = \case + "MATCH_MODE_UNSPECIFIED" -> Right MatchModeUnspecified + "MATCH_MODE_HYBRID" -> Right MatchModeHybrid + "MATCH_MODE_ML_ONLY" -> Right MatchModeMlOnly + x -> Left ("Unable to parse GoogleCloudDialogflowV2AgentMatchMode from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2AgentMatchMode where + toQueryParam = \case + MatchModeUnspecified -> "MATCH_MODE_UNSPECIFIED" + MatchModeHybrid -> "MATCH_MODE_HYBRID" + MatchModeMlOnly -> "MATCH_MODE_ML_ONLY" + +instance FromJSON GoogleCloudDialogflowV2AgentMatchMode where + parseJSON = parseJSONText "GoogleCloudDialogflowV2AgentMatchMode" + +instance ToJSON GoogleCloudDialogflowV2AgentMatchMode where + toJSON = toJSONText + +-- | Required. Indicates whether the additional data should override or +-- supplement the developer entity type definition. +data GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode + = EntityOverrideModeUnspecified + -- ^ @ENTITY_OVERRIDE_MODE_UNSPECIFIED@ + -- Not specified. This value should be never used. + | EntityOverrideModeOverride + -- ^ @ENTITY_OVERRIDE_MODE_OVERRIDE@ + -- The collection of session entities overrides the collection of entities + -- in the corresponding developer entity type. + | EntityOverrideModeSupplement + -- ^ @ENTITY_OVERRIDE_MODE_SUPPLEMENT@ + -- The collection of session entities extends the collection of entities in + -- the corresponding developer entity type. Note: Even in this override + -- mode calls to \`ListSessionEntityTypes\`, \`GetSessionEntityType\`, + -- \`CreateSessionEntityType\` and \`UpdateSessionEntityType\` only return + -- the additional entities added in this session entity type. If you want + -- to get the supplemented list, please call EntityTypes.GetEntityType on + -- the developer entity type and merge. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode + +instance FromHttpApiData GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode where + parseQueryParam = \case + "ENTITY_OVERRIDE_MODE_UNSPECIFIED" -> Right EntityOverrideModeUnspecified + "ENTITY_OVERRIDE_MODE_OVERRIDE" -> Right EntityOverrideModeOverride + "ENTITY_OVERRIDE_MODE_SUPPLEMENT" -> Right EntityOverrideModeSupplement + x -> Left ("Unable to parse GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode where + toQueryParam = \case + EntityOverrideModeUnspecified -> "ENTITY_OVERRIDE_MODE_UNSPECIFIED" + EntityOverrideModeOverride -> "ENTITY_OVERRIDE_MODE_OVERRIDE" + EntityOverrideModeSupplement -> "ENTITY_OVERRIDE_MODE_SUPPLEMENT" + +instance FromJSON GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode where + parseJSON = parseJSONText "GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode" + +instance ToJSON GoogleCloudDialogflowV2SessionEntityTypeEntityOverrideMode where + toJSON = toJSONText + +-- | V1 error format. +data Xgafv + = X1 + -- ^ @1@ + -- v1 error format + | X2 + -- ^ @2@ + -- v2 error format + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable Xgafv + +instance FromHttpApiData Xgafv where + parseQueryParam = \case + "1" -> Right X1 + "2" -> Right X2 + x -> Left ("Unable to parse Xgafv from: " <> x) + +instance ToHttpApiData Xgafv where + toQueryParam = \case + X1 -> "1" + X2 -> "2" + +instance FromJSON Xgafv where + parseJSON = parseJSONText "Xgafv" + +instance ToJSON Xgafv where + toJSON = toJSONText + +-- | Optional. The platform that this message is intended for. +data GoogleCloudDialogflowV2beta1IntentMessagePlatform + = GCDVIMPPlatformUnspecified + -- ^ @PLATFORM_UNSPECIFIED@ + -- Not specified. + | GCDVIMPFacebook + -- ^ @FACEBOOK@ + -- Facebook. + | GCDVIMPSlack + -- ^ @SLACK@ + -- Slack. + | GCDVIMPTelegram + -- ^ @TELEGRAM@ + -- Telegram. + | GCDVIMPKik + -- ^ @KIK@ + -- Kik. + | GCDVIMPSkype + -- ^ @SKYPE@ + -- Skype. + | GCDVIMPLine + -- ^ @LINE@ + -- Line. + | GCDVIMPViber + -- ^ @VIBER@ + -- Viber. + | GCDVIMPActionsOnGoogle + -- ^ @ACTIONS_ON_GOOGLE@ + -- Actions on Google. When using Actions on Google, you can choose one of + -- the specific Intent.Message types that mention support for Actions on + -- Google, or you can use the advanced Intent.Message.payload field. The + -- payload field provides access to AoG features not available in the + -- specific message types. If using the Intent.Message.payload field, 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) + -- + -- > { + -- > "expectUserResponse": true, + -- > "isSsml": false, + -- > "noInputPrompts": [], + -- > "richResponse": { + -- > "items": [ + -- > { + -- > "simpleResponse": { + -- > "displayText": "hi", + -- > "textToSpeech": "hello" + -- > } + -- > } + -- > ], + -- > "suggestions": [ + -- > { + -- > "title": "Say this" + -- > }, + -- > { + -- > "title": "or this" + -- > } + -- > ] + -- > }, + -- > "systemIntent": { + -- > "data": { + -- > "@type": "type.googleapis.com/google.actions.v2.OptionValueSpec", + -- > "listSelect": { + -- > "items": [ + -- > { + -- > "optionInfo": { + -- > "key": "key1", + -- > "synonyms": [ + -- > "key one" + -- > ] + -- > }, + -- > "title": "must not be empty, but unique" + -- > }, + -- > { + -- > "optionInfo": { + -- > "key": "key2", + -- > "synonyms": [ + -- > "key two" + -- > ] + -- > }, + -- > "title": "must not be empty, but unique" + -- > } + -- > ] + -- > } + -- > }, + -- > "intent": "actions.intent.OPTION" + -- > } + -- > } + | GCDVIMPTelephony + -- ^ @TELEPHONY@ + -- Telephony Gateway. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1IntentMessagePlatform + +instance FromHttpApiData GoogleCloudDialogflowV2beta1IntentMessagePlatform where + parseQueryParam = \case + "PLATFORM_UNSPECIFIED" -> Right GCDVIMPPlatformUnspecified + "FACEBOOK" -> Right GCDVIMPFacebook + "SLACK" -> Right GCDVIMPSlack + "TELEGRAM" -> Right GCDVIMPTelegram + "KIK" -> Right GCDVIMPKik + "SKYPE" -> Right GCDVIMPSkype + "LINE" -> Right GCDVIMPLine + "VIBER" -> Right GCDVIMPViber + "ACTIONS_ON_GOOGLE" -> Right GCDVIMPActionsOnGoogle + "TELEPHONY" -> Right GCDVIMPTelephony + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1IntentMessagePlatform from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1IntentMessagePlatform where + toQueryParam = \case + GCDVIMPPlatformUnspecified -> "PLATFORM_UNSPECIFIED" + GCDVIMPFacebook -> "FACEBOOK" + GCDVIMPSlack -> "SLACK" + GCDVIMPTelegram -> "TELEGRAM" + GCDVIMPKik -> "KIK" + GCDVIMPSkype -> "SKYPE" + GCDVIMPLine -> "LINE" + GCDVIMPViber -> "VIBER" + GCDVIMPActionsOnGoogle -> "ACTIONS_ON_GOOGLE" + GCDVIMPTelephony -> "TELEPHONY" + +instance FromJSON GoogleCloudDialogflowV2beta1IntentMessagePlatform where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1IntentMessagePlatform" + +instance ToJSON GoogleCloudDialogflowV2beta1IntentMessagePlatform where + toJSON = toJSONText + +-- | Required. Indicates the kind of entity type. +data GoogleCloudDialogflowV2EntityTypeKind + = KindUnspecified + -- ^ @KIND_UNSPECIFIED@ + -- Not specified. This value should be never used. + | KindMap + -- ^ @KIND_MAP@ + -- Map entity types allow mapping of a group of synonyms to a canonical + -- value. + | KindList + -- ^ @KIND_LIST@ + -- List entity types contain a set of entries that do not map to canonical + -- values. However, list entity types can contain references to other + -- entity types (with or without aliases). + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2EntityTypeKind + +instance FromHttpApiData GoogleCloudDialogflowV2EntityTypeKind where + parseQueryParam = \case + "KIND_UNSPECIFIED" -> Right KindUnspecified + "KIND_MAP" -> Right KindMap + "KIND_LIST" -> Right KindList + x -> Left ("Unable to parse GoogleCloudDialogflowV2EntityTypeKind from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2EntityTypeKind where + toQueryParam = \case + KindUnspecified -> "KIND_UNSPECIFIED" + KindMap -> "KIND_MAP" + KindList -> "KIND_LIST" + +instance FromJSON GoogleCloudDialogflowV2EntityTypeKind where + parseJSON = parseJSONText "GoogleCloudDialogflowV2EntityTypeKind" + +instance ToJSON GoogleCloudDialogflowV2EntityTypeKind where + toJSON = toJSONText + +-- | Optional. Indicates whether webhooks are enabled for the intent. +data GoogleCloudDialogflowV2beta1IntentWebhookState + = WebhookStateUnspecified + -- ^ @WEBHOOK_STATE_UNSPECIFIED@ + -- Webhook is disabled in the agent and in the intent. + | WebhookStateEnabled + -- ^ @WEBHOOK_STATE_ENABLED@ + -- Webhook is enabled in the agent and in the intent. + | WebhookStateEnabledForSlotFilling + -- ^ @WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING@ + -- Webhook is enabled in the agent and in the intent. Also, each slot + -- filling prompt is forwarded to the webhook. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1IntentWebhookState + +instance FromHttpApiData GoogleCloudDialogflowV2beta1IntentWebhookState where + parseQueryParam = \case + "WEBHOOK_STATE_UNSPECIFIED" -> Right WebhookStateUnspecified + "WEBHOOK_STATE_ENABLED" -> Right WebhookStateEnabled + "WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING" -> Right WebhookStateEnabledForSlotFilling + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1IntentWebhookState from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1IntentWebhookState where + toQueryParam = \case + WebhookStateUnspecified -> "WEBHOOK_STATE_UNSPECIFIED" + WebhookStateEnabled -> "WEBHOOK_STATE_ENABLED" + WebhookStateEnabledForSlotFilling -> "WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING" + +instance FromJSON GoogleCloudDialogflowV2beta1IntentWebhookState where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1IntentWebhookState" + +instance ToJSON GoogleCloudDialogflowV2beta1IntentWebhookState where + toJSON = toJSONText + +-- | Optional. Indicates whether the entity type can be automatically +-- expanded. +data GoogleCloudDialogflowV2EntityTypeAutoExpansionMode + = AutoExpansionModeUnspecified + -- ^ @AUTO_EXPANSION_MODE_UNSPECIFIED@ + -- Auto expansion disabled for the entity. + | AutoExpansionModeDefault + -- ^ @AUTO_EXPANSION_MODE_DEFAULT@ + -- Allows an agent to recognize values that have not been explicitly listed + -- in the entity. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2EntityTypeAutoExpansionMode + +instance FromHttpApiData GoogleCloudDialogflowV2EntityTypeAutoExpansionMode where + parseQueryParam = \case + "AUTO_EXPANSION_MODE_UNSPECIFIED" -> Right AutoExpansionModeUnspecified + "AUTO_EXPANSION_MODE_DEFAULT" -> Right AutoExpansionModeDefault + x -> Left ("Unable to parse GoogleCloudDialogflowV2EntityTypeAutoExpansionMode from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2EntityTypeAutoExpansionMode where + toQueryParam = \case + AutoExpansionModeUnspecified -> "AUTO_EXPANSION_MODE_UNSPECIFIED" + AutoExpansionModeDefault -> "AUTO_EXPANSION_MODE_DEFAULT" + +instance FromJSON GoogleCloudDialogflowV2EntityTypeAutoExpansionMode where + parseJSON = parseJSONText "GoogleCloudDialogflowV2EntityTypeAutoExpansionMode" + +instance ToJSON GoogleCloudDialogflowV2EntityTypeAutoExpansionMode where + toJSON = toJSONText + +-- | Optional. Indicates whether the entity type can be automatically +-- expanded. +data GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode + = GCDVETAEMAutoExpansionModeUnspecified + -- ^ @AUTO_EXPANSION_MODE_UNSPECIFIED@ + -- Auto expansion disabled for the entity. + | GCDVETAEMAutoExpansionModeDefault + -- ^ @AUTO_EXPANSION_MODE_DEFAULT@ + -- Allows an agent to recognize values that have not been explicitly listed + -- in the entity. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode + +instance FromHttpApiData GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode where + parseQueryParam = \case + "AUTO_EXPANSION_MODE_UNSPECIFIED" -> Right GCDVETAEMAutoExpansionModeUnspecified + "AUTO_EXPANSION_MODE_DEFAULT" -> Right GCDVETAEMAutoExpansionModeDefault + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode where + toQueryParam = \case + GCDVETAEMAutoExpansionModeUnspecified -> "AUTO_EXPANSION_MODE_UNSPECIFIED" + GCDVETAEMAutoExpansionModeDefault -> "AUTO_EXPANSION_MODE_DEFAULT" + +instance FromJSON GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode" + +instance ToJSON GoogleCloudDialogflowV2beta1EntityTypeAutoExpansionMode where + toJSON = toJSONText + +-- | Required. Indicates the kind of entity type. +data GoogleCloudDialogflowV2beta1EntityTypeKind + = GCDVETKKindUnspecified + -- ^ @KIND_UNSPECIFIED@ + -- Not specified. This value should be never used. + | GCDVETKKindMap + -- ^ @KIND_MAP@ + -- Map entity types allow mapping of a group of synonyms to a canonical + -- value. + | GCDVETKKindList + -- ^ @KIND_LIST@ + -- List entity types contain a set of entries that do not map to canonical + -- values. However, list entity types can contain references to other + -- entity types (with or without aliases). + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2beta1EntityTypeKind + +instance FromHttpApiData GoogleCloudDialogflowV2beta1EntityTypeKind where + parseQueryParam = \case + "KIND_UNSPECIFIED" -> Right GCDVETKKindUnspecified + "KIND_MAP" -> Right GCDVETKKindMap + "KIND_LIST" -> Right GCDVETKKindList + x -> Left ("Unable to parse GoogleCloudDialogflowV2beta1EntityTypeKind from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2beta1EntityTypeKind where + toQueryParam = \case + GCDVETKKindUnspecified -> "KIND_UNSPECIFIED" + GCDVETKKindMap -> "KIND_MAP" + GCDVETKKindList -> "KIND_LIST" + +instance FromJSON GoogleCloudDialogflowV2beta1EntityTypeKind where + parseJSON = parseJSONText "GoogleCloudDialogflowV2beta1EntityTypeKind" + +instance ToJSON GoogleCloudDialogflowV2beta1EntityTypeKind where + toJSON = toJSONText + +-- | Optional. Indicates whether webhooks are enabled for the intent. +data GoogleCloudDialogflowV2IntentWebhookState + = GCDVIWSWebhookStateUnspecified + -- ^ @WEBHOOK_STATE_UNSPECIFIED@ + -- Webhook is disabled in the agent and in the intent. + | GCDVIWSWebhookStateEnabled + -- ^ @WEBHOOK_STATE_ENABLED@ + -- Webhook is enabled in the agent and in the intent. + | GCDVIWSWebhookStateEnabledForSlotFilling + -- ^ @WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING@ + -- Webhook is enabled in the agent and in the intent. Also, each slot + -- filling prompt is forwarded to the webhook. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2IntentWebhookState + +instance FromHttpApiData GoogleCloudDialogflowV2IntentWebhookState where + parseQueryParam = \case + "WEBHOOK_STATE_UNSPECIFIED" -> Right GCDVIWSWebhookStateUnspecified + "WEBHOOK_STATE_ENABLED" -> Right GCDVIWSWebhookStateEnabled + "WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING" -> Right GCDVIWSWebhookStateEnabledForSlotFilling + x -> Left ("Unable to parse GoogleCloudDialogflowV2IntentWebhookState from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2IntentWebhookState where + toQueryParam = \case + GCDVIWSWebhookStateUnspecified -> "WEBHOOK_STATE_UNSPECIFIED" + GCDVIWSWebhookStateEnabled -> "WEBHOOK_STATE_ENABLED" + GCDVIWSWebhookStateEnabledForSlotFilling -> "WEBHOOK_STATE_ENABLED_FOR_SLOT_FILLING" + +instance FromJSON GoogleCloudDialogflowV2IntentWebhookState where + parseJSON = parseJSONText "GoogleCloudDialogflowV2IntentWebhookState" + +instance ToJSON GoogleCloudDialogflowV2IntentWebhookState where + toJSON = toJSONText + +-- | Required. Audio encoding of the audio content to process. +data GoogleCloudDialogflowV2InputAudioConfigAudioEncoding + = AudioEncodingUnspecified + -- ^ @AUDIO_ENCODING_UNSPECIFIED@ + -- Not specified. + | AudioEncodingLinear16 + -- ^ @AUDIO_ENCODING_LINEAR_16@ + -- Uncompressed 16-bit signed little-endian samples (Linear PCM). + | AudioEncodingFlac + -- ^ @AUDIO_ENCODING_FLAC@ + -- [\`FLAC\`](https:\/\/xiph.org\/flac\/documentation.html) (Free Lossless + -- Audio Codec) is the recommended encoding because it is lossless + -- (therefore recognition is not compromised) and requires only about half + -- the bandwidth of \`LINEAR16\`. \`FLAC\` stream encoding supports 16-bit + -- and 24-bit samples, however, not all fields in \`STREAMINFO\` are + -- supported. + | AudioEncodingMulaw + -- ^ @AUDIO_ENCODING_MULAW@ + -- 8-bit samples that compand 14-bit audio samples using G.711 + -- PCMU\/mu-law. + | AudioEncodingAmr + -- ^ @AUDIO_ENCODING_AMR@ + -- Adaptive Multi-Rate Narrowband codec. \`sample_rate_hertz\` must be + -- 8000. + | AudioEncodingAmrWb + -- ^ @AUDIO_ENCODING_AMR_WB@ + -- Adaptive Multi-Rate Wideband codec. \`sample_rate_hertz\` must be 16000. + | AudioEncodingOggOpus + -- ^ @AUDIO_ENCODING_OGG_OPUS@ + -- Opus encoded audio frames in Ogg container + -- ([OggOpus](https:\/\/wiki.xiph.org\/OggOpus)). \`sample_rate_hertz\` + -- must be 16000. + | AudioEncodingSpeexWithHeaderByte + -- ^ @AUDIO_ENCODING_SPEEX_WITH_HEADER_BYTE@ + -- Although the use of lossy encodings is not recommended, if a very low + -- bitrate encoding is required, \`OGG_OPUS\` is highly preferred over + -- Speex encoding. The [Speex](https:\/\/speex.org\/) encoding supported by + -- Dialogflow API has a header byte in each block, as in MIME type + -- \`audio\/x-speex-with-header-byte\`. It is a variant of the RTP Speex + -- encoding defined in [RFC 5574](https:\/\/tools.ietf.org\/html\/rfc5574). + -- The stream is a sequence of blocks, one block per RTP packet. Each block + -- starts with a byte containing the length of the block, in bytes, + -- followed by one or more frames of Speex data, padded to an integral + -- number of bytes (octets) as specified in RFC 5574. In other words, each + -- RTP header is replaced with a single byte containing the block length. + -- Only Speex wideband is supported. \`sample_rate_hertz\` must be 16000. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable GoogleCloudDialogflowV2InputAudioConfigAudioEncoding + +instance FromHttpApiData GoogleCloudDialogflowV2InputAudioConfigAudioEncoding where + parseQueryParam = \case + "AUDIO_ENCODING_UNSPECIFIED" -> Right AudioEncodingUnspecified + "AUDIO_ENCODING_LINEAR_16" -> Right AudioEncodingLinear16 + "AUDIO_ENCODING_FLAC" -> Right AudioEncodingFlac + "AUDIO_ENCODING_MULAW" -> Right AudioEncodingMulaw + "AUDIO_ENCODING_AMR" -> Right AudioEncodingAmr + "AUDIO_ENCODING_AMR_WB" -> Right AudioEncodingAmrWb + "AUDIO_ENCODING_OGG_OPUS" -> Right AudioEncodingOggOpus + "AUDIO_ENCODING_SPEEX_WITH_HEADER_BYTE" -> Right AudioEncodingSpeexWithHeaderByte + x -> Left ("Unable to parse GoogleCloudDialogflowV2InputAudioConfigAudioEncoding from: " <> x) + +instance ToHttpApiData GoogleCloudDialogflowV2InputAudioConfigAudioEncoding where + toQueryParam = \case + AudioEncodingUnspecified -> "AUDIO_ENCODING_UNSPECIFIED" + AudioEncodingLinear16 -> "AUDIO_ENCODING_LINEAR_16" + AudioEncodingFlac -> "AUDIO_ENCODING_FLAC" + AudioEncodingMulaw -> "AUDIO_ENCODING_MULAW" + AudioEncodingAmr -> "AUDIO_ENCODING_AMR" + AudioEncodingAmrWb -> "AUDIO_ENCODING_AMR_WB" + AudioEncodingOggOpus -> "AUDIO_ENCODING_OGG_OPUS" + AudioEncodingSpeexWithHeaderByte -> "AUDIO_ENCODING_SPEEX_WITH_HEADER_BYTE" + +instance FromJSON GoogleCloudDialogflowV2InputAudioConfigAudioEncoding where + parseJSON = parseJSONText "GoogleCloudDialogflowV2InputAudioConfigAudioEncoding" + +instance ToJSON GoogleCloudDialogflowV2InputAudioConfigAudioEncoding where + toJSON = toJSONText diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchDelete.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchDelete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes entity types in the specified agent. Operation +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.batchDelete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchDelete + ( + -- * REST Resource + ProjectsAgentEntityTypesBatchDeleteResource + + -- * Creating a Request + , projectsAgentEntityTypesBatchDelete + , ProjectsAgentEntityTypesBatchDelete + + -- * Request Lenses + , paetbdParent + , paetbdXgafv + , paetbdUploadProtocol + , paetbdAccessToken + , paetbdUploadType + , paetbdPayload + , paetbdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.batchDelete@ method which the +-- 'ProjectsAgentEntityTypesBatchDelete' request conforms to. +type ProjectsAgentEntityTypesBatchDeleteResource = + "v2" :> + Capture "parent" Text :> + "entityTypes:batchDelete" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Deletes entity types in the specified agent. Operation +-- +-- /See:/ 'projectsAgentEntityTypesBatchDelete' smart constructor. +data ProjectsAgentEntityTypesBatchDelete = ProjectsAgentEntityTypesBatchDelete' + { _paetbdParent :: !Text + , _paetbdXgafv :: !(Maybe Xgafv) + , _paetbdUploadProtocol :: !(Maybe Text) + , _paetbdAccessToken :: !(Maybe Text) + , _paetbdUploadType :: !(Maybe Text) + , _paetbdPayload :: !GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest + , _paetbdCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetbdParent' +-- +-- * 'paetbdXgafv' +-- +-- * 'paetbdUploadProtocol' +-- +-- * 'paetbdAccessToken' +-- +-- * 'paetbdUploadType' +-- +-- * 'paetbdPayload' +-- +-- * 'paetbdCallback' +projectsAgentEntityTypesBatchDelete + :: Text -- ^ 'paetbdParent' + -> GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest -- ^ 'paetbdPayload' + -> ProjectsAgentEntityTypesBatchDelete +projectsAgentEntityTypesBatchDelete pPaetbdParent_ pPaetbdPayload_ = + ProjectsAgentEntityTypesBatchDelete' + { _paetbdParent = pPaetbdParent_ + , _paetbdXgafv = Nothing + , _paetbdUploadProtocol = Nothing + , _paetbdAccessToken = Nothing + , _paetbdUploadType = Nothing + , _paetbdPayload = pPaetbdPayload_ + , _paetbdCallback = Nothing + } + +-- | Required. The name of the agent to delete all entities types for. +-- Format: \`projects\/\/agent\`. +paetbdParent :: Lens' ProjectsAgentEntityTypesBatchDelete Text +paetbdParent + = lens _paetbdParent (\ s a -> s{_paetbdParent = a}) + +-- | V1 error format. +paetbdXgafv :: Lens' ProjectsAgentEntityTypesBatchDelete (Maybe Xgafv) +paetbdXgafv + = lens _paetbdXgafv (\ s a -> s{_paetbdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetbdUploadProtocol :: Lens' ProjectsAgentEntityTypesBatchDelete (Maybe Text) +paetbdUploadProtocol + = lens _paetbdUploadProtocol + (\ s a -> s{_paetbdUploadProtocol = a}) + +-- | OAuth access token. +paetbdAccessToken :: Lens' ProjectsAgentEntityTypesBatchDelete (Maybe Text) +paetbdAccessToken + = lens _paetbdAccessToken + (\ s a -> s{_paetbdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetbdUploadType :: Lens' ProjectsAgentEntityTypesBatchDelete (Maybe Text) +paetbdUploadType + = lens _paetbdUploadType + (\ s a -> s{_paetbdUploadType = a}) + +-- | Multipart request metadata. +paetbdPayload :: Lens' ProjectsAgentEntityTypesBatchDelete GoogleCloudDialogflowV2BatchDeleteEntityTypesRequest +paetbdPayload + = lens _paetbdPayload + (\ s a -> s{_paetbdPayload = a}) + +-- | JSONP +paetbdCallback :: Lens' ProjectsAgentEntityTypesBatchDelete (Maybe Text) +paetbdCallback + = lens _paetbdCallback + (\ s a -> s{_paetbdCallback = a}) + +instance GoogleRequest + ProjectsAgentEntityTypesBatchDelete where + type Rs ProjectsAgentEntityTypesBatchDelete = + GoogleLongrunningOperation + type Scopes ProjectsAgentEntityTypesBatchDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentEntityTypesBatchDelete'{..} + = go _paetbdParent _paetbdXgafv _paetbdUploadProtocol + _paetbdAccessToken + _paetbdUploadType + _paetbdCallback + (Just AltJSON) + _paetbdPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentEntityTypesBatchDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/BatchUpdate.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchUpdate +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates\/Creates multiple entity types in the specified agent. Operation +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.batchUpdate@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchUpdate + ( + -- * REST Resource + ProjectsAgentEntityTypesBatchUpdateResource + + -- * Creating a Request + , projectsAgentEntityTypesBatchUpdate + , ProjectsAgentEntityTypesBatchUpdate + + -- * Request Lenses + , paetbuParent + , paetbuXgafv + , paetbuUploadProtocol + , paetbuAccessToken + , paetbuUploadType + , paetbuPayload + , paetbuCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.batchUpdate@ method which the +-- 'ProjectsAgentEntityTypesBatchUpdate' request conforms to. +type ProjectsAgentEntityTypesBatchUpdateResource = + "v2" :> + Capture "parent" Text :> + "entityTypes:batchUpdate" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Updates\/Creates multiple entity types in the specified agent. Operation +-- +-- /See:/ 'projectsAgentEntityTypesBatchUpdate' smart constructor. +data ProjectsAgentEntityTypesBatchUpdate = ProjectsAgentEntityTypesBatchUpdate' + { _paetbuParent :: !Text + , _paetbuXgafv :: !(Maybe Xgafv) + , _paetbuUploadProtocol :: !(Maybe Text) + , _paetbuAccessToken :: !(Maybe Text) + , _paetbuUploadType :: !(Maybe Text) + , _paetbuPayload :: !GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest + , _paetbuCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetbuParent' +-- +-- * 'paetbuXgafv' +-- +-- * 'paetbuUploadProtocol' +-- +-- * 'paetbuAccessToken' +-- +-- * 'paetbuUploadType' +-- +-- * 'paetbuPayload' +-- +-- * 'paetbuCallback' +projectsAgentEntityTypesBatchUpdate + :: Text -- ^ 'paetbuParent' + -> GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest -- ^ 'paetbuPayload' + -> ProjectsAgentEntityTypesBatchUpdate +projectsAgentEntityTypesBatchUpdate pPaetbuParent_ pPaetbuPayload_ = + ProjectsAgentEntityTypesBatchUpdate' + { _paetbuParent = pPaetbuParent_ + , _paetbuXgafv = Nothing + , _paetbuUploadProtocol = Nothing + , _paetbuAccessToken = Nothing + , _paetbuUploadType = Nothing + , _paetbuPayload = pPaetbuPayload_ + , _paetbuCallback = Nothing + } + +-- | Required. The name of the agent to update or create entity types in. +-- Format: \`projects\/\/agent\`. +paetbuParent :: Lens' ProjectsAgentEntityTypesBatchUpdate Text +paetbuParent + = lens _paetbuParent (\ s a -> s{_paetbuParent = a}) + +-- | V1 error format. +paetbuXgafv :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Xgafv) +paetbuXgafv + = lens _paetbuXgafv (\ s a -> s{_paetbuXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetbuUploadProtocol :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text) +paetbuUploadProtocol + = lens _paetbuUploadProtocol + (\ s a -> s{_paetbuUploadProtocol = a}) + +-- | OAuth access token. +paetbuAccessToken :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text) +paetbuAccessToken + = lens _paetbuAccessToken + (\ s a -> s{_paetbuAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetbuUploadType :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text) +paetbuUploadType + = lens _paetbuUploadType + (\ s a -> s{_paetbuUploadType = a}) + +-- | Multipart request metadata. +paetbuPayload :: Lens' ProjectsAgentEntityTypesBatchUpdate GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest +paetbuPayload + = lens _paetbuPayload + (\ s a -> s{_paetbuPayload = a}) + +-- | JSONP +paetbuCallback :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text) +paetbuCallback + = lens _paetbuCallback + (\ s a -> s{_paetbuCallback = a}) + +instance GoogleRequest + ProjectsAgentEntityTypesBatchUpdate where + type Rs ProjectsAgentEntityTypesBatchUpdate = + GoogleLongrunningOperation + type Scopes ProjectsAgentEntityTypesBatchUpdate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentEntityTypesBatchUpdate'{..} + = go _paetbuParent _paetbuXgafv _paetbuUploadProtocol + _paetbuAccessToken + _paetbuUploadType + _paetbuCallback + (Just AltJSON) + _paetbuPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentEntityTypesBatchUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Create.hs @@ -0,0 +1,184 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Create +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates an entity type in the specified agent. +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.create@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Create + ( + -- * REST Resource + ProjectsAgentEntityTypesCreateResource + + -- * Creating a Request + , projectsAgentEntityTypesCreate + , ProjectsAgentEntityTypesCreate + + -- * Request Lenses + , paetcParent + , paetcXgafv + , paetcLanguageCode + , paetcUploadProtocol + , paetcAccessToken + , paetcUploadType + , paetcPayload + , paetcCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.create@ method which the +-- 'ProjectsAgentEntityTypesCreate' request conforms to. +type ProjectsAgentEntityTypesCreateResource = + "v2" :> + Capture "parent" Text :> + "entityTypes" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2EntityType :> + Post '[JSON] GoogleCloudDialogflowV2EntityType + +-- | Creates an entity type in the specified agent. +-- +-- /See:/ 'projectsAgentEntityTypesCreate' smart constructor. +data ProjectsAgentEntityTypesCreate = ProjectsAgentEntityTypesCreate' + { _paetcParent :: !Text + , _paetcXgafv :: !(Maybe Xgafv) + , _paetcLanguageCode :: !(Maybe Text) + , _paetcUploadProtocol :: !(Maybe Text) + , _paetcAccessToken :: !(Maybe Text) + , _paetcUploadType :: !(Maybe Text) + , _paetcPayload :: !GoogleCloudDialogflowV2EntityType + , _paetcCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetcParent' +-- +-- * 'paetcXgafv' +-- +-- * 'paetcLanguageCode' +-- +-- * 'paetcUploadProtocol' +-- +-- * 'paetcAccessToken' +-- +-- * 'paetcUploadType' +-- +-- * 'paetcPayload' +-- +-- * 'paetcCallback' +projectsAgentEntityTypesCreate + :: Text -- ^ 'paetcParent' + -> GoogleCloudDialogflowV2EntityType -- ^ 'paetcPayload' + -> ProjectsAgentEntityTypesCreate +projectsAgentEntityTypesCreate pPaetcParent_ pPaetcPayload_ = + ProjectsAgentEntityTypesCreate' + { _paetcParent = pPaetcParent_ + , _paetcXgafv = Nothing + , _paetcLanguageCode = Nothing + , _paetcUploadProtocol = Nothing + , _paetcAccessToken = Nothing + , _paetcUploadType = Nothing + , _paetcPayload = pPaetcPayload_ + , _paetcCallback = Nothing + } + +-- | Required. The agent to create a entity type for. Format: +-- \`projects\/\/agent\`. +paetcParent :: Lens' ProjectsAgentEntityTypesCreate Text +paetcParent + = lens _paetcParent (\ s a -> s{_paetcParent = a}) + +-- | V1 error format. +paetcXgafv :: Lens' ProjectsAgentEntityTypesCreate (Maybe Xgafv) +paetcXgafv + = 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. +paetcLanguageCode :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) +paetcLanguageCode + = lens _paetcLanguageCode + (\ s a -> s{_paetcLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetcUploadProtocol :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) +paetcUploadProtocol + = lens _paetcUploadProtocol + (\ s a -> s{_paetcUploadProtocol = a}) + +-- | OAuth access token. +paetcAccessToken :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) +paetcAccessToken + = lens _paetcAccessToken + (\ s a -> s{_paetcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetcUploadType :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) +paetcUploadType + = lens _paetcUploadType + (\ s a -> s{_paetcUploadType = a}) + +-- | Multipart request metadata. +paetcPayload :: Lens' ProjectsAgentEntityTypesCreate GoogleCloudDialogflowV2EntityType +paetcPayload + = lens _paetcPayload (\ s a -> s{_paetcPayload = a}) + +-- | JSONP +paetcCallback :: Lens' ProjectsAgentEntityTypesCreate (Maybe Text) +paetcCallback + = lens _paetcCallback + (\ s a -> s{_paetcCallback = a}) + +instance GoogleRequest ProjectsAgentEntityTypesCreate + where + type Rs ProjectsAgentEntityTypesCreate = + GoogleCloudDialogflowV2EntityType + type Scopes ProjectsAgentEntityTypesCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentEntityTypesCreate'{..} + = go _paetcParent _paetcXgafv _paetcLanguageCode + _paetcUploadProtocol + _paetcAccessToken + _paetcUploadType + _paetcCallback + (Just AltJSON) + _paetcPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentEntityTypesCreateResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Delete.hs @@ -0,0 +1,153 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified entity type. +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.delete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Delete + ( + -- * REST Resource + ProjectsAgentEntityTypesDeleteResource + + -- * Creating a Request + , projectsAgentEntityTypesDelete + , ProjectsAgentEntityTypesDelete + + -- * Request Lenses + , paetdXgafv + , paetdUploadProtocol + , paetdAccessToken + , paetdUploadType + , paetdName + , paetdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.delete@ method which the +-- 'ProjectsAgentEntityTypesDelete' request conforms to. +type ProjectsAgentEntityTypesDeleteResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Deletes the specified entity type. +-- +-- /See:/ 'projectsAgentEntityTypesDelete' smart constructor. +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) + +-- | 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: +-- +-- * 'paetdXgafv' +-- +-- * 'paetdUploadProtocol' +-- +-- * 'paetdAccessToken' +-- +-- * 'paetdUploadType' +-- +-- * 'paetdName' +-- +-- * 'paetdCallback' +projectsAgentEntityTypesDelete + :: Text -- ^ 'paetdName' + -> ProjectsAgentEntityTypesDelete +projectsAgentEntityTypesDelete pPaetdName_ = + ProjectsAgentEntityTypesDelete' + { _paetdXgafv = Nothing + , _paetdUploadProtocol = Nothing + , _paetdAccessToken = Nothing + , _paetdUploadType = Nothing + , _paetdName = pPaetdName_ + , _paetdCallback = Nothing + } + +-- | V1 error format. +paetdXgafv :: Lens' ProjectsAgentEntityTypesDelete (Maybe Xgafv) +paetdXgafv + = lens _paetdXgafv (\ s a -> s{_paetdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetdUploadProtocol :: Lens' ProjectsAgentEntityTypesDelete (Maybe Text) +paetdUploadProtocol + = lens _paetdUploadProtocol + (\ s a -> s{_paetdUploadProtocol = a}) + +-- | OAuth access token. +paetdAccessToken :: Lens' ProjectsAgentEntityTypesDelete (Maybe Text) +paetdAccessToken + = lens _paetdAccessToken + (\ s a -> s{_paetdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetdUploadType :: Lens' ProjectsAgentEntityTypesDelete (Maybe Text) +paetdUploadType + = lens _paetdUploadType + (\ s a -> s{_paetdUploadType = a}) + +-- | Required. The name of the entity type to delete. Format: +-- \`projects\/\/agent\/entityTypes\/\`. +paetdName :: Lens' ProjectsAgentEntityTypesDelete Text +paetdName + = lens _paetdName (\ s a -> s{_paetdName = a}) + +-- | JSONP +paetdCallback :: Lens' ProjectsAgentEntityTypesDelete (Maybe Text) +paetdCallback + = lens _paetdCallback + (\ s a -> s{_paetdCallback = a}) + +instance GoogleRequest ProjectsAgentEntityTypesDelete + where + type Rs ProjectsAgentEntityTypesDelete = + GoogleProtobufEmpty + type Scopes ProjectsAgentEntityTypesDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentEntityTypesDelete'{..} + = go _paetdName _paetdXgafv _paetdUploadProtocol + _paetdAccessToken + _paetdUploadType + _paetdCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentEntityTypesDeleteResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchCreate.hs @@ -0,0 +1,176 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchCreate +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates multiple new entities in the specified entity type. Operation +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.entities.batchCreate@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchCreate + ( + -- * REST Resource + ProjectsAgentEntityTypesEntitiesBatchCreateResource + + -- * Creating a Request + , projectsAgentEntityTypesEntitiesBatchCreate + , ProjectsAgentEntityTypesEntitiesBatchCreate + + -- * Request Lenses + , paetebcParent + , paetebcXgafv + , paetebcUploadProtocol + , paetebcAccessToken + , paetebcUploadType + , paetebcPayload + , paetebcCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.entities.batchCreate@ method which the +-- 'ProjectsAgentEntityTypesEntitiesBatchCreate' request conforms to. +type ProjectsAgentEntityTypesEntitiesBatchCreateResource + = + "v2" :> + Capture "parent" Text :> + "entities:batchCreate" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchCreateEntitiesRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Creates multiple new entities in the specified entity type. Operation +-- +-- /See:/ 'projectsAgentEntityTypesEntitiesBatchCreate' smart constructor. +data ProjectsAgentEntityTypesEntitiesBatchCreate = ProjectsAgentEntityTypesEntitiesBatchCreate' + { _paetebcParent :: !Text + , _paetebcXgafv :: !(Maybe Xgafv) + , _paetebcUploadProtocol :: !(Maybe Text) + , _paetebcAccessToken :: !(Maybe Text) + , _paetebcUploadType :: !(Maybe Text) + , _paetebcPayload :: !GoogleCloudDialogflowV2BatchCreateEntitiesRequest + , _paetebcCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetebcParent' +-- +-- * 'paetebcXgafv' +-- +-- * 'paetebcUploadProtocol' +-- +-- * 'paetebcAccessToken' +-- +-- * 'paetebcUploadType' +-- +-- * 'paetebcPayload' +-- +-- * 'paetebcCallback' +projectsAgentEntityTypesEntitiesBatchCreate + :: Text -- ^ 'paetebcParent' + -> GoogleCloudDialogflowV2BatchCreateEntitiesRequest -- ^ 'paetebcPayload' + -> ProjectsAgentEntityTypesEntitiesBatchCreate +projectsAgentEntityTypesEntitiesBatchCreate pPaetebcParent_ pPaetebcPayload_ = + ProjectsAgentEntityTypesEntitiesBatchCreate' + { _paetebcParent = pPaetebcParent_ + , _paetebcXgafv = Nothing + , _paetebcUploadProtocol = Nothing + , _paetebcAccessToken = Nothing + , _paetebcUploadType = Nothing + , _paetebcPayload = pPaetebcPayload_ + , _paetebcCallback = Nothing + } + +-- | Required. The name of the entity type to create entities in. Format: +-- \`projects\/\/agent\/entityTypes\/\`. +paetebcParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate Text +paetebcParent + = lens _paetebcParent + (\ s a -> s{_paetebcParent = a}) + +-- | V1 error format. +paetebcXgafv :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate (Maybe Xgafv) +paetebcXgafv + = lens _paetebcXgafv (\ s a -> s{_paetebcXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetebcUploadProtocol :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate (Maybe Text) +paetebcUploadProtocol + = lens _paetebcUploadProtocol + (\ s a -> s{_paetebcUploadProtocol = a}) + +-- | OAuth access token. +paetebcAccessToken :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate (Maybe Text) +paetebcAccessToken + = lens _paetebcAccessToken + (\ s a -> s{_paetebcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetebcUploadType :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate (Maybe Text) +paetebcUploadType + = lens _paetebcUploadType + (\ s a -> s{_paetebcUploadType = a}) + +-- | Multipart request metadata. +paetebcPayload :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate GoogleCloudDialogflowV2BatchCreateEntitiesRequest +paetebcPayload + = lens _paetebcPayload + (\ s a -> s{_paetebcPayload = a}) + +-- | JSONP +paetebcCallback :: Lens' ProjectsAgentEntityTypesEntitiesBatchCreate (Maybe Text) +paetebcCallback + = lens _paetebcCallback + (\ s a -> s{_paetebcCallback = a}) + +instance GoogleRequest + ProjectsAgentEntityTypesEntitiesBatchCreate where + type Rs ProjectsAgentEntityTypesEntitiesBatchCreate = + GoogleLongrunningOperation + type Scopes + ProjectsAgentEntityTypesEntitiesBatchCreate + = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentEntityTypesEntitiesBatchCreate'{..} + = go _paetebcParent _paetebcXgafv + _paetebcUploadProtocol + _paetebcAccessToken + _paetebcUploadType + _paetebcCallback + (Just AltJSON) + _paetebcPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy + ProjectsAgentEntityTypesEntitiesBatchCreateResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchDelete.hs @@ -0,0 +1,176 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchDelete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes entities in the specified entity type. Operation +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.entities.batchDelete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchDelete + ( + -- * REST Resource + ProjectsAgentEntityTypesEntitiesBatchDeleteResource + + -- * Creating a Request + , projectsAgentEntityTypesEntitiesBatchDelete + , ProjectsAgentEntityTypesEntitiesBatchDelete + + -- * Request Lenses + , paetebdParent + , paetebdXgafv + , paetebdUploadProtocol + , paetebdAccessToken + , paetebdUploadType + , paetebdPayload + , paetebdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.entities.batchDelete@ method which the +-- 'ProjectsAgentEntityTypesEntitiesBatchDelete' request conforms to. +type ProjectsAgentEntityTypesEntitiesBatchDeleteResource + = + "v2" :> + Capture "parent" Text :> + "entities:batchDelete" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Deletes entities in the specified entity type. Operation +-- +-- /See:/ 'projectsAgentEntityTypesEntitiesBatchDelete' smart constructor. +data ProjectsAgentEntityTypesEntitiesBatchDelete = ProjectsAgentEntityTypesEntitiesBatchDelete' + { _paetebdParent :: !Text + , _paetebdXgafv :: !(Maybe Xgafv) + , _paetebdUploadProtocol :: !(Maybe Text) + , _paetebdAccessToken :: !(Maybe Text) + , _paetebdUploadType :: !(Maybe Text) + , _paetebdPayload :: !GoogleCloudDialogflowV2BatchDeleteEntitiesRequest + , _paetebdCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetebdParent' +-- +-- * 'paetebdXgafv' +-- +-- * 'paetebdUploadProtocol' +-- +-- * 'paetebdAccessToken' +-- +-- * 'paetebdUploadType' +-- +-- * 'paetebdPayload' +-- +-- * 'paetebdCallback' +projectsAgentEntityTypesEntitiesBatchDelete + :: Text -- ^ 'paetebdParent' + -> GoogleCloudDialogflowV2BatchDeleteEntitiesRequest -- ^ 'paetebdPayload' + -> ProjectsAgentEntityTypesEntitiesBatchDelete +projectsAgentEntityTypesEntitiesBatchDelete pPaetebdParent_ pPaetebdPayload_ = + ProjectsAgentEntityTypesEntitiesBatchDelete' + { _paetebdParent = pPaetebdParent_ + , _paetebdXgafv = Nothing + , _paetebdUploadProtocol = Nothing + , _paetebdAccessToken = Nothing + , _paetebdUploadType = Nothing + , _paetebdPayload = pPaetebdPayload_ + , _paetebdCallback = Nothing + } + +-- | Required. The name of the entity type to delete entries for. Format: +-- \`projects\/\/agent\/entityTypes\/\`. +paetebdParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete Text +paetebdParent + = lens _paetebdParent + (\ s a -> s{_paetebdParent = a}) + +-- | V1 error format. +paetebdXgafv :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete (Maybe Xgafv) +paetebdXgafv + = lens _paetebdXgafv (\ s a -> s{_paetebdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetebdUploadProtocol :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete (Maybe Text) +paetebdUploadProtocol + = lens _paetebdUploadProtocol + (\ s a -> s{_paetebdUploadProtocol = a}) + +-- | OAuth access token. +paetebdAccessToken :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete (Maybe Text) +paetebdAccessToken + = lens _paetebdAccessToken + (\ s a -> s{_paetebdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetebdUploadType :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete (Maybe Text) +paetebdUploadType + = lens _paetebdUploadType + (\ s a -> s{_paetebdUploadType = a}) + +-- | Multipart request metadata. +paetebdPayload :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete GoogleCloudDialogflowV2BatchDeleteEntitiesRequest +paetebdPayload + = lens _paetebdPayload + (\ s a -> s{_paetebdPayload = a}) + +-- | JSONP +paetebdCallback :: Lens' ProjectsAgentEntityTypesEntitiesBatchDelete (Maybe Text) +paetebdCallback + = lens _paetebdCallback + (\ s a -> s{_paetebdCallback = a}) + +instance GoogleRequest + ProjectsAgentEntityTypesEntitiesBatchDelete where + type Rs ProjectsAgentEntityTypesEntitiesBatchDelete = + GoogleLongrunningOperation + type Scopes + ProjectsAgentEntityTypesEntitiesBatchDelete + = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentEntityTypesEntitiesBatchDelete'{..} + = go _paetebdParent _paetebdXgafv + _paetebdUploadProtocol + _paetebdAccessToken + _paetebdUploadType + _paetebdCallback + (Just AltJSON) + _paetebdPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy + ProjectsAgentEntityTypesEntitiesBatchDeleteResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Entities/BatchUpdate.hs @@ -0,0 +1,180 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchUpdate +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates or creates multiple entities in the specified entity type. This +-- method does not affect entities in the entity type that aren\'t +-- explicitly specified in the request. Operation +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.entities.batchUpdate@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchUpdate + ( + -- * REST Resource + ProjectsAgentEntityTypesEntitiesBatchUpdateResource + + -- * Creating a Request + , projectsAgentEntityTypesEntitiesBatchUpdate + , ProjectsAgentEntityTypesEntitiesBatchUpdate + + -- * Request Lenses + , paetebuParent + , paetebuXgafv + , paetebuUploadProtocol + , paetebuAccessToken + , paetebuUploadType + , paetebuPayload + , paetebuCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.entities.batchUpdate@ method which the +-- 'ProjectsAgentEntityTypesEntitiesBatchUpdate' request conforms to. +type ProjectsAgentEntityTypesEntitiesBatchUpdateResource + = + "v2" :> + Capture "parent" Text :> + "entities:batchUpdate" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Updates or creates multiple entities in the specified entity type. This +-- method does not affect entities in the entity type that aren\'t +-- explicitly specified in the request. Operation +-- +-- /See:/ 'projectsAgentEntityTypesEntitiesBatchUpdate' smart constructor. +data ProjectsAgentEntityTypesEntitiesBatchUpdate = ProjectsAgentEntityTypesEntitiesBatchUpdate' + { _paetebuParent :: !Text + , _paetebuXgafv :: !(Maybe Xgafv) + , _paetebuUploadProtocol :: !(Maybe Text) + , _paetebuAccessToken :: !(Maybe Text) + , _paetebuUploadType :: !(Maybe Text) + , _paetebuPayload :: !GoogleCloudDialogflowV2BatchUpdateEntitiesRequest + , _paetebuCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetebuParent' +-- +-- * 'paetebuXgafv' +-- +-- * 'paetebuUploadProtocol' +-- +-- * 'paetebuAccessToken' +-- +-- * 'paetebuUploadType' +-- +-- * 'paetebuPayload' +-- +-- * 'paetebuCallback' +projectsAgentEntityTypesEntitiesBatchUpdate + :: Text -- ^ 'paetebuParent' + -> GoogleCloudDialogflowV2BatchUpdateEntitiesRequest -- ^ 'paetebuPayload' + -> ProjectsAgentEntityTypesEntitiesBatchUpdate +projectsAgentEntityTypesEntitiesBatchUpdate pPaetebuParent_ pPaetebuPayload_ = + ProjectsAgentEntityTypesEntitiesBatchUpdate' + { _paetebuParent = pPaetebuParent_ + , _paetebuXgafv = Nothing + , _paetebuUploadProtocol = Nothing + , _paetebuAccessToken = Nothing + , _paetebuUploadType = Nothing + , _paetebuPayload = pPaetebuPayload_ + , _paetebuCallback = Nothing + } + +-- | Required. The name of the entity type to update or create entities in. +-- Format: \`projects\/\/agent\/entityTypes\/\`. +paetebuParent :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate Text +paetebuParent + = lens _paetebuParent + (\ s a -> s{_paetebuParent = a}) + +-- | V1 error format. +paetebuXgafv :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate (Maybe Xgafv) +paetebuXgafv + = lens _paetebuXgafv (\ s a -> s{_paetebuXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetebuUploadProtocol :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate (Maybe Text) +paetebuUploadProtocol + = lens _paetebuUploadProtocol + (\ s a -> s{_paetebuUploadProtocol = a}) + +-- | OAuth access token. +paetebuAccessToken :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate (Maybe Text) +paetebuAccessToken + = lens _paetebuAccessToken + (\ s a -> s{_paetebuAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetebuUploadType :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate (Maybe Text) +paetebuUploadType + = lens _paetebuUploadType + (\ s a -> s{_paetebuUploadType = a}) + +-- | Multipart request metadata. +paetebuPayload :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate GoogleCloudDialogflowV2BatchUpdateEntitiesRequest +paetebuPayload + = lens _paetebuPayload + (\ s a -> s{_paetebuPayload = a}) + +-- | JSONP +paetebuCallback :: Lens' ProjectsAgentEntityTypesEntitiesBatchUpdate (Maybe Text) +paetebuCallback + = lens _paetebuCallback + (\ s a -> s{_paetebuCallback = a}) + +instance GoogleRequest + ProjectsAgentEntityTypesEntitiesBatchUpdate where + type Rs ProjectsAgentEntityTypesEntitiesBatchUpdate = + GoogleLongrunningOperation + type Scopes + ProjectsAgentEntityTypesEntitiesBatchUpdate + = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentEntityTypesEntitiesBatchUpdate'{..} + = go _paetebuParent _paetebuXgafv + _paetebuUploadProtocol + _paetebuAccessToken + _paetebuUploadType + _paetebuCallback + (Just AltJSON) + _paetebuPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy + ProjectsAgentEntityTypesEntitiesBatchUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Get.hs @@ -0,0 +1,169 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the specified entity type. +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.get@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Get + ( + -- * REST Resource + ProjectsAgentEntityTypesGetResource + + -- * Creating a Request + , projectsAgentEntityTypesGet + , ProjectsAgentEntityTypesGet + + -- * Request Lenses + , paetgXgafv + , paetgLanguageCode + , paetgUploadProtocol + , paetgAccessToken + , paetgUploadType + , paetgName + , paetgCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.get@ method which the +-- 'ProjectsAgentEntityTypesGet' request conforms to. +type ProjectsAgentEntityTypesGetResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleCloudDialogflowV2EntityType + +-- | Retrieves the specified entity type. +-- +-- /See:/ 'projectsAgentEntityTypesGet' smart constructor. +data ProjectsAgentEntityTypesGet = ProjectsAgentEntityTypesGet' + { _paetgXgafv :: !(Maybe Xgafv) + , _paetgLanguageCode :: !(Maybe Text) + , _paetgUploadProtocol :: !(Maybe Text) + , _paetgAccessToken :: !(Maybe Text) + , _paetgUploadType :: !(Maybe Text) + , _paetgName :: !Text + , _paetgCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetgXgafv' +-- +-- * 'paetgLanguageCode' +-- +-- * 'paetgUploadProtocol' +-- +-- * 'paetgAccessToken' +-- +-- * 'paetgUploadType' +-- +-- * 'paetgName' +-- +-- * 'paetgCallback' +projectsAgentEntityTypesGet + :: Text -- ^ 'paetgName' + -> ProjectsAgentEntityTypesGet +projectsAgentEntityTypesGet pPaetgName_ = + ProjectsAgentEntityTypesGet' + { _paetgXgafv = Nothing + , _paetgLanguageCode = Nothing + , _paetgUploadProtocol = Nothing + , _paetgAccessToken = Nothing + , _paetgUploadType = Nothing + , _paetgName = pPaetgName_ + , _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. +paetgLanguageCode :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) +paetgLanguageCode + = lens _paetgLanguageCode + (\ s a -> s{_paetgLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetgUploadProtocol :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) +paetgUploadProtocol + = lens _paetgUploadProtocol + (\ s a -> s{_paetgUploadProtocol = a}) + +-- | OAuth access token. +paetgAccessToken :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) +paetgAccessToken + = lens _paetgAccessToken + (\ s a -> s{_paetgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetgUploadType :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) +paetgUploadType + = lens _paetgUploadType + (\ s a -> s{_paetgUploadType = a}) + +-- | Required. The name of the entity type. Format: +-- \`projects\/\/agent\/entityTypes\/\`. +paetgName :: Lens' ProjectsAgentEntityTypesGet Text +paetgName + = lens _paetgName (\ s a -> s{_paetgName = a}) + +-- | JSONP +paetgCallback :: Lens' ProjectsAgentEntityTypesGet (Maybe Text) +paetgCallback + = lens _paetgCallback + (\ s a -> s{_paetgCallback = a}) + +instance GoogleRequest ProjectsAgentEntityTypesGet + where + type Rs ProjectsAgentEntityTypesGet = + GoogleCloudDialogflowV2EntityType + type Scopes ProjectsAgentEntityTypesGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentEntityTypesGet'{..} + = go _paetgName _paetgXgafv _paetgLanguageCode + _paetgUploadProtocol + _paetgAccessToken + _paetgUploadType + _paetgCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentEntityTypesGetResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/List.hs @@ -0,0 +1,200 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the list of all entity types in the specified agent. +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.list@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.List + ( + -- * REST Resource + ProjectsAgentEntityTypesListResource + + -- * Creating a Request + , projectsAgentEntityTypesList + , ProjectsAgentEntityTypesList + + -- * Request Lenses + , paetlParent + , paetlXgafv + , paetlLanguageCode + , paetlUploadProtocol + , paetlAccessToken + , paetlUploadType + , paetlPageToken + , paetlPageSize + , paetlCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.list@ method which the +-- 'ProjectsAgentEntityTypesList' request conforms to. +type ProjectsAgentEntityTypesListResource = + "v2" :> + Capture "parent" Text :> + "entityTypes" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleCloudDialogflowV2ListEntityTypesResponse + +-- | Returns the list of all entity types in the specified agent. +-- +-- /See:/ 'projectsAgentEntityTypesList' smart constructor. +data ProjectsAgentEntityTypesList = ProjectsAgentEntityTypesList' + { _paetlParent :: !Text + , _paetlXgafv :: !(Maybe Xgafv) + , _paetlLanguageCode :: !(Maybe Text) + , _paetlUploadProtocol :: !(Maybe Text) + , _paetlAccessToken :: !(Maybe Text) + , _paetlUploadType :: !(Maybe Text) + , _paetlPageToken :: !(Maybe Text) + , _paetlPageSize :: !(Maybe (Textual Int32)) + , _paetlCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetlParent' +-- +-- * 'paetlXgafv' +-- +-- * 'paetlLanguageCode' +-- +-- * 'paetlUploadProtocol' +-- +-- * 'paetlAccessToken' +-- +-- * 'paetlUploadType' +-- +-- * 'paetlPageToken' +-- +-- * 'paetlPageSize' +-- +-- * 'paetlCallback' +projectsAgentEntityTypesList + :: Text -- ^ 'paetlParent' + -> ProjectsAgentEntityTypesList +projectsAgentEntityTypesList pPaetlParent_ = + ProjectsAgentEntityTypesList' + { _paetlParent = pPaetlParent_ + , _paetlXgafv = Nothing + , _paetlLanguageCode = Nothing + , _paetlUploadProtocol = Nothing + , _paetlAccessToken = Nothing + , _paetlUploadType = Nothing + , _paetlPageToken = Nothing + , _paetlPageSize = Nothing + , _paetlCallback = Nothing + } + +-- | Required. The agent to list all entity types from. Format: +-- \`projects\/\/agent\`. +paetlParent :: Lens' ProjectsAgentEntityTypesList Text +paetlParent + = lens _paetlParent (\ s a -> s{_paetlParent = a}) + +-- | V1 error format. +paetlXgafv :: Lens' ProjectsAgentEntityTypesList (Maybe Xgafv) +paetlXgafv + = 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. +paetlLanguageCode :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlLanguageCode + = lens _paetlLanguageCode + (\ s a -> s{_paetlLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetlUploadProtocol :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlUploadProtocol + = lens _paetlUploadProtocol + (\ s a -> s{_paetlUploadProtocol = a}) + +-- | OAuth access token. +paetlAccessToken :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlAccessToken + = lens _paetlAccessToken + (\ s a -> s{_paetlAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetlUploadType :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlUploadType + = lens _paetlUploadType + (\ s a -> s{_paetlUploadType = a}) + +-- | Optional. The next_page_token value returned from a previous list +-- request. +paetlPageToken :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlPageToken + = lens _paetlPageToken + (\ s a -> s{_paetlPageToken = a}) + +-- | Optional. The maximum number of items to return in a single page. By +-- default 100 and at most 1000. +paetlPageSize :: Lens' ProjectsAgentEntityTypesList (Maybe Int32) +paetlPageSize + = lens _paetlPageSize + (\ s a -> s{_paetlPageSize = a}) + . mapping _Coerce + +-- | JSONP +paetlCallback :: Lens' ProjectsAgentEntityTypesList (Maybe Text) +paetlCallback + = lens _paetlCallback + (\ s a -> s{_paetlCallback = a}) + +instance GoogleRequest ProjectsAgentEntityTypesList + where + type Rs ProjectsAgentEntityTypesList = + GoogleCloudDialogflowV2ListEntityTypesResponse + type Scopes ProjectsAgentEntityTypesList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentEntityTypesList'{..} + = go _paetlParent _paetlXgafv _paetlLanguageCode + _paetlUploadProtocol + _paetlAccessToken + _paetlUploadType + _paetlPageToken + _paetlPageSize + _paetlCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentEntityTypesListResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/EntityTypes/Patch.hs @@ -0,0 +1,197 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the specified entity type. +-- +-- /See:/ for @dialogflow.projects.agent.entityTypes.patch@. +module Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Patch + ( + -- * REST Resource + ProjectsAgentEntityTypesPatchResource + + -- * Creating a Request + , projectsAgentEntityTypesPatch + , ProjectsAgentEntityTypesPatch + + -- * Request Lenses + , paetpXgafv + , paetpLanguageCode + , paetpUploadProtocol + , paetpUpdateMask + , paetpAccessToken + , paetpUploadType + , paetpPayload + , paetpName + , paetpCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.entityTypes.patch@ method which the +-- 'ProjectsAgentEntityTypesPatch' request conforms to. +type ProjectsAgentEntityTypesPatchResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "updateMask" GFieldMask :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2EntityType :> + Patch '[JSON] GoogleCloudDialogflowV2EntityType + +-- | Updates the specified entity type. +-- +-- /See:/ 'projectsAgentEntityTypesPatch' smart constructor. +data ProjectsAgentEntityTypesPatch = ProjectsAgentEntityTypesPatch' + { _paetpXgafv :: !(Maybe Xgafv) + , _paetpLanguageCode :: !(Maybe Text) + , _paetpUploadProtocol :: !(Maybe Text) + , _paetpUpdateMask :: !(Maybe GFieldMask) + , _paetpAccessToken :: !(Maybe Text) + , _paetpUploadType :: !(Maybe Text) + , _paetpPayload :: !GoogleCloudDialogflowV2EntityType + , _paetpName :: !Text + , _paetpCallback :: !(Maybe Text) + } 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: +-- +-- * 'paetpXgafv' +-- +-- * 'paetpLanguageCode' +-- +-- * 'paetpUploadProtocol' +-- +-- * 'paetpUpdateMask' +-- +-- * 'paetpAccessToken' +-- +-- * 'paetpUploadType' +-- +-- * 'paetpPayload' +-- +-- * 'paetpName' +-- +-- * 'paetpCallback' +projectsAgentEntityTypesPatch + :: GoogleCloudDialogflowV2EntityType -- ^ 'paetpPayload' + -> Text -- ^ 'paetpName' + -> ProjectsAgentEntityTypesPatch +projectsAgentEntityTypesPatch pPaetpPayload_ pPaetpName_ = + ProjectsAgentEntityTypesPatch' + { _paetpXgafv = Nothing + , _paetpLanguageCode = Nothing + , _paetpUploadProtocol = Nothing + , _paetpUpdateMask = Nothing + , _paetpAccessToken = Nothing + , _paetpUploadType = Nothing + , _paetpPayload = pPaetpPayload_ + , _paetpName = pPaetpName_ + , _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. +paetpLanguageCode :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) +paetpLanguageCode + = lens _paetpLanguageCode + (\ s a -> s{_paetpLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paetpUploadProtocol :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) +paetpUploadProtocol + = lens _paetpUploadProtocol + (\ s a -> s{_paetpUploadProtocol = a}) + +-- | Optional. The mask to control which fields get updated. +paetpUpdateMask :: Lens' ProjectsAgentEntityTypesPatch (Maybe GFieldMask) +paetpUpdateMask + = lens _paetpUpdateMask + (\ s a -> s{_paetpUpdateMask = a}) + +-- | OAuth access token. +paetpAccessToken :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) +paetpAccessToken + = lens _paetpAccessToken + (\ s a -> s{_paetpAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paetpUploadType :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) +paetpUploadType + = lens _paetpUploadType + (\ s a -> s{_paetpUploadType = a}) + +-- | Multipart request metadata. +paetpPayload :: Lens' ProjectsAgentEntityTypesPatch GoogleCloudDialogflowV2EntityType +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\/\`. +paetpName :: Lens' ProjectsAgentEntityTypesPatch Text +paetpName + = lens _paetpName (\ s a -> s{_paetpName = a}) + +-- | JSONP +paetpCallback :: Lens' ProjectsAgentEntityTypesPatch (Maybe Text) +paetpCallback + = lens _paetpCallback + (\ s a -> s{_paetpCallback = a}) + +instance GoogleRequest ProjectsAgentEntityTypesPatch + where + type Rs ProjectsAgentEntityTypesPatch = + GoogleCloudDialogflowV2EntityType + type Scopes ProjectsAgentEntityTypesPatch = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentEntityTypesPatch'{..} + = go _paetpName _paetpXgafv _paetpLanguageCode + _paetpUploadProtocol + _paetpUpdateMask + _paetpAccessToken + _paetpUploadType + _paetpCallback + (Just AltJSON) + _paetpPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentEntityTypesPatchResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Export.hs @@ -0,0 +1,164 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Export +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Exports the specified agent to a ZIP file. Operation +-- +-- /See:/ for @dialogflow.projects.agent.export@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Export + ( + -- * REST Resource + ProjectsAgentExportResource + + -- * Creating a Request + , projectsAgentExport + , ProjectsAgentExport + + -- * Request Lenses + , paeParent + , paeXgafv + , paeUploadProtocol + , paeAccessToken + , paeUploadType + , paePayload + , paeCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.export@ method which the +-- 'ProjectsAgentExport' request conforms to. +type ProjectsAgentExportResource = + "v2" :> + Capture "parent" Text :> + "agent:export" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2ExportAgentRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Exports the specified agent to a ZIP file. Operation +-- +-- /See:/ 'projectsAgentExport' smart constructor. +data ProjectsAgentExport = ProjectsAgentExport' + { _paeParent :: !Text + , _paeXgafv :: !(Maybe Xgafv) + , _paeUploadProtocol :: !(Maybe Text) + , _paeAccessToken :: !(Maybe Text) + , _paeUploadType :: !(Maybe Text) + , _paePayload :: !GoogleCloudDialogflowV2ExportAgentRequest + , _paeCallback :: !(Maybe Text) + } 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: +-- +-- * 'paeParent' +-- +-- * 'paeXgafv' +-- +-- * 'paeUploadProtocol' +-- +-- * 'paeAccessToken' +-- +-- * 'paeUploadType' +-- +-- * 'paePayload' +-- +-- * 'paeCallback' +projectsAgentExport + :: Text -- ^ 'paeParent' + -> GoogleCloudDialogflowV2ExportAgentRequest -- ^ 'paePayload' + -> ProjectsAgentExport +projectsAgentExport pPaeParent_ pPaePayload_ = + ProjectsAgentExport' + { _paeParent = pPaeParent_ + , _paeXgafv = Nothing + , _paeUploadProtocol = Nothing + , _paeAccessToken = Nothing + , _paeUploadType = Nothing + , _paePayload = pPaePayload_ + , _paeCallback = Nothing + } + +-- | Required. The project that the agent to export is associated with. +-- Format: \`projects\/\`. +paeParent :: Lens' ProjectsAgentExport Text +paeParent + = lens _paeParent (\ s a -> s{_paeParent = a}) + +-- | V1 error format. +paeXgafv :: Lens' ProjectsAgentExport (Maybe Xgafv) +paeXgafv = lens _paeXgafv (\ s a -> s{_paeXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paeUploadProtocol :: Lens' ProjectsAgentExport (Maybe Text) +paeUploadProtocol + = lens _paeUploadProtocol + (\ s a -> s{_paeUploadProtocol = a}) + +-- | OAuth access token. +paeAccessToken :: Lens' ProjectsAgentExport (Maybe Text) +paeAccessToken + = lens _paeAccessToken + (\ s a -> s{_paeAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paeUploadType :: Lens' ProjectsAgentExport (Maybe Text) +paeUploadType + = lens _paeUploadType + (\ s a -> s{_paeUploadType = a}) + +-- | Multipart request metadata. +paePayload :: Lens' ProjectsAgentExport GoogleCloudDialogflowV2ExportAgentRequest +paePayload + = lens _paePayload (\ s a -> s{_paePayload = a}) + +-- | JSONP +paeCallback :: Lens' ProjectsAgentExport (Maybe Text) +paeCallback + = lens _paeCallback (\ s a -> s{_paeCallback = a}) + +instance GoogleRequest ProjectsAgentExport where + type Rs ProjectsAgentExport = + GoogleLongrunningOperation + type Scopes ProjectsAgentExport = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentExport'{..} + = go _paeParent _paeXgafv _paeUploadProtocol + _paeAccessToken + _paeUploadType + _paeCallback + (Just AltJSON) + _paePayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentExportResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Import.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Import +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Imports the specified agent from a ZIP file. Uploads new intents and +-- entity types without deleting the existing ones. Intents and entity +-- types with the same name are replaced with the new versions from +-- ImportAgentRequest. Operation +-- +-- /See:/ for @dialogflow.projects.agent.import@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Import + ( + -- * REST Resource + ProjectsAgentImportResource + + -- * Creating a Request + , projectsAgentImport + , ProjectsAgentImport + + -- * Request Lenses + , paiParent + , paiXgafv + , paiUploadProtocol + , paiAccessToken + , paiUploadType + , paiPayload + , paiCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.import@ method which the +-- 'ProjectsAgentImport' request conforms to. +type ProjectsAgentImportResource = + "v2" :> + Capture "parent" Text :> + "agent:import" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2ImportAgentRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Imports the specified agent from a ZIP file. Uploads new intents and +-- entity types without deleting the existing ones. Intents and entity +-- types with the same name are replaced with the new versions from +-- ImportAgentRequest. Operation +-- +-- /See:/ 'projectsAgentImport' smart constructor. +data ProjectsAgentImport = ProjectsAgentImport' + { _paiParent :: !Text + , _paiXgafv :: !(Maybe Xgafv) + , _paiUploadProtocol :: !(Maybe Text) + , _paiAccessToken :: !(Maybe Text) + , _paiUploadType :: !(Maybe Text) + , _paiPayload :: !GoogleCloudDialogflowV2ImportAgentRequest + , _paiCallback :: !(Maybe Text) + } 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: +-- +-- * 'paiParent' +-- +-- * 'paiXgafv' +-- +-- * 'paiUploadProtocol' +-- +-- * 'paiAccessToken' +-- +-- * 'paiUploadType' +-- +-- * 'paiPayload' +-- +-- * 'paiCallback' +projectsAgentImport + :: Text -- ^ 'paiParent' + -> GoogleCloudDialogflowV2ImportAgentRequest -- ^ 'paiPayload' + -> ProjectsAgentImport +projectsAgentImport pPaiParent_ pPaiPayload_ = + ProjectsAgentImport' + { _paiParent = pPaiParent_ + , _paiXgafv = Nothing + , _paiUploadProtocol = Nothing + , _paiAccessToken = Nothing + , _paiUploadType = Nothing + , _paiPayload = pPaiPayload_ + , _paiCallback = Nothing + } + +-- | Required. The project that the agent to import is associated with. +-- Format: \`projects\/\`. +paiParent :: Lens' ProjectsAgentImport Text +paiParent + = lens _paiParent (\ s a -> s{_paiParent = a}) + +-- | V1 error format. +paiXgafv :: Lens' ProjectsAgentImport (Maybe Xgafv) +paiXgafv = lens _paiXgafv (\ s a -> s{_paiXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paiUploadProtocol :: Lens' ProjectsAgentImport (Maybe Text) +paiUploadProtocol + = lens _paiUploadProtocol + (\ s a -> s{_paiUploadProtocol = a}) + +-- | OAuth access token. +paiAccessToken :: Lens' ProjectsAgentImport (Maybe Text) +paiAccessToken + = lens _paiAccessToken + (\ s a -> s{_paiAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paiUploadType :: Lens' ProjectsAgentImport (Maybe Text) +paiUploadType + = lens _paiUploadType + (\ s a -> s{_paiUploadType = a}) + +-- | Multipart request metadata. +paiPayload :: Lens' ProjectsAgentImport GoogleCloudDialogflowV2ImportAgentRequest +paiPayload + = lens _paiPayload (\ s a -> s{_paiPayload = a}) + +-- | JSONP +paiCallback :: Lens' ProjectsAgentImport (Maybe Text) +paiCallback + = lens _paiCallback (\ s a -> s{_paiCallback = a}) + +instance GoogleRequest ProjectsAgentImport where + type Rs ProjectsAgentImport = + GoogleLongrunningOperation + type Scopes ProjectsAgentImport = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentImport'{..} + = go _paiParent _paiXgafv _paiUploadProtocol + _paiAccessToken + _paiUploadType + _paiCallback + (Just AltJSON) + _paiPayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentImportResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchDelete.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchDelete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes intents in the specified agent. Operation +-- +-- /See:/ for @dialogflow.projects.agent.intents.batchDelete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchDelete + ( + -- * REST Resource + ProjectsAgentIntentsBatchDeleteResource + + -- * Creating a Request + , projectsAgentIntentsBatchDelete + , ProjectsAgentIntentsBatchDelete + + -- * Request Lenses + , paibdParent + , paibdXgafv + , paibdUploadProtocol + , paibdAccessToken + , paibdUploadType + , paibdPayload + , paibdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.batchDelete@ method which the +-- 'ProjectsAgentIntentsBatchDelete' request conforms to. +type ProjectsAgentIntentsBatchDeleteResource = + "v2" :> + Capture "parent" Text :> + "intents:batchDelete" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchDeleteIntentsRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Deletes intents in the specified agent. Operation +-- +-- /See:/ 'projectsAgentIntentsBatchDelete' smart constructor. +data ProjectsAgentIntentsBatchDelete = ProjectsAgentIntentsBatchDelete' + { _paibdParent :: !Text + , _paibdXgafv :: !(Maybe Xgafv) + , _paibdUploadProtocol :: !(Maybe Text) + , _paibdAccessToken :: !(Maybe Text) + , _paibdUploadType :: !(Maybe Text) + , _paibdPayload :: !GoogleCloudDialogflowV2BatchDeleteIntentsRequest + , _paibdCallback :: !(Maybe Text) + } 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: +-- +-- * 'paibdParent' +-- +-- * 'paibdXgafv' +-- +-- * 'paibdUploadProtocol' +-- +-- * 'paibdAccessToken' +-- +-- * 'paibdUploadType' +-- +-- * 'paibdPayload' +-- +-- * 'paibdCallback' +projectsAgentIntentsBatchDelete + :: Text -- ^ 'paibdParent' + -> GoogleCloudDialogflowV2BatchDeleteIntentsRequest -- ^ 'paibdPayload' + -> ProjectsAgentIntentsBatchDelete +projectsAgentIntentsBatchDelete pPaibdParent_ pPaibdPayload_ = + ProjectsAgentIntentsBatchDelete' + { _paibdParent = pPaibdParent_ + , _paibdXgafv = Nothing + , _paibdUploadProtocol = Nothing + , _paibdAccessToken = Nothing + , _paibdUploadType = Nothing + , _paibdPayload = pPaibdPayload_ + , _paibdCallback = Nothing + } + +-- | Required. The name of the agent to delete all entities types for. +-- Format: \`projects\/\/agent\`. +paibdParent :: Lens' ProjectsAgentIntentsBatchDelete Text +paibdParent + = lens _paibdParent (\ s a -> s{_paibdParent = a}) + +-- | V1 error format. +paibdXgafv :: Lens' ProjectsAgentIntentsBatchDelete (Maybe Xgafv) +paibdXgafv + = lens _paibdXgafv (\ s a -> s{_paibdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paibdUploadProtocol :: Lens' ProjectsAgentIntentsBatchDelete (Maybe Text) +paibdUploadProtocol + = lens _paibdUploadProtocol + (\ s a -> s{_paibdUploadProtocol = a}) + +-- | OAuth access token. +paibdAccessToken :: Lens' ProjectsAgentIntentsBatchDelete (Maybe Text) +paibdAccessToken + = lens _paibdAccessToken + (\ s a -> s{_paibdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paibdUploadType :: Lens' ProjectsAgentIntentsBatchDelete (Maybe Text) +paibdUploadType + = lens _paibdUploadType + (\ s a -> s{_paibdUploadType = a}) + +-- | Multipart request metadata. +paibdPayload :: Lens' ProjectsAgentIntentsBatchDelete GoogleCloudDialogflowV2BatchDeleteIntentsRequest +paibdPayload + = lens _paibdPayload (\ s a -> s{_paibdPayload = a}) + +-- | JSONP +paibdCallback :: Lens' ProjectsAgentIntentsBatchDelete (Maybe Text) +paibdCallback + = lens _paibdCallback + (\ s a -> s{_paibdCallback = a}) + +instance GoogleRequest + ProjectsAgentIntentsBatchDelete where + type Rs ProjectsAgentIntentsBatchDelete = + GoogleLongrunningOperation + type Scopes ProjectsAgentIntentsBatchDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsBatchDelete'{..} + = go _paibdParent _paibdXgafv _paibdUploadProtocol + _paibdAccessToken + _paibdUploadType + _paibdCallback + (Just AltJSON) + _paibdPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentIntentsBatchDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/BatchUpdate.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchUpdate +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates\/Creates multiple intents in the specified agent. Operation +-- +-- /See:/ for @dialogflow.projects.agent.intents.batchUpdate@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchUpdate + ( + -- * REST Resource + ProjectsAgentIntentsBatchUpdateResource + + -- * Creating a Request + , projectsAgentIntentsBatchUpdate + , ProjectsAgentIntentsBatchUpdate + + -- * Request Lenses + , paibuParent + , paibuXgafv + , paibuUploadProtocol + , paibuAccessToken + , paibuUploadType + , paibuPayload + , paibuCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.batchUpdate@ method which the +-- 'ProjectsAgentIntentsBatchUpdate' request conforms to. +type ProjectsAgentIntentsBatchUpdateResource = + "v2" :> + Capture "parent" Text :> + "intents:batchUpdate" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2BatchUpdateIntentsRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Updates\/Creates multiple intents in the specified agent. Operation +-- +-- /See:/ 'projectsAgentIntentsBatchUpdate' smart constructor. +data ProjectsAgentIntentsBatchUpdate = ProjectsAgentIntentsBatchUpdate' + { _paibuParent :: !Text + , _paibuXgafv :: !(Maybe Xgafv) + , _paibuUploadProtocol :: !(Maybe Text) + , _paibuAccessToken :: !(Maybe Text) + , _paibuUploadType :: !(Maybe Text) + , _paibuPayload :: !GoogleCloudDialogflowV2BatchUpdateIntentsRequest + , _paibuCallback :: !(Maybe Text) + } 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: +-- +-- * 'paibuParent' +-- +-- * 'paibuXgafv' +-- +-- * 'paibuUploadProtocol' +-- +-- * 'paibuAccessToken' +-- +-- * 'paibuUploadType' +-- +-- * 'paibuPayload' +-- +-- * 'paibuCallback' +projectsAgentIntentsBatchUpdate + :: Text -- ^ 'paibuParent' + -> GoogleCloudDialogflowV2BatchUpdateIntentsRequest -- ^ 'paibuPayload' + -> ProjectsAgentIntentsBatchUpdate +projectsAgentIntentsBatchUpdate pPaibuParent_ pPaibuPayload_ = + ProjectsAgentIntentsBatchUpdate' + { _paibuParent = pPaibuParent_ + , _paibuXgafv = Nothing + , _paibuUploadProtocol = Nothing + , _paibuAccessToken = Nothing + , _paibuUploadType = Nothing + , _paibuPayload = pPaibuPayload_ + , _paibuCallback = Nothing + } + +-- | Required. The name of the agent to update or create intents in. Format: +-- \`projects\/\/agent\`. +paibuParent :: Lens' ProjectsAgentIntentsBatchUpdate Text +paibuParent + = lens _paibuParent (\ s a -> s{_paibuParent = a}) + +-- | V1 error format. +paibuXgafv :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Xgafv) +paibuXgafv + = lens _paibuXgafv (\ s a -> s{_paibuXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paibuUploadProtocol :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text) +paibuUploadProtocol + = lens _paibuUploadProtocol + (\ s a -> s{_paibuUploadProtocol = a}) + +-- | OAuth access token. +paibuAccessToken :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text) +paibuAccessToken + = lens _paibuAccessToken + (\ s a -> s{_paibuAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paibuUploadType :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text) +paibuUploadType + = lens _paibuUploadType + (\ s a -> s{_paibuUploadType = a}) + +-- | Multipart request metadata. +paibuPayload :: Lens' ProjectsAgentIntentsBatchUpdate GoogleCloudDialogflowV2BatchUpdateIntentsRequest +paibuPayload + = lens _paibuPayload (\ s a -> s{_paibuPayload = a}) + +-- | JSONP +paibuCallback :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text) +paibuCallback + = lens _paibuCallback + (\ s a -> s{_paibuCallback = a}) + +instance GoogleRequest + ProjectsAgentIntentsBatchUpdate where + type Rs ProjectsAgentIntentsBatchUpdate = + GoogleLongrunningOperation + type Scopes ProjectsAgentIntentsBatchUpdate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsBatchUpdate'{..} + = go _paibuParent _paibuXgafv _paibuUploadProtocol + _paibuAccessToken + _paibuUploadType + _paibuCallback + (Just AltJSON) + _paibuPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentIntentsBatchUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Create.hs @@ -0,0 +1,196 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Create +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates an intent in the specified agent. +-- +-- /See:/ for @dialogflow.projects.agent.intents.create@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Create + ( + -- * REST Resource + ProjectsAgentIntentsCreateResource + + -- * Creating a Request + , projectsAgentIntentsCreate + , ProjectsAgentIntentsCreate + + -- * Request Lenses + , paicParent + , paicXgafv + , paicLanguageCode + , paicUploadProtocol + , paicAccessToken + , paicUploadType + , paicPayload + , paicIntentView + , paicCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.create@ method which the +-- 'ProjectsAgentIntentsCreate' request conforms to. +type ProjectsAgentIntentsCreateResource = + "v2" :> + Capture "parent" Text :> + "intents" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "intentView" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2Intent :> + Post '[JSON] GoogleCloudDialogflowV2Intent + +-- | Creates an intent in the specified agent. +-- +-- /See:/ 'projectsAgentIntentsCreate' smart constructor. +data ProjectsAgentIntentsCreate = ProjectsAgentIntentsCreate' + { _paicParent :: !Text + , _paicXgafv :: !(Maybe Xgafv) + , _paicLanguageCode :: !(Maybe Text) + , _paicUploadProtocol :: !(Maybe Text) + , _paicAccessToken :: !(Maybe Text) + , _paicUploadType :: !(Maybe Text) + , _paicPayload :: !GoogleCloudDialogflowV2Intent + , _paicIntentView :: !(Maybe Text) + , _paicCallback :: !(Maybe Text) + } 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: +-- +-- * 'paicParent' +-- +-- * 'paicXgafv' +-- +-- * 'paicLanguageCode' +-- +-- * 'paicUploadProtocol' +-- +-- * 'paicAccessToken' +-- +-- * 'paicUploadType' +-- +-- * 'paicPayload' +-- +-- * 'paicIntentView' +-- +-- * 'paicCallback' +projectsAgentIntentsCreate + :: Text -- ^ 'paicParent' + -> GoogleCloudDialogflowV2Intent -- ^ 'paicPayload' + -> ProjectsAgentIntentsCreate +projectsAgentIntentsCreate pPaicParent_ pPaicPayload_ = + ProjectsAgentIntentsCreate' + { _paicParent = pPaicParent_ + , _paicXgafv = Nothing + , _paicLanguageCode = Nothing + , _paicUploadProtocol = Nothing + , _paicAccessToken = Nothing + , _paicUploadType = Nothing + , _paicPayload = pPaicPayload_ + , _paicIntentView = Nothing + , _paicCallback = Nothing + } + +-- | Required. The agent to create a intent for. Format: +-- \`projects\/\/agent\`. +paicParent :: Lens' ProjectsAgentIntentsCreate Text +paicParent + = lens _paicParent (\ s a -> s{_paicParent = a}) + +-- | V1 error format. +paicXgafv :: Lens' ProjectsAgentIntentsCreate (Maybe Xgafv) +paicXgafv + = lens _paicXgafv (\ s a -> s{_paicXgafv = a}) + +-- | 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. +paicLanguageCode :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicLanguageCode + = lens _paicLanguageCode + (\ s a -> s{_paicLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paicUploadProtocol :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicUploadProtocol + = lens _paicUploadProtocol + (\ s a -> s{_paicUploadProtocol = a}) + +-- | OAuth access token. +paicAccessToken :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicAccessToken + = lens _paicAccessToken + (\ s a -> s{_paicAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paicUploadType :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicUploadType + = lens _paicUploadType + (\ s a -> s{_paicUploadType = a}) + +-- | Multipart request metadata. +paicPayload :: Lens' ProjectsAgentIntentsCreate GoogleCloudDialogflowV2Intent +paicPayload + = lens _paicPayload (\ s a -> s{_paicPayload = a}) + +-- | Optional. The resource view to apply to the returned intent. +paicIntentView :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicIntentView + = lens _paicIntentView + (\ s a -> s{_paicIntentView = a}) + +-- | JSONP +paicCallback :: Lens' ProjectsAgentIntentsCreate (Maybe Text) +paicCallback + = lens _paicCallback (\ s a -> s{_paicCallback = a}) + +instance GoogleRequest ProjectsAgentIntentsCreate + where + type Rs ProjectsAgentIntentsCreate = + GoogleCloudDialogflowV2Intent + type Scopes ProjectsAgentIntentsCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsCreate'{..} + = go _paicParent _paicXgafv _paicLanguageCode + _paicUploadProtocol + _paicAccessToken + _paicUploadType + _paicIntentView + _paicCallback + (Just AltJSON) + _paicPayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentIntentsCreateResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Delete.hs @@ -0,0 +1,153 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified intent and its direct or indirect followup +-- intents. +-- +-- /See:/ for @dialogflow.projects.agent.intents.delete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Delete + ( + -- * REST Resource + ProjectsAgentIntentsDeleteResource + + -- * Creating a Request + , projectsAgentIntentsDelete + , ProjectsAgentIntentsDelete + + -- * Request Lenses + , paidXgafv + , paidUploadProtocol + , paidAccessToken + , paidUploadType + , paidName + , paidCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.delete@ method which the +-- 'ProjectsAgentIntentsDelete' request conforms to. +type ProjectsAgentIntentsDeleteResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Deletes the specified intent and its direct or indirect followup +-- intents. +-- +-- /See:/ 'projectsAgentIntentsDelete' smart constructor. +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) + +-- | 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: +-- +-- * 'paidXgafv' +-- +-- * 'paidUploadProtocol' +-- +-- * 'paidAccessToken' +-- +-- * 'paidUploadType' +-- +-- * 'paidName' +-- +-- * 'paidCallback' +projectsAgentIntentsDelete + :: Text -- ^ 'paidName' + -> ProjectsAgentIntentsDelete +projectsAgentIntentsDelete pPaidName_ = + ProjectsAgentIntentsDelete' + { _paidXgafv = Nothing + , _paidUploadProtocol = Nothing + , _paidAccessToken = Nothing + , _paidUploadType = Nothing + , _paidName = pPaidName_ + , _paidCallback = Nothing + } + +-- | V1 error format. +paidXgafv :: Lens' ProjectsAgentIntentsDelete (Maybe Xgafv) +paidXgafv + = lens _paidXgafv (\ s a -> s{_paidXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paidUploadProtocol :: Lens' ProjectsAgentIntentsDelete (Maybe Text) +paidUploadProtocol + = lens _paidUploadProtocol + (\ s a -> s{_paidUploadProtocol = a}) + +-- | OAuth access token. +paidAccessToken :: Lens' ProjectsAgentIntentsDelete (Maybe Text) +paidAccessToken + = lens _paidAccessToken + (\ s a -> s{_paidAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paidUploadType :: Lens' ProjectsAgentIntentsDelete (Maybe Text) +paidUploadType + = lens _paidUploadType + (\ s a -> s{_paidUploadType = a}) + +-- | Required. The name of the intent to delete. If this intent has direct or +-- indirect followup intents, we also delete them. Format: +-- \`projects\/\/agent\/intents\/\`. +paidName :: Lens' ProjectsAgentIntentsDelete Text +paidName = lens _paidName (\ s a -> s{_paidName = a}) + +-- | JSONP +paidCallback :: Lens' ProjectsAgentIntentsDelete (Maybe Text) +paidCallback + = lens _paidCallback (\ s a -> s{_paidCallback = a}) + +instance GoogleRequest ProjectsAgentIntentsDelete + where + type Rs ProjectsAgentIntentsDelete = + GoogleProtobufEmpty + type Scopes ProjectsAgentIntentsDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsDelete'{..} + = go _paidName _paidXgafv _paidUploadProtocol + _paidAccessToken + _paidUploadType + _paidCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentIntentsDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Get.hs @@ -0,0 +1,180 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the specified intent. +-- +-- /See:/ for @dialogflow.projects.agent.intents.get@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Get + ( + -- * REST Resource + ProjectsAgentIntentsGetResource + + -- * Creating a Request + , projectsAgentIntentsGet + , ProjectsAgentIntentsGet + + -- * Request Lenses + , paigXgafv + , paigLanguageCode + , paigUploadProtocol + , paigAccessToken + , paigUploadType + , paigIntentView + , paigName + , paigCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.get@ method which the +-- 'ProjectsAgentIntentsGet' request conforms to. +type ProjectsAgentIntentsGetResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "intentView" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleCloudDialogflowV2Intent + +-- | Retrieves the specified intent. +-- +-- /See:/ 'projectsAgentIntentsGet' smart constructor. +data ProjectsAgentIntentsGet = ProjectsAgentIntentsGet' + { _paigXgafv :: !(Maybe Xgafv) + , _paigLanguageCode :: !(Maybe Text) + , _paigUploadProtocol :: !(Maybe Text) + , _paigAccessToken :: !(Maybe Text) + , _paigUploadType :: !(Maybe Text) + , _paigIntentView :: !(Maybe Text) + , _paigName :: !Text + , _paigCallback :: !(Maybe Text) + } 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: +-- +-- * 'paigXgafv' +-- +-- * 'paigLanguageCode' +-- +-- * 'paigUploadProtocol' +-- +-- * 'paigAccessToken' +-- +-- * 'paigUploadType' +-- +-- * 'paigIntentView' +-- +-- * 'paigName' +-- +-- * 'paigCallback' +projectsAgentIntentsGet + :: Text -- ^ 'paigName' + -> ProjectsAgentIntentsGet +projectsAgentIntentsGet pPaigName_ = + ProjectsAgentIntentsGet' + { _paigXgafv = Nothing + , _paigLanguageCode = Nothing + , _paigUploadProtocol = Nothing + , _paigAccessToken = Nothing + , _paigUploadType = Nothing + , _paigIntentView = Nothing + , _paigName = pPaigName_ + , _paigCallback = Nothing + } + +-- | V1 error format. +paigXgafv :: Lens' ProjectsAgentIntentsGet (Maybe Xgafv) +paigXgafv + = lens _paigXgafv (\ s a -> s{_paigXgafv = a}) + +-- | 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. +paigLanguageCode :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigLanguageCode + = lens _paigLanguageCode + (\ s a -> s{_paigLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paigUploadProtocol :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigUploadProtocol + = lens _paigUploadProtocol + (\ s a -> s{_paigUploadProtocol = a}) + +-- | OAuth access token. +paigAccessToken :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigAccessToken + = lens _paigAccessToken + (\ s a -> s{_paigAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paigUploadType :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigUploadType + = lens _paigUploadType + (\ s a -> s{_paigUploadType = a}) + +-- | Optional. The resource view to apply to the returned intent. +paigIntentView :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigIntentView + = lens _paigIntentView + (\ s a -> s{_paigIntentView = a}) + +-- | Required. The name of the intent. Format: +-- \`projects\/\/agent\/intents\/\`. +paigName :: Lens' ProjectsAgentIntentsGet Text +paigName = lens _paigName (\ s a -> s{_paigName = a}) + +-- | JSONP +paigCallback :: Lens' ProjectsAgentIntentsGet (Maybe Text) +paigCallback + = lens _paigCallback (\ s a -> s{_paigCallback = a}) + +instance GoogleRequest ProjectsAgentIntentsGet where + type Rs ProjectsAgentIntentsGet = + GoogleCloudDialogflowV2Intent + type Scopes ProjectsAgentIntentsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsGet'{..} + = go _paigName _paigXgafv _paigLanguageCode + _paigUploadProtocol + _paigAccessToken + _paigUploadType + _paigIntentView + _paigCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentIntentsGetResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/List.hs @@ -0,0 +1,211 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the list of all intents in the specified agent. +-- +-- /See:/ for @dialogflow.projects.agent.intents.list@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.List + ( + -- * REST Resource + ProjectsAgentIntentsListResource + + -- * Creating a Request + , projectsAgentIntentsList + , ProjectsAgentIntentsList + + -- * Request Lenses + , pailParent + , pailXgafv + , pailLanguageCode + , pailUploadProtocol + , pailAccessToken + , pailUploadType + , pailIntentView + , pailPageToken + , pailPageSize + , pailCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.list@ method which the +-- 'ProjectsAgentIntentsList' request conforms to. +type ProjectsAgentIntentsListResource = + "v2" :> + Capture "parent" Text :> + "intents" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "intentView" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleCloudDialogflowV2ListIntentsResponse + +-- | Returns the list of all intents in the specified agent. +-- +-- /See:/ 'projectsAgentIntentsList' smart constructor. +data ProjectsAgentIntentsList = ProjectsAgentIntentsList' + { _pailParent :: !Text + , _pailXgafv :: !(Maybe Xgafv) + , _pailLanguageCode :: !(Maybe Text) + , _pailUploadProtocol :: !(Maybe Text) + , _pailAccessToken :: !(Maybe Text) + , _pailUploadType :: !(Maybe Text) + , _pailIntentView :: !(Maybe Text) + , _pailPageToken :: !(Maybe Text) + , _pailPageSize :: !(Maybe (Textual Int32)) + , _pailCallback :: !(Maybe Text) + } 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: +-- +-- * 'pailParent' +-- +-- * 'pailXgafv' +-- +-- * 'pailLanguageCode' +-- +-- * 'pailUploadProtocol' +-- +-- * 'pailAccessToken' +-- +-- * 'pailUploadType' +-- +-- * 'pailIntentView' +-- +-- * 'pailPageToken' +-- +-- * 'pailPageSize' +-- +-- * 'pailCallback' +projectsAgentIntentsList + :: Text -- ^ 'pailParent' + -> ProjectsAgentIntentsList +projectsAgentIntentsList pPailParent_ = + ProjectsAgentIntentsList' + { _pailParent = pPailParent_ + , _pailXgafv = Nothing + , _pailLanguageCode = Nothing + , _pailUploadProtocol = Nothing + , _pailAccessToken = Nothing + , _pailUploadType = Nothing + , _pailIntentView = Nothing + , _pailPageToken = Nothing + , _pailPageSize = Nothing + , _pailCallback = Nothing + } + +-- | Required. The agent to list all intents from. Format: +-- \`projects\/\/agent\`. +pailParent :: Lens' ProjectsAgentIntentsList Text +pailParent + = lens _pailParent (\ s a -> s{_pailParent = a}) + +-- | V1 error format. +pailXgafv :: Lens' ProjectsAgentIntentsList (Maybe Xgafv) +pailXgafv + = lens _pailXgafv (\ s a -> s{_pailXgafv = a}) + +-- | 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. +pailLanguageCode :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailLanguageCode + = lens _pailLanguageCode + (\ s a -> s{_pailLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pailUploadProtocol :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailUploadProtocol + = lens _pailUploadProtocol + (\ s a -> s{_pailUploadProtocol = a}) + +-- | OAuth access token. +pailAccessToken :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailAccessToken + = lens _pailAccessToken + (\ s a -> s{_pailAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pailUploadType :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailUploadType + = lens _pailUploadType + (\ s a -> s{_pailUploadType = a}) + +-- | Optional. The resource view to apply to the returned intent. +pailIntentView :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailIntentView + = lens _pailIntentView + (\ s a -> s{_pailIntentView = a}) + +-- | Optional. The next_page_token value returned from a previous list +-- request. +pailPageToken :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailPageToken + = lens _pailPageToken + (\ s a -> s{_pailPageToken = a}) + +-- | Optional. The maximum number of items to return in a single page. By +-- default 100 and at most 1000. +pailPageSize :: Lens' ProjectsAgentIntentsList (Maybe Int32) +pailPageSize + = lens _pailPageSize (\ s a -> s{_pailPageSize = a}) + . mapping _Coerce + +-- | JSONP +pailCallback :: Lens' ProjectsAgentIntentsList (Maybe Text) +pailCallback + = lens _pailCallback (\ s a -> s{_pailCallback = a}) + +instance GoogleRequest ProjectsAgentIntentsList where + type Rs ProjectsAgentIntentsList = + GoogleCloudDialogflowV2ListIntentsResponse + type Scopes ProjectsAgentIntentsList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsList'{..} + = go _pailParent _pailXgafv _pailLanguageCode + _pailUploadProtocol + _pailAccessToken + _pailUploadType + _pailIntentView + _pailPageToken + _pailPageSize + _pailCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentIntentsListResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Intents/Patch.hs @@ -0,0 +1,208 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the specified intent. +-- +-- /See:/ for @dialogflow.projects.agent.intents.patch@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Patch + ( + -- * REST Resource + ProjectsAgentIntentsPatchResource + + -- * Creating a Request + , projectsAgentIntentsPatch + , ProjectsAgentIntentsPatch + + -- * Request Lenses + , paipXgafv + , paipLanguageCode + , paipUploadProtocol + , paipUpdateMask + , paipAccessToken + , paipUploadType + , paipPayload + , paipIntentView + , paipName + , paipCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.intents.patch@ method which the +-- 'ProjectsAgentIntentsPatch' request conforms to. +type ProjectsAgentIntentsPatchResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "updateMask" GFieldMask :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "intentView" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2Intent :> + Patch '[JSON] GoogleCloudDialogflowV2Intent + +-- | Updates the specified intent. +-- +-- /See:/ 'projectsAgentIntentsPatch' smart constructor. +data ProjectsAgentIntentsPatch = ProjectsAgentIntentsPatch' + { _paipXgafv :: !(Maybe Xgafv) + , _paipLanguageCode :: !(Maybe Text) + , _paipUploadProtocol :: !(Maybe Text) + , _paipUpdateMask :: !(Maybe GFieldMask) + , _paipAccessToken :: !(Maybe Text) + , _paipUploadType :: !(Maybe Text) + , _paipPayload :: !GoogleCloudDialogflowV2Intent + , _paipIntentView :: !(Maybe Text) + , _paipName :: !Text + , _paipCallback :: !(Maybe Text) + } 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: +-- +-- * 'paipXgafv' +-- +-- * 'paipLanguageCode' +-- +-- * 'paipUploadProtocol' +-- +-- * 'paipUpdateMask' +-- +-- * 'paipAccessToken' +-- +-- * 'paipUploadType' +-- +-- * 'paipPayload' +-- +-- * 'paipIntentView' +-- +-- * 'paipName' +-- +-- * 'paipCallback' +projectsAgentIntentsPatch + :: GoogleCloudDialogflowV2Intent -- ^ 'paipPayload' + -> Text -- ^ 'paipName' + -> ProjectsAgentIntentsPatch +projectsAgentIntentsPatch pPaipPayload_ pPaipName_ = + ProjectsAgentIntentsPatch' + { _paipXgafv = Nothing + , _paipLanguageCode = Nothing + , _paipUploadProtocol = Nothing + , _paipUpdateMask = Nothing + , _paipAccessToken = Nothing + , _paipUploadType = Nothing + , _paipPayload = pPaipPayload_ + , _paipIntentView = Nothing + , _paipName = pPaipName_ + , _paipCallback = Nothing + } + +-- | V1 error format. +paipXgafv :: Lens' ProjectsAgentIntentsPatch (Maybe Xgafv) +paipXgafv + = lens _paipXgafv (\ s a -> s{_paipXgafv = a}) + +-- | 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. +paipLanguageCode :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipLanguageCode + = lens _paipLanguageCode + (\ s a -> s{_paipLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paipUploadProtocol :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipUploadProtocol + = lens _paipUploadProtocol + (\ s a -> s{_paipUploadProtocol = a}) + +-- | Optional. The mask to control which fields get updated. +paipUpdateMask :: Lens' ProjectsAgentIntentsPatch (Maybe GFieldMask) +paipUpdateMask + = lens _paipUpdateMask + (\ s a -> s{_paipUpdateMask = a}) + +-- | OAuth access token. +paipAccessToken :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipAccessToken + = lens _paipAccessToken + (\ s a -> s{_paipAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paipUploadType :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipUploadType + = lens _paipUploadType + (\ s a -> s{_paipUploadType = a}) + +-- | Multipart request metadata. +paipPayload :: Lens' ProjectsAgentIntentsPatch GoogleCloudDialogflowV2Intent +paipPayload + = lens _paipPayload (\ s a -> s{_paipPayload = a}) + +-- | Optional. The resource view to apply to the returned intent. +paipIntentView :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipIntentView + = 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: +-- \`projects\/\/agent\/intents\/\`. +paipName :: Lens' ProjectsAgentIntentsPatch Text +paipName = lens _paipName (\ s a -> s{_paipName = a}) + +-- | JSONP +paipCallback :: Lens' ProjectsAgentIntentsPatch (Maybe Text) +paipCallback + = lens _paipCallback (\ s a -> s{_paipCallback = a}) + +instance GoogleRequest ProjectsAgentIntentsPatch + where + type Rs ProjectsAgentIntentsPatch = + GoogleCloudDialogflowV2Intent + type Scopes ProjectsAgentIntentsPatch = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentIntentsPatch'{..} + = go _paipName _paipXgafv _paipLanguageCode + _paipUploadProtocol + _paipUpdateMask + _paipAccessToken + _paipUploadType + _paipIntentView + _paipCallback + (Just AltJSON) + _paipPayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentIntentsPatchResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Restore.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Restore +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Restores the specified agent from a ZIP file. Replaces the current agent +-- version with a new one. All the intents and entity types in the older +-- version are deleted. Operation +-- +-- /See:/ for @dialogflow.projects.agent.restore@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Restore + ( + -- * REST Resource + ProjectsAgentRestoreResource + + -- * Creating a Request + , projectsAgentRestore + , ProjectsAgentRestore + + -- * Request Lenses + , parParent + , parXgafv + , parUploadProtocol + , parAccessToken + , parUploadType + , parPayload + , parCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.restore@ method which the +-- 'ProjectsAgentRestore' request conforms to. +type ProjectsAgentRestoreResource = + "v2" :> + Capture "parent" Text :> + "agent:restore" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2RestoreAgentRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Restores the specified agent from a ZIP file. Replaces the current agent +-- version with a new one. All the intents and entity types in the older +-- version are deleted. Operation +-- +-- /See:/ 'projectsAgentRestore' smart constructor. +data ProjectsAgentRestore = ProjectsAgentRestore' + { _parParent :: !Text + , _parXgafv :: !(Maybe Xgafv) + , _parUploadProtocol :: !(Maybe Text) + , _parAccessToken :: !(Maybe Text) + , _parUploadType :: !(Maybe Text) + , _parPayload :: !GoogleCloudDialogflowV2RestoreAgentRequest + , _parCallback :: !(Maybe Text) + } 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: +-- +-- * 'parParent' +-- +-- * 'parXgafv' +-- +-- * 'parUploadProtocol' +-- +-- * 'parAccessToken' +-- +-- * 'parUploadType' +-- +-- * 'parPayload' +-- +-- * 'parCallback' +projectsAgentRestore + :: Text -- ^ 'parParent' + -> GoogleCloudDialogflowV2RestoreAgentRequest -- ^ 'parPayload' + -> ProjectsAgentRestore +projectsAgentRestore pParParent_ pParPayload_ = + ProjectsAgentRestore' + { _parParent = pParParent_ + , _parXgafv = Nothing + , _parUploadProtocol = Nothing + , _parAccessToken = Nothing + , _parUploadType = Nothing + , _parPayload = pParPayload_ + , _parCallback = Nothing + } + +-- | Required. The project that the agent to restore is associated with. +-- Format: \`projects\/\`. +parParent :: Lens' ProjectsAgentRestore Text +parParent + = lens _parParent (\ s a -> s{_parParent = a}) + +-- | V1 error format. +parXgafv :: Lens' ProjectsAgentRestore (Maybe Xgafv) +parXgafv = lens _parXgafv (\ s a -> s{_parXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +parUploadProtocol :: Lens' ProjectsAgentRestore (Maybe Text) +parUploadProtocol + = lens _parUploadProtocol + (\ s a -> s{_parUploadProtocol = a}) + +-- | OAuth access token. +parAccessToken :: Lens' ProjectsAgentRestore (Maybe Text) +parAccessToken + = lens _parAccessToken + (\ s a -> s{_parAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +parUploadType :: Lens' ProjectsAgentRestore (Maybe Text) +parUploadType + = lens _parUploadType + (\ s a -> s{_parUploadType = a}) + +-- | Multipart request metadata. +parPayload :: Lens' ProjectsAgentRestore GoogleCloudDialogflowV2RestoreAgentRequest +parPayload + = lens _parPayload (\ s a -> s{_parPayload = a}) + +-- | JSONP +parCallback :: Lens' ProjectsAgentRestore (Maybe Text) +parCallback + = lens _parCallback (\ s a -> s{_parCallback = a}) + +instance GoogleRequest ProjectsAgentRestore where + type Rs ProjectsAgentRestore = + GoogleLongrunningOperation + type Scopes ProjectsAgentRestore = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentRestore'{..} + = go _parParent _parXgafv _parUploadProtocol + _parAccessToken + _parUploadType + _parCallback + (Just AltJSON) + _parPayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentRestoreResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Search.hs @@ -0,0 +1,185 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the list of agents. Since there is at most one conversational +-- agent per project, this method is useful primarily for listing all +-- agents across projects the caller has access to. One can achieve that +-- with a wildcard project collection id \"-\". Refer to [List +-- Sub-Collections](https:\/\/cloud.google.com\/apis\/design\/design_patterns#list_sub-collections). +-- +-- /See:/ for @dialogflow.projects.agent.search@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Search + ( + -- * REST Resource + ProjectsAgentSearchResource + + -- * Creating a Request + , projectsAgentSearch + , ProjectsAgentSearch + + -- * Request Lenses + , pasParent + , pasXgafv + , pasUploadProtocol + , pasAccessToken + , pasUploadType + , pasPageToken + , pasPageSize + , pasCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.search@ method which the +-- 'ProjectsAgentSearch' request conforms to. +type ProjectsAgentSearchResource = + "v2" :> + Capture "parent" Text :> + "agent:search" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleCloudDialogflowV2SearchAgentsResponse + +-- | Returns the list of agents. Since there is at most one conversational +-- agent per project, this method is useful primarily for listing all +-- agents across projects the caller has access to. One can achieve that +-- with a wildcard project collection id \"-\". Refer to [List +-- Sub-Collections](https:\/\/cloud.google.com\/apis\/design\/design_patterns#list_sub-collections). +-- +-- /See:/ 'projectsAgentSearch' smart constructor. +data ProjectsAgentSearch = ProjectsAgentSearch' + { _pasParent :: !Text + , _pasXgafv :: !(Maybe Xgafv) + , _pasUploadProtocol :: !(Maybe Text) + , _pasAccessToken :: !(Maybe Text) + , _pasUploadType :: !(Maybe Text) + , _pasPageToken :: !(Maybe Text) + , _pasPageSize :: !(Maybe (Textual Int32)) + , _pasCallback :: !(Maybe Text) + } 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: +-- +-- * 'pasParent' +-- +-- * 'pasXgafv' +-- +-- * 'pasUploadProtocol' +-- +-- * 'pasAccessToken' +-- +-- * 'pasUploadType' +-- +-- * 'pasPageToken' +-- +-- * 'pasPageSize' +-- +-- * 'pasCallback' +projectsAgentSearch + :: Text -- ^ 'pasParent' + -> ProjectsAgentSearch +projectsAgentSearch pPasParent_ = + ProjectsAgentSearch' + { _pasParent = pPasParent_ + , _pasXgafv = Nothing + , _pasUploadProtocol = Nothing + , _pasAccessToken = Nothing + , _pasUploadType = Nothing + , _pasPageToken = Nothing + , _pasPageSize = Nothing + , _pasCallback = Nothing + } + +-- | Required. The project to list agents from. Format: \`projects\/\`. +pasParent :: Lens' ProjectsAgentSearch Text +pasParent + = lens _pasParent (\ s a -> s{_pasParent = a}) + +-- | V1 error format. +pasXgafv :: Lens' ProjectsAgentSearch (Maybe Xgafv) +pasXgafv = lens _pasXgafv (\ s a -> s{_pasXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pasUploadProtocol :: Lens' ProjectsAgentSearch (Maybe Text) +pasUploadProtocol + = lens _pasUploadProtocol + (\ s a -> s{_pasUploadProtocol = a}) + +-- | OAuth access token. +pasAccessToken :: Lens' ProjectsAgentSearch (Maybe Text) +pasAccessToken + = lens _pasAccessToken + (\ s a -> s{_pasAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pasUploadType :: Lens' ProjectsAgentSearch (Maybe Text) +pasUploadType + = lens _pasUploadType + (\ s a -> s{_pasUploadType = a}) + +-- | Optional. The next_page_token value returned from a previous list +-- request. +pasPageToken :: Lens' ProjectsAgentSearch (Maybe Text) +pasPageToken + = lens _pasPageToken (\ s a -> s{_pasPageToken = a}) + +-- | Optional. The maximum number of items to return in a single page. By +-- default 100 and at most 1000. +pasPageSize :: Lens' ProjectsAgentSearch (Maybe Int32) +pasPageSize + = lens _pasPageSize (\ s a -> s{_pasPageSize = a}) . + mapping _Coerce + +-- | JSONP +pasCallback :: Lens' ProjectsAgentSearch (Maybe Text) +pasCallback + = lens _pasCallback (\ s a -> s{_pasCallback = a}) + +instance GoogleRequest ProjectsAgentSearch where + type Rs ProjectsAgentSearch = + GoogleCloudDialogflowV2SearchAgentsResponse + type Scopes ProjectsAgentSearch = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentSearch'{..} + = go _pasParent _pasXgafv _pasUploadProtocol + _pasAccessToken + _pasUploadType + _pasPageToken + _pasPageSize + _pasCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentSearchResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Create.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Create +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a context. If the specified context already exists, overrides +-- the context. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.contexts.create@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Create + ( + -- * REST Resource + ProjectsAgentSessionsContextsCreateResource + + -- * Creating a Request + , projectsAgentSessionsContextsCreate + , ProjectsAgentSessionsContextsCreate + + -- * Request Lenses + , pasccParent + , pasccXgafv + , pasccUploadProtocol + , pasccAccessToken + , pasccUploadType + , pasccPayload + , pasccCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.contexts.create@ method which the +-- 'ProjectsAgentSessionsContextsCreate' request conforms to. +type ProjectsAgentSessionsContextsCreateResource = + "v2" :> + Capture "parent" Text :> + "contexts" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2Context :> + Post '[JSON] GoogleCloudDialogflowV2Context + +-- | Creates a context. If the specified context already exists, overrides +-- the context. +-- +-- /See:/ 'projectsAgentSessionsContextsCreate' smart constructor. +data ProjectsAgentSessionsContextsCreate = ProjectsAgentSessionsContextsCreate' + { _pasccParent :: !Text + , _pasccXgafv :: !(Maybe Xgafv) + , _pasccUploadProtocol :: !(Maybe Text) + , _pasccAccessToken :: !(Maybe Text) + , _pasccUploadType :: !(Maybe Text) + , _pasccPayload :: !GoogleCloudDialogflowV2Context + , _pasccCallback :: !(Maybe Text) + } 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: +-- +-- * 'pasccParent' +-- +-- * 'pasccXgafv' +-- +-- * 'pasccUploadProtocol' +-- +-- * 'pasccAccessToken' +-- +-- * 'pasccUploadType' +-- +-- * 'pasccPayload' +-- +-- * 'pasccCallback' +projectsAgentSessionsContextsCreate + :: Text -- ^ 'pasccParent' + -> GoogleCloudDialogflowV2Context -- ^ 'pasccPayload' + -> ProjectsAgentSessionsContextsCreate +projectsAgentSessionsContextsCreate pPasccParent_ pPasccPayload_ = + ProjectsAgentSessionsContextsCreate' + { _pasccParent = pPasccParent_ + , _pasccXgafv = Nothing + , _pasccUploadProtocol = Nothing + , _pasccAccessToken = Nothing + , _pasccUploadType = Nothing + , _pasccPayload = pPasccPayload_ + , _pasccCallback = Nothing + } + +-- | Required. The session to create a context for. Format: +-- \`projects\/\/agent\/sessions\/\`. +pasccParent :: Lens' ProjectsAgentSessionsContextsCreate Text +pasccParent + = lens _pasccParent (\ s a -> s{_pasccParent = a}) + +-- | V1 error format. +pasccXgafv :: Lens' ProjectsAgentSessionsContextsCreate (Maybe Xgafv) +pasccXgafv + = lens _pasccXgafv (\ s a -> s{_pasccXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pasccUploadProtocol :: Lens' ProjectsAgentSessionsContextsCreate (Maybe Text) +pasccUploadProtocol + = lens _pasccUploadProtocol + (\ s a -> s{_pasccUploadProtocol = a}) + +-- | OAuth access token. +pasccAccessToken :: Lens' ProjectsAgentSessionsContextsCreate (Maybe Text) +pasccAccessToken + = lens _pasccAccessToken + (\ s a -> s{_pasccAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pasccUploadType :: Lens' ProjectsAgentSessionsContextsCreate (Maybe Text) +pasccUploadType + = lens _pasccUploadType + (\ s a -> s{_pasccUploadType = a}) + +-- | Multipart request metadata. +pasccPayload :: Lens' ProjectsAgentSessionsContextsCreate GoogleCloudDialogflowV2Context +pasccPayload + = lens _pasccPayload (\ s a -> s{_pasccPayload = a}) + +-- | JSONP +pasccCallback :: Lens' ProjectsAgentSessionsContextsCreate (Maybe Text) +pasccCallback + = lens _pasccCallback + (\ s a -> s{_pasccCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsContextsCreate where + type Rs ProjectsAgentSessionsContextsCreate = + GoogleCloudDialogflowV2Context + type Scopes ProjectsAgentSessionsContextsCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsContextsCreate'{..} + = go _pasccParent _pasccXgafv _pasccUploadProtocol + _pasccAccessToken + _pasccUploadType + _pasccCallback + (Just AltJSON) + _pasccPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsContextsCreateResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Delete.hs @@ -0,0 +1,154 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified context. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.contexts.delete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Delete + ( + -- * REST Resource + ProjectsAgentSessionsContextsDeleteResource + + -- * Creating a Request + , projectsAgentSessionsContextsDelete + , ProjectsAgentSessionsContextsDelete + + -- * Request Lenses + , pascdXgafv + , pascdUploadProtocol + , pascdAccessToken + , pascdUploadType + , pascdName + , pascdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.contexts.delete@ method which the +-- 'ProjectsAgentSessionsContextsDelete' request conforms to. +type ProjectsAgentSessionsContextsDeleteResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Deletes the specified context. +-- +-- /See:/ 'projectsAgentSessionsContextsDelete' smart constructor. +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) + +-- | 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: +-- +-- * 'pascdXgafv' +-- +-- * 'pascdUploadProtocol' +-- +-- * 'pascdAccessToken' +-- +-- * 'pascdUploadType' +-- +-- * 'pascdName' +-- +-- * 'pascdCallback' +projectsAgentSessionsContextsDelete + :: Text -- ^ 'pascdName' + -> ProjectsAgentSessionsContextsDelete +projectsAgentSessionsContextsDelete pPascdName_ = + ProjectsAgentSessionsContextsDelete' + { _pascdXgafv = Nothing + , _pascdUploadProtocol = Nothing + , _pascdAccessToken = Nothing + , _pascdUploadType = Nothing + , _pascdName = pPascdName_ + , _pascdCallback = Nothing + } + +-- | V1 error format. +pascdXgafv :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Xgafv) +pascdXgafv + = lens _pascdXgafv (\ s a -> s{_pascdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pascdUploadProtocol :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Text) +pascdUploadProtocol + = lens _pascdUploadProtocol + (\ s a -> s{_pascdUploadProtocol = a}) + +-- | OAuth access token. +pascdAccessToken :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Text) +pascdAccessToken + = lens _pascdAccessToken + (\ s a -> s{_pascdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pascdUploadType :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Text) +pascdUploadType + = lens _pascdUploadType + (\ s a -> s{_pascdUploadType = a}) + +-- | Required. The name of the context to delete. Format: +-- \`projects\/\/agent\/sessions\/\/contexts\/\`. +pascdName :: Lens' ProjectsAgentSessionsContextsDelete Text +pascdName + = lens _pascdName (\ s a -> s{_pascdName = a}) + +-- | JSONP +pascdCallback :: Lens' ProjectsAgentSessionsContextsDelete (Maybe Text) +pascdCallback + = lens _pascdCallback + (\ s a -> s{_pascdCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsContextsDelete where + type Rs ProjectsAgentSessionsContextsDelete = + GoogleProtobufEmpty + type Scopes ProjectsAgentSessionsContextsDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsContextsDelete'{..} + = go _pascdName _pascdXgafv _pascdUploadProtocol + _pascdAccessToken + _pascdUploadType + _pascdCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsContextsDeleteResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Get.hs @@ -0,0 +1,153 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the specified context. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.contexts.get@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Get + ( + -- * REST Resource + ProjectsAgentSessionsContextsGetResource + + -- * Creating a Request + , projectsAgentSessionsContextsGet + , ProjectsAgentSessionsContextsGet + + -- * Request Lenses + , pascgXgafv + , pascgUploadProtocol + , pascgAccessToken + , pascgUploadType + , pascgName + , pascgCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.contexts.get@ method which the +-- 'ProjectsAgentSessionsContextsGet' request conforms to. +type ProjectsAgentSessionsContextsGetResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleCloudDialogflowV2Context + +-- | Retrieves the specified context. +-- +-- /See:/ 'projectsAgentSessionsContextsGet' smart constructor. +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) + +-- | 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: +-- +-- * 'pascgXgafv' +-- +-- * 'pascgUploadProtocol' +-- +-- * 'pascgAccessToken' +-- +-- * 'pascgUploadType' +-- +-- * 'pascgName' +-- +-- * 'pascgCallback' +projectsAgentSessionsContextsGet + :: Text -- ^ 'pascgName' + -> ProjectsAgentSessionsContextsGet +projectsAgentSessionsContextsGet pPascgName_ = + ProjectsAgentSessionsContextsGet' + { _pascgXgafv = Nothing + , _pascgUploadProtocol = Nothing + , _pascgAccessToken = Nothing + , _pascgUploadType = Nothing + , _pascgName = pPascgName_ + , _pascgCallback = Nothing + } + +-- | V1 error format. +pascgXgafv :: Lens' ProjectsAgentSessionsContextsGet (Maybe Xgafv) +pascgXgafv + = lens _pascgXgafv (\ s a -> s{_pascgXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pascgUploadProtocol :: Lens' ProjectsAgentSessionsContextsGet (Maybe Text) +pascgUploadProtocol + = lens _pascgUploadProtocol + (\ s a -> s{_pascgUploadProtocol = a}) + +-- | OAuth access token. +pascgAccessToken :: Lens' ProjectsAgentSessionsContextsGet (Maybe Text) +pascgAccessToken + = lens _pascgAccessToken + (\ s a -> s{_pascgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pascgUploadType :: Lens' ProjectsAgentSessionsContextsGet (Maybe Text) +pascgUploadType + = lens _pascgUploadType + (\ s a -> s{_pascgUploadType = a}) + +-- | Required. The name of the context. Format: +-- \`projects\/\/agent\/sessions\/\/contexts\/\`. +pascgName :: Lens' ProjectsAgentSessionsContextsGet Text +pascgName + = lens _pascgName (\ s a -> s{_pascgName = a}) + +-- | JSONP +pascgCallback :: Lens' ProjectsAgentSessionsContextsGet (Maybe Text) +pascgCallback + = lens _pascgCallback + (\ s a -> s{_pascgCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsContextsGet where + type Rs ProjectsAgentSessionsContextsGet = + GoogleCloudDialogflowV2Context + type Scopes ProjectsAgentSessionsContextsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentSessionsContextsGet'{..} + = go _pascgName _pascgXgafv _pascgUploadProtocol + _pascgAccessToken + _pascgUploadType + _pascgCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsContextsGetResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/List.hs @@ -0,0 +1,184 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the list of all contexts in the specified session. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.contexts.list@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.List + ( + -- * REST Resource + ProjectsAgentSessionsContextsListResource + + -- * Creating a Request + , projectsAgentSessionsContextsList + , ProjectsAgentSessionsContextsList + + -- * Request Lenses + , pasclParent + , pasclXgafv + , pasclUploadProtocol + , pasclAccessToken + , pasclUploadType + , pasclPageToken + , pasclPageSize + , pasclCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.contexts.list@ method which the +-- 'ProjectsAgentSessionsContextsList' request conforms to. +type ProjectsAgentSessionsContextsListResource = + "v2" :> + Capture "parent" Text :> + "contexts" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleCloudDialogflowV2ListContextsResponse + +-- | Returns the list of all contexts in the specified session. +-- +-- /See:/ 'projectsAgentSessionsContextsList' smart constructor. +data ProjectsAgentSessionsContextsList = ProjectsAgentSessionsContextsList' + { _pasclParent :: !Text + , _pasclXgafv :: !(Maybe Xgafv) + , _pasclUploadProtocol :: !(Maybe Text) + , _pasclAccessToken :: !(Maybe Text) + , _pasclUploadType :: !(Maybe Text) + , _pasclPageToken :: !(Maybe Text) + , _pasclPageSize :: !(Maybe (Textual Int32)) + , _pasclCallback :: !(Maybe Text) + } 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: +-- +-- * 'pasclParent' +-- +-- * 'pasclXgafv' +-- +-- * 'pasclUploadProtocol' +-- +-- * 'pasclAccessToken' +-- +-- * 'pasclUploadType' +-- +-- * 'pasclPageToken' +-- +-- * 'pasclPageSize' +-- +-- * 'pasclCallback' +projectsAgentSessionsContextsList + :: Text -- ^ 'pasclParent' + -> ProjectsAgentSessionsContextsList +projectsAgentSessionsContextsList pPasclParent_ = + ProjectsAgentSessionsContextsList' + { _pasclParent = pPasclParent_ + , _pasclXgafv = Nothing + , _pasclUploadProtocol = Nothing + , _pasclAccessToken = Nothing + , _pasclUploadType = Nothing + , _pasclPageToken = Nothing + , _pasclPageSize = Nothing + , _pasclCallback = Nothing + } + +-- | Required. The session to list all contexts from. Format: +-- \`projects\/\/agent\/sessions\/\`. +pasclParent :: Lens' ProjectsAgentSessionsContextsList Text +pasclParent + = lens _pasclParent (\ s a -> s{_pasclParent = a}) + +-- | V1 error format. +pasclXgafv :: Lens' ProjectsAgentSessionsContextsList (Maybe Xgafv) +pasclXgafv + = lens _pasclXgafv (\ s a -> s{_pasclXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pasclUploadProtocol :: Lens' ProjectsAgentSessionsContextsList (Maybe Text) +pasclUploadProtocol + = lens _pasclUploadProtocol + (\ s a -> s{_pasclUploadProtocol = a}) + +-- | OAuth access token. +pasclAccessToken :: Lens' ProjectsAgentSessionsContextsList (Maybe Text) +pasclAccessToken + = lens _pasclAccessToken + (\ s a -> s{_pasclAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pasclUploadType :: Lens' ProjectsAgentSessionsContextsList (Maybe Text) +pasclUploadType + = lens _pasclUploadType + (\ s a -> s{_pasclUploadType = a}) + +-- | Optional. The next_page_token value returned from a previous list +-- request. +pasclPageToken :: Lens' ProjectsAgentSessionsContextsList (Maybe Text) +pasclPageToken + = lens _pasclPageToken + (\ s a -> s{_pasclPageToken = a}) + +-- | Optional. The maximum number of items to return in a single page. By +-- default 100 and at most 1000. +pasclPageSize :: Lens' ProjectsAgentSessionsContextsList (Maybe Int32) +pasclPageSize + = lens _pasclPageSize + (\ s a -> s{_pasclPageSize = a}) + . mapping _Coerce + +-- | JSONP +pasclCallback :: Lens' ProjectsAgentSessionsContextsList (Maybe Text) +pasclCallback + = lens _pasclCallback + (\ s a -> s{_pasclCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsContextsList where + type Rs ProjectsAgentSessionsContextsList = + GoogleCloudDialogflowV2ListContextsResponse + type Scopes ProjectsAgentSessionsContextsList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentSessionsContextsList'{..} + = go _pasclParent _pasclXgafv _pasclUploadProtocol + _pasclAccessToken + _pasclUploadType + _pasclPageToken + _pasclPageSize + _pasclCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsContextsListResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/Contexts/Patch.hs @@ -0,0 +1,181 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the specified context. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.contexts.patch@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Patch + ( + -- * REST Resource + ProjectsAgentSessionsContextsPatchResource + + -- * Creating a Request + , projectsAgentSessionsContextsPatch + , ProjectsAgentSessionsContextsPatch + + -- * Request Lenses + , pascpXgafv + , pascpUploadProtocol + , pascpUpdateMask + , pascpAccessToken + , pascpUploadType + , pascpPayload + , pascpName + , pascpCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.contexts.patch@ method which the +-- 'ProjectsAgentSessionsContextsPatch' request conforms to. +type ProjectsAgentSessionsContextsPatchResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "updateMask" GFieldMask :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GoogleCloudDialogflowV2Context :> + Patch '[JSON] GoogleCloudDialogflowV2Context + +-- | Updates the specified context. +-- +-- /See:/ 'projectsAgentSessionsContextsPatch' smart constructor. +data ProjectsAgentSessionsContextsPatch = ProjectsAgentSessionsContextsPatch' + { _pascpXgafv :: !(Maybe Xgafv) + , _pascpUploadProtocol :: !(Maybe Text) + , _pascpUpdateMask :: !(Maybe GFieldMask) + , _pascpAccessToken :: !(Maybe Text) + , _pascpUploadType :: !(Maybe Text) + , _pascpPayload :: !GoogleCloudDialogflowV2Context + , _pascpName :: !Text + , _pascpCallback :: !(Maybe Text) + } 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: +-- +-- * 'pascpXgafv' +-- +-- * 'pascpUploadProtocol' +-- +-- * 'pascpUpdateMask' +-- +-- * 'pascpAccessToken' +-- +-- * 'pascpUploadType' +-- +-- * 'pascpPayload' +-- +-- * 'pascpName' +-- +-- * 'pascpCallback' +projectsAgentSessionsContextsPatch + :: GoogleCloudDialogflowV2Context -- ^ 'pascpPayload' + -> Text -- ^ 'pascpName' + -> ProjectsAgentSessionsContextsPatch +projectsAgentSessionsContextsPatch pPascpPayload_ pPascpName_ = + ProjectsAgentSessionsContextsPatch' + { _pascpXgafv = Nothing + , _pascpUploadProtocol = Nothing + , _pascpUpdateMask = Nothing + , _pascpAccessToken = Nothing + , _pascpUploadType = Nothing + , _pascpPayload = pPascpPayload_ + , _pascpName = pPascpName_ + , _pascpCallback = Nothing + } + +-- | V1 error format. +pascpXgafv :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Xgafv) +pascpXgafv + = lens _pascpXgafv (\ s a -> s{_pascpXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pascpUploadProtocol :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Text) +pascpUploadProtocol + = lens _pascpUploadProtocol + (\ s a -> s{_pascpUploadProtocol = a}) + +-- | Optional. The mask to control which fields get updated. +pascpUpdateMask :: Lens' ProjectsAgentSessionsContextsPatch (Maybe GFieldMask) +pascpUpdateMask + = lens _pascpUpdateMask + (\ s a -> s{_pascpUpdateMask = a}) + +-- | OAuth access token. +pascpAccessToken :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Text) +pascpAccessToken + = lens _pascpAccessToken + (\ s a -> s{_pascpAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pascpUploadType :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Text) +pascpUploadType + = lens _pascpUploadType + (\ s a -> s{_pascpUploadType = a}) + +-- | Multipart request metadata. +pascpPayload :: Lens' ProjectsAgentSessionsContextsPatch GoogleCloudDialogflowV2Context +pascpPayload + = lens _pascpPayload (\ s a -> s{_pascpPayload = a}) + +-- | 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. +pascpName :: Lens' ProjectsAgentSessionsContextsPatch Text +pascpName + = lens _pascpName (\ s a -> s{_pascpName = a}) + +-- | JSONP +pascpCallback :: Lens' ProjectsAgentSessionsContextsPatch (Maybe Text) +pascpCallback + = lens _pascpCallback + (\ s a -> s{_pascpCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsContextsPatch where + type Rs ProjectsAgentSessionsContextsPatch = + GoogleCloudDialogflowV2Context + type Scopes ProjectsAgentSessionsContextsPatch = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentSessionsContextsPatch'{..} + = go _pascpName _pascpXgafv _pascpUploadProtocol + _pascpUpdateMask + _pascpAccessToken + _pascpUploadType + _pascpCallback + (Just AltJSON) + _pascpPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsContextsPatchResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DeleteContexts.hs @@ -0,0 +1,155 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DeleteContexts +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes all active contexts in the specified session. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.deleteContexts@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DeleteContexts + ( + -- * REST Resource + ProjectsAgentSessionsDeleteContextsResource + + -- * Creating a Request + , projectsAgentSessionsDeleteContexts + , ProjectsAgentSessionsDeleteContexts + + -- * Request Lenses + , pasdcParent + , pasdcXgafv + , pasdcUploadProtocol + , pasdcAccessToken + , pasdcUploadType + , pasdcCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.deleteContexts@ method which the +-- 'ProjectsAgentSessionsDeleteContexts' request conforms to. +type ProjectsAgentSessionsDeleteContextsResource = + "v2" :> + Capture "parent" Text :> + "contexts" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Deletes all active contexts in the specified session. +-- +-- /See:/ 'projectsAgentSessionsDeleteContexts' smart constructor. +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) + +-- | 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: +-- +-- * 'pasdcParent' +-- +-- * 'pasdcXgafv' +-- +-- * 'pasdcUploadProtocol' +-- +-- * 'pasdcAccessToken' +-- +-- * 'pasdcUploadType' +-- +-- * 'pasdcCallback' +projectsAgentSessionsDeleteContexts + :: Text -- ^ 'pasdcParent' + -> ProjectsAgentSessionsDeleteContexts +projectsAgentSessionsDeleteContexts pPasdcParent_ = + ProjectsAgentSessionsDeleteContexts' + { _pasdcParent = pPasdcParent_ + , _pasdcXgafv = Nothing + , _pasdcUploadProtocol = Nothing + , _pasdcAccessToken = Nothing + , _pasdcUploadType = Nothing + , _pasdcCallback = Nothing + } + +-- | Required. The name of the session to delete all contexts from. Format: +-- \`projects\/\/agent\/sessions\/\`. +pasdcParent :: Lens' ProjectsAgentSessionsDeleteContexts Text +pasdcParent + = lens _pasdcParent (\ s a -> s{_pasdcParent = a}) + +-- | V1 error format. +pasdcXgafv :: Lens' ProjectsAgentSessionsDeleteContexts (Maybe Xgafv) +pasdcXgafv + = lens _pasdcXgafv (\ s a -> s{_pasdcXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pasdcUploadProtocol :: Lens' ProjectsAgentSessionsDeleteContexts (Maybe Text) +pasdcUploadProtocol + = lens _pasdcUploadProtocol + (\ s a -> s{_pasdcUploadProtocol = a}) + +-- | OAuth access token. +pasdcAccessToken :: Lens' ProjectsAgentSessionsDeleteContexts (Maybe Text) +pasdcAccessToken + = lens _pasdcAccessToken + (\ s a -> s{_pasdcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pasdcUploadType :: Lens' ProjectsAgentSessionsDeleteContexts (Maybe Text) +pasdcUploadType + = lens _pasdcUploadType + (\ s a -> s{_pasdcUploadType = a}) + +-- | JSONP +pasdcCallback :: Lens' ProjectsAgentSessionsDeleteContexts (Maybe Text) +pasdcCallback + = lens _pasdcCallback + (\ s a -> s{_pasdcCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsDeleteContexts where + type Rs ProjectsAgentSessionsDeleteContexts = + GoogleProtobufEmpty + type Scopes ProjectsAgentSessionsDeleteContexts = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsDeleteContexts'{..} + = go _pasdcParent _pasdcXgafv _pasdcUploadProtocol + _pasdcAccessToken + _pasdcUploadType + _pasdcCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsDeleteContextsResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/DetectIntent.hs @@ -0,0 +1,178 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DetectIntent +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Processes a natural language query and returns structured, actionable +-- data as a result. This method is not idempotent, because it may cause +-- contexts and session entity types to be updated, which in turn might +-- affect results of future queries. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.detectIntent@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DetectIntent + ( + -- * REST Resource + ProjectsAgentSessionsDetectIntentResource + + -- * Creating a Request + , projectsAgentSessionsDetectIntent + , ProjectsAgentSessionsDetectIntent + + -- * Request Lenses + , pasdiXgafv + , pasdiUploadProtocol + , pasdiAccessToken + , pasdiUploadType + , pasdiPayload + , pasdiSession + , pasdiCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.detectIntent@ method which the +-- 'ProjectsAgentSessionsDetectIntent' request conforms to. +type ProjectsAgentSessionsDetectIntentResource = + "v2" :> + CaptureMode "session" "detectIntent" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2DetectIntentRequest + :> + Post '[JSON] + GoogleCloudDialogflowV2DetectIntentResponse + +-- | Processes a natural language query and returns structured, actionable +-- data as a result. This method is not idempotent, because it may cause +-- contexts and session entity types to be updated, which in turn might +-- affect results of future queries. +-- +-- /See:/ 'projectsAgentSessionsDetectIntent' smart constructor. +data ProjectsAgentSessionsDetectIntent = ProjectsAgentSessionsDetectIntent' + { _pasdiXgafv :: !(Maybe Xgafv) + , _pasdiUploadProtocol :: !(Maybe Text) + , _pasdiAccessToken :: !(Maybe Text) + , _pasdiUploadType :: !(Maybe Text) + , _pasdiPayload :: !GoogleCloudDialogflowV2DetectIntentRequest + , _pasdiSession :: !Text + , _pasdiCallback :: !(Maybe Text) + } 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: +-- +-- * 'pasdiXgafv' +-- +-- * 'pasdiUploadProtocol' +-- +-- * 'pasdiAccessToken' +-- +-- * 'pasdiUploadType' +-- +-- * 'pasdiPayload' +-- +-- * 'pasdiSession' +-- +-- * 'pasdiCallback' +projectsAgentSessionsDetectIntent + :: GoogleCloudDialogflowV2DetectIntentRequest -- ^ 'pasdiPayload' + -> Text -- ^ 'pasdiSession' + -> ProjectsAgentSessionsDetectIntent +projectsAgentSessionsDetectIntent pPasdiPayload_ pPasdiSession_ = + ProjectsAgentSessionsDetectIntent' + { _pasdiXgafv = Nothing + , _pasdiUploadProtocol = Nothing + , _pasdiAccessToken = Nothing + , _pasdiUploadType = Nothing + , _pasdiPayload = pPasdiPayload_ + , _pasdiSession = pPasdiSession_ + , _pasdiCallback = Nothing + } + +-- | V1 error format. +pasdiXgafv :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Xgafv) +pasdiXgafv + = lens _pasdiXgafv (\ s a -> s{_pasdiXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pasdiUploadProtocol :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Text) +pasdiUploadProtocol + = lens _pasdiUploadProtocol + (\ s a -> s{_pasdiUploadProtocol = a}) + +-- | OAuth access token. +pasdiAccessToken :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Text) +pasdiAccessToken + = lens _pasdiAccessToken + (\ s a -> s{_pasdiAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pasdiUploadType :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Text) +pasdiUploadType + = lens _pasdiUploadType + (\ s a -> s{_pasdiUploadType = a}) + +-- | Multipart request metadata. +pasdiPayload :: Lens' ProjectsAgentSessionsDetectIntent GoogleCloudDialogflowV2DetectIntentRequest +pasdiPayload + = lens _pasdiPayload (\ s a -> s{_pasdiPayload = a}) + +-- | Required. The name of the session this query is sent to. Format: +-- \`projects\/\/agent\/sessions\/\`. It\'s up to the API caller to choose +-- an appropriate session ID. It can be a random number or some type of +-- user identifier (preferably hashed). The length of the session ID must +-- not exceed 36 bytes. +pasdiSession :: Lens' ProjectsAgentSessionsDetectIntent Text +pasdiSession + = lens _pasdiSession (\ s a -> s{_pasdiSession = a}) + +-- | JSONP +pasdiCallback :: Lens' ProjectsAgentSessionsDetectIntent (Maybe Text) +pasdiCallback + = lens _pasdiCallback + (\ s a -> s{_pasdiCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsDetectIntent where + type Rs ProjectsAgentSessionsDetectIntent = + GoogleCloudDialogflowV2DetectIntentResponse + type Scopes ProjectsAgentSessionsDetectIntent = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentSessionsDetectIntent'{..} + = go _pasdiSession _pasdiXgafv _pasdiUploadProtocol + _pasdiAccessToken + _pasdiUploadType + _pasdiCallback + (Just AltJSON) + _pasdiPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsDetectIntentResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Create.hs @@ -0,0 +1,173 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Create +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a session entity type. If the specified session entity type +-- already exists, overrides the session entity type. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.entityTypes.create@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Create + ( + -- * REST Resource + ProjectsAgentSessionsEntityTypesCreateResource + + -- * Creating a Request + , projectsAgentSessionsEntityTypesCreate + , ProjectsAgentSessionsEntityTypesCreate + + -- * Request Lenses + , paSetcParent + , paSetcXgafv + , paSetcUploadProtocol + , paSetcAccessToken + , paSetcUploadType + , paSetcPayload + , paSetcCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.entityTypes.create@ method which the +-- 'ProjectsAgentSessionsEntityTypesCreate' request conforms to. +type ProjectsAgentSessionsEntityTypesCreateResource = + "v2" :> + Capture "parent" Text :> + "entityTypes" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2SessionEntityType + :> + Post '[JSON] GoogleCloudDialogflowV2SessionEntityType + +-- | Creates a session entity type. If the specified session entity type +-- already exists, overrides the session entity type. +-- +-- /See:/ 'projectsAgentSessionsEntityTypesCreate' smart constructor. +data ProjectsAgentSessionsEntityTypesCreate = ProjectsAgentSessionsEntityTypesCreate' + { _paSetcParent :: !Text + , _paSetcXgafv :: !(Maybe Xgafv) + , _paSetcUploadProtocol :: !(Maybe Text) + , _paSetcAccessToken :: !(Maybe Text) + , _paSetcUploadType :: !(Maybe Text) + , _paSetcPayload :: !GoogleCloudDialogflowV2SessionEntityType + , _paSetcCallback :: !(Maybe Text) + } 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: +-- +-- * 'paSetcParent' +-- +-- * 'paSetcXgafv' +-- +-- * 'paSetcUploadProtocol' +-- +-- * 'paSetcAccessToken' +-- +-- * 'paSetcUploadType' +-- +-- * 'paSetcPayload' +-- +-- * 'paSetcCallback' +projectsAgentSessionsEntityTypesCreate + :: Text -- ^ 'paSetcParent' + -> GoogleCloudDialogflowV2SessionEntityType -- ^ 'paSetcPayload' + -> ProjectsAgentSessionsEntityTypesCreate +projectsAgentSessionsEntityTypesCreate pPaSetcParent_ pPaSetcPayload_ = + ProjectsAgentSessionsEntityTypesCreate' + { _paSetcParent = pPaSetcParent_ + , _paSetcXgafv = Nothing + , _paSetcUploadProtocol = Nothing + , _paSetcAccessToken = Nothing + , _paSetcUploadType = Nothing + , _paSetcPayload = pPaSetcPayload_ + , _paSetcCallback = Nothing + } + +-- | Required. The session to create a session entity type for. Format: +-- \`projects\/\/agent\/sessions\/\`. +paSetcParent :: Lens' ProjectsAgentSessionsEntityTypesCreate Text +paSetcParent + = lens _paSetcParent (\ s a -> s{_paSetcParent = a}) + +-- | V1 error format. +paSetcXgafv :: Lens' ProjectsAgentSessionsEntityTypesCreate (Maybe Xgafv) +paSetcXgafv + = lens _paSetcXgafv (\ s a -> s{_paSetcXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paSetcUploadProtocol :: Lens' ProjectsAgentSessionsEntityTypesCreate (Maybe Text) +paSetcUploadProtocol + = lens _paSetcUploadProtocol + (\ s a -> s{_paSetcUploadProtocol = a}) + +-- | OAuth access token. +paSetcAccessToken :: Lens' ProjectsAgentSessionsEntityTypesCreate (Maybe Text) +paSetcAccessToken + = lens _paSetcAccessToken + (\ s a -> s{_paSetcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paSetcUploadType :: Lens' ProjectsAgentSessionsEntityTypesCreate (Maybe Text) +paSetcUploadType + = lens _paSetcUploadType + (\ s a -> s{_paSetcUploadType = a}) + +-- | Multipart request metadata. +paSetcPayload :: Lens' ProjectsAgentSessionsEntityTypesCreate GoogleCloudDialogflowV2SessionEntityType +paSetcPayload + = lens _paSetcPayload + (\ s a -> s{_paSetcPayload = a}) + +-- | JSONP +paSetcCallback :: Lens' ProjectsAgentSessionsEntityTypesCreate (Maybe Text) +paSetcCallback + = lens _paSetcCallback + (\ s a -> s{_paSetcCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsEntityTypesCreate where + type Rs ProjectsAgentSessionsEntityTypesCreate = + GoogleCloudDialogflowV2SessionEntityType + type Scopes ProjectsAgentSessionsEntityTypesCreate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsEntityTypesCreate'{..} + = go _paSetcParent _paSetcXgafv _paSetcUploadProtocol + _paSetcAccessToken + _paSetcUploadType + _paSetcCallback + (Just AltJSON) + _paSetcPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsEntityTypesCreateResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Delete.hs @@ -0,0 +1,154 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified session entity type. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.entityTypes.delete@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Delete + ( + -- * REST Resource + ProjectsAgentSessionsEntityTypesDeleteResource + + -- * Creating a Request + , projectsAgentSessionsEntityTypesDelete + , ProjectsAgentSessionsEntityTypesDelete + + -- * Request Lenses + , paSetdXgafv + , paSetdUploadProtocol + , paSetdAccessToken + , paSetdUploadType + , paSetdName + , paSetdCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.entityTypes.delete@ method which the +-- 'ProjectsAgentSessionsEntityTypesDelete' request conforms to. +type ProjectsAgentSessionsEntityTypesDeleteResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Deletes the specified session entity type. +-- +-- /See:/ 'projectsAgentSessionsEntityTypesDelete' smart constructor. +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) + +-- | 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: +-- +-- * 'paSetdXgafv' +-- +-- * 'paSetdUploadProtocol' +-- +-- * 'paSetdAccessToken' +-- +-- * 'paSetdUploadType' +-- +-- * 'paSetdName' +-- +-- * 'paSetdCallback' +projectsAgentSessionsEntityTypesDelete + :: Text -- ^ 'paSetdName' + -> ProjectsAgentSessionsEntityTypesDelete +projectsAgentSessionsEntityTypesDelete pPaSetdName_ = + ProjectsAgentSessionsEntityTypesDelete' + { _paSetdXgafv = Nothing + , _paSetdUploadProtocol = Nothing + , _paSetdAccessToken = Nothing + , _paSetdUploadType = Nothing + , _paSetdName = pPaSetdName_ + , _paSetdCallback = Nothing + } + +-- | V1 error format. +paSetdXgafv :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Xgafv) +paSetdXgafv + = lens _paSetdXgafv (\ s a -> s{_paSetdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paSetdUploadProtocol :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Text) +paSetdUploadProtocol + = lens _paSetdUploadProtocol + (\ s a -> s{_paSetdUploadProtocol = a}) + +-- | OAuth access token. +paSetdAccessToken :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Text) +paSetdAccessToken + = lens _paSetdAccessToken + (\ s a -> s{_paSetdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paSetdUploadType :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Text) +paSetdUploadType + = lens _paSetdUploadType + (\ s a -> s{_paSetdUploadType = a}) + +-- | Required. The name of the entity type to delete. Format: +-- \`projects\/\/agent\/sessions\/\/entityTypes\/\`. +paSetdName :: Lens' ProjectsAgentSessionsEntityTypesDelete Text +paSetdName + = lens _paSetdName (\ s a -> s{_paSetdName = a}) + +-- | JSONP +paSetdCallback :: Lens' ProjectsAgentSessionsEntityTypesDelete (Maybe Text) +paSetdCallback + = lens _paSetdCallback + (\ s a -> s{_paSetdCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsEntityTypesDelete where + type Rs ProjectsAgentSessionsEntityTypesDelete = + GoogleProtobufEmpty + type Scopes ProjectsAgentSessionsEntityTypesDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsEntityTypesDelete'{..} + = go _paSetdName _paSetdXgafv _paSetdUploadProtocol + _paSetdAccessToken + _paSetdUploadType + _paSetdCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsEntityTypesDeleteResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Get.hs @@ -0,0 +1,154 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the specified session entity type. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.entityTypes.get@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Get + ( + -- * REST Resource + ProjectsAgentSessionsEntityTypesGetResource + + -- * Creating a Request + , projectsAgentSessionsEntityTypesGet + , ProjectsAgentSessionsEntityTypesGet + + -- * Request Lenses + , paSetgXgafv + , paSetgUploadProtocol + , paSetgAccessToken + , paSetgUploadType + , paSetgName + , paSetgCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.entityTypes.get@ method which the +-- 'ProjectsAgentSessionsEntityTypesGet' request conforms to. +type ProjectsAgentSessionsEntityTypesGetResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleCloudDialogflowV2SessionEntityType + +-- | Retrieves the specified session entity type. +-- +-- /See:/ 'projectsAgentSessionsEntityTypesGet' smart constructor. +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) + +-- | 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: +-- +-- * 'paSetgXgafv' +-- +-- * 'paSetgUploadProtocol' +-- +-- * 'paSetgAccessToken' +-- +-- * 'paSetgUploadType' +-- +-- * 'paSetgName' +-- +-- * 'paSetgCallback' +projectsAgentSessionsEntityTypesGet + :: Text -- ^ 'paSetgName' + -> ProjectsAgentSessionsEntityTypesGet +projectsAgentSessionsEntityTypesGet pPaSetgName_ = + ProjectsAgentSessionsEntityTypesGet' + { _paSetgXgafv = Nothing + , _paSetgUploadProtocol = Nothing + , _paSetgAccessToken = Nothing + , _paSetgUploadType = Nothing + , _paSetgName = pPaSetgName_ + , _paSetgCallback = Nothing + } + +-- | V1 error format. +paSetgXgafv :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Xgafv) +paSetgXgafv + = lens _paSetgXgafv (\ s a -> s{_paSetgXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paSetgUploadProtocol :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Text) +paSetgUploadProtocol + = lens _paSetgUploadProtocol + (\ s a -> s{_paSetgUploadProtocol = a}) + +-- | OAuth access token. +paSetgAccessToken :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Text) +paSetgAccessToken + = lens _paSetgAccessToken + (\ s a -> s{_paSetgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paSetgUploadType :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Text) +paSetgUploadType + = lens _paSetgUploadType + (\ s a -> s{_paSetgUploadType = a}) + +-- | Required. The name of the session entity type. Format: +-- \`projects\/\/agent\/sessions\/\/entityTypes\/\`. +paSetgName :: Lens' ProjectsAgentSessionsEntityTypesGet Text +paSetgName + = lens _paSetgName (\ s a -> s{_paSetgName = a}) + +-- | JSONP +paSetgCallback :: Lens' ProjectsAgentSessionsEntityTypesGet (Maybe Text) +paSetgCallback + = lens _paSetgCallback + (\ s a -> s{_paSetgCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsEntityTypesGet where + type Rs ProjectsAgentSessionsEntityTypesGet = + GoogleCloudDialogflowV2SessionEntityType + type Scopes ProjectsAgentSessionsEntityTypesGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsEntityTypesGet'{..} + = go _paSetgName _paSetgXgafv _paSetgUploadProtocol + _paSetgAccessToken + _paSetgUploadType + _paSetgCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsEntityTypesGetResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/List.hs @@ -0,0 +1,185 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the list of all session entity types in the specified session. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.entityTypes.list@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.List + ( + -- * REST Resource + ProjectsAgentSessionsEntityTypesListResource + + -- * Creating a Request + , projectsAgentSessionsEntityTypesList + , ProjectsAgentSessionsEntityTypesList + + -- * Request Lenses + , paSetlParent + , paSetlXgafv + , paSetlUploadProtocol + , paSetlAccessToken + , paSetlUploadType + , paSetlPageToken + , paSetlPageSize + , paSetlCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.entityTypes.list@ method which the +-- 'ProjectsAgentSessionsEntityTypesList' request conforms to. +type ProjectsAgentSessionsEntityTypesListResource = + "v2" :> + Capture "parent" Text :> + "entityTypes" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleCloudDialogflowV2ListSessionEntityTypesResponse + +-- | Returns the list of all session entity types in the specified session. +-- +-- /See:/ 'projectsAgentSessionsEntityTypesList' smart constructor. +data ProjectsAgentSessionsEntityTypesList = ProjectsAgentSessionsEntityTypesList' + { _paSetlParent :: !Text + , _paSetlXgafv :: !(Maybe Xgafv) + , _paSetlUploadProtocol :: !(Maybe Text) + , _paSetlAccessToken :: !(Maybe Text) + , _paSetlUploadType :: !(Maybe Text) + , _paSetlPageToken :: !(Maybe Text) + , _paSetlPageSize :: !(Maybe (Textual Int32)) + , _paSetlCallback :: !(Maybe Text) + } 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: +-- +-- * 'paSetlParent' +-- +-- * 'paSetlXgafv' +-- +-- * 'paSetlUploadProtocol' +-- +-- * 'paSetlAccessToken' +-- +-- * 'paSetlUploadType' +-- +-- * 'paSetlPageToken' +-- +-- * 'paSetlPageSize' +-- +-- * 'paSetlCallback' +projectsAgentSessionsEntityTypesList + :: Text -- ^ 'paSetlParent' + -> ProjectsAgentSessionsEntityTypesList +projectsAgentSessionsEntityTypesList pPaSetlParent_ = + ProjectsAgentSessionsEntityTypesList' + { _paSetlParent = pPaSetlParent_ + , _paSetlXgafv = Nothing + , _paSetlUploadProtocol = Nothing + , _paSetlAccessToken = Nothing + , _paSetlUploadType = Nothing + , _paSetlPageToken = Nothing + , _paSetlPageSize = Nothing + , _paSetlCallback = Nothing + } + +-- | Required. The session to list all session entity types from. Format: +-- \`projects\/\/agent\/sessions\/\`. +paSetlParent :: Lens' ProjectsAgentSessionsEntityTypesList Text +paSetlParent + = lens _paSetlParent (\ s a -> s{_paSetlParent = a}) + +-- | V1 error format. +paSetlXgafv :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Xgafv) +paSetlXgafv + = lens _paSetlXgafv (\ s a -> s{_paSetlXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paSetlUploadProtocol :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Text) +paSetlUploadProtocol + = lens _paSetlUploadProtocol + (\ s a -> s{_paSetlUploadProtocol = a}) + +-- | OAuth access token. +paSetlAccessToken :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Text) +paSetlAccessToken + = lens _paSetlAccessToken + (\ s a -> s{_paSetlAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paSetlUploadType :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Text) +paSetlUploadType + = lens _paSetlUploadType + (\ s a -> s{_paSetlUploadType = a}) + +-- | Optional. The next_page_token value returned from a previous list +-- request. +paSetlPageToken :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Text) +paSetlPageToken + = lens _paSetlPageToken + (\ s a -> s{_paSetlPageToken = a}) + +-- | Optional. The maximum number of items to return in a single page. By +-- default 100 and at most 1000. +paSetlPageSize :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Int32) +paSetlPageSize + = lens _paSetlPageSize + (\ s a -> s{_paSetlPageSize = a}) + . mapping _Coerce + +-- | JSONP +paSetlCallback :: Lens' ProjectsAgentSessionsEntityTypesList (Maybe Text) +paSetlCallback + = lens _paSetlCallback + (\ s a -> s{_paSetlCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsEntityTypesList where + type Rs ProjectsAgentSessionsEntityTypesList = + GoogleCloudDialogflowV2ListSessionEntityTypesResponse + type Scopes ProjectsAgentSessionsEntityTypesList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsEntityTypesList'{..} + = go _paSetlParent _paSetlXgafv _paSetlUploadProtocol + _paSetlAccessToken + _paSetlUploadType + _paSetlPageToken + _paSetlPageSize + _paSetlCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsEntityTypesListResource) + mempty 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 new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Sessions/EntityTypes/Patch.hs @@ -0,0 +1,186 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the specified session entity type. +-- +-- /See:/ for @dialogflow.projects.agent.sessions.entityTypes.patch@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Patch + ( + -- * REST Resource + ProjectsAgentSessionsEntityTypesPatchResource + + -- * Creating a Request + , projectsAgentSessionsEntityTypesPatch + , ProjectsAgentSessionsEntityTypesPatch + + -- * Request Lenses + , paSetpXgafv + , paSetpUploadProtocol + , paSetpUpdateMask + , paSetpAccessToken + , paSetpUploadType + , paSetpPayload + , paSetpName + , paSetpCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.sessions.entityTypes.patch@ method which the +-- 'ProjectsAgentSessionsEntityTypesPatch' request conforms to. +type ProjectsAgentSessionsEntityTypesPatchResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "updateMask" GFieldMask :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2SessionEntityType + :> + Patch '[JSON] + GoogleCloudDialogflowV2SessionEntityType + +-- | Updates the specified session entity type. +-- +-- /See:/ 'projectsAgentSessionsEntityTypesPatch' smart constructor. +data ProjectsAgentSessionsEntityTypesPatch = ProjectsAgentSessionsEntityTypesPatch' + { _paSetpXgafv :: !(Maybe Xgafv) + , _paSetpUploadProtocol :: !(Maybe Text) + , _paSetpUpdateMask :: !(Maybe GFieldMask) + , _paSetpAccessToken :: !(Maybe Text) + , _paSetpUploadType :: !(Maybe Text) + , _paSetpPayload :: !GoogleCloudDialogflowV2SessionEntityType + , _paSetpName :: !Text + , _paSetpCallback :: !(Maybe Text) + } 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: +-- +-- * 'paSetpXgafv' +-- +-- * 'paSetpUploadProtocol' +-- +-- * 'paSetpUpdateMask' +-- +-- * 'paSetpAccessToken' +-- +-- * 'paSetpUploadType' +-- +-- * 'paSetpPayload' +-- +-- * 'paSetpName' +-- +-- * 'paSetpCallback' +projectsAgentSessionsEntityTypesPatch + :: GoogleCloudDialogflowV2SessionEntityType -- ^ 'paSetpPayload' + -> Text -- ^ 'paSetpName' + -> ProjectsAgentSessionsEntityTypesPatch +projectsAgentSessionsEntityTypesPatch pPaSetpPayload_ pPaSetpName_ = + ProjectsAgentSessionsEntityTypesPatch' + { _paSetpXgafv = Nothing + , _paSetpUploadProtocol = Nothing + , _paSetpUpdateMask = Nothing + , _paSetpAccessToken = Nothing + , _paSetpUploadType = Nothing + , _paSetpPayload = pPaSetpPayload_ + , _paSetpName = pPaSetpName_ + , _paSetpCallback = Nothing + } + +-- | V1 error format. +paSetpXgafv :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Xgafv) +paSetpXgafv + = lens _paSetpXgafv (\ s a -> s{_paSetpXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +paSetpUploadProtocol :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Text) +paSetpUploadProtocol + = lens _paSetpUploadProtocol + (\ s a -> s{_paSetpUploadProtocol = a}) + +-- | Optional. The mask to control which fields get updated. +paSetpUpdateMask :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe GFieldMask) +paSetpUpdateMask + = lens _paSetpUpdateMask + (\ s a -> s{_paSetpUpdateMask = a}) + +-- | OAuth access token. +paSetpAccessToken :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Text) +paSetpAccessToken + = lens _paSetpAccessToken + (\ s a -> s{_paSetpAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +paSetpUploadType :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Text) +paSetpUploadType + = lens _paSetpUploadType + (\ s a -> s{_paSetpUploadType = a}) + +-- | Multipart request metadata. +paSetpPayload :: Lens' ProjectsAgentSessionsEntityTypesPatch GoogleCloudDialogflowV2SessionEntityType +paSetpPayload + = lens _paSetpPayload + (\ s a -> s{_paSetpPayload = a}) + +-- | 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. +paSetpName :: Lens' ProjectsAgentSessionsEntityTypesPatch Text +paSetpName + = lens _paSetpName (\ s a -> s{_paSetpName = a}) + +-- | JSONP +paSetpCallback :: Lens' ProjectsAgentSessionsEntityTypesPatch (Maybe Text) +paSetpCallback + = lens _paSetpCallback + (\ s a -> s{_paSetpCallback = a}) + +instance GoogleRequest + ProjectsAgentSessionsEntityTypesPatch where + type Rs ProjectsAgentSessionsEntityTypesPatch = + GoogleCloudDialogflowV2SessionEntityType + type Scopes ProjectsAgentSessionsEntityTypesPatch = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient + ProjectsAgentSessionsEntityTypesPatch'{..} + = go _paSetpName _paSetpXgafv _paSetpUploadProtocol + _paSetpUpdateMask + _paSetpAccessToken + _paSetpUploadType + _paSetpCallback + (Just AltJSON) + _paSetpPayload + dialogFlowService + where go + = buildClient + (Proxy :: + Proxy ProjectsAgentSessionsEntityTypesPatchResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Agent/Train.hs @@ -0,0 +1,164 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Agent.Train +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Trains the specified agent. Operation +-- +-- /See:/ for @dialogflow.projects.agent.train@. +module Network.Google.Resource.DialogFlow.Projects.Agent.Train + ( + -- * REST Resource + ProjectsAgentTrainResource + + -- * Creating a Request + , projectsAgentTrain + , ProjectsAgentTrain + + -- * Request Lenses + , patParent + , patXgafv + , patUploadProtocol + , patAccessToken + , patUploadType + , patPayload + , patCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.agent.train@ method which the +-- 'ProjectsAgentTrain' request conforms to. +type ProjectsAgentTrainResource = + "v2" :> + Capture "parent" Text :> + "agent:train" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleCloudDialogflowV2TrainAgentRequest + :> Post '[JSON] GoogleLongrunningOperation + +-- | Trains the specified agent. Operation +-- +-- /See:/ 'projectsAgentTrain' smart constructor. +data ProjectsAgentTrain = ProjectsAgentTrain' + { _patParent :: !Text + , _patXgafv :: !(Maybe Xgafv) + , _patUploadProtocol :: !(Maybe Text) + , _patAccessToken :: !(Maybe Text) + , _patUploadType :: !(Maybe Text) + , _patPayload :: !GoogleCloudDialogflowV2TrainAgentRequest + , _patCallback :: !(Maybe Text) + } 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: +-- +-- * 'patParent' +-- +-- * 'patXgafv' +-- +-- * 'patUploadProtocol' +-- +-- * 'patAccessToken' +-- +-- * 'patUploadType' +-- +-- * 'patPayload' +-- +-- * 'patCallback' +projectsAgentTrain + :: Text -- ^ 'patParent' + -> GoogleCloudDialogflowV2TrainAgentRequest -- ^ 'patPayload' + -> ProjectsAgentTrain +projectsAgentTrain pPatParent_ pPatPayload_ = + ProjectsAgentTrain' + { _patParent = pPatParent_ + , _patXgafv = Nothing + , _patUploadProtocol = Nothing + , _patAccessToken = Nothing + , _patUploadType = Nothing + , _patPayload = pPatPayload_ + , _patCallback = Nothing + } + +-- | Required. The project that the agent to train is associated with. +-- Format: \`projects\/\`. +patParent :: Lens' ProjectsAgentTrain Text +patParent + = lens _patParent (\ s a -> s{_patParent = a}) + +-- | V1 error format. +patXgafv :: Lens' ProjectsAgentTrain (Maybe Xgafv) +patXgafv = lens _patXgafv (\ s a -> s{_patXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +patUploadProtocol :: Lens' ProjectsAgentTrain (Maybe Text) +patUploadProtocol + = lens _patUploadProtocol + (\ s a -> s{_patUploadProtocol = a}) + +-- | OAuth access token. +patAccessToken :: Lens' ProjectsAgentTrain (Maybe Text) +patAccessToken + = lens _patAccessToken + (\ s a -> s{_patAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +patUploadType :: Lens' ProjectsAgentTrain (Maybe Text) +patUploadType + = lens _patUploadType + (\ s a -> s{_patUploadType = a}) + +-- | Multipart request metadata. +patPayload :: Lens' ProjectsAgentTrain GoogleCloudDialogflowV2TrainAgentRequest +patPayload + = lens _patPayload (\ s a -> s{_patPayload = a}) + +-- | JSONP +patCallback :: Lens' ProjectsAgentTrain (Maybe Text) +patCallback + = lens _patCallback (\ s a -> s{_patCallback = a}) + +instance GoogleRequest ProjectsAgentTrain where + type Rs ProjectsAgentTrain = + GoogleLongrunningOperation + type Scopes ProjectsAgentTrain = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsAgentTrain'{..} + = go _patParent _patXgafv _patUploadProtocol + _patAccessToken + _patUploadType + _patCallback + (Just AltJSON) + _patPayload + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsAgentTrainResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs b/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/GetAgent.hs @@ -0,0 +1,150 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.GetAgent +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the specified agent. +-- +-- /See:/ for @dialogflow.projects.getAgent@. +module Network.Google.Resource.DialogFlow.Projects.GetAgent + ( + -- * REST Resource + ProjectsGetAgentResource + + -- * Creating a Request + , projectsGetAgent + , ProjectsGetAgent + + -- * Request Lenses + , pgaParent + , pgaXgafv + , pgaUploadProtocol + , pgaAccessToken + , pgaUploadType + , pgaCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.getAgent@ method which the +-- 'ProjectsGetAgent' request conforms to. +type ProjectsGetAgentResource = + "v2" :> + Capture "parent" Text :> + "agent" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleCloudDialogflowV2Agent + +-- | Retrieves the specified agent. +-- +-- /See:/ 'projectsGetAgent' smart constructor. +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) + +-- | 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: +-- +-- * 'pgaParent' +-- +-- * 'pgaXgafv' +-- +-- * 'pgaUploadProtocol' +-- +-- * 'pgaAccessToken' +-- +-- * 'pgaUploadType' +-- +-- * 'pgaCallback' +projectsGetAgent + :: Text -- ^ 'pgaParent' + -> ProjectsGetAgent +projectsGetAgent pPgaParent_ = + ProjectsGetAgent' + { _pgaParent = pPgaParent_ + , _pgaXgafv = Nothing + , _pgaUploadProtocol = Nothing + , _pgaAccessToken = Nothing + , _pgaUploadType = Nothing + , _pgaCallback = Nothing + } + +-- | Required. The project that the agent to fetch is associated with. +-- Format: \`projects\/\`. +pgaParent :: Lens' ProjectsGetAgent Text +pgaParent + = lens _pgaParent (\ s a -> s{_pgaParent = a}) + +-- | V1 error format. +pgaXgafv :: Lens' ProjectsGetAgent (Maybe Xgafv) +pgaXgafv = lens _pgaXgafv (\ s a -> s{_pgaXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pgaUploadProtocol :: Lens' ProjectsGetAgent (Maybe Text) +pgaUploadProtocol + = lens _pgaUploadProtocol + (\ s a -> s{_pgaUploadProtocol = a}) + +-- | OAuth access token. +pgaAccessToken :: Lens' ProjectsGetAgent (Maybe Text) +pgaAccessToken + = lens _pgaAccessToken + (\ s a -> s{_pgaAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pgaUploadType :: Lens' ProjectsGetAgent (Maybe Text) +pgaUploadType + = lens _pgaUploadType + (\ s a -> s{_pgaUploadType = a}) + +-- | JSONP +pgaCallback :: Lens' ProjectsGetAgent (Maybe Text) +pgaCallback + = lens _pgaCallback (\ s a -> s{_pgaCallback = a}) + +instance GoogleRequest ProjectsGetAgent where + type Rs ProjectsGetAgent = + GoogleCloudDialogflowV2Agent + type Scopes ProjectsGetAgent = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsGetAgent'{..} + = go _pgaParent _pgaXgafv _pgaUploadProtocol + _pgaAccessToken + _pgaUploadType + _pgaCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsGetAgentResource) + mempty diff --git a/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs b/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DialogFlow/Projects/Operations/Get.hs @@ -0,0 +1,151 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.DialogFlow.Projects.Operations.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the latest state of a long-running operation. Clients can use this +-- method to poll the operation result at intervals as recommended by the +-- API service. +-- +-- /See:/ for @dialogflow.projects.operations.get@. +module Network.Google.Resource.DialogFlow.Projects.Operations.Get + ( + -- * REST Resource + ProjectsOperationsGetResource + + -- * Creating a Request + , projectsOperationsGet + , ProjectsOperationsGet + + -- * Request Lenses + , pogXgafv + , pogUploadProtocol + , pogAccessToken + , pogUploadType + , pogName + , pogCallback + ) where + +import Network.Google.DialogFlow.Types +import Network.Google.Prelude + +-- | A resource alias for @dialogflow.projects.operations.get@ method which the +-- 'ProjectsOperationsGet' request conforms to. +type ProjectsOperationsGetResource = + "v2" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GoogleLongrunningOperation + +-- | Gets the latest state of a long-running operation. Clients can use this +-- method to poll the operation result at intervals as recommended by the +-- API service. +-- +-- /See:/ 'projectsOperationsGet' smart constructor. +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) + +-- | 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: +-- +-- * 'pogXgafv' +-- +-- * 'pogUploadProtocol' +-- +-- * 'pogAccessToken' +-- +-- * 'pogUploadType' +-- +-- * 'pogName' +-- +-- * 'pogCallback' +projectsOperationsGet + :: Text -- ^ 'pogName' + -> ProjectsOperationsGet +projectsOperationsGet pPogName_ = + ProjectsOperationsGet' + { _pogXgafv = Nothing + , _pogUploadProtocol = Nothing + , _pogAccessToken = Nothing + , _pogUploadType = Nothing + , _pogName = pPogName_ + , _pogCallback = Nothing + } + +-- | V1 error format. +pogXgafv :: Lens' ProjectsOperationsGet (Maybe Xgafv) +pogXgafv = lens _pogXgafv (\ s a -> s{_pogXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pogUploadProtocol :: Lens' ProjectsOperationsGet (Maybe Text) +pogUploadProtocol + = lens _pogUploadProtocol + (\ s a -> s{_pogUploadProtocol = a}) + +-- | OAuth access token. +pogAccessToken :: Lens' ProjectsOperationsGet (Maybe Text) +pogAccessToken + = lens _pogAccessToken + (\ s a -> s{_pogAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pogUploadType :: Lens' ProjectsOperationsGet (Maybe Text) +pogUploadType + = lens _pogUploadType + (\ s a -> s{_pogUploadType = a}) + +-- | The name of the operation resource. +pogName :: Lens' ProjectsOperationsGet Text +pogName = lens _pogName (\ s a -> s{_pogName = a}) + +-- | JSONP +pogCallback :: Lens' ProjectsOperationsGet (Maybe Text) +pogCallback + = lens _pogCallback (\ s a -> s{_pogCallback = a}) + +instance GoogleRequest ProjectsOperationsGet where + type Rs ProjectsOperationsGet = + GoogleLongrunningOperation + type Scopes ProjectsOperationsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/dialogflow"] + requestClient ProjectsOperationsGet'{..} + = go _pogName _pogXgafv _pogUploadProtocol + _pogAccessToken + _pogUploadType + _pogCallback + (Just AltJSON) + dialogFlowService + where go + = buildClient + (Proxy :: Proxy ProjectsOperationsGetResource) + mempty diff --git a/gogol-dialogflow.cabal b/gogol-dialogflow.cabal new file mode 100644 --- /dev/null +++ b/gogol-dialogflow.cabal @@ -0,0 +1,82 @@ +name: gogol-dialogflow +version: 0.4.0 +synopsis: Google Dialogflow SDK. +homepage: https://github.com/brendanhay/gogol +bug-reports: https://github.com/brendanhay/gogol/issues +license: OtherLicense +license-file: LICENSE +author: Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay +category: Network, Google, Cloud +build-type: Simple +cabal-version: >= 1.10 +extra-source-files: README.md src/.gitkeep + +description: + Builds conversational interfaces (for example, chatbots, and + voice-powered apps and devices). + . + /Warning:/ This is an experimental prototype/preview release which is still + under exploratory development and not intended for public use, caveat emptor! + . + This library is compatible with version @v2@ + of the API. + +source-repository head + type: git + location: git://github.com/brendanhay/gogol.git + +library + default-language: Haskell2010 + hs-source-dirs: src gen + + ghc-options: -Wall + + exposed-modules: + Network.Google.DialogFlow + , Network.Google.DialogFlow.Types + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchDelete + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.BatchUpdate + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Create + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Delete + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchCreate + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchDelete + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Entities.BatchUpdate + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Get + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.List + , Network.Google.Resource.DialogFlow.Projects.Agent.EntityTypes.Patch + , Network.Google.Resource.DialogFlow.Projects.Agent.Export + , Network.Google.Resource.DialogFlow.Projects.Agent.Import + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchDelete + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.BatchUpdate + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Create + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Delete + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Get + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.List + , Network.Google.Resource.DialogFlow.Projects.Agent.Intents.Patch + , Network.Google.Resource.DialogFlow.Projects.Agent.Restore + , Network.Google.Resource.DialogFlow.Projects.Agent.Search + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Create + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Delete + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Get + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.List + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.Contexts.Patch + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DeleteContexts + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.DetectIntent + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Create + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Delete + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Get + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.List + , Network.Google.Resource.DialogFlow.Projects.Agent.Sessions.EntityTypes.Patch + , Network.Google.Resource.DialogFlow.Projects.Agent.Train + , Network.Google.Resource.DialogFlow.Projects.GetAgent + , Network.Google.Resource.DialogFlow.Projects.Operations.Get + + other-modules: + Network.Google.DialogFlow.Types.Product + , Network.Google.DialogFlow.Types.Sum + + build-depends: + gogol-core == 0.4.0.* + , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep