{-# 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
(
ProjectsAgentIntentsBatchUpdateResource
, projectsAgentIntentsBatchUpdate
, ProjectsAgentIntentsBatchUpdate
, paibuParent
, paibuXgafv
, paibuUploadProtocol
, paibuAccessToken
, paibuUploadType
, paibuPayload
, paibuCallback
) where
import Network.Google.DialogFlow.Types
import Network.Google.Prelude
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
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)
projectsAgentIntentsBatchUpdate
:: Text
-> GoogleCloudDialogflowV2BatchUpdateIntentsRequest
-> ProjectsAgentIntentsBatchUpdate
projectsAgentIntentsBatchUpdate pPaibuParent_ pPaibuPayload_ =
ProjectsAgentIntentsBatchUpdate'
{ _paibuParent = pPaibuParent_
, _paibuXgafv = Nothing
, _paibuUploadProtocol = Nothing
, _paibuAccessToken = Nothing
, _paibuUploadType = Nothing
, _paibuPayload = pPaibuPayload_
, _paibuCallback = Nothing
}
paibuParent :: Lens' ProjectsAgentIntentsBatchUpdate Text
paibuParent
= lens _paibuParent (\ s a -> s{_paibuParent = a})
paibuXgafv :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Xgafv)
paibuXgafv
= lens _paibuXgafv (\ s a -> s{_paibuXgafv = a})
paibuUploadProtocol :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text)
paibuUploadProtocol
= lens _paibuUploadProtocol
(\ s a -> s{_paibuUploadProtocol = a})
paibuAccessToken :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text)
paibuAccessToken
= lens _paibuAccessToken
(\ s a -> s{_paibuAccessToken = a})
paibuUploadType :: Lens' ProjectsAgentIntentsBatchUpdate (Maybe Text)
paibuUploadType
= lens _paibuUploadType
(\ s a -> s{_paibuUploadType = a})
paibuPayload :: Lens' ProjectsAgentIntentsBatchUpdate GoogleCloudDialogflowV2BatchUpdateIntentsRequest
paibuPayload
= lens _paibuPayload (\ s a -> s{_paibuPayload = a})
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