{-# 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.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy
(
ProjectsInstancesTablesSetIAMPolicyResource
, projectsInstancesTablesSetIAMPolicy
, ProjectsInstancesTablesSetIAMPolicy
, pitsipXgafv
, pitsipUploadProtocol
, pitsipAccessToken
, pitsipUploadType
, pitsipPayload
, pitsipResource
, pitsipCallback
) where
import Network.Google.BigtableAdmin.Types
import Network.Google.Prelude
type ProjectsInstancesTablesSetIAMPolicyResource =
"v2" :>
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 ProjectsInstancesTablesSetIAMPolicy =
ProjectsInstancesTablesSetIAMPolicy'
{ _pitsipXgafv :: !(Maybe Xgafv)
, _pitsipUploadProtocol :: !(Maybe Text)
, _pitsipAccessToken :: !(Maybe Text)
, _pitsipUploadType :: !(Maybe Text)
, _pitsipPayload :: !SetIAMPolicyRequest
, _pitsipResource :: !Text
, _pitsipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsInstancesTablesSetIAMPolicy
:: SetIAMPolicyRequest
-> Text
-> ProjectsInstancesTablesSetIAMPolicy
projectsInstancesTablesSetIAMPolicy pPitsipPayload_ pPitsipResource_ =
ProjectsInstancesTablesSetIAMPolicy'
{ _pitsipXgafv = Nothing
, _pitsipUploadProtocol = Nothing
, _pitsipAccessToken = Nothing
, _pitsipUploadType = Nothing
, _pitsipPayload = pPitsipPayload_
, _pitsipResource = pPitsipResource_
, _pitsipCallback = Nothing
}
pitsipXgafv :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Xgafv)
pitsipXgafv
= lens _pitsipXgafv (\ s a -> s{_pitsipXgafv = a})
pitsipUploadProtocol :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)
pitsipUploadProtocol
= lens _pitsipUploadProtocol
(\ s a -> s{_pitsipUploadProtocol = a})
pitsipAccessToken :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)
pitsipAccessToken
= lens _pitsipAccessToken
(\ s a -> s{_pitsipAccessToken = a})
pitsipUploadType :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)
pitsipUploadType
= lens _pitsipUploadType
(\ s a -> s{_pitsipUploadType = a})
pitsipPayload :: Lens' ProjectsInstancesTablesSetIAMPolicy SetIAMPolicyRequest
pitsipPayload
= lens _pitsipPayload
(\ s a -> s{_pitsipPayload = a})
pitsipResource :: Lens' ProjectsInstancesTablesSetIAMPolicy Text
pitsipResource
= lens _pitsipResource
(\ s a -> s{_pitsipResource = a})
pitsipCallback :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)
pitsipCallback
= lens _pitsipCallback
(\ s a -> s{_pitsipCallback = a})
instance GoogleRequest
ProjectsInstancesTablesSetIAMPolicy
where
type Rs ProjectsInstancesTablesSetIAMPolicy = Policy
type Scopes ProjectsInstancesTablesSetIAMPolicy =
'["https://www.googleapis.com/auth/bigtable.admin",
"https://www.googleapis.com/auth/bigtable.admin.table",
"https://www.googleapis.com/auth/cloud-bigtable.admin",
"https://www.googleapis.com/auth/cloud-bigtable.admin.table",
"https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsInstancesTablesSetIAMPolicy'{..}
= go _pitsipResource _pitsipXgafv
_pitsipUploadProtocol
_pitsipAccessToken
_pitsipUploadType
_pitsipCallback
(Just AltJSON)
_pitsipPayload
bigtableAdminService
where go
= buildClient
(Proxy ::
Proxy ProjectsInstancesTablesSetIAMPolicyResource)
mempty