{-# 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.Associations.Delete
(
CatalogsAssociationsDeleteResource
, catalogsAssociationsDelete
, CatalogsAssociationsDelete
, cadXgafv
, cadUploadProtocol
, cadAccessToken
, cadUploadType
, cadName
, cadCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsAssociationsDeleteResource =
"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 CatalogsAssociationsDelete =
CatalogsAssociationsDelete'
{ _cadXgafv :: !(Maybe Xgafv)
, _cadUploadProtocol :: !(Maybe Text)
, _cadAccessToken :: !(Maybe Text)
, _cadUploadType :: !(Maybe Text)
, _cadName :: !Text
, _cadCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsAssociationsDelete
:: Text
-> CatalogsAssociationsDelete
catalogsAssociationsDelete pCadName_ =
CatalogsAssociationsDelete'
{ _cadXgafv = Nothing
, _cadUploadProtocol = Nothing
, _cadAccessToken = Nothing
, _cadUploadType = Nothing
, _cadName = pCadName_
, _cadCallback = Nothing
}
cadXgafv :: Lens' CatalogsAssociationsDelete (Maybe Xgafv)
cadXgafv = lens _cadXgafv (\ s a -> s{_cadXgafv = a})
cadUploadProtocol :: Lens' CatalogsAssociationsDelete (Maybe Text)
cadUploadProtocol
= lens _cadUploadProtocol
(\ s a -> s{_cadUploadProtocol = a})
cadAccessToken :: Lens' CatalogsAssociationsDelete (Maybe Text)
cadAccessToken
= lens _cadAccessToken
(\ s a -> s{_cadAccessToken = a})
cadUploadType :: Lens' CatalogsAssociationsDelete (Maybe Text)
cadUploadType
= lens _cadUploadType
(\ s a -> s{_cadUploadType = a})
cadName :: Lens' CatalogsAssociationsDelete Text
cadName = lens _cadName (\ s a -> s{_cadName = a})
cadCallback :: Lens' CatalogsAssociationsDelete (Maybe Text)
cadCallback
= lens _cadCallback (\ s a -> s{_cadCallback = a})
instance GoogleRequest CatalogsAssociationsDelete
where
type Rs CatalogsAssociationsDelete =
GoogleProtobufEmpty
type Scopes CatalogsAssociationsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsAssociationsDelete'{..}
= go _cadName _cadXgafv _cadUploadProtocol
_cadAccessToken
_cadUploadType
_cadCallback
(Just AltJSON)
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsAssociationsDeleteResource)
mempty