{-# 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.Associations.Get
(
CatalogsAssociationsGetResource
, catalogsAssociationsGet
, CatalogsAssociationsGet
, cagXgafv
, cagUploadProtocol
, cagAccessToken
, cagUploadType
, cagName
, cagCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsAssociationsGetResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Association
data CatalogsAssociationsGet =
CatalogsAssociationsGet'
{ _cagXgafv :: !(Maybe Xgafv)
, _cagUploadProtocol :: !(Maybe Text)
, _cagAccessToken :: !(Maybe Text)
, _cagUploadType :: !(Maybe Text)
, _cagName :: !Text
, _cagCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsAssociationsGet
:: Text
-> CatalogsAssociationsGet
catalogsAssociationsGet pCagName_ =
CatalogsAssociationsGet'
{ _cagXgafv = Nothing
, _cagUploadProtocol = Nothing
, _cagAccessToken = Nothing
, _cagUploadType = Nothing
, _cagName = pCagName_
, _cagCallback = Nothing
}
cagXgafv :: Lens' CatalogsAssociationsGet (Maybe Xgafv)
cagXgafv = lens _cagXgafv (\ s a -> s{_cagXgafv = a})
cagUploadProtocol :: Lens' CatalogsAssociationsGet (Maybe Text)
cagUploadProtocol
= lens _cagUploadProtocol
(\ s a -> s{_cagUploadProtocol = a})
cagAccessToken :: Lens' CatalogsAssociationsGet (Maybe Text)
cagAccessToken
= lens _cagAccessToken
(\ s a -> s{_cagAccessToken = a})
cagUploadType :: Lens' CatalogsAssociationsGet (Maybe Text)
cagUploadType
= lens _cagUploadType
(\ s a -> s{_cagUploadType = a})
cagName :: Lens' CatalogsAssociationsGet Text
cagName = lens _cagName (\ s a -> s{_cagName = a})
cagCallback :: Lens' CatalogsAssociationsGet (Maybe Text)
cagCallback
= lens _cagCallback (\ s a -> s{_cagCallback = a})
instance GoogleRequest CatalogsAssociationsGet where
type Rs CatalogsAssociationsGet =
GoogleCloudPrivatecatalogproducerV1beta1Association
type Scopes CatalogsAssociationsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsAssociationsGet'{..}
= go _cagName _cagXgafv _cagUploadProtocol
_cagAccessToken
_cagUploadType
_cagCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsAssociationsGetResource)
mempty