{-# 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.CloudPrivateCatalog.Projects.Catalogs.Search
(
ProjectsCatalogsSearchResource
, projectsCatalogsSearch
, ProjectsCatalogsSearch
, pcsXgafv
, pcsUploadProtocol
, pcsAccessToken
, pcsUploadType
, pcsResource
, pcsQuery
, pcsPageToken
, pcsPageSize
, pcsCallback
) where
import Network.Google.CloudPrivateCatalog.Types
import Network.Google.Prelude
type ProjectsCatalogsSearchResource =
"v1beta1" :>
Capture "resource" Text :>
"catalogs:search" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "query" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse
data ProjectsCatalogsSearch =
ProjectsCatalogsSearch'
{ _pcsXgafv :: !(Maybe Xgafv)
, _pcsUploadProtocol :: !(Maybe Text)
, _pcsAccessToken :: !(Maybe Text)
, _pcsUploadType :: !(Maybe Text)
, _pcsResource :: !Text
, _pcsQuery :: !(Maybe Text)
, _pcsPageToken :: !(Maybe Text)
, _pcsPageSize :: !(Maybe (Textual Int32))
, _pcsCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsCatalogsSearch
:: Text
-> ProjectsCatalogsSearch
projectsCatalogsSearch pPcsResource_ =
ProjectsCatalogsSearch'
{ _pcsXgafv = Nothing
, _pcsUploadProtocol = Nothing
, _pcsAccessToken = Nothing
, _pcsUploadType = Nothing
, _pcsResource = pPcsResource_
, _pcsQuery = Nothing
, _pcsPageToken = Nothing
, _pcsPageSize = Nothing
, _pcsCallback = Nothing
}
pcsXgafv :: Lens' ProjectsCatalogsSearch (Maybe Xgafv)
pcsXgafv = lens _pcsXgafv (\ s a -> s{_pcsXgafv = a})
pcsUploadProtocol :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsUploadProtocol
= lens _pcsUploadProtocol
(\ s a -> s{_pcsUploadProtocol = a})
pcsAccessToken :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsAccessToken
= lens _pcsAccessToken
(\ s a -> s{_pcsAccessToken = a})
pcsUploadType :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsUploadType
= lens _pcsUploadType
(\ s a -> s{_pcsUploadType = a})
pcsResource :: Lens' ProjectsCatalogsSearch Text
pcsResource
= lens _pcsResource (\ s a -> s{_pcsResource = a})
pcsQuery :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsQuery = lens _pcsQuery (\ s a -> s{_pcsQuery = a})
pcsPageToken :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsPageToken
= lens _pcsPageToken (\ s a -> s{_pcsPageToken = a})
pcsPageSize :: Lens' ProjectsCatalogsSearch (Maybe Int32)
pcsPageSize
= lens _pcsPageSize (\ s a -> s{_pcsPageSize = a}) .
mapping _Coerce
pcsCallback :: Lens' ProjectsCatalogsSearch (Maybe Text)
pcsCallback
= lens _pcsCallback (\ s a -> s{_pcsCallback = a})
instance GoogleRequest ProjectsCatalogsSearch where
type Rs ProjectsCatalogsSearch =
GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse
type Scopes ProjectsCatalogsSearch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsCatalogsSearch'{..}
= go _pcsResource _pcsXgafv _pcsUploadProtocol
_pcsAccessToken
_pcsUploadType
_pcsQuery
_pcsPageToken
_pcsPageSize
_pcsCallback
(Just AltJSON)
cloudPrivateCatalogService
where go
= buildClient
(Proxy :: Proxy ProjectsCatalogsSearchResource)
mempty