{-# 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.Copy
(
CatalogsProductsCopyResource
, catalogsProductsCopy
, CatalogsProductsCopy
, cXgafv
, cUploadProtocol
, cAccessToken
, cUploadType
, cPayload
, cName
, cCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsCopyResource =
"v1beta1" :>
CaptureMode "name" "copy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
:> Post '[JSON] GoogleLongrunningOperation
data CatalogsProductsCopy =
CatalogsProductsCopy'
{ _cXgafv :: !(Maybe Xgafv)
, _cUploadProtocol :: !(Maybe Text)
, _cAccessToken :: !(Maybe Text)
, _cUploadType :: !(Maybe Text)
, _cPayload :: !GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
, _cName :: !Text
, _cCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsCopy
:: GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
-> Text
-> CatalogsProductsCopy
catalogsProductsCopy pCPayload_ pCName_ =
CatalogsProductsCopy'
{ _cXgafv = Nothing
, _cUploadProtocol = Nothing
, _cAccessToken = Nothing
, _cUploadType = Nothing
, _cPayload = pCPayload_
, _cName = pCName_
, _cCallback = Nothing
}
cXgafv :: Lens' CatalogsProductsCopy (Maybe Xgafv)
cXgafv = lens _cXgafv (\ s a -> s{_cXgafv = a})
cUploadProtocol :: Lens' CatalogsProductsCopy (Maybe Text)
cUploadProtocol
= lens _cUploadProtocol
(\ s a -> s{_cUploadProtocol = a})
cAccessToken :: Lens' CatalogsProductsCopy (Maybe Text)
cAccessToken
= lens _cAccessToken (\ s a -> s{_cAccessToken = a})
cUploadType :: Lens' CatalogsProductsCopy (Maybe Text)
cUploadType
= lens _cUploadType (\ s a -> s{_cUploadType = a})
cPayload :: Lens' CatalogsProductsCopy GoogleCloudPrivatecatalogproducerV1beta1CopyProductRequest
cPayload = lens _cPayload (\ s a -> s{_cPayload = a})
cName :: Lens' CatalogsProductsCopy Text
cName = lens _cName (\ s a -> s{_cName = a})
cCallback :: Lens' CatalogsProductsCopy (Maybe Text)
cCallback
= lens _cCallback (\ s a -> s{_cCallback = a})
instance GoogleRequest CatalogsProductsCopy where
type Rs CatalogsProductsCopy =
GoogleLongrunningOperation
type Scopes CatalogsProductsCopy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsCopy'{..}
= go _cName _cXgafv _cUploadProtocol _cAccessToken
_cUploadType
_cCallback
(Just AltJSON)
_cPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsCopyResource)
mempty