{-# 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.DataFusion.Projects.Locations.Instances.TestIAMPermissions
(
ProjectsLocationsInstancesTestIAMPermissionsResource
, projectsLocationsInstancesTestIAMPermissions
, ProjectsLocationsInstancesTestIAMPermissions
, plitipXgafv
, plitipUploadProtocol
, plitipAccessToken
, plitipUploadType
, plitipPayload
, plitipResource
, plitipCallback
) where
import Network.Google.DataFusion.Types
import Network.Google.Prelude
type ProjectsLocationsInstancesTestIAMPermissionsResource
=
"v1beta1" :>
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 ProjectsLocationsInstancesTestIAMPermissions =
ProjectsLocationsInstancesTestIAMPermissions'
{ _plitipXgafv :: !(Maybe Xgafv)
, _plitipUploadProtocol :: !(Maybe Text)
, _plitipAccessToken :: !(Maybe Text)
, _plitipUploadType :: !(Maybe Text)
, _plitipPayload :: !TestIAMPermissionsRequest
, _plitipResource :: !Text
, _plitipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> ProjectsLocationsInstancesTestIAMPermissions
projectsLocationsInstancesTestIAMPermissions pPlitipPayload_ pPlitipResource_ =
ProjectsLocationsInstancesTestIAMPermissions'
{ _plitipXgafv = Nothing
, _plitipUploadProtocol = Nothing
, _plitipAccessToken = Nothing
, _plitipUploadType = Nothing
, _plitipPayload = pPlitipPayload_
, _plitipResource = pPlitipResource_
, _plitipCallback = Nothing
}
plitipXgafv :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Xgafv)
plitipXgafv
= lens _plitipXgafv (\ s a -> s{_plitipXgafv = a})
plitipUploadProtocol :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)
plitipUploadProtocol
= lens _plitipUploadProtocol
(\ s a -> s{_plitipUploadProtocol = a})
plitipAccessToken :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)
plitipAccessToken
= lens _plitipAccessToken
(\ s a -> s{_plitipAccessToken = a})
plitipUploadType :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)
plitipUploadType
= lens _plitipUploadType
(\ s a -> s{_plitipUploadType = a})
plitipPayload :: Lens' ProjectsLocationsInstancesTestIAMPermissions TestIAMPermissionsRequest
plitipPayload
= lens _plitipPayload
(\ s a -> s{_plitipPayload = a})
plitipResource :: Lens' ProjectsLocationsInstancesTestIAMPermissions Text
plitipResource
= lens _plitipResource
(\ s a -> s{_plitipResource = a})
plitipCallback :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)
plitipCallback
= lens _plitipCallback
(\ s a -> s{_plitipCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesTestIAMPermissions
where
type Rs ProjectsLocationsInstancesTestIAMPermissions
= TestIAMPermissionsResponse
type Scopes
ProjectsLocationsInstancesTestIAMPermissions
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsInstancesTestIAMPermissions'{..}
= go _plitipResource _plitipXgafv
_plitipUploadProtocol
_plitipAccessToken
_plitipUploadType
_plitipCallback
(Just AltJSON)
_plitipPayload
dataFusionService
where go
= buildClient
(Proxy ::
Proxy
ProjectsLocationsInstancesTestIAMPermissionsResource)
mempty