{-# 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.Organizations.GetAccessApprovalSettings
(
OrganizationsGetAccessApprovalSettingsResource
, organizationsGetAccessApprovalSettings
, OrganizationsGetAccessApprovalSettings
, ogaasXgafv
, ogaasUploadProtocol
, ogaasAccessToken
, ogaasUploadType
, ogaasName
, ogaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsGetAccessApprovalSettingsResource =
"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 OrganizationsGetAccessApprovalSettings =
OrganizationsGetAccessApprovalSettings'
{ _ogaasXgafv :: !(Maybe Xgafv)
, _ogaasUploadProtocol :: !(Maybe Text)
, _ogaasAccessToken :: !(Maybe Text)
, _ogaasUploadType :: !(Maybe Text)
, _ogaasName :: !Text
, _ogaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsGetAccessApprovalSettings
:: Text
-> OrganizationsGetAccessApprovalSettings
organizationsGetAccessApprovalSettings pOgaasName_ =
OrganizationsGetAccessApprovalSettings'
{ _ogaasXgafv = Nothing
, _ogaasUploadProtocol = Nothing
, _ogaasAccessToken = Nothing
, _ogaasUploadType = Nothing
, _ogaasName = pOgaasName_
, _ogaasCallback = Nothing
}
ogaasXgafv :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Xgafv)
ogaasXgafv
= lens _ogaasXgafv (\ s a -> s{_ogaasXgafv = a})
ogaasUploadProtocol :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)
ogaasUploadProtocol
= lens _ogaasUploadProtocol
(\ s a -> s{_ogaasUploadProtocol = a})
ogaasAccessToken :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)
ogaasAccessToken
= lens _ogaasAccessToken
(\ s a -> s{_ogaasAccessToken = a})
ogaasUploadType :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)
ogaasUploadType
= lens _ogaasUploadType
(\ s a -> s{_ogaasUploadType = a})
ogaasName :: Lens' OrganizationsGetAccessApprovalSettings Text
ogaasName
= lens _ogaasName (\ s a -> s{_ogaasName = a})
ogaasCallback :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)
ogaasCallback
= lens _ogaasCallback
(\ s a -> s{_ogaasCallback = a})
instance GoogleRequest
OrganizationsGetAccessApprovalSettings
where
type Rs OrganizationsGetAccessApprovalSettings =
AccessApprovalSettings
type Scopes OrganizationsGetAccessApprovalSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsGetAccessApprovalSettings'{..}
= go _ogaasName _ogaasXgafv _ogaasUploadProtocol
_ogaasAccessToken
_ogaasUploadType
_ogaasCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy OrganizationsGetAccessApprovalSettingsResource)
mempty