{-# 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.Inspect
(
ProjectsContentInspectResource
, projectsContentInspect
, ProjectsContentInspect
, pciParent
, pciXgafv
, pciUploadProtocol
, pciAccessToken
, pciUploadType
, pciPayload
, pciCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsContentInspectResource =
"v2" :>
Capture "parent" Text :>
"content:inspect" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GooglePrivacyDlpV2InspectContentRequest
:>
Post '[JSON] GooglePrivacyDlpV2InspectContentResponse
data ProjectsContentInspect = ProjectsContentInspect'
{ _pciParent :: !Text
, _pciXgafv :: !(Maybe Xgafv)
, _pciUploadProtocol :: !(Maybe Text)
, _pciAccessToken :: !(Maybe Text)
, _pciUploadType :: !(Maybe Text)
, _pciPayload :: !GooglePrivacyDlpV2InspectContentRequest
, _pciCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsContentInspect
:: Text
-> GooglePrivacyDlpV2InspectContentRequest
-> ProjectsContentInspect
projectsContentInspect pPciParent_ pPciPayload_ =
ProjectsContentInspect'
{ _pciParent = pPciParent_
, _pciXgafv = Nothing
, _pciUploadProtocol = Nothing
, _pciAccessToken = Nothing
, _pciUploadType = Nothing
, _pciPayload = pPciPayload_
, _pciCallback = Nothing
}
pciParent :: Lens' ProjectsContentInspect Text
pciParent
= lens _pciParent (\ s a -> s{_pciParent = a})
pciXgafv :: Lens' ProjectsContentInspect (Maybe Xgafv)
pciXgafv = lens _pciXgafv (\ s a -> s{_pciXgafv = a})
pciUploadProtocol :: Lens' ProjectsContentInspect (Maybe Text)
pciUploadProtocol
= lens _pciUploadProtocol
(\ s a -> s{_pciUploadProtocol = a})
pciAccessToken :: Lens' ProjectsContentInspect (Maybe Text)
pciAccessToken
= lens _pciAccessToken
(\ s a -> s{_pciAccessToken = a})
pciUploadType :: Lens' ProjectsContentInspect (Maybe Text)
pciUploadType
= lens _pciUploadType
(\ s a -> s{_pciUploadType = a})
pciPayload :: Lens' ProjectsContentInspect GooglePrivacyDlpV2InspectContentRequest
pciPayload
= lens _pciPayload (\ s a -> s{_pciPayload = a})
pciCallback :: Lens' ProjectsContentInspect (Maybe Text)
pciCallback
= lens _pciCallback (\ s a -> s{_pciCallback = a})
instance GoogleRequest ProjectsContentInspect where
type Rs ProjectsContentInspect =
GooglePrivacyDlpV2InspectContentResponse
type Scopes ProjectsContentInspect =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsContentInspect'{..}
= go _pciParent _pciXgafv _pciUploadProtocol
_pciAccessToken
_pciUploadType
_pciCallback
(Just AltJSON)
_pciPayload
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsContentInspectResource)
mempty