{-# 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
(
ProjectsAgentEntityTypesBatchUpdateResource
, projectsAgentEntityTypesBatchUpdate
, ProjectsAgentEntityTypesBatchUpdate
, paetbuParent
, paetbuXgafv
, paetbuUploadProtocol
, paetbuAccessToken
, paetbuUploadType
, paetbuPayload
, paetbuCallback
) where
import Network.Google.DialogFlow.Types
import Network.Google.Prelude
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
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)
projectsAgentEntityTypesBatchUpdate
:: Text
-> GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest
-> ProjectsAgentEntityTypesBatchUpdate
projectsAgentEntityTypesBatchUpdate pPaetbuParent_ pPaetbuPayload_ =
ProjectsAgentEntityTypesBatchUpdate'
{ _paetbuParent = pPaetbuParent_
, _paetbuXgafv = Nothing
, _paetbuUploadProtocol = Nothing
, _paetbuAccessToken = Nothing
, _paetbuUploadType = Nothing
, _paetbuPayload = pPaetbuPayload_
, _paetbuCallback = Nothing
}
paetbuParent :: Lens' ProjectsAgentEntityTypesBatchUpdate Text
paetbuParent
= lens _paetbuParent (\ s a -> s{_paetbuParent = a})
paetbuXgafv :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Xgafv)
paetbuXgafv
= lens _paetbuXgafv (\ s a -> s{_paetbuXgafv = a})
paetbuUploadProtocol :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text)
paetbuUploadProtocol
= lens _paetbuUploadProtocol
(\ s a -> s{_paetbuUploadProtocol = a})
paetbuAccessToken :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text)
paetbuAccessToken
= lens _paetbuAccessToken
(\ s a -> s{_paetbuAccessToken = a})
paetbuUploadType :: Lens' ProjectsAgentEntityTypesBatchUpdate (Maybe Text)
paetbuUploadType
= lens _paetbuUploadType
(\ s a -> s{_paetbuUploadType = a})
paetbuPayload :: Lens' ProjectsAgentEntityTypesBatchUpdate GoogleCloudDialogflowV2BatchUpdateEntityTypesRequest
paetbuPayload
= lens _paetbuPayload
(\ s a -> s{_paetbuPayload = a})
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