{-# 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.TestIAMPermissions
(
OrganizationsSourcesTestIAMPermissionsResource
, organizationsSourcesTestIAMPermissions
, OrganizationsSourcesTestIAMPermissions
, ostipXgafv
, ostipUploadProtocol
, ostipAccessToken
, ostipUploadType
, ostipPayload
, ostipResource
, ostipCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesTestIAMPermissionsResource =
"v1" :>
CaptureMode "resource" "testIamPermissions" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TestIAMPermissionsRequest :>
Post '[JSON] TestIAMPermissionsResponse
data OrganizationsSourcesTestIAMPermissions =
OrganizationsSourcesTestIAMPermissions'
{ _ostipXgafv :: !(Maybe Xgafv)
, _ostipUploadProtocol :: !(Maybe Text)
, _ostipAccessToken :: !(Maybe Text)
, _ostipUploadType :: !(Maybe Text)
, _ostipPayload :: !TestIAMPermissionsRequest
, _ostipResource :: !Text
, _ostipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> OrganizationsSourcesTestIAMPermissions
organizationsSourcesTestIAMPermissions pOstipPayload_ pOstipResource_ =
OrganizationsSourcesTestIAMPermissions'
{ _ostipXgafv = Nothing
, _ostipUploadProtocol = Nothing
, _ostipAccessToken = Nothing
, _ostipUploadType = Nothing
, _ostipPayload = pOstipPayload_
, _ostipResource = pOstipResource_
, _ostipCallback = Nothing
}
ostipXgafv :: Lens' OrganizationsSourcesTestIAMPermissions (Maybe Xgafv)
ostipXgafv
= lens _ostipXgafv (\ s a -> s{_ostipXgafv = a})
ostipUploadProtocol :: Lens' OrganizationsSourcesTestIAMPermissions (Maybe Text)
ostipUploadProtocol
= lens _ostipUploadProtocol
(\ s a -> s{_ostipUploadProtocol = a})
ostipAccessToken :: Lens' OrganizationsSourcesTestIAMPermissions (Maybe Text)
ostipAccessToken
= lens _ostipAccessToken
(\ s a -> s{_ostipAccessToken = a})
ostipUploadType :: Lens' OrganizationsSourcesTestIAMPermissions (Maybe Text)
ostipUploadType
= lens _ostipUploadType
(\ s a -> s{_ostipUploadType = a})
ostipPayload :: Lens' OrganizationsSourcesTestIAMPermissions TestIAMPermissionsRequest
ostipPayload
= lens _ostipPayload (\ s a -> s{_ostipPayload = a})
ostipResource :: Lens' OrganizationsSourcesTestIAMPermissions Text
ostipResource
= lens _ostipResource
(\ s a -> s{_ostipResource = a})
ostipCallback :: Lens' OrganizationsSourcesTestIAMPermissions (Maybe Text)
ostipCallback
= lens _ostipCallback
(\ s a -> s{_ostipCallback = a})
instance GoogleRequest
OrganizationsSourcesTestIAMPermissions
where
type Rs OrganizationsSourcesTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes OrganizationsSourcesTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsSourcesTestIAMPermissions'{..}
= go _ostipResource _ostipXgafv _ostipUploadProtocol
_ostipAccessToken
_ostipUploadType
_ostipCallback
(Just AltJSON)
_ostipPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy OrganizationsSourcesTestIAMPermissionsResource)
mempty