module Network.Google.Resource.CloudResourceManager.Organizations.TestIAMPermissions
(
OrganizationsTestIAMPermissionsResource
, organizationsTestIAMPermissions
, OrganizationsTestIAMPermissions
, otipXgafv
, otipUploadProtocol
, otipPp
, otipAccessToken
, otipUploadType
, otipPayload
, otipBearerToken
, otipResource
, otipCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type OrganizationsTestIAMPermissionsResource =
"v1beta1" :>
"organizations" :>
CaptureMode "resource" "testIamPermissions" Text :>
QueryParam "$.xgafv" Text :>
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] TestIAMPermissionsRequest :>
Post '[JSON] TestIAMPermissionsResponse
data OrganizationsTestIAMPermissions = OrganizationsTestIAMPermissions
{ _otipXgafv :: !(Maybe Text)
, _otipUploadProtocol :: !(Maybe Text)
, _otipPp :: !Bool
, _otipAccessToken :: !(Maybe Text)
, _otipUploadType :: !(Maybe Text)
, _otipPayload :: !TestIAMPermissionsRequest
, _otipBearerToken :: !(Maybe Text)
, _otipResource :: !Text
, _otipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> OrganizationsTestIAMPermissions
organizationsTestIAMPermissions pOtipPayload_ pOtipResource_ =
OrganizationsTestIAMPermissions
{ _otipXgafv = Nothing
, _otipUploadProtocol = Nothing
, _otipPp = True
, _otipAccessToken = Nothing
, _otipUploadType = Nothing
, _otipPayload = pOtipPayload_
, _otipBearerToken = Nothing
, _otipResource = pOtipResource_
, _otipCallback = Nothing
}
otipXgafv :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipXgafv
= lens _otipXgafv (\ s a -> s{_otipXgafv = a})
otipUploadProtocol :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipUploadProtocol
= lens _otipUploadProtocol
(\ s a -> s{_otipUploadProtocol = a})
otipPp :: Lens' OrganizationsTestIAMPermissions Bool
otipPp = lens _otipPp (\ s a -> s{_otipPp = a})
otipAccessToken :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipAccessToken
= lens _otipAccessToken
(\ s a -> s{_otipAccessToken = a})
otipUploadType :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipUploadType
= lens _otipUploadType
(\ s a -> s{_otipUploadType = a})
otipPayload :: Lens' OrganizationsTestIAMPermissions TestIAMPermissionsRequest
otipPayload
= lens _otipPayload (\ s a -> s{_otipPayload = a})
otipBearerToken :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipBearerToken
= lens _otipBearerToken
(\ s a -> s{_otipBearerToken = a})
otipResource :: Lens' OrganizationsTestIAMPermissions Text
otipResource
= lens _otipResource (\ s a -> s{_otipResource = a})
otipCallback :: Lens' OrganizationsTestIAMPermissions (Maybe Text)
otipCallback
= lens _otipCallback (\ s a -> s{_otipCallback = a})
instance GoogleRequest
OrganizationsTestIAMPermissions where
type Rs OrganizationsTestIAMPermissions =
TestIAMPermissionsResponse
requestClient OrganizationsTestIAMPermissions{..}
= go _otipResource _otipXgafv _otipUploadProtocol
(Just _otipPp)
_otipAccessToken
_otipUploadType
_otipBearerToken
_otipCallback
(Just AltJSON)
_otipPayload
resourceManagerService
where go
= buildClient
(Proxy ::
Proxy OrganizationsTestIAMPermissionsResource)
mempty