{-# 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.Jobs.Projects.Jobs.BatchDelete
(
ProjectsJobsBatchDeleteResource
, projectsJobsBatchDelete
, ProjectsJobsBatchDelete
, pjbdParent
, pjbdXgafv
, pjbdUploadProtocol
, pjbdAccessToken
, pjbdUploadType
, pjbdPayload
, pjbdCallback
) where
import Network.Google.Jobs.Types
import Network.Google.Prelude
type ProjectsJobsBatchDeleteResource =
"v3p1beta1" :>
Capture "parent" Text :>
"jobs:batchDelete" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] BatchDeleteJobsRequest :>
Post '[JSON] Empty
data ProjectsJobsBatchDelete = ProjectsJobsBatchDelete'
{ _pjbdParent :: !Text
, _pjbdXgafv :: !(Maybe Xgafv)
, _pjbdUploadProtocol :: !(Maybe Text)
, _pjbdAccessToken :: !(Maybe Text)
, _pjbdUploadType :: !(Maybe Text)
, _pjbdPayload :: !BatchDeleteJobsRequest
, _pjbdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobsBatchDelete
:: Text
-> BatchDeleteJobsRequest
-> ProjectsJobsBatchDelete
projectsJobsBatchDelete pPjbdParent_ pPjbdPayload_ =
ProjectsJobsBatchDelete'
{ _pjbdParent = pPjbdParent_
, _pjbdXgafv = Nothing
, _pjbdUploadProtocol = Nothing
, _pjbdAccessToken = Nothing
, _pjbdUploadType = Nothing
, _pjbdPayload = pPjbdPayload_
, _pjbdCallback = Nothing
}
pjbdParent :: Lens' ProjectsJobsBatchDelete Text
pjbdParent
= lens _pjbdParent (\ s a -> s{_pjbdParent = a})
pjbdXgafv :: Lens' ProjectsJobsBatchDelete (Maybe Xgafv)
pjbdXgafv
= lens _pjbdXgafv (\ s a -> s{_pjbdXgafv = a})
pjbdUploadProtocol :: Lens' ProjectsJobsBatchDelete (Maybe Text)
pjbdUploadProtocol
= lens _pjbdUploadProtocol
(\ s a -> s{_pjbdUploadProtocol = a})
pjbdAccessToken :: Lens' ProjectsJobsBatchDelete (Maybe Text)
pjbdAccessToken
= lens _pjbdAccessToken
(\ s a -> s{_pjbdAccessToken = a})
pjbdUploadType :: Lens' ProjectsJobsBatchDelete (Maybe Text)
pjbdUploadType
= lens _pjbdUploadType
(\ s a -> s{_pjbdUploadType = a})
pjbdPayload :: Lens' ProjectsJobsBatchDelete BatchDeleteJobsRequest
pjbdPayload
= lens _pjbdPayload (\ s a -> s{_pjbdPayload = a})
pjbdCallback :: Lens' ProjectsJobsBatchDelete (Maybe Text)
pjbdCallback
= lens _pjbdCallback (\ s a -> s{_pjbdCallback = a})
instance GoogleRequest ProjectsJobsBatchDelete where
type Rs ProjectsJobsBatchDelete = Empty
type Scopes ProjectsJobsBatchDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/jobs"]
requestClient ProjectsJobsBatchDelete'{..}
= go _pjbdParent _pjbdXgafv _pjbdUploadProtocol
_pjbdAccessToken
_pjbdUploadType
_pjbdCallback
(Just AltJSON)
_pjbdPayload
jobsService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsBatchDeleteResource)
mempty