{-# 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.Versions.Search
(
ProjectsVersionsSearchResource
, projectsVersionsSearch
, ProjectsVersionsSearch
, pvsXgafv
, pvsUploadProtocol
, pvsAccessToken
, pvsUploadType
, pvsResource
, pvsQuery
, pvsPageToken
, pvsPageSize
, pvsCallback
) where
import Network.Google.CloudPrivateCatalog.Types
import Network.Google.Prelude
type ProjectsVersionsSearchResource =
"v1beta1" :>
Capture "resource" Text :>
"versions: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]
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse
data ProjectsVersionsSearch =
ProjectsVersionsSearch'
{ _pvsXgafv :: !(Maybe Xgafv)
, _pvsUploadProtocol :: !(Maybe Text)
, _pvsAccessToken :: !(Maybe Text)
, _pvsUploadType :: !(Maybe Text)
, _pvsResource :: !Text
, _pvsQuery :: !(Maybe Text)
, _pvsPageToken :: !(Maybe Text)
, _pvsPageSize :: !(Maybe (Textual Int32))
, _pvsCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsVersionsSearch
:: Text
-> ProjectsVersionsSearch
projectsVersionsSearch pPvsResource_ =
ProjectsVersionsSearch'
{ _pvsXgafv = Nothing
, _pvsUploadProtocol = Nothing
, _pvsAccessToken = Nothing
, _pvsUploadType = Nothing
, _pvsResource = pPvsResource_
, _pvsQuery = Nothing
, _pvsPageToken = Nothing
, _pvsPageSize = Nothing
, _pvsCallback = Nothing
}
pvsXgafv :: Lens' ProjectsVersionsSearch (Maybe Xgafv)
pvsXgafv = lens _pvsXgafv (\ s a -> s{_pvsXgafv = a})
pvsUploadProtocol :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsUploadProtocol
= lens _pvsUploadProtocol
(\ s a -> s{_pvsUploadProtocol = a})
pvsAccessToken :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsAccessToken
= lens _pvsAccessToken
(\ s a -> s{_pvsAccessToken = a})
pvsUploadType :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsUploadType
= lens _pvsUploadType
(\ s a -> s{_pvsUploadType = a})
pvsResource :: Lens' ProjectsVersionsSearch Text
pvsResource
= lens _pvsResource (\ s a -> s{_pvsResource = a})
pvsQuery :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsQuery = lens _pvsQuery (\ s a -> s{_pvsQuery = a})
pvsPageToken :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsPageToken
= lens _pvsPageToken (\ s a -> s{_pvsPageToken = a})
pvsPageSize :: Lens' ProjectsVersionsSearch (Maybe Int32)
pvsPageSize
= lens _pvsPageSize (\ s a -> s{_pvsPageSize = a}) .
mapping _Coerce
pvsCallback :: Lens' ProjectsVersionsSearch (Maybe Text)
pvsCallback
= lens _pvsCallback (\ s a -> s{_pvsCallback = a})
instance GoogleRequest ProjectsVersionsSearch where
type Rs ProjectsVersionsSearch =
GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse
type Scopes ProjectsVersionsSearch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsVersionsSearch'{..}
= go _pvsResource _pvsXgafv _pvsUploadProtocol
_pvsAccessToken
_pvsUploadType
_pvsQuery
_pvsPageToken
_pvsPageSize
_pvsCallback
(Just AltJSON)
cloudPrivateCatalogService
where go
= buildClient
(Proxy :: Proxy ProjectsVersionsSearchResource)
mempty