{-# 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.Patch
(
CatalogsProductsVersionsPatchResource
, catalogsProductsVersionsPatch
, CatalogsProductsVersionsPatch
, cpvpXgafv
, cpvpUploadProtocol
, cpvpUpdateMask
, cpvpAccessToken
, cpvpUploadType
, cpvpPayload
, cpvpName
, cpvpCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsVersionsPatchResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Version
:>
Patch '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Version
data CatalogsProductsVersionsPatch =
CatalogsProductsVersionsPatch'
{ _cpvpXgafv :: !(Maybe Xgafv)
, _cpvpUploadProtocol :: !(Maybe Text)
, _cpvpUpdateMask :: !(Maybe GFieldMask)
, _cpvpAccessToken :: !(Maybe Text)
, _cpvpUploadType :: !(Maybe Text)
, _cpvpPayload :: !GoogleCloudPrivatecatalogproducerV1beta1Version
, _cpvpName :: !Text
, _cpvpCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsVersionsPatch
:: GoogleCloudPrivatecatalogproducerV1beta1Version
-> Text
-> CatalogsProductsVersionsPatch
catalogsProductsVersionsPatch pCpvpPayload_ pCpvpName_ =
CatalogsProductsVersionsPatch'
{ _cpvpXgafv = Nothing
, _cpvpUploadProtocol = Nothing
, _cpvpUpdateMask = Nothing
, _cpvpAccessToken = Nothing
, _cpvpUploadType = Nothing
, _cpvpPayload = pCpvpPayload_
, _cpvpName = pCpvpName_
, _cpvpCallback = Nothing
}
cpvpXgafv :: Lens' CatalogsProductsVersionsPatch (Maybe Xgafv)
cpvpXgafv
= lens _cpvpXgafv (\ s a -> s{_cpvpXgafv = a})
cpvpUploadProtocol :: Lens' CatalogsProductsVersionsPatch (Maybe Text)
cpvpUploadProtocol
= lens _cpvpUploadProtocol
(\ s a -> s{_cpvpUploadProtocol = a})
cpvpUpdateMask :: Lens' CatalogsProductsVersionsPatch (Maybe GFieldMask)
cpvpUpdateMask
= lens _cpvpUpdateMask
(\ s a -> s{_cpvpUpdateMask = a})
cpvpAccessToken :: Lens' CatalogsProductsVersionsPatch (Maybe Text)
cpvpAccessToken
= lens _cpvpAccessToken
(\ s a -> s{_cpvpAccessToken = a})
cpvpUploadType :: Lens' CatalogsProductsVersionsPatch (Maybe Text)
cpvpUploadType
= lens _cpvpUploadType
(\ s a -> s{_cpvpUploadType = a})
cpvpPayload :: Lens' CatalogsProductsVersionsPatch GoogleCloudPrivatecatalogproducerV1beta1Version
cpvpPayload
= lens _cpvpPayload (\ s a -> s{_cpvpPayload = a})
cpvpName :: Lens' CatalogsProductsVersionsPatch Text
cpvpName = lens _cpvpName (\ s a -> s{_cpvpName = a})
cpvpCallback :: Lens' CatalogsProductsVersionsPatch (Maybe Text)
cpvpCallback
= lens _cpvpCallback (\ s a -> s{_cpvpCallback = a})
instance GoogleRequest CatalogsProductsVersionsPatch
where
type Rs CatalogsProductsVersionsPatch =
GoogleCloudPrivatecatalogproducerV1beta1Version
type Scopes CatalogsProductsVersionsPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsVersionsPatch'{..}
= go _cpvpName _cpvpXgafv _cpvpUploadProtocol
_cpvpUpdateMask
_cpvpAccessToken
_cpvpUploadType
_cpvpCallback
(Just AltJSON)
_cpvpPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy ::
Proxy CatalogsProductsVersionsPatchResource)
mempty