{-# 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.DLP.Projects.JobTriggers.Delete
(
ProjectsJobTriggersDeleteResource
, projectsJobTriggersDelete
, ProjectsJobTriggersDelete
, pjtdXgafv
, pjtdUploadProtocol
, pjtdAccessToken
, pjtdUploadType
, pjtdName
, pjtdCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsJobTriggersDeleteResource =
"v2" :>
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] GoogleProtobufEmpty
data ProjectsJobTriggersDelete = ProjectsJobTriggersDelete'
{ _pjtdXgafv :: !(Maybe Xgafv)
, _pjtdUploadProtocol :: !(Maybe Text)
, _pjtdAccessToken :: !(Maybe Text)
, _pjtdUploadType :: !(Maybe Text)
, _pjtdName :: !Text
, _pjtdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobTriggersDelete
:: Text
-> ProjectsJobTriggersDelete
projectsJobTriggersDelete pPjtdName_ =
ProjectsJobTriggersDelete'
{ _pjtdXgafv = Nothing
, _pjtdUploadProtocol = Nothing
, _pjtdAccessToken = Nothing
, _pjtdUploadType = Nothing
, _pjtdName = pPjtdName_
, _pjtdCallback = Nothing
}
pjtdXgafv :: Lens' ProjectsJobTriggersDelete (Maybe Xgafv)
pjtdXgafv
= lens _pjtdXgafv (\ s a -> s{_pjtdXgafv = a})
pjtdUploadProtocol :: Lens' ProjectsJobTriggersDelete (Maybe Text)
pjtdUploadProtocol
= lens _pjtdUploadProtocol
(\ s a -> s{_pjtdUploadProtocol = a})
pjtdAccessToken :: Lens' ProjectsJobTriggersDelete (Maybe Text)
pjtdAccessToken
= lens _pjtdAccessToken
(\ s a -> s{_pjtdAccessToken = a})
pjtdUploadType :: Lens' ProjectsJobTriggersDelete (Maybe Text)
pjtdUploadType
= lens _pjtdUploadType
(\ s a -> s{_pjtdUploadType = a})
pjtdName :: Lens' ProjectsJobTriggersDelete Text
pjtdName = lens _pjtdName (\ s a -> s{_pjtdName = a})
pjtdCallback :: Lens' ProjectsJobTriggersDelete (Maybe Text)
pjtdCallback
= lens _pjtdCallback (\ s a -> s{_pjtdCallback = a})
instance GoogleRequest ProjectsJobTriggersDelete
where
type Rs ProjectsJobTriggersDelete =
GoogleProtobufEmpty
type Scopes ProjectsJobTriggersDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsJobTriggersDelete'{..}
= go _pjtdName _pjtdXgafv _pjtdUploadProtocol
_pjtdAccessToken
_pjtdUploadType
_pjtdCallback
(Just AltJSON)
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsJobTriggersDeleteResource)
mempty