{-# 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.Delete
(
ProjectsJobsDeleteResource
, projectsJobsDelete
, ProjectsJobsDelete
, pjdXgafv
, pjdUploadProtocol
, pjdAccessToken
, pjdUploadType
, pjdName
, pjdCallback
) where
import Network.Google.Jobs.Types
import Network.Google.Prelude
type ProjectsJobsDeleteResource =
"v3p1beta1" :>
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] Empty
data ProjectsJobsDelete = ProjectsJobsDelete'
{ _pjdXgafv :: !(Maybe Xgafv)
, _pjdUploadProtocol :: !(Maybe Text)
, _pjdAccessToken :: !(Maybe Text)
, _pjdUploadType :: !(Maybe Text)
, _pjdName :: !Text
, _pjdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobsDelete
:: Text
-> ProjectsJobsDelete
projectsJobsDelete pPjdName_ =
ProjectsJobsDelete'
{ _pjdXgafv = Nothing
, _pjdUploadProtocol = Nothing
, _pjdAccessToken = Nothing
, _pjdUploadType = Nothing
, _pjdName = pPjdName_
, _pjdCallback = Nothing
}
pjdXgafv :: Lens' ProjectsJobsDelete (Maybe Xgafv)
pjdXgafv = lens _pjdXgafv (\ s a -> s{_pjdXgafv = a})
pjdUploadProtocol :: Lens' ProjectsJobsDelete (Maybe Text)
pjdUploadProtocol
= lens _pjdUploadProtocol
(\ s a -> s{_pjdUploadProtocol = a})
pjdAccessToken :: Lens' ProjectsJobsDelete (Maybe Text)
pjdAccessToken
= lens _pjdAccessToken
(\ s a -> s{_pjdAccessToken = a})
pjdUploadType :: Lens' ProjectsJobsDelete (Maybe Text)
pjdUploadType
= lens _pjdUploadType
(\ s a -> s{_pjdUploadType = a})
pjdName :: Lens' ProjectsJobsDelete Text
pjdName = lens _pjdName (\ s a -> s{_pjdName = a})
pjdCallback :: Lens' ProjectsJobsDelete (Maybe Text)
pjdCallback
= lens _pjdCallback (\ s a -> s{_pjdCallback = a})
instance GoogleRequest ProjectsJobsDelete where
type Rs ProjectsJobsDelete = Empty
type Scopes ProjectsJobsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/jobs"]
requestClient ProjectsJobsDelete'{..}
= go _pjdName _pjdXgafv _pjdUploadProtocol
_pjdAccessToken
_pjdUploadType
_pjdCallback
(Just AltJSON)
jobsService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsDeleteResource)
mempty