{-# 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.CloudTasks.Projects.Locations.Queues.TestIAMPermissions
(
ProjectsLocationsQueuesTestIAMPermissionsResource
, projectsLocationsQueuesTestIAMPermissions
, ProjectsLocationsQueuesTestIAMPermissions
, plqtipXgafv
, plqtipUploadProtocol
, plqtipAccessToken
, plqtipUploadType
, plqtipPayload
, plqtipResource
, plqtipCallback
) where
import Network.Google.CloudTasks.Types
import Network.Google.Prelude
type ProjectsLocationsQueuesTestIAMPermissionsResource
=
"v2beta3" :>
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 ProjectsLocationsQueuesTestIAMPermissions = ProjectsLocationsQueuesTestIAMPermissions'
{ _plqtipXgafv :: !(Maybe Xgafv)
, _plqtipUploadProtocol :: !(Maybe Text)
, _plqtipAccessToken :: !(Maybe Text)
, _plqtipUploadType :: !(Maybe Text)
, _plqtipPayload :: !TestIAMPermissionsRequest
, _plqtipResource :: !Text
, _plqtipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsQueuesTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> ProjectsLocationsQueuesTestIAMPermissions
projectsLocationsQueuesTestIAMPermissions pPlqtipPayload_ pPlqtipResource_ =
ProjectsLocationsQueuesTestIAMPermissions'
{ _plqtipXgafv = Nothing
, _plqtipUploadProtocol = Nothing
, _plqtipAccessToken = Nothing
, _plqtipUploadType = Nothing
, _plqtipPayload = pPlqtipPayload_
, _plqtipResource = pPlqtipResource_
, _plqtipCallback = Nothing
}
plqtipXgafv :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Xgafv)
plqtipXgafv
= lens _plqtipXgafv (\ s a -> s{_plqtipXgafv = a})
plqtipUploadProtocol :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text)
plqtipUploadProtocol
= lens _plqtipUploadProtocol
(\ s a -> s{_plqtipUploadProtocol = a})
plqtipAccessToken :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text)
plqtipAccessToken
= lens _plqtipAccessToken
(\ s a -> s{_plqtipAccessToken = a})
plqtipUploadType :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text)
plqtipUploadType
= lens _plqtipUploadType
(\ s a -> s{_plqtipUploadType = a})
plqtipPayload :: Lens' ProjectsLocationsQueuesTestIAMPermissions TestIAMPermissionsRequest
plqtipPayload
= lens _plqtipPayload
(\ s a -> s{_plqtipPayload = a})
plqtipResource :: Lens' ProjectsLocationsQueuesTestIAMPermissions Text
plqtipResource
= lens _plqtipResource
(\ s a -> s{_plqtipResource = a})
plqtipCallback :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text)
plqtipCallback
= lens _plqtipCallback
(\ s a -> s{_plqtipCallback = a})
instance GoogleRequest
ProjectsLocationsQueuesTestIAMPermissions where
type Rs ProjectsLocationsQueuesTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes ProjectsLocationsQueuesTestIAMPermissions
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsQueuesTestIAMPermissions'{..}
= go _plqtipResource _plqtipXgafv
_plqtipUploadProtocol
_plqtipAccessToken
_plqtipUploadType
_plqtipCallback
(Just AltJSON)
_plqtipPayload
cloudTasksService
where go
= buildClient
(Proxy ::
Proxy
ProjectsLocationsQueuesTestIAMPermissionsResource)
mempty