{-# 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.TestIAMPermissions
(
CatalogsTestIAMPermissionsResource
, catalogsTestIAMPermissions
, CatalogsTestIAMPermissions
, ctipXgafv
, ctipUploadProtocol
, ctipAccessToken
, ctipUploadType
, ctipPayload
, ctipResource
, ctipCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsTestIAMPermissionsResource =
"v1beta1" :>
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] GoogleIAMV1TestIAMPermissionsRequest
:> Post '[JSON] GoogleIAMV1TestIAMPermissionsResponse
data CatalogsTestIAMPermissions =
CatalogsTestIAMPermissions'
{ _ctipXgafv :: !(Maybe Xgafv)
, _ctipUploadProtocol :: !(Maybe Text)
, _ctipAccessToken :: !(Maybe Text)
, _ctipUploadType :: !(Maybe Text)
, _ctipPayload :: !GoogleIAMV1TestIAMPermissionsRequest
, _ctipResource :: !Text
, _ctipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsTestIAMPermissions
:: GoogleIAMV1TestIAMPermissionsRequest
-> Text
-> CatalogsTestIAMPermissions
catalogsTestIAMPermissions pCtipPayload_ pCtipResource_ =
CatalogsTestIAMPermissions'
{ _ctipXgafv = Nothing
, _ctipUploadProtocol = Nothing
, _ctipAccessToken = Nothing
, _ctipUploadType = Nothing
, _ctipPayload = pCtipPayload_
, _ctipResource = pCtipResource_
, _ctipCallback = Nothing
}
ctipXgafv :: Lens' CatalogsTestIAMPermissions (Maybe Xgafv)
ctipXgafv
= lens _ctipXgafv (\ s a -> s{_ctipXgafv = a})
ctipUploadProtocol :: Lens' CatalogsTestIAMPermissions (Maybe Text)
ctipUploadProtocol
= lens _ctipUploadProtocol
(\ s a -> s{_ctipUploadProtocol = a})
ctipAccessToken :: Lens' CatalogsTestIAMPermissions (Maybe Text)
ctipAccessToken
= lens _ctipAccessToken
(\ s a -> s{_ctipAccessToken = a})
ctipUploadType :: Lens' CatalogsTestIAMPermissions (Maybe Text)
ctipUploadType
= lens _ctipUploadType
(\ s a -> s{_ctipUploadType = a})
ctipPayload :: Lens' CatalogsTestIAMPermissions GoogleIAMV1TestIAMPermissionsRequest
ctipPayload
= lens _ctipPayload (\ s a -> s{_ctipPayload = a})
ctipResource :: Lens' CatalogsTestIAMPermissions Text
ctipResource
= lens _ctipResource (\ s a -> s{_ctipResource = a})
ctipCallback :: Lens' CatalogsTestIAMPermissions (Maybe Text)
ctipCallback
= lens _ctipCallback (\ s a -> s{_ctipCallback = a})
instance GoogleRequest CatalogsTestIAMPermissions
where
type Rs CatalogsTestIAMPermissions =
GoogleIAMV1TestIAMPermissionsResponse
type Scopes CatalogsTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsTestIAMPermissions'{..}
= go _ctipResource _ctipXgafv _ctipUploadProtocol
_ctipAccessToken
_ctipUploadType
_ctipCallback
(Just AltJSON)
_ctipPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsTestIAMPermissionsResource)
mempty