{-# 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.Get
(
ProjectsInspectTemplatesGetResource
, projectsInspectTemplatesGet
, ProjectsInspectTemplatesGet
, pitgXgafv
, pitgUploadProtocol
, pitgAccessToken
, pitgUploadType
, pitgName
, pitgCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsInspectTemplatesGetResource =
"v2" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GooglePrivacyDlpV2InspectTemplate
data ProjectsInspectTemplatesGet = ProjectsInspectTemplatesGet'
{ _pitgXgafv :: !(Maybe Xgafv)
, _pitgUploadProtocol :: !(Maybe Text)
, _pitgAccessToken :: !(Maybe Text)
, _pitgUploadType :: !(Maybe Text)
, _pitgName :: !Text
, _pitgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsInspectTemplatesGet
:: Text
-> ProjectsInspectTemplatesGet
projectsInspectTemplatesGet pPitgName_ =
ProjectsInspectTemplatesGet'
{ _pitgXgafv = Nothing
, _pitgUploadProtocol = Nothing
, _pitgAccessToken = Nothing
, _pitgUploadType = Nothing
, _pitgName = pPitgName_
, _pitgCallback = Nothing
}
pitgXgafv :: Lens' ProjectsInspectTemplatesGet (Maybe Xgafv)
pitgXgafv
= lens _pitgXgafv (\ s a -> s{_pitgXgafv = a})
pitgUploadProtocol :: Lens' ProjectsInspectTemplatesGet (Maybe Text)
pitgUploadProtocol
= lens _pitgUploadProtocol
(\ s a -> s{_pitgUploadProtocol = a})
pitgAccessToken :: Lens' ProjectsInspectTemplatesGet (Maybe Text)
pitgAccessToken
= lens _pitgAccessToken
(\ s a -> s{_pitgAccessToken = a})
pitgUploadType :: Lens' ProjectsInspectTemplatesGet (Maybe Text)
pitgUploadType
= lens _pitgUploadType
(\ s a -> s{_pitgUploadType = a})
pitgName :: Lens' ProjectsInspectTemplatesGet Text
pitgName = lens _pitgName (\ s a -> s{_pitgName = a})
pitgCallback :: Lens' ProjectsInspectTemplatesGet (Maybe Text)
pitgCallback
= lens _pitgCallback (\ s a -> s{_pitgCallback = a})
instance GoogleRequest ProjectsInspectTemplatesGet
where
type Rs ProjectsInspectTemplatesGet =
GooglePrivacyDlpV2InspectTemplate
type Scopes ProjectsInspectTemplatesGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsInspectTemplatesGet'{..}
= go _pitgName _pitgXgafv _pitgUploadProtocol
_pitgAccessToken
_pitgUploadType
_pitgCallback
(Just AltJSON)
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsInspectTemplatesGetResource)
mempty