{-# 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.Patch
(
CatalogsProductsPatchResource
, catalogsProductsPatch
, CatalogsProductsPatch
, cppXgafv
, cppUploadProtocol
, cppUpdateMask
, cppAccessToken
, cppUploadType
, cppPayload
, cppName
, cppCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsPatchResource =
"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]
GoogleCloudPrivatecatalogproducerV1beta1Product
:>
Patch '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Product
data CatalogsProductsPatch =
CatalogsProductsPatch'
{ _cppXgafv :: !(Maybe Xgafv)
, _cppUploadProtocol :: !(Maybe Text)
, _cppUpdateMask :: !(Maybe GFieldMask)
, _cppAccessToken :: !(Maybe Text)
, _cppUploadType :: !(Maybe Text)
, _cppPayload :: !GoogleCloudPrivatecatalogproducerV1beta1Product
, _cppName :: !Text
, _cppCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsPatch
:: GoogleCloudPrivatecatalogproducerV1beta1Product
-> Text
-> CatalogsProductsPatch
catalogsProductsPatch pCppPayload_ pCppName_ =
CatalogsProductsPatch'
{ _cppXgafv = Nothing
, _cppUploadProtocol = Nothing
, _cppUpdateMask = Nothing
, _cppAccessToken = Nothing
, _cppUploadType = Nothing
, _cppPayload = pCppPayload_
, _cppName = pCppName_
, _cppCallback = Nothing
}
cppXgafv :: Lens' CatalogsProductsPatch (Maybe Xgafv)
cppXgafv = lens _cppXgafv (\ s a -> s{_cppXgafv = a})
cppUploadProtocol :: Lens' CatalogsProductsPatch (Maybe Text)
cppUploadProtocol
= lens _cppUploadProtocol
(\ s a -> s{_cppUploadProtocol = a})
cppUpdateMask :: Lens' CatalogsProductsPatch (Maybe GFieldMask)
cppUpdateMask
= lens _cppUpdateMask
(\ s a -> s{_cppUpdateMask = a})
cppAccessToken :: Lens' CatalogsProductsPatch (Maybe Text)
cppAccessToken
= lens _cppAccessToken
(\ s a -> s{_cppAccessToken = a})
cppUploadType :: Lens' CatalogsProductsPatch (Maybe Text)
cppUploadType
= lens _cppUploadType
(\ s a -> s{_cppUploadType = a})
cppPayload :: Lens' CatalogsProductsPatch GoogleCloudPrivatecatalogproducerV1beta1Product
cppPayload
= lens _cppPayload (\ s a -> s{_cppPayload = a})
cppName :: Lens' CatalogsProductsPatch Text
cppName = lens _cppName (\ s a -> s{_cppName = a})
cppCallback :: Lens' CatalogsProductsPatch (Maybe Text)
cppCallback
= lens _cppCallback (\ s a -> s{_cppCallback = a})
instance GoogleRequest CatalogsProductsPatch where
type Rs CatalogsProductsPatch =
GoogleCloudPrivatecatalogproducerV1beta1Product
type Scopes CatalogsProductsPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsPatch'{..}
= go _cppName _cppXgafv _cppUploadProtocol
_cppUpdateMask
_cppAccessToken
_cppUploadType
_cppCallback
(Just AltJSON)
_cppPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsPatchResource)
mempty