{-# 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.Create
(
CatalogsAssociationsCreateResource
, catalogsAssociationsCreate
, CatalogsAssociationsCreate
, cacParent
, cacXgafv
, cacUploadProtocol
, cacAccessToken
, cacUploadType
, cacPayload
, cacCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsAssociationsCreateResource =
"v1beta1" :>
Capture "parent" Text :>
"associations" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
:>
Post '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Association
data CatalogsAssociationsCreate =
CatalogsAssociationsCreate'
{ _cacParent :: !Text
, _cacXgafv :: !(Maybe Xgafv)
, _cacUploadProtocol :: !(Maybe Text)
, _cacAccessToken :: !(Maybe Text)
, _cacUploadType :: !(Maybe Text)
, _cacPayload :: !GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
, _cacCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsAssociationsCreate
:: Text
-> GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
-> CatalogsAssociationsCreate
catalogsAssociationsCreate pCacParent_ pCacPayload_ =
CatalogsAssociationsCreate'
{ _cacParent = pCacParent_
, _cacXgafv = Nothing
, _cacUploadProtocol = Nothing
, _cacAccessToken = Nothing
, _cacUploadType = Nothing
, _cacPayload = pCacPayload_
, _cacCallback = Nothing
}
cacParent :: Lens' CatalogsAssociationsCreate Text
cacParent
= lens _cacParent (\ s a -> s{_cacParent = a})
cacXgafv :: Lens' CatalogsAssociationsCreate (Maybe Xgafv)
cacXgafv = lens _cacXgafv (\ s a -> s{_cacXgafv = a})
cacUploadProtocol :: Lens' CatalogsAssociationsCreate (Maybe Text)
cacUploadProtocol
= lens _cacUploadProtocol
(\ s a -> s{_cacUploadProtocol = a})
cacAccessToken :: Lens' CatalogsAssociationsCreate (Maybe Text)
cacAccessToken
= lens _cacAccessToken
(\ s a -> s{_cacAccessToken = a})
cacUploadType :: Lens' CatalogsAssociationsCreate (Maybe Text)
cacUploadType
= lens _cacUploadType
(\ s a -> s{_cacUploadType = a})
cacPayload :: Lens' CatalogsAssociationsCreate GoogleCloudPrivatecatalogproducerV1beta1CreateAssociationRequest
cacPayload
= lens _cacPayload (\ s a -> s{_cacPayload = a})
cacCallback :: Lens' CatalogsAssociationsCreate (Maybe Text)
cacCallback
= lens _cacCallback (\ s a -> s{_cacCallback = a})
instance GoogleRequest CatalogsAssociationsCreate
where
type Rs CatalogsAssociationsCreate =
GoogleCloudPrivatecatalogproducerV1beta1Association
type Scopes CatalogsAssociationsCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsAssociationsCreate'{..}
= go _cacParent _cacXgafv _cacUploadProtocol
_cacAccessToken
_cacUploadType
_cacCallback
(Just AltJSON)
_cacPayload
cloudPrivateCatalogProducerService
where go
= buildClient
(Proxy :: Proxy CatalogsAssociationsCreateResource)
mempty