{-# 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.CloudScheduler.Projects.Locations.Jobs.Delete
(
ProjectsLocationsJobsDeleteResource
, projectsLocationsJobsDelete
, ProjectsLocationsJobsDelete
, pljdXgafv
, pljdUploadProtocol
, pljdAccessToken
, pljdUploadType
, pljdName
, pljdCallback
) where
import Network.Google.CloudScheduler.Types
import Network.Google.Prelude
type ProjectsLocationsJobsDeleteResource =
"v1beta1" :>
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 ProjectsLocationsJobsDelete = ProjectsLocationsJobsDelete'
{ _pljdXgafv :: !(Maybe Xgafv)
, _pljdUploadProtocol :: !(Maybe Text)
, _pljdAccessToken :: !(Maybe Text)
, _pljdUploadType :: !(Maybe Text)
, _pljdName :: !Text
, _pljdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsJobsDelete
:: Text
-> ProjectsLocationsJobsDelete
projectsLocationsJobsDelete pPljdName_ =
ProjectsLocationsJobsDelete'
{ _pljdXgafv = Nothing
, _pljdUploadProtocol = Nothing
, _pljdAccessToken = Nothing
, _pljdUploadType = Nothing
, _pljdName = pPljdName_
, _pljdCallback = Nothing
}
pljdXgafv :: Lens' ProjectsLocationsJobsDelete (Maybe Xgafv)
pljdXgafv
= lens _pljdXgafv (\ s a -> s{_pljdXgafv = a})
pljdUploadProtocol :: Lens' ProjectsLocationsJobsDelete (Maybe Text)
pljdUploadProtocol
= lens _pljdUploadProtocol
(\ s a -> s{_pljdUploadProtocol = a})
pljdAccessToken :: Lens' ProjectsLocationsJobsDelete (Maybe Text)
pljdAccessToken
= lens _pljdAccessToken
(\ s a -> s{_pljdAccessToken = a})
pljdUploadType :: Lens' ProjectsLocationsJobsDelete (Maybe Text)
pljdUploadType
= lens _pljdUploadType
(\ s a -> s{_pljdUploadType = a})
pljdName :: Lens' ProjectsLocationsJobsDelete Text
pljdName = lens _pljdName (\ s a -> s{_pljdName = a})
pljdCallback :: Lens' ProjectsLocationsJobsDelete (Maybe Text)
pljdCallback
= lens _pljdCallback (\ s a -> s{_pljdCallback = a})
instance GoogleRequest ProjectsLocationsJobsDelete
where
type Rs ProjectsLocationsJobsDelete = Empty
type Scopes ProjectsLocationsJobsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsJobsDelete'{..}
= go _pljdName _pljdXgafv _pljdUploadProtocol
_pljdAccessToken
_pljdUploadType
_pljdCallback
(Just AltJSON)
cloudSchedulerService
where go
= buildClient
(Proxy :: Proxy ProjectsLocationsJobsDeleteResource)
mempty