{-# 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.Get
(
ProjectsJobTriggersGetResource
, projectsJobTriggersGet
, ProjectsJobTriggersGet
, pjtgXgafv
, pjtgUploadProtocol
, pjtgAccessToken
, pjtgUploadType
, pjtgName
, pjtgCallback
) where
import Network.Google.DLP.Types
import Network.Google.Prelude
type ProjectsJobTriggersGetResource =
"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] GooglePrivacyDlpV2JobTrigger
data ProjectsJobTriggersGet = ProjectsJobTriggersGet'
{ _pjtgXgafv :: !(Maybe Xgafv)
, _pjtgUploadProtocol :: !(Maybe Text)
, _pjtgAccessToken :: !(Maybe Text)
, _pjtgUploadType :: !(Maybe Text)
, _pjtgName :: !Text
, _pjtgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobTriggersGet
:: Text
-> ProjectsJobTriggersGet
projectsJobTriggersGet pPjtgName_ =
ProjectsJobTriggersGet'
{ _pjtgXgafv = Nothing
, _pjtgUploadProtocol = Nothing
, _pjtgAccessToken = Nothing
, _pjtgUploadType = Nothing
, _pjtgName = pPjtgName_
, _pjtgCallback = Nothing
}
pjtgXgafv :: Lens' ProjectsJobTriggersGet (Maybe Xgafv)
pjtgXgafv
= lens _pjtgXgafv (\ s a -> s{_pjtgXgafv = a})
pjtgUploadProtocol :: Lens' ProjectsJobTriggersGet (Maybe Text)
pjtgUploadProtocol
= lens _pjtgUploadProtocol
(\ s a -> s{_pjtgUploadProtocol = a})
pjtgAccessToken :: Lens' ProjectsJobTriggersGet (Maybe Text)
pjtgAccessToken
= lens _pjtgAccessToken
(\ s a -> s{_pjtgAccessToken = a})
pjtgUploadType :: Lens' ProjectsJobTriggersGet (Maybe Text)
pjtgUploadType
= lens _pjtgUploadType
(\ s a -> s{_pjtgUploadType = a})
pjtgName :: Lens' ProjectsJobTriggersGet Text
pjtgName = lens _pjtgName (\ s a -> s{_pjtgName = a})
pjtgCallback :: Lens' ProjectsJobTriggersGet (Maybe Text)
pjtgCallback
= lens _pjtgCallback (\ s a -> s{_pjtgCallback = a})
instance GoogleRequest ProjectsJobTriggersGet where
type Rs ProjectsJobTriggersGet =
GooglePrivacyDlpV2JobTrigger
type Scopes ProjectsJobTriggersGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsJobTriggersGet'{..}
= go _pjtgName _pjtgXgafv _pjtgUploadProtocol
_pjtgAccessToken
_pjtgUploadType
_pjtgCallback
(Just AltJSON)
dLPService
where go
= buildClient
(Proxy :: Proxy ProjectsJobTriggersGetResource)
mempty