{-# 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.Delete
(
CatalogsProductsVersionsDeleteResource
, catalogsProductsVersionsDelete
, CatalogsProductsVersionsDelete
, cpvdXgafv
, cpvdUploadProtocol
, cpvdAccessToken
, cpvdUploadType
, cpvdName
, cpvdCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsProductsVersionsDeleteResource =
"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 CatalogsProductsVersionsDelete =
CatalogsProductsVersionsDelete'
{ _cpvdXgafv :: !(Maybe Xgafv)
, _cpvdUploadProtocol :: !(Maybe Text)
, _cpvdAccessToken :: !(Maybe Text)
, _cpvdUploadType :: !(Maybe Text)
, _cpvdName :: !Text
, _cpvdCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsProductsVersionsDelete
:: Text
-> CatalogsProductsVersionsDelete
catalogsProductsVersionsDelete pCpvdName_ =
CatalogsProductsVersionsDelete'
{ _cpvdXgafv = Nothing
, _cpvdUploadProtocol = Nothing
, _cpvdAccessToken = Nothing
, _cpvdUploadType = Nothing
, _cpvdName = pCpvdName_
, _cpvdCallback = Nothing
}
cpvdXgafv :: Lens' CatalogsProductsVersionsDelete (Maybe Xgafv)
cpvdXgafv
= lens _cpvdXgafv (\ s a -> s{_cpvdXgafv = a})
cpvdUploadProtocol :: Lens' CatalogsProductsVersionsDelete (Maybe Text)
cpvdUploadProtocol
= lens _cpvdUploadProtocol
(\ s a -> s{_cpvdUploadProtocol = a})
cpvdAccessToken :: Lens' CatalogsProductsVersionsDelete (Maybe Text)
cpvdAccessToken
= lens _cpvdAccessToken
(\ s a -> s{_cpvdAccessToken = a})
cpvdUploadType :: Lens' CatalogsProductsVersionsDelete (Maybe Text)
cpvdUploadType
= lens _cpvdUploadType
(\ s a -> s{_cpvdUploadType = a})
cpvdName :: Lens' CatalogsProductsVersionsDelete Text
cpvdName = lens _cpvdName (\ s a -> s{_cpvdName = a})
cpvdCallback :: Lens' CatalogsProductsVersionsDelete (Maybe Text)
cpvdCallback
= lens _cpvdCallback (\ s a -> s{_cpvdCallback = a})
instance GoogleRequest CatalogsProductsVersionsDelete
where
type Rs CatalogsProductsVersionsDelete =
GoogleProtobufEmpty
type Scopes CatalogsProductsVersionsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsProductsVersionsDelete'{..}
= go _cpvdName _cpvdXgafv _cpvdUploadProtocol
_cpvdAccessToken
_cpvdUploadType
_cpvdCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy ::
Proxy CatalogsProductsVersionsDeleteResource)
mempty