{-# 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.Products.Get
(
CatalogsProductsGetResource
, catalogsProductsGet
, CatalogsProductsGet
, cpgXgafv
, cpgUploadProtocol
, cpgAccessToken
, cpgUploadType
, cpgName
, cpgCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsGetResource =
"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]
GoogleCloudPrivatecatalogproducerV1beta1Product
data CatalogsProductsGet =
CatalogsProductsGet'
{ _cpgXgafv :: !(Maybe Xgafv)
, _cpgUploadProtocol :: !(Maybe Text)
, _cpgAccessToken :: !(Maybe Text)
, _cpgUploadType :: !(Maybe Text)
, _cpgName :: !Text
, _cpgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsGet
:: Text
-> CatalogsProductsGet
catalogsProductsGet pCpgName_ =
CatalogsProductsGet'
{ _cpgXgafv = Nothing
, _cpgUploadProtocol = Nothing
, _cpgAccessToken = Nothing
, _cpgUploadType = Nothing
, _cpgName = pCpgName_
, _cpgCallback = Nothing
}
cpgXgafv :: Lens' CatalogsProductsGet (Maybe Xgafv)
cpgXgafv = lens _cpgXgafv (\ s a -> s{_cpgXgafv = a})
cpgUploadProtocol :: Lens' CatalogsProductsGet (Maybe Text)
cpgUploadProtocol
= lens _cpgUploadProtocol
(\ s a -> s{_cpgUploadProtocol = a})
cpgAccessToken :: Lens' CatalogsProductsGet (Maybe Text)
cpgAccessToken
= lens _cpgAccessToken
(\ s a -> s{_cpgAccessToken = a})
cpgUploadType :: Lens' CatalogsProductsGet (Maybe Text)
cpgUploadType
= lens _cpgUploadType
(\ s a -> s{_cpgUploadType = a})
cpgName :: Lens' CatalogsProductsGet Text
cpgName = lens _cpgName (\ s a -> s{_cpgName = a})
cpgCallback :: Lens' CatalogsProductsGet (Maybe Text)
cpgCallback
= lens _cpgCallback (\ s a -> s{_cpgCallback = a})
instance GoogleRequest CatalogsProductsGet where
type Rs CatalogsProductsGet =
GoogleCloudPrivatecatalogproducerV1beta1Product
type Scopes CatalogsProductsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsGet'{..}
= go _cpgName _cpgXgafv _cpgUploadProtocol
_cpgAccessToken
_cpgUploadType
_cpgCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsGetResource)
mempty