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-factchecktools + +* [Version](#version) +* [Description](#description) +* [Contribute](#contribute) +* [Licence](#licence) + + +## Version + +`0.5.0` + + +## Description + +A client library for the Google Fact Check Tools. + + +## 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-factchecktools` 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/FactCheckTools.hs b/gen/Network/Google/FactCheckTools.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/FactCheckTools.hs @@ -0,0 +1,160 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} + +-- | +-- Module : Network.Google.FactCheckTools +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- -- | +-- +-- /See:/ +module Network.Google.FactCheckTools + ( + -- * Service Configuration + factCheckToolsService + + -- * OAuth Scopes + , userInfoEmailScope + + -- * API Declaration + , FactCheckToolsAPI + + -- * Resources + + -- ** factchecktools.claims.search + , module Network.Google.Resource.FactCheckTools.Claims.Search + + -- ** factchecktools.pages.create + , module Network.Google.Resource.FactCheckTools.Pages.Create + + -- ** factchecktools.pages.delete + , module Network.Google.Resource.FactCheckTools.Pages.Delete + + -- ** factchecktools.pages.get + , module Network.Google.Resource.FactCheckTools.Pages.Get + + -- ** factchecktools.pages.list + , module Network.Google.Resource.FactCheckTools.Pages.List + + -- ** factchecktools.pages.update + , module Network.Google.Resource.FactCheckTools.Pages.Update + + -- * Types + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1Claim + , GoogleFactcheckingFactchecktoolsV1alpha1Claim + , googleFactcheckingFactchecktoolsV1alpha1Claim + , gffvcText + , gffvcClaimReview + , gffvcClaimDate + , gffvcClaimant + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + , googleFactcheckingFactchecktoolsV1alpha1ClaimRating + , gffvcrWorstRating + , gffvcrRatingValue + , gffvcrImageURL + , gffvcrBestRating + , gffvcrTextualRating + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , gffvcraImageURL + , gffvcraName + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , gffvfccsrNextPageToken + , gffvfccsrClaims + + -- ** GoogleProtobufEmpty + , GoogleProtobufEmpty + , googleProtobufEmpty + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1Publisher + , GoogleFactcheckingFactchecktoolsV1alpha1Publisher + , googleFactcheckingFactchecktoolsV1alpha1Publisher + , gffvpName + , gffvpSite + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , gffvcaSameAs + , gffvcaImageURL + , gffvcaName + , gffvcaJobTitle + + -- ** Xgafv + , Xgafv (..) + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + , googleFactcheckingFactchecktoolsV1alpha1ClaimReview + , gLanguageCode + , gURL + , gTextualRating + , gTitle + , gPublisher + , gReviewDate + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , gffvcrmRating + , gffvcrmClaimAuthor + , gffvcrmURL + , gffvcrmClaimAppearances + , gffvcrmClaimLocation + , gffvcrmClaimFirstAppearance + , gffvcrmClaimDate + , gffvcrmClaimReviewed + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , gffvcrmpVersionId + , gffvcrmpPublishDate + , gffvcrmpName + , gffvcrmpClaimReviewAuthor + , gffvcrmpPageURL + , gffvcrmpClaimReviewMarkups + + -- ** GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , gffvlcrmprNextPageToken + , gffvlcrmprClaimReviewMarkupPages + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude +import Network.Google.Resource.FactCheckTools.Claims.Search +import Network.Google.Resource.FactCheckTools.Pages.Create +import Network.Google.Resource.FactCheckTools.Pages.Delete +import Network.Google.Resource.FactCheckTools.Pages.Get +import Network.Google.Resource.FactCheckTools.Pages.List +import Network.Google.Resource.FactCheckTools.Pages.Update + +{- $resources +TODO +-} + +-- | Represents the entirety of the methods and resources available for the Fact Check Tools API service. +type FactCheckToolsAPI = + PagesListResource :<|> PagesGetResource :<|> + PagesCreateResource + :<|> PagesDeleteResource + :<|> PagesUpdateResource + :<|> ClaimsSearchResource diff --git a/gen/Network/Google/FactCheckTools/Types.hs b/gen/Network/Google/FactCheckTools/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/FactCheckTools/Types.hs @@ -0,0 +1,127 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.FactCheckTools.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.FactCheckTools.Types + ( + -- * Service Configuration + factCheckToolsService + + -- * OAuth Scopes + , userInfoEmailScope + + -- * GoogleFactcheckingFactchecktoolsV1alpha1Claim + , GoogleFactcheckingFactchecktoolsV1alpha1Claim + , googleFactcheckingFactchecktoolsV1alpha1Claim + , gffvcText + , gffvcClaimReview + , gffvcClaimDate + , gffvcClaimant + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + , googleFactcheckingFactchecktoolsV1alpha1ClaimRating + , gffvcrWorstRating + , gffvcrRatingValue + , gffvcrImageURL + , gffvcrBestRating + , gffvcrTextualRating + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + , gffvcraImageURL + , gffvcraName + + -- * GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + , gffvfccsrNextPageToken + , gffvfccsrClaims + + -- * GoogleProtobufEmpty + , GoogleProtobufEmpty + , googleProtobufEmpty + + -- * GoogleFactcheckingFactchecktoolsV1alpha1Publisher + , GoogleFactcheckingFactchecktoolsV1alpha1Publisher + , googleFactcheckingFactchecktoolsV1alpha1Publisher + , gffvpName + , gffvpSite + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + , gffvcaSameAs + , gffvcaImageURL + , gffvcaName + , gffvcaJobTitle + + -- * Xgafv + , Xgafv (..) + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + , googleFactcheckingFactchecktoolsV1alpha1ClaimReview + , gLanguageCode + , gURL + , gTextualRating + , gTitle + , gPublisher + , gReviewDate + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + , gffvcrmRating + , gffvcrmClaimAuthor + , gffvcrmURL + , gffvcrmClaimAppearances + , gffvcrmClaimLocation + , gffvcrmClaimFirstAppearance + , gffvcrmClaimDate + , gffvcrmClaimReviewed + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , gffvcrmpVersionId + , gffvcrmpPublishDate + , gffvcrmpName + , gffvcrmpClaimReviewAuthor + , gffvcrmpPageURL + , gffvcrmpClaimReviewMarkups + + -- * GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + , gffvlcrmprNextPageToken + , gffvlcrmprClaimReviewMarkupPages + ) where + +import Network.Google.FactCheckTools.Types.Product +import Network.Google.FactCheckTools.Types.Sum +import Network.Google.Prelude + +-- | Default request referring to version 'v1alpha1' of the Fact Check Tools API. This contains the host and root path used as a starting point for constructing service requests. +factCheckToolsService :: ServiceConfig +factCheckToolsService + = defaultService + (ServiceId "factchecktools:v1alpha1") + "factchecktools.googleapis.com" + +-- | View your email address +userInfoEmailScope :: Proxy '["https://www.googleapis.com/auth/userinfo.email"] +userInfoEmailScope = Proxy diff --git a/gen/Network/Google/FactCheckTools/Types/Product.hs b/gen/Network/Google/FactCheckTools/Types/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/FactCheckTools/Types/Product.hs @@ -0,0 +1,941 @@ +{-# 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.FactCheckTools.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.FactCheckTools.Types.Product where + +import Network.Google.FactCheckTools.Types.Sum +import Network.Google.Prelude + +-- | Information about the claim. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1Claim' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1Claim = + GoogleFactcheckingFactchecktoolsV1alpha1Claim' + { _gffvcText :: !(Maybe Text) + , _gffvcClaimReview :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview]) + , _gffvcClaimDate :: !(Maybe DateTime') + , _gffvcClaimant :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1Claim' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcText' +-- +-- * 'gffvcClaimReview' +-- +-- * 'gffvcClaimDate' +-- +-- * 'gffvcClaimant' +googleFactcheckingFactchecktoolsV1alpha1Claim + :: GoogleFactcheckingFactchecktoolsV1alpha1Claim +googleFactcheckingFactchecktoolsV1alpha1Claim = + GoogleFactcheckingFactchecktoolsV1alpha1Claim' + { _gffvcText = Nothing + , _gffvcClaimReview = Nothing + , _gffvcClaimDate = Nothing + , _gffvcClaimant = Nothing + } + + +-- | The claim text. For instance, \"Crime has doubled in the last 2 years.\" +gffvcText :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe Text) +gffvcText + = lens _gffvcText (\ s a -> s{_gffvcText = a}) + +-- | One or more reviews of this claim (namely, a fact-checking article). +gffvcClaimReview :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview] +gffvcClaimReview + = lens _gffvcClaimReview + (\ s a -> s{_gffvcClaimReview = a}) + . _Default + . _Coerce + +-- | The date that the claim was made. +gffvcClaimDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe UTCTime) +gffvcClaimDate + = lens _gffvcClaimDate + (\ s a -> s{_gffvcClaimDate = a}) + . mapping _DateTime + +-- | A person or organization stating the claim. For instance, \"John Doe\". +gffvcClaimant :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe Text) +gffvcClaimant + = lens _gffvcClaimant + (\ s a -> s{_gffvcClaimant = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1Claim + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1Claim" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1Claim' <$> + (o .:? "text") <*> (o .:? "claimReview" .!= mempty) + <*> (o .:? "claimDate") + <*> (o .:? "claimant")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1Claim + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1Claim'{..} + = object + (catMaybes + [("text" .=) <$> _gffvcText, + ("claimReview" .=) <$> _gffvcClaimReview, + ("claimDate" .=) <$> _gffvcClaimDate, + ("claimant" .=) <$> _gffvcClaimant]) + +-- | Information about the claim rating. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimRating' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' + { _gffvcrWorstRating :: !(Maybe (Textual Int32)) + , _gffvcrRatingValue :: !(Maybe (Textual Int32)) + , _gffvcrImageURL :: !(Maybe Text) + , _gffvcrBestRating :: !(Maybe (Textual Int32)) + , _gffvcrTextualRating :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcrWorstRating' +-- +-- * 'gffvcrRatingValue' +-- +-- * 'gffvcrImageURL' +-- +-- * 'gffvcrBestRating' +-- +-- * 'gffvcrTextualRating' +googleFactcheckingFactchecktoolsV1alpha1ClaimRating + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating +googleFactcheckingFactchecktoolsV1alpha1ClaimRating = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' + { _gffvcrWorstRating = Nothing + , _gffvcrRatingValue = Nothing + , _gffvcrImageURL = Nothing + , _gffvcrBestRating = Nothing + , _gffvcrTextualRating = Nothing + } + + +-- | For numeric ratings, the worst value possible in the scale from worst to +-- best. +-- Corresponds to \`ClaimReview.reviewRating.worstRating\`. +gffvcrWorstRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32) +gffvcrWorstRating + = lens _gffvcrWorstRating + (\ s a -> s{_gffvcrWorstRating = a}) + . mapping _Coerce + +-- | A numeric rating of this claim, in the range worstRating — bestRating +-- inclusive. +-- Corresponds to \`ClaimReview.reviewRating.ratingValue\`. +gffvcrRatingValue :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32) +gffvcrRatingValue + = lens _gffvcrRatingValue + (\ s a -> s{_gffvcrRatingValue = a}) + . mapping _Coerce + +-- | Corresponds to \`ClaimReview.reviewRating.image\`. +gffvcrImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Text) +gffvcrImageURL + = lens _gffvcrImageURL + (\ s a -> s{_gffvcrImageURL = a}) + +-- | For numeric ratings, the best value possible in the scale from worst to +-- best. +-- Corresponds to \`ClaimReview.reviewRating.bestRating\`. +gffvcrBestRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32) +gffvcrBestRating + = lens _gffvcrBestRating + (\ s a -> s{_gffvcrBestRating = a}) + . mapping _Coerce + +-- | The truthfulness rating as a human-readible short word or phrase. +-- Corresponds to \`ClaimReview.reviewRating.alternateName\`. +gffvcrTextualRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Text) +gffvcrTextualRating + = lens _gffvcrTextualRating + (\ s a -> s{_gffvcrTextualRating = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' + <$> + (o .:? "worstRating") <*> (o .:? "ratingValue") <*> + (o .:? "imageUrl") + <*> (o .:? "bestRating") + <*> (o .:? "textualRating")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating'{..} + = object + (catMaybes + [("worstRating" .=) <$> _gffvcrWorstRating, + ("ratingValue" .=) <$> _gffvcrRatingValue, + ("imageUrl" .=) <$> _gffvcrImageURL, + ("bestRating" .=) <$> _gffvcrBestRating, + ("textualRating" .=) <$> _gffvcrTextualRating]) + +-- | Information about the claim review author. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' + { _gffvcraImageURL :: !(Maybe Text) + , _gffvcraName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcraImageURL' +-- +-- * 'gffvcraName' +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' + {_gffvcraImageURL = Nothing, _gffvcraName = Nothing} + + +-- | Corresponds to \`ClaimReview.author.image\`. +gffvcraImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (Maybe Text) +gffvcraImageURL + = lens _gffvcraImageURL + (\ s a -> s{_gffvcraImageURL = a}) + +-- | Name of the organization that is publishing the fact check. +-- Corresponds to \`ClaimReview.author.name\`. +gffvcraName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (Maybe Text) +gffvcraName + = lens _gffvcraName (\ s a -> s{_gffvcraName = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' + <$> (o .:? "imageUrl") <*> (o .:? "name")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor'{..} + = object + (catMaybes + [("imageUrl" .=) <$> _gffvcraImageURL, + ("name" .=) <$> _gffvcraName]) + +-- | Response from searching fact-checked claims. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse = + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' + { _gffvfccsrNextPageToken :: !(Maybe Text) + , _gffvfccsrClaims :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1Claim]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvfccsrNextPageToken' +-- +-- * 'gffvfccsrClaims' +googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + :: GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse +googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse = + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' + {_gffvfccsrNextPageToken = Nothing, _gffvfccsrClaims = Nothing} + + +-- | The next pagination token in the Search response. It should be used as +-- the \`page_token\` for the following request. An empty value means no +-- more results. +gffvfccsrNextPageToken :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse (Maybe Text) +gffvfccsrNextPageToken + = lens _gffvfccsrNextPageToken + (\ s a -> s{_gffvfccsrNextPageToken = a}) + +-- | The list of claims and all of their associated information. +gffvfccsrClaims :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse [GoogleFactcheckingFactchecktoolsV1alpha1Claim] +gffvfccsrClaims + = lens _gffvfccsrClaims + (\ s a -> s{_gffvfccsrClaims = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' + <$> + (o .:? "nextPageToken") <*> + (o .:? "claims" .!= mempty)) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _gffvfccsrNextPageToken, + ("claims" .=) <$> _gffvfccsrClaims]) + +-- | A generic empty message that you can re-use to avoid defining duplicated +-- empty messages in your APIs. A typical example is to use it as the +-- request or the response type of an API method. For instance: service Foo +-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The +-- JSON representation for \`Empty\` is empty JSON object \`{}\`. +-- +-- /See:/ 'googleProtobufEmpty' smart constructor. +data GoogleProtobufEmpty = + GoogleProtobufEmpty' + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleProtobufEmpty' with the minimum fields required to make a request. +-- +googleProtobufEmpty + :: GoogleProtobufEmpty +googleProtobufEmpty = GoogleProtobufEmpty' + + +instance FromJSON GoogleProtobufEmpty where + parseJSON + = withObject "GoogleProtobufEmpty" + (\ o -> pure GoogleProtobufEmpty') + +instance ToJSON GoogleProtobufEmpty where + toJSON = const emptyObject + +-- | Information about the publisher. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1Publisher' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1Publisher = + GoogleFactcheckingFactchecktoolsV1alpha1Publisher' + { _gffvpName :: !(Maybe Text) + , _gffvpSite :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1Publisher' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvpName' +-- +-- * 'gffvpSite' +googleFactcheckingFactchecktoolsV1alpha1Publisher + :: GoogleFactcheckingFactchecktoolsV1alpha1Publisher +googleFactcheckingFactchecktoolsV1alpha1Publisher = + GoogleFactcheckingFactchecktoolsV1alpha1Publisher' + {_gffvpName = Nothing, _gffvpSite = Nothing} + + +-- | The name of this publisher. For instance, \"Awesome Fact Checks\". +gffvpName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Publisher (Maybe Text) +gffvpName + = lens _gffvpName (\ s a -> s{_gffvpName = a}) + +-- | Host-level site name, without the protocol or \"www\" prefix. For +-- instance, \"awesomefactchecks.com\". This value of this field is based +-- purely on the claim review URL. +gffvpSite :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Publisher (Maybe Text) +gffvpSite + = lens _gffvpSite (\ s a -> s{_gffvpSite = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1Publisher + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1Publisher" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1Publisher' + <$> (o .:? "name") <*> (o .:? "site")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1Publisher + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1Publisher'{..} + = object + (catMaybes + [("name" .=) <$> _gffvpName, + ("site" .=) <$> _gffvpSite]) + +-- | Information about the claim author. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' + { _gffvcaSameAs :: !(Maybe Text) + , _gffvcaImageURL :: !(Maybe Text) + , _gffvcaName :: !(Maybe Text) + , _gffvcaJobTitle :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcaSameAs' +-- +-- * 'gffvcaImageURL' +-- +-- * 'gffvcaName' +-- +-- * 'gffvcaJobTitle' +googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor +googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' + { _gffvcaSameAs = Nothing + , _gffvcaImageURL = Nothing + , _gffvcaName = Nothing + , _gffvcaJobTitle = Nothing + } + + +-- | Corresponds to \`ClaimReview.itemReviewed.author.sameAs\`. +gffvcaSameAs :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text) +gffvcaSameAs + = lens _gffvcaSameAs (\ s a -> s{_gffvcaSameAs = a}) + +-- | Corresponds to \`ClaimReview.itemReviewed.author.image\`. +gffvcaImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text) +gffvcaImageURL + = lens _gffvcaImageURL + (\ s a -> s{_gffvcaImageURL = a}) + +-- | A person or organization stating the claim. For instance, \"John Doe\". +-- Corresponds to \`ClaimReview.itemReviewed.author.name\`. +gffvcaName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text) +gffvcaName + = lens _gffvcaName (\ s a -> s{_gffvcaName = a}) + +-- | Corresponds to \`ClaimReview.itemReviewed.author.jobTitle\`. +gffvcaJobTitle :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text) +gffvcaJobTitle + = lens _gffvcaJobTitle + (\ s a -> s{_gffvcaJobTitle = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' + <$> + (o .:? "sameAs") <*> (o .:? "imageUrl") <*> + (o .:? "name") + <*> (o .:? "jobTitle")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor'{..} + = object + (catMaybes + [("sameAs" .=) <$> _gffvcaSameAs, + ("imageUrl" .=) <$> _gffvcaImageURL, + ("name" .=) <$> _gffvcaName, + ("jobTitle" .=) <$> _gffvcaJobTitle]) + +-- | Information about a claim review. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimReview' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' + { _gLanguageCode :: !(Maybe Text) + , _gURL :: !(Maybe Text) + , _gTextualRating :: !(Maybe Text) + , _gTitle :: !(Maybe Text) + , _gPublisher :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1Publisher) + , _gReviewDate :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gLanguageCode' +-- +-- * 'gURL' +-- +-- * 'gTextualRating' +-- +-- * 'gTitle' +-- +-- * 'gPublisher' +-- +-- * 'gReviewDate' +googleFactcheckingFactchecktoolsV1alpha1ClaimReview + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview +googleFactcheckingFactchecktoolsV1alpha1ClaimReview = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' + { _gLanguageCode = Nothing + , _gURL = Nothing + , _gTextualRating = Nothing + , _gTitle = Nothing + , _gPublisher = Nothing + , _gReviewDate = Nothing + } + + +-- | The language this review was written in. For instance, \"en\" or \"de\". +gLanguageCode :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text) +gLanguageCode + = lens _gLanguageCode + (\ s a -> s{_gLanguageCode = a}) + +-- | The URL of this claim review. +gURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text) +gURL = lens _gURL (\ s a -> s{_gURL = a}) + +-- | Textual rating. For instance, \"Mostly false\". +gTextualRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text) +gTextualRating + = lens _gTextualRating + (\ s a -> s{_gTextualRating = a}) + +-- | The title of this claim review, if it can be determined. +gTitle :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text) +gTitle = lens _gTitle (\ s a -> s{_gTitle = a}) + +-- | The publisher of this claim review. +gPublisher :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe GoogleFactcheckingFactchecktoolsV1alpha1Publisher) +gPublisher + = lens _gPublisher (\ s a -> s{_gPublisher = a}) + +-- | The date the claim was reviewed. +gReviewDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe UTCTime) +gReviewDate + = lens _gReviewDate (\ s a -> s{_gReviewDate = a}) . + mapping _DateTime + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' + <$> + (o .:? "languageCode") <*> (o .:? "url") <*> + (o .:? "textualRating") + <*> (o .:? "title") + <*> (o .:? "publisher") + <*> (o .:? "reviewDate")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview'{..} + = object + (catMaybes + [("languageCode" .=) <$> _gLanguageCode, + ("url" .=) <$> _gURL, + ("textualRating" .=) <$> _gTextualRating, + ("title" .=) <$> _gTitle, + ("publisher" .=) <$> _gPublisher, + ("reviewDate" .=) <$> _gReviewDate]) + +-- | Fields for an individual \`ClaimReview\` element. Except for +-- sub-messages that group fields together, each of these fields correspond +-- those in https:\/\/schema.org\/ClaimReview. We list the precise mapping +-- for each field. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' + { _gffvcrmRating :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating) + , _gffvcrmClaimAuthor :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor) + , _gffvcrmURL :: !(Maybe Text) + , _gffvcrmClaimAppearances :: !(Maybe [Text]) + , _gffvcrmClaimLocation :: !(Maybe Text) + , _gffvcrmClaimFirstAppearance :: !(Maybe Text) + , _gffvcrmClaimDate :: !(Maybe Text) + , _gffvcrmClaimReviewed :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcrmRating' +-- +-- * 'gffvcrmClaimAuthor' +-- +-- * 'gffvcrmURL' +-- +-- * 'gffvcrmClaimAppearances' +-- +-- * 'gffvcrmClaimLocation' +-- +-- * 'gffvcrmClaimFirstAppearance' +-- +-- * 'gffvcrmClaimDate' +-- +-- * 'gffvcrmClaimReviewed' +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' + { _gffvcrmRating = Nothing + , _gffvcrmClaimAuthor = Nothing + , _gffvcrmURL = Nothing + , _gffvcrmClaimAppearances = Nothing + , _gffvcrmClaimLocation = Nothing + , _gffvcrmClaimFirstAppearance = Nothing + , _gffvcrmClaimDate = Nothing + , _gffvcrmClaimReviewed = Nothing + } + + +-- | Info about the rating of this claim review. +gffvcrmRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating) +gffvcrmRating + = lens _gffvcrmRating + (\ s a -> s{_gffvcrmRating = a}) + +-- | Info about the author of this claim. +gffvcrmClaimAuthor :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor) +gffvcrmClaimAuthor + = lens _gffvcrmClaimAuthor + (\ s a -> s{_gffvcrmClaimAuthor = a}) + +-- | This field is optional, and will default to the page URL. We provide +-- this field to allow you the override the default value, but the only +-- permitted override is the page URL plus an optional anchor link (\"page +-- jump\"). +-- Corresponds to \`ClaimReview.url\` +gffvcrmURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text) +gffvcrmURL + = lens _gffvcrmURL (\ s a -> s{_gffvcrmURL = a}) + +-- | A list of links to works in which this claim appears, aside from the one +-- specified in \`claim_first_appearance\`. +-- Corresponds to +-- \`ClaimReview.itemReviewed[\'type=Claim].appearance.url\`. +gffvcrmClaimAppearances :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup [Text] +gffvcrmClaimAppearances + = lens _gffvcrmClaimAppearances + (\ s a -> s{_gffvcrmClaimAppearances = a}) + . _Default + . _Coerce + +-- | The location where this claim was made. +-- Corresponds to \`ClaimReview.itemReviewed.name\`. +gffvcrmClaimLocation :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text) +gffvcrmClaimLocation + = lens _gffvcrmClaimLocation + (\ s a -> s{_gffvcrmClaimLocation = a}) + +-- | A link to a work in which this claim first appears. +-- Corresponds to +-- \`ClaimReview.itemReviewed[\'type=Claim].firstAppearance.url\`. +gffvcrmClaimFirstAppearance :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text) +gffvcrmClaimFirstAppearance + = lens _gffvcrmClaimFirstAppearance + (\ s a -> s{_gffvcrmClaimFirstAppearance = a}) + +-- | The date when the claim was made or entered public discourse. +-- Corresponds to \`ClaimReview.itemReviewed.datePublished\`. +gffvcrmClaimDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text) +gffvcrmClaimDate + = lens _gffvcrmClaimDate + (\ s a -> s{_gffvcrmClaimDate = a}) + +-- | A short summary of the claim being evaluated. +-- Corresponds to \`ClaimReview.claimReviewed\`. +gffvcrmClaimReviewed :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text) +gffvcrmClaimReviewed + = lens _gffvcrmClaimReviewed + (\ s a -> s{_gffvcrmClaimReviewed = a}) + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' + <$> + (o .:? "rating") <*> (o .:? "claimAuthor") <*> + (o .:? "url") + <*> (o .:? "claimAppearances" .!= mempty) + <*> (o .:? "claimLocation") + <*> (o .:? "claimFirstAppearance") + <*> (o .:? "claimDate") + <*> (o .:? "claimReviewed")) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup'{..} + = object + (catMaybes + [("rating" .=) <$> _gffvcrmRating, + ("claimAuthor" .=) <$> _gffvcrmClaimAuthor, + ("url" .=) <$> _gffvcrmURL, + ("claimAppearances" .=) <$> _gffvcrmClaimAppearances, + ("claimLocation" .=) <$> _gffvcrmClaimLocation, + ("claimFirstAppearance" .=) <$> + _gffvcrmClaimFirstAppearance, + ("claimDate" .=) <$> _gffvcrmClaimDate, + ("claimReviewed" .=) <$> _gffvcrmClaimReviewed]) + +-- | Holds one or more instances of \`ClaimReview\` markup for a webpage. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' + { _gffvcrmpVersionId :: !(Maybe Text) + , _gffvcrmpPublishDate :: !(Maybe Text) + , _gffvcrmpName :: !(Maybe Text) + , _gffvcrmpClaimReviewAuthor :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor) + , _gffvcrmpPageURL :: !(Maybe Text) + , _gffvcrmpClaimReviewMarkups :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvcrmpVersionId' +-- +-- * 'gffvcrmpPublishDate' +-- +-- * 'gffvcrmpName' +-- +-- * 'gffvcrmpClaimReviewAuthor' +-- +-- * 'gffvcrmpPageURL' +-- +-- * 'gffvcrmpClaimReviewMarkups' +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage +googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' + { _gffvcrmpVersionId = Nothing + , _gffvcrmpPublishDate = Nothing + , _gffvcrmpName = Nothing + , _gffvcrmpClaimReviewAuthor = Nothing + , _gffvcrmpPageURL = Nothing + , _gffvcrmpClaimReviewMarkups = Nothing + } + + +-- | The version ID for this markup. Except for update requests, this field +-- is output-only and should not be set by the user. +gffvcrmpVersionId :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text) +gffvcrmpVersionId + = lens _gffvcrmpVersionId + (\ s a -> s{_gffvcrmpVersionId = a}) + +-- | The date when the fact check was published. Similar to the URL, +-- semantically this is a page-level field, and each \`ClaimReview\` on +-- this page will contain the same value. +-- Corresponds to \`ClaimReview.datePublished\` +gffvcrmpPublishDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text) +gffvcrmpPublishDate + = lens _gffvcrmpPublishDate + (\ s a -> s{_gffvcrmpPublishDate = a}) + +-- | The name of this \`ClaimReview\` markup page resource, in the form of +-- \`pages\/{page_id}\`. Except for update requests, this field is +-- output-only and should not be set by the user. +gffvcrmpName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text) +gffvcrmpName + = lens _gffvcrmpName (\ s a -> s{_gffvcrmpName = a}) + +-- | Info about the author of this claim review. Similar to the above, +-- semantically these are page-level fields, and each \`ClaimReview\` on +-- this page will contain the same values. +gffvcrmpClaimReviewAuthor :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor) +gffvcrmpClaimReviewAuthor + = lens _gffvcrmpClaimReviewAuthor + (\ s a -> s{_gffvcrmpClaimReviewAuthor = a}) + +-- | The URL of the page associated with this \`ClaimReview\` markup. While +-- every individual \`ClaimReview\` has its own URL field, semantically +-- this is a page-level field, and each \`ClaimReview\` on this page will +-- use this value unless individually overridden. +-- Corresponds to \`ClaimReview.url\` +gffvcrmpPageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text) +gffvcrmpPageURL + = lens _gffvcrmpPageURL + (\ s a -> s{_gffvcrmpPageURL = a}) + +-- | A list of individual claim reviews for this page. Each item in the list +-- corresponds to one \`ClaimReview\` element. +gffvcrmpClaimReviewMarkups :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup] +gffvcrmpClaimReviewMarkups + = lens _gffvcrmpClaimReviewMarkups + (\ s a -> s{_gffvcrmpClaimReviewMarkups = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' + <$> + (o .:? "versionId") <*> (o .:? "publishDate") <*> + (o .:? "name") + <*> (o .:? "claimReviewAuthor") + <*> (o .:? "pageUrl") + <*> (o .:? "claimReviewMarkups" .!= mempty)) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage'{..} + = object + (catMaybes + [("versionId" .=) <$> _gffvcrmpVersionId, + ("publishDate" .=) <$> _gffvcrmpPublishDate, + ("name" .=) <$> _gffvcrmpName, + ("claimReviewAuthor" .=) <$> + _gffvcrmpClaimReviewAuthor, + ("pageUrl" .=) <$> _gffvcrmpPageURL, + ("claimReviewMarkups" .=) <$> + _gffvcrmpClaimReviewMarkups]) + +-- | Response from listing \`ClaimReview\` markup. +-- +-- /See:/ 'googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' smart constructor. +data GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse = + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' + { _gffvlcrmprNextPageToken :: !(Maybe Text) + , _gffvlcrmprClaimReviewMarkupPages :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gffvlcrmprNextPageToken' +-- +-- * 'gffvlcrmprClaimReviewMarkupPages' +googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + :: GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse +googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse = + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' + { _gffvlcrmprNextPageToken = Nothing + , _gffvlcrmprClaimReviewMarkupPages = Nothing + } + + +-- | The next pagination token in the Search response. It should be used as +-- the \`page_token\` for the following request. An empty value means no +-- more results. +gffvlcrmprNextPageToken :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse (Maybe Text) +gffvlcrmprNextPageToken + = lens _gffvlcrmprNextPageToken + (\ s a -> s{_gffvlcrmprNextPageToken = a}) + +-- | The result list of pages of \`ClaimReview\` markup. +gffvlcrmprClaimReviewMarkupPages :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage] +gffvlcrmprClaimReviewMarkupPages + = lens _gffvlcrmprClaimReviewMarkupPages + (\ s a -> s{_gffvlcrmprClaimReviewMarkupPages = a}) + . _Default + . _Coerce + +instance FromJSON + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + where + parseJSON + = withObject + "GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse" + (\ o -> + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' + <$> + (o .:? "nextPageToken") <*> + (o .:? "claimReviewMarkupPages" .!= mempty)) + +instance ToJSON + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + where + toJSON + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _gffvlcrmprNextPageToken, + ("claimReviewMarkupPages" .=) <$> + _gffvlcrmprClaimReviewMarkupPages]) diff --git a/gen/Network/Google/FactCheckTools/Types/Sum.hs b/gen/Network/Google/FactCheckTools/Types/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/FactCheckTools/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.FactCheckTools.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.FactCheckTools.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/FactCheckTools/Claims/Search.hs b/gen/Network/Google/Resource/FactCheckTools/Claims/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Claims/Search.hs @@ -0,0 +1,236 @@ +{-# 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.FactCheckTools.Claims.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 through fact-checked claims. +-- +-- /See:/ for @factchecktools.claims.search@. +module Network.Google.Resource.FactCheckTools.Claims.Search + ( + -- * REST Resource + ClaimsSearchResource + + -- * Creating a Request + , claimsSearch + , ClaimsSearch + + -- * Request Lenses + , csXgafv + , csLanguageCode + , csUploadProtocol + , csOffSet + , csMaxAgeDays + , csAccessToken + , csUploadType + , csReviewPublisherSiteFilter + , csQuery + , csPageToken + , csPageSize + , csCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.claims.search@ method which the +-- 'ClaimsSearch' request conforms to. +type ClaimsSearchResource = + "v1alpha1" :> + "claims:search" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "languageCode" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "offset" (Textual Int32) :> + QueryParam "maxAgeDays" (Textual Int32) :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "reviewPublisherSiteFilter" Text :> + QueryParam "query" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + +-- | Search through fact-checked claims. +-- +-- /See:/ 'claimsSearch' smart constructor. +data ClaimsSearch = + ClaimsSearch' + { _csXgafv :: !(Maybe Xgafv) + , _csLanguageCode :: !(Maybe Text) + , _csUploadProtocol :: !(Maybe Text) + , _csOffSet :: !(Maybe (Textual Int32)) + , _csMaxAgeDays :: !(Maybe (Textual Int32)) + , _csAccessToken :: !(Maybe Text) + , _csUploadType :: !(Maybe Text) + , _csReviewPublisherSiteFilter :: !(Maybe Text) + , _csQuery :: !(Maybe Text) + , _csPageToken :: !(Maybe Text) + , _csPageSize :: !(Maybe (Textual Int32)) + , _csCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClaimsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csXgafv' +-- +-- * 'csLanguageCode' +-- +-- * 'csUploadProtocol' +-- +-- * 'csOffSet' +-- +-- * 'csMaxAgeDays' +-- +-- * 'csAccessToken' +-- +-- * 'csUploadType' +-- +-- * 'csReviewPublisherSiteFilter' +-- +-- * 'csQuery' +-- +-- * 'csPageToken' +-- +-- * 'csPageSize' +-- +-- * 'csCallback' +claimsSearch + :: ClaimsSearch +claimsSearch = + ClaimsSearch' + { _csXgafv = Nothing + , _csLanguageCode = Nothing + , _csUploadProtocol = Nothing + , _csOffSet = Nothing + , _csMaxAgeDays = Nothing + , _csAccessToken = Nothing + , _csUploadType = Nothing + , _csReviewPublisherSiteFilter = Nothing + , _csQuery = Nothing + , _csPageToken = Nothing + , _csPageSize = Nothing + , _csCallback = Nothing + } + + +-- | V1 error format. +csXgafv :: Lens' ClaimsSearch (Maybe Xgafv) +csXgafv = lens _csXgafv (\ s a -> s{_csXgafv = a}) + +-- | The BCP-47 language code, such as \"en-US\" or \"sr-Latn\". Can be used +-- to restrict results by language, though we do not currently consider the +-- region. +csLanguageCode :: Lens' ClaimsSearch (Maybe Text) +csLanguageCode + = lens _csLanguageCode + (\ s a -> s{_csLanguageCode = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +csUploadProtocol :: Lens' ClaimsSearch (Maybe Text) +csUploadProtocol + = lens _csUploadProtocol + (\ s a -> s{_csUploadProtocol = a}) + +-- | An integer that specifies the current offset (that is, starting result +-- location) in search results. This field is only considered if +-- \`page_token\` is unset. For example, 0 means to return results starting +-- from the first matching result, and 10 means to return from the 11th +-- result. +csOffSet :: Lens' ClaimsSearch (Maybe Int32) +csOffSet + = lens _csOffSet (\ s a -> s{_csOffSet = a}) . + mapping _Coerce + +-- | The maximum age of the returned search results, in days. Age is +-- determined by either claim date or review date, whichever is newer. +csMaxAgeDays :: Lens' ClaimsSearch (Maybe Int32) +csMaxAgeDays + = lens _csMaxAgeDays (\ s a -> s{_csMaxAgeDays = a}) + . mapping _Coerce + +-- | OAuth access token. +csAccessToken :: Lens' ClaimsSearch (Maybe Text) +csAccessToken + = lens _csAccessToken + (\ s a -> s{_csAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +csUploadType :: Lens' ClaimsSearch (Maybe Text) +csUploadType + = lens _csUploadType (\ s a -> s{_csUploadType = a}) + +-- | The review publisher site to filter results by, e.g. nytimes.com. +csReviewPublisherSiteFilter :: Lens' ClaimsSearch (Maybe Text) +csReviewPublisherSiteFilter + = lens _csReviewPublisherSiteFilter + (\ s a -> s{_csReviewPublisherSiteFilter = a}) + +-- | Textual query string. Required unless \`review_publisher_site_filter\` +-- is specified. +csQuery :: Lens' ClaimsSearch (Maybe Text) +csQuery = lens _csQuery (\ s a -> s{_csQuery = a}) + +-- | The pagination token. You may provide the \`next_page_token\` returned +-- from a previous List request, if any, in order to get the next page. All +-- other fields must have the same values as in the previous request. +csPageToken :: Lens' ClaimsSearch (Maybe Text) +csPageToken + = lens _csPageToken (\ s a -> s{_csPageToken = a}) + +-- | The pagination size. We will return up to that many results. Defaults to +-- 10 if not set. +csPageSize :: Lens' ClaimsSearch (Maybe Int32) +csPageSize + = lens _csPageSize (\ s a -> s{_csPageSize = a}) . + mapping _Coerce + +-- | JSONP +csCallback :: Lens' ClaimsSearch (Maybe Text) +csCallback + = lens _csCallback (\ s a -> s{_csCallback = a}) + +instance GoogleRequest ClaimsSearch where + type Rs ClaimsSearch = + GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse + type Scopes ClaimsSearch = '[] + requestClient ClaimsSearch'{..} + = go _csXgafv _csLanguageCode _csUploadProtocol + _csOffSet + _csMaxAgeDays + _csAccessToken + _csUploadType + _csReviewPublisherSiteFilter + _csQuery + _csPageToken + _csPageSize + _csCallback + (Just AltJSON) + factCheckToolsService + where go + = buildClient (Proxy :: Proxy ClaimsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/FactCheckTools/Pages/Create.hs b/gen/Network/Google/Resource/FactCheckTools/Pages/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Pages/Create.hs @@ -0,0 +1,153 @@ +{-# 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.FactCheckTools.Pages.Create +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Create \`ClaimReview\` markup on a page. +-- +-- /See:/ for @factchecktools.pages.create@. +module Network.Google.Resource.FactCheckTools.Pages.Create + ( + -- * REST Resource + PagesCreateResource + + -- * Creating a Request + , pagesCreate + , PagesCreate + + -- * Request Lenses + , pcXgafv + , pcUploadProtocol + , pcAccessToken + , pcUploadType + , pcPayload + , pcCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.pages.create@ method which the +-- 'PagesCreate' request conforms to. +type PagesCreateResource = + "v1alpha1" :> + "pages" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + :> + Post '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + +-- | Create \`ClaimReview\` markup on a page. +-- +-- /See:/ 'pagesCreate' smart constructor. +data PagesCreate = + PagesCreate' + { _pcXgafv :: !(Maybe Xgafv) + , _pcUploadProtocol :: !(Maybe Text) + , _pcAccessToken :: !(Maybe Text) + , _pcUploadType :: !(Maybe Text) + , _pcPayload :: !GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , _pcCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PagesCreate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcXgafv' +-- +-- * 'pcUploadProtocol' +-- +-- * 'pcAccessToken' +-- +-- * 'pcUploadType' +-- +-- * 'pcPayload' +-- +-- * 'pcCallback' +pagesCreate + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage -- ^ 'pcPayload' + -> PagesCreate +pagesCreate pPcPayload_ = + PagesCreate' + { _pcXgafv = Nothing + , _pcUploadProtocol = Nothing + , _pcAccessToken = Nothing + , _pcUploadType = Nothing + , _pcPayload = pPcPayload_ + , _pcCallback = Nothing + } + + +-- | V1 error format. +pcXgafv :: Lens' PagesCreate (Maybe Xgafv) +pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pcUploadProtocol :: Lens' PagesCreate (Maybe Text) +pcUploadProtocol + = lens _pcUploadProtocol + (\ s a -> s{_pcUploadProtocol = a}) + +-- | OAuth access token. +pcAccessToken :: Lens' PagesCreate (Maybe Text) +pcAccessToken + = lens _pcAccessToken + (\ s a -> s{_pcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pcUploadType :: Lens' PagesCreate (Maybe Text) +pcUploadType + = lens _pcUploadType (\ s a -> s{_pcUploadType = a}) + +-- | Multipart request metadata. +pcPayload :: Lens' PagesCreate GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage +pcPayload + = lens _pcPayload (\ s a -> s{_pcPayload = a}) + +-- | JSONP +pcCallback :: Lens' PagesCreate (Maybe Text) +pcCallback + = lens _pcCallback (\ s a -> s{_pcCallback = a}) + +instance GoogleRequest PagesCreate where + type Rs PagesCreate = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + type Scopes PagesCreate = + '["https://www.googleapis.com/auth/userinfo.email"] + requestClient PagesCreate'{..} + = go _pcXgafv _pcUploadProtocol _pcAccessToken + _pcUploadType + _pcCallback + (Just AltJSON) + _pcPayload + factCheckToolsService + where go + = buildClient (Proxy :: Proxy PagesCreateResource) + mempty diff --git a/gen/Network/Google/Resource/FactCheckTools/Pages/Delete.hs b/gen/Network/Google/Resource/FactCheckTools/Pages/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Pages/Delete.hs @@ -0,0 +1,147 @@ +{-# 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.FactCheckTools.Pages.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Delete all \`ClaimReview\` markup on a page. +-- +-- /See:/ for @factchecktools.pages.delete@. +module Network.Google.Resource.FactCheckTools.Pages.Delete + ( + -- * REST Resource + PagesDeleteResource + + -- * Creating a Request + , pagesDelete + , PagesDelete + + -- * Request Lenses + , pdXgafv + , pdUploadProtocol + , pdAccessToken + , pdUploadType + , pdName + , pdCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.pages.delete@ method which the +-- 'PagesDelete' request conforms to. +type PagesDeleteResource = + "v1alpha1" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] GoogleProtobufEmpty + +-- | Delete all \`ClaimReview\` markup on a page. +-- +-- /See:/ 'pagesDelete' smart constructor. +data PagesDelete = + PagesDelete' + { _pdXgafv :: !(Maybe Xgafv) + , _pdUploadProtocol :: !(Maybe Text) + , _pdAccessToken :: !(Maybe Text) + , _pdUploadType :: !(Maybe Text) + , _pdName :: !Text + , _pdCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PagesDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pdXgafv' +-- +-- * 'pdUploadProtocol' +-- +-- * 'pdAccessToken' +-- +-- * 'pdUploadType' +-- +-- * 'pdName' +-- +-- * 'pdCallback' +pagesDelete + :: Text -- ^ 'pdName' + -> PagesDelete +pagesDelete pPdName_ = + PagesDelete' + { _pdXgafv = Nothing + , _pdUploadProtocol = Nothing + , _pdAccessToken = Nothing + , _pdUploadType = Nothing + , _pdName = pPdName_ + , _pdCallback = Nothing + } + + +-- | V1 error format. +pdXgafv :: Lens' PagesDelete (Maybe Xgafv) +pdXgafv = lens _pdXgafv (\ s a -> s{_pdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pdUploadProtocol :: Lens' PagesDelete (Maybe Text) +pdUploadProtocol + = lens _pdUploadProtocol + (\ s a -> s{_pdUploadProtocol = a}) + +-- | OAuth access token. +pdAccessToken :: Lens' PagesDelete (Maybe Text) +pdAccessToken + = lens _pdAccessToken + (\ s a -> s{_pdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pdUploadType :: Lens' PagesDelete (Maybe Text) +pdUploadType + = lens _pdUploadType (\ s a -> s{_pdUploadType = a}) + +-- | The name of the resource to delete, in the form of \`pages\/{page_id}\`. +pdName :: Lens' PagesDelete Text +pdName = lens _pdName (\ s a -> s{_pdName = a}) + +-- | JSONP +pdCallback :: Lens' PagesDelete (Maybe Text) +pdCallback + = lens _pdCallback (\ s a -> s{_pdCallback = a}) + +instance GoogleRequest PagesDelete where + type Rs PagesDelete = GoogleProtobufEmpty + type Scopes PagesDelete = + '["https://www.googleapis.com/auth/userinfo.email"] + requestClient PagesDelete'{..} + = go _pdName _pdXgafv _pdUploadProtocol + _pdAccessToken + _pdUploadType + _pdCallback + (Just AltJSON) + factCheckToolsService + where go + = buildClient (Proxy :: Proxy PagesDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/FactCheckTools/Pages/Get.hs b/gen/Network/Google/Resource/FactCheckTools/Pages/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Pages/Get.hs @@ -0,0 +1,149 @@ +{-# 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.FactCheckTools.Pages.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Get all \`ClaimReview\` markup on a page. +-- +-- /See:/ for @factchecktools.pages.get@. +module Network.Google.Resource.FactCheckTools.Pages.Get + ( + -- * REST Resource + PagesGetResource + + -- * Creating a Request + , pagesGet + , PagesGet + + -- * Request Lenses + , pgXgafv + , pgUploadProtocol + , pgAccessToken + , pgUploadType + , pgName + , pgCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.pages.get@ method which the +-- 'PagesGet' request conforms to. +type PagesGetResource = + "v1alpha1" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + +-- | Get all \`ClaimReview\` markup on a page. +-- +-- /See:/ 'pagesGet' smart constructor. +data PagesGet = + PagesGet' + { _pgXgafv :: !(Maybe Xgafv) + , _pgUploadProtocol :: !(Maybe Text) + , _pgAccessToken :: !(Maybe Text) + , _pgUploadType :: !(Maybe Text) + , _pgName :: !Text + , _pgCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PagesGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pgXgafv' +-- +-- * 'pgUploadProtocol' +-- +-- * 'pgAccessToken' +-- +-- * 'pgUploadType' +-- +-- * 'pgName' +-- +-- * 'pgCallback' +pagesGet + :: Text -- ^ 'pgName' + -> PagesGet +pagesGet pPgName_ = + PagesGet' + { _pgXgafv = Nothing + , _pgUploadProtocol = Nothing + , _pgAccessToken = Nothing + , _pgUploadType = Nothing + , _pgName = pPgName_ + , _pgCallback = Nothing + } + + +-- | V1 error format. +pgXgafv :: Lens' PagesGet (Maybe Xgafv) +pgXgafv = lens _pgXgafv (\ s a -> s{_pgXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pgUploadProtocol :: Lens' PagesGet (Maybe Text) +pgUploadProtocol + = lens _pgUploadProtocol + (\ s a -> s{_pgUploadProtocol = a}) + +-- | OAuth access token. +pgAccessToken :: Lens' PagesGet (Maybe Text) +pgAccessToken + = lens _pgAccessToken + (\ s a -> s{_pgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pgUploadType :: Lens' PagesGet (Maybe Text) +pgUploadType + = lens _pgUploadType (\ s a -> s{_pgUploadType = a}) + +-- | The name of the resource to get, in the form of \`pages\/{page_id}\`. +pgName :: Lens' PagesGet Text +pgName = lens _pgName (\ s a -> s{_pgName = a}) + +-- | JSONP +pgCallback :: Lens' PagesGet (Maybe Text) +pgCallback + = lens _pgCallback (\ s a -> s{_pgCallback = a}) + +instance GoogleRequest PagesGet where + type Rs PagesGet = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + type Scopes PagesGet = + '["https://www.googleapis.com/auth/userinfo.email"] + requestClient PagesGet'{..} + = go _pgName _pgXgafv _pgUploadProtocol + _pgAccessToken + _pgUploadType + _pgCallback + (Just AltJSON) + factCheckToolsService + where go + = buildClient (Proxy :: Proxy PagesGetResource) + mempty diff --git a/gen/Network/Google/Resource/FactCheckTools/Pages/List.hs b/gen/Network/Google/Resource/FactCheckTools/Pages/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Pages/List.hs @@ -0,0 +1,213 @@ +{-# 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.FactCheckTools.Pages.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- List the \`ClaimReview\` markup pages for a specific URL or for an +-- organization. +-- +-- /See:/ for @factchecktools.pages.list@. +module Network.Google.Resource.FactCheckTools.Pages.List + ( + -- * REST Resource + PagesListResource + + -- * Creating a Request + , pagesList + , PagesList + + -- * Request Lenses + , plXgafv + , plUploadProtocol + , plOffSet + , plAccessToken + , plURL + , plUploadType + , plPageToken + , plOrganization + , plPageSize + , plCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.pages.list@ method which the +-- 'PagesList' request conforms to. +type PagesListResource = + "v1alpha1" :> + "pages" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "offset" (Textual Int32) :> + QueryParam "access_token" Text :> + QueryParam "url" Text :> + QueryParam "uploadType" Text :> + QueryParam "pageToken" Text :> + QueryParam "organization" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + +-- | List the \`ClaimReview\` markup pages for a specific URL or for an +-- organization. +-- +-- /See:/ 'pagesList' smart constructor. +data PagesList = + PagesList' + { _plXgafv :: !(Maybe Xgafv) + , _plUploadProtocol :: !(Maybe Text) + , _plOffSet :: !(Maybe (Textual Int32)) + , _plAccessToken :: !(Maybe Text) + , _plURL :: !(Maybe Text) + , _plUploadType :: !(Maybe Text) + , _plPageToken :: !(Maybe Text) + , _plOrganization :: !(Maybe Text) + , _plPageSize :: !(Maybe (Textual Int32)) + , _plCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PagesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plXgafv' +-- +-- * 'plUploadProtocol' +-- +-- * 'plOffSet' +-- +-- * 'plAccessToken' +-- +-- * 'plURL' +-- +-- * 'plUploadType' +-- +-- * 'plPageToken' +-- +-- * 'plOrganization' +-- +-- * 'plPageSize' +-- +-- * 'plCallback' +pagesList + :: PagesList +pagesList = + PagesList' + { _plXgafv = Nothing + , _plUploadProtocol = Nothing + , _plOffSet = Nothing + , _plAccessToken = Nothing + , _plURL = Nothing + , _plUploadType = Nothing + , _plPageToken = Nothing + , _plOrganization = Nothing + , _plPageSize = Nothing + , _plCallback = Nothing + } + + +-- | V1 error format. +plXgafv :: Lens' PagesList (Maybe Xgafv) +plXgafv = lens _plXgafv (\ s a -> s{_plXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +plUploadProtocol :: Lens' PagesList (Maybe Text) +plUploadProtocol + = lens _plUploadProtocol + (\ s a -> s{_plUploadProtocol = a}) + +-- | An integer that specifies the current offset (that is, starting result +-- location) in search results. This field is only considered if +-- \`page_token\` is unset, and if the request is not for a specific URL. +-- For example, 0 means to return results starting from the first matching +-- result, and 10 means to return from the 11th result. +plOffSet :: Lens' PagesList (Maybe Int32) +plOffSet + = lens _plOffSet (\ s a -> s{_plOffSet = a}) . + mapping _Coerce + +-- | OAuth access token. +plAccessToken :: Lens' PagesList (Maybe Text) +plAccessToken + = lens _plAccessToken + (\ s a -> s{_plAccessToken = a}) + +-- | The URL from which to get \`ClaimReview\` markup. There will be at most +-- one result. If markup is associated with a more canonical version of the +-- URL provided, we will return that URL instead. Cannot be specified along +-- with an organization. +plURL :: Lens' PagesList (Maybe Text) +plURL = lens _plURL (\ s a -> s{_plURL = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +plUploadType :: Lens' PagesList (Maybe Text) +plUploadType + = lens _plUploadType (\ s a -> s{_plUploadType = a}) + +-- | The pagination token. You may provide the \`next_page_token\` returned +-- from a previous List request, if any, in order to get the next page. All +-- other fields must have the same values as in the previous request. +plPageToken :: Lens' PagesList (Maybe Text) +plPageToken + = lens _plPageToken (\ s a -> s{_plPageToken = a}) + +-- | The organization for which we want to fetch markups for. For instance, +-- \"site.com\". Cannot be specified along with an URL. +plOrganization :: Lens' PagesList (Maybe Text) +plOrganization + = lens _plOrganization + (\ s a -> s{_plOrganization = a}) + +-- | The pagination size. We will return up to that many results. Defaults to +-- 10 if not set. Has no effect if a URL is requested. +plPageSize :: Lens' PagesList (Maybe Int32) +plPageSize + = lens _plPageSize (\ s a -> s{_plPageSize = a}) . + mapping _Coerce + +-- | JSONP +plCallback :: Lens' PagesList (Maybe Text) +plCallback + = lens _plCallback (\ s a -> s{_plCallback = a}) + +instance GoogleRequest PagesList where + type Rs PagesList = + GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse + type Scopes PagesList = + '["https://www.googleapis.com/auth/userinfo.email"] + requestClient PagesList'{..} + = go _plXgafv _plUploadProtocol _plOffSet + _plAccessToken + _plURL + _plUploadType + _plPageToken + _plOrganization + _plPageSize + _plCallback + (Just AltJSON) + factCheckToolsService + where go + = buildClient (Proxy :: Proxy PagesListResource) + mempty diff --git a/gen/Network/Google/Resource/FactCheckTools/Pages/Update.hs b/gen/Network/Google/Resource/FactCheckTools/Pages/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/FactCheckTools/Pages/Update.hs @@ -0,0 +1,172 @@ +{-# 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.FactCheckTools.Pages.Update +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update for all \`ClaimReview\` markup on a page Note that this is a full +-- update. To retain the existing \`ClaimReview\` markup on a page, first +-- perform a Get operation, then modify the returned markup, and finally +-- call Update with the entire \`ClaimReview\` markup as the body. +-- +-- /See:/ for @factchecktools.pages.update@. +module Network.Google.Resource.FactCheckTools.Pages.Update + ( + -- * REST Resource + PagesUpdateResource + + -- * Creating a Request + , pagesUpdate + , PagesUpdate + + -- * Request Lenses + , puXgafv + , puUploadProtocol + , puAccessToken + , puUploadType + , puPayload + , puName + , puCallback + ) where + +import Network.Google.FactCheckTools.Types +import Network.Google.Prelude + +-- | A resource alias for @factchecktools.pages.update@ method which the +-- 'PagesUpdate' request conforms to. +type PagesUpdateResource = + "v1alpha1" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + :> + Put '[JSON] + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + +-- | Update for all \`ClaimReview\` markup on a page Note that this is a full +-- update. To retain the existing \`ClaimReview\` markup on a page, first +-- perform a Get operation, then modify the returned markup, and finally +-- call Update with the entire \`ClaimReview\` markup as the body. +-- +-- /See:/ 'pagesUpdate' smart constructor. +data PagesUpdate = + PagesUpdate' + { _puXgafv :: !(Maybe Xgafv) + , _puUploadProtocol :: !(Maybe Text) + , _puAccessToken :: !(Maybe Text) + , _puUploadType :: !(Maybe Text) + , _puPayload :: !GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + , _puName :: !Text + , _puCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PagesUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'puXgafv' +-- +-- * 'puUploadProtocol' +-- +-- * 'puAccessToken' +-- +-- * 'puUploadType' +-- +-- * 'puPayload' +-- +-- * 'puName' +-- +-- * 'puCallback' +pagesUpdate + :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage -- ^ 'puPayload' + -> Text -- ^ 'puName' + -> PagesUpdate +pagesUpdate pPuPayload_ pPuName_ = + PagesUpdate' + { _puXgafv = Nothing + , _puUploadProtocol = Nothing + , _puAccessToken = Nothing + , _puUploadType = Nothing + , _puPayload = pPuPayload_ + , _puName = pPuName_ + , _puCallback = Nothing + } + + +-- | V1 error format. +puXgafv :: Lens' PagesUpdate (Maybe Xgafv) +puXgafv = lens _puXgafv (\ s a -> s{_puXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +puUploadProtocol :: Lens' PagesUpdate (Maybe Text) +puUploadProtocol + = lens _puUploadProtocol + (\ s a -> s{_puUploadProtocol = a}) + +-- | OAuth access token. +puAccessToken :: Lens' PagesUpdate (Maybe Text) +puAccessToken + = lens _puAccessToken + (\ s a -> s{_puAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +puUploadType :: Lens' PagesUpdate (Maybe Text) +puUploadType + = lens _puUploadType (\ s a -> s{_puUploadType = a}) + +-- | Multipart request metadata. +puPayload :: Lens' PagesUpdate GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage +puPayload + = lens _puPayload (\ s a -> s{_puPayload = a}) + +-- | The name of this \`ClaimReview\` markup page resource, in the form of +-- \`pages\/{page_id}\`. Except for update requests, this field is +-- output-only and should not be set by the user. +puName :: Lens' PagesUpdate Text +puName = lens _puName (\ s a -> s{_puName = a}) + +-- | JSONP +puCallback :: Lens' PagesUpdate (Maybe Text) +puCallback + = lens _puCallback (\ s a -> s{_puCallback = a}) + +instance GoogleRequest PagesUpdate where + type Rs PagesUpdate = + GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage + type Scopes PagesUpdate = + '["https://www.googleapis.com/auth/userinfo.email"] + requestClient PagesUpdate'{..} + = go _puName _puXgafv _puUploadProtocol + _puAccessToken + _puUploadType + _puCallback + (Just AltJSON) + _puPayload + factCheckToolsService + where go + = buildClient (Proxy :: Proxy PagesUpdateResource) + mempty diff --git a/gogol-factchecktools.cabal b/gogol-factchecktools.cabal new file mode 100644 --- /dev/null +++ b/gogol-factchecktools.cabal @@ -0,0 +1,51 @@ +name: gogol-factchecktools +version: 0.5.0 +synopsis: Google Fact Check Tools 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: + + . + /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 @v1alpha1@ + 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.FactCheckTools + , Network.Google.FactCheckTools.Types + , Network.Google.Resource.FactCheckTools.Claims.Search + , Network.Google.Resource.FactCheckTools.Pages.Create + , Network.Google.Resource.FactCheckTools.Pages.Delete + , Network.Google.Resource.FactCheckTools.Pages.Get + , Network.Google.Resource.FactCheckTools.Pages.List + , Network.Google.Resource.FactCheckTools.Pages.Update + + other-modules: + Network.Google.FactCheckTools.Types.Product + , Network.Google.FactCheckTools.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