diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,367 @@ +Mozilla Public License Version 2.0 +================================== + +1. Definitions +-------------- + +1.1. "Contributor" + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +1.2. "Contributor Version" + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +1.3. "Contribution" + means Covered Software of a particular Contributor. + +1.4. "Covered Software" + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +1.5. "Incompatible With Secondary Licenses" + means + + (a) that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or + + (b) that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +1.6. "Executable Form" + means any form of the work other than Source Code Form. + +1.7. "Larger Work" + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +1.8. "License" + means this document. + +1.9. "Licensable" + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +1.10. "Modifications" + means any of the following: + + (a) any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or + + (b) any new file in Source Code Form that contains any Covered + Software. + +1.11. "Patent Claims" of a Contributor + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +1.12. "Secondary License" + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +1.13. "Source Code Form" + means the form of the work preferred for making modifications. + +1.14. "You" (or "Your") + means an individual or a legal entity exercising rights under this + License. For legal entities, "You" includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, "control" means (a) the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or (b) ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + +2. License Grants and Conditions +-------------------------------- + +2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +(a) under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and + +(b) under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +(a) for any code that a Contributor has removed from Covered Software; + or + +(b) for infringements caused by: (i) Your and any other third party's + modifications of Covered Software, or (ii) the combination of its + Contributions with other software (except as part of its Contributor + Version); or + +(c) under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + +3. Responsibilities +------------------- + +3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +(a) such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +(b) You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + +4. Inability to Comply Due to Statute or Regulation +--------------------------------------------------- + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: (a) comply with +the terms of this License to the maximum extent possible; and (b) +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + +5. Termination +-------------- + +5.1. The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated (a) provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and (b) on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +5.2. If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +5.3. In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + +************************************************************************ +* * +* 6. Disclaimer of Warranty * +* ------------------------- * +* * +* Covered Software is provided under this License on an "as is" * +* basis, without warranty of any kind, either expressed, implied, or * +* statutory, including, without limitation, warranties that the * +* Covered Software is free of defects, merchantable, fit for a * +* particular purpose or non-infringing. The entire risk as to the * +* quality and performance of the Covered Software is with You. * +* Should any Covered Software prove defective in any respect, You * +* (not any Contributor) assume the cost of any necessary servicing, * +* repair, or correction. This disclaimer of warranty constitutes an * +* essential part of this License. No use of any Covered Software is * +* authorized under this License except under this disclaimer. * +* * +************************************************************************ + +************************************************************************ +* * +* 7. Limitation of Liability * +* -------------------------- * +* * +* Under no circumstances and under no legal theory, whether tort * +* (including negligence), contract, or otherwise, shall any * +* Contributor, or anyone who distributes Covered Software as * +* permitted above, be liable to You for any direct, indirect, * +* special, incidental, or consequential damages of any character * +* including, without limitation, damages for lost profits, loss of * +* goodwill, work stoppage, computer failure or malfunction, or any * +* and all other commercial damages or losses, even if such party * +* shall have been informed of the possibility of such damages. This * +* limitation of liability shall not apply to liability for death or * +* personal injury resulting from such party's negligence to the * +* extent applicable law prohibits such limitation. Some * +* jurisdictions do not allow the exclusion or limitation of * +* incidental or consequential damages, so this exclusion and * +* limitation may not apply to You. * +* * +************************************************************************ + +8. Litigation +------------- + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + +9. Miscellaneous +---------------- + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + +10. Versions of the License +--------------------------- + +10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +10.4. Distributing Source Code Form that is Incompatible With Secondary +Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +Exhibit A - Source Code Form License Notice +------------------------------------------- + + This Source Code Form is subject to the terms of the Mozilla Public + License, v. 2.0. If a copy of the MPL was not distributed with this + file, You can obtain one at http://mozilla.org/MPL/2.0/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,28 @@ +# gogol-cloudprivatecatalog + +* [Version](#version) +* [Description](#description) +* [Contribute](#contribute) +* [Licence](#licence) + + +## Version + +`0.5.0` + + +## Description + +A client library for the Google Cloud Private Catalog. + + +## Contribute + +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). + +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. + + +## Licence + +`gogol-cloudprivatecatalog` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/gen/Network/Google/CloudPrivateCatalog.hs b/gen/Network/Google/CloudPrivateCatalog.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/CloudPrivateCatalog.hs @@ -0,0 +1,148 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} + +-- | +-- Module : Network.Google.CloudPrivateCatalog +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Enable cloud users to discover enterprise catalogs and products in their +-- organizations. +-- +-- /See:/ +module Network.Google.CloudPrivateCatalog + ( + -- * Service Configuration + cloudPrivateCatalogService + + -- * OAuth Scopes + , cloudPlatformScope + + -- * API Declaration + , CloudPrivateCatalogAPI + + -- * Resources + + -- ** cloudprivatecatalog.folders.catalogs.search + , module Network.Google.Resource.CloudPrivateCatalog.Folders.Catalogs.Search + + -- ** cloudprivatecatalog.folders.products.search + , module Network.Google.Resource.CloudPrivateCatalog.Folders.Products.Search + + -- ** cloudprivatecatalog.folders.versions.search + , module Network.Google.Resource.CloudPrivateCatalog.Folders.Versions.Search + + -- ** cloudprivatecatalog.organizations.catalogs.search + , module Network.Google.Resource.CloudPrivateCatalog.Organizations.Catalogs.Search + + -- ** cloudprivatecatalog.organizations.products.search + , module Network.Google.Resource.CloudPrivateCatalog.Organizations.Products.Search + + -- ** cloudprivatecatalog.organizations.versions.search + , module Network.Google.Resource.CloudPrivateCatalog.Organizations.Versions.Search + + -- ** cloudprivatecatalog.projects.catalogs.search + , module Network.Google.Resource.CloudPrivateCatalog.Projects.Catalogs.Search + + -- ** cloudprivatecatalog.projects.products.search + , module Network.Google.Resource.CloudPrivateCatalog.Projects.Products.Search + + -- ** cloudprivatecatalog.projects.versions.search + , module Network.Google.Resource.CloudPrivateCatalog.Projects.Versions.Search + + -- * Types + + -- ** GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , googleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , gcpvscrNextPageToken + , gcpvscrCatalogs + + -- ** GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , googleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , gcpvpdmAddtional + + -- ** GoogleCloudPrivatecatalogV1beta1Catalog + , GoogleCloudPrivatecatalogV1beta1Catalog + , googleCloudPrivatecatalogV1beta1Catalog + , gcpvcUpdateTime + , gcpvcName + , gcpvcDisplayName + , gcpvcDescription + , gcpvcCreateTime + + -- ** GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + , GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + , googleCloudPrivatecatalogV1beta1SearchProductsResponse + , gcpvsprNextPageToken + , gcpvsprProducts + + -- ** Xgafv + , Xgafv (..) + + -- ** GoogleCloudPrivatecatalogV1beta1VersionAsset + , GoogleCloudPrivatecatalogV1beta1VersionAsset + , googleCloudPrivatecatalogV1beta1VersionAsset + , gcpvvaAddtional + + -- ** GoogleCloudPrivatecatalogV1beta1Version + , GoogleCloudPrivatecatalogV1beta1Version + , googleCloudPrivatecatalogV1beta1Version + , gcpvvAsset + , gcpvvUpdateTime + , gcpvvName + , gcpvvDescription + , gcpvvCreateTime + + -- ** GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + , GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + , googleCloudPrivatecatalogV1beta1SearchVersionsResponse + , gcpvsvrNextPageToken + , gcpvsvrVersions + + -- ** GoogleCloudPrivatecatalogV1beta1Product + , GoogleCloudPrivatecatalogV1beta1Product + , googleCloudPrivatecatalogV1beta1Product + , gcpvpIconURI + , gcpvpUpdateTime + , gcpvpDisplayMetadata + , gcpvpName + , gcpvpAssetType + , gcpvpCreateTime + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude +import Network.Google.Resource.CloudPrivateCatalog.Folders.Catalogs.Search +import Network.Google.Resource.CloudPrivateCatalog.Folders.Products.Search +import Network.Google.Resource.CloudPrivateCatalog.Folders.Versions.Search +import Network.Google.Resource.CloudPrivateCatalog.Organizations.Catalogs.Search +import Network.Google.Resource.CloudPrivateCatalog.Organizations.Products.Search +import Network.Google.Resource.CloudPrivateCatalog.Organizations.Versions.Search +import Network.Google.Resource.CloudPrivateCatalog.Projects.Catalogs.Search +import Network.Google.Resource.CloudPrivateCatalog.Projects.Products.Search +import Network.Google.Resource.CloudPrivateCatalog.Projects.Versions.Search + +{- $resources +TODO +-} + +-- | Represents the entirety of the methods and resources available for the Cloud Private Catalog API service. +type CloudPrivateCatalogAPI = + FoldersCatalogsSearchResource :<|> + FoldersVersionsSearchResource + :<|> FoldersProductsSearchResource + :<|> OrganizationsCatalogsSearchResource + :<|> OrganizationsVersionsSearchResource + :<|> OrganizationsProductsSearchResource + :<|> ProjectsCatalogsSearchResource + :<|> ProjectsVersionsSearchResource + :<|> ProjectsProductsSearchResource diff --git a/gen/Network/Google/CloudPrivateCatalog/Types.hs b/gen/Network/Google/CloudPrivateCatalog/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/CloudPrivateCatalog/Types.hs @@ -0,0 +1,98 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.CloudPrivateCatalog.Types +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.CloudPrivateCatalog.Types + ( + -- * Service Configuration + cloudPrivateCatalogService + + -- * OAuth Scopes + , cloudPlatformScope + + -- * GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , googleCloudPrivatecatalogV1beta1SearchCatalogsResponse + , gcpvscrNextPageToken + , gcpvscrCatalogs + + -- * GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , googleCloudPrivatecatalogV1beta1ProductDisplayMetadata + , gcpvpdmAddtional + + -- * GoogleCloudPrivatecatalogV1beta1Catalog + , GoogleCloudPrivatecatalogV1beta1Catalog + , googleCloudPrivatecatalogV1beta1Catalog + , gcpvcUpdateTime + , gcpvcName + , gcpvcDisplayName + , gcpvcDescription + , gcpvcCreateTime + + -- * GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + , GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + , googleCloudPrivatecatalogV1beta1SearchProductsResponse + , gcpvsprNextPageToken + , gcpvsprProducts + + -- * Xgafv + , Xgafv (..) + + -- * GoogleCloudPrivatecatalogV1beta1VersionAsset + , GoogleCloudPrivatecatalogV1beta1VersionAsset + , googleCloudPrivatecatalogV1beta1VersionAsset + , gcpvvaAddtional + + -- * GoogleCloudPrivatecatalogV1beta1Version + , GoogleCloudPrivatecatalogV1beta1Version + , googleCloudPrivatecatalogV1beta1Version + , gcpvvAsset + , gcpvvUpdateTime + , gcpvvName + , gcpvvDescription + , gcpvvCreateTime + + -- * GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + , GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + , googleCloudPrivatecatalogV1beta1SearchVersionsResponse + , gcpvsvrNextPageToken + , gcpvsvrVersions + + -- * GoogleCloudPrivatecatalogV1beta1Product + , GoogleCloudPrivatecatalogV1beta1Product + , googleCloudPrivatecatalogV1beta1Product + , gcpvpIconURI + , gcpvpUpdateTime + , gcpvpDisplayMetadata + , gcpvpName + , gcpvpAssetType + , gcpvpCreateTime + ) where + +import Network.Google.CloudPrivateCatalog.Types.Product +import Network.Google.CloudPrivateCatalog.Types.Sum +import Network.Google.Prelude + +-- | Default request referring to version 'v1beta1' of the Cloud Private Catalog API. This contains the host and root path used as a starting point for constructing service requests. +cloudPrivateCatalogService :: ServiceConfig +cloudPrivateCatalogService + = defaultService + (ServiceId "cloudprivatecatalog:v1beta1") + "cloudprivatecatalog.googleapis.com" + +-- | View and manage your data across Google Cloud Platform services +cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] +cloudPlatformScope = Proxy diff --git a/gen/Network/Google/CloudPrivateCatalog/Types/Product.hs b/gen/Network/Google/CloudPrivateCatalog/Types/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/CloudPrivateCatalog/Types/Product.hs @@ -0,0 +1,662 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} + +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.CloudPrivateCatalog.Types.Product +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.CloudPrivateCatalog.Types.Product where + +import Network.Google.CloudPrivateCatalog.Types.Sum +import Network.Google.Prelude + +-- | Response message for PrivateCatalog.SearchCatalogs. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1SearchCatalogsResponse' smart constructor. +data GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse = + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse' + { _gcpvscrNextPageToken :: !(Maybe Text) + , _gcpvscrCatalogs :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Catalog]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvscrNextPageToken' +-- +-- * 'gcpvscrCatalogs' +googleCloudPrivatecatalogV1beta1SearchCatalogsResponse + :: GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse +googleCloudPrivatecatalogV1beta1SearchCatalogsResponse = + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse' + {_gcpvscrNextPageToken = Nothing, _gcpvscrCatalogs = Nothing} + + +-- | A pagination token returned from a previous call to SearchCatalogs that +-- indicates from where listing should continue. This field is optional. +gcpvscrNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse (Maybe Text) +gcpvscrNextPageToken + = lens _gcpvscrNextPageToken + (\ s a -> s{_gcpvscrNextPageToken = a}) + +-- | The \`Catalog\`s computed from the resource context. +gcpvscrCatalogs :: Lens' GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse [GoogleCloudPrivatecatalogV1beta1Catalog] +gcpvscrCatalogs + = lens _gcpvscrCatalogs + (\ s a -> s{_gcpvscrCatalogs = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse" + (\ o -> + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse' + <$> + (o .:? "nextPageToken") <*> + (o .:? "catalogs" .!= mempty)) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + where + toJSON + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _gcpvscrNextPageToken, + ("catalogs" .=) <$> _gcpvscrCatalogs]) + +-- | Output only. The display metadata to describe the product. The JSON +-- schema of the metadata differs by Product.asset_type. When the type is +-- \`google.deploymentmanager.Template\`, the schema is as follows: \`\`\` +-- \"$schema\": http:\/\/json-schema.org\/draft-04\/schema# type: object +-- properties: name: type: string minLength: 1 maxLength: 64 description: +-- type: string minLength: 1 maxLength: 2048 tagline: type: string +-- minLength: 1 maxLength: 100 support_info: type: string minLength: 1 +-- maxLength: 2048 creator: type: string minLength: 1 maxLength: 100 +-- documentation: type: array items: type: object properties: url: type: +-- string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- title: type: string minLength: 1 maxLength: 64 description: type: string +-- minLength: 1 maxLength: 2048 required: - name - description +-- additionalProperties: false \`\`\` When the asset type is +-- \`google.cloudprivatecatalog.ListingOnly\`, the schema is as follows: +-- \`\`\` \"$schema\": http:\/\/json-schema.org\/draft-04\/schema# type: +-- object properties: name: type: string minLength: 1 maxLength: 64 +-- description: type: string minLength: 1 maxLength: 2048 tagline: type: +-- string minLength: 1 maxLength: 100 support_info: type: string minLength: +-- 1 maxLength: 2048 creator: type: string minLength: 1 maxLength: 100 +-- documentation: type: array items: type: object properties: url: type: +-- string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- title: type: string minLength: 1 maxLength: 64 description: type: string +-- minLength: 1 maxLength: 2048 signup_url: type: string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- required: - name - description - signup_url additionalProperties: false +-- \`\`\` +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1ProductDisplayMetadata' smart constructor. +newtype GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata = + GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata' + { _gcpvpdmAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvpdmAddtional' +googleCloudPrivatecatalogV1beta1ProductDisplayMetadata + :: HashMap Text JSONValue -- ^ 'gcpvpdmAddtional' + -> GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata +googleCloudPrivatecatalogV1beta1ProductDisplayMetadata pGcpvpdmAddtional_ = + GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata' + {_gcpvpdmAddtional = _Coerce # pGcpvpdmAddtional_} + + +-- | Properties of the object. +gcpvpdmAddtional :: Lens' GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata (HashMap Text JSONValue) +gcpvpdmAddtional + = lens _gcpvpdmAddtional + (\ s a -> s{_gcpvpdmAddtional = a}) + . _Coerce + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata" + (\ o -> + GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata' + <$> (parseJSONObject o)) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata + where + toJSON = toJSON . _gcpvpdmAddtional + +-- | The readonly representation of a catalog computed with a given resource +-- context. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1Catalog' smart constructor. +data GoogleCloudPrivatecatalogV1beta1Catalog = + GoogleCloudPrivatecatalogV1beta1Catalog' + { _gcpvcUpdateTime :: !(Maybe DateTime') + , _gcpvcName :: !(Maybe Text) + , _gcpvcDisplayName :: !(Maybe Text) + , _gcpvcDescription :: !(Maybe Text) + , _gcpvcCreateTime :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1Catalog' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvcUpdateTime' +-- +-- * 'gcpvcName' +-- +-- * 'gcpvcDisplayName' +-- +-- * 'gcpvcDescription' +-- +-- * 'gcpvcCreateTime' +googleCloudPrivatecatalogV1beta1Catalog + :: GoogleCloudPrivatecatalogV1beta1Catalog +googleCloudPrivatecatalogV1beta1Catalog = + GoogleCloudPrivatecatalogV1beta1Catalog' + { _gcpvcUpdateTime = Nothing + , _gcpvcName = Nothing + , _gcpvcDisplayName = Nothing + , _gcpvcDescription = Nothing + , _gcpvcCreateTime = Nothing + } + + +-- | Output only. The time when the catalog was last updated. +gcpvcUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe UTCTime) +gcpvcUpdateTime + = lens _gcpvcUpdateTime + (\ s a -> s{_gcpvcUpdateTime = a}) + . mapping _DateTime + +-- | Output only. The resource name of the target catalog, in the format of +-- \`catalogs\/{catalog_id}\'. +gcpvcName :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text) +gcpvcName + = lens _gcpvcName (\ s a -> s{_gcpvcName = a}) + +-- | Output only. The descriptive name of the catalog as it appears in UIs. +gcpvcDisplayName :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text) +gcpvcDisplayName + = lens _gcpvcDisplayName + (\ s a -> s{_gcpvcDisplayName = a}) + +-- | Output only. The description of the catalog. +gcpvcDescription :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe Text) +gcpvcDescription + = lens _gcpvcDescription + (\ s a -> s{_gcpvcDescription = a}) + +-- | Output only. The time when the catalog was created. +gcpvcCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Catalog (Maybe UTCTime) +gcpvcCreateTime + = lens _gcpvcCreateTime + (\ s a -> s{_gcpvcCreateTime = a}) + . mapping _DateTime + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1Catalog + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1Catalog" + (\ o -> + GoogleCloudPrivatecatalogV1beta1Catalog' <$> + (o .:? "updateTime") <*> (o .:? "name") <*> + (o .:? "displayName") + <*> (o .:? "description") + <*> (o .:? "createTime")) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1Catalog + where + toJSON GoogleCloudPrivatecatalogV1beta1Catalog'{..} + = object + (catMaybes + [("updateTime" .=) <$> _gcpvcUpdateTime, + ("name" .=) <$> _gcpvcName, + ("displayName" .=) <$> _gcpvcDisplayName, + ("description" .=) <$> _gcpvcDescription, + ("createTime" .=) <$> _gcpvcCreateTime]) + +-- | Response message for PrivateCatalog.SearchProducts. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1SearchProductsResponse' smart constructor. +data GoogleCloudPrivatecatalogV1beta1SearchProductsResponse = + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse' + { _gcpvsprNextPageToken :: !(Maybe Text) + , _gcpvsprProducts :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Product]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1SearchProductsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvsprNextPageToken' +-- +-- * 'gcpvsprProducts' +googleCloudPrivatecatalogV1beta1SearchProductsResponse + :: GoogleCloudPrivatecatalogV1beta1SearchProductsResponse +googleCloudPrivatecatalogV1beta1SearchProductsResponse = + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse' + {_gcpvsprNextPageToken = Nothing, _gcpvsprProducts = Nothing} + + +-- | A pagination token returned from a previous call to SearchProducts that +-- indicates from where listing should continue. This field is optional. +gcpvsprNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchProductsResponse (Maybe Text) +gcpvsprNextPageToken + = lens _gcpvsprNextPageToken + (\ s a -> s{_gcpvsprNextPageToken = a}) + +-- | The \`Product\` resources computed from the resource context. +gcpvsprProducts :: Lens' GoogleCloudPrivatecatalogV1beta1SearchProductsResponse [GoogleCloudPrivatecatalogV1beta1Product] +gcpvsprProducts + = lens _gcpvsprProducts + (\ s a -> s{_gcpvsprProducts = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1SearchProductsResponse" + (\ o -> + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse' + <$> + (o .:? "nextPageToken") <*> + (o .:? "products" .!= mempty)) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + where + toJSON + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _gcpvsprNextPageToken, + ("products" .=) <$> _gcpvsprProducts]) + +-- | Output only. The asset which has been validated and is ready to be +-- provisioned. See +-- google.cloud.privatecatalogproducer.v1beta.Version.asset for details. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1VersionAsset' smart constructor. +newtype GoogleCloudPrivatecatalogV1beta1VersionAsset = + GoogleCloudPrivatecatalogV1beta1VersionAsset' + { _gcpvvaAddtional :: HashMap Text JSONValue + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1VersionAsset' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvvaAddtional' +googleCloudPrivatecatalogV1beta1VersionAsset + :: HashMap Text JSONValue -- ^ 'gcpvvaAddtional' + -> GoogleCloudPrivatecatalogV1beta1VersionAsset +googleCloudPrivatecatalogV1beta1VersionAsset pGcpvvaAddtional_ = + GoogleCloudPrivatecatalogV1beta1VersionAsset' + {_gcpvvaAddtional = _Coerce # pGcpvvaAddtional_} + + +-- | Properties of the object. +gcpvvaAddtional :: Lens' GoogleCloudPrivatecatalogV1beta1VersionAsset (HashMap Text JSONValue) +gcpvvaAddtional + = lens _gcpvvaAddtional + (\ s a -> s{_gcpvvaAddtional = a}) + . _Coerce + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1VersionAsset + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1VersionAsset" + (\ o -> + GoogleCloudPrivatecatalogV1beta1VersionAsset' <$> + (parseJSONObject o)) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1VersionAsset + where + toJSON = toJSON . _gcpvvaAddtional + +-- | The consumer representation of a version which is a child resource under +-- a \`Product\` with asset data. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1Version' smart constructor. +data GoogleCloudPrivatecatalogV1beta1Version = + GoogleCloudPrivatecatalogV1beta1Version' + { _gcpvvAsset :: !(Maybe GoogleCloudPrivatecatalogV1beta1VersionAsset) + , _gcpvvUpdateTime :: !(Maybe DateTime') + , _gcpvvName :: !(Maybe Text) + , _gcpvvDescription :: !(Maybe Text) + , _gcpvvCreateTime :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1Version' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvvAsset' +-- +-- * 'gcpvvUpdateTime' +-- +-- * 'gcpvvName' +-- +-- * 'gcpvvDescription' +-- +-- * 'gcpvvCreateTime' +googleCloudPrivatecatalogV1beta1Version + :: GoogleCloudPrivatecatalogV1beta1Version +googleCloudPrivatecatalogV1beta1Version = + GoogleCloudPrivatecatalogV1beta1Version' + { _gcpvvAsset = Nothing + , _gcpvvUpdateTime = Nothing + , _gcpvvName = Nothing + , _gcpvvDescription = Nothing + , _gcpvvCreateTime = Nothing + } + + +-- | Output only. The asset which has been validated and is ready to be +-- provisioned. See +-- google.cloud.privatecatalogproducer.v1beta.Version.asset for details. +gcpvvAsset :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe GoogleCloudPrivatecatalogV1beta1VersionAsset) +gcpvvAsset + = lens _gcpvvAsset (\ s a -> s{_gcpvvAsset = a}) + +-- | Output only. The time when the version was last updated. +gcpvvUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe UTCTime) +gcpvvUpdateTime + = lens _gcpvvUpdateTime + (\ s a -> s{_gcpvvUpdateTime = a}) + . mapping _DateTime + +-- | Output only. The resource name of the version, in the format +-- \`catalogs\/{catalog_id}\/products\/{product_id}\/versions\/a-z*[a-z0-9]\'. +-- A unique identifier for the version under a product. +gcpvvName :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe Text) +gcpvvName + = lens _gcpvvName (\ s a -> s{_gcpvvName = a}) + +-- | Output only. The user-supplied description of the version. Maximum of +-- 256 characters. +gcpvvDescription :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe Text) +gcpvvDescription + = lens _gcpvvDescription + (\ s a -> s{_gcpvvDescription = a}) + +-- | Output only. The time when the version was created. +gcpvvCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Version (Maybe UTCTime) +gcpvvCreateTime + = lens _gcpvvCreateTime + (\ s a -> s{_gcpvvCreateTime = a}) + . mapping _DateTime + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1Version + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1Version" + (\ o -> + GoogleCloudPrivatecatalogV1beta1Version' <$> + (o .:? "asset") <*> (o .:? "updateTime") <*> + (o .:? "name") + <*> (o .:? "description") + <*> (o .:? "createTime")) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1Version + where + toJSON GoogleCloudPrivatecatalogV1beta1Version'{..} + = object + (catMaybes + [("asset" .=) <$> _gcpvvAsset, + ("updateTime" .=) <$> _gcpvvUpdateTime, + ("name" .=) <$> _gcpvvName, + ("description" .=) <$> _gcpvvDescription, + ("createTime" .=) <$> _gcpvvCreateTime]) + +-- | Response message for PrivateCatalog.SearchVersions. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1SearchVersionsResponse' smart constructor. +data GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse = + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse' + { _gcpvsvrNextPageToken :: !(Maybe Text) + , _gcpvsvrVersions :: !(Maybe [GoogleCloudPrivatecatalogV1beta1Version]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvsvrNextPageToken' +-- +-- * 'gcpvsvrVersions' +googleCloudPrivatecatalogV1beta1SearchVersionsResponse + :: GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse +googleCloudPrivatecatalogV1beta1SearchVersionsResponse = + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse' + {_gcpvsvrNextPageToken = Nothing, _gcpvsvrVersions = Nothing} + + +-- | A pagination token returned from a previous call to SearchVersions that +-- indicates from where the listing should continue. This field is +-- optional. +gcpvsvrNextPageToken :: Lens' GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse (Maybe Text) +gcpvsvrNextPageToken + = lens _gcpvsvrNextPageToken + (\ s a -> s{_gcpvsvrNextPageToken = a}) + +-- | The \`Version\` resources computed from the resource context. +gcpvsvrVersions :: Lens' GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse [GoogleCloudPrivatecatalogV1beta1Version] +gcpvsvrVersions + = lens _gcpvsvrVersions + (\ s a -> s{_gcpvsvrVersions = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse" + (\ o -> + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse' + <$> + (o .:? "nextPageToken") <*> + (o .:? "versions" .!= mempty)) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + where + toJSON + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _gcpvsvrNextPageToken, + ("versions" .=) <$> _gcpvsvrVersions]) + +-- | The readonly representation of a product computed with a given resource +-- context. +-- +-- /See:/ 'googleCloudPrivatecatalogV1beta1Product' smart constructor. +data GoogleCloudPrivatecatalogV1beta1Product = + GoogleCloudPrivatecatalogV1beta1Product' + { _gcpvpIconURI :: !(Maybe Text) + , _gcpvpUpdateTime :: !(Maybe DateTime') + , _gcpvpDisplayMetadata :: !(Maybe GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata) + , _gcpvpName :: !(Maybe Text) + , _gcpvpAssetType :: !(Maybe Text) + , _gcpvpCreateTime :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleCloudPrivatecatalogV1beta1Product' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gcpvpIconURI' +-- +-- * 'gcpvpUpdateTime' +-- +-- * 'gcpvpDisplayMetadata' +-- +-- * 'gcpvpName' +-- +-- * 'gcpvpAssetType' +-- +-- * 'gcpvpCreateTime' +googleCloudPrivatecatalogV1beta1Product + :: GoogleCloudPrivatecatalogV1beta1Product +googleCloudPrivatecatalogV1beta1Product = + GoogleCloudPrivatecatalogV1beta1Product' + { _gcpvpIconURI = Nothing + , _gcpvpUpdateTime = Nothing + , _gcpvpDisplayMetadata = Nothing + , _gcpvpName = Nothing + , _gcpvpAssetType = Nothing + , _gcpvpCreateTime = Nothing + } + + +-- | Output only. The icon URI of the product. +gcpvpIconURI :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text) +gcpvpIconURI + = lens _gcpvpIconURI (\ s a -> s{_gcpvpIconURI = a}) + +-- | Output only. The time when the product was last updated. +gcpvpUpdateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe UTCTime) +gcpvpUpdateTime + = lens _gcpvpUpdateTime + (\ s a -> s{_gcpvpUpdateTime = a}) + . mapping _DateTime + +-- | Output only. The display metadata to describe the product. The JSON +-- schema of the metadata differs by Product.asset_type. When the type is +-- \`google.deploymentmanager.Template\`, the schema is as follows: \`\`\` +-- \"$schema\": http:\/\/json-schema.org\/draft-04\/schema# type: object +-- properties: name: type: string minLength: 1 maxLength: 64 description: +-- type: string minLength: 1 maxLength: 2048 tagline: type: string +-- minLength: 1 maxLength: 100 support_info: type: string minLength: 1 +-- maxLength: 2048 creator: type: string minLength: 1 maxLength: 100 +-- documentation: type: array items: type: object properties: url: type: +-- string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- title: type: string minLength: 1 maxLength: 64 description: type: string +-- minLength: 1 maxLength: 2048 required: - name - description +-- additionalProperties: false \`\`\` When the asset type is +-- \`google.cloudprivatecatalog.ListingOnly\`, the schema is as follows: +-- \`\`\` \"$schema\": http:\/\/json-schema.org\/draft-04\/schema# type: +-- object properties: name: type: string minLength: 1 maxLength: 64 +-- description: type: string minLength: 1 maxLength: 2048 tagline: type: +-- string minLength: 1 maxLength: 100 support_info: type: string minLength: +-- 1 maxLength: 2048 creator: type: string minLength: 1 maxLength: 100 +-- documentation: type: array items: type: object properties: url: type: +-- string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- title: type: string minLength: 1 maxLength: 64 description: type: string +-- minLength: 1 maxLength: 2048 signup_url: type: string pattern: +-- \"^(https?):\/\/[-a-zA-Z0-9+&\'#\/%?=~_|!:,.;]*[-a-zA-Z0-9+&\'#\/%=~_|]\" +-- required: - name - description - signup_url additionalProperties: false +-- \`\`\` +gcpvpDisplayMetadata :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe GoogleCloudPrivatecatalogV1beta1ProductDisplayMetadata) +gcpvpDisplayMetadata + = lens _gcpvpDisplayMetadata + (\ s a -> s{_gcpvpDisplayMetadata = a}) + +-- | Output only. The resource name of the target product, in the format of +-- \`products\/a-z*[a-z0-9]\'. A unique identifier for the product under a +-- catalog. +gcpvpName :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text) +gcpvpName + = lens _gcpvpName (\ s a -> s{_gcpvpName = a}) + +-- | Output only. The type of the product asset. It can be one of the +-- following values: * \`google.deploymentmanager.Template\` * +-- \`google.cloudprivatecatalog.ListingOnly\` +gcpvpAssetType :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe Text) +gcpvpAssetType + = lens _gcpvpAssetType + (\ s a -> s{_gcpvpAssetType = a}) + +-- | Output only. The time when the product was created. +gcpvpCreateTime :: Lens' GoogleCloudPrivatecatalogV1beta1Product (Maybe UTCTime) +gcpvpCreateTime + = lens _gcpvpCreateTime + (\ s a -> s{_gcpvpCreateTime = a}) + . mapping _DateTime + +instance FromJSON + GoogleCloudPrivatecatalogV1beta1Product + where + parseJSON + = withObject + "GoogleCloudPrivatecatalogV1beta1Product" + (\ o -> + GoogleCloudPrivatecatalogV1beta1Product' <$> + (o .:? "iconUri") <*> (o .:? "updateTime") <*> + (o .:? "displayMetadata") + <*> (o .:? "name") + <*> (o .:? "assetType") + <*> (o .:? "createTime")) + +instance ToJSON + GoogleCloudPrivatecatalogV1beta1Product + where + toJSON GoogleCloudPrivatecatalogV1beta1Product'{..} + = object + (catMaybes + [("iconUri" .=) <$> _gcpvpIconURI, + ("updateTime" .=) <$> _gcpvpUpdateTime, + ("displayMetadata" .=) <$> _gcpvpDisplayMetadata, + ("name" .=) <$> _gcpvpName, + ("assetType" .=) <$> _gcpvpAssetType, + ("createTime" .=) <$> _gcpvpCreateTime]) diff --git a/gen/Network/Google/CloudPrivateCatalog/Types/Sum.hs b/gen/Network/Google/CloudPrivateCatalog/Types/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/CloudPrivateCatalog/Types/Sum.hs @@ -0,0 +1,48 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.CloudPrivateCatalog.Types.Sum +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.CloudPrivateCatalog.Types.Sum where + +import Network.Google.Prelude hiding (Bytes) + +-- | V1 error format. +data Xgafv + = X1 + -- ^ @1@ + -- v1 error format + | X2 + -- ^ @2@ + -- v2 error format + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable Xgafv + +instance FromHttpApiData Xgafv where + parseQueryParam = \case + "1" -> Right X1 + "2" -> Right X2 + x -> Left ("Unable to parse Xgafv from: " <> x) + +instance ToHttpApiData Xgafv where + toQueryParam = \case + X1 -> "1" + X2 -> "2" + +instance FromJSON Xgafv where + parseJSON = parseJSONText "Xgafv" + +instance ToJSON Xgafv where + toJSON = toJSONText diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Catalogs/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Catalogs/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Catalogs/Search.hs @@ -0,0 +1,196 @@ +{-# 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.Folders.Catalogs.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.folders.catalogs.search@. +module Network.Google.Resource.CloudPrivateCatalog.Folders.Catalogs.Search + ( + -- * REST Resource + FoldersCatalogsSearchResource + + -- * Creating a Request + , foldersCatalogsSearch + , FoldersCatalogsSearch + + -- * Request Lenses + , fcsXgafv + , fcsUploadProtocol + , fcsAccessToken + , fcsUploadType + , fcsResource + , fcsQuery + , fcsPageToken + , fcsPageSize + , fcsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.folders.catalogs.search@ method which the +-- 'FoldersCatalogsSearch' request conforms to. +type FoldersCatalogsSearchResource = + "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 + +-- | Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'foldersCatalogsSearch' smart constructor. +data FoldersCatalogsSearch = + FoldersCatalogsSearch' + { _fcsXgafv :: !(Maybe Xgafv) + , _fcsUploadProtocol :: !(Maybe Text) + , _fcsAccessToken :: !(Maybe Text) + , _fcsUploadType :: !(Maybe Text) + , _fcsResource :: !Text + , _fcsQuery :: !(Maybe Text) + , _fcsPageToken :: !(Maybe Text) + , _fcsPageSize :: !(Maybe (Textual Int32)) + , _fcsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FoldersCatalogsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fcsXgafv' +-- +-- * 'fcsUploadProtocol' +-- +-- * 'fcsAccessToken' +-- +-- * 'fcsUploadType' +-- +-- * 'fcsResource' +-- +-- * 'fcsQuery' +-- +-- * 'fcsPageToken' +-- +-- * 'fcsPageSize' +-- +-- * 'fcsCallback' +foldersCatalogsSearch + :: Text -- ^ 'fcsResource' + -> FoldersCatalogsSearch +foldersCatalogsSearch pFcsResource_ = + FoldersCatalogsSearch' + { _fcsXgafv = Nothing + , _fcsUploadProtocol = Nothing + , _fcsAccessToken = Nothing + , _fcsUploadType = Nothing + , _fcsResource = pFcsResource_ + , _fcsQuery = Nothing + , _fcsPageToken = Nothing + , _fcsPageSize = Nothing + , _fcsCallback = Nothing + } + + +-- | V1 error format. +fcsXgafv :: Lens' FoldersCatalogsSearch (Maybe Xgafv) +fcsXgafv = lens _fcsXgafv (\ s a -> s{_fcsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +fcsUploadProtocol :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsUploadProtocol + = lens _fcsUploadProtocol + (\ s a -> s{_fcsUploadProtocol = a}) + +-- | OAuth access token. +fcsAccessToken :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsAccessToken + = lens _fcsAccessToken + (\ s a -> s{_fcsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +fcsUploadType :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsUploadType + = lens _fcsUploadType + (\ s a -> s{_fcsUploadType = a}) + +-- | Required. The name of the resource context. It can be in following +-- formats: * \`projects\/{project_id}\` * \`folders\/{folder_id}\` * +-- \`organizations\/{organization_id}\` +fcsResource :: Lens' FoldersCatalogsSearch Text +fcsResource + = lens _fcsResource (\ s a -> s{_fcsResource = a}) + +-- | The query to filter the catalogs. The supported queries are: * Get a +-- single catalog: \`name=catalogs\/{catalog_id}\` +fcsQuery :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsQuery = lens _fcsQuery (\ s a -> s{_fcsQuery = a}) + +-- | A pagination token returned from a previous call to SearchCatalogs that +-- indicates where this listing should continue from. This field is +-- optional. +fcsPageToken :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsPageToken + = lens _fcsPageToken (\ s a -> s{_fcsPageToken = a}) + +-- | The maximum number of entries that are requested. +fcsPageSize :: Lens' FoldersCatalogsSearch (Maybe Int32) +fcsPageSize + = lens _fcsPageSize (\ s a -> s{_fcsPageSize = a}) . + mapping _Coerce + +-- | JSONP +fcsCallback :: Lens' FoldersCatalogsSearch (Maybe Text) +fcsCallback + = lens _fcsCallback (\ s a -> s{_fcsCallback = a}) + +instance GoogleRequest FoldersCatalogsSearch where + type Rs FoldersCatalogsSearch = + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + type Scopes FoldersCatalogsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient FoldersCatalogsSearch'{..} + = go _fcsResource _fcsXgafv _fcsUploadProtocol + _fcsAccessToken + _fcsUploadType + _fcsQuery + _fcsPageToken + _fcsPageSize + _fcsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy FoldersCatalogsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Products/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Products/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Products/Search.hs @@ -0,0 +1,197 @@ +{-# 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.Folders.Products.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.folders.products.search@. +module Network.Google.Resource.CloudPrivateCatalog.Folders.Products.Search + ( + -- * REST Resource + FoldersProductsSearchResource + + -- * Creating a Request + , foldersProductsSearch + , FoldersProductsSearch + + -- * Request Lenses + , fpsXgafv + , fpsUploadProtocol + , fpsAccessToken + , fpsUploadType + , fpsResource + , fpsQuery + , fpsPageToken + , fpsPageSize + , fpsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.folders.products.search@ method which the +-- 'FoldersProductsSearch' request conforms to. +type FoldersProductsSearchResource = + "v1beta1" :> + Capture "resource" Text :> + "products: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] + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + +-- | Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'foldersProductsSearch' smart constructor. +data FoldersProductsSearch = + FoldersProductsSearch' + { _fpsXgafv :: !(Maybe Xgafv) + , _fpsUploadProtocol :: !(Maybe Text) + , _fpsAccessToken :: !(Maybe Text) + , _fpsUploadType :: !(Maybe Text) + , _fpsResource :: !Text + , _fpsQuery :: !(Maybe Text) + , _fpsPageToken :: !(Maybe Text) + , _fpsPageSize :: !(Maybe (Textual Int32)) + , _fpsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FoldersProductsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fpsXgafv' +-- +-- * 'fpsUploadProtocol' +-- +-- * 'fpsAccessToken' +-- +-- * 'fpsUploadType' +-- +-- * 'fpsResource' +-- +-- * 'fpsQuery' +-- +-- * 'fpsPageToken' +-- +-- * 'fpsPageSize' +-- +-- * 'fpsCallback' +foldersProductsSearch + :: Text -- ^ 'fpsResource' + -> FoldersProductsSearch +foldersProductsSearch pFpsResource_ = + FoldersProductsSearch' + { _fpsXgafv = Nothing + , _fpsUploadProtocol = Nothing + , _fpsAccessToken = Nothing + , _fpsUploadType = Nothing + , _fpsResource = pFpsResource_ + , _fpsQuery = Nothing + , _fpsPageToken = Nothing + , _fpsPageSize = Nothing + , _fpsCallback = Nothing + } + + +-- | V1 error format. +fpsXgafv :: Lens' FoldersProductsSearch (Maybe Xgafv) +fpsXgafv = lens _fpsXgafv (\ s a -> s{_fpsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +fpsUploadProtocol :: Lens' FoldersProductsSearch (Maybe Text) +fpsUploadProtocol + = lens _fpsUploadProtocol + (\ s a -> s{_fpsUploadProtocol = a}) + +-- | OAuth access token. +fpsAccessToken :: Lens' FoldersProductsSearch (Maybe Text) +fpsAccessToken + = lens _fpsAccessToken + (\ s a -> s{_fpsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +fpsUploadType :: Lens' FoldersProductsSearch (Maybe Text) +fpsUploadType + = lens _fpsUploadType + (\ s a -> s{_fpsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +fpsResource :: Lens' FoldersProductsSearch Text +fpsResource + = lens _fpsResource (\ s a -> s{_fpsResource = a}) + +-- | The query to filter the products. The supported queries are: * List +-- products of all catalogs: empty * List products under a catalog: +-- \`parent=catalogs\/{catalog_id}\` * Get a product by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\` +fpsQuery :: Lens' FoldersProductsSearch (Maybe Text) +fpsQuery = lens _fpsQuery (\ s a -> s{_fpsQuery = a}) + +-- | A pagination token returned from a previous call to SearchProducts that +-- indicates where this listing should continue from. This field is +-- optional. +fpsPageToken :: Lens' FoldersProductsSearch (Maybe Text) +fpsPageToken + = lens _fpsPageToken (\ s a -> s{_fpsPageToken = a}) + +-- | The maximum number of entries that are requested. +fpsPageSize :: Lens' FoldersProductsSearch (Maybe Int32) +fpsPageSize + = lens _fpsPageSize (\ s a -> s{_fpsPageSize = a}) . + mapping _Coerce + +-- | JSONP +fpsCallback :: Lens' FoldersProductsSearch (Maybe Text) +fpsCallback + = lens _fpsCallback (\ s a -> s{_fpsCallback = a}) + +instance GoogleRequest FoldersProductsSearch where + type Rs FoldersProductsSearch = + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + type Scopes FoldersProductsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient FoldersProductsSearch'{..} + = go _fpsResource _fpsXgafv _fpsUploadProtocol + _fpsAccessToken + _fpsUploadType + _fpsQuery + _fpsPageToken + _fpsPageSize + _fpsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy FoldersProductsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Versions/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Versions/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Folders/Versions/Search.hs @@ -0,0 +1,198 @@ +{-# 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.Folders.Versions.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.folders.versions.search@. +module Network.Google.Resource.CloudPrivateCatalog.Folders.Versions.Search + ( + -- * REST Resource + FoldersVersionsSearchResource + + -- * Creating a Request + , foldersVersionsSearch + , FoldersVersionsSearch + + -- * Request Lenses + , fvsXgafv + , fvsUploadProtocol + , fvsAccessToken + , fvsUploadType + , fvsResource + , fvsQuery + , fvsPageToken + , fvsPageSize + , fvsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.folders.versions.search@ method which the +-- 'FoldersVersionsSearch' request conforms to. +type FoldersVersionsSearchResource = + "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 + +-- | Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'foldersVersionsSearch' smart constructor. +data FoldersVersionsSearch = + FoldersVersionsSearch' + { _fvsXgafv :: !(Maybe Xgafv) + , _fvsUploadProtocol :: !(Maybe Text) + , _fvsAccessToken :: !(Maybe Text) + , _fvsUploadType :: !(Maybe Text) + , _fvsResource :: !Text + , _fvsQuery :: !(Maybe Text) + , _fvsPageToken :: !(Maybe Text) + , _fvsPageSize :: !(Maybe (Textual Int32)) + , _fvsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FoldersVersionsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fvsXgafv' +-- +-- * 'fvsUploadProtocol' +-- +-- * 'fvsAccessToken' +-- +-- * 'fvsUploadType' +-- +-- * 'fvsResource' +-- +-- * 'fvsQuery' +-- +-- * 'fvsPageToken' +-- +-- * 'fvsPageSize' +-- +-- * 'fvsCallback' +foldersVersionsSearch + :: Text -- ^ 'fvsResource' + -> FoldersVersionsSearch +foldersVersionsSearch pFvsResource_ = + FoldersVersionsSearch' + { _fvsXgafv = Nothing + , _fvsUploadProtocol = Nothing + , _fvsAccessToken = Nothing + , _fvsUploadType = Nothing + , _fvsResource = pFvsResource_ + , _fvsQuery = Nothing + , _fvsPageToken = Nothing + , _fvsPageSize = Nothing + , _fvsCallback = Nothing + } + + +-- | V1 error format. +fvsXgafv :: Lens' FoldersVersionsSearch (Maybe Xgafv) +fvsXgafv = lens _fvsXgafv (\ s a -> s{_fvsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +fvsUploadProtocol :: Lens' FoldersVersionsSearch (Maybe Text) +fvsUploadProtocol + = lens _fvsUploadProtocol + (\ s a -> s{_fvsUploadProtocol = a}) + +-- | OAuth access token. +fvsAccessToken :: Lens' FoldersVersionsSearch (Maybe Text) +fvsAccessToken + = lens _fvsAccessToken + (\ s a -> s{_fvsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +fvsUploadType :: Lens' FoldersVersionsSearch (Maybe Text) +fvsUploadType + = lens _fvsUploadType + (\ s a -> s{_fvsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +fvsResource :: Lens' FoldersVersionsSearch Text +fvsResource + = lens _fvsResource (\ s a -> s{_fvsResource = a}) + +-- | The query to filter the versions. Required. The supported queries are: * +-- List versions under a product: +-- \`parent=catalogs\/{catalog_id}\/products\/{product_id}\` * Get a +-- version by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\/versions\/{version_id}\` +fvsQuery :: Lens' FoldersVersionsSearch (Maybe Text) +fvsQuery = lens _fvsQuery (\ s a -> s{_fvsQuery = a}) + +-- | A pagination token returned from a previous call to SearchVersions that +-- indicates where this listing should continue from. This field is +-- optional. +fvsPageToken :: Lens' FoldersVersionsSearch (Maybe Text) +fvsPageToken + = lens _fvsPageToken (\ s a -> s{_fvsPageToken = a}) + +-- | The maximum number of entries that are requested. +fvsPageSize :: Lens' FoldersVersionsSearch (Maybe Int32) +fvsPageSize + = lens _fvsPageSize (\ s a -> s{_fvsPageSize = a}) . + mapping _Coerce + +-- | JSONP +fvsCallback :: Lens' FoldersVersionsSearch (Maybe Text) +fvsCallback + = lens _fvsCallback (\ s a -> s{_fvsCallback = a}) + +instance GoogleRequest FoldersVersionsSearch where + type Rs FoldersVersionsSearch = + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + type Scopes FoldersVersionsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient FoldersVersionsSearch'{..} + = go _fvsResource _fvsXgafv _fvsUploadProtocol + _fvsAccessToken + _fvsUploadType + _fvsQuery + _fvsPageToken + _fvsPageSize + _fvsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy FoldersVersionsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Catalogs/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Catalogs/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Catalogs/Search.hs @@ -0,0 +1,197 @@ +{-# 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.Organizations.Catalogs.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.organizations.catalogs.search@. +module Network.Google.Resource.CloudPrivateCatalog.Organizations.Catalogs.Search + ( + -- * REST Resource + OrganizationsCatalogsSearchResource + + -- * Creating a Request + , organizationsCatalogsSearch + , OrganizationsCatalogsSearch + + -- * Request Lenses + , ocsXgafv + , ocsUploadProtocol + , ocsAccessToken + , ocsUploadType + , ocsResource + , ocsQuery + , ocsPageToken + , ocsPageSize + , ocsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.organizations.catalogs.search@ method which the +-- 'OrganizationsCatalogsSearch' request conforms to. +type OrganizationsCatalogsSearchResource = + "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 + +-- | Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'organizationsCatalogsSearch' smart constructor. +data OrganizationsCatalogsSearch = + OrganizationsCatalogsSearch' + { _ocsXgafv :: !(Maybe Xgafv) + , _ocsUploadProtocol :: !(Maybe Text) + , _ocsAccessToken :: !(Maybe Text) + , _ocsUploadType :: !(Maybe Text) + , _ocsResource :: !Text + , _ocsQuery :: !(Maybe Text) + , _ocsPageToken :: !(Maybe Text) + , _ocsPageSize :: !(Maybe (Textual Int32)) + , _ocsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OrganizationsCatalogsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ocsXgafv' +-- +-- * 'ocsUploadProtocol' +-- +-- * 'ocsAccessToken' +-- +-- * 'ocsUploadType' +-- +-- * 'ocsResource' +-- +-- * 'ocsQuery' +-- +-- * 'ocsPageToken' +-- +-- * 'ocsPageSize' +-- +-- * 'ocsCallback' +organizationsCatalogsSearch + :: Text -- ^ 'ocsResource' + -> OrganizationsCatalogsSearch +organizationsCatalogsSearch pOcsResource_ = + OrganizationsCatalogsSearch' + { _ocsXgafv = Nothing + , _ocsUploadProtocol = Nothing + , _ocsAccessToken = Nothing + , _ocsUploadType = Nothing + , _ocsResource = pOcsResource_ + , _ocsQuery = Nothing + , _ocsPageToken = Nothing + , _ocsPageSize = Nothing + , _ocsCallback = Nothing + } + + +-- | V1 error format. +ocsXgafv :: Lens' OrganizationsCatalogsSearch (Maybe Xgafv) +ocsXgafv = lens _ocsXgafv (\ s a -> s{_ocsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +ocsUploadProtocol :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsUploadProtocol + = lens _ocsUploadProtocol + (\ s a -> s{_ocsUploadProtocol = a}) + +-- | OAuth access token. +ocsAccessToken :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsAccessToken + = lens _ocsAccessToken + (\ s a -> s{_ocsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +ocsUploadType :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsUploadType + = lens _ocsUploadType + (\ s a -> s{_ocsUploadType = a}) + +-- | Required. The name of the resource context. It can be in following +-- formats: * \`projects\/{project_id}\` * \`folders\/{folder_id}\` * +-- \`organizations\/{organization_id}\` +ocsResource :: Lens' OrganizationsCatalogsSearch Text +ocsResource + = lens _ocsResource (\ s a -> s{_ocsResource = a}) + +-- | The query to filter the catalogs. The supported queries are: * Get a +-- single catalog: \`name=catalogs\/{catalog_id}\` +ocsQuery :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsQuery = lens _ocsQuery (\ s a -> s{_ocsQuery = a}) + +-- | A pagination token returned from a previous call to SearchCatalogs that +-- indicates where this listing should continue from. This field is +-- optional. +ocsPageToken :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsPageToken + = lens _ocsPageToken (\ s a -> s{_ocsPageToken = a}) + +-- | The maximum number of entries that are requested. +ocsPageSize :: Lens' OrganizationsCatalogsSearch (Maybe Int32) +ocsPageSize + = lens _ocsPageSize (\ s a -> s{_ocsPageSize = a}) . + mapping _Coerce + +-- | JSONP +ocsCallback :: Lens' OrganizationsCatalogsSearch (Maybe Text) +ocsCallback + = lens _ocsCallback (\ s a -> s{_ocsCallback = a}) + +instance GoogleRequest OrganizationsCatalogsSearch + where + type Rs OrganizationsCatalogsSearch = + GoogleCloudPrivatecatalogV1beta1SearchCatalogsResponse + type Scopes OrganizationsCatalogsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OrganizationsCatalogsSearch'{..} + = go _ocsResource _ocsXgafv _ocsUploadProtocol + _ocsAccessToken + _ocsUploadType + _ocsQuery + _ocsPageToken + _ocsPageSize + _ocsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy OrganizationsCatalogsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Products/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Products/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Products/Search.hs @@ -0,0 +1,198 @@ +{-# 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.Organizations.Products.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.organizations.products.search@. +module Network.Google.Resource.CloudPrivateCatalog.Organizations.Products.Search + ( + -- * REST Resource + OrganizationsProductsSearchResource + + -- * Creating a Request + , organizationsProductsSearch + , OrganizationsProductsSearch + + -- * Request Lenses + , opsXgafv + , opsUploadProtocol + , opsAccessToken + , opsUploadType + , opsResource + , opsQuery + , opsPageToken + , opsPageSize + , opsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.organizations.products.search@ method which the +-- 'OrganizationsProductsSearch' request conforms to. +type OrganizationsProductsSearchResource = + "v1beta1" :> + Capture "resource" Text :> + "products: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] + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + +-- | Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'organizationsProductsSearch' smart constructor. +data OrganizationsProductsSearch = + OrganizationsProductsSearch' + { _opsXgafv :: !(Maybe Xgafv) + , _opsUploadProtocol :: !(Maybe Text) + , _opsAccessToken :: !(Maybe Text) + , _opsUploadType :: !(Maybe Text) + , _opsResource :: !Text + , _opsQuery :: !(Maybe Text) + , _opsPageToken :: !(Maybe Text) + , _opsPageSize :: !(Maybe (Textual Int32)) + , _opsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OrganizationsProductsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'opsXgafv' +-- +-- * 'opsUploadProtocol' +-- +-- * 'opsAccessToken' +-- +-- * 'opsUploadType' +-- +-- * 'opsResource' +-- +-- * 'opsQuery' +-- +-- * 'opsPageToken' +-- +-- * 'opsPageSize' +-- +-- * 'opsCallback' +organizationsProductsSearch + :: Text -- ^ 'opsResource' + -> OrganizationsProductsSearch +organizationsProductsSearch pOpsResource_ = + OrganizationsProductsSearch' + { _opsXgafv = Nothing + , _opsUploadProtocol = Nothing + , _opsAccessToken = Nothing + , _opsUploadType = Nothing + , _opsResource = pOpsResource_ + , _opsQuery = Nothing + , _opsPageToken = Nothing + , _opsPageSize = Nothing + , _opsCallback = Nothing + } + + +-- | V1 error format. +opsXgafv :: Lens' OrganizationsProductsSearch (Maybe Xgafv) +opsXgafv = lens _opsXgafv (\ s a -> s{_opsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +opsUploadProtocol :: Lens' OrganizationsProductsSearch (Maybe Text) +opsUploadProtocol + = lens _opsUploadProtocol + (\ s a -> s{_opsUploadProtocol = a}) + +-- | OAuth access token. +opsAccessToken :: Lens' OrganizationsProductsSearch (Maybe Text) +opsAccessToken + = lens _opsAccessToken + (\ s a -> s{_opsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +opsUploadType :: Lens' OrganizationsProductsSearch (Maybe Text) +opsUploadType + = lens _opsUploadType + (\ s a -> s{_opsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +opsResource :: Lens' OrganizationsProductsSearch Text +opsResource + = lens _opsResource (\ s a -> s{_opsResource = a}) + +-- | The query to filter the products. The supported queries are: * List +-- products of all catalogs: empty * List products under a catalog: +-- \`parent=catalogs\/{catalog_id}\` * Get a product by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\` +opsQuery :: Lens' OrganizationsProductsSearch (Maybe Text) +opsQuery = lens _opsQuery (\ s a -> s{_opsQuery = a}) + +-- | A pagination token returned from a previous call to SearchProducts that +-- indicates where this listing should continue from. This field is +-- optional. +opsPageToken :: Lens' OrganizationsProductsSearch (Maybe Text) +opsPageToken + = lens _opsPageToken (\ s a -> s{_opsPageToken = a}) + +-- | The maximum number of entries that are requested. +opsPageSize :: Lens' OrganizationsProductsSearch (Maybe Int32) +opsPageSize + = lens _opsPageSize (\ s a -> s{_opsPageSize = a}) . + mapping _Coerce + +-- | JSONP +opsCallback :: Lens' OrganizationsProductsSearch (Maybe Text) +opsCallback + = lens _opsCallback (\ s a -> s{_opsCallback = a}) + +instance GoogleRequest OrganizationsProductsSearch + where + type Rs OrganizationsProductsSearch = + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + type Scopes OrganizationsProductsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OrganizationsProductsSearch'{..} + = go _opsResource _opsXgafv _opsUploadProtocol + _opsAccessToken + _opsUploadType + _opsQuery + _opsPageToken + _opsPageSize + _opsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy OrganizationsProductsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Versions/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Versions/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Organizations/Versions/Search.hs @@ -0,0 +1,199 @@ +{-# 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.Organizations.Versions.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.organizations.versions.search@. +module Network.Google.Resource.CloudPrivateCatalog.Organizations.Versions.Search + ( + -- * REST Resource + OrganizationsVersionsSearchResource + + -- * Creating a Request + , organizationsVersionsSearch + , OrganizationsVersionsSearch + + -- * Request Lenses + , ovsXgafv + , ovsUploadProtocol + , ovsAccessToken + , ovsUploadType + , ovsResource + , ovsQuery + , ovsPageToken + , ovsPageSize + , ovsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.organizations.versions.search@ method which the +-- 'OrganizationsVersionsSearch' request conforms to. +type OrganizationsVersionsSearchResource = + "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 + +-- | Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'organizationsVersionsSearch' smart constructor. +data OrganizationsVersionsSearch = + OrganizationsVersionsSearch' + { _ovsXgafv :: !(Maybe Xgafv) + , _ovsUploadProtocol :: !(Maybe Text) + , _ovsAccessToken :: !(Maybe Text) + , _ovsUploadType :: !(Maybe Text) + , _ovsResource :: !Text + , _ovsQuery :: !(Maybe Text) + , _ovsPageToken :: !(Maybe Text) + , _ovsPageSize :: !(Maybe (Textual Int32)) + , _ovsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OrganizationsVersionsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ovsXgafv' +-- +-- * 'ovsUploadProtocol' +-- +-- * 'ovsAccessToken' +-- +-- * 'ovsUploadType' +-- +-- * 'ovsResource' +-- +-- * 'ovsQuery' +-- +-- * 'ovsPageToken' +-- +-- * 'ovsPageSize' +-- +-- * 'ovsCallback' +organizationsVersionsSearch + :: Text -- ^ 'ovsResource' + -> OrganizationsVersionsSearch +organizationsVersionsSearch pOvsResource_ = + OrganizationsVersionsSearch' + { _ovsXgafv = Nothing + , _ovsUploadProtocol = Nothing + , _ovsAccessToken = Nothing + , _ovsUploadType = Nothing + , _ovsResource = pOvsResource_ + , _ovsQuery = Nothing + , _ovsPageToken = Nothing + , _ovsPageSize = Nothing + , _ovsCallback = Nothing + } + + +-- | V1 error format. +ovsXgafv :: Lens' OrganizationsVersionsSearch (Maybe Xgafv) +ovsXgafv = lens _ovsXgafv (\ s a -> s{_ovsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +ovsUploadProtocol :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsUploadProtocol + = lens _ovsUploadProtocol + (\ s a -> s{_ovsUploadProtocol = a}) + +-- | OAuth access token. +ovsAccessToken :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsAccessToken + = lens _ovsAccessToken + (\ s a -> s{_ovsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +ovsUploadType :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsUploadType + = lens _ovsUploadType + (\ s a -> s{_ovsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +ovsResource :: Lens' OrganizationsVersionsSearch Text +ovsResource + = lens _ovsResource (\ s a -> s{_ovsResource = a}) + +-- | The query to filter the versions. Required. The supported queries are: * +-- List versions under a product: +-- \`parent=catalogs\/{catalog_id}\/products\/{product_id}\` * Get a +-- version by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\/versions\/{version_id}\` +ovsQuery :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsQuery = lens _ovsQuery (\ s a -> s{_ovsQuery = a}) + +-- | A pagination token returned from a previous call to SearchVersions that +-- indicates where this listing should continue from. This field is +-- optional. +ovsPageToken :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsPageToken + = lens _ovsPageToken (\ s a -> s{_ovsPageToken = a}) + +-- | The maximum number of entries that are requested. +ovsPageSize :: Lens' OrganizationsVersionsSearch (Maybe Int32) +ovsPageSize + = lens _ovsPageSize (\ s a -> s{_ovsPageSize = a}) . + mapping _Coerce + +-- | JSONP +ovsCallback :: Lens' OrganizationsVersionsSearch (Maybe Text) +ovsCallback + = lens _ovsCallback (\ s a -> s{_ovsCallback = a}) + +instance GoogleRequest OrganizationsVersionsSearch + where + type Rs OrganizationsVersionsSearch = + GoogleCloudPrivatecatalogV1beta1SearchVersionsResponse + type Scopes OrganizationsVersionsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OrganizationsVersionsSearch'{..} + = go _ovsResource _ovsXgafv _ovsUploadProtocol + _ovsAccessToken + _ovsUploadType + _ovsQuery + _ovsPageToken + _ovsPageSize + _ovsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy OrganizationsVersionsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Catalogs/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Catalogs/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Catalogs/Search.hs @@ -0,0 +1,196 @@ +{-# 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 +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.projects.catalogs.search@. +module Network.Google.Resource.CloudPrivateCatalog.Projects.Catalogs.Search + ( + -- * REST Resource + ProjectsCatalogsSearchResource + + -- * Creating a Request + , projectsCatalogsSearch + , ProjectsCatalogsSearch + + -- * Request Lenses + , pcsXgafv + , pcsUploadProtocol + , pcsAccessToken + , pcsUploadType + , pcsResource + , pcsQuery + , pcsPageToken + , pcsPageSize + , pcsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.projects.catalogs.search@ method which the +-- 'ProjectsCatalogsSearch' request conforms to. +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 + +-- | Search Catalog resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'projectsCatalogsSearch' smart constructor. +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) + + +-- | Creates a value of 'ProjectsCatalogsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcsXgafv' +-- +-- * 'pcsUploadProtocol' +-- +-- * 'pcsAccessToken' +-- +-- * 'pcsUploadType' +-- +-- * 'pcsResource' +-- +-- * 'pcsQuery' +-- +-- * 'pcsPageToken' +-- +-- * 'pcsPageSize' +-- +-- * 'pcsCallback' +projectsCatalogsSearch + :: Text -- ^ 'pcsResource' + -> ProjectsCatalogsSearch +projectsCatalogsSearch pPcsResource_ = + ProjectsCatalogsSearch' + { _pcsXgafv = Nothing + , _pcsUploadProtocol = Nothing + , _pcsAccessToken = Nothing + , _pcsUploadType = Nothing + , _pcsResource = pPcsResource_ + , _pcsQuery = Nothing + , _pcsPageToken = Nothing + , _pcsPageSize = Nothing + , _pcsCallback = Nothing + } + + +-- | V1 error format. +pcsXgafv :: Lens' ProjectsCatalogsSearch (Maybe Xgafv) +pcsXgafv = lens _pcsXgafv (\ s a -> s{_pcsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pcsUploadProtocol :: Lens' ProjectsCatalogsSearch (Maybe Text) +pcsUploadProtocol + = lens _pcsUploadProtocol + (\ s a -> s{_pcsUploadProtocol = a}) + +-- | OAuth access token. +pcsAccessToken :: Lens' ProjectsCatalogsSearch (Maybe Text) +pcsAccessToken + = lens _pcsAccessToken + (\ s a -> s{_pcsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pcsUploadType :: Lens' ProjectsCatalogsSearch (Maybe Text) +pcsUploadType + = lens _pcsUploadType + (\ s a -> s{_pcsUploadType = a}) + +-- | Required. The name of the resource context. It can be in following +-- formats: * \`projects\/{project_id}\` * \`folders\/{folder_id}\` * +-- \`organizations\/{organization_id}\` +pcsResource :: Lens' ProjectsCatalogsSearch Text +pcsResource + = lens _pcsResource (\ s a -> s{_pcsResource = a}) + +-- | The query to filter the catalogs. The supported queries are: * Get a +-- single catalog: \`name=catalogs\/{catalog_id}\` +pcsQuery :: Lens' ProjectsCatalogsSearch (Maybe Text) +pcsQuery = lens _pcsQuery (\ s a -> s{_pcsQuery = a}) + +-- | A pagination token returned from a previous call to SearchCatalogs that +-- indicates where this listing should continue from. This field is +-- optional. +pcsPageToken :: Lens' ProjectsCatalogsSearch (Maybe Text) +pcsPageToken + = lens _pcsPageToken (\ s a -> s{_pcsPageToken = a}) + +-- | The maximum number of entries that are requested. +pcsPageSize :: Lens' ProjectsCatalogsSearch (Maybe Int32) +pcsPageSize + = lens _pcsPageSize (\ s a -> s{_pcsPageSize = a}) . + mapping _Coerce + +-- | JSONP +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 diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Products/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Products/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Products/Search.hs @@ -0,0 +1,197 @@ +{-# 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.Products.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.projects.products.search@. +module Network.Google.Resource.CloudPrivateCatalog.Projects.Products.Search + ( + -- * REST Resource + ProjectsProductsSearchResource + + -- * Creating a Request + , projectsProductsSearch + , ProjectsProductsSearch + + -- * Request Lenses + , ppsXgafv + , ppsUploadProtocol + , ppsAccessToken + , ppsUploadType + , ppsResource + , ppsQuery + , ppsPageToken + , ppsPageSize + , ppsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.projects.products.search@ method which the +-- 'ProjectsProductsSearch' request conforms to. +type ProjectsProductsSearchResource = + "v1beta1" :> + Capture "resource" Text :> + "products: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] + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + +-- | Search Product resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'projectsProductsSearch' smart constructor. +data ProjectsProductsSearch = + ProjectsProductsSearch' + { _ppsXgafv :: !(Maybe Xgafv) + , _ppsUploadProtocol :: !(Maybe Text) + , _ppsAccessToken :: !(Maybe Text) + , _ppsUploadType :: !(Maybe Text) + , _ppsResource :: !Text + , _ppsQuery :: !(Maybe Text) + , _ppsPageToken :: !(Maybe Text) + , _ppsPageSize :: !(Maybe (Textual Int32)) + , _ppsCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsProductsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ppsXgafv' +-- +-- * 'ppsUploadProtocol' +-- +-- * 'ppsAccessToken' +-- +-- * 'ppsUploadType' +-- +-- * 'ppsResource' +-- +-- * 'ppsQuery' +-- +-- * 'ppsPageToken' +-- +-- * 'ppsPageSize' +-- +-- * 'ppsCallback' +projectsProductsSearch + :: Text -- ^ 'ppsResource' + -> ProjectsProductsSearch +projectsProductsSearch pPpsResource_ = + ProjectsProductsSearch' + { _ppsXgafv = Nothing + , _ppsUploadProtocol = Nothing + , _ppsAccessToken = Nothing + , _ppsUploadType = Nothing + , _ppsResource = pPpsResource_ + , _ppsQuery = Nothing + , _ppsPageToken = Nothing + , _ppsPageSize = Nothing + , _ppsCallback = Nothing + } + + +-- | V1 error format. +ppsXgafv :: Lens' ProjectsProductsSearch (Maybe Xgafv) +ppsXgafv = lens _ppsXgafv (\ s a -> s{_ppsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +ppsUploadProtocol :: Lens' ProjectsProductsSearch (Maybe Text) +ppsUploadProtocol + = lens _ppsUploadProtocol + (\ s a -> s{_ppsUploadProtocol = a}) + +-- | OAuth access token. +ppsAccessToken :: Lens' ProjectsProductsSearch (Maybe Text) +ppsAccessToken + = lens _ppsAccessToken + (\ s a -> s{_ppsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +ppsUploadType :: Lens' ProjectsProductsSearch (Maybe Text) +ppsUploadType + = lens _ppsUploadType + (\ s a -> s{_ppsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +ppsResource :: Lens' ProjectsProductsSearch Text +ppsResource + = lens _ppsResource (\ s a -> s{_ppsResource = a}) + +-- | The query to filter the products. The supported queries are: * List +-- products of all catalogs: empty * List products under a catalog: +-- \`parent=catalogs\/{catalog_id}\` * Get a product by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\` +ppsQuery :: Lens' ProjectsProductsSearch (Maybe Text) +ppsQuery = lens _ppsQuery (\ s a -> s{_ppsQuery = a}) + +-- | A pagination token returned from a previous call to SearchProducts that +-- indicates where this listing should continue from. This field is +-- optional. +ppsPageToken :: Lens' ProjectsProductsSearch (Maybe Text) +ppsPageToken + = lens _ppsPageToken (\ s a -> s{_ppsPageToken = a}) + +-- | The maximum number of entries that are requested. +ppsPageSize :: Lens' ProjectsProductsSearch (Maybe Int32) +ppsPageSize + = lens _ppsPageSize (\ s a -> s{_ppsPageSize = a}) . + mapping _Coerce + +-- | JSONP +ppsCallback :: Lens' ProjectsProductsSearch (Maybe Text) +ppsCallback + = lens _ppsCallback (\ s a -> s{_ppsCallback = a}) + +instance GoogleRequest ProjectsProductsSearch where + type Rs ProjectsProductsSearch = + GoogleCloudPrivatecatalogV1beta1SearchProductsResponse + type Scopes ProjectsProductsSearch = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient ProjectsProductsSearch'{..} + = go _ppsResource _ppsXgafv _ppsUploadProtocol + _ppsAccessToken + _ppsUploadType + _ppsQuery + _ppsPageToken + _ppsPageSize + _ppsCallback + (Just AltJSON) + cloudPrivateCatalogService + where go + = buildClient + (Proxy :: Proxy ProjectsProductsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Versions/Search.hs b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Versions/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/CloudPrivateCatalog/Projects/Versions/Search.hs @@ -0,0 +1,198 @@ +{-# 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 +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ for @cloudprivatecatalog.projects.versions.search@. +module Network.Google.Resource.CloudPrivateCatalog.Projects.Versions.Search + ( + -- * REST Resource + ProjectsVersionsSearchResource + + -- * Creating a Request + , projectsVersionsSearch + , ProjectsVersionsSearch + + -- * Request Lenses + , pvsXgafv + , pvsUploadProtocol + , pvsAccessToken + , pvsUploadType + , pvsResource + , pvsQuery + , pvsPageToken + , pvsPageSize + , pvsCallback + ) where + +import Network.Google.CloudPrivateCatalog.Types +import Network.Google.Prelude + +-- | A resource alias for @cloudprivatecatalog.projects.versions.search@ method which the +-- 'ProjectsVersionsSearch' request conforms to. +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 + +-- | Search Version resources that consumers have access to, within the scope +-- of the consumer cloud resource hierarchy context. +-- +-- /See:/ 'projectsVersionsSearch' smart constructor. +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) + + +-- | Creates a value of 'ProjectsVersionsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pvsXgafv' +-- +-- * 'pvsUploadProtocol' +-- +-- * 'pvsAccessToken' +-- +-- * 'pvsUploadType' +-- +-- * 'pvsResource' +-- +-- * 'pvsQuery' +-- +-- * 'pvsPageToken' +-- +-- * 'pvsPageSize' +-- +-- * 'pvsCallback' +projectsVersionsSearch + :: Text -- ^ 'pvsResource' + -> ProjectsVersionsSearch +projectsVersionsSearch pPvsResource_ = + ProjectsVersionsSearch' + { _pvsXgafv = Nothing + , _pvsUploadProtocol = Nothing + , _pvsAccessToken = Nothing + , _pvsUploadType = Nothing + , _pvsResource = pPvsResource_ + , _pvsQuery = Nothing + , _pvsPageToken = Nothing + , _pvsPageSize = Nothing + , _pvsCallback = Nothing + } + + +-- | V1 error format. +pvsXgafv :: Lens' ProjectsVersionsSearch (Maybe Xgafv) +pvsXgafv = lens _pvsXgafv (\ s a -> s{_pvsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pvsUploadProtocol :: Lens' ProjectsVersionsSearch (Maybe Text) +pvsUploadProtocol + = lens _pvsUploadProtocol + (\ s a -> s{_pvsUploadProtocol = a}) + +-- | OAuth access token. +pvsAccessToken :: Lens' ProjectsVersionsSearch (Maybe Text) +pvsAccessToken + = lens _pvsAccessToken + (\ s a -> s{_pvsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pvsUploadType :: Lens' ProjectsVersionsSearch (Maybe Text) +pvsUploadType + = lens _pvsUploadType + (\ s a -> s{_pvsUploadType = a}) + +-- | Required. The name of the resource context. See +-- SearchCatalogsRequest.resource for details. +pvsResource :: Lens' ProjectsVersionsSearch Text +pvsResource + = lens _pvsResource (\ s a -> s{_pvsResource = a}) + +-- | The query to filter the versions. Required. The supported queries are: * +-- List versions under a product: +-- \`parent=catalogs\/{catalog_id}\/products\/{product_id}\` * Get a +-- version by name: +-- \`name=catalogs\/{catalog_id}\/products\/{product_id}\/versions\/{version_id}\` +pvsQuery :: Lens' ProjectsVersionsSearch (Maybe Text) +pvsQuery = lens _pvsQuery (\ s a -> s{_pvsQuery = a}) + +-- | A pagination token returned from a previous call to SearchVersions that +-- indicates where this listing should continue from. This field is +-- optional. +pvsPageToken :: Lens' ProjectsVersionsSearch (Maybe Text) +pvsPageToken + = lens _pvsPageToken (\ s a -> s{_pvsPageToken = a}) + +-- | The maximum number of entries that are requested. +pvsPageSize :: Lens' ProjectsVersionsSearch (Maybe Int32) +pvsPageSize + = lens _pvsPageSize (\ s a -> s{_pvsPageSize = a}) . + mapping _Coerce + +-- | JSONP +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 diff --git a/gogol-cloudprivatecatalog.cabal b/gogol-cloudprivatecatalog.cabal new file mode 100644 --- /dev/null +++ b/gogol-cloudprivatecatalog.cabal @@ -0,0 +1,55 @@ +name: gogol-cloudprivatecatalog +version: 0.5.0 +synopsis: Google Cloud Private Catalog SDK. +homepage: https://github.com/brendanhay/gogol +bug-reports: https://github.com/brendanhay/gogol/issues +license: OtherLicense +license-file: LICENSE +author: Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay +category: Network, Google, Cloud +build-type: Simple +cabal-version: >= 1.10 +extra-source-files: README.md src/.gitkeep + +description: + Enable cloud users to discover enterprise catalogs and products in their + organizations. + . + /Warning:/ This is an experimental prototype/preview release which is still + under exploratory development and not intended for public use, caveat emptor! + . + This library is compatible with version @v1beta1@ + of the API. + +source-repository head + type: git + location: git://github.com/brendanhay/gogol.git + +library + default-language: Haskell2010 + hs-source-dirs: src gen + + ghc-options: -Wall + + exposed-modules: + Network.Google.CloudPrivateCatalog + , Network.Google.CloudPrivateCatalog.Types + , Network.Google.Resource.CloudPrivateCatalog.Folders.Catalogs.Search + , Network.Google.Resource.CloudPrivateCatalog.Folders.Products.Search + , Network.Google.Resource.CloudPrivateCatalog.Folders.Versions.Search + , Network.Google.Resource.CloudPrivateCatalog.Organizations.Catalogs.Search + , Network.Google.Resource.CloudPrivateCatalog.Organizations.Products.Search + , Network.Google.Resource.CloudPrivateCatalog.Organizations.Versions.Search + , Network.Google.Resource.CloudPrivateCatalog.Projects.Catalogs.Search + , Network.Google.Resource.CloudPrivateCatalog.Projects.Products.Search + , Network.Google.Resource.CloudPrivateCatalog.Projects.Versions.Search + + other-modules: + Network.Google.CloudPrivateCatalog.Types.Product + , Network.Google.CloudPrivateCatalog.Types.Sum + + build-depends: + gogol-core == 0.5.0.* + , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep