{-# 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.InspectTemplates.Delete
(
ProjectsInspectTemplatesDeleteResource
, projectsInspectTemplatesDelete
, ProjectsInspectTemplatesDelete
, pitdXgafv
, pitdUploadProtocol
, pitdAccessToken
, pitdUploadType
, pitdName
, pitdCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsInspectTemplatesDeleteResource =
"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 ProjectsInspectTemplatesDelete = ProjectsInspectTemplatesDelete'
{ _pitdXgafv :: !(Maybe Xgafv)
, _pitdUploadProtocol :: !(Maybe Text)
, _pitdAccessToken :: !(Maybe Text)
, _pitdUploadType :: !(Maybe Text)
, _pitdName :: !Text
, _pitdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsInspectTemplatesDelete
:: Text
-> ProjectsInspectTemplatesDelete
projectsInspectTemplatesDelete pPitdName_ =
ProjectsInspectTemplatesDelete'
{ _pitdXgafv = Nothing
, _pitdUploadProtocol = Nothing
, _pitdAccessToken = Nothing
, _pitdUploadType = Nothing
, _pitdName = pPitdName_
, _pitdCallback = Nothing
}
pitdXgafv :: Lens' ProjectsInspectTemplatesDelete (Maybe Xgafv)
pitdXgafv
= lens _pitdXgafv (\ s a -> s{_pitdXgafv = a})
pitdUploadProtocol :: Lens' ProjectsInspectTemplatesDelete (Maybe Text)
pitdUploadProtocol
= lens _pitdUploadProtocol
(\ s a -> s{_pitdUploadProtocol = a})
pitdAccessToken :: Lens' ProjectsInspectTemplatesDelete (Maybe Text)
pitdAccessToken
= lens _pitdAccessToken
(\ s a -> s{_pitdAccessToken = a})
pitdUploadType :: Lens' ProjectsInspectTemplatesDelete (Maybe Text)
pitdUploadType
= lens _pitdUploadType
(\ s a -> s{_pitdUploadType = a})
pitdName :: Lens' ProjectsInspectTemplatesDelete Text
pitdName = lens _pitdName (\ s a -> s{_pitdName = a})
pitdCallback :: Lens' ProjectsInspectTemplatesDelete (Maybe Text)
pitdCallback
= lens _pitdCallback (\ s a -> s{_pitdCallback = a})
instance GoogleRequest ProjectsInspectTemplatesDelete
where
type Rs ProjectsInspectTemplatesDelete =
GoogleProtobufEmpty
type Scopes ProjectsInspectTemplatesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsInspectTemplatesDelete'{..}
= go _pitdName _pitdXgafv _pitdUploadProtocol
_pitdAccessToken
_pitdUploadType
_pitdCallback
(Just AltJSON)
dLPService
where go
= buildClient
(Proxy ::
Proxy ProjectsInspectTemplatesDeleteResource)
mempty