gogol-factchecktools 0.5.0 → 1.0.0

raw patch · 24 files changed

+1998/−2389 lines, 24 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

README.md +1/−1
Setup.hs +2/−1
gen/Gogol/FactCheckTools.hs +140/−0
gen/Gogol/FactCheckTools/Claims/ImageSearch.hs +130/−0
gen/Gogol/FactCheckTools/Claims/Search.hs +140/−0
gen/Gogol/FactCheckTools/Internal/Product.hs +773/−0
gen/Gogol/FactCheckTools/Internal/Sum.hs +63/−0
gen/Gogol/FactCheckTools/Pages/Create.hs +116/−0
gen/Gogol/FactCheckTools/Pages/Delete.hs +109/−0
gen/Gogol/FactCheckTools/Pages/Get.hs +111/−0
gen/Gogol/FactCheckTools/Pages/List.hs +130/−0
gen/Gogol/FactCheckTools/Pages/Update.hs +122/−0
gen/Gogol/FactCheckTools/Types.hs +105/−0
gen/Network/Google/FactCheckTools.hs +0/−160
gen/Network/Google/FactCheckTools/Types.hs +0/−127
gen/Network/Google/FactCheckTools/Types/Product.hs +0/−941
gen/Network/Google/FactCheckTools/Types/Sum.hs +0/−48
gen/Network/Google/Resource/FactCheckTools/Claims/Search.hs +0/−236
gen/Network/Google/Resource/FactCheckTools/Pages/Create.hs +0/−153
gen/Network/Google/Resource/FactCheckTools/Pages/Delete.hs +0/−147
gen/Network/Google/Resource/FactCheckTools/Pages/Get.hs +0/−149
gen/Network/Google/Resource/FactCheckTools/Pages/List.hs +0/−213
gen/Network/Google/Resource/FactCheckTools/Pages/Update.hs +0/−172
gogol-factchecktools.cabal +56/−41

README.md view

@@ -8,7 +8,7 @@  ## Version -`0.5.0`+`1.0.0`   ## Description

Setup.hs view

@@ -1,2 +1,3 @@-import           Distribution.Simple+import Distribution.Simple+ main = defaultMain

+ gen/Gogol/FactCheckTools.hs view

@@ -0,0 +1,140 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+--+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference>+module Gogol.FactCheckTools+  ( -- * Configuration+    factCheckToolsService,++    -- * OAuth Scopes+    Factchecktools'FullControl,++    -- * Resources++    -- ** factchecktools.claims.imageSearch+    FactCheckToolsClaimsImageSearchResource,+    FactCheckToolsClaimsImageSearch (..),+    newFactCheckToolsClaimsImageSearch,++    -- ** factchecktools.claims.search+    FactCheckToolsClaimsSearchResource,+    FactCheckToolsClaimsSearch (..),+    newFactCheckToolsClaimsSearch,++    -- ** factchecktools.pages.create+    FactCheckToolsPagesCreateResource,+    FactCheckToolsPagesCreate (..),+    newFactCheckToolsPagesCreate,++    -- ** factchecktools.pages.delete+    FactCheckToolsPagesDeleteResource,+    FactCheckToolsPagesDelete (..),+    newFactCheckToolsPagesDelete,++    -- ** factchecktools.pages.get+    FactCheckToolsPagesGetResource,+    FactCheckToolsPagesGet (..),+    newFactCheckToolsPagesGet,++    -- ** factchecktools.pages.list+    FactCheckToolsPagesListResource,+    FactCheckToolsPagesList (..),+    newFactCheckToolsPagesList,++    -- ** factchecktools.pages.update+    FactCheckToolsPagesUpdateResource,+    FactCheckToolsPagesUpdate (..),+    newFactCheckToolsPagesUpdate,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1Claim+    GoogleFactcheckingFactchecktoolsV1alpha1Claim (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Claim,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1Publisher+    GoogleFactcheckingFactchecktoolsV1alpha1Publisher (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Publisher,++    -- ** GoogleProtobufEmpty+    GoogleProtobufEmpty (..),+    newGoogleProtobufEmpty,+  )+where++import Gogol.FactCheckTools.Claims.ImageSearch+import Gogol.FactCheckTools.Claims.Search+import Gogol.FactCheckTools.Pages.Create+import Gogol.FactCheckTools.Pages.Delete+import Gogol.FactCheckTools.Pages.Get+import Gogol.FactCheckTools.Pages.List+import Gogol.FactCheckTools.Pages.Update+import Gogol.FactCheckTools.Types

+ gen/Gogol/FactCheckTools/Claims/ImageSearch.hs view

@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Claims.ImageSearch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Search through fact-checked claims using an image as the query.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.claims.imageSearch@.+module Gogol.FactCheckTools.Claims.ImageSearch+  ( -- * Resource+    FactCheckToolsClaimsImageSearchResource,++    -- ** Constructing a Request+    FactCheckToolsClaimsImageSearch (..),+    newFactCheckToolsClaimsImageSearch,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.claims.imageSearch@ method which the+-- 'FactCheckToolsClaimsImageSearch' request conforms to.+type FactCheckToolsClaimsImageSearchResource =+  "v1alpha1"+    Core.:> "claims:imageSearch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "imageUri" Core.Text+    Core.:> Core.QueryParam "languageCode" Core.Text+    Core.:> Core.QueryParam "offset" Core.Int32+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse++-- | Search through fact-checked claims using an image as the query.+--+-- /See:/ 'newFactCheckToolsClaimsImageSearch' smart constructor.+data FactCheckToolsClaimsImageSearch = FactCheckToolsClaimsImageSearch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The URI of the source image. This must be a publicly-accessible image HTTP\/HTTPS URL. When fetching images from HTTP\/HTTPS URLs, Google cannot guarantee that the request will be completed. Your request may fail if the specified host denies the request (e.g. due to request throttling or DOS prevention), or if Google throttles requests to the site for abuse prevention. You should not depend on externally-hosted images for production applications.+    imageUri :: (Core.Maybe Core.Text),+    -- | Optional. 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.+    languageCode :: (Core.Maybe Core.Text),+    -- | Optional. 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.+    offset :: (Core.Maybe Core.Int32),+    -- | Optional. The pagination size. We will return up to that many results. Defaults to 10 if not set.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Optional. 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.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsClaimsImageSearch' with the minimum fields required to make a request.+newFactCheckToolsClaimsImageSearch ::+  FactCheckToolsClaimsImageSearch+newFactCheckToolsClaimsImageSearch =+  FactCheckToolsClaimsImageSearch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      imageUri = Core.Nothing,+      languageCode = Core.Nothing,+      offset = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsClaimsImageSearch where+  type+    Rs FactCheckToolsClaimsImageSearch =+      GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+  type Scopes FactCheckToolsClaimsImageSearch = '[]+  requestClient FactCheckToolsClaimsImageSearch {..} =+    go+      xgafv+      accessToken+      callback+      imageUri+      languageCode+      offset+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsClaimsImageSearchResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Claims/Search.hs view

@@ -0,0 +1,140 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Claims.Search+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Search through fact-checked claims.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.claims.search@.+module Gogol.FactCheckTools.Claims.Search+  ( -- * Resource+    FactCheckToolsClaimsSearchResource,++    -- ** Constructing a Request+    FactCheckToolsClaimsSearch (..),+    newFactCheckToolsClaimsSearch,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.claims.search@ method which the+-- 'FactCheckToolsClaimsSearch' request conforms to.+type FactCheckToolsClaimsSearchResource =+  "v1alpha1"+    Core.:> "claims:search"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "languageCode" Core.Text+    Core.:> Core.QueryParam "maxAgeDays" Core.Int32+    Core.:> Core.QueryParam "offset" Core.Int32+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "reviewPublisherSiteFilter" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse++-- | Search through fact-checked claims.+--+-- /See:/ 'newFactCheckToolsClaimsSearch' smart constructor.+data FactCheckToolsClaimsSearch = FactCheckToolsClaimsSearch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | 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.+    languageCode :: (Core.Maybe Core.Text),+    -- | The maximum age of the returned search results, in days. Age is determined by either claim date or review date, whichever is newer.+    maxAgeDays :: (Core.Maybe Core.Int32),+    -- | 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.+    offset :: (Core.Maybe Core.Int32),+    -- | The pagination size. We will return up to that many results. Defaults to 10 if not set.+    pageSize :: (Core.Maybe Core.Int32),+    -- | 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.+    pageToken :: (Core.Maybe Core.Text),+    -- | Textual query string. Required unless @review_publisher_site_filter@ is specified.+    query :: (Core.Maybe Core.Text),+    -- | The review publisher site to filter results by, e.g. nytimes.com.+    reviewPublisherSiteFilter :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsClaimsSearch' with the minimum fields required to make a request.+newFactCheckToolsClaimsSearch ::+  FactCheckToolsClaimsSearch+newFactCheckToolsClaimsSearch =+  FactCheckToolsClaimsSearch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      languageCode = Core.Nothing,+      maxAgeDays = Core.Nothing,+      offset = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      query = Core.Nothing,+      reviewPublisherSiteFilter = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsClaimsSearch where+  type+    Rs FactCheckToolsClaimsSearch =+      GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+  type Scopes FactCheckToolsClaimsSearch = '[]+  requestClient FactCheckToolsClaimsSearch {..} =+    go+      xgafv+      accessToken+      callback+      languageCode+      maxAgeDays+      offset+      pageSize+      pageToken+      query+      reviewPublisherSiteFilter+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsClaimsSearchResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Internal/Product.hs view

@@ -0,0 +1,773 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Internal.Product+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.FactCheckTools.Internal.Product+  ( -- * GoogleFactcheckingFactchecktoolsV1alpha1Claim+    GoogleFactcheckingFactchecktoolsV1alpha1Claim (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Claim,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse,++    -- * GoogleFactcheckingFactchecktoolsV1alpha1Publisher+    GoogleFactcheckingFactchecktoolsV1alpha1Publisher (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Publisher,++    -- * GoogleProtobufEmpty+    GoogleProtobufEmpty (..),+    newGoogleProtobufEmpty,+  )+where++import Gogol.FactCheckTools.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Information about the claim.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1Claim' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1Claim = GoogleFactcheckingFactchecktoolsV1alpha1Claim+  { -- | The date that the claim was made.+    claimDate :: (Core.Maybe Core.DateTime),+    -- | One or more reviews of this claim (namely, a fact-checking article).+    claimReview :: (Core.Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview]),+    -- | A person or organization stating the claim. For instance, \"John Doe\".+    claimant :: (Core.Maybe Core.Text),+    -- | The claim text. For instance, \"Crime has doubled in the last 2 years.\"+    text :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1Claim' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1Claim ::+  GoogleFactcheckingFactchecktoolsV1alpha1Claim+newGoogleFactcheckingFactchecktoolsV1alpha1Claim =+  GoogleFactcheckingFactchecktoolsV1alpha1Claim+    { claimDate =+        Core.Nothing,+      claimReview = Core.Nothing,+      claimant = Core.Nothing,+      text = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1Claim+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1Claim"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1Claim+            Core.<$> (o Core..:? "claimDate")+            Core.<*> (o Core..:? "claimReview")+            Core.<*> (o Core..:? "claimant")+            Core.<*> (o Core..:? "text")+      )++instance Core.ToJSON GoogleFactcheckingFactchecktoolsV1alpha1Claim where+  toJSON GoogleFactcheckingFactchecktoolsV1alpha1Claim {..} =+    Core.object+      ( Core.catMaybes+          [ ("claimDate" Core..=) Core.<$> claimDate,+            ("claimReview" Core..=) Core.<$> claimReview,+            ("claimant" Core..=) Core.<$> claimant,+            ("text" Core..=) Core.<$> text+          ]+      )++-- | Information about the claim author.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor = GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+  { -- | Corresponds to @ClaimReview.itemReviewed.author.image@.+    imageUrl :: (Core.Maybe Core.Text),+    -- | Corresponds to @ClaimReview.itemReviewed.author.jobTitle@.+    jobTitle :: (Core.Maybe Core.Text),+    -- | A person or organization stating the claim. For instance, \"John Doe\". Corresponds to @ClaimReview.itemReviewed.author.name@.+    name :: (Core.Maybe Core.Text),+    -- | Corresponds to @ClaimReview.itemReviewed.author.sameAs@.+    sameAs :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+    { imageUrl =+        Core.Nothing,+      jobTitle = Core.Nothing,+      name = Core.Nothing,+      sameAs = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+            Core.<$> (o Core..:? "imageUrl")+            Core.<*> (o Core..:? "jobTitle")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "sameAs")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+  where+  toJSON GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor {..} =+    Core.object+      ( Core.catMaybes+          [ ("imageUrl" Core..=) Core.<$> imageUrl,+            ("jobTitle" Core..=) Core.<$> jobTitle,+            ("name" Core..=) Core.<$> name,+            ("sameAs" Core..=) Core.<$> sameAs+          ]+      )++-- | Information about the claim rating.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating = GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+  { -- | For numeric ratings, the best value possible in the scale from worst to best. Corresponds to @ClaimReview.reviewRating.bestRating@.+    bestRating :: (Core.Maybe Core.Int32),+    -- | Corresponds to @ClaimReview.reviewRating.image@.+    imageUrl :: (Core.Maybe Core.Text),+    -- | Corresponds to @ClaimReview.reviewRating.ratingExplanation@.+    ratingExplanation :: (Core.Maybe Core.Text),+    -- | A numeric rating of this claim, in the range worstRating — bestRating inclusive. Corresponds to @ClaimReview.reviewRating.ratingValue@.+    ratingValue :: (Core.Maybe Core.Int32),+    -- | The truthfulness rating as a human-readible short word or phrase. Corresponds to @ClaimReview.reviewRating.alternateName@.+    textualRating :: (Core.Maybe Core.Text),+    -- | For numeric ratings, the worst value possible in the scale from worst to best. Corresponds to @ClaimReview.reviewRating.worstRating@.+    worstRating :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+    { bestRating =+        Core.Nothing,+      imageUrl = Core.Nothing,+      ratingExplanation = Core.Nothing,+      ratingValue = Core.Nothing,+      textualRating = Core.Nothing,+      worstRating = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+            Core.<$> (o Core..:? "bestRating")+            Core.<*> (o Core..:? "imageUrl")+            Core.<*> (o Core..:? "ratingExplanation")+            Core.<*> (o Core..:? "ratingValue")+            Core.<*> (o Core..:? "textualRating")+            Core.<*> (o Core..:? "worstRating")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+  where+  toJSON GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating {..} =+    Core.object+      ( Core.catMaybes+          [ ("bestRating" Core..=) Core.<$> bestRating,+            ("imageUrl" Core..=) Core.<$> imageUrl,+            ("ratingExplanation" Core..=) Core.<$> ratingExplanation,+            ("ratingValue" Core..=) Core.<$> ratingValue,+            ("textualRating" Core..=) Core.<$> textualRating,+            ("worstRating" Core..=) Core.<$> worstRating+          ]+      )++-- | Information about a claim review.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview = GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+  { -- | The language this review was written in. For instance, \"en\" or \"de\".+    languageCode :: (Core.Maybe Core.Text),+    -- | The publisher of this claim review.+    publisher :: (Core.Maybe GoogleFactcheckingFactchecktoolsV1alpha1Publisher),+    -- | The date the claim was reviewed.+    reviewDate :: (Core.Maybe Core.DateTime),+    -- | Textual rating. For instance, \"Mostly false\".+    textualRating :: (Core.Maybe Core.Text),+    -- | The title of this claim review, if it can be determined.+    title :: (Core.Maybe Core.Text),+    -- | The URL of this claim review.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+    { languageCode =+        Core.Nothing,+      publisher = Core.Nothing,+      reviewDate = Core.Nothing,+      textualRating = Core.Nothing,+      title = Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+            Core.<$> (o Core..:? "languageCode")+            Core.<*> (o Core..:? "publisher")+            Core.<*> (o Core..:? "reviewDate")+            Core.<*> (o Core..:? "textualRating")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+  where+  toJSON GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview {..} =+    Core.object+      ( Core.catMaybes+          [ ("languageCode" Core..=) Core.<$> languageCode,+            ("publisher" Core..=) Core.<$> publisher,+            ("reviewDate" Core..=) Core.<$> reviewDate,+            ("textualRating" Core..=) Core.<$> textualRating,+            ("title" Core..=) Core.<$> title,+            ("url" Core..=) Core.<$> url+          ]+      )++-- | Information about the claim review author.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor = GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+  { -- | Corresponds to @ClaimReview.author.image@.+    imageUrl :: (Core.Maybe Core.Text),+    -- | Name of the organization that is publishing the fact check. Corresponds to @ClaimReview.author.name@.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+    { imageUrl =+        Core.Nothing,+      name = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+            Core.<$> (o Core..:? "imageUrl")+            Core.<*> (o Core..:? "name")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor {..} =+      Core.object+        ( Core.catMaybes+            [ ("imageUrl" Core..=) Core.<$> imageUrl,+              ("name" Core..=) Core.<$> name+            ]+        )++-- | 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:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup = GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+  { -- | 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@.+    claimAppearances :: (Core.Maybe [Core.Text]),+    -- | Info about the author of this claim.+    claimAuthor :: (Core.Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor),+    -- | The date when the claim was made or entered public discourse. Corresponds to @ClaimReview.itemReviewed.datePublished@.+    claimDate :: (Core.Maybe Core.Text),+    -- | A link to a work in which this claim first appears. Corresponds to @ClaimReview.itemReviewed[\@type=Claim].firstAppearance.url@.+    claimFirstAppearance :: (Core.Maybe Core.Text),+    -- | The location where this claim was made. Corresponds to @ClaimReview.itemReviewed.name@.+    claimLocation :: (Core.Maybe Core.Text),+    -- | A short summary of the claim being evaluated. Corresponds to @ClaimReview.claimReviewed@.+    claimReviewed :: (Core.Maybe Core.Text),+    -- | Info about the rating of this claim review.+    rating :: (Core.Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating),+    -- | 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@+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+    { claimAppearances =+        Core.Nothing,+      claimAuthor = Core.Nothing,+      claimDate = Core.Nothing,+      claimFirstAppearance = Core.Nothing,+      claimLocation = Core.Nothing,+      claimReviewed = Core.Nothing,+      rating = Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+            Core.<$> (o Core..:? "claimAppearances")+            Core.<*> (o Core..:? "claimAuthor")+            Core.<*> (o Core..:? "claimDate")+            Core.<*> (o Core..:? "claimFirstAppearance")+            Core.<*> (o Core..:? "claimLocation")+            Core.<*> (o Core..:? "claimReviewed")+            Core.<*> (o Core..:? "rating")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup {..} =+      Core.object+        ( Core.catMaybes+            [ ("claimAppearances" Core..=) Core.<$> claimAppearances,+              ("claimAuthor" Core..=) Core.<$> claimAuthor,+              ("claimDate" Core..=) Core.<$> claimDate,+              ("claimFirstAppearance" Core..=) Core.<$> claimFirstAppearance,+              ("claimLocation" Core..=) Core.<$> claimLocation,+              ("claimReviewed" Core..=) Core.<$> claimReviewed,+              ("rating" Core..=) Core.<$> rating,+              ("url" Core..=) Core.<$> url+            ]+        )++-- | Holds one or more instances of @ClaimReview@ markup for a webpage.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage = GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  { -- | 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.+    claimReviewAuthor ::+      ( Core.Maybe+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+      ),+    -- | A list of individual claim reviews for this page. Each item in the list corresponds to one @ClaimReview@ element.+    claimReviewMarkups ::+      ( Core.Maybe+          [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup]+      ),+    -- | 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.+    name :: (Core.Maybe Core.Text),+    -- | 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@+    pageUrl :: (Core.Maybe Core.Text),+    -- | 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@+    publishDate :: (Core.Maybe Core.Text),+    -- | The version ID for this markup. Except for update requests, this field is output-only and should not be set by the user.+    versionId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage ::+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage =+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    { claimReviewAuthor =+        Core.Nothing,+      claimReviewMarkups = Core.Nothing,+      name = Core.Nothing,+      pageUrl = Core.Nothing,+      publishDate = Core.Nothing,+      versionId = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+            Core.<$> (o Core..:? "claimReviewAuthor")+            Core.<*> (o Core..:? "claimReviewMarkups")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "pageUrl")+            Core.<*> (o Core..:? "publishDate")+            Core.<*> (o Core..:? "versionId")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage {..} =+      Core.object+        ( Core.catMaybes+            [ ("claimReviewAuthor" Core..=) Core.<$> claimReviewAuthor,+              ("claimReviewMarkups" Core..=) Core.<$> claimReviewMarkups,+              ("name" Core..=) Core.<$> name,+              ("pageUrl" Core..=) Core.<$> pageUrl,+              ("publishDate" Core..=) Core.<$> publishDate,+              ("versionId" Core..=) Core.<$> versionId+            ]+        )++-- | Response from searching fact-checked claims by image.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse = GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+  { -- | 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.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The list of claims and all of their associated information.+    results ::+      ( Core.Maybe+          [GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult]+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse ::+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse =+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+    { nextPageToken =+        Core.Nothing,+      results =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "results")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse {..} =+      Core.object+        ( Core.catMaybes+            [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+              ("results" Core..=) Core.<$> results+            ]+        )++-- | A claim and its associated information.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult' smart constructor.+newtype GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult = GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+  { -- | A claim which matched the query.+    claim :: (Core.Maybe GoogleFactcheckingFactchecktoolsV1alpha1Claim)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult ::+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult =+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+    { claim =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+            Core.<$> (o Core..:? "claim")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult {..} =+      Core.object (Core.catMaybes [("claim" Core..=) Core.<$> claim])++-- | Response from searching fact-checked claims.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse = GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+  { -- | The list of claims and all of their associated information.+    claims :: (Core.Maybe [GoogleFactcheckingFactchecktoolsV1alpha1Claim]),+    -- | 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.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse ::+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse =+  GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+    { claims =+        Core.Nothing,+      nextPageToken =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+            Core.<$> (o Core..:? "claims")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse {..} =+      Core.object+        ( Core.catMaybes+            [ ("claims" Core..=) Core.<$> claims,+              ("nextPageToken" Core..=) Core.<$> nextPageToken+            ]+        )++-- | Response from listing @ClaimReview@ markup.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse = GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+  { -- | The result list of pages of @ClaimReview@ markup.+    claimReviewMarkupPages ::+      ( Core.Maybe+          [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage]+      ),+    -- | 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.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse ::+  GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse =+  GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+    { claimReviewMarkupPages =+        Core.Nothing,+      nextPageToken =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+            Core.<$> (o Core..:? "claimReviewMarkupPages")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+  where+  toJSON+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse {..} =+      Core.object+        ( Core.catMaybes+            [ ("claimReviewMarkupPages" Core..=)+                Core.<$> claimReviewMarkupPages,+              ("nextPageToken" Core..=) Core.<$> nextPageToken+            ]+        )++-- | Information about the publisher.+--+-- /See:/ 'newGoogleFactcheckingFactchecktoolsV1alpha1Publisher' smart constructor.+data GoogleFactcheckingFactchecktoolsV1alpha1Publisher = GoogleFactcheckingFactchecktoolsV1alpha1Publisher+  { -- | The name of this publisher. For instance, \"Awesome Fact Checks\".+    name :: (Core.Maybe Core.Text),+    -- | 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.+    site :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleFactcheckingFactchecktoolsV1alpha1Publisher' with the minimum fields required to make a request.+newGoogleFactcheckingFactchecktoolsV1alpha1Publisher ::+  GoogleFactcheckingFactchecktoolsV1alpha1Publisher+newGoogleFactcheckingFactchecktoolsV1alpha1Publisher =+  GoogleFactcheckingFactchecktoolsV1alpha1Publisher+    { name =+        Core.Nothing,+      site = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleFactcheckingFactchecktoolsV1alpha1Publisher+  where+  parseJSON =+    Core.withObject+      "GoogleFactcheckingFactchecktoolsV1alpha1Publisher"+      ( \o ->+          GoogleFactcheckingFactchecktoolsV1alpha1Publisher+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "site")+      )++instance+  Core.ToJSON+    GoogleFactcheckingFactchecktoolsV1alpha1Publisher+  where+  toJSON GoogleFactcheckingFactchecktoolsV1alpha1Publisher {..} =+    Core.object+      ( Core.catMaybes+          [("name" Core..=) Core.<$> name, ("site" Core..=) Core.<$> site]+      )++-- | 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); }+--+-- /See:/ 'newGoogleProtobufEmpty' smart constructor.+data GoogleProtobufEmpty = GoogleProtobufEmpty+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleProtobufEmpty' with the minimum fields required to make a request.+newGoogleProtobufEmpty ::+  GoogleProtobufEmpty+newGoogleProtobufEmpty = GoogleProtobufEmpty++instance Core.FromJSON GoogleProtobufEmpty where+  parseJSON =+    Core.withObject+      "GoogleProtobufEmpty"+      (\o -> Core.pure GoogleProtobufEmpty)++instance Core.ToJSON GoogleProtobufEmpty where+  toJSON = Core.const Core.emptyObject

+ gen/Gogol/FactCheckTools/Internal/Sum.hs view

@@ -0,0 +1,63 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Internal.Sum+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.FactCheckTools.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | V1 error format.+newtype Xgafv = Xgafv {fromXgafv :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | v1 error format+pattern Xgafv_1 :: Xgafv+pattern Xgafv_1 = Xgafv "1"++-- | v2 error format+pattern Xgafv_2 :: Xgafv+pattern Xgafv_2 = Xgafv "2"++{-# COMPLETE+  Xgafv_1,+  Xgafv_2,+  Xgafv+  #-}

+ gen/Gogol/FactCheckTools/Pages/Create.hs view

@@ -0,0 +1,116 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Pages.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create @ClaimReview@ markup on a page.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.pages.create@.+module Gogol.FactCheckTools.Pages.Create+  ( -- * Resource+    FactCheckToolsPagesCreateResource,++    -- ** Constructing a Request+    FactCheckToolsPagesCreate (..),+    newFactCheckToolsPagesCreate,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.pages.create@ method which the+-- 'FactCheckToolsPagesCreate' request conforms to.+type FactCheckToolsPagesCreateResource =+  "v1alpha1"+    Core.:> "pages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    Core.:> Core.Post+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage++-- | Create @ClaimReview@ markup on a page.+--+-- /See:/ 'newFactCheckToolsPagesCreate' smart constructor.+data FactCheckToolsPagesCreate = FactCheckToolsPagesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsPagesCreate' with the minimum fields required to make a request.+newFactCheckToolsPagesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage ->+  FactCheckToolsPagesCreate+newFactCheckToolsPagesCreate payload =+  FactCheckToolsPagesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsPagesCreate where+  type+    Rs FactCheckToolsPagesCreate =+      GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  type+    Scopes FactCheckToolsPagesCreate =+      '[Factchecktools'FullControl]+  requestClient FactCheckToolsPagesCreate {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsPagesCreateResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Pages/Delete.hs view

@@ -0,0 +1,109 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Pages.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete all @ClaimReview@ markup on a page.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.pages.delete@.+module Gogol.FactCheckTools.Pages.Delete+  ( -- * Resource+    FactCheckToolsPagesDeleteResource,++    -- ** Constructing a Request+    FactCheckToolsPagesDelete (..),+    newFactCheckToolsPagesDelete,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.pages.delete@ method which the+-- 'FactCheckToolsPagesDelete' request conforms to.+type FactCheckToolsPagesDeleteResource =+  "v1alpha1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] GoogleProtobufEmpty++-- | Delete all @ClaimReview@ markup on a page.+--+-- /See:/ 'newFactCheckToolsPagesDelete' smart constructor.+data FactCheckToolsPagesDelete = FactCheckToolsPagesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the resource to delete, in the form of @pages\/{page_id}@.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsPagesDelete' with the minimum fields required to make a request.+newFactCheckToolsPagesDelete ::+  -- |  The name of the resource to delete, in the form of @pages\/{page_id}@. See 'name'.+  Core.Text ->+  FactCheckToolsPagesDelete+newFactCheckToolsPagesDelete name =+  FactCheckToolsPagesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsPagesDelete where+  type Rs FactCheckToolsPagesDelete = GoogleProtobufEmpty+  type+    Scopes FactCheckToolsPagesDelete =+      '[Factchecktools'FullControl]+  requestClient FactCheckToolsPagesDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsPagesDeleteResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Pages/Get.hs view

@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Pages.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get all @ClaimReview@ markup on a page.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.pages.get@.+module Gogol.FactCheckTools.Pages.Get+  ( -- * Resource+    FactCheckToolsPagesGetResource,++    -- ** Constructing a Request+    FactCheckToolsPagesGet (..),+    newFactCheckToolsPagesGet,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.pages.get@ method which the+-- 'FactCheckToolsPagesGet' request conforms to.+type FactCheckToolsPagesGetResource =+  "v1alpha1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage++-- | Get all @ClaimReview@ markup on a page.+--+-- /See:/ 'newFactCheckToolsPagesGet' smart constructor.+data FactCheckToolsPagesGet = FactCheckToolsPagesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the resource to get, in the form of @pages\/{page_id}@.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsPagesGet' with the minimum fields required to make a request.+newFactCheckToolsPagesGet ::+  -- |  The name of the resource to get, in the form of @pages\/{page_id}@. See 'name'.+  Core.Text ->+  FactCheckToolsPagesGet+newFactCheckToolsPagesGet name =+  FactCheckToolsPagesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsPagesGet where+  type+    Rs FactCheckToolsPagesGet =+      GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  type Scopes FactCheckToolsPagesGet = '[Factchecktools'FullControl]+  requestClient FactCheckToolsPagesGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsPagesGetResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Pages/List.hs view

@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Pages.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the @ClaimReview@ markup pages for a specific URL or for an organization.+--+-- /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.pages.list@.+module Gogol.FactCheckTools.Pages.List+  ( -- * Resource+    FactCheckToolsPagesListResource,++    -- ** Constructing a Request+    FactCheckToolsPagesList (..),+    newFactCheckToolsPagesList,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.pages.list@ method which the+-- 'FactCheckToolsPagesList' request conforms to.+type FactCheckToolsPagesListResource =+  "v1alpha1"+    Core.:> "pages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "offset" Core.Int32+    Core.:> Core.QueryParam "organization" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "url" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse++-- | List the @ClaimReview@ markup pages for a specific URL or for an organization.+--+-- /See:/ 'newFactCheckToolsPagesList' smart constructor.+data FactCheckToolsPagesList = FactCheckToolsPagesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | 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.+    offset :: (Core.Maybe Core.Int32),+    -- | The organization for which we want to fetch markups for. For instance, \"site.com\". Cannot be specified along with an URL.+    organization :: (Core.Maybe Core.Text),+    -- | 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.+    pageSize :: (Core.Maybe Core.Int32),+    -- | 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.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | 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.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsPagesList' with the minimum fields required to make a request.+newFactCheckToolsPagesList ::+  FactCheckToolsPagesList+newFactCheckToolsPagesList =+  FactCheckToolsPagesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      offset = Core.Nothing,+      organization = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      url = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsPagesList where+  type+    Rs FactCheckToolsPagesList =+      GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+  type Scopes FactCheckToolsPagesList = '[Factchecktools'FullControl]+  requestClient FactCheckToolsPagesList {..} =+    go+      xgafv+      accessToken+      callback+      offset+      organization+      pageSize+      pageToken+      uploadType+      uploadProtocol+      url+      (Core.Just Core.AltJSON)+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsPagesListResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Pages/Update.hs view

@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Pages.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- 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:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> for @factchecktools.pages.update@.+module Gogol.FactCheckTools.Pages.Update+  ( -- * Resource+    FactCheckToolsPagesUpdateResource,++    -- ** Constructing a Request+    FactCheckToolsPagesUpdate (..),+    newFactCheckToolsPagesUpdate,+  )+where++import Gogol.FactCheckTools.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @factchecktools.pages.update@ method which the+-- 'FactCheckToolsPagesUpdate' request conforms to.+type FactCheckToolsPagesUpdateResource =+  "v1alpha1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody+              '[Core.JSON]+              GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    Core.:> Core.Put+              '[Core.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:/ 'newFactCheckToolsPagesUpdate' smart constructor.+data FactCheckToolsPagesUpdate = FactCheckToolsPagesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | 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.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FactCheckToolsPagesUpdate' with the minimum fields required to make a request.+newFactCheckToolsPagesUpdate ::+  -- |  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. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage ->+  FactCheckToolsPagesUpdate+newFactCheckToolsPagesUpdate name payload =+  FactCheckToolsPagesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FactCheckToolsPagesUpdate where+  type+    Rs FactCheckToolsPagesUpdate =+      GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+  type+    Scopes FactCheckToolsPagesUpdate =+      '[Factchecktools'FullControl]+  requestClient FactCheckToolsPagesUpdate {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      factCheckToolsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FactCheckToolsPagesUpdateResource)+          Core.mempty

+ gen/Gogol/FactCheckTools/Types.hs view

@@ -0,0 +1,105 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.FactCheckTools.Types+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.FactCheckTools.Types+  ( -- * Configuration+    factCheckToolsService,++    -- * OAuth Scopes+    Factchecktools'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1Claim+    GoogleFactcheckingFactchecktoolsV1alpha1Claim (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Claim,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimRating,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReview,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage+    GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimImageSearchResponseResult,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse+    GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse+    GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse,++    -- ** GoogleFactcheckingFactchecktoolsV1alpha1Publisher+    GoogleFactcheckingFactchecktoolsV1alpha1Publisher (..),+    newGoogleFactcheckingFactchecktoolsV1alpha1Publisher,++    -- ** GoogleProtobufEmpty+    GoogleProtobufEmpty (..),+    newGoogleProtobufEmpty,+  )+where++import Gogol.FactCheckTools.Internal.Product+import Gogol.FactCheckTools.Internal.Sum+import Gogol.Prelude qualified as Core++-- | 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 :: Core.ServiceConfig+factCheckToolsService =+  Core.defaultService+    (Core.ServiceId "factchecktools:v1alpha1")+    "factchecktools.googleapis.com"++-- | Read, create, update, and delete your ClaimReview data.+type Factchecktools'FullControl =+  "https://www.googleapis.com/auth/factchecktools"

− gen/Network/Google/FactCheckTools.hs

@@ -1,160 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ -- |------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference>-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

− gen/Network/Google/FactCheckTools/Types.hs

@@ -1,127 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- 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

− gen/Network/Google/FactCheckTools/Types/Product.hs

@@ -1,941 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- 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])

− gen/Network/Google/FactCheckTools/Types/Sum.hs

@@ -1,48 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- 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

− gen/Network/Google/Resource/FactCheckTools/Claims/Search.hs

@@ -1,236 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Search through fact-checked claims.------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

− gen/Network/Google/Resource/FactCheckTools/Pages/Create.hs

@@ -1,153 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Create \`ClaimReview\` markup on a page.------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

− gen/Network/Google/Resource/FactCheckTools/Pages/Delete.hs

@@ -1,147 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Delete all \`ClaimReview\` markup on a page.------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

− gen/Network/Google/Resource/FactCheckTools/Pages/Get.hs

@@ -1,149 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Get all \`ClaimReview\` markup on a page.------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

− gen/Network/Google/Resource/FactCheckTools/Pages/List.hs

@@ -1,213 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ List the \`ClaimReview\` markup pages for a specific URL or for an--- organization.------ /See:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

− gen/Network/Google/Resource/FactCheckTools/Pages/Update.hs

@@ -1,172 +0,0 @@-{-# 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 <brendan.g.hay@gmail.com>--- 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:/ <https://developers.google.com/fact-check/tools/api/ Fact Check Tools API Reference> 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

gogol-factchecktools.cabal view

@@ -1,51 +1,66 @@-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 <brendan.g.hay@gmail.com>-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+cabal-version:      2.2+name:               gogol-factchecktools+version:            1.0.0+synopsis:           Google Fact Check Tools SDK.+homepage:           https://github.com/brendanhay/gogol+bug-reports:        https://github.com/brendanhay/gogol/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+gogol@gmail.com>, Toni Cebrián <toni@tonicebrian.com> -description:+copyright:          Copyright (c) 2015-2025 Brendan Hay+category:           Google+build-type:         Simple+extra-source-files:+  README.md+  src/.gitkeep -    .-    /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.+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+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-factchecktools +flag field-selectors+  description:+    If record field selectors should be enabled. Disabling this requires GHC >=9.2 and the NoFieldSelectors extension.++  default:     False+  manual:      True+ library-    default-language:  Haskell2010-    hs-source-dirs:    src gen+  default-language: GHC2021+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields+    -fwarn-unused-packages -    ghc-options:       -Wall+  if (!flag(field-selectors) && impl(ghc >=9.2))+    default-extensions: NoFieldSelectors -    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+  exposed-modules:+    Gogol.FactCheckTools+    Gogol.FactCheckTools.Claims.ImageSearch+    Gogol.FactCheckTools.Claims.Search+    Gogol.FactCheckTools.Pages.Create+    Gogol.FactCheckTools.Pages.Delete+    Gogol.FactCheckTools.Pages.Get+    Gogol.FactCheckTools.Pages.List+    Gogol.FactCheckTools.Pages.Update+    Gogol.FactCheckTools.Types -    other-modules:-          Network.Google.FactCheckTools.Types.Product-        , Network.Google.FactCheckTools.Types.Sum+  other-modules:+    Gogol.FactCheckTools.Internal.Product+    Gogol.FactCheckTools.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0