{-# 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.Get
(
CatalogsGetResource
, catalogsGet
, CatalogsGet
, cgXgafv
, cgUploadProtocol
, cgAccessToken
, cgUploadType
, cgName
, cgCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsGetResource =
"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]
GoogleCloudPrivatecatalogproducerV1beta1Catalog
data CatalogsGet =
CatalogsGet'
{ _cgXgafv :: !(Maybe Xgafv)
, _cgUploadProtocol :: !(Maybe Text)
, _cgAccessToken :: !(Maybe Text)
, _cgUploadType :: !(Maybe Text)
, _cgName :: !Text
, _cgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsGet
:: Text
-> CatalogsGet
catalogsGet pCgName_ =
CatalogsGet'
{ _cgXgafv = Nothing
, _cgUploadProtocol = Nothing
, _cgAccessToken = Nothing
, _cgUploadType = Nothing
, _cgName = pCgName_
, _cgCallback = Nothing
}
cgXgafv :: Lens' CatalogsGet (Maybe Xgafv)
cgXgafv = lens _cgXgafv (\ s a -> s{_cgXgafv = a})
cgUploadProtocol :: Lens' CatalogsGet (Maybe Text)
cgUploadProtocol
= lens _cgUploadProtocol
(\ s a -> s{_cgUploadProtocol = a})
cgAccessToken :: Lens' CatalogsGet (Maybe Text)
cgAccessToken
= lens _cgAccessToken
(\ s a -> s{_cgAccessToken = a})
cgUploadType :: Lens' CatalogsGet (Maybe Text)
cgUploadType
= lens _cgUploadType (\ s a -> s{_cgUploadType = a})
cgName :: Lens' CatalogsGet Text
cgName = lens _cgName (\ s a -> s{_cgName = a})
cgCallback :: Lens' CatalogsGet (Maybe Text)
cgCallback
= lens _cgCallback (\ s a -> s{_cgCallback = a})
instance GoogleRequest CatalogsGet where
type Rs CatalogsGet =
GoogleCloudPrivatecatalogproducerV1beta1Catalog
type Scopes CatalogsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsGet'{..}
= go _cgName _cgXgafv _cgUploadProtocol
_cgAccessToken
_cgUploadType
_cgCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient (Proxy :: Proxy CatalogsGetResource)
mempty