{-# 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.Delete
(
CatalogsProductsDeleteResource
, catalogsProductsDelete
, CatalogsProductsDelete
, cpdXgafv
, cpdUploadProtocol
, cpdAccessToken
, cpdUploadType
, cpdName
, cpdCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsDeleteResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] GoogleProtobufEmpty
data CatalogsProductsDelete =
CatalogsProductsDelete'
{ _cpdXgafv :: !(Maybe Xgafv)
, _cpdUploadProtocol :: !(Maybe Text)
, _cpdAccessToken :: !(Maybe Text)
, _cpdUploadType :: !(Maybe Text)
, _cpdName :: !Text
, _cpdCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsDelete
:: Text
-> CatalogsProductsDelete
catalogsProductsDelete pCpdName_ =
CatalogsProductsDelete'
{ _cpdXgafv = Nothing
, _cpdUploadProtocol = Nothing
, _cpdAccessToken = Nothing
, _cpdUploadType = Nothing
, _cpdName = pCpdName_
, _cpdCallback = Nothing
}
cpdXgafv :: Lens' CatalogsProductsDelete (Maybe Xgafv)
cpdXgafv = lens _cpdXgafv (\ s a -> s{_cpdXgafv = a})
cpdUploadProtocol :: Lens' CatalogsProductsDelete (Maybe Text)
cpdUploadProtocol
= lens _cpdUploadProtocol
(\ s a -> s{_cpdUploadProtocol = a})
cpdAccessToken :: Lens' CatalogsProductsDelete (Maybe Text)
cpdAccessToken
= lens _cpdAccessToken
(\ s a -> s{_cpdAccessToken = a})
cpdUploadType :: Lens' CatalogsProductsDelete (Maybe Text)
cpdUploadType
= lens _cpdUploadType
(\ s a -> s{_cpdUploadType = a})
cpdName :: Lens' CatalogsProductsDelete Text
cpdName = lens _cpdName (\ s a -> s{_cpdName = a})
cpdCallback :: Lens' CatalogsProductsDelete (Maybe Text)
cpdCallback
= lens _cpdCallback (\ s a -> s{_cpdCallback = a})
instance GoogleRequest CatalogsProductsDelete where
type Rs CatalogsProductsDelete = GoogleProtobufEmpty
type Scopes CatalogsProductsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsDelete'{..}
= go _cpdName _cpdXgafv _cpdUploadProtocol
_cpdAccessToken
_cpdUploadType
_cpdCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsProductsDeleteResource)
mempty