{-# 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.Content.Deidentify
(
ProjectsContentDeidentifyResource
, projectsContentDeidentify
, ProjectsContentDeidentify
, pcdParent
, pcdXgafv
, pcdUploadProtocol
, pcdAccessToken
, pcdUploadType
, pcdPayload
, pcdCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsContentDeidentifyResource =
"v2" :>
Capture "parent" Text :>
"content:deidentify" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GooglePrivacyDlpV2DeidentifyContentRequest
:>
Post '[JSON]
GooglePrivacyDlpV2DeidentifyContentResponse
data ProjectsContentDeidentify = ProjectsContentDeidentify'
{ _pcdParent :: !Text
, _pcdXgafv :: !(Maybe Xgafv)
, _pcdUploadProtocol :: !(Maybe Text)
, _pcdAccessToken :: !(Maybe Text)
, _pcdUploadType :: !(Maybe Text)
, _pcdPayload :: !GooglePrivacyDlpV2DeidentifyContentRequest
, _pcdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsContentDeidentify
:: Text
-> GooglePrivacyDlpV2DeidentifyContentRequest
-> ProjectsContentDeidentify
projectsContentDeidentify pPcdParent_ pPcdPayload_ =
ProjectsContentDeidentify'
{ _pcdParent = pPcdParent_
, _pcdXgafv = Nothing
, _pcdUploadProtocol = Nothing
, _pcdAccessToken = Nothing
, _pcdUploadType = Nothing
, _pcdPayload = pPcdPayload_
, _pcdCallback = Nothing
}
pcdParent :: Lens' ProjectsContentDeidentify Text
pcdParent
= lens _pcdParent (\ s a -> s{_pcdParent = a})
pcdXgafv :: Lens' ProjectsContentDeidentify (Maybe Xgafv)
pcdXgafv = lens _pcdXgafv (\ s a -> s{_pcdXgafv = a})
pcdUploadProtocol :: Lens' ProjectsContentDeidentify (Maybe Text)
pcdUploadProtocol
= lens _pcdUploadProtocol
(\ s a -> s{_pcdUploadProtocol = a})
pcdAccessToken :: Lens' ProjectsContentDeidentify (Maybe Text)
pcdAccessToken
= lens _pcdAccessToken
(\ s a -> s{_pcdAccessToken = a})
pcdUploadType :: Lens' ProjectsContentDeidentify (Maybe Text)
pcdUploadType
= lens _pcdUploadType
(\ s a -> s{_pcdUploadType = a})
pcdPayload :: Lens' ProjectsContentDeidentify GooglePrivacyDlpV2DeidentifyContentRequest
pcdPayload
= lens _pcdPayload (\ s a -> s{_pcdPayload = a})
pcdCallback :: Lens' ProjectsContentDeidentify (Maybe Text)
pcdCallback
= lens _pcdCallback (\ s a -> s{_pcdCallback = a})
instance GoogleRequest ProjectsContentDeidentify
where
type Rs ProjectsContentDeidentify =
GooglePrivacyDlpV2DeidentifyContentResponse
type Scopes ProjectsContentDeidentify =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsContentDeidentify'{..}
= go _pcdParent _pcdXgafv _pcdUploadProtocol
_pcdAccessToken
_pcdUploadType
_pcdCallback
(Just AltJSON)
_pcdPayload
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsContentDeidentifyResource)
mempty