{-# 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.Delete
(
CatalogsDeleteResource
, catalogsDelete
, CatalogsDelete
, cdXgafv
, cdUploadProtocol
, cdForce
, cdAccessToken
, cdUploadType
, cdName
, cdCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsDeleteResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "force" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Catalog
data CatalogsDelete =
CatalogsDelete'
{ _cdXgafv :: !(Maybe Xgafv)
, _cdUploadProtocol :: !(Maybe Text)
, _cdForce :: !(Maybe Bool)
, _cdAccessToken :: !(Maybe Text)
, _cdUploadType :: !(Maybe Text)
, _cdName :: !Text
, _cdCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsDelete
:: Text
-> CatalogsDelete
catalogsDelete pCdName_ =
CatalogsDelete'
{ _cdXgafv = Nothing
, _cdUploadProtocol = Nothing
, _cdForce = Nothing
, _cdAccessToken = Nothing
, _cdUploadType = Nothing
, _cdName = pCdName_
, _cdCallback = Nothing
}
cdXgafv :: Lens' CatalogsDelete (Maybe Xgafv)
cdXgafv = lens _cdXgafv (\ s a -> s{_cdXgafv = a})
cdUploadProtocol :: Lens' CatalogsDelete (Maybe Text)
cdUploadProtocol
= lens _cdUploadProtocol
(\ s a -> s{_cdUploadProtocol = a})
cdForce :: Lens' CatalogsDelete (Maybe Bool)
cdForce = lens _cdForce (\ s a -> s{_cdForce = a})
cdAccessToken :: Lens' CatalogsDelete (Maybe Text)
cdAccessToken
= lens _cdAccessToken
(\ s a -> s{_cdAccessToken = a})
cdUploadType :: Lens' CatalogsDelete (Maybe Text)
cdUploadType
= lens _cdUploadType (\ s a -> s{_cdUploadType = a})
cdName :: Lens' CatalogsDelete Text
cdName = lens _cdName (\ s a -> s{_cdName = a})
cdCallback :: Lens' CatalogsDelete (Maybe Text)
cdCallback
= lens _cdCallback (\ s a -> s{_cdCallback = a})
instance GoogleRequest CatalogsDelete where
type Rs CatalogsDelete =
GoogleCloudPrivatecatalogproducerV1beta1Catalog
type Scopes CatalogsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsDelete'{..}
= go _cdName _cdXgafv _cdUploadProtocol _cdForce
_cdAccessToken
_cdUploadType
_cdCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient (Proxy :: Proxy CatalogsDeleteResource)
mempty