{-# 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.List
(
CatalogsProductsListResource
, catalogsProductsList
, CatalogsProductsList
, cplParent
, cplXgafv
, cplUploadProtocol
, cplAccessToken
, cplUploadType
, cplFilter
, cplPageToken
, cplPageSize
, cplCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsListResource =
"v1beta1" :>
Capture "parent" Text :>
"products" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse
data CatalogsProductsList =
CatalogsProductsList'
{ _cplParent :: !Text
, _cplXgafv :: !(Maybe Xgafv)
, _cplUploadProtocol :: !(Maybe Text)
, _cplAccessToken :: !(Maybe Text)
, _cplUploadType :: !(Maybe Text)
, _cplFilter :: !(Maybe Text)
, _cplPageToken :: !(Maybe Text)
, _cplPageSize :: !(Maybe (Textual Int32))
, _cplCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsList
:: Text
-> CatalogsProductsList
catalogsProductsList pCplParent_ =
CatalogsProductsList'
{ _cplParent = pCplParent_
, _cplXgafv = Nothing
, _cplUploadProtocol = Nothing
, _cplAccessToken = Nothing
, _cplUploadType = Nothing
, _cplFilter = Nothing
, _cplPageToken = Nothing
, _cplPageSize = Nothing
, _cplCallback = Nothing
}
cplParent :: Lens' CatalogsProductsList Text
cplParent
= lens _cplParent (\ s a -> s{_cplParent = a})
cplXgafv :: Lens' CatalogsProductsList (Maybe Xgafv)
cplXgafv = lens _cplXgafv (\ s a -> s{_cplXgafv = a})
cplUploadProtocol :: Lens' CatalogsProductsList (Maybe Text)
cplUploadProtocol
= lens _cplUploadProtocol
(\ s a -> s{_cplUploadProtocol = a})
cplAccessToken :: Lens' CatalogsProductsList (Maybe Text)
cplAccessToken
= lens _cplAccessToken
(\ s a -> s{_cplAccessToken = a})
cplUploadType :: Lens' CatalogsProductsList (Maybe Text)
cplUploadType
= lens _cplUploadType
(\ s a -> s{_cplUploadType = a})
cplFilter :: Lens' CatalogsProductsList (Maybe Text)
cplFilter
= lens _cplFilter (\ s a -> s{_cplFilter = a})
cplPageToken :: Lens' CatalogsProductsList (Maybe Text)
cplPageToken
= lens _cplPageToken (\ s a -> s{_cplPageToken = a})
cplPageSize :: Lens' CatalogsProductsList (Maybe Int32)
cplPageSize
= lens _cplPageSize (\ s a -> s{_cplPageSize = a}) .
mapping _Coerce
cplCallback :: Lens' CatalogsProductsList (Maybe Text)
cplCallback
= lens _cplCallback (\ s a -> s{_cplCallback = a})
instance GoogleRequest CatalogsProductsList where
type Rs CatalogsProductsList =
GoogleCloudPrivatecatalogproducerV1beta1ListProductsResponse
type Scopes CatalogsProductsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsList'{..}
= go _cplParent _cplXgafv _cplUploadProtocol
_cplAccessToken
_cplUploadType
_cplFilter
_cplPageToken
_cplPageSize
_cplCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsListResource)
mempty