module Network.Google.Resource.CloudResourceManager.Organizations.GetIAMPolicy
(
OrganizationsGetIAMPolicyResource
, organizationsGetIAMPolicy
, OrganizationsGetIAMPolicy
, ogipXgafv
, ogipUploadProtocol
, ogipPp
, ogipAccessToken
, ogipUploadType
, ogipPayload
, ogipBearerToken
, ogipResource
, ogipCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type OrganizationsGetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GetIAMPolicyRequest :>
Post '[JSON] Policy
data OrganizationsGetIAMPolicy = OrganizationsGetIAMPolicy'
{ _ogipXgafv :: !(Maybe Xgafv)
, _ogipUploadProtocol :: !(Maybe Text)
, _ogipPp :: !Bool
, _ogipAccessToken :: !(Maybe Text)
, _ogipUploadType :: !(Maybe Text)
, _ogipPayload :: !GetIAMPolicyRequest
, _ogipBearerToken :: !(Maybe Text)
, _ogipResource :: !Text
, _ogipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsGetIAMPolicy
:: GetIAMPolicyRequest
-> Text
-> OrganizationsGetIAMPolicy
organizationsGetIAMPolicy pOgipPayload_ pOgipResource_ =
OrganizationsGetIAMPolicy'
{ _ogipXgafv = Nothing
, _ogipUploadProtocol = Nothing
, _ogipPp = True
, _ogipAccessToken = Nothing
, _ogipUploadType = Nothing
, _ogipPayload = pOgipPayload_
, _ogipBearerToken = Nothing
, _ogipResource = pOgipResource_
, _ogipCallback = Nothing
}
ogipXgafv :: Lens' OrganizationsGetIAMPolicy (Maybe Xgafv)
ogipXgafv
= lens _ogipXgafv (\ s a -> s{_ogipXgafv = a})
ogipUploadProtocol :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipUploadProtocol
= lens _ogipUploadProtocol
(\ s a -> s{_ogipUploadProtocol = a})
ogipPp :: Lens' OrganizationsGetIAMPolicy Bool
ogipPp = lens _ogipPp (\ s a -> s{_ogipPp = a})
ogipAccessToken :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipAccessToken
= lens _ogipAccessToken
(\ s a -> s{_ogipAccessToken = a})
ogipUploadType :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipUploadType
= lens _ogipUploadType
(\ s a -> s{_ogipUploadType = a})
ogipPayload :: Lens' OrganizationsGetIAMPolicy GetIAMPolicyRequest
ogipPayload
= lens _ogipPayload (\ s a -> s{_ogipPayload = a})
ogipBearerToken :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipBearerToken
= lens _ogipBearerToken
(\ s a -> s{_ogipBearerToken = a})
ogipResource :: Lens' OrganizationsGetIAMPolicy Text
ogipResource
= lens _ogipResource (\ s a -> s{_ogipResource = a})
ogipCallback :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipCallback
= lens _ogipCallback (\ s a -> s{_ogipCallback = a})
instance GoogleRequest OrganizationsGetIAMPolicy
where
type Rs OrganizationsGetIAMPolicy = Policy
type Scopes OrganizationsGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only"]
requestClient OrganizationsGetIAMPolicy'{..}
= go _ogipResource _ogipXgafv _ogipUploadProtocol
(Just _ogipPp)
_ogipAccessToken
_ogipUploadType
_ogipBearerToken
_ogipCallback
(Just AltJSON)
_ogipPayload
resourceManagerService
where go
= buildClient
(Proxy :: Proxy OrganizationsGetIAMPolicyResource)
mempty