{-# 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.AccessApproval.Projects.GetAccessApprovalSettings
(
ProjectsGetAccessApprovalSettingsResource
, projectsGetAccessApprovalSettings
, ProjectsGetAccessApprovalSettings
, pgaasXgafv
, pgaasUploadProtocol
, pgaasAccessToken
, pgaasUploadType
, pgaasName
, pgaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type ProjectsGetAccessApprovalSettingsResource =
"v1beta1" :>
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] AccessApprovalSettings
data ProjectsGetAccessApprovalSettings =
ProjectsGetAccessApprovalSettings'
{ _pgaasXgafv :: !(Maybe Xgafv)
, _pgaasUploadProtocol :: !(Maybe Text)
, _pgaasAccessToken :: !(Maybe Text)
, _pgaasUploadType :: !(Maybe Text)
, _pgaasName :: !Text
, _pgaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsGetAccessApprovalSettings
:: Text
-> ProjectsGetAccessApprovalSettings
projectsGetAccessApprovalSettings pPgaasName_ =
ProjectsGetAccessApprovalSettings'
{ _pgaasXgafv = Nothing
, _pgaasUploadProtocol = Nothing
, _pgaasAccessToken = Nothing
, _pgaasUploadType = Nothing
, _pgaasName = pPgaasName_
, _pgaasCallback = Nothing
}
pgaasXgafv :: Lens' ProjectsGetAccessApprovalSettings (Maybe Xgafv)
pgaasXgafv
= lens _pgaasXgafv (\ s a -> s{_pgaasXgafv = a})
pgaasUploadProtocol :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)
pgaasUploadProtocol
= lens _pgaasUploadProtocol
(\ s a -> s{_pgaasUploadProtocol = a})
pgaasAccessToken :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)
pgaasAccessToken
= lens _pgaasAccessToken
(\ s a -> s{_pgaasAccessToken = a})
pgaasUploadType :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)
pgaasUploadType
= lens _pgaasUploadType
(\ s a -> s{_pgaasUploadType = a})
pgaasName :: Lens' ProjectsGetAccessApprovalSettings Text
pgaasName
= lens _pgaasName (\ s a -> s{_pgaasName = a})
pgaasCallback :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)
pgaasCallback
= lens _pgaasCallback
(\ s a -> s{_pgaasCallback = a})
instance GoogleRequest
ProjectsGetAccessApprovalSettings
where
type Rs ProjectsGetAccessApprovalSettings =
AccessApprovalSettings
type Scopes ProjectsGetAccessApprovalSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsGetAccessApprovalSettings'{..}
= go _pgaasName _pgaasXgafv _pgaasUploadProtocol
_pgaasAccessToken
_pgaasUploadType
_pgaasCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy ProjectsGetAccessApprovalSettingsResource)
mempty