{-# 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.Folders.GetAccessApprovalSettings
(
FoldersGetAccessApprovalSettingsResource
, foldersGetAccessApprovalSettings
, FoldersGetAccessApprovalSettings
, fgaasXgafv
, fgaasUploadProtocol
, fgaasAccessToken
, fgaasUploadType
, fgaasName
, fgaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type FoldersGetAccessApprovalSettingsResource =
"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 FoldersGetAccessApprovalSettings =
FoldersGetAccessApprovalSettings'
{ _fgaasXgafv :: !(Maybe Xgafv)
, _fgaasUploadProtocol :: !(Maybe Text)
, _fgaasAccessToken :: !(Maybe Text)
, _fgaasUploadType :: !(Maybe Text)
, _fgaasName :: !Text
, _fgaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
foldersGetAccessApprovalSettings
:: Text
-> FoldersGetAccessApprovalSettings
foldersGetAccessApprovalSettings pFgaasName_ =
FoldersGetAccessApprovalSettings'
{ _fgaasXgafv = Nothing
, _fgaasUploadProtocol = Nothing
, _fgaasAccessToken = Nothing
, _fgaasUploadType = Nothing
, _fgaasName = pFgaasName_
, _fgaasCallback = Nothing
}
fgaasXgafv :: Lens' FoldersGetAccessApprovalSettings (Maybe Xgafv)
fgaasXgafv
= lens _fgaasXgafv (\ s a -> s{_fgaasXgafv = a})
fgaasUploadProtocol :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)
fgaasUploadProtocol
= lens _fgaasUploadProtocol
(\ s a -> s{_fgaasUploadProtocol = a})
fgaasAccessToken :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)
fgaasAccessToken
= lens _fgaasAccessToken
(\ s a -> s{_fgaasAccessToken = a})
fgaasUploadType :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)
fgaasUploadType
= lens _fgaasUploadType
(\ s a -> s{_fgaasUploadType = a})
fgaasName :: Lens' FoldersGetAccessApprovalSettings Text
fgaasName
= lens _fgaasName (\ s a -> s{_fgaasName = a})
fgaasCallback :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)
fgaasCallback
= lens _fgaasCallback
(\ s a -> s{_fgaasCallback = a})
instance GoogleRequest
FoldersGetAccessApprovalSettings
where
type Rs FoldersGetAccessApprovalSettings =
AccessApprovalSettings
type Scopes FoldersGetAccessApprovalSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient FoldersGetAccessApprovalSettings'{..}
= go _fgaasName _fgaasXgafv _fgaasUploadProtocol
_fgaasAccessToken
_fgaasUploadType
_fgaasCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy FoldersGetAccessApprovalSettingsResource)
mempty