{-# 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.List
(
CatalogsProductsVersionsListResource
, catalogsProductsVersionsList
, CatalogsProductsVersionsList
, cpvlParent
, cpvlXgafv
, cpvlUploadProtocol
, cpvlAccessToken
, cpvlUploadType
, cpvlPageToken
, cpvlPageSize
, cpvlCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsVersionsListResource =
"v1beta1" :>
Capture "parent" Text :>
"versions" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
data CatalogsProductsVersionsList =
CatalogsProductsVersionsList'
{ _cpvlParent :: !Text
, _cpvlXgafv :: !(Maybe Xgafv)
, _cpvlUploadProtocol :: !(Maybe Text)
, _cpvlAccessToken :: !(Maybe Text)
, _cpvlUploadType :: !(Maybe Text)
, _cpvlPageToken :: !(Maybe Text)
, _cpvlPageSize :: !(Maybe (Textual Int32))
, _cpvlCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsVersionsList
:: Text
-> CatalogsProductsVersionsList
catalogsProductsVersionsList pCpvlParent_ =
CatalogsProductsVersionsList'
{ _cpvlParent = pCpvlParent_
, _cpvlXgafv = Nothing
, _cpvlUploadProtocol = Nothing
, _cpvlAccessToken = Nothing
, _cpvlUploadType = Nothing
, _cpvlPageToken = Nothing
, _cpvlPageSize = Nothing
, _cpvlCallback = Nothing
}
cpvlParent :: Lens' CatalogsProductsVersionsList Text
cpvlParent
= lens _cpvlParent (\ s a -> s{_cpvlParent = a})
cpvlXgafv :: Lens' CatalogsProductsVersionsList (Maybe Xgafv)
cpvlXgafv
= lens _cpvlXgafv (\ s a -> s{_cpvlXgafv = a})
cpvlUploadProtocol :: Lens' CatalogsProductsVersionsList (Maybe Text)
cpvlUploadProtocol
= lens _cpvlUploadProtocol
(\ s a -> s{_cpvlUploadProtocol = a})
cpvlAccessToken :: Lens' CatalogsProductsVersionsList (Maybe Text)
cpvlAccessToken
= lens _cpvlAccessToken
(\ s a -> s{_cpvlAccessToken = a})
cpvlUploadType :: Lens' CatalogsProductsVersionsList (Maybe Text)
cpvlUploadType
= lens _cpvlUploadType
(\ s a -> s{_cpvlUploadType = a})
cpvlPageToken :: Lens' CatalogsProductsVersionsList (Maybe Text)
cpvlPageToken
= lens _cpvlPageToken
(\ s a -> s{_cpvlPageToken = a})
cpvlPageSize :: Lens' CatalogsProductsVersionsList (Maybe Int32)
cpvlPageSize
= lens _cpvlPageSize (\ s a -> s{_cpvlPageSize = a})
. mapping _Coerce
cpvlCallback :: Lens' CatalogsProductsVersionsList (Maybe Text)
cpvlCallback
= lens _cpvlCallback (\ s a -> s{_cpvlCallback = a})
instance GoogleRequest CatalogsProductsVersionsList
where
type Rs CatalogsProductsVersionsList =
GoogleCloudPrivatecatalogproducerV1beta1ListVersionsResponse
type Scopes CatalogsProductsVersionsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsVersionsList'{..}
= go _cpvlParent _cpvlXgafv _cpvlUploadProtocol
_cpvlAccessToken
_cpvlUploadType
_cpvlPageToken
_cpvlPageSize
_cpvlCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsVersionsListResource)
mempty