{-# 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.TestIAMPermissions
(
ProjectsInstancesTablesTestIAMPermissionsResource
, projectsInstancesTablesTestIAMPermissions
, ProjectsInstancesTablesTestIAMPermissions
, pittipXgafv
, pittipUploadProtocol
, pittipAccessToken
, pittipUploadType
, pittipPayload
, pittipResource
, pittipCallback
) where
import Network.Google.BigtableAdmin.Types
import Network.Google.Prelude
type ProjectsInstancesTablesTestIAMPermissionsResource
=
"v2" :>
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 ProjectsInstancesTablesTestIAMPermissions =
ProjectsInstancesTablesTestIAMPermissions'
{ _pittipXgafv :: !(Maybe Xgafv)
, _pittipUploadProtocol :: !(Maybe Text)
, _pittipAccessToken :: !(Maybe Text)
, _pittipUploadType :: !(Maybe Text)
, _pittipPayload :: !TestIAMPermissionsRequest
, _pittipResource :: !Text
, _pittipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsInstancesTablesTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> ProjectsInstancesTablesTestIAMPermissions
projectsInstancesTablesTestIAMPermissions pPittipPayload_ pPittipResource_ =
ProjectsInstancesTablesTestIAMPermissions'
{ _pittipXgafv = Nothing
, _pittipUploadProtocol = Nothing
, _pittipAccessToken = Nothing
, _pittipUploadType = Nothing
, _pittipPayload = pPittipPayload_
, _pittipResource = pPittipResource_
, _pittipCallback = Nothing
}
pittipXgafv :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Xgafv)
pittipXgafv
= lens _pittipXgafv (\ s a -> s{_pittipXgafv = a})
pittipUploadProtocol :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)
pittipUploadProtocol
= lens _pittipUploadProtocol
(\ s a -> s{_pittipUploadProtocol = a})
pittipAccessToken :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)
pittipAccessToken
= lens _pittipAccessToken
(\ s a -> s{_pittipAccessToken = a})
pittipUploadType :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)
pittipUploadType
= lens _pittipUploadType
(\ s a -> s{_pittipUploadType = a})
pittipPayload :: Lens' ProjectsInstancesTablesTestIAMPermissions TestIAMPermissionsRequest
pittipPayload
= lens _pittipPayload
(\ s a -> s{_pittipPayload = a})
pittipResource :: Lens' ProjectsInstancesTablesTestIAMPermissions Text
pittipResource
= lens _pittipResource
(\ s a -> s{_pittipResource = a})
pittipCallback :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)
pittipCallback
= lens _pittipCallback
(\ s a -> s{_pittipCallback = a})
instance GoogleRequest
ProjectsInstancesTablesTestIAMPermissions
where
type Rs ProjectsInstancesTablesTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes ProjectsInstancesTablesTestIAMPermissions
=
'["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
ProjectsInstancesTablesTestIAMPermissions'{..}
= go _pittipResource _pittipXgafv
_pittipUploadProtocol
_pittipAccessToken
_pittipUploadType
_pittipCallback
(Just AltJSON)
_pittipPayload
bigtableAdminService
where go
= buildClient
(Proxy ::
Proxy
ProjectsInstancesTablesTestIAMPermissionsResource)
mempty