{-# 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.GetIAMPolicy
(
CatalogsGetIAMPolicyResource
, catalogsGetIAMPolicy
, CatalogsGetIAMPolicy
, cgipXgafv
, cgipUploadProtocol
, cgipAccessToken
, cgipUploadType
, cgipResource
, cgipCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsGetIAMPolicyResource =
"v1beta1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GoogleIAMV1Policy
data CatalogsGetIAMPolicy =
CatalogsGetIAMPolicy'
{ _cgipXgafv :: !(Maybe Xgafv)
, _cgipUploadProtocol :: !(Maybe Text)
, _cgipAccessToken :: !(Maybe Text)
, _cgipUploadType :: !(Maybe Text)
, _cgipResource :: !Text
, _cgipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsGetIAMPolicy
:: Text
-> CatalogsGetIAMPolicy
catalogsGetIAMPolicy pCgipResource_ =
CatalogsGetIAMPolicy'
{ _cgipXgafv = Nothing
, _cgipUploadProtocol = Nothing
, _cgipAccessToken = Nothing
, _cgipUploadType = Nothing
, _cgipResource = pCgipResource_
, _cgipCallback = Nothing
}
cgipXgafv :: Lens' CatalogsGetIAMPolicy (Maybe Xgafv)
cgipXgafv
= lens _cgipXgafv (\ s a -> s{_cgipXgafv = a})
cgipUploadProtocol :: Lens' CatalogsGetIAMPolicy (Maybe Text)
cgipUploadProtocol
= lens _cgipUploadProtocol
(\ s a -> s{_cgipUploadProtocol = a})
cgipAccessToken :: Lens' CatalogsGetIAMPolicy (Maybe Text)
cgipAccessToken
= lens _cgipAccessToken
(\ s a -> s{_cgipAccessToken = a})
cgipUploadType :: Lens' CatalogsGetIAMPolicy (Maybe Text)
cgipUploadType
= lens _cgipUploadType
(\ s a -> s{_cgipUploadType = a})
cgipResource :: Lens' CatalogsGetIAMPolicy Text
cgipResource
= lens _cgipResource (\ s a -> s{_cgipResource = a})
cgipCallback :: Lens' CatalogsGetIAMPolicy (Maybe Text)
cgipCallback
= lens _cgipCallback (\ s a -> s{_cgipCallback = a})
instance GoogleRequest CatalogsGetIAMPolicy where
type Rs CatalogsGetIAMPolicy = GoogleIAMV1Policy
type Scopes CatalogsGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsGetIAMPolicy'{..}
= go _cgipResource _cgipXgafv _cgipUploadProtocol
_cgipAccessToken
_cgipUploadType
_cgipCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsGetIAMPolicyResource)
mempty