{-# 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.Patch
(
CatalogsPatchResource
, catalogsPatch
, CatalogsPatch
, cpXgafv
, cpUploadProtocol
, cpUpdateMask
, cpAccessToken
, cpUploadType
, cpPayload
, cpName
, cpCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsPatchResource =
"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]
GoogleCloudPrivatecatalogproducerV1beta1Catalog
:>
Patch '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Catalog
data CatalogsPatch =
CatalogsPatch'
{ _cpXgafv :: !(Maybe Xgafv)
, _cpUploadProtocol :: !(Maybe Text)
, _cpUpdateMask :: !(Maybe GFieldMask)
, _cpAccessToken :: !(Maybe Text)
, _cpUploadType :: !(Maybe Text)
, _cpPayload :: !GoogleCloudPrivatecatalogproducerV1beta1Catalog
, _cpName :: !Text
, _cpCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsPatch
:: GoogleCloudPrivatecatalogproducerV1beta1Catalog
-> Text
-> CatalogsPatch
catalogsPatch pCpPayload_ pCpName_ =
CatalogsPatch'
{ _cpXgafv = Nothing
, _cpUploadProtocol = Nothing
, _cpUpdateMask = Nothing
, _cpAccessToken = Nothing
, _cpUploadType = Nothing
, _cpPayload = pCpPayload_
, _cpName = pCpName_
, _cpCallback = Nothing
}
cpXgafv :: Lens' CatalogsPatch (Maybe Xgafv)
cpXgafv = lens _cpXgafv (\ s a -> s{_cpXgafv = a})
cpUploadProtocol :: Lens' CatalogsPatch (Maybe Text)
cpUploadProtocol
= lens _cpUploadProtocol
(\ s a -> s{_cpUploadProtocol = a})
cpUpdateMask :: Lens' CatalogsPatch (Maybe GFieldMask)
cpUpdateMask
= lens _cpUpdateMask (\ s a -> s{_cpUpdateMask = a})
cpAccessToken :: Lens' CatalogsPatch (Maybe Text)
cpAccessToken
= lens _cpAccessToken
(\ s a -> s{_cpAccessToken = a})
cpUploadType :: Lens' CatalogsPatch (Maybe Text)
cpUploadType
= lens _cpUploadType (\ s a -> s{_cpUploadType = a})
cpPayload :: Lens' CatalogsPatch GoogleCloudPrivatecatalogproducerV1beta1Catalog
cpPayload
= lens _cpPayload (\ s a -> s{_cpPayload = a})
cpName :: Lens' CatalogsPatch Text
cpName = lens _cpName (\ s a -> s{_cpName = a})
cpCallback :: Lens' CatalogsPatch (Maybe Text)
cpCallback
= lens _cpCallback (\ s a -> s{_cpCallback = a})
instance GoogleRequest CatalogsPatch where
type Rs CatalogsPatch =
GoogleCloudPrivatecatalogproducerV1beta1Catalog
type Scopes CatalogsPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsPatch'{..}
= go _cpName _cpXgafv _cpUploadProtocol _cpUpdateMask
_cpAccessToken
_cpUploadType
_cpCallback
(Just AltJSON)
_cpPayload
cloudPrivateCatalogProducerService
where go
= buildClient (Proxy :: Proxy CatalogsPatchResource)
mempty