{-# 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.Create
(
CatalogsCreateResource
, catalogsCreate
, CatalogsCreate
, ccXgafv
, ccUploadProtocol
, ccAccessToken
, ccUploadType
, ccPayload
, ccCallback
) where
import Network.Google.CloudPrivateCatalogProducer.Types
import Network.Google.Prelude
type CatalogsCreateResource =
"v1beta1" :>
"catalogs" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GoogleCloudPrivatecatalogproducerV1beta1Catalog
:> Post '[JSON] GoogleLongrunningOperation
data CatalogsCreate =
CatalogsCreate'
{ _ccXgafv :: !(Maybe Xgafv)
, _ccUploadProtocol :: !(Maybe Text)
, _ccAccessToken :: !(Maybe Text)
, _ccUploadType :: !(Maybe Text)
, _ccPayload :: !GoogleCloudPrivatecatalogproducerV1beta1Catalog
, _ccCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
catalogsCreate
:: GoogleCloudPrivatecatalogproducerV1beta1Catalog
-> CatalogsCreate
catalogsCreate pCcPayload_ =
CatalogsCreate'
{ _ccXgafv = Nothing
, _ccUploadProtocol = Nothing
, _ccAccessToken = Nothing
, _ccUploadType = Nothing
, _ccPayload = pCcPayload_
, _ccCallback = Nothing
}
ccXgafv :: Lens' CatalogsCreate (Maybe Xgafv)
ccXgafv = lens _ccXgafv (\ s a -> s{_ccXgafv = a})
ccUploadProtocol :: Lens' CatalogsCreate (Maybe Text)
ccUploadProtocol
= lens _ccUploadProtocol
(\ s a -> s{_ccUploadProtocol = a})
ccAccessToken :: Lens' CatalogsCreate (Maybe Text)
ccAccessToken
= lens _ccAccessToken
(\ s a -> s{_ccAccessToken = a})
ccUploadType :: Lens' CatalogsCreate (Maybe Text)
ccUploadType
= lens _ccUploadType (\ s a -> s{_ccUploadType = a})
ccPayload :: Lens' CatalogsCreate GoogleCloudPrivatecatalogproducerV1beta1Catalog
ccPayload
= lens _ccPayload (\ s a -> s{_ccPayload = a})
ccCallback :: Lens' CatalogsCreate (Maybe Text)
ccCallback
= lens _ccCallback (\ s a -> s{_ccCallback = a})
instance GoogleRequest CatalogsCreate where
type Rs CatalogsCreate = GoogleLongrunningOperation
type Scopes CatalogsCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient CatalogsCreate'{..}
= go _ccXgafv _ccUploadProtocol _ccAccessToken
_ccUploadType
_ccCallback
(Just AltJSON)
_ccPayload
cloudPrivateCatalogProducerService
where go
= buildClient (Proxy :: Proxy CatalogsCreateResource)
mempty