{-# 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.SecurityCenter.Organizations.Sources.GetIAMPolicy
(
OrganizationsSourcesGetIAMPolicyResource
, organizationsSourcesGetIAMPolicy
, OrganizationsSourcesGetIAMPolicy
, osgipXgafv
, osgipUploadProtocol
, osgipAccessToken
, osgipUploadType
, osgipPayload
, osgipResource
, osgipCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesGetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GetIAMPolicyRequest :>
Post '[JSON] Policy
data OrganizationsSourcesGetIAMPolicy =
OrganizationsSourcesGetIAMPolicy'
{ _osgipXgafv :: !(Maybe Xgafv)
, _osgipUploadProtocol :: !(Maybe Text)
, _osgipAccessToken :: !(Maybe Text)
, _osgipUploadType :: !(Maybe Text)
, _osgipPayload :: !GetIAMPolicyRequest
, _osgipResource :: !Text
, _osgipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesGetIAMPolicy
:: GetIAMPolicyRequest
-> Text
-> OrganizationsSourcesGetIAMPolicy
organizationsSourcesGetIAMPolicy pOsgipPayload_ pOsgipResource_ =
OrganizationsSourcesGetIAMPolicy'
{ _osgipXgafv = Nothing
, _osgipUploadProtocol = Nothing
, _osgipAccessToken = Nothing
, _osgipUploadType = Nothing
, _osgipPayload = pOsgipPayload_
, _osgipResource = pOsgipResource_
, _osgipCallback = Nothing
}
osgipXgafv :: Lens' OrganizationsSourcesGetIAMPolicy (Maybe Xgafv)
osgipXgafv
= lens _osgipXgafv (\ s a -> s{_osgipXgafv = a})
osgipUploadProtocol :: Lens' OrganizationsSourcesGetIAMPolicy (Maybe Text)
osgipUploadProtocol
= lens _osgipUploadProtocol
(\ s a -> s{_osgipUploadProtocol = a})
osgipAccessToken :: Lens' OrganizationsSourcesGetIAMPolicy (Maybe Text)
osgipAccessToken
= lens _osgipAccessToken
(\ s a -> s{_osgipAccessToken = a})
osgipUploadType :: Lens' OrganizationsSourcesGetIAMPolicy (Maybe Text)
osgipUploadType
= lens _osgipUploadType
(\ s a -> s{_osgipUploadType = a})
osgipPayload :: Lens' OrganizationsSourcesGetIAMPolicy GetIAMPolicyRequest
osgipPayload
= lens _osgipPayload (\ s a -> s{_osgipPayload = a})
osgipResource :: Lens' OrganizationsSourcesGetIAMPolicy Text
osgipResource
= lens _osgipResource
(\ s a -> s{_osgipResource = a})
osgipCallback :: Lens' OrganizationsSourcesGetIAMPolicy (Maybe Text)
osgipCallback
= lens _osgipCallback
(\ s a -> s{_osgipCallback = a})
instance GoogleRequest
OrganizationsSourcesGetIAMPolicy
where
type Rs OrganizationsSourcesGetIAMPolicy = Policy
type Scopes OrganizationsSourcesGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsSourcesGetIAMPolicy'{..}
= go _osgipResource _osgipXgafv _osgipUploadProtocol
_osgipAccessToken
_osgipUploadType
_osgipCallback
(Just AltJSON)
_osgipPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy OrganizationsSourcesGetIAMPolicyResource)
mempty