{-# 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.Dataproc.Projects.Regions.Jobs.TestIAMPermissions
(
ProjectsRegionsJobsTestIAMPermissionsResource
, projectsRegionsJobsTestIAMPermissions
, ProjectsRegionsJobsTestIAMPermissions
, prjtipXgafv
, prjtipUploadProtocol
, prjtipAccessToken
, prjtipUploadType
, prjtipPayload
, prjtipResource
, prjtipCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsJobsTestIAMPermissionsResource =
"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 ProjectsRegionsJobsTestIAMPermissions = ProjectsRegionsJobsTestIAMPermissions'
{ _prjtipXgafv :: !(Maybe Xgafv)
, _prjtipUploadProtocol :: !(Maybe Text)
, _prjtipAccessToken :: !(Maybe Text)
, _prjtipUploadType :: !(Maybe Text)
, _prjtipPayload :: !TestIAMPermissionsRequest
, _prjtipResource :: !Text
, _prjtipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsJobsTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> ProjectsRegionsJobsTestIAMPermissions
projectsRegionsJobsTestIAMPermissions pPrjtipPayload_ pPrjtipResource_ =
ProjectsRegionsJobsTestIAMPermissions'
{ _prjtipXgafv = Nothing
, _prjtipUploadProtocol = Nothing
, _prjtipAccessToken = Nothing
, _prjtipUploadType = Nothing
, _prjtipPayload = pPrjtipPayload_
, _prjtipResource = pPrjtipResource_
, _prjtipCallback = Nothing
}
prjtipXgafv :: Lens' ProjectsRegionsJobsTestIAMPermissions (Maybe Xgafv)
prjtipXgafv
= lens _prjtipXgafv (\ s a -> s{_prjtipXgafv = a})
prjtipUploadProtocol :: Lens' ProjectsRegionsJobsTestIAMPermissions (Maybe Text)
prjtipUploadProtocol
= lens _prjtipUploadProtocol
(\ s a -> s{_prjtipUploadProtocol = a})
prjtipAccessToken :: Lens' ProjectsRegionsJobsTestIAMPermissions (Maybe Text)
prjtipAccessToken
= lens _prjtipAccessToken
(\ s a -> s{_prjtipAccessToken = a})
prjtipUploadType :: Lens' ProjectsRegionsJobsTestIAMPermissions (Maybe Text)
prjtipUploadType
= lens _prjtipUploadType
(\ s a -> s{_prjtipUploadType = a})
prjtipPayload :: Lens' ProjectsRegionsJobsTestIAMPermissions TestIAMPermissionsRequest
prjtipPayload
= lens _prjtipPayload
(\ s a -> s{_prjtipPayload = a})
prjtipResource :: Lens' ProjectsRegionsJobsTestIAMPermissions Text
prjtipResource
= lens _prjtipResource
(\ s a -> s{_prjtipResource = a})
prjtipCallback :: Lens' ProjectsRegionsJobsTestIAMPermissions (Maybe Text)
prjtipCallback
= lens _prjtipCallback
(\ s a -> s{_prjtipCallback = a})
instance GoogleRequest
ProjectsRegionsJobsTestIAMPermissions where
type Rs ProjectsRegionsJobsTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes ProjectsRegionsJobsTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsRegionsJobsTestIAMPermissions'{..}
= go _prjtipResource _prjtipXgafv
_prjtipUploadProtocol
_prjtipAccessToken
_prjtipUploadType
_prjtipCallback
(Just AltJSON)
_prjtipPayload
dataprocService
where go
= buildClient
(Proxy ::
Proxy ProjectsRegionsJobsTestIAMPermissionsResource)
mempty