{-# 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.CloudPrivateCatalogProducer.Catalogs.SetIAMPolicy
(
CatalogsSetIAMPolicyResource
, catalogsSetIAMPolicy
, CatalogsSetIAMPolicy
, csipXgafv
, csipUploadProtocol
, csipAccessToken
, csipUploadType
, csipPayload
, csipResource
, csipCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsSetIAMPolicyResource =
"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] GoogleIAMV1SetIAMPolicyRequest :>
Post '[JSON] GoogleIAMV1Policy
data CatalogsSetIAMPolicy =
CatalogsSetIAMPolicy'
{ _csipXgafv :: !(Maybe Xgafv)
, _csipUploadProtocol :: !(Maybe Text)
, _csipAccessToken :: !(Maybe Text)
, _csipUploadType :: !(Maybe Text)
, _csipPayload :: !GoogleIAMV1SetIAMPolicyRequest
, _csipResource :: !Text
, _csipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsSetIAMPolicy
:: GoogleIAMV1SetIAMPolicyRequest
-> Text
-> CatalogsSetIAMPolicy
catalogsSetIAMPolicy pCsipPayload_ pCsipResource_ =
CatalogsSetIAMPolicy'
{ _csipXgafv = Nothing
, _csipUploadProtocol = Nothing
, _csipAccessToken = Nothing
, _csipUploadType = Nothing
, _csipPayload = pCsipPayload_
, _csipResource = pCsipResource_
, _csipCallback = Nothing
}
csipXgafv :: Lens' CatalogsSetIAMPolicy (Maybe Xgafv)
csipXgafv
= lens _csipXgafv (\ s a -> s{_csipXgafv = a})
csipUploadProtocol :: Lens' CatalogsSetIAMPolicy (Maybe Text)
csipUploadProtocol
= lens _csipUploadProtocol
(\ s a -> s{_csipUploadProtocol = a})
csipAccessToken :: Lens' CatalogsSetIAMPolicy (Maybe Text)
csipAccessToken
= lens _csipAccessToken
(\ s a -> s{_csipAccessToken = a})
csipUploadType :: Lens' CatalogsSetIAMPolicy (Maybe Text)
csipUploadType
= lens _csipUploadType
(\ s a -> s{_csipUploadType = a})
csipPayload :: Lens' CatalogsSetIAMPolicy GoogleIAMV1SetIAMPolicyRequest
csipPayload
= lens _csipPayload (\ s a -> s{_csipPayload = a})
csipResource :: Lens' CatalogsSetIAMPolicy Text
csipResource
= lens _csipResource (\ s a -> s{_csipResource = a})
csipCallback :: Lens' CatalogsSetIAMPolicy (Maybe Text)
csipCallback
= lens _csipCallback (\ s a -> s{_csipCallback = a})
instance GoogleRequest CatalogsSetIAMPolicy where
type Rs CatalogsSetIAMPolicy = GoogleIAMV1Policy
type Scopes CatalogsSetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsSetIAMPolicy'{..}
= go _csipResource _csipXgafv _csipUploadProtocol
_csipAccessToken
_csipUploadType
_csipCallback
(Just AltJSON)
_csipPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsSetIAMPolicyResource)
mempty