{-# 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.Versions.Get
(
CatalogsProductsVersionsGetResource
, catalogsProductsVersionsGet
, CatalogsProductsVersionsGet
, cpvgXgafv
, cpvgUploadProtocol
, cpvgAccessToken
, cpvgUploadType
, cpvgName
, cpvgCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsVersionsGetResource =
"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]
GoogleCloudPrivatecatalogproducerV1beta1Version
data CatalogsProductsVersionsGet =
CatalogsProductsVersionsGet'
{ _cpvgXgafv :: !(Maybe Xgafv)
, _cpvgUploadProtocol :: !(Maybe Text)
, _cpvgAccessToken :: !(Maybe Text)
, _cpvgUploadType :: !(Maybe Text)
, _cpvgName :: !Text
, _cpvgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsVersionsGet
:: Text
-> CatalogsProductsVersionsGet
catalogsProductsVersionsGet pCpvgName_ =
CatalogsProductsVersionsGet'
{ _cpvgXgafv = Nothing
, _cpvgUploadProtocol = Nothing
, _cpvgAccessToken = Nothing
, _cpvgUploadType = Nothing
, _cpvgName = pCpvgName_
, _cpvgCallback = Nothing
}
cpvgXgafv :: Lens' CatalogsProductsVersionsGet (Maybe Xgafv)
cpvgXgafv
= lens _cpvgXgafv (\ s a -> s{_cpvgXgafv = a})
cpvgUploadProtocol :: Lens' CatalogsProductsVersionsGet (Maybe Text)
cpvgUploadProtocol
= lens _cpvgUploadProtocol
(\ s a -> s{_cpvgUploadProtocol = a})
cpvgAccessToken :: Lens' CatalogsProductsVersionsGet (Maybe Text)
cpvgAccessToken
= lens _cpvgAccessToken
(\ s a -> s{_cpvgAccessToken = a})
cpvgUploadType :: Lens' CatalogsProductsVersionsGet (Maybe Text)
cpvgUploadType
= lens _cpvgUploadType
(\ s a -> s{_cpvgUploadType = a})
cpvgName :: Lens' CatalogsProductsVersionsGet Text
cpvgName = lens _cpvgName (\ s a -> s{_cpvgName = a})
cpvgCallback :: Lens' CatalogsProductsVersionsGet (Maybe Text)
cpvgCallback
= lens _cpvgCallback (\ s a -> s{_cpvgCallback = a})
instance GoogleRequest CatalogsProductsVersionsGet
where
type Rs CatalogsProductsVersionsGet =
GoogleCloudPrivatecatalogproducerV1beta1Version
type Scopes CatalogsProductsVersionsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsVersionsGet'{..}
= go _cpvgName _cpvgXgafv _cpvgUploadProtocol
_cpvgAccessToken
_cpvgUploadType
_cpvgCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsVersionsGetResource)
mempty