{-# 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.SetIAMPolicy
(
ProjectsLocationsInstancesSetIAMPolicyResource
, projectsLocationsInstancesSetIAMPolicy
, ProjectsLocationsInstancesSetIAMPolicy
, plisipXgafv
, plisipUploadProtocol
, plisipAccessToken
, plisipUploadType
, plisipPayload
, plisipResource
, plisipCallback
) where
import Network.Google.DataFusion.Types
import Network.Google.Prelude
type ProjectsLocationsInstancesSetIAMPolicyResource =
"v1beta1" :>
CaptureMode "resource" "setIamPolicy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SetIAMPolicyRequest :>
Post '[JSON] Policy
data ProjectsLocationsInstancesSetIAMPolicy =
ProjectsLocationsInstancesSetIAMPolicy'
{ _plisipXgafv :: !(Maybe Xgafv)
, _plisipUploadProtocol :: !(Maybe Text)
, _plisipAccessToken :: !(Maybe Text)
, _plisipUploadType :: !(Maybe Text)
, _plisipPayload :: !SetIAMPolicyRequest
, _plisipResource :: !Text
, _plisipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesSetIAMPolicy
:: SetIAMPolicyRequest
-> Text
-> ProjectsLocationsInstancesSetIAMPolicy
projectsLocationsInstancesSetIAMPolicy pPlisipPayload_ pPlisipResource_ =
ProjectsLocationsInstancesSetIAMPolicy'
{ _plisipXgafv = Nothing
, _plisipUploadProtocol = Nothing
, _plisipAccessToken = Nothing
, _plisipUploadType = Nothing
, _plisipPayload = pPlisipPayload_
, _plisipResource = pPlisipResource_
, _plisipCallback = Nothing
}
plisipXgafv :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Xgafv)
plisipXgafv
= lens _plisipXgafv (\ s a -> s{_plisipXgafv = a})
plisipUploadProtocol :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)
plisipUploadProtocol
= lens _plisipUploadProtocol
(\ s a -> s{_plisipUploadProtocol = a})
plisipAccessToken :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)
plisipAccessToken
= lens _plisipAccessToken
(\ s a -> s{_plisipAccessToken = a})
plisipUploadType :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)
plisipUploadType
= lens _plisipUploadType
(\ s a -> s{_plisipUploadType = a})
plisipPayload :: Lens' ProjectsLocationsInstancesSetIAMPolicy SetIAMPolicyRequest
plisipPayload
= lens _plisipPayload
(\ s a -> s{_plisipPayload = a})
plisipResource :: Lens' ProjectsLocationsInstancesSetIAMPolicy Text
plisipResource
= lens _plisipResource
(\ s a -> s{_plisipResource = a})
plisipCallback :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)
plisipCallback
= lens _plisipCallback
(\ s a -> s{_plisipCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesSetIAMPolicy
where
type Rs ProjectsLocationsInstancesSetIAMPolicy =
Policy
type Scopes ProjectsLocationsInstancesSetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsInstancesSetIAMPolicy'{..}
= go _plisipResource _plisipXgafv
_plisipUploadProtocol
_plisipAccessToken
_plisipUploadType
_plisipCallback
(Just AltJSON)
_plisipPayload
dataFusionService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsInstancesSetIAMPolicyResource)
mempty