packages feed

gogol-adsense-host 0.5.0 → 1.0.0

raw patch · 63 files changed

+4246/−5354 lines, 63 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

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/AdSenseHost.hs view
@@ -0,0 +1,282 @@+{-# 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.AdSenseHost+-- 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)+--+-- Generates performance reports, generates ad codes, and provides publisher management capabilities for AdSense Hosts.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference>+module Gogol.AdSenseHost+  ( -- * Configuration+    adSenseHostService,++    -- * OAuth Scopes+    Adsensehost'FullControl,++    -- * Resources++    -- ** adsensehost.accounts.adclients.get+    AdSenseHostAccountsAdclientsGetResource,+    AdSenseHostAccountsAdclientsGet (..),+    newAdSenseHostAccountsAdclientsGet,++    -- ** adsensehost.accounts.adclients.list+    AdSenseHostAccountsAdclientsListResource,+    AdSenseHostAccountsAdclientsList (..),+    newAdSenseHostAccountsAdclientsList,++    -- ** adsensehost.accounts.adunits.delete+    AdSenseHostAccountsAdunitsDeleteResource,+    AdSenseHostAccountsAdunitsDelete (..),+    newAdSenseHostAccountsAdunitsDelete,++    -- ** adsensehost.accounts.adunits.get+    AdSenseHostAccountsAdunitsGetResource,+    AdSenseHostAccountsAdunitsGet (..),+    newAdSenseHostAccountsAdunitsGet,++    -- ** adsensehost.accounts.adunits.getAdCode+    AdSenseHostAccountsAdunitsGetAdCodeResource,+    AdSenseHostAccountsAdunitsGetAdCode (..),+    newAdSenseHostAccountsAdunitsGetAdCode,++    -- ** adsensehost.accounts.adunits.insert+    AdSenseHostAccountsAdunitsInsertResource,+    AdSenseHostAccountsAdunitsInsert (..),+    newAdSenseHostAccountsAdunitsInsert,++    -- ** adsensehost.accounts.adunits.list+    AdSenseHostAccountsAdunitsListResource,+    AdSenseHostAccountsAdunitsList (..),+    newAdSenseHostAccountsAdunitsList,++    -- ** adsensehost.accounts.adunits.patch+    AdSenseHostAccountsAdunitsPatchResource,+    AdSenseHostAccountsAdunitsPatch (..),+    newAdSenseHostAccountsAdunitsPatch,++    -- ** adsensehost.accounts.adunits.update+    AdSenseHostAccountsAdunitsUpdateResource,+    AdSenseHostAccountsAdunitsUpdate (..),+    newAdSenseHostAccountsAdunitsUpdate,++    -- ** adsensehost.accounts.get+    AdSenseHostAccountsGetResource,+    AdSenseHostAccountsGet (..),+    newAdSenseHostAccountsGet,++    -- ** adsensehost.accounts.list+    AdSenseHostAccountsListResource,+    AdSenseHostAccountsList (..),+    newAdSenseHostAccountsList,++    -- ** adsensehost.accounts.reports.generate+    AdSenseHostAccountsReportsGenerateResource,+    AdSenseHostAccountsReportsGenerate (..),+    newAdSenseHostAccountsReportsGenerate,++    -- ** adsensehost.adclients.get+    AdSenseHostAdclientsGetResource,+    AdSenseHostAdclientsGet (..),+    newAdSenseHostAdclientsGet,++    -- ** adsensehost.adclients.list+    AdSenseHostAdclientsListResource,+    AdSenseHostAdclientsList (..),+    newAdSenseHostAdclientsList,++    -- ** adsensehost.associationsessions.start+    AdSenseHostAssociationsessionsStartResource,+    AdSenseHostAssociationsessionsStart (..),+    newAdSenseHostAssociationsessionsStart,++    -- ** adsensehost.associationsessions.verify+    AdSenseHostAssociationsessionsVerifyResource,+    AdSenseHostAssociationsessionsVerify (..),+    newAdSenseHostAssociationsessionsVerify,++    -- ** adsensehost.customchannels.delete+    AdSenseHostCustomchannelsDeleteResource,+    AdSenseHostCustomchannelsDelete (..),+    newAdSenseHostCustomchannelsDelete,++    -- ** adsensehost.customchannels.get+    AdSenseHostCustomchannelsGetResource,+    AdSenseHostCustomchannelsGet (..),+    newAdSenseHostCustomchannelsGet,++    -- ** adsensehost.customchannels.insert+    AdSenseHostCustomchannelsInsertResource,+    AdSenseHostCustomchannelsInsert (..),+    newAdSenseHostCustomchannelsInsert,++    -- ** adsensehost.customchannels.list+    AdSenseHostCustomchannelsListResource,+    AdSenseHostCustomchannelsList (..),+    newAdSenseHostCustomchannelsList,++    -- ** adsensehost.customchannels.patch+    AdSenseHostCustomchannelsPatchResource,+    AdSenseHostCustomchannelsPatch (..),+    newAdSenseHostCustomchannelsPatch,++    -- ** adsensehost.customchannels.update+    AdSenseHostCustomchannelsUpdateResource,+    AdSenseHostCustomchannelsUpdate (..),+    newAdSenseHostCustomchannelsUpdate,++    -- ** adsensehost.reports.generate+    AdSenseHostReportsGenerateResource,+    AdSenseHostReportsGenerate (..),+    newAdSenseHostReportsGenerate,++    -- ** adsensehost.urlchannels.delete+    AdSenseHostUrlchannelsDeleteResource,+    AdSenseHostUrlchannelsDelete (..),+    newAdSenseHostUrlchannelsDelete,++    -- ** adsensehost.urlchannels.insert+    AdSenseHostUrlchannelsInsertResource,+    AdSenseHostUrlchannelsInsert (..),+    newAdSenseHostUrlchannelsInsert,++    -- ** adsensehost.urlchannels.list+    AdSenseHostUrlchannelsListResource,+    AdSenseHostUrlchannelsList (..),+    newAdSenseHostUrlchannelsList,++    -- * Types++    -- ** Account+    Account (..),+    newAccount,++    -- ** Accounts+    Accounts (..),+    newAccounts,++    -- ** AdClient+    AdClient (..),+    newAdClient,++    -- ** AdClients+    AdClients (..),+    newAdClients,++    -- ** AdCode+    AdCode (..),+    newAdCode,++    -- ** AdStyle+    AdStyle (..),+    newAdStyle,++    -- ** AdStyle_Colors+    AdStyle_Colors (..),+    newAdStyle_Colors,++    -- ** AdStyle_Font+    AdStyle_Font (..),+    newAdStyle_Font,++    -- ** AdUnit+    AdUnit (..),+    newAdUnit,++    -- ** AdUnit_ContentAdsSettings+    AdUnit_ContentAdsSettings (..),+    newAdUnit_ContentAdsSettings,++    -- ** AdUnit_ContentAdsSettings_BackupOption+    AdUnit_ContentAdsSettings_BackupOption (..),+    newAdUnit_ContentAdsSettings_BackupOption,++    -- ** AdUnit_MobileContentAdsSettings+    AdUnit_MobileContentAdsSettings (..),+    newAdUnit_MobileContentAdsSettings,++    -- ** AdUnits+    AdUnits (..),+    newAdUnits,++    -- ** AssociationSession+    AssociationSession (..),+    newAssociationSession,++    -- ** CustomChannel+    CustomChannel (..),+    newCustomChannel,++    -- ** CustomChannels+    CustomChannels (..),+    newCustomChannels,++    -- ** Report+    Report (..),+    newReport,++    -- ** Report_HeadersItem+    Report_HeadersItem (..),+    newReport_HeadersItem,++    -- ** UrlChannel+    UrlChannel (..),+    newUrlChannel,++    -- ** UrlChannels+    UrlChannels (..),+    newUrlChannels,++    -- ** AssociationsessionsStartProductCode+    AssociationsessionsStartProductCode (..),+  )+where++import Gogol.AdSenseHost.Accounts.Adclients.Get+import Gogol.AdSenseHost.Accounts.Adclients.List+import Gogol.AdSenseHost.Accounts.Adunits.Delete+import Gogol.AdSenseHost.Accounts.Adunits.Get+import Gogol.AdSenseHost.Accounts.Adunits.GetAdCode+import Gogol.AdSenseHost.Accounts.Adunits.Insert+import Gogol.AdSenseHost.Accounts.Adunits.List+import Gogol.AdSenseHost.Accounts.Adunits.Patch+import Gogol.AdSenseHost.Accounts.Adunits.Update+import Gogol.AdSenseHost.Accounts.Get+import Gogol.AdSenseHost.Accounts.List+import Gogol.AdSenseHost.Accounts.Reports.Generate+import Gogol.AdSenseHost.Adclients.Get+import Gogol.AdSenseHost.Adclients.List+import Gogol.AdSenseHost.Associationsessions.Start+import Gogol.AdSenseHost.Associationsessions.Verify+import Gogol.AdSenseHost.Customchannels.Delete+import Gogol.AdSenseHost.Customchannels.Get+import Gogol.AdSenseHost.Customchannels.Insert+import Gogol.AdSenseHost.Customchannels.List+import Gogol.AdSenseHost.Customchannels.Patch+import Gogol.AdSenseHost.Customchannels.Update+import Gogol.AdSenseHost.Reports.Generate+import Gogol.AdSenseHost.Types+import Gogol.AdSenseHost.Urlchannels.Delete+import Gogol.AdSenseHost.Urlchannels.Insert+import Gogol.AdSenseHost.Urlchannels.List
+ gen/Gogol/AdSenseHost/Accounts/Adclients/Get.hs view
@@ -0,0 +1,94 @@+{-# 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.AdSenseHost.Accounts.Adclients.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 information about one of the ad clients in the specified publisher\'s AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adclients.get@.+module Gogol.AdSenseHost.Accounts.Adclients.Get+  ( -- * Resource+    AdSenseHostAccountsAdclientsGetResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdclientsGet (..),+    newAdSenseHostAccountsAdclientsGet,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adclients.get@ method which the+-- 'AdSenseHostAccountsAdclientsGet' request conforms to.+type AdSenseHostAccountsAdclientsGetResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdClient++-- | Get information about one of the ad clients in the specified publisher\'s AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdclientsGet' smart constructor.+data AdSenseHostAccountsAdclientsGet = AdSenseHostAccountsAdclientsGet+  { -- | Account which contains the ad client.+    accountId :: Core.Text,+    -- | Ad client to get.+    adClientId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdclientsGet' with the minimum fields required to make a request.+newAdSenseHostAccountsAdclientsGet ::+  -- |  Account which contains the ad client. See 'accountId'.+  Core.Text ->+  -- |  Ad client to get. See 'adClientId'.+  Core.Text ->+  AdSenseHostAccountsAdclientsGet+newAdSenseHostAccountsAdclientsGet accountId adClientId =+  AdSenseHostAccountsAdclientsGet+    { accountId = accountId,+      adClientId = adClientId+    }++instance Core.GoogleRequest AdSenseHostAccountsAdclientsGet where+  type Rs AdSenseHostAccountsAdclientsGet = AdClient+  type+    Scopes AdSenseHostAccountsAdclientsGet =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdclientsGet {..} =+    go+      accountId+      adClientId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdclientsGetResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adclients/List.hs view
@@ -0,0 +1,97 @@+{-# 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.AdSenseHost.Accounts.Adclients.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 all hosted ad clients in the specified hosted account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adclients.list@.+module Gogol.AdSenseHost.Accounts.Adclients.List+  ( -- * Resource+    AdSenseHostAccountsAdclientsListResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdclientsList (..),+    newAdSenseHostAccountsAdclientsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adclients.list@ method which the+-- 'AdSenseHostAccountsAdclientsList' request conforms to.+type AdSenseHostAccountsAdclientsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdClients++-- | List all hosted ad clients in the specified hosted account.+--+-- /See:/ 'newAdSenseHostAccountsAdclientsList' smart constructor.+data AdSenseHostAccountsAdclientsList = AdSenseHostAccountsAdclientsList+  { -- | Account for which to list ad clients.+    accountId :: Core.Text,+    -- | The maximum number of ad clients to include in the response, used for paging.+    maxResults :: (Core.Maybe Core.Word32),+    -- | A continuation token, used to page through ad clients. To retrieve the next page, set this parameter to the value of \"nextPageToken\" from the previous response.+    pageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdclientsList' with the minimum fields required to make a request.+newAdSenseHostAccountsAdclientsList ::+  -- |  Account for which to list ad clients. See 'accountId'.+  Core.Text ->+  AdSenseHostAccountsAdclientsList+newAdSenseHostAccountsAdclientsList accountId =+  AdSenseHostAccountsAdclientsList+    { accountId = accountId,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostAccountsAdclientsList where+  type Rs AdSenseHostAccountsAdclientsList = AdClients+  type+    Scopes AdSenseHostAccountsAdclientsList =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdclientsList {..} =+    go+      accountId+      maxResults+      pageToken+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdclientsListResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/Delete.hs view
@@ -0,0 +1,102 @@+{-# 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.AdSenseHost.Accounts.Adunits.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 the specified ad unit from the specified publisher AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.delete@.+module Gogol.AdSenseHost.Accounts.Adunits.Delete+  ( -- * Resource+    AdSenseHostAccountsAdunitsDeleteResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsDelete (..),+    newAdSenseHostAccountsAdunitsDelete,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.delete@ method which the+-- 'AdSenseHostAccountsAdunitsDelete' request conforms to.+type AdSenseHostAccountsAdunitsDeleteResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.Capture "adUnitId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] AdUnit++-- | Delete the specified ad unit from the specified publisher AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsDelete' smart constructor.+data AdSenseHostAccountsAdunitsDelete = AdSenseHostAccountsAdunitsDelete+  { -- | Account which contains the ad unit.+    accountId :: Core.Text,+    -- | Ad client for which to get ad unit.+    adClientId :: Core.Text,+    -- | Ad unit to delete.+    adUnitId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsDelete' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsDelete ::+  -- |  Account which contains the ad unit. See 'accountId'.+  Core.Text ->+  -- |  Ad client for which to get ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Ad unit to delete. See 'adUnitId'.+  Core.Text ->+  AdSenseHostAccountsAdunitsDelete+newAdSenseHostAccountsAdunitsDelete accountId adClientId adUnitId =+  AdSenseHostAccountsAdunitsDelete+    { accountId = accountId,+      adClientId = adClientId,+      adUnitId = adUnitId+    }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsDelete where+  type Rs AdSenseHostAccountsAdunitsDelete = AdUnit+  type+    Scopes AdSenseHostAccountsAdunitsDelete =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsDelete {..} =+    go+      accountId+      adClientId+      adUnitId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsDeleteResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/Get.hs view
@@ -0,0 +1,102 @@+{-# 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.AdSenseHost.Accounts.Adunits.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 the specified host ad unit in this AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.get@.+module Gogol.AdSenseHost.Accounts.Adunits.Get+  ( -- * Resource+    AdSenseHostAccountsAdunitsGetResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsGet (..),+    newAdSenseHostAccountsAdunitsGet,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.get@ method which the+-- 'AdSenseHostAccountsAdunitsGet' request conforms to.+type AdSenseHostAccountsAdunitsGetResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.Capture "adUnitId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdUnit++-- | Get the specified host ad unit in this AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsGet' smart constructor.+data AdSenseHostAccountsAdunitsGet = AdSenseHostAccountsAdunitsGet+  { -- | Account which contains the ad unit.+    accountId :: Core.Text,+    -- | Ad client for which to get ad unit.+    adClientId :: Core.Text,+    -- | Ad unit to get.+    adUnitId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsGet' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsGet ::+  -- |  Account which contains the ad unit. See 'accountId'.+  Core.Text ->+  -- |  Ad client for which to get ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Ad unit to get. See 'adUnitId'.+  Core.Text ->+  AdSenseHostAccountsAdunitsGet+newAdSenseHostAccountsAdunitsGet accountId adClientId adUnitId =+  AdSenseHostAccountsAdunitsGet+    { accountId = accountId,+      adClientId = adClientId,+      adUnitId = adUnitId+    }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsGet where+  type Rs AdSenseHostAccountsAdunitsGet = AdUnit+  type+    Scopes AdSenseHostAccountsAdunitsGet =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsGet {..} =+    go+      accountId+      adClientId+      adUnitId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsGetResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/GetAdCode.hs view
@@ -0,0 +1,113 @@+{-# 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.AdSenseHost.Accounts.Adunits.GetAdCode+-- 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 ad code for the specified ad unit, attaching the specified host custom channels.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.getAdCode@.+module Gogol.AdSenseHost.Accounts.Adunits.GetAdCode+  ( -- * Resource+    AdSenseHostAccountsAdunitsGetAdCodeResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsGetAdCode (..),+    newAdSenseHostAccountsAdunitsGetAdCode,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.getAdCode@ method which the+-- 'AdSenseHostAccountsAdunitsGetAdCode' request conforms to.+type AdSenseHostAccountsAdunitsGetAdCodeResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.Capture "adUnitId" Core.Text+    Core.:> "adcode"+    Core.:> Core.QueryParams "hostCustomChannelId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdCode++-- | Get ad code for the specified ad unit, attaching the specified host custom channels.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsGetAdCode' smart constructor.+data AdSenseHostAccountsAdunitsGetAdCode = AdSenseHostAccountsAdunitsGetAdCode+  { -- | Account which contains the ad client.+    accountId :: Core.Text,+    -- | Ad client with contains the ad unit.+    adClientId :: Core.Text,+    -- | Ad unit to get the code for.+    adUnitId :: Core.Text,+    -- | Host custom channel to attach to the ad code.+    hostCustomChannelId :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsGetAdCode' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsGetAdCode ::+  -- |  Account which contains the ad client. See 'accountId'.+  Core.Text ->+  -- |  Ad client with contains the ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Ad unit to get the code for. See 'adUnitId'.+  Core.Text ->+  AdSenseHostAccountsAdunitsGetAdCode+newAdSenseHostAccountsAdunitsGetAdCode+  accountId+  adClientId+  adUnitId =+    AdSenseHostAccountsAdunitsGetAdCode+      { accountId = accountId,+        adClientId = adClientId,+        adUnitId = adUnitId,+        hostCustomChannelId = Core.Nothing+      }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsGetAdCode where+  type Rs AdSenseHostAccountsAdunitsGetAdCode = AdCode+  type+    Scopes AdSenseHostAccountsAdunitsGetAdCode =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsGetAdCode {..} =+    go+      accountId+      adClientId+      adUnitId+      (hostCustomChannelId Core.^. Core._Default)+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdSenseHostAccountsAdunitsGetAdCodeResource+          )+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/Insert.hs view
@@ -0,0 +1,102 @@+{-# 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.AdSenseHost.Accounts.Adunits.Insert+-- 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)+--+-- Insert the supplied ad unit into the specified publisher AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.insert@.+module Gogol.AdSenseHost.Accounts.Adunits.Insert+  ( -- * Resource+    AdSenseHostAccountsAdunitsInsertResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsInsert (..),+    newAdSenseHostAccountsAdunitsInsert,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.insert@ method which the+-- 'AdSenseHostAccountsAdunitsInsert' request conforms to.+type AdSenseHostAccountsAdunitsInsertResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AdUnit+    Core.:> Core.Post '[Core.JSON] AdUnit++-- | Insert the supplied ad unit into the specified publisher AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsInsert' smart constructor.+data AdSenseHostAccountsAdunitsInsert = AdSenseHostAccountsAdunitsInsert+  { -- | Account which will contain the ad unit.+    accountId :: Core.Text,+    -- | Ad client into which to insert the ad unit.+    adClientId :: Core.Text,+    -- | Multipart request metadata.+    payload :: AdUnit+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsInsert' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsInsert ::+  -- |  Account which will contain the ad unit. See 'accountId'.+  Core.Text ->+  -- |  Ad client into which to insert the ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AdUnit ->+  AdSenseHostAccountsAdunitsInsert+newAdSenseHostAccountsAdunitsInsert accountId adClientId payload =+  AdSenseHostAccountsAdunitsInsert+    { accountId = accountId,+      adClientId = adClientId,+      payload = payload+    }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsInsert where+  type Rs AdSenseHostAccountsAdunitsInsert = AdUnit+  type+    Scopes AdSenseHostAccountsAdunitsInsert =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsInsert {..} =+    go+      accountId+      adClientId+      (Core.Just Core.AltJSON)+      payload+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsInsertResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/List.hs view
@@ -0,0 +1,110 @@+{-# 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.AdSenseHost.Accounts.Adunits.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 all ad units in the specified publisher\'s AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.list@.+module Gogol.AdSenseHost.Accounts.Adunits.List+  ( -- * Resource+    AdSenseHostAccountsAdunitsListResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsList (..),+    newAdSenseHostAccountsAdunitsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.list@ method which the+-- 'AdSenseHostAccountsAdunitsList' request conforms to.+type AdSenseHostAccountsAdunitsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.QueryParam "includeInactive" Core.Bool+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdUnits++-- | List all ad units in the specified publisher\'s AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsList' smart constructor.+data AdSenseHostAccountsAdunitsList = AdSenseHostAccountsAdunitsList+  { -- | Account which contains the ad client.+    accountId :: Core.Text,+    -- | Ad client for which to list ad units.+    adClientId :: Core.Text,+    -- | Whether to include inactive ad units. Default: true.+    includeInactive :: (Core.Maybe Core.Bool),+    -- | The maximum number of ad units to include in the response, used for paging.+    maxResults :: (Core.Maybe Core.Word32),+    -- | A continuation token, used to page through ad units. To retrieve the next page, set this parameter to the value of \"nextPageToken\" from the previous response.+    pageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsList' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsList ::+  -- |  Account which contains the ad client. See 'accountId'.+  Core.Text ->+  -- |  Ad client for which to list ad units. See 'adClientId'.+  Core.Text ->+  AdSenseHostAccountsAdunitsList+newAdSenseHostAccountsAdunitsList accountId adClientId =+  AdSenseHostAccountsAdunitsList+    { accountId = accountId,+      adClientId = adClientId,+      includeInactive = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsList where+  type Rs AdSenseHostAccountsAdunitsList = AdUnits+  type+    Scopes AdSenseHostAccountsAdunitsList =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsList {..} =+    go+      accountId+      adClientId+      includeInactive+      maxResults+      pageToken+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsListResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/Patch.hs view
@@ -0,0 +1,113 @@+{-# 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.AdSenseHost.Accounts.Adunits.Patch+-- 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 the supplied ad unit in the specified publisher AdSense account. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.patch@.+module Gogol.AdSenseHost.Accounts.Adunits.Patch+  ( -- * Resource+    AdSenseHostAccountsAdunitsPatchResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsPatch (..),+    newAdSenseHostAccountsAdunitsPatch,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.patch@ method which the+-- 'AdSenseHostAccountsAdunitsPatch' request conforms to.+type AdSenseHostAccountsAdunitsPatchResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.QueryParam "adUnitId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AdUnit+    Core.:> Core.Patch '[Core.JSON] AdUnit++-- | Update the supplied ad unit in the specified publisher AdSense account. This method supports patch semantics.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsPatch' smart constructor.+data AdSenseHostAccountsAdunitsPatch = AdSenseHostAccountsAdunitsPatch+  { -- | Account which contains the ad client.+    accountId :: Core.Text,+    -- | Ad client which contains the ad unit.+    adClientId :: Core.Text,+    -- | Ad unit to get.+    adUnitId :: Core.Text,+    -- | Multipart request metadata.+    payload :: AdUnit+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsPatch' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsPatch ::+  -- |  Account which contains the ad client. See 'accountId'.+  Core.Text ->+  -- |  Ad client which contains the ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Ad unit to get. See 'adUnitId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AdUnit ->+  AdSenseHostAccountsAdunitsPatch+newAdSenseHostAccountsAdunitsPatch+  accountId+  adClientId+  adUnitId+  payload =+    AdSenseHostAccountsAdunitsPatch+      { accountId = accountId,+        adClientId = adClientId,+        adUnitId = adUnitId,+        payload = payload+      }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsPatch where+  type Rs AdSenseHostAccountsAdunitsPatch = AdUnit+  type+    Scopes AdSenseHostAccountsAdunitsPatch =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsPatch {..} =+    go+      accountId+      adClientId+      (Core.Just adUnitId)+      (Core.Just Core.AltJSON)+      payload+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsPatchResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Adunits/Update.hs view
@@ -0,0 +1,102 @@+{-# 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.AdSenseHost.Accounts.Adunits.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 the supplied ad unit in the specified publisher AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.update@.+module Gogol.AdSenseHost.Accounts.Adunits.Update+  ( -- * Resource+    AdSenseHostAccountsAdunitsUpdateResource,++    -- ** Constructing a Request+    AdSenseHostAccountsAdunitsUpdate (..),+    newAdSenseHostAccountsAdunitsUpdate,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.adunits.update@ method which the+-- 'AdSenseHostAccountsAdunitsUpdate' request conforms to.+type AdSenseHostAccountsAdunitsUpdateResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "adunits"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AdUnit+    Core.:> Core.Put '[Core.JSON] AdUnit++-- | Update the supplied ad unit in the specified publisher AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsAdunitsUpdate' smart constructor.+data AdSenseHostAccountsAdunitsUpdate = AdSenseHostAccountsAdunitsUpdate+  { -- | Account which contains the ad client.+    accountId :: Core.Text,+    -- | Ad client which contains the ad unit.+    adClientId :: Core.Text,+    -- | Multipart request metadata.+    payload :: AdUnit+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsAdunitsUpdate' with the minimum fields required to make a request.+newAdSenseHostAccountsAdunitsUpdate ::+  -- |  Account which contains the ad client. See 'accountId'.+  Core.Text ->+  -- |  Ad client which contains the ad unit. See 'adClientId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AdUnit ->+  AdSenseHostAccountsAdunitsUpdate+newAdSenseHostAccountsAdunitsUpdate accountId adClientId payload =+  AdSenseHostAccountsAdunitsUpdate+    { accountId = accountId,+      adClientId = adClientId,+      payload = payload+    }++instance Core.GoogleRequest AdSenseHostAccountsAdunitsUpdate where+  type Rs AdSenseHostAccountsAdunitsUpdate = AdUnit+  type+    Scopes AdSenseHostAccountsAdunitsUpdate =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsAdunitsUpdate {..} =+    go+      accountId+      adClientId+      (Core.Just Core.AltJSON)+      payload+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsAdunitsUpdateResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Get.hs view
@@ -0,0 +1,79 @@+{-# 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.AdSenseHost.Accounts.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 information about the selected associated AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.get@.+module Gogol.AdSenseHost.Accounts.Get+  ( -- * Resource+    AdSenseHostAccountsGetResource,++    -- ** Constructing a Request+    AdSenseHostAccountsGet (..),+    newAdSenseHostAccountsGet,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.get@ method which the+-- 'AdSenseHostAccountsGet' request conforms to.+type AdSenseHostAccountsGetResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Account++-- | Get information about the selected associated AdSense account.+--+-- /See:/ 'newAdSenseHostAccountsGet' smart constructor.+newtype AdSenseHostAccountsGet = AdSenseHostAccountsGet+  { -- | Account to get information about.+    accountId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsGet' with the minimum fields required to make a request.+newAdSenseHostAccountsGet ::+  -- |  Account to get information about. See 'accountId'.+  Core.Text ->+  AdSenseHostAccountsGet+newAdSenseHostAccountsGet accountId =+  AdSenseHostAccountsGet {accountId = accountId}++instance Core.GoogleRequest AdSenseHostAccountsGet where+  type Rs AdSenseHostAccountsGet = Account+  type Scopes AdSenseHostAccountsGet = '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsGet {..} =+    go accountId (Core.Just Core.AltJSON) adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsGetResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/List.hs view
@@ -0,0 +1,79 @@+{-# 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.AdSenseHost.Accounts.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 hosted accounts associated with this AdSense account by ad client id.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.list@.+module Gogol.AdSenseHost.Accounts.List+  ( -- * Resource+    AdSenseHostAccountsListResource,++    -- ** Constructing a Request+    AdSenseHostAccountsList (..),+    newAdSenseHostAccountsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.list@ method which the+-- 'AdSenseHostAccountsList' request conforms to.+type AdSenseHostAccountsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.QueryParams "filterAdClientId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Accounts++-- | List hosted accounts associated with this AdSense account by ad client id.+--+-- /See:/ 'newAdSenseHostAccountsList' smart constructor.+newtype AdSenseHostAccountsList = AdSenseHostAccountsList+  { -- | Ad clients to list accounts for.+    filterAdClientId :: [Core.Text]+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsList' with the minimum fields required to make a request.+newAdSenseHostAccountsList ::+  -- |  Ad clients to list accounts for. See 'filterAdClientId'.+  [Core.Text] ->+  AdSenseHostAccountsList+newAdSenseHostAccountsList filterAdClientId =+  AdSenseHostAccountsList {filterAdClientId = filterAdClientId}++instance Core.GoogleRequest AdSenseHostAccountsList where+  type Rs AdSenseHostAccountsList = Accounts+  type Scopes AdSenseHostAccountsList = '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsList {..} =+    go filterAdClientId (Core.Just Core.AltJSON) adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAccountsListResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Accounts/Reports/Generate.hs view
@@ -0,0 +1,138 @@+{-# 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.AdSenseHost.Accounts.Reports.Generate+-- 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)+--+-- Generate an AdSense report based on the report request sent in the query parameters. Returns the result as JSON; to retrieve output in CSV format specify \"alt=csv\" as a query parameter.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.reports.generate@.+module Gogol.AdSenseHost.Accounts.Reports.Generate+  ( -- * Resource+    AdSenseHostAccountsReportsGenerateResource,++    -- ** Constructing a Request+    AdSenseHostAccountsReportsGenerate (..),+    newAdSenseHostAccountsReportsGenerate,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.accounts.reports.generate@ method which the+-- 'AdSenseHostAccountsReportsGenerate' request conforms to.+type AdSenseHostAccountsReportsGenerateResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "reports"+    Core.:> Core.QueryParam "startDate" Core.Text+    Core.:> Core.QueryParam "endDate" Core.Text+    Core.:> Core.QueryParams "dimension" Core.Text+    Core.:> Core.QueryParams "filter" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParams "metric" Core.Text+    Core.:> Core.QueryParams "sort" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Report++-- | Generate an AdSense report based on the report request sent in the query parameters. Returns the result as JSON; to retrieve output in CSV format specify \"alt=csv\" as a query parameter.+--+-- /See:/ 'newAdSenseHostAccountsReportsGenerate' smart constructor.+data AdSenseHostAccountsReportsGenerate = AdSenseHostAccountsReportsGenerate+  { -- | Hosted account upon which to report.+    accountId :: Core.Text,+    -- | Dimensions to base the report on.+    dimension :: (Core.Maybe [Core.Text]),+    -- | End of the date range to report on in \"YYYY-MM-DD\" format, inclusive.+    endDate :: Core.Text,+    -- | Filters to be run on the report.+    filter :: (Core.Maybe [Core.Text]),+    -- | Optional locale to use for translating report output to a local language. Defaults to \"en_US\" if not specified.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum number of rows of report data to return.+    maxResults :: (Core.Maybe Core.Word32),+    -- | Numeric columns to include in the report.+    metric :: (Core.Maybe [Core.Text]),+    -- | The name of a dimension or metric to sort the resulting report on, optionally prefixed with \"+\" to sort ascending or \"-\" to sort descending. If no prefix is specified, the column is sorted ascending.+    sort :: (Core.Maybe [Core.Text]),+    -- | Start of the date range to report on in \"YYYY-MM-DD\" format, inclusive.+    startDate :: Core.Text,+    -- | Index of the first row of report data to return.+    startIndex :: (Core.Maybe Core.Word32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAccountsReportsGenerate' with the minimum fields required to make a request.+newAdSenseHostAccountsReportsGenerate ::+  -- |  Hosted account upon which to report. See 'accountId'.+  Core.Text ->+  -- |  End of the date range to report on in \"YYYY-MM-DD\" format, inclusive. See 'endDate'.+  Core.Text ->+  -- |  Start of the date range to report on in \"YYYY-MM-DD\" format, inclusive. See 'startDate'.+  Core.Text ->+  AdSenseHostAccountsReportsGenerate+newAdSenseHostAccountsReportsGenerate accountId endDate startDate =+  AdSenseHostAccountsReportsGenerate+    { accountId = accountId,+      dimension = Core.Nothing,+      endDate = endDate,+      filter = Core.Nothing,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      metric = Core.Nothing,+      sort = Core.Nothing,+      startDate = startDate,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostAccountsReportsGenerate where+  type Rs AdSenseHostAccountsReportsGenerate = Report+  type+    Scopes AdSenseHostAccountsReportsGenerate =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAccountsReportsGenerate {..} =+    go+      accountId+      (Core.Just startDate)+      (Core.Just endDate)+      (dimension Core.^. Core._Default)+      (filter Core.^. Core._Default)+      locale+      maxResults+      (metric Core.^. Core._Default)+      (sort Core.^. Core._Default)+      startIndex+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdSenseHostAccountsReportsGenerateResource+          )+          Core.mempty
+ gen/Gogol/AdSenseHost/Adclients/Get.hs view
@@ -0,0 +1,79 @@+{-# 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.AdSenseHost.Adclients.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 information about one of the ad clients in the Host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.adclients.get@.+module Gogol.AdSenseHost.Adclients.Get+  ( -- * Resource+    AdSenseHostAdclientsGetResource,++    -- ** Constructing a Request+    AdSenseHostAdclientsGet (..),+    newAdSenseHostAdclientsGet,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.adclients.get@ method which the+-- 'AdSenseHostAdclientsGet' request conforms to.+type AdSenseHostAdclientsGetResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdClient++-- | Get information about one of the ad clients in the Host AdSense account.+--+-- /See:/ 'newAdSenseHostAdclientsGet' smart constructor.+newtype AdSenseHostAdclientsGet = AdSenseHostAdclientsGet+  { -- | Ad client to get.+    adClientId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAdclientsGet' with the minimum fields required to make a request.+newAdSenseHostAdclientsGet ::+  -- |  Ad client to get. See 'adClientId'.+  Core.Text ->+  AdSenseHostAdclientsGet+newAdSenseHostAdclientsGet adClientId =+  AdSenseHostAdclientsGet {adClientId = adClientId}++instance Core.GoogleRequest AdSenseHostAdclientsGet where+  type Rs AdSenseHostAdclientsGet = AdClient+  type Scopes AdSenseHostAdclientsGet = '[Adsensehost'FullControl]+  requestClient AdSenseHostAdclientsGet {..} =+    go adClientId (Core.Just Core.AltJSON) adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAdclientsGetResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Adclients/List.hs view
@@ -0,0 +1,87 @@+{-# 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.AdSenseHost.Adclients.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 all host ad clients in this AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.adclients.list@.+module Gogol.AdSenseHost.Adclients.List+  ( -- * Resource+    AdSenseHostAdclientsListResource,++    -- ** Constructing a Request+    AdSenseHostAdclientsList (..),+    newAdSenseHostAdclientsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.adclients.list@ method which the+-- 'AdSenseHostAdclientsList' request conforms to.+type AdSenseHostAdclientsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AdClients++-- | List all host ad clients in this AdSense account.+--+-- /See:/ 'newAdSenseHostAdclientsList' smart constructor.+data AdSenseHostAdclientsList = AdSenseHostAdclientsList+  { -- | The maximum number of ad clients to include in the response, used for paging.+    maxResults :: (Core.Maybe Core.Word32),+    -- | A continuation token, used to page through ad clients. To retrieve the next page, set this parameter to the value of \"nextPageToken\" from the previous response.+    pageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAdclientsList' with the minimum fields required to make a request.+newAdSenseHostAdclientsList ::+  AdSenseHostAdclientsList+newAdSenseHostAdclientsList =+  AdSenseHostAdclientsList+    { maxResults = Core.Nothing,+      pageToken = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostAdclientsList where+  type Rs AdSenseHostAdclientsList = AdClients+  type Scopes AdSenseHostAdclientsList = '[Adsensehost'FullControl]+  requestClient AdSenseHostAdclientsList {..} =+    go+      maxResults+      pageToken+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostAdclientsListResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Associationsessions/Start.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.AdSenseHost.Associationsessions.Start+-- 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 an association session for initiating an association with an AdSense user.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.associationsessions.start@.+module Gogol.AdSenseHost.Associationsessions.Start+  ( -- * Resource+    AdSenseHostAssociationsessionsStartResource,++    -- ** Constructing a Request+    AdSenseHostAssociationsessionsStart (..),+    newAdSenseHostAssociationsessionsStart,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.associationsessions.start@ method which the+-- 'AdSenseHostAssociationsessionsStart' request conforms to.+type AdSenseHostAssociationsessionsStartResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "associationsessions"+    Core.:> "start"+    Core.:> Core.QueryParams "productCode" AssociationsessionsStartProductCode+    Core.:> Core.QueryParam "websiteUrl" Core.Text+    Core.:> Core.QueryParam "callbackUrl" Core.Text+    Core.:> Core.QueryParam "userLocale" Core.Text+    Core.:> Core.QueryParam "websiteLocale" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AssociationSession++-- | Create an association session for initiating an association with an AdSense user.+--+-- /See:/ 'newAdSenseHostAssociationsessionsStart' smart constructor.+data AdSenseHostAssociationsessionsStart = AdSenseHostAssociationsessionsStart+  { -- | The URL to redirect the user to once association is completed. It receives a token parameter that can then be used to retrieve the associated account.+    callbackUrl :: (Core.Maybe Core.Text),+    -- | Products to associate with the user.+    productCode :: [AssociationsessionsStartProductCode],+    -- | The preferred locale of the user.+    userLocale :: (Core.Maybe Core.Text),+    -- | The locale of the user\'s hosted website.+    websiteLocale :: (Core.Maybe Core.Text),+    -- | The URL of the user\'s hosted website.+    websiteUrl :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAssociationsessionsStart' with the minimum fields required to make a request.+newAdSenseHostAssociationsessionsStart ::+  -- |  Products to associate with the user. See 'productCode'.+  [AssociationsessionsStartProductCode] ->+  -- |  The URL of the user\'s hosted website. See 'websiteUrl'.+  Core.Text ->+  AdSenseHostAssociationsessionsStart+newAdSenseHostAssociationsessionsStart productCode websiteUrl =+  AdSenseHostAssociationsessionsStart+    { callbackUrl = Core.Nothing,+      productCode = productCode,+      userLocale = Core.Nothing,+      websiteLocale = Core.Nothing,+      websiteUrl = websiteUrl+    }++instance Core.GoogleRequest AdSenseHostAssociationsessionsStart where+  type Rs AdSenseHostAssociationsessionsStart = AssociationSession+  type+    Scopes AdSenseHostAssociationsessionsStart =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAssociationsessionsStart {..} =+    go+      productCode+      (Core.Just websiteUrl)+      callbackUrl+      userLocale+      websiteLocale+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdSenseHostAssociationsessionsStartResource+          )+          Core.mempty
+ gen/Gogol/AdSenseHost/Associationsessions/Verify.hs view
@@ -0,0 +1,84 @@+{-# 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.AdSenseHost.Associationsessions.Verify+-- 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)+--+-- Verify an association session after the association callback returns from AdSense signup.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.associationsessions.verify@.+module Gogol.AdSenseHost.Associationsessions.Verify+  ( -- * Resource+    AdSenseHostAssociationsessionsVerifyResource,++    -- ** Constructing a Request+    AdSenseHostAssociationsessionsVerify (..),+    newAdSenseHostAssociationsessionsVerify,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.associationsessions.verify@ method which the+-- 'AdSenseHostAssociationsessionsVerify' request conforms to.+type AdSenseHostAssociationsessionsVerifyResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "associationsessions"+    Core.:> "verify"+    Core.:> Core.QueryParam "token" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AssociationSession++-- | Verify an association session after the association callback returns from AdSense signup.+--+-- /See:/ 'newAdSenseHostAssociationsessionsVerify' smart constructor.+newtype AdSenseHostAssociationsessionsVerify = AdSenseHostAssociationsessionsVerify+  { -- | The token returned to the association callback URL.+    token :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostAssociationsessionsVerify' with the minimum fields required to make a request.+newAdSenseHostAssociationsessionsVerify ::+  -- |  The token returned to the association callback URL. See 'token'.+  Core.Text ->+  AdSenseHostAssociationsessionsVerify+newAdSenseHostAssociationsessionsVerify token =+  AdSenseHostAssociationsessionsVerify {token = token}++instance Core.GoogleRequest AdSenseHostAssociationsessionsVerify where+  type Rs AdSenseHostAssociationsessionsVerify = AssociationSession+  type+    Scopes AdSenseHostAssociationsessionsVerify =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostAssociationsessionsVerify {..} =+    go (Core.Just token) (Core.Just Core.AltJSON) adSenseHostService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdSenseHostAssociationsessionsVerifyResource+          )+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/Delete.hs view
@@ -0,0 +1,94 @@+{-# 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.AdSenseHost.Customchannels.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 a specific custom channel from the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.delete@.+module Gogol.AdSenseHost.Customchannels.Delete+  ( -- * Resource+    AdSenseHostCustomchannelsDeleteResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsDelete (..),+    newAdSenseHostCustomchannelsDelete,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.delete@ method which the+-- 'AdSenseHostCustomchannelsDelete' request conforms to.+type AdSenseHostCustomchannelsDeleteResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.Capture "customChannelId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] CustomChannel++-- | Delete a specific custom channel from the host AdSense account.+--+-- /See:/ 'newAdSenseHostCustomchannelsDelete' smart constructor.+data AdSenseHostCustomchannelsDelete = AdSenseHostCustomchannelsDelete+  { -- | Ad client from which to delete the custom channel.+    adClientId :: Core.Text,+    -- | Custom channel to delete.+    customChannelId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsDelete' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsDelete ::+  -- |  Ad client from which to delete the custom channel. See 'adClientId'.+  Core.Text ->+  -- |  Custom channel to delete. See 'customChannelId'.+  Core.Text ->+  AdSenseHostCustomchannelsDelete+newAdSenseHostCustomchannelsDelete adClientId customChannelId =+  AdSenseHostCustomchannelsDelete+    { adClientId = adClientId,+      customChannelId = customChannelId+    }++instance Core.GoogleRequest AdSenseHostCustomchannelsDelete where+  type Rs AdSenseHostCustomchannelsDelete = CustomChannel+  type+    Scopes AdSenseHostCustomchannelsDelete =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsDelete {..} =+    go+      adClientId+      customChannelId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsDeleteResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/Get.hs view
@@ -0,0 +1,94 @@+{-# 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.AdSenseHost.Customchannels.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 a specific custom channel from the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.get@.+module Gogol.AdSenseHost.Customchannels.Get+  ( -- * Resource+    AdSenseHostCustomchannelsGetResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsGet (..),+    newAdSenseHostCustomchannelsGet,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.get@ method which the+-- 'AdSenseHostCustomchannelsGet' request conforms to.+type AdSenseHostCustomchannelsGetResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.Capture "customChannelId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomChannel++-- | Get a specific custom channel from the host AdSense account.+--+-- /See:/ 'newAdSenseHostCustomchannelsGet' smart constructor.+data AdSenseHostCustomchannelsGet = AdSenseHostCustomchannelsGet+  { -- | Ad client from which to get the custom channel.+    adClientId :: Core.Text,+    -- | Custom channel to get.+    customChannelId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsGet' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsGet ::+  -- |  Ad client from which to get the custom channel. See 'adClientId'.+  Core.Text ->+  -- |  Custom channel to get. See 'customChannelId'.+  Core.Text ->+  AdSenseHostCustomchannelsGet+newAdSenseHostCustomchannelsGet adClientId customChannelId =+  AdSenseHostCustomchannelsGet+    { adClientId = adClientId,+      customChannelId = customChannelId+    }++instance Core.GoogleRequest AdSenseHostCustomchannelsGet where+  type Rs AdSenseHostCustomchannelsGet = CustomChannel+  type+    Scopes AdSenseHostCustomchannelsGet =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsGet {..} =+    go+      adClientId+      customChannelId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsGetResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/Insert.hs view
@@ -0,0 +1,90 @@+{-# 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.AdSenseHost.Customchannels.Insert+-- 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)+--+-- Add a new custom channel to the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.insert@.+module Gogol.AdSenseHost.Customchannels.Insert+  ( -- * Resource+    AdSenseHostCustomchannelsInsertResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsInsert (..),+    newAdSenseHostCustomchannelsInsert,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.insert@ method which the+-- 'AdSenseHostCustomchannelsInsert' request conforms to.+type AdSenseHostCustomchannelsInsertResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomChannel+    Core.:> Core.Post '[Core.JSON] CustomChannel++-- | Add a new custom channel to the host AdSense account.+--+-- /See:/ 'newAdSenseHostCustomchannelsInsert' smart constructor.+data AdSenseHostCustomchannelsInsert = AdSenseHostCustomchannelsInsert+  { -- | Ad client to which the new custom channel will be added.+    adClientId :: Core.Text,+    -- | Multipart request metadata.+    payload :: CustomChannel+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsInsert' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsInsert ::+  -- |  Ad client to which the new custom channel will be added. See 'adClientId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomChannel ->+  AdSenseHostCustomchannelsInsert+newAdSenseHostCustomchannelsInsert adClientId payload =+  AdSenseHostCustomchannelsInsert+    { adClientId = adClientId,+      payload = payload+    }++instance Core.GoogleRequest AdSenseHostCustomchannelsInsert where+  type Rs AdSenseHostCustomchannelsInsert = CustomChannel+  type+    Scopes AdSenseHostCustomchannelsInsert =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsInsert {..} =+    go adClientId (Core.Just Core.AltJSON) payload adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsInsertResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/List.hs view
@@ -0,0 +1,97 @@+{-# 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.AdSenseHost.Customchannels.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 all host custom channels in this AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.list@.+module Gogol.AdSenseHost.Customchannels.List+  ( -- * Resource+    AdSenseHostCustomchannelsListResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsList (..),+    newAdSenseHostCustomchannelsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.list@ method which the+-- 'AdSenseHostCustomchannelsList' request conforms to.+type AdSenseHostCustomchannelsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomChannels++-- | List all host custom channels in this AdSense account.+--+-- /See:/ 'newAdSenseHostCustomchannelsList' smart constructor.+data AdSenseHostCustomchannelsList = AdSenseHostCustomchannelsList+  { -- | Ad client for which to list custom channels.+    adClientId :: Core.Text,+    -- | The maximum number of custom channels to include in the response, used for paging.+    maxResults :: (Core.Maybe Core.Word32),+    -- | A continuation token, used to page through custom channels. To retrieve the next page, set this parameter to the value of \"nextPageToken\" from the previous response.+    pageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsList' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsList ::+  -- |  Ad client for which to list custom channels. See 'adClientId'.+  Core.Text ->+  AdSenseHostCustomchannelsList+newAdSenseHostCustomchannelsList adClientId =+  AdSenseHostCustomchannelsList+    { adClientId = adClientId,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostCustomchannelsList where+  type Rs AdSenseHostCustomchannelsList = CustomChannels+  type+    Scopes AdSenseHostCustomchannelsList =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsList {..} =+    go+      adClientId+      maxResults+      pageToken+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsListResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/Patch.hs view
@@ -0,0 +1,104 @@+{-# 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.AdSenseHost.Customchannels.Patch+-- 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 a custom channel in the host AdSense account. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.patch@.+module Gogol.AdSenseHost.Customchannels.Patch+  ( -- * Resource+    AdSenseHostCustomchannelsPatchResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsPatch (..),+    newAdSenseHostCustomchannelsPatch,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.patch@ method which the+-- 'AdSenseHostCustomchannelsPatch' request conforms to.+type AdSenseHostCustomchannelsPatchResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.QueryParam "customChannelId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomChannel+    Core.:> Core.Patch '[Core.JSON] CustomChannel++-- | Update a custom channel in the host AdSense account. This method supports patch semantics.+--+-- /See:/ 'newAdSenseHostCustomchannelsPatch' smart constructor.+data AdSenseHostCustomchannelsPatch = AdSenseHostCustomchannelsPatch+  { -- | Ad client in which the custom channel will be updated.+    adClientId :: Core.Text,+    -- | Custom channel to get.+    customChannelId :: Core.Text,+    -- | Multipart request metadata.+    payload :: CustomChannel+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsPatch' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsPatch ::+  -- |  Ad client in which the custom channel will be updated. See 'adClientId'.+  Core.Text ->+  -- |  Custom channel to get. See 'customChannelId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomChannel ->+  AdSenseHostCustomchannelsPatch+newAdSenseHostCustomchannelsPatch+  adClientId+  customChannelId+  payload =+    AdSenseHostCustomchannelsPatch+      { adClientId = adClientId,+        customChannelId = customChannelId,+        payload = payload+      }++instance Core.GoogleRequest AdSenseHostCustomchannelsPatch where+  type Rs AdSenseHostCustomchannelsPatch = CustomChannel+  type+    Scopes AdSenseHostCustomchannelsPatch =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsPatch {..} =+    go+      adClientId+      (Core.Just customChannelId)+      (Core.Just Core.AltJSON)+      payload+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsPatchResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Customchannels/Update.hs view
@@ -0,0 +1,90 @@+{-# 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.AdSenseHost.Customchannels.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 a custom channel in the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.update@.+module Gogol.AdSenseHost.Customchannels.Update+  ( -- * Resource+    AdSenseHostCustomchannelsUpdateResource,++    -- ** Constructing a Request+    AdSenseHostCustomchannelsUpdate (..),+    newAdSenseHostCustomchannelsUpdate,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.customchannels.update@ method which the+-- 'AdSenseHostCustomchannelsUpdate' request conforms to.+type AdSenseHostCustomchannelsUpdateResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "customchannels"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomChannel+    Core.:> Core.Put '[Core.JSON] CustomChannel++-- | Update a custom channel in the host AdSense account.+--+-- /See:/ 'newAdSenseHostCustomchannelsUpdate' smart constructor.+data AdSenseHostCustomchannelsUpdate = AdSenseHostCustomchannelsUpdate+  { -- | Ad client in which the custom channel will be updated.+    adClientId :: Core.Text,+    -- | Multipart request metadata.+    payload :: CustomChannel+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostCustomchannelsUpdate' with the minimum fields required to make a request.+newAdSenseHostCustomchannelsUpdate ::+  -- |  Ad client in which the custom channel will be updated. See 'adClientId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomChannel ->+  AdSenseHostCustomchannelsUpdate+newAdSenseHostCustomchannelsUpdate adClientId payload =+  AdSenseHostCustomchannelsUpdate+    { adClientId = adClientId,+      payload = payload+    }++instance Core.GoogleRequest AdSenseHostCustomchannelsUpdate where+  type Rs AdSenseHostCustomchannelsUpdate = CustomChannel+  type+    Scopes AdSenseHostCustomchannelsUpdate =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostCustomchannelsUpdate {..} =+    go adClientId (Core.Just Core.AltJSON) payload adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostCustomchannelsUpdateResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Internal/Product.hs view
@@ -0,0 +1,1101 @@+{-# 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.AdSenseHost.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.AdSenseHost.Internal.Product+  ( -- * Account+    Account (..),+    newAccount,++    -- * Accounts+    Accounts (..),+    newAccounts,++    -- * AdClient+    AdClient (..),+    newAdClient,++    -- * AdClients+    AdClients (..),+    newAdClients,++    -- * AdCode+    AdCode (..),+    newAdCode,++    -- * AdStyle+    AdStyle (..),+    newAdStyle,++    -- * AdStyle_Colors+    AdStyle_Colors (..),+    newAdStyle_Colors,++    -- * AdStyle_Font+    AdStyle_Font (..),+    newAdStyle_Font,++    -- * AdUnit+    AdUnit (..),+    newAdUnit,++    -- * AdUnit_ContentAdsSettings+    AdUnit_ContentAdsSettings (..),+    newAdUnit_ContentAdsSettings,++    -- * AdUnit_ContentAdsSettings_BackupOption+    AdUnit_ContentAdsSettings_BackupOption (..),+    newAdUnit_ContentAdsSettings_BackupOption,++    -- * AdUnit_MobileContentAdsSettings+    AdUnit_MobileContentAdsSettings (..),+    newAdUnit_MobileContentAdsSettings,++    -- * AdUnits+    AdUnits (..),+    newAdUnits,++    -- * AssociationSession+    AssociationSession (..),+    newAssociationSession,++    -- * CustomChannel+    CustomChannel (..),+    newCustomChannel,++    -- * CustomChannels+    CustomChannels (..),+    newCustomChannels,++    -- * Report+    Report (..),+    newReport,++    -- * Report_HeadersItem+    Report_HeadersItem (..),+    newReport_HeadersItem,++    -- * UrlChannel+    UrlChannel (..),+    newUrlChannel,++    -- * UrlChannels+    UrlChannels (..),+    newUrlChannels,+  )+where++import Gogol.AdSenseHost.Internal.Sum+import Gogol.Prelude qualified as Core++--+-- /See:/ 'newAccount' smart constructor.+data Account = Account+  { -- | Unique identifier of this account.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#account.+    kind :: Core.Text,+    -- | Name of this account.+    name :: (Core.Maybe Core.Text),+    -- | Approval status of this account. One of: PENDING, APPROVED, DISABLED.+    status :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Account' with the minimum fields required to make a request.+newAccount ::+  Account+newAccount =+  Account+    { id = Core.Nothing,+      kind = "adsensehost#account",+      name = Core.Nothing,+      status = Core.Nothing+    }++instance Core.FromJSON Account where+  parseJSON =+    Core.withObject+      "Account"+      ( \o ->+          Account+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#account")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "status")+      )++instance Core.ToJSON Account where+  toJSON Account {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("status" Core..=) Core.<$> status+          ]+      )++--+-- /See:/ 'newAccounts' smart constructor.+data Accounts = Accounts+  { -- | ETag of this response for caching purposes.+    etag :: (Core.Maybe Core.Text),+    -- | The accounts returned in this list response.+    items :: (Core.Maybe [Account]),+    -- | Kind of list this is, in this case adsensehost#accounts.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Accounts' with the minimum fields required to make a request.+newAccounts ::+  Accounts+newAccounts =+  Accounts+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "adsensehost#accounts"+    }++instance Core.FromJSON Accounts where+  parseJSON =+    Core.withObject+      "Accounts"+      ( \o ->+          Accounts+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#accounts")+      )++instance Core.ToJSON Accounts where+  toJSON Accounts {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind)+          ]+      )++--+-- /See:/ 'newAdClient' smart constructor.+data AdClient = AdClient+  { -- | Whether this ad client is opted in to ARC.+    arcOptIn :: (Core.Maybe Core.Bool),+    -- | Unique identifier of this ad client.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#adClient.+    kind :: Core.Text,+    -- | This ad client\'s product code, which corresponds to the PRODUCT_CODE report dimension.+    productCode :: (Core.Maybe Core.Text),+    -- | Whether this ad client supports being reported on.+    supportsReporting :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdClient' with the minimum fields required to make a request.+newAdClient ::+  AdClient+newAdClient =+  AdClient+    { arcOptIn = Core.Nothing,+      id = Core.Nothing,+      kind = "adsensehost#adClient",+      productCode = Core.Nothing,+      supportsReporting = Core.Nothing+    }++instance Core.FromJSON AdClient where+  parseJSON =+    Core.withObject+      "AdClient"+      ( \o ->+          AdClient+            Core.<$> (o Core..:? "arcOptIn")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adClient")+            Core.<*> (o Core..:? "productCode")+            Core.<*> (o Core..:? "supportsReporting")+      )++instance Core.ToJSON AdClient where+  toJSON AdClient {..} =+    Core.object+      ( Core.catMaybes+          [ ("arcOptIn" Core..=) Core.<$> arcOptIn,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("productCode" Core..=) Core.<$> productCode,+            ("supportsReporting" Core..=) Core.<$> supportsReporting+          ]+      )++--+-- /See:/ 'newAdClients' smart constructor.+data AdClients = AdClients+  { -- | ETag of this response for caching purposes.+    etag :: (Core.Maybe Core.Text),+    -- | The ad clients returned in this list response.+    items :: (Core.Maybe [AdClient]),+    -- | Kind of list this is, in this case adsensehost#adClients.+    kind :: Core.Text,+    -- | Continuation token used to page through ad clients. To retrieve the next page of results, set the next request\'s \"pageToken\" value to this.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdClients' with the minimum fields required to make a request.+newAdClients ::+  AdClients+newAdClients =+  AdClients+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "adsensehost#adClients",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON AdClients where+  parseJSON =+    Core.withObject+      "AdClients"+      ( \o ->+          AdClients+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adClients")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON AdClients where+  toJSON AdClients {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newAdCode' smart constructor.+data AdCode = AdCode+  { -- | The ad code snippet.+    adCode :: (Core.Maybe Core.Text),+    -- | Kind this is, in this case adsensehost#adCode.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdCode' with the minimum fields required to make a request.+newAdCode ::+  AdCode+newAdCode =+  AdCode {adCode = Core.Nothing, kind = "adsensehost#adCode"}++instance Core.FromJSON AdCode where+  parseJSON =+    Core.withObject+      "AdCode"+      ( \o ->+          AdCode+            Core.<$> (o Core..:? "adCode")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adCode")+      )++instance Core.ToJSON AdCode where+  toJSON AdCode {..} =+    Core.object+      ( Core.catMaybes+          [ ("adCode" Core..=) Core.<$> adCode,+            Core.Just ("kind" Core..= kind)+          ]+      )++--+-- /See:/ 'newAdStyle' smart constructor.+data AdStyle = AdStyle+  { -- | The colors included in the style. These are represented as six hexadecimal characters, similar to HTML color codes, but without the leading hash.+    colors :: (Core.Maybe AdStyle_Colors),+    -- | The style of the corners in the ad (deprecated: never populated, ignored).+    corners :: (Core.Maybe Core.Text),+    -- | The font which is included in the style.+    font :: (Core.Maybe AdStyle_Font),+    -- | Kind this is, in this case adsensehost#adStyle.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdStyle' with the minimum fields required to make a request.+newAdStyle ::+  AdStyle+newAdStyle =+  AdStyle+    { colors = Core.Nothing,+      corners = Core.Nothing,+      font = Core.Nothing,+      kind = "adsensehost#adStyle"+    }++instance Core.FromJSON AdStyle where+  parseJSON =+    Core.withObject+      "AdStyle"+      ( \o ->+          AdStyle+            Core.<$> (o Core..:? "colors")+            Core.<*> (o Core..:? "corners")+            Core.<*> (o Core..:? "font")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adStyle")+      )++instance Core.ToJSON AdStyle where+  toJSON AdStyle {..} =+    Core.object+      ( Core.catMaybes+          [ ("colors" Core..=) Core.<$> colors,+            ("corners" Core..=) Core.<$> corners,+            ("font" Core..=) Core.<$> font,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | The colors included in the style. These are represented as six hexadecimal characters, similar to HTML color codes, but without the leading hash.+--+-- /See:/ 'newAdStyle_Colors' smart constructor.+data AdStyle_Colors = AdStyle_Colors+  { -- | The color of the ad background.+    background :: (Core.Maybe Core.Text),+    -- | The color of the ad border.+    border :: (Core.Maybe Core.Text),+    -- | The color of the ad text.+    text :: (Core.Maybe Core.Text),+    -- | The color of the ad title.+    title :: (Core.Maybe Core.Text),+    -- | The color of the ad url.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdStyle_Colors' with the minimum fields required to make a request.+newAdStyle_Colors ::+  AdStyle_Colors+newAdStyle_Colors =+  AdStyle_Colors+    { background = Core.Nothing,+      border = Core.Nothing,+      text = Core.Nothing,+      title = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON AdStyle_Colors where+  parseJSON =+    Core.withObject+      "AdStyle_Colors"+      ( \o ->+          AdStyle_Colors+            Core.<$> (o Core..:? "background")+            Core.<*> (o Core..:? "border")+            Core.<*> (o Core..:? "text")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON AdStyle_Colors where+  toJSON AdStyle_Colors {..} =+    Core.object+      ( Core.catMaybes+          [ ("background" Core..=) Core.<$> background,+            ("border" Core..=) Core.<$> border,+            ("text" Core..=) Core.<$> text,+            ("title" Core..=) Core.<$> title,+            ("url" Core..=) Core.<$> url+          ]+      )++-- | The font which is included in the style.+--+-- /See:/ 'newAdStyle_Font' smart constructor.+data AdStyle_Font = AdStyle_Font+  { -- | The family of the font. Possible values are: ACCOUNT/DEFAULT/FAMILY, ADSENSE/DEFAULT/FAMILY, ARIAL, TIMES and VERDANA.+    family :: (Core.Maybe Core.Text),+    -- | The size of the font. Possible values are: ACCOUNT/DEFAULT/SIZE, ADSENSE/DEFAULT/SIZE, SMALL, MEDIUM and LARGE.+    size :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdStyle_Font' with the minimum fields required to make a request.+newAdStyle_Font ::+  AdStyle_Font+newAdStyle_Font =+  AdStyle_Font {family = Core.Nothing, size = Core.Nothing}++instance Core.FromJSON AdStyle_Font where+  parseJSON =+    Core.withObject+      "AdStyle_Font"+      ( \o ->+          AdStyle_Font+            Core.<$> (o Core..:? "family")+            Core.<*> (o Core..:? "size")+      )++instance Core.ToJSON AdStyle_Font where+  toJSON AdStyle_Font {..} =+    Core.object+      ( Core.catMaybes+          [ ("family" Core..=) Core.<$> family,+            ("size" Core..=) Core.<$> size+          ]+      )++--+-- /See:/ 'newAdUnit' smart constructor.+data AdUnit = AdUnit+  { -- | Identity code of this ad unit, not necessarily unique across ad clients.+    code :: (Core.Maybe Core.Text),+    -- | Settings specific to content ads (AFC) and highend mobile content ads (AFMC - deprecated).+    contentAdsSettings :: (Core.Maybe AdUnit_ContentAdsSettings),+    -- | Custom style information specific to this ad unit.+    customStyle :: (Core.Maybe AdStyle),+    -- | Unique identifier of this ad unit. This should be considered an opaque identifier; it is not safe to rely on it being in any particular format.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#adUnit.+    kind :: Core.Text,+    -- | Settings specific to WAP mobile content ads (AFMC - deprecated).+    mobileContentAdsSettings :: (Core.Maybe AdUnit_MobileContentAdsSettings),+    -- | Name of this ad unit.+    name :: (Core.Maybe Core.Text),+    -- | Status of this ad unit. Possible values are: NEW: Indicates that the ad unit was created within the last seven days and does not yet have any activity associated with it.+    --+    -- ACTIVE: Indicates that there has been activity on this ad unit in the last seven days.+    --+    -- INACTIVE: Indicates that there has been no activity on this ad unit in the last seven days.+    status :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdUnit' with the minimum fields required to make a request.+newAdUnit ::+  AdUnit+newAdUnit =+  AdUnit+    { code = Core.Nothing,+      contentAdsSettings = Core.Nothing,+      customStyle = Core.Nothing,+      id = Core.Nothing,+      kind = "adsensehost#adUnit",+      mobileContentAdsSettings = Core.Nothing,+      name = Core.Nothing,+      status = Core.Nothing+    }++instance Core.FromJSON AdUnit where+  parseJSON =+    Core.withObject+      "AdUnit"+      ( \o ->+          AdUnit+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "contentAdsSettings")+            Core.<*> (o Core..:? "customStyle")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adUnit")+            Core.<*> (o Core..:? "mobileContentAdsSettings")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "status")+      )++instance Core.ToJSON AdUnit where+  toJSON AdUnit {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("contentAdsSettings" Core..=) Core.<$> contentAdsSettings,+            ("customStyle" Core..=) Core.<$> customStyle,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("mobileContentAdsSettings" Core..=)+              Core.<$> mobileContentAdsSettings,+            ("name" Core..=) Core.<$> name,+            ("status" Core..=) Core.<$> status+          ]+      )++-- | Settings specific to content ads (AFC) and highend mobile content ads (AFMC - deprecated).+--+-- /See:/ 'newAdUnit_ContentAdsSettings' smart constructor.+data AdUnit_ContentAdsSettings = AdUnit_ContentAdsSettings+  { -- | The backup option to be used in instances where no ad is available.+    backupOption :: (Core.Maybe AdUnit_ContentAdsSettings_BackupOption),+    -- | Size of this ad unit. Size values are in the form SIZE/{width}/{height}.+    size :: (Core.Maybe Core.Text),+    -- | Type of this ad unit. Possible values are TEXT, TEXT_IMAGE, IMAGE and LINK.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdUnit_ContentAdsSettings' with the minimum fields required to make a request.+newAdUnit_ContentAdsSettings ::+  AdUnit_ContentAdsSettings+newAdUnit_ContentAdsSettings =+  AdUnit_ContentAdsSettings+    { backupOption = Core.Nothing,+      size = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON AdUnit_ContentAdsSettings where+  parseJSON =+    Core.withObject+      "AdUnit_ContentAdsSettings"+      ( \o ->+          AdUnit_ContentAdsSettings+            Core.<$> (o Core..:? "backupOption")+            Core.<*> (o Core..:? "size")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON AdUnit_ContentAdsSettings where+  toJSON AdUnit_ContentAdsSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("backupOption" Core..=) Core.<$> backupOption,+            ("size" Core..=) Core.<$> size,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | The backup option to be used in instances where no ad is available.+--+-- /See:/ 'newAdUnit_ContentAdsSettings_BackupOption' smart constructor.+data AdUnit_ContentAdsSettings_BackupOption = AdUnit_ContentAdsSettings_BackupOption+  { -- | Color to use when type is set to COLOR. These are represented as six hexadecimal characters, similar to HTML color codes, but without the leading hash.+    color :: (Core.Maybe Core.Text),+    -- | Type of the backup option. Possible values are BLANK, COLOR and URL.+    type' :: (Core.Maybe Core.Text),+    -- | URL to use when type is set to URL.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdUnit_ContentAdsSettings_BackupOption' with the minimum fields required to make a request.+newAdUnit_ContentAdsSettings_BackupOption ::+  AdUnit_ContentAdsSettings_BackupOption+newAdUnit_ContentAdsSettings_BackupOption =+  AdUnit_ContentAdsSettings_BackupOption+    { color = Core.Nothing,+      type' = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON AdUnit_ContentAdsSettings_BackupOption where+  parseJSON =+    Core.withObject+      "AdUnit_ContentAdsSettings_BackupOption"+      ( \o ->+          AdUnit_ContentAdsSettings_BackupOption+            Core.<$> (o Core..:? "color")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON AdUnit_ContentAdsSettings_BackupOption where+  toJSON AdUnit_ContentAdsSettings_BackupOption {..} =+    Core.object+      ( Core.catMaybes+          [ ("color" Core..=) Core.<$> color,+            ("type" Core..=) Core.<$> type',+            ("url" Core..=) Core.<$> url+          ]+      )++-- | Settings specific to WAP mobile content ads (AFMC - deprecated).+--+-- /See:/ 'newAdUnit_MobileContentAdsSettings' smart constructor.+data AdUnit_MobileContentAdsSettings = AdUnit_MobileContentAdsSettings+  { -- | The markup language to use for this ad unit.+    markupLanguage :: (Core.Maybe Core.Text),+    -- | The scripting language to use for this ad unit.+    scriptingLanguage :: (Core.Maybe Core.Text),+    -- | Size of this ad unit.+    size :: (Core.Maybe Core.Text),+    -- | Type of this ad unit.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdUnit_MobileContentAdsSettings' with the minimum fields required to make a request.+newAdUnit_MobileContentAdsSettings ::+  AdUnit_MobileContentAdsSettings+newAdUnit_MobileContentAdsSettings =+  AdUnit_MobileContentAdsSettings+    { markupLanguage = Core.Nothing,+      scriptingLanguage = Core.Nothing,+      size = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON AdUnit_MobileContentAdsSettings where+  parseJSON =+    Core.withObject+      "AdUnit_MobileContentAdsSettings"+      ( \o ->+          AdUnit_MobileContentAdsSettings+            Core.<$> (o Core..:? "markupLanguage")+            Core.<*> (o Core..:? "scriptingLanguage")+            Core.<*> (o Core..:? "size")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON AdUnit_MobileContentAdsSettings where+  toJSON AdUnit_MobileContentAdsSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("markupLanguage" Core..=) Core.<$> markupLanguage,+            ("scriptingLanguage" Core..=) Core.<$> scriptingLanguage,+            ("size" Core..=) Core.<$> size,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newAdUnits' smart constructor.+data AdUnits = AdUnits+  { -- | ETag of this response for caching purposes.+    etag :: (Core.Maybe Core.Text),+    -- | The ad units returned in this list response.+    items :: (Core.Maybe [AdUnit]),+    -- | Kind of list this is, in this case adsensehost#adUnits.+    kind :: Core.Text,+    -- | Continuation token used to page through ad units. To retrieve the next page of results, set the next request\'s \"pageToken\" value to this.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdUnits' with the minimum fields required to make a request.+newAdUnits ::+  AdUnits+newAdUnits =+  AdUnits+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "adsensehost#adUnits",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON AdUnits where+  parseJSON =+    Core.withObject+      "AdUnits"+      ( \o ->+          AdUnits+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#adUnits")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON AdUnits where+  toJSON AdUnits {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newAssociationSession' smart constructor.+data AssociationSession = AssociationSession+  { -- | Hosted account id of the associated publisher after association. Present if status is ACCEPTED.+    accountId :: (Core.Maybe Core.Text),+    -- | Unique identifier of this association session.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#associationSession.+    kind :: Core.Text,+    -- | The products to associate with the user. Options: AFC, AFG, AFV, AFS (deprecated), AFMC (deprecated)+    productCodes :: (Core.Maybe [Core.Text]),+    -- | Redirect URL of this association session. Used to redirect users into the AdSense association flow.+    redirectUrl :: (Core.Maybe Core.Text),+    -- | Status of the completed association, available once the association callback token has been verified. One of ACCEPTED, REJECTED, or ERROR.+    status :: (Core.Maybe Core.Text),+    -- | The preferred locale of the user themselves when going through the AdSense association flow.+    userLocale :: (Core.Maybe Core.Text),+    -- | The locale of the user\'s hosted website.+    websiteLocale :: (Core.Maybe Core.Text),+    -- | The URL of the user\'s hosted website.+    websiteUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AssociationSession' with the minimum fields required to make a request.+newAssociationSession ::+  AssociationSession+newAssociationSession =+  AssociationSession+    { accountId = Core.Nothing,+      id = Core.Nothing,+      kind = "adsensehost#associationSession",+      productCodes = Core.Nothing,+      redirectUrl = Core.Nothing,+      status = Core.Nothing,+      userLocale = Core.Nothing,+      websiteLocale = Core.Nothing,+      websiteUrl = Core.Nothing+    }++instance Core.FromJSON AssociationSession where+  parseJSON =+    Core.withObject+      "AssociationSession"+      ( \o ->+          AssociationSession+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#associationSession")+            Core.<*> (o Core..:? "productCodes")+            Core.<*> (o Core..:? "redirectUrl")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "userLocale")+            Core.<*> (o Core..:? "websiteLocale")+            Core.<*> (o Core..:? "websiteUrl")+      )++instance Core.ToJSON AssociationSession where+  toJSON AssociationSession {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("productCodes" Core..=) Core.<$> productCodes,+            ("redirectUrl" Core..=) Core.<$> redirectUrl,+            ("status" Core..=) Core.<$> status,+            ("userLocale" Core..=) Core.<$> userLocale,+            ("websiteLocale" Core..=) Core.<$> websiteLocale,+            ("websiteUrl" Core..=) Core.<$> websiteUrl+          ]+      )++--+-- /See:/ 'newCustomChannel' smart constructor.+data CustomChannel = CustomChannel+  { -- | Code of this custom channel, not necessarily unique across ad clients.+    code :: (Core.Maybe Core.Text),+    -- | Unique identifier of this custom channel. This should be considered an opaque identifier; it is not safe to rely on it being in any particular format.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#customChannel.+    kind :: Core.Text,+    -- | Name of this custom channel.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomChannel' with the minimum fields required to make a request.+newCustomChannel ::+  CustomChannel+newCustomChannel =+  CustomChannel+    { code = Core.Nothing,+      id = Core.Nothing,+      kind = "adsensehost#customChannel",+      name = Core.Nothing+    }++instance Core.FromJSON CustomChannel where+  parseJSON =+    Core.withObject+      "CustomChannel"+      ( \o ->+          CustomChannel+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#customChannel")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON CustomChannel where+  toJSON CustomChannel {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name+          ]+      )++--+-- /See:/ 'newCustomChannels' smart constructor.+data CustomChannels = CustomChannels+  { -- | ETag of this response for caching purposes.+    etag :: (Core.Maybe Core.Text),+    -- | The custom channels returned in this list response.+    items :: (Core.Maybe [CustomChannel]),+    -- | Kind of list this is, in this case adsensehost#customChannels.+    kind :: Core.Text,+    -- | Continuation token used to page through custom channels. To retrieve the next page of results, set the next request\'s \"pageToken\" value to this.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomChannels' with the minimum fields required to make a request.+newCustomChannels ::+  CustomChannels+newCustomChannels =+  CustomChannels+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "adsensehost#customChannels",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON CustomChannels where+  parseJSON =+    Core.withObject+      "CustomChannels"+      ( \o ->+          CustomChannels+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#customChannels")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON CustomChannels where+  toJSON CustomChannels {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newReport' smart constructor.+data Report = Report+  { -- | The averages of the report. This is the same length as any other row in the report; cells corresponding to dimension columns are empty.+    averages :: (Core.Maybe [Core.Text]),+    -- | The header information of the columns requested in the report. This is a list of headers; one for each dimension in the request, followed by one for each metric in the request.+    headers :: (Core.Maybe [Report_HeadersItem]),+    -- | Kind this is, in this case adsensehost#report.+    kind :: Core.Text,+    -- | The output rows of the report. Each row is a list of cells; one for each dimension in the request, followed by one for each metric in the request. The dimension cells contain strings, and the metric cells contain numbers.+    rows :: (Core.Maybe [[Core.Text]]),+    -- | The total number of rows matched by the report request. Fewer rows may be returned in the response due to being limited by the row count requested or the report row limit.+    totalMatchedRows :: (Core.Maybe Core.Int64),+    -- | The totals of the report. This is the same length as any other row in the report; cells corresponding to dimension columns are empty.+    totals :: (Core.Maybe [Core.Text]),+    -- | Any warnings associated with generation of the report.+    warnings :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Report' with the minimum fields required to make a request.+newReport ::+  Report+newReport =+  Report+    { averages = Core.Nothing,+      headers = Core.Nothing,+      kind = "adsensehost#report",+      rows = Core.Nothing,+      totalMatchedRows = Core.Nothing,+      totals = Core.Nothing,+      warnings = Core.Nothing+    }++instance Core.FromJSON Report where+  parseJSON =+    Core.withObject+      "Report"+      ( \o ->+          Report+            Core.<$> (o Core..:? "averages")+            Core.<*> (o Core..:? "headers")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#report")+            Core.<*> (o Core..:? "rows")+            Core.<*> (o Core..:? "totalMatchedRows" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "totals")+            Core.<*> (o Core..:? "warnings")+      )++instance Core.ToJSON Report where+  toJSON Report {..} =+    Core.object+      ( Core.catMaybes+          [ ("averages" Core..=) Core.<$> averages,+            ("headers" Core..=) Core.<$> headers,+            Core.Just ("kind" Core..= kind),+            ("rows" Core..=) Core.<$> rows,+            ("totalMatchedRows" Core..=)+              Core.. Core.AsText+              Core.<$> totalMatchedRows,+            ("totals" Core..=) Core.<$> totals,+            ("warnings" Core..=) Core.<$> warnings+          ]+      )++--+-- /See:/ 'newReport_HeadersItem' smart constructor.+data Report_HeadersItem = Report_HeadersItem+  { -- | The currency of this column. Only present if the header type is METRIC_CURRENCY.+    currency :: (Core.Maybe Core.Text),+    -- | The name of the header.+    name :: (Core.Maybe Core.Text),+    -- | The type of the header; one of DIMENSION, METRIC/TALLY, METRIC/RATIO, or METRIC_CURRENCY.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Report_HeadersItem' with the minimum fields required to make a request.+newReport_HeadersItem ::+  Report_HeadersItem+newReport_HeadersItem =+  Report_HeadersItem+    { currency = Core.Nothing,+      name = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Report_HeadersItem where+  parseJSON =+    Core.withObject+      "Report_HeadersItem"+      ( \o ->+          Report_HeadersItem+            Core.<$> (o Core..:? "currency")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Report_HeadersItem where+  toJSON Report_HeadersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("currency" Core..=) Core.<$> currency,+            ("name" Core..=) Core.<$> name,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newUrlChannel' smart constructor.+data UrlChannel = UrlChannel+  { -- | Unique identifier of this URL channel. This should be considered an opaque identifier; it is not safe to rely on it being in any particular format.+    id :: (Core.Maybe Core.Text),+    -- | Kind of resource this is, in this case adsensehost#urlChannel.+    kind :: Core.Text,+    -- | URL Pattern of this URL channel. Does not include \"http:\/\/\" or \"https:\/\/\". Example: www.example.com\/home+    urlPattern :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UrlChannel' with the minimum fields required to make a request.+newUrlChannel ::+  UrlChannel+newUrlChannel =+  UrlChannel+    { id = Core.Nothing,+      kind = "adsensehost#urlChannel",+      urlPattern = Core.Nothing+    }++instance Core.FromJSON UrlChannel where+  parseJSON =+    Core.withObject+      "UrlChannel"+      ( \o ->+          UrlChannel+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#urlChannel")+            Core.<*> (o Core..:? "urlPattern")+      )++instance Core.ToJSON UrlChannel where+  toJSON UrlChannel {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("urlPattern" Core..=) Core.<$> urlPattern+          ]+      )++--+-- /See:/ 'newUrlChannels' smart constructor.+data UrlChannels = UrlChannels+  { -- | ETag of this response for caching purposes.+    etag :: (Core.Maybe Core.Text),+    -- | The URL channels returned in this list response.+    items :: (Core.Maybe [UrlChannel]),+    -- | Kind of list this is, in this case adsensehost#urlChannels.+    kind :: Core.Text,+    -- | Continuation token used to page through URL channels. To retrieve the next page of results, set the next request\'s \"pageToken\" value to this.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UrlChannels' with the minimum fields required to make a request.+newUrlChannels ::+  UrlChannels+newUrlChannels =+  UrlChannels+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "adsensehost#urlChannels",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON UrlChannels where+  parseJSON =+    Core.withObject+      "UrlChannels"+      ( \o ->+          UrlChannels+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "adsensehost#urlChannels")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON UrlChannels where+  toJSON UrlChannels {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )
+ gen/Gogol/AdSenseHost/Internal/Sum.hs view
@@ -0,0 +1,81 @@+{-# 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.AdSenseHost.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.AdSenseHost.Internal.Sum+  ( -- * AssociationsessionsStartProductCode+    AssociationsessionsStartProductCode+      ( AssociationsessionsStartProductCode_Afc,+        AssociationsessionsStartProductCode_Afg,+        AssociationsessionsStartProductCode_Afmc,+        AssociationsessionsStartProductCode_Afs,+        AssociationsessionsStartProductCode_Afv,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | Products to associate with the user.+newtype AssociationsessionsStartProductCode = AssociationsessionsStartProductCode {fromAssociationsessionsStartProductCode :: 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+    )++-- | AdSense For Content+pattern AssociationsessionsStartProductCode_Afc :: AssociationsessionsStartProductCode+pattern AssociationsessionsStartProductCode_Afc = AssociationsessionsStartProductCode "AFC"++-- | AdSense For Games+pattern AssociationsessionsStartProductCode_Afg :: AssociationsessionsStartProductCode+pattern AssociationsessionsStartProductCode_Afg = AssociationsessionsStartProductCode "AFG"++-- | AdSense For Mobile Content - deprecated+pattern AssociationsessionsStartProductCode_Afmc :: AssociationsessionsStartProductCode+pattern AssociationsessionsStartProductCode_Afmc = AssociationsessionsStartProductCode "AFMC"++-- | AdSense For Search - deprecated+pattern AssociationsessionsStartProductCode_Afs :: AssociationsessionsStartProductCode+pattern AssociationsessionsStartProductCode_Afs = AssociationsessionsStartProductCode "AFS"++-- | AdSense For Video+pattern AssociationsessionsStartProductCode_Afv :: AssociationsessionsStartProductCode+pattern AssociationsessionsStartProductCode_Afv = AssociationsessionsStartProductCode "AFV"++{-# COMPLETE+  AssociationsessionsStartProductCode_Afc,+  AssociationsessionsStartProductCode_Afg,+  AssociationsessionsStartProductCode_Afmc,+  AssociationsessionsStartProductCode_Afs,+  AssociationsessionsStartProductCode_Afv,+  AssociationsessionsStartProductCode+  #-}
+ gen/Gogol/AdSenseHost/Reports/Generate.hs view
@@ -0,0 +1,126 @@+{-# 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.AdSenseHost.Reports.Generate+-- 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)+--+-- Generate an AdSense report based on the report request sent in the query parameters. Returns the result as JSON; to retrieve output in CSV format specify \"alt=csv\" as a query parameter.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.reports.generate@.+module Gogol.AdSenseHost.Reports.Generate+  ( -- * Resource+    AdSenseHostReportsGenerateResource,++    -- ** Constructing a Request+    AdSenseHostReportsGenerate (..),+    newAdSenseHostReportsGenerate,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.reports.generate@ method which the+-- 'AdSenseHostReportsGenerate' request conforms to.+type AdSenseHostReportsGenerateResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "reports"+    Core.:> Core.QueryParam "startDate" Core.Text+    Core.:> Core.QueryParam "endDate" Core.Text+    Core.:> Core.QueryParams "dimension" Core.Text+    Core.:> Core.QueryParams "filter" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParams "metric" Core.Text+    Core.:> Core.QueryParams "sort" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Report++-- | Generate an AdSense report based on the report request sent in the query parameters. Returns the result as JSON; to retrieve output in CSV format specify \"alt=csv\" as a query parameter.+--+-- /See:/ 'newAdSenseHostReportsGenerate' smart constructor.+data AdSenseHostReportsGenerate = AdSenseHostReportsGenerate+  { -- | Dimensions to base the report on.+    dimension :: (Core.Maybe [Core.Text]),+    -- | End of the date range to report on in \"YYYY-MM-DD\" format, inclusive.+    endDate :: Core.Text,+    -- | Filters to be run on the report.+    filter :: (Core.Maybe [Core.Text]),+    -- | Optional locale to use for translating report output to a local language. Defaults to \"en_US\" if not specified.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum number of rows of report data to return.+    maxResults :: (Core.Maybe Core.Word32),+    -- | Numeric columns to include in the report.+    metric :: (Core.Maybe [Core.Text]),+    -- | The name of a dimension or metric to sort the resulting report on, optionally prefixed with \"+\" to sort ascending or \"-\" to sort descending. If no prefix is specified, the column is sorted ascending.+    sort :: (Core.Maybe [Core.Text]),+    -- | Start of the date range to report on in \"YYYY-MM-DD\" format, inclusive.+    startDate :: Core.Text,+    -- | Index of the first row of report data to return.+    startIndex :: (Core.Maybe Core.Word32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostReportsGenerate' with the minimum fields required to make a request.+newAdSenseHostReportsGenerate ::+  -- |  End of the date range to report on in \"YYYY-MM-DD\" format, inclusive. See 'endDate'.+  Core.Text ->+  -- |  Start of the date range to report on in \"YYYY-MM-DD\" format, inclusive. See 'startDate'.+  Core.Text ->+  AdSenseHostReportsGenerate+newAdSenseHostReportsGenerate endDate startDate =+  AdSenseHostReportsGenerate+    { dimension = Core.Nothing,+      endDate = endDate,+      filter = Core.Nothing,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      metric = Core.Nothing,+      sort = Core.Nothing,+      startDate = startDate,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostReportsGenerate where+  type Rs AdSenseHostReportsGenerate = Report+  type Scopes AdSenseHostReportsGenerate = '[Adsensehost'FullControl]+  requestClient AdSenseHostReportsGenerate {..} =+    go+      (Core.Just startDate)+      (Core.Just endDate)+      (dimension Core.^. Core._Default)+      (filter Core.^. Core._Default)+      locale+      maxResults+      (metric Core.^. Core._Default)+      (sort Core.^. Core._Default)+      startIndex+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostReportsGenerateResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Types.hs view
@@ -0,0 +1,133 @@+{-# 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.AdSenseHost.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.AdSenseHost.Types+  ( -- * Configuration+    adSenseHostService,++    -- * OAuth Scopes+    Adsensehost'FullControl,++    -- * Types++    -- ** Account+    Account (..),+    newAccount,++    -- ** Accounts+    Accounts (..),+    newAccounts,++    -- ** AdClient+    AdClient (..),+    newAdClient,++    -- ** AdClients+    AdClients (..),+    newAdClients,++    -- ** AdCode+    AdCode (..),+    newAdCode,++    -- ** AdStyle+    AdStyle (..),+    newAdStyle,++    -- ** AdStyle_Colors+    AdStyle_Colors (..),+    newAdStyle_Colors,++    -- ** AdStyle_Font+    AdStyle_Font (..),+    newAdStyle_Font,++    -- ** AdUnit+    AdUnit (..),+    newAdUnit,++    -- ** AdUnit_ContentAdsSettings+    AdUnit_ContentAdsSettings (..),+    newAdUnit_ContentAdsSettings,++    -- ** AdUnit_ContentAdsSettings_BackupOption+    AdUnit_ContentAdsSettings_BackupOption (..),+    newAdUnit_ContentAdsSettings_BackupOption,++    -- ** AdUnit_MobileContentAdsSettings+    AdUnit_MobileContentAdsSettings (..),+    newAdUnit_MobileContentAdsSettings,++    -- ** AdUnits+    AdUnits (..),+    newAdUnits,++    -- ** AssociationSession+    AssociationSession (..),+    newAssociationSession,++    -- ** CustomChannel+    CustomChannel (..),+    newCustomChannel,++    -- ** CustomChannels+    CustomChannels (..),+    newCustomChannels,++    -- ** Report+    Report (..),+    newReport,++    -- ** Report_HeadersItem+    Report_HeadersItem (..),+    newReport_HeadersItem,++    -- ** UrlChannel+    UrlChannel (..),+    newUrlChannel,++    -- ** UrlChannels+    UrlChannels (..),+    newUrlChannels,++    -- ** AssociationsessionsStartProductCode+    AssociationsessionsStartProductCode (..),+  )+where++import Gogol.AdSenseHost.Internal.Product+import Gogol.AdSenseHost.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v4.1@ of the AdSense Host API. This contains the host and root path used as a starting point for constructing service requests.+adSenseHostService :: Core.ServiceConfig+adSenseHostService =+  Core.defaultService+    (Core.ServiceId "adsensehost:v4.1")+    "www.googleapis.com"++-- | View and manage your AdSense host data and associated accounts+type Adsensehost'FullControl =+  "https://www.googleapis.com/auth/adsensehost"
+ gen/Gogol/AdSenseHost/Urlchannels/Delete.hs view
@@ -0,0 +1,94 @@+{-# 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.AdSenseHost.Urlchannels.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 a URL channel from the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.delete@.+module Gogol.AdSenseHost.Urlchannels.Delete+  ( -- * Resource+    AdSenseHostUrlchannelsDeleteResource,++    -- ** Constructing a Request+    AdSenseHostUrlchannelsDelete (..),+    newAdSenseHostUrlchannelsDelete,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.urlchannels.delete@ method which the+-- 'AdSenseHostUrlchannelsDelete' request conforms to.+type AdSenseHostUrlchannelsDeleteResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "urlchannels"+    Core.:> Core.Capture "urlChannelId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] UrlChannel++-- | Delete a URL channel from the host AdSense account.+--+-- /See:/ 'newAdSenseHostUrlchannelsDelete' smart constructor.+data AdSenseHostUrlchannelsDelete = AdSenseHostUrlchannelsDelete+  { -- | Ad client from which to delete the URL channel.+    adClientId :: Core.Text,+    -- | URL channel to delete.+    urlChannelId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostUrlchannelsDelete' with the minimum fields required to make a request.+newAdSenseHostUrlchannelsDelete ::+  -- |  Ad client from which to delete the URL channel. See 'adClientId'.+  Core.Text ->+  -- |  URL channel to delete. See 'urlChannelId'.+  Core.Text ->+  AdSenseHostUrlchannelsDelete+newAdSenseHostUrlchannelsDelete adClientId urlChannelId =+  AdSenseHostUrlchannelsDelete+    { adClientId = adClientId,+      urlChannelId = urlChannelId+    }++instance Core.GoogleRequest AdSenseHostUrlchannelsDelete where+  type Rs AdSenseHostUrlchannelsDelete = UrlChannel+  type+    Scopes AdSenseHostUrlchannelsDelete =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostUrlchannelsDelete {..} =+    go+      adClientId+      urlChannelId+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostUrlchannelsDeleteResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Urlchannels/Insert.hs view
@@ -0,0 +1,90 @@+{-# 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.AdSenseHost.Urlchannels.Insert+-- 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)+--+-- Add a new URL channel to the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.insert@.+module Gogol.AdSenseHost.Urlchannels.Insert+  ( -- * Resource+    AdSenseHostUrlchannelsInsertResource,++    -- ** Constructing a Request+    AdSenseHostUrlchannelsInsert (..),+    newAdSenseHostUrlchannelsInsert,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.urlchannels.insert@ method which the+-- 'AdSenseHostUrlchannelsInsert' request conforms to.+type AdSenseHostUrlchannelsInsertResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "urlchannels"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] UrlChannel+    Core.:> Core.Post '[Core.JSON] UrlChannel++-- | Add a new URL channel to the host AdSense account.+--+-- /See:/ 'newAdSenseHostUrlchannelsInsert' smart constructor.+data AdSenseHostUrlchannelsInsert = AdSenseHostUrlchannelsInsert+  { -- | Ad client to which the new URL channel will be added.+    adClientId :: Core.Text,+    -- | Multipart request metadata.+    payload :: UrlChannel+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostUrlchannelsInsert' with the minimum fields required to make a request.+newAdSenseHostUrlchannelsInsert ::+  -- |  Ad client to which the new URL channel will be added. See 'adClientId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  UrlChannel ->+  AdSenseHostUrlchannelsInsert+newAdSenseHostUrlchannelsInsert adClientId payload =+  AdSenseHostUrlchannelsInsert+    { adClientId = adClientId,+      payload = payload+    }++instance Core.GoogleRequest AdSenseHostUrlchannelsInsert where+  type Rs AdSenseHostUrlchannelsInsert = UrlChannel+  type+    Scopes AdSenseHostUrlchannelsInsert =+      '[Adsensehost'FullControl]+  requestClient AdSenseHostUrlchannelsInsert {..} =+    go adClientId (Core.Just Core.AltJSON) payload adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostUrlchannelsInsertResource)+          Core.mempty
+ gen/Gogol/AdSenseHost/Urlchannels/List.hs view
@@ -0,0 +1,95 @@+{-# 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.AdSenseHost.Urlchannels.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 all host URL channels in the host AdSense account.+--+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.list@.+module Gogol.AdSenseHost.Urlchannels.List+  ( -- * Resource+    AdSenseHostUrlchannelsListResource,++    -- ** Constructing a Request+    AdSenseHostUrlchannelsList (..),+    newAdSenseHostUrlchannelsList,+  )+where++import Gogol.AdSenseHost.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @adsensehost.urlchannels.list@ method which the+-- 'AdSenseHostUrlchannelsList' request conforms to.+type AdSenseHostUrlchannelsListResource =+  "adsensehost"+    Core.:> "v4.1"+    Core.:> "adclients"+    Core.:> Core.Capture "adClientId" Core.Text+    Core.:> "urlchannels"+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] UrlChannels++-- | List all host URL channels in the host AdSense account.+--+-- /See:/ 'newAdSenseHostUrlchannelsList' smart constructor.+data AdSenseHostUrlchannelsList = AdSenseHostUrlchannelsList+  { -- | Ad client for which to list URL channels.+    adClientId :: Core.Text,+    -- | The maximum number of URL channels to include in the response, used for paging.+    maxResults :: (Core.Maybe Core.Word32),+    -- | A continuation token, used to page through URL channels. To retrieve the next page, set this parameter to the value of \"nextPageToken\" from the previous response.+    pageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdSenseHostUrlchannelsList' with the minimum fields required to make a request.+newAdSenseHostUrlchannelsList ::+  -- |  Ad client for which to list URL channels. See 'adClientId'.+  Core.Text ->+  AdSenseHostUrlchannelsList+newAdSenseHostUrlchannelsList adClientId =+  AdSenseHostUrlchannelsList+    { adClientId = adClientId,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing+    }++instance Core.GoogleRequest AdSenseHostUrlchannelsList where+  type Rs AdSenseHostUrlchannelsList = UrlChannels+  type Scopes AdSenseHostUrlchannelsList = '[Adsensehost'FullControl]+  requestClient AdSenseHostUrlchannelsList {..} =+    go+      adClientId+      maxResults+      pageToken+      (Core.Just Core.AltJSON)+      adSenseHostService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdSenseHostUrlchannelsListResource)+          Core.mempty
− gen/Network/Google/AdSenseHost.hs 
@@ -1,342 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.AdSenseHost--- 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)------ Generates performance reports, generates ad codes, and provides--- publisher management capabilities for AdSense Hosts.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference>-module Network.Google.AdSenseHost-    (-    -- * Service Configuration-      adSenseHostService--    -- * OAuth Scopes-    , adSenseHostScope--    -- * API Declaration-    , AdSenseHostAPI--    -- * Resources--    -- ** adsensehost.accounts.adclients.get-    , module Network.Google.Resource.AdSenseHost.Accounts.AdClients.Get--    -- ** adsensehost.accounts.adclients.list-    , module Network.Google.Resource.AdSenseHost.Accounts.AdClients.List--    -- ** adsensehost.accounts.adunits.delete-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Delete--    -- ** adsensehost.accounts.adunits.get-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Get--    -- ** adsensehost.accounts.adunits.getAdCode-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.GetAdCode--    -- ** adsensehost.accounts.adunits.insert-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Insert--    -- ** adsensehost.accounts.adunits.list-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.List--    -- ** adsensehost.accounts.adunits.patch-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Patch--    -- ** adsensehost.accounts.adunits.update-    , module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Update--    -- ** adsensehost.accounts.get-    , module Network.Google.Resource.AdSenseHost.Accounts.Get--    -- ** adsensehost.accounts.list-    , module Network.Google.Resource.AdSenseHost.Accounts.List--    -- ** adsensehost.accounts.reports.generate-    , module Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate--    -- ** adsensehost.adclients.get-    , module Network.Google.Resource.AdSenseHost.AdClients.Get--    -- ** adsensehost.adclients.list-    , module Network.Google.Resource.AdSenseHost.AdClients.List--    -- ** adsensehost.associationsessions.start-    , module Network.Google.Resource.AdSenseHost.AssociationSessions.Start--    -- ** adsensehost.associationsessions.verify-    , module Network.Google.Resource.AdSenseHost.AssociationSessions.Verify--    -- ** adsensehost.customchannels.delete-    , module Network.Google.Resource.AdSenseHost.CustomChannels.Delete--    -- ** adsensehost.customchannels.get-    , module Network.Google.Resource.AdSenseHost.CustomChannels.Get--    -- ** adsensehost.customchannels.insert-    , module Network.Google.Resource.AdSenseHost.CustomChannels.Insert--    -- ** adsensehost.customchannels.list-    , module Network.Google.Resource.AdSenseHost.CustomChannels.List--    -- ** adsensehost.customchannels.patch-    , module Network.Google.Resource.AdSenseHost.CustomChannels.Patch--    -- ** adsensehost.customchannels.update-    , module Network.Google.Resource.AdSenseHost.CustomChannels.Update--    -- ** adsensehost.reports.generate-    , module Network.Google.Resource.AdSenseHost.Reports.Generate--    -- ** adsensehost.urlchannels.delete-    , module Network.Google.Resource.AdSenseHost.URLChannels.Delete--    -- ** adsensehost.urlchannels.insert-    , module Network.Google.Resource.AdSenseHost.URLChannels.Insert--    -- ** adsensehost.urlchannels.list-    , module Network.Google.Resource.AdSenseHost.URLChannels.List--    -- * Types--    -- ** AdClients-    , AdClients-    , adClients-    , acEtag-    , acNextPageToken-    , acKind-    , acItems--    -- ** AssociationSession-    , AssociationSession-    , associationSession-    , asStatus-    , asKind-    , asWebsiteLocale-    , asUserLocale-    , asAccountId-    , asProductCodes-    , asId-    , asWebsiteURL-    , asRedirectURL--    -- ** AssociationSessionsStartProductCode-    , AssociationSessionsStartProductCode (..)--    -- ** Accounts-    , Accounts-    , accounts-    , aEtag-    , aKind-    , aItems--    -- ** AdUnits-    , AdUnits-    , adUnits-    , auEtag-    , auNextPageToken-    , auKind-    , auItems--    -- ** URLChannels-    , URLChannels-    , urlChannels-    , ucEtag-    , ucNextPageToken-    , ucKind-    , ucItems--    -- ** CustomChannels-    , CustomChannels-    , customChannels-    , ccEtag-    , ccNextPageToken-    , ccKind-    , ccItems--    -- ** AdUnit-    , AdUnit-    , adUnit-    , auuStatus-    , auuMobileContentAdsSettings-    , auuKind-    , auuCustomStyle-    , auuName-    , auuContentAdsSettings-    , auuCode-    , auuId--    -- ** Report-    , Report-    , report-    , rKind-    , rAverages-    , rWarnings-    , rRows-    , rTotals-    , rHeaders-    , rTotalMatchedRows--    -- ** AdStyleFont-    , AdStyleFont-    , adStyleFont-    , asfSize-    , asfFamily--    -- ** Account-    , Account-    , account-    , accStatus-    , accKind-    , accName-    , accId--    -- ** AdUnitMobileContentAdsSettings-    , AdUnitMobileContentAdsSettings-    , adUnitMobileContentAdsSettings-    , aumcasSize-    , aumcasScriptingLanguage-    , aumcasMarkupLanguage-    , aumcasType--    -- ** AdStyleColors-    , AdStyleColors-    , adStyleColors-    , ascText-    , ascURL-    , ascBOrder-    , ascTitle-    , ascBackgRound--    -- ** AdUnitContentAdsSettingsBackupOption-    , AdUnitContentAdsSettingsBackupOption-    , adUnitContentAdsSettingsBackupOption-    , aucasboColor-    , aucasboURL-    , aucasboType--    -- ** AdClient-    , AdClient-    , adClient-    , adKind-    , adArcOptIn-    , adSupportsReporting-    , adId-    , adProductCode--    -- ** ReportHeadersItem-    , ReportHeadersItem-    , reportHeadersItem-    , rhiName-    , rhiCurrency-    , rhiType--    -- ** AdStyle-    , AdStyle-    , adStyle-    , assCorners-    , assKind-    , assFont-    , assColors--    -- ** CustomChannel-    , CustomChannel-    , customChannel-    , cKind-    , cName-    , cCode-    , cId--    -- ** URLChannel-    , URLChannel-    , urlChannel-    , urlcKind-    , urlcId-    , urlcURLPattern--    -- ** AdCode-    , AdCode-    , adCode-    , aaKind-    , aaAdCode--    -- ** AdUnitContentAdsSettings-    , AdUnitContentAdsSettings-    , adUnitContentAdsSettings-    , aucasBackupOption-    , aucasSize-    , aucasType-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude-import           Network.Google.Resource.AdSenseHost.Accounts.AdClients.Get-import           Network.Google.Resource.AdSenseHost.Accounts.AdClients.List-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Delete-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Get-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.GetAdCode-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Insert-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.List-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Patch-import           Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Update-import           Network.Google.Resource.AdSenseHost.Accounts.Get-import           Network.Google.Resource.AdSenseHost.Accounts.List-import           Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate-import           Network.Google.Resource.AdSenseHost.AdClients.Get-import           Network.Google.Resource.AdSenseHost.AdClients.List-import           Network.Google.Resource.AdSenseHost.AssociationSessions.Start-import           Network.Google.Resource.AdSenseHost.AssociationSessions.Verify-import           Network.Google.Resource.AdSenseHost.CustomChannels.Delete-import           Network.Google.Resource.AdSenseHost.CustomChannels.Get-import           Network.Google.Resource.AdSenseHost.CustomChannels.Insert-import           Network.Google.Resource.AdSenseHost.CustomChannels.List-import           Network.Google.Resource.AdSenseHost.CustomChannels.Patch-import           Network.Google.Resource.AdSenseHost.CustomChannels.Update-import           Network.Google.Resource.AdSenseHost.Reports.Generate-import           Network.Google.Resource.AdSenseHost.URLChannels.Delete-import           Network.Google.Resource.AdSenseHost.URLChannels.Insert-import           Network.Google.Resource.AdSenseHost.URLChannels.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the AdSense Host API service.-type AdSenseHostAPI =-     AssociationSessionsVerifyResource :<|>-       AssociationSessionsStartResource-       :<|> AdClientsListResource-       :<|> AdClientsGetResource-       :<|> AccountsAdClientsListResource-       :<|> AccountsAdClientsGetResource-       :<|> AccountsReportsGenerateResource-       :<|> AccountsAdUnitsInsertResource-       :<|> AccountsAdUnitsListResource-       :<|> AccountsAdUnitsPatchResource-       :<|> AccountsAdUnitsGetResource-       :<|> AccountsAdUnitsGetAdCodeResource-       :<|> AccountsAdUnitsDeleteResource-       :<|> AccountsAdUnitsUpdateResource-       :<|> AccountsListResource-       :<|> AccountsGetResource-       :<|> ReportsGenerateResource-       :<|> URLChannelsInsertResource-       :<|> URLChannelsListResource-       :<|> URLChannelsDeleteResource-       :<|> CustomChannelsInsertResource-       :<|> CustomChannelsListResource-       :<|> CustomChannelsPatchResource-       :<|> CustomChannelsGetResource-       :<|> CustomChannelsDeleteResource-       :<|> CustomChannelsUpdateResource
− gen/Network/Google/AdSenseHost/Types.hs 
@@ -1,206 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AdSenseHost.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.AdSenseHost.Types-    (-    -- * Service Configuration-      adSenseHostService--    -- * OAuth Scopes-    , adSenseHostScope--    -- * AdClients-    , AdClients-    , adClients-    , acEtag-    , acNextPageToken-    , acKind-    , acItems--    -- * AssociationSession-    , AssociationSession-    , associationSession-    , asStatus-    , asKind-    , asWebsiteLocale-    , asUserLocale-    , asAccountId-    , asProductCodes-    , asId-    , asWebsiteURL-    , asRedirectURL--    -- * AssociationSessionsStartProductCode-    , AssociationSessionsStartProductCode (..)--    -- * Accounts-    , Accounts-    , accounts-    , aEtag-    , aKind-    , aItems--    -- * AdUnits-    , AdUnits-    , adUnits-    , auEtag-    , auNextPageToken-    , auKind-    , auItems--    -- * URLChannels-    , URLChannels-    , urlChannels-    , ucEtag-    , ucNextPageToken-    , ucKind-    , ucItems--    -- * CustomChannels-    , CustomChannels-    , customChannels-    , ccEtag-    , ccNextPageToken-    , ccKind-    , ccItems--    -- * AdUnit-    , AdUnit-    , adUnit-    , auuStatus-    , auuMobileContentAdsSettings-    , auuKind-    , auuCustomStyle-    , auuName-    , auuContentAdsSettings-    , auuCode-    , auuId--    -- * Report-    , Report-    , report-    , rKind-    , rAverages-    , rWarnings-    , rRows-    , rTotals-    , rHeaders-    , rTotalMatchedRows--    -- * AdStyleFont-    , AdStyleFont-    , adStyleFont-    , asfSize-    , asfFamily--    -- * Account-    , Account-    , account-    , accStatus-    , accKind-    , accName-    , accId--    -- * AdUnitMobileContentAdsSettings-    , AdUnitMobileContentAdsSettings-    , adUnitMobileContentAdsSettings-    , aumcasSize-    , aumcasScriptingLanguage-    , aumcasMarkupLanguage-    , aumcasType--    -- * AdStyleColors-    , AdStyleColors-    , adStyleColors-    , ascText-    , ascURL-    , ascBOrder-    , ascTitle-    , ascBackgRound--    -- * AdUnitContentAdsSettingsBackupOption-    , AdUnitContentAdsSettingsBackupOption-    , adUnitContentAdsSettingsBackupOption-    , aucasboColor-    , aucasboURL-    , aucasboType--    -- * AdClient-    , AdClient-    , adClient-    , adKind-    , adArcOptIn-    , adSupportsReporting-    , adId-    , adProductCode--    -- * ReportHeadersItem-    , ReportHeadersItem-    , reportHeadersItem-    , rhiName-    , rhiCurrency-    , rhiType--    -- * AdStyle-    , AdStyle-    , adStyle-    , assCorners-    , assKind-    , assFont-    , assColors--    -- * CustomChannel-    , CustomChannel-    , customChannel-    , cKind-    , cName-    , cCode-    , cId--    -- * URLChannel-    , URLChannel-    , urlChannel-    , urlcKind-    , urlcId-    , urlcURLPattern--    -- * AdCode-    , AdCode-    , adCode-    , aaKind-    , aaAdCode--    -- * AdUnitContentAdsSettings-    , AdUnitContentAdsSettings-    , adUnitContentAdsSettings-    , aucasBackupOption-    , aucasSize-    , aucasType-    ) where--import           Network.Google.AdSenseHost.Types.Product-import           Network.Google.AdSenseHost.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v4.1' of the AdSense Host API. This contains the host and root path used as a starting point for constructing service requests.-adSenseHostService :: ServiceConfig-adSenseHostService-  = defaultService (ServiceId "adsensehost:v4.1")-      "www.googleapis.com"---- | View and manage your AdSense host data and associated accounts-adSenseHostScope :: Proxy '["https://www.googleapis.com/auth/adsensehost"]-adSenseHostScope = Proxy
− gen/Network/Google/AdSenseHost/Types/Product.hs 
@@ -1,1541 +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.AdSenseHost.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.AdSenseHost.Types.Product where--import           Network.Google.AdSenseHost.Types.Sum-import           Network.Google.Prelude------- /See:/ 'adClients' smart constructor.-data AdClients =-  AdClients'-    { _acEtag          :: !(Maybe Text)-    , _acNextPageToken :: !(Maybe Text)-    , _acKind          :: !Text-    , _acItems         :: !(Maybe [AdClient])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdClients' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acEtag'------ * 'acNextPageToken'------ * 'acKind'------ * 'acItems'-adClients-    :: AdClients-adClients =-  AdClients'-    { _acEtag = Nothing-    , _acNextPageToken = Nothing-    , _acKind = "adsensehost#adClients"-    , _acItems = Nothing-    }----- | ETag of this response for caching purposes.-acEtag :: Lens' AdClients (Maybe Text)-acEtag = lens _acEtag (\ s a -> s{_acEtag = a})---- | Continuation token used to page through ad clients. To retrieve the next--- page of results, set the next request\'s \"pageToken\" value to this.-acNextPageToken :: Lens' AdClients (Maybe Text)-acNextPageToken-  = lens _acNextPageToken-      (\ s a -> s{_acNextPageToken = a})---- | Kind of list this is, in this case adsensehost#adClients.-acKind :: Lens' AdClients Text-acKind = lens _acKind (\ s a -> s{_acKind = a})---- | The ad clients returned in this list response.-acItems :: Lens' AdClients [AdClient]-acItems-  = lens _acItems (\ s a -> s{_acItems = a}) . _Default-      . _Coerce--instance FromJSON AdClients where-        parseJSON-          = withObject "AdClients"-              (\ o ->-                 AdClients' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "adsensehost#adClients")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON AdClients where-        toJSON AdClients'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _acEtag,-                  ("nextPageToken" .=) <$> _acNextPageToken,-                  Just ("kind" .= _acKind), ("items" .=) <$> _acItems])------- /See:/ 'associationSession' smart constructor.-data AssociationSession =-  AssociationSession'-    { _asStatus        :: !(Maybe Text)-    , _asKind          :: !Text-    , _asWebsiteLocale :: !(Maybe Text)-    , _asUserLocale    :: !(Maybe Text)-    , _asAccountId     :: !(Maybe Text)-    , _asProductCodes  :: !(Maybe [Text])-    , _asId            :: !(Maybe Text)-    , _asWebsiteURL    :: !(Maybe Text)-    , _asRedirectURL   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AssociationSession' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asStatus'------ * 'asKind'------ * 'asWebsiteLocale'------ * 'asUserLocale'------ * 'asAccountId'------ * 'asProductCodes'------ * 'asId'------ * 'asWebsiteURL'------ * 'asRedirectURL'-associationSession-    :: AssociationSession-associationSession =-  AssociationSession'-    { _asStatus = Nothing-    , _asKind = "adsensehost#associationSession"-    , _asWebsiteLocale = Nothing-    , _asUserLocale = Nothing-    , _asAccountId = Nothing-    , _asProductCodes = Nothing-    , _asId = Nothing-    , _asWebsiteURL = Nothing-    , _asRedirectURL = Nothing-    }----- | Status of the completed association, available once the association--- callback token has been verified. One of ACCEPTED, REJECTED, or ERROR.-asStatus :: Lens' AssociationSession (Maybe Text)-asStatus = lens _asStatus (\ s a -> s{_asStatus = a})---- | Kind of resource this is, in this case adsensehost#associationSession.-asKind :: Lens' AssociationSession Text-asKind = lens _asKind (\ s a -> s{_asKind = a})---- | The locale of the user\'s hosted website.-asWebsiteLocale :: Lens' AssociationSession (Maybe Text)-asWebsiteLocale-  = lens _asWebsiteLocale-      (\ s a -> s{_asWebsiteLocale = a})---- | The preferred locale of the user themselves when going through the--- AdSense association flow.-asUserLocale :: Lens' AssociationSession (Maybe Text)-asUserLocale-  = lens _asUserLocale (\ s a -> s{_asUserLocale = a})---- | Hosted account id of the associated publisher after association. Present--- if status is ACCEPTED.-asAccountId :: Lens' AssociationSession (Maybe Text)-asAccountId-  = lens _asAccountId (\ s a -> s{_asAccountId = a})---- | The products to associate with the user. Options: AFC, AFG, AFV, AFS--- (deprecated), AFMC (deprecated)-asProductCodes :: Lens' AssociationSession [Text]-asProductCodes-  = lens _asProductCodes-      (\ s a -> s{_asProductCodes = a})-      . _Default-      . _Coerce---- | Unique identifier of this association session.-asId :: Lens' AssociationSession (Maybe Text)-asId = lens _asId (\ s a -> s{_asId = a})---- | The URL of the user\'s hosted website.-asWebsiteURL :: Lens' AssociationSession (Maybe Text)-asWebsiteURL-  = lens _asWebsiteURL (\ s a -> s{_asWebsiteURL = a})---- | Redirect URL of this association session. Used to redirect users into--- the AdSense association flow.-asRedirectURL :: Lens' AssociationSession (Maybe Text)-asRedirectURL-  = lens _asRedirectURL-      (\ s a -> s{_asRedirectURL = a})--instance FromJSON AssociationSession where-        parseJSON-          = withObject "AssociationSession"-              (\ o ->-                 AssociationSession' <$>-                   (o .:? "status") <*>-                     (o .:? "kind" .!= "adsensehost#associationSession")-                     <*> (o .:? "websiteLocale")-                     <*> (o .:? "userLocale")-                     <*> (o .:? "accountId")-                     <*> (o .:? "productCodes" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "websiteUrl")-                     <*> (o .:? "redirectUrl"))--instance ToJSON AssociationSession where-        toJSON AssociationSession'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _asStatus,-                  Just ("kind" .= _asKind),-                  ("websiteLocale" .=) <$> _asWebsiteLocale,-                  ("userLocale" .=) <$> _asUserLocale,-                  ("accountId" .=) <$> _asAccountId,-                  ("productCodes" .=) <$> _asProductCodes,-                  ("id" .=) <$> _asId,-                  ("websiteUrl" .=) <$> _asWebsiteURL,-                  ("redirectUrl" .=) <$> _asRedirectURL])------- /See:/ 'accounts' smart constructor.-data Accounts =-  Accounts'-    { _aEtag  :: !(Maybe Text)-    , _aKind  :: !Text-    , _aItems :: !(Maybe [Account])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Accounts' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aEtag'------ * 'aKind'------ * 'aItems'-accounts-    :: Accounts-accounts =-  Accounts'-    {_aEtag = Nothing, _aKind = "adsensehost#accounts", _aItems = Nothing}----- | ETag of this response for caching purposes.-aEtag :: Lens' Accounts (Maybe Text)-aEtag = lens _aEtag (\ s a -> s{_aEtag = a})---- | Kind of list this is, in this case adsensehost#accounts.-aKind :: Lens' Accounts Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | The accounts returned in this list response.-aItems :: Lens' Accounts [Account]-aItems-  = lens _aItems (\ s a -> s{_aItems = a}) . _Default .-      _Coerce--instance FromJSON Accounts where-        parseJSON-          = withObject "Accounts"-              (\ o ->-                 Accounts' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "adsensehost#accounts")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Accounts where-        toJSON Accounts'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _aEtag, Just ("kind" .= _aKind),-                  ("items" .=) <$> _aItems])------- /See:/ 'adUnits' smart constructor.-data AdUnits =-  AdUnits'-    { _auEtag          :: !(Maybe Text)-    , _auNextPageToken :: !(Maybe Text)-    , _auKind          :: !Text-    , _auItems         :: !(Maybe [AdUnit])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdUnits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'auEtag'------ * 'auNextPageToken'------ * 'auKind'------ * 'auItems'-adUnits-    :: AdUnits-adUnits =-  AdUnits'-    { _auEtag = Nothing-    , _auNextPageToken = Nothing-    , _auKind = "adsensehost#adUnits"-    , _auItems = Nothing-    }----- | ETag of this response for caching purposes.-auEtag :: Lens' AdUnits (Maybe Text)-auEtag = lens _auEtag (\ s a -> s{_auEtag = a})---- | Continuation token used to page through ad units. To retrieve the next--- page of results, set the next request\'s \"pageToken\" value to this.-auNextPageToken :: Lens' AdUnits (Maybe Text)-auNextPageToken-  = lens _auNextPageToken-      (\ s a -> s{_auNextPageToken = a})---- | Kind of list this is, in this case adsensehost#adUnits.-auKind :: Lens' AdUnits Text-auKind = lens _auKind (\ s a -> s{_auKind = a})---- | The ad units returned in this list response.-auItems :: Lens' AdUnits [AdUnit]-auItems-  = lens _auItems (\ s a -> s{_auItems = a}) . _Default-      . _Coerce--instance FromJSON AdUnits where-        parseJSON-          = withObject "AdUnits"-              (\ o ->-                 AdUnits' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "adsensehost#adUnits")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON AdUnits where-        toJSON AdUnits'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _auEtag,-                  ("nextPageToken" .=) <$> _auNextPageToken,-                  Just ("kind" .= _auKind), ("items" .=) <$> _auItems])------- /See:/ 'urlChannels' smart constructor.-data URLChannels =-  URLChannels'-    { _ucEtag          :: !(Maybe Text)-    , _ucNextPageToken :: !(Maybe Text)-    , _ucKind          :: !Text-    , _ucItems         :: !(Maybe [URLChannel])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'URLChannels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucEtag'------ * 'ucNextPageToken'------ * 'ucKind'------ * 'ucItems'-urlChannels-    :: URLChannels-urlChannels =-  URLChannels'-    { _ucEtag = Nothing-    , _ucNextPageToken = Nothing-    , _ucKind = "adsensehost#urlChannels"-    , _ucItems = Nothing-    }----- | ETag of this response for caching purposes.-ucEtag :: Lens' URLChannels (Maybe Text)-ucEtag = lens _ucEtag (\ s a -> s{_ucEtag = a})---- | Continuation token used to page through URL channels. To retrieve the--- next page of results, set the next request\'s \"pageToken\" value to--- this.-ucNextPageToken :: Lens' URLChannels (Maybe Text)-ucNextPageToken-  = lens _ucNextPageToken-      (\ s a -> s{_ucNextPageToken = a})---- | Kind of list this is, in this case adsensehost#urlChannels.-ucKind :: Lens' URLChannels Text-ucKind = lens _ucKind (\ s a -> s{_ucKind = a})---- | The URL channels returned in this list response.-ucItems :: Lens' URLChannels [URLChannel]-ucItems-  = lens _ucItems (\ s a -> s{_ucItems = a}) . _Default-      . _Coerce--instance FromJSON URLChannels where-        parseJSON-          = withObject "URLChannels"-              (\ o ->-                 URLChannels' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "adsensehost#urlChannels")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON URLChannels where-        toJSON URLChannels'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _ucEtag,-                  ("nextPageToken" .=) <$> _ucNextPageToken,-                  Just ("kind" .= _ucKind), ("items" .=) <$> _ucItems])------- /See:/ 'customChannels' smart constructor.-data CustomChannels =-  CustomChannels'-    { _ccEtag          :: !(Maybe Text)-    , _ccNextPageToken :: !(Maybe Text)-    , _ccKind          :: !Text-    , _ccItems         :: !(Maybe [CustomChannel])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccEtag'------ * 'ccNextPageToken'------ * 'ccKind'------ * 'ccItems'-customChannels-    :: CustomChannels-customChannels =-  CustomChannels'-    { _ccEtag = Nothing-    , _ccNextPageToken = Nothing-    , _ccKind = "adsensehost#customChannels"-    , _ccItems = Nothing-    }----- | ETag of this response for caching purposes.-ccEtag :: Lens' CustomChannels (Maybe Text)-ccEtag = lens _ccEtag (\ s a -> s{_ccEtag = a})---- | Continuation token used to page through custom channels. To retrieve the--- next page of results, set the next request\'s \"pageToken\" value to--- this.-ccNextPageToken :: Lens' CustomChannels (Maybe Text)-ccNextPageToken-  = lens _ccNextPageToken-      (\ s a -> s{_ccNextPageToken = a})---- | Kind of list this is, in this case adsensehost#customChannels.-ccKind :: Lens' CustomChannels Text-ccKind = lens _ccKind (\ s a -> s{_ccKind = a})---- | The custom channels returned in this list response.-ccItems :: Lens' CustomChannels [CustomChannel]-ccItems-  = lens _ccItems (\ s a -> s{_ccItems = a}) . _Default-      . _Coerce--instance FromJSON CustomChannels where-        parseJSON-          = withObject "CustomChannels"-              (\ o ->-                 CustomChannels' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "adsensehost#customChannels")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON CustomChannels where-        toJSON CustomChannels'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _ccEtag,-                  ("nextPageToken" .=) <$> _ccNextPageToken,-                  Just ("kind" .= _ccKind), ("items" .=) <$> _ccItems])------- /See:/ 'adUnit' smart constructor.-data AdUnit =-  AdUnit'-    { _auuStatus                   :: !(Maybe Text)-    , _auuMobileContentAdsSettings :: !(Maybe AdUnitMobileContentAdsSettings)-    , _auuKind                     :: !Text-    , _auuCustomStyle              :: !(Maybe AdStyle)-    , _auuName                     :: !(Maybe Text)-    , _auuContentAdsSettings       :: !(Maybe AdUnitContentAdsSettings)-    , _auuCode                     :: !(Maybe Text)-    , _auuId                       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdUnit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'auuStatus'------ * 'auuMobileContentAdsSettings'------ * 'auuKind'------ * 'auuCustomStyle'------ * 'auuName'------ * 'auuContentAdsSettings'------ * 'auuCode'------ * 'auuId'-adUnit-    :: AdUnit-adUnit =-  AdUnit'-    { _auuStatus = Nothing-    , _auuMobileContentAdsSettings = Nothing-    , _auuKind = "adsensehost#adUnit"-    , _auuCustomStyle = Nothing-    , _auuName = Nothing-    , _auuContentAdsSettings = Nothing-    , _auuCode = Nothing-    , _auuId = Nothing-    }----- | Status of this ad unit. Possible values are: NEW: Indicates that the ad--- unit was created within the last seven days and does not yet have any--- activity associated with it. ACTIVE: Indicates that there has been--- activity on this ad unit in the last seven days. INACTIVE: Indicates--- that there has been no activity on this ad unit in the last seven days.-auuStatus :: Lens' AdUnit (Maybe Text)-auuStatus-  = lens _auuStatus (\ s a -> s{_auuStatus = a})---- | Settings specific to WAP mobile content ads (AFMC - deprecated).-auuMobileContentAdsSettings :: Lens' AdUnit (Maybe AdUnitMobileContentAdsSettings)-auuMobileContentAdsSettings-  = lens _auuMobileContentAdsSettings-      (\ s a -> s{_auuMobileContentAdsSettings = a})---- | Kind of resource this is, in this case adsensehost#adUnit.-auuKind :: Lens' AdUnit Text-auuKind = lens _auuKind (\ s a -> s{_auuKind = a})---- | Custom style information specific to this ad unit.-auuCustomStyle :: Lens' AdUnit (Maybe AdStyle)-auuCustomStyle-  = lens _auuCustomStyle-      (\ s a -> s{_auuCustomStyle = a})---- | Name of this ad unit.-auuName :: Lens' AdUnit (Maybe Text)-auuName = lens _auuName (\ s a -> s{_auuName = a})---- | Settings specific to content ads (AFC) and highend mobile content ads--- (AFMC - deprecated).-auuContentAdsSettings :: Lens' AdUnit (Maybe AdUnitContentAdsSettings)-auuContentAdsSettings-  = lens _auuContentAdsSettings-      (\ s a -> s{_auuContentAdsSettings = a})---- | Identity code of this ad unit, not necessarily unique across ad clients.-auuCode :: Lens' AdUnit (Maybe Text)-auuCode = lens _auuCode (\ s a -> s{_auuCode = a})---- | Unique identifier of this ad unit. This should be considered an opaque--- identifier; it is not safe to rely on it being in any particular format.-auuId :: Lens' AdUnit (Maybe Text)-auuId = lens _auuId (\ s a -> s{_auuId = a})--instance FromJSON AdUnit where-        parseJSON-          = withObject "AdUnit"-              (\ o ->-                 AdUnit' <$>-                   (o .:? "status") <*>-                     (o .:? "mobileContentAdsSettings")-                     <*> (o .:? "kind" .!= "adsensehost#adUnit")-                     <*> (o .:? "customStyle")-                     <*> (o .:? "name")-                     <*> (o .:? "contentAdsSettings")-                     <*> (o .:? "code")-                     <*> (o .:? "id"))--instance ToJSON AdUnit where-        toJSON AdUnit'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _auuStatus,-                  ("mobileContentAdsSettings" .=) <$>-                    _auuMobileContentAdsSettings,-                  Just ("kind" .= _auuKind),-                  ("customStyle" .=) <$> _auuCustomStyle,-                  ("name" .=) <$> _auuName,-                  ("contentAdsSettings" .=) <$> _auuContentAdsSettings,-                  ("code" .=) <$> _auuCode, ("id" .=) <$> _auuId])------- /See:/ 'report' smart constructor.-data Report =-  Report'-    { _rKind             :: !Text-    , _rAverages         :: !(Maybe [Text])-    , _rWarnings         :: !(Maybe [Text])-    , _rRows             :: !(Maybe [[Text]])-    , _rTotals           :: !(Maybe [Text])-    , _rHeaders          :: !(Maybe [ReportHeadersItem])-    , _rTotalMatchedRows :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Report' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rKind'------ * 'rAverages'------ * 'rWarnings'------ * 'rRows'------ * 'rTotals'------ * 'rHeaders'------ * 'rTotalMatchedRows'-report-    :: Report-report =-  Report'-    { _rKind = "adsensehost#report"-    , _rAverages = Nothing-    , _rWarnings = Nothing-    , _rRows = Nothing-    , _rTotals = Nothing-    , _rHeaders = Nothing-    , _rTotalMatchedRows = Nothing-    }----- | Kind this is, in this case adsensehost#report.-rKind :: Lens' Report Text-rKind = lens _rKind (\ s a -> s{_rKind = a})---- | The averages of the report. This is the same length as any other row in--- the report; cells corresponding to dimension columns are empty.-rAverages :: Lens' Report [Text]-rAverages-  = lens _rAverages (\ s a -> s{_rAverages = a}) .-      _Default-      . _Coerce---- | Any warnings associated with generation of the report.-rWarnings :: Lens' Report [Text]-rWarnings-  = lens _rWarnings (\ s a -> s{_rWarnings = a}) .-      _Default-      . _Coerce---- | The output rows of the report. Each row is a list of cells; one for each--- dimension in the request, followed by one for each metric in the--- request. The dimension cells contain strings, and the metric cells--- contain numbers.-rRows :: Lens' Report [[Text]]-rRows-  = lens _rRows (\ s a -> s{_rRows = a}) . _Default .-      _Coerce---- | The totals of the report. This is the same length as any other row in--- the report; cells corresponding to dimension columns are empty.-rTotals :: Lens' Report [Text]-rTotals-  = lens _rTotals (\ s a -> s{_rTotals = a}) . _Default-      . _Coerce---- | The header information of the columns requested in the report. This is a--- list of headers; one for each dimension in the request, followed by one--- for each metric in the request.-rHeaders :: Lens' Report [ReportHeadersItem]-rHeaders-  = lens _rHeaders (\ s a -> s{_rHeaders = a}) .-      _Default-      . _Coerce---- | The total number of rows matched by the report request. Fewer rows may--- be returned in the response due to being limited by the row count--- requested or the report row limit.-rTotalMatchedRows :: Lens' Report (Maybe Int64)-rTotalMatchedRows-  = lens _rTotalMatchedRows-      (\ s a -> s{_rTotalMatchedRows = a})-      . mapping _Coerce--instance FromJSON Report where-        parseJSON-          = withObject "Report"-              (\ o ->-                 Report' <$>-                   (o .:? "kind" .!= "adsensehost#report") <*>-                     (o .:? "averages" .!= mempty)-                     <*> (o .:? "warnings" .!= mempty)-                     <*> (o .:? "rows" .!= mempty)-                     <*> (o .:? "totals" .!= mempty)-                     <*> (o .:? "headers" .!= mempty)-                     <*> (o .:? "totalMatchedRows"))--instance ToJSON Report where-        toJSON Report'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _rKind),-                  ("averages" .=) <$> _rAverages,-                  ("warnings" .=) <$> _rWarnings,-                  ("rows" .=) <$> _rRows, ("totals" .=) <$> _rTotals,-                  ("headers" .=) <$> _rHeaders,-                  ("totalMatchedRows" .=) <$> _rTotalMatchedRows])---- | The font which is included in the style.------ /See:/ 'adStyleFont' smart constructor.-data AdStyleFont =-  AdStyleFont'-    { _asfSize   :: !(Maybe Text)-    , _asfFamily :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdStyleFont' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asfSize'------ * 'asfFamily'-adStyleFont-    :: AdStyleFont-adStyleFont = AdStyleFont' {_asfSize = Nothing, _asfFamily = Nothing}----- | The size of the font. Possible values are: ACCOUNT_DEFAULT_SIZE,--- ADSENSE_DEFAULT_SIZE, SMALL, MEDIUM and LARGE.-asfSize :: Lens' AdStyleFont (Maybe Text)-asfSize = lens _asfSize (\ s a -> s{_asfSize = a})---- | The family of the font. Possible values are: ACCOUNT_DEFAULT_FAMILY,--- ADSENSE_DEFAULT_FAMILY, ARIAL, TIMES and VERDANA.-asfFamily :: Lens' AdStyleFont (Maybe Text)-asfFamily-  = lens _asfFamily (\ s a -> s{_asfFamily = a})--instance FromJSON AdStyleFont where-        parseJSON-          = withObject "AdStyleFont"-              (\ o ->-                 AdStyleFont' <$> (o .:? "size") <*> (o .:? "family"))--instance ToJSON AdStyleFont where-        toJSON AdStyleFont'{..}-          = object-              (catMaybes-                 [("size" .=) <$> _asfSize,-                  ("family" .=) <$> _asfFamily])------- /See:/ 'account' smart constructor.-data Account =-  Account'-    { _accStatus :: !(Maybe Text)-    , _accKind   :: !Text-    , _accName   :: !(Maybe Text)-    , _accId     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Account' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'accStatus'------ * 'accKind'------ * 'accName'------ * 'accId'-account-    :: Account-account =-  Account'-    { _accStatus = Nothing-    , _accKind = "adsensehost#account"-    , _accName = Nothing-    , _accId = Nothing-    }----- | Approval status of this account. One of: PENDING, APPROVED, DISABLED.-accStatus :: Lens' Account (Maybe Text)-accStatus-  = lens _accStatus (\ s a -> s{_accStatus = a})---- | Kind of resource this is, in this case adsensehost#account.-accKind :: Lens' Account Text-accKind = lens _accKind (\ s a -> s{_accKind = a})---- | Name of this account.-accName :: Lens' Account (Maybe Text)-accName = lens _accName (\ s a -> s{_accName = a})---- | Unique identifier of this account.-accId :: Lens' Account (Maybe Text)-accId = lens _accId (\ s a -> s{_accId = a})--instance FromJSON Account where-        parseJSON-          = withObject "Account"-              (\ o ->-                 Account' <$>-                   (o .:? "status") <*>-                     (o .:? "kind" .!= "adsensehost#account")-                     <*> (o .:? "name")-                     <*> (o .:? "id"))--instance ToJSON Account where-        toJSON Account'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _accStatus,-                  Just ("kind" .= _accKind), ("name" .=) <$> _accName,-                  ("id" .=) <$> _accId])---- | Settings specific to WAP mobile content ads (AFMC - deprecated).------ /See:/ 'adUnitMobileContentAdsSettings' smart constructor.-data AdUnitMobileContentAdsSettings =-  AdUnitMobileContentAdsSettings'-    { _aumcasSize              :: !(Maybe Text)-    , _aumcasScriptingLanguage :: !(Maybe Text)-    , _aumcasMarkupLanguage    :: !(Maybe Text)-    , _aumcasType              :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdUnitMobileContentAdsSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aumcasSize'------ * 'aumcasScriptingLanguage'------ * 'aumcasMarkupLanguage'------ * 'aumcasType'-adUnitMobileContentAdsSettings-    :: AdUnitMobileContentAdsSettings-adUnitMobileContentAdsSettings =-  AdUnitMobileContentAdsSettings'-    { _aumcasSize = Nothing-    , _aumcasScriptingLanguage = Nothing-    , _aumcasMarkupLanguage = Nothing-    , _aumcasType = Nothing-    }----- | Size of this ad unit.-aumcasSize :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)-aumcasSize-  = lens _aumcasSize (\ s a -> s{_aumcasSize = a})---- | The scripting language to use for this ad unit.-aumcasScriptingLanguage :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)-aumcasScriptingLanguage-  = lens _aumcasScriptingLanguage-      (\ s a -> s{_aumcasScriptingLanguage = a})---- | The markup language to use for this ad unit.-aumcasMarkupLanguage :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)-aumcasMarkupLanguage-  = lens _aumcasMarkupLanguage-      (\ s a -> s{_aumcasMarkupLanguage = a})---- | Type of this ad unit.-aumcasType :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)-aumcasType-  = lens _aumcasType (\ s a -> s{_aumcasType = a})--instance FromJSON AdUnitMobileContentAdsSettings-         where-        parseJSON-          = withObject "AdUnitMobileContentAdsSettings"-              (\ o ->-                 AdUnitMobileContentAdsSettings' <$>-                   (o .:? "size") <*> (o .:? "scriptingLanguage") <*>-                     (o .:? "markupLanguage")-                     <*> (o .:? "type"))--instance ToJSON AdUnitMobileContentAdsSettings where-        toJSON AdUnitMobileContentAdsSettings'{..}-          = object-              (catMaybes-                 [("size" .=) <$> _aumcasSize,-                  ("scriptingLanguage" .=) <$>-                    _aumcasScriptingLanguage,-                  ("markupLanguage" .=) <$> _aumcasMarkupLanguage,-                  ("type" .=) <$> _aumcasType])---- | The colors included in the style. These are represented as six--- hexadecimal characters, similar to HTML color codes, but without the--- leading hash.------ /See:/ 'adStyleColors' smart constructor.-data AdStyleColors =-  AdStyleColors'-    { _ascText       :: !(Maybe Text)-    , _ascURL        :: !(Maybe Text)-    , _ascBOrder     :: !(Maybe Text)-    , _ascTitle      :: !(Maybe Text)-    , _ascBackgRound :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdStyleColors' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ascText'------ * 'ascURL'------ * 'ascBOrder'------ * 'ascTitle'------ * 'ascBackgRound'-adStyleColors-    :: AdStyleColors-adStyleColors =-  AdStyleColors'-    { _ascText = Nothing-    , _ascURL = Nothing-    , _ascBOrder = Nothing-    , _ascTitle = Nothing-    , _ascBackgRound = Nothing-    }----- | The color of the ad text.-ascText :: Lens' AdStyleColors (Maybe Text)-ascText = lens _ascText (\ s a -> s{_ascText = a})---- | The color of the ad url.-ascURL :: Lens' AdStyleColors (Maybe Text)-ascURL = lens _ascURL (\ s a -> s{_ascURL = a})---- | The color of the ad border.-ascBOrder :: Lens' AdStyleColors (Maybe Text)-ascBOrder-  = lens _ascBOrder (\ s a -> s{_ascBOrder = a})---- | The color of the ad title.-ascTitle :: Lens' AdStyleColors (Maybe Text)-ascTitle = lens _ascTitle (\ s a -> s{_ascTitle = a})---- | The color of the ad background.-ascBackgRound :: Lens' AdStyleColors (Maybe Text)-ascBackgRound-  = lens _ascBackgRound-      (\ s a -> s{_ascBackgRound = a})--instance FromJSON AdStyleColors where-        parseJSON-          = withObject "AdStyleColors"-              (\ o ->-                 AdStyleColors' <$>-                   (o .:? "text") <*> (o .:? "url") <*> (o .:? "border")-                     <*> (o .:? "title")-                     <*> (o .:? "background"))--instance ToJSON AdStyleColors where-        toJSON AdStyleColors'{..}-          = object-              (catMaybes-                 [("text" .=) <$> _ascText, ("url" .=) <$> _ascURL,-                  ("border" .=) <$> _ascBOrder,-                  ("title" .=) <$> _ascTitle,-                  ("background" .=) <$> _ascBackgRound])---- | The backup option to be used in instances where no ad is available.------ /See:/ 'adUnitContentAdsSettingsBackupOption' smart constructor.-data AdUnitContentAdsSettingsBackupOption =-  AdUnitContentAdsSettingsBackupOption'-    { _aucasboColor :: !(Maybe Text)-    , _aucasboURL   :: !(Maybe Text)-    , _aucasboType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdUnitContentAdsSettingsBackupOption' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aucasboColor'------ * 'aucasboURL'------ * 'aucasboType'-adUnitContentAdsSettingsBackupOption-    :: AdUnitContentAdsSettingsBackupOption-adUnitContentAdsSettingsBackupOption =-  AdUnitContentAdsSettingsBackupOption'-    {_aucasboColor = Nothing, _aucasboURL = Nothing, _aucasboType = Nothing}----- | Color to use when type is set to COLOR. These are represented as six--- hexadecimal characters, similar to HTML color codes, but without the--- leading hash.-aucasboColor :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)-aucasboColor-  = lens _aucasboColor (\ s a -> s{_aucasboColor = a})---- | URL to use when type is set to URL.-aucasboURL :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)-aucasboURL-  = lens _aucasboURL (\ s a -> s{_aucasboURL = a})---- | Type of the backup option. Possible values are BLANK, COLOR and URL.-aucasboType :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)-aucasboType-  = lens _aucasboType (\ s a -> s{_aucasboType = a})--instance FromJSON-           AdUnitContentAdsSettingsBackupOption-         where-        parseJSON-          = withObject "AdUnitContentAdsSettingsBackupOption"-              (\ o ->-                 AdUnitContentAdsSettingsBackupOption' <$>-                   (o .:? "color") <*> (o .:? "url") <*> (o .:? "type"))--instance ToJSON AdUnitContentAdsSettingsBackupOption-         where-        toJSON AdUnitContentAdsSettingsBackupOption'{..}-          = object-              (catMaybes-                 [("color" .=) <$> _aucasboColor,-                  ("url" .=) <$> _aucasboURL,-                  ("type" .=) <$> _aucasboType])------- /See:/ 'adClient' smart constructor.-data AdClient =-  AdClient'-    { _adKind              :: !Text-    , _adArcOptIn          :: !(Maybe Bool)-    , _adSupportsReporting :: !(Maybe Bool)-    , _adId                :: !(Maybe Text)-    , _adProductCode       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdClient' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adKind'------ * 'adArcOptIn'------ * 'adSupportsReporting'------ * 'adId'------ * 'adProductCode'-adClient-    :: AdClient-adClient =-  AdClient'-    { _adKind = "adsensehost#adClient"-    , _adArcOptIn = Nothing-    , _adSupportsReporting = Nothing-    , _adId = Nothing-    , _adProductCode = Nothing-    }----- | Kind of resource this is, in this case adsensehost#adClient.-adKind :: Lens' AdClient Text-adKind = lens _adKind (\ s a -> s{_adKind = a})---- | Whether this ad client is opted in to ARC.-adArcOptIn :: Lens' AdClient (Maybe Bool)-adArcOptIn-  = lens _adArcOptIn (\ s a -> s{_adArcOptIn = a})---- | Whether this ad client supports being reported on.-adSupportsReporting :: Lens' AdClient (Maybe Bool)-adSupportsReporting-  = lens _adSupportsReporting-      (\ s a -> s{_adSupportsReporting = a})---- | Unique identifier of this ad client.-adId :: Lens' AdClient (Maybe Text)-adId = lens _adId (\ s a -> s{_adId = a})---- | This ad client\'s product code, which corresponds to the PRODUCT_CODE--- report dimension.-adProductCode :: Lens' AdClient (Maybe Text)-adProductCode-  = lens _adProductCode-      (\ s a -> s{_adProductCode = a})--instance FromJSON AdClient where-        parseJSON-          = withObject "AdClient"-              (\ o ->-                 AdClient' <$>-                   (o .:? "kind" .!= "adsensehost#adClient") <*>-                     (o .:? "arcOptIn")-                     <*> (o .:? "supportsReporting")-                     <*> (o .:? "id")-                     <*> (o .:? "productCode"))--instance ToJSON AdClient where-        toJSON AdClient'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _adKind),-                  ("arcOptIn" .=) <$> _adArcOptIn,-                  ("supportsReporting" .=) <$> _adSupportsReporting,-                  ("id" .=) <$> _adId,-                  ("productCode" .=) <$> _adProductCode])------- /See:/ 'reportHeadersItem' smart constructor.-data ReportHeadersItem =-  ReportHeadersItem'-    { _rhiName     :: !(Maybe Text)-    , _rhiCurrency :: !(Maybe Text)-    , _rhiType     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReportHeadersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rhiName'------ * 'rhiCurrency'------ * 'rhiType'-reportHeadersItem-    :: ReportHeadersItem-reportHeadersItem =-  ReportHeadersItem'-    {_rhiName = Nothing, _rhiCurrency = Nothing, _rhiType = Nothing}----- | The name of the header.-rhiName :: Lens' ReportHeadersItem (Maybe Text)-rhiName = lens _rhiName (\ s a -> s{_rhiName = a})---- | The currency of this column. Only present if the header type is--- METRIC_CURRENCY.-rhiCurrency :: Lens' ReportHeadersItem (Maybe Text)-rhiCurrency-  = lens _rhiCurrency (\ s a -> s{_rhiCurrency = a})---- | The type of the header; one of DIMENSION, METRIC_TALLY, METRIC_RATIO, or--- METRIC_CURRENCY.-rhiType :: Lens' ReportHeadersItem (Maybe Text)-rhiType = lens _rhiType (\ s a -> s{_rhiType = a})--instance FromJSON ReportHeadersItem where-        parseJSON-          = withObject "ReportHeadersItem"-              (\ o ->-                 ReportHeadersItem' <$>-                   (o .:? "name") <*> (o .:? "currency") <*>-                     (o .:? "type"))--instance ToJSON ReportHeadersItem where-        toJSON ReportHeadersItem'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _rhiName,-                  ("currency" .=) <$> _rhiCurrency,-                  ("type" .=) <$> _rhiType])------- /See:/ 'adStyle' smart constructor.-data AdStyle =-  AdStyle'-    { _assCorners :: !(Maybe Text)-    , _assKind    :: !Text-    , _assFont    :: !(Maybe AdStyleFont)-    , _assColors  :: !(Maybe AdStyleColors)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdStyle' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'assCorners'------ * 'assKind'------ * 'assFont'------ * 'assColors'-adStyle-    :: AdStyle-adStyle =-  AdStyle'-    { _assCorners = Nothing-    , _assKind = "adsensehost#adStyle"-    , _assFont = Nothing-    , _assColors = Nothing-    }----- | The style of the corners in the ad (deprecated: never populated,--- ignored).-assCorners :: Lens' AdStyle (Maybe Text)-assCorners-  = lens _assCorners (\ s a -> s{_assCorners = a})---- | Kind this is, in this case adsensehost#adStyle.-assKind :: Lens' AdStyle Text-assKind = lens _assKind (\ s a -> s{_assKind = a})---- | The font which is included in the style.-assFont :: Lens' AdStyle (Maybe AdStyleFont)-assFont = lens _assFont (\ s a -> s{_assFont = a})---- | The colors included in the style. These are represented as six--- hexadecimal characters, similar to HTML color codes, but without the--- leading hash.-assColors :: Lens' AdStyle (Maybe AdStyleColors)-assColors-  = lens _assColors (\ s a -> s{_assColors = a})--instance FromJSON AdStyle where-        parseJSON-          = withObject "AdStyle"-              (\ o ->-                 AdStyle' <$>-                   (o .:? "corners") <*>-                     (o .:? "kind" .!= "adsensehost#adStyle")-                     <*> (o .:? "font")-                     <*> (o .:? "colors"))--instance ToJSON AdStyle where-        toJSON AdStyle'{..}-          = object-              (catMaybes-                 [("corners" .=) <$> _assCorners,-                  Just ("kind" .= _assKind), ("font" .=) <$> _assFont,-                  ("colors" .=) <$> _assColors])------- /See:/ 'customChannel' smart constructor.-data CustomChannel =-  CustomChannel'-    { _cKind :: !Text-    , _cName :: !(Maybe Text)-    , _cCode :: !(Maybe Text)-    , _cId   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cKind'------ * 'cName'------ * 'cCode'------ * 'cId'-customChannel-    :: CustomChannel-customChannel =-  CustomChannel'-    { _cKind = "adsensehost#customChannel"-    , _cName = Nothing-    , _cCode = Nothing-    , _cId = Nothing-    }----- | Kind of resource this is, in this case adsensehost#customChannel.-cKind :: Lens' CustomChannel Text-cKind = lens _cKind (\ s a -> s{_cKind = a})---- | Name of this custom channel.-cName :: Lens' CustomChannel (Maybe Text)-cName = lens _cName (\ s a -> s{_cName = a})---- | Code of this custom channel, not necessarily unique across ad clients.-cCode :: Lens' CustomChannel (Maybe Text)-cCode = lens _cCode (\ s a -> s{_cCode = a})---- | Unique identifier of this custom channel. This should be considered an--- opaque identifier; it is not safe to rely on it being in any particular--- format.-cId :: Lens' CustomChannel (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a})--instance FromJSON CustomChannel where-        parseJSON-          = withObject "CustomChannel"-              (\ o ->-                 CustomChannel' <$>-                   (o .:? "kind" .!= "adsensehost#customChannel") <*>-                     (o .:? "name")-                     <*> (o .:? "code")-                     <*> (o .:? "id"))--instance ToJSON CustomChannel where-        toJSON CustomChannel'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _cKind), ("name" .=) <$> _cName,-                  ("code" .=) <$> _cCode, ("id" .=) <$> _cId])------- /See:/ 'urlChannel' smart constructor.-data URLChannel =-  URLChannel'-    { _urlcKind       :: !Text-    , _urlcId         :: !(Maybe Text)-    , _urlcURLPattern :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'URLChannel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'urlcKind'------ * 'urlcId'------ * 'urlcURLPattern'-urlChannel-    :: URLChannel-urlChannel =-  URLChannel'-    { _urlcKind = "adsensehost#urlChannel"-    , _urlcId = Nothing-    , _urlcURLPattern = Nothing-    }----- | Kind of resource this is, in this case adsensehost#urlChannel.-urlcKind :: Lens' URLChannel Text-urlcKind = lens _urlcKind (\ s a -> s{_urlcKind = a})---- | Unique identifier of this URL channel. This should be considered an--- opaque identifier; it is not safe to rely on it being in any particular--- format.-urlcId :: Lens' URLChannel (Maybe Text)-urlcId = lens _urlcId (\ s a -> s{_urlcId = a})---- | URL Pattern of this URL channel. Does not include \"http:\/\/\" or--- \"https:\/\/\". Example: www.example.com\/home-urlcURLPattern :: Lens' URLChannel (Maybe Text)-urlcURLPattern-  = lens _urlcURLPattern-      (\ s a -> s{_urlcURLPattern = a})--instance FromJSON URLChannel where-        parseJSON-          = withObject "URLChannel"-              (\ o ->-                 URLChannel' <$>-                   (o .:? "kind" .!= "adsensehost#urlChannel") <*>-                     (o .:? "id")-                     <*> (o .:? "urlPattern"))--instance ToJSON URLChannel where-        toJSON URLChannel'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId,-                  ("urlPattern" .=) <$> _urlcURLPattern])------- /See:/ 'adCode' smart constructor.-data AdCode =-  AdCode'-    { _aaKind   :: !Text-    , _aaAdCode :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdCode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaKind'------ * 'aaAdCode'-adCode-    :: AdCode-adCode = AdCode' {_aaKind = "adsensehost#adCode", _aaAdCode = Nothing}----- | Kind this is, in this case adsensehost#adCode.-aaKind :: Lens' AdCode Text-aaKind = lens _aaKind (\ s a -> s{_aaKind = a})---- | The ad code snippet.-aaAdCode :: Lens' AdCode (Maybe Text)-aaAdCode = lens _aaAdCode (\ s a -> s{_aaAdCode = a})--instance FromJSON AdCode where-        parseJSON-          = withObject "AdCode"-              (\ o ->-                 AdCode' <$>-                   (o .:? "kind" .!= "adsensehost#adCode") <*>-                     (o .:? "adCode"))--instance ToJSON AdCode where-        toJSON AdCode'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _aaKind),-                  ("adCode" .=) <$> _aaAdCode])---- | Settings specific to content ads (AFC) and highend mobile content ads--- (AFMC - deprecated).------ /See:/ 'adUnitContentAdsSettings' smart constructor.-data AdUnitContentAdsSettings =-  AdUnitContentAdsSettings'-    { _aucasBackupOption :: !(Maybe AdUnitContentAdsSettingsBackupOption)-    , _aucasSize         :: !(Maybe Text)-    , _aucasType         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdUnitContentAdsSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aucasBackupOption'------ * 'aucasSize'------ * 'aucasType'-adUnitContentAdsSettings-    :: AdUnitContentAdsSettings-adUnitContentAdsSettings =-  AdUnitContentAdsSettings'-    {_aucasBackupOption = Nothing, _aucasSize = Nothing, _aucasType = Nothing}----- | The backup option to be used in instances where no ad is available.-aucasBackupOption :: Lens' AdUnitContentAdsSettings (Maybe AdUnitContentAdsSettingsBackupOption)-aucasBackupOption-  = lens _aucasBackupOption-      (\ s a -> s{_aucasBackupOption = a})---- | Size of this ad unit. Size values are in the form SIZE_{width}_{height}.-aucasSize :: Lens' AdUnitContentAdsSettings (Maybe Text)-aucasSize-  = lens _aucasSize (\ s a -> s{_aucasSize = a})---- | Type of this ad unit. Possible values are TEXT, TEXT_IMAGE, IMAGE and--- LINK.-aucasType :: Lens' AdUnitContentAdsSettings (Maybe Text)-aucasType-  = lens _aucasType (\ s a -> s{_aucasType = a})--instance FromJSON AdUnitContentAdsSettings where-        parseJSON-          = withObject "AdUnitContentAdsSettings"-              (\ o ->-                 AdUnitContentAdsSettings' <$>-                   (o .:? "backupOption") <*> (o .:? "size") <*>-                     (o .:? "type"))--instance ToJSON AdUnitContentAdsSettings where-        toJSON AdUnitContentAdsSettings'{..}-          = object-              (catMaybes-                 [("backupOption" .=) <$> _aucasBackupOption,-                  ("size" .=) <$> _aucasSize,-                  ("type" .=) <$> _aucasType])
− gen/Network/Google/AdSenseHost/Types/Sum.hs 
@@ -1,63 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AdSenseHost.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.AdSenseHost.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Products to associate with the user.-data AssociationSessionsStartProductCode-    = Afc-      -- ^ @AFC@-      -- AdSense For Content-    | Afg-      -- ^ @AFG@-      -- AdSense For Games-    | Afmc-      -- ^ @AFMC@-      -- AdSense For Mobile Content - deprecated-    | Afs-      -- ^ @AFS@-      -- AdSense For Search - deprecated-    | Afv-      -- ^ @AFV@-      -- AdSense For Video-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AssociationSessionsStartProductCode--instance FromHttpApiData AssociationSessionsStartProductCode where-    parseQueryParam = \case-        "AFC" -> Right Afc-        "AFG" -> Right Afg-        "AFMC" -> Right Afmc-        "AFS" -> Right Afs-        "AFV" -> Right Afv-        x -> Left ("Unable to parse AssociationSessionsStartProductCode from: " <> x)--instance ToHttpApiData AssociationSessionsStartProductCode where-    toQueryParam = \case-        Afc -> "AFC"-        Afg -> "AFG"-        Afmc -> "AFMC"-        Afs -> "AFS"-        Afv -> "AFV"--instance FromJSON AssociationSessionsStartProductCode where-    parseJSON = parseJSONText "AssociationSessionsStartProductCode"--instance ToJSON AssociationSessionsStartProductCode where-    toJSON = toJSONText
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/Get.hs 
@@ -1,105 +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.AdSenseHost.Accounts.AdClients.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 information about one of the ad clients in the specified--- publisher\'s AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adclients.get@.-module Network.Google.Resource.AdSenseHost.Accounts.AdClients.Get-    (-    -- * REST Resource-      AccountsAdClientsGetResource--    -- * Creating a Request-    , accountsAdClientsGet-    , AccountsAdClientsGet--    -- * Request Lenses-    , aacgAdClientId-    , aacgAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adclients.get@ method which the--- 'AccountsAdClientsGet' request conforms to.-type AccountsAdClientsGetResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] AdClient---- | Get information about one of the ad clients in the specified--- publisher\'s AdSense account.------ /See:/ 'accountsAdClientsGet' smart constructor.-data AccountsAdClientsGet =-  AccountsAdClientsGet'-    { _aacgAdClientId :: !Text-    , _aacgAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdClientsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aacgAdClientId'------ * 'aacgAccountId'-accountsAdClientsGet-    :: Text -- ^ 'aacgAdClientId'-    -> Text -- ^ 'aacgAccountId'-    -> AccountsAdClientsGet-accountsAdClientsGet pAacgAdClientId_ pAacgAccountId_ =-  AccountsAdClientsGet'-    {_aacgAdClientId = pAacgAdClientId_, _aacgAccountId = pAacgAccountId_}----- | Ad client to get.-aacgAdClientId :: Lens' AccountsAdClientsGet Text-aacgAdClientId-  = lens _aacgAdClientId-      (\ s a -> s{_aacgAdClientId = a})---- | Account which contains the ad client.-aacgAccountId :: Lens' AccountsAdClientsGet Text-aacgAccountId-  = lens _aacgAccountId-      (\ s a -> s{_aacgAccountId = a})--instance GoogleRequest AccountsAdClientsGet where-        type Rs AccountsAdClientsGet = AdClient-        type Scopes AccountsAdClientsGet =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdClientsGet'{..}-          = go _aacgAccountId _aacgAdClientId (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdClientsGetResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/List.hs 
@@ -1,121 +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.AdSenseHost.Accounts.AdClients.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 all hosted ad clients in the specified hosted account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adclients.list@.-module Network.Google.Resource.AdSenseHost.Accounts.AdClients.List-    (-    -- * REST Resource-      AccountsAdClientsListResource--    -- * Creating a Request-    , accountsAdClientsList-    , AccountsAdClientsList--    -- * Request Lenses-    , aaclAccountId-    , aaclPageToken-    , aaclMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adclients.list@ method which the--- 'AccountsAdClientsList' request conforms to.-type AccountsAdClientsListResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               QueryParam "pageToken" Text :>-                 QueryParam "maxResults" (Textual Word32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] AdClients---- | List all hosted ad clients in the specified hosted account.------ /See:/ 'accountsAdClientsList' smart constructor.-data AccountsAdClientsList =-  AccountsAdClientsList'-    { _aaclAccountId  :: !Text-    , _aaclPageToken  :: !(Maybe Text)-    , _aaclMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdClientsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaclAccountId'------ * 'aaclPageToken'------ * 'aaclMaxResults'-accountsAdClientsList-    :: Text -- ^ 'aaclAccountId'-    -> AccountsAdClientsList-accountsAdClientsList pAaclAccountId_ =-  AccountsAdClientsList'-    { _aaclAccountId = pAaclAccountId_-    , _aaclPageToken = Nothing-    , _aaclMaxResults = Nothing-    }----- | Account for which to list ad clients.-aaclAccountId :: Lens' AccountsAdClientsList Text-aaclAccountId-  = lens _aaclAccountId-      (\ s a -> s{_aaclAccountId = a})---- | A continuation token, used to page through ad clients. To retrieve the--- next page, set this parameter to the value of \"nextPageToken\" from the--- previous response.-aaclPageToken :: Lens' AccountsAdClientsList (Maybe Text)-aaclPageToken-  = lens _aaclPageToken-      (\ s a -> s{_aaclPageToken = a})---- | The maximum number of ad clients to include in the response, used for--- paging.-aaclMaxResults :: Lens' AccountsAdClientsList (Maybe Word32)-aaclMaxResults-  = lens _aaclMaxResults-      (\ s a -> s{_aaclMaxResults = a})-      . mapping _Coerce--instance GoogleRequest AccountsAdClientsList where-        type Rs AccountsAdClientsList = AdClients-        type Scopes AccountsAdClientsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdClientsList'{..}-          = go _aaclAccountId _aaclPageToken _aaclMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdClientsListResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Delete.hs 
@@ -1,121 +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.AdSenseHost.Accounts.AdUnits.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 the specified ad unit from the specified publisher AdSense--- account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.delete@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Delete-    (-    -- * REST Resource-      AccountsAdUnitsDeleteResource--    -- * Creating a Request-    , accountsAdUnitsDelete-    , AccountsAdUnitsDelete--    -- * Request Lenses-    , aaudAdUnitId-    , aaudAdClientId-    , aaudAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.delete@ method which the--- 'AccountsAdUnitsDelete' request conforms to.-type AccountsAdUnitsDeleteResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   Capture "adUnitId" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] AdUnit---- | Delete the specified ad unit from the specified publisher AdSense--- account.------ /See:/ 'accountsAdUnitsDelete' smart constructor.-data AccountsAdUnitsDelete =-  AccountsAdUnitsDelete'-    { _aaudAdUnitId   :: !Text-    , _aaudAdClientId :: !Text-    , _aaudAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaudAdUnitId'------ * 'aaudAdClientId'------ * 'aaudAccountId'-accountsAdUnitsDelete-    :: Text -- ^ 'aaudAdUnitId'-    -> Text -- ^ 'aaudAdClientId'-    -> Text -- ^ 'aaudAccountId'-    -> AccountsAdUnitsDelete-accountsAdUnitsDelete pAaudAdUnitId_ pAaudAdClientId_ pAaudAccountId_ =-  AccountsAdUnitsDelete'-    { _aaudAdUnitId = pAaudAdUnitId_-    , _aaudAdClientId = pAaudAdClientId_-    , _aaudAccountId = pAaudAccountId_-    }----- | Ad unit to delete.-aaudAdUnitId :: Lens' AccountsAdUnitsDelete Text-aaudAdUnitId-  = lens _aaudAdUnitId (\ s a -> s{_aaudAdUnitId = a})---- | Ad client for which to get ad unit.-aaudAdClientId :: Lens' AccountsAdUnitsDelete Text-aaudAdClientId-  = lens _aaudAdClientId-      (\ s a -> s{_aaudAdClientId = a})---- | Account which contains the ad unit.-aaudAccountId :: Lens' AccountsAdUnitsDelete Text-aaudAccountId-  = lens _aaudAccountId-      (\ s a -> s{_aaudAccountId = a})--instance GoogleRequest AccountsAdUnitsDelete where-        type Rs AccountsAdUnitsDelete = AdUnit-        type Scopes AccountsAdUnitsDelete =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsDelete'{..}-          = go _aaudAccountId _aaudAdClientId _aaudAdUnitId-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsDeleteResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Get.hs 
@@ -1,119 +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.AdSenseHost.Accounts.AdUnits.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 the specified host ad unit in this AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.get@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Get-    (-    -- * REST Resource-      AccountsAdUnitsGetResource--    -- * Creating a Request-    , accountsAdUnitsGet-    , AccountsAdUnitsGet--    -- * Request Lenses-    , aaugAdUnitId-    , aaugAdClientId-    , aaugAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.get@ method which the--- 'AccountsAdUnitsGet' request conforms to.-type AccountsAdUnitsGetResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   Capture "adUnitId" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] AdUnit---- | Get the specified host ad unit in this AdSense account.------ /See:/ 'accountsAdUnitsGet' smart constructor.-data AccountsAdUnitsGet =-  AccountsAdUnitsGet'-    { _aaugAdUnitId   :: !Text-    , _aaugAdClientId :: !Text-    , _aaugAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaugAdUnitId'------ * 'aaugAdClientId'------ * 'aaugAccountId'-accountsAdUnitsGet-    :: Text -- ^ 'aaugAdUnitId'-    -> Text -- ^ 'aaugAdClientId'-    -> Text -- ^ 'aaugAccountId'-    -> AccountsAdUnitsGet-accountsAdUnitsGet pAaugAdUnitId_ pAaugAdClientId_ pAaugAccountId_ =-  AccountsAdUnitsGet'-    { _aaugAdUnitId = pAaugAdUnitId_-    , _aaugAdClientId = pAaugAdClientId_-    , _aaugAccountId = pAaugAccountId_-    }----- | Ad unit to get.-aaugAdUnitId :: Lens' AccountsAdUnitsGet Text-aaugAdUnitId-  = lens _aaugAdUnitId (\ s a -> s{_aaugAdUnitId = a})---- | Ad client for which to get ad unit.-aaugAdClientId :: Lens' AccountsAdUnitsGet Text-aaugAdClientId-  = lens _aaugAdClientId-      (\ s a -> s{_aaugAdClientId = a})---- | Account which contains the ad unit.-aaugAccountId :: Lens' AccountsAdUnitsGet Text-aaugAccountId-  = lens _aaugAccountId-      (\ s a -> s{_aaugAccountId = a})--instance GoogleRequest AccountsAdUnitsGet where-        type Rs AccountsAdUnitsGet = AdUnit-        type Scopes AccountsAdUnitsGet =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsGet'{..}-          = go _aaugAccountId _aaugAdClientId _aaugAdUnitId-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsGetResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/GetAdCode.hs 
@@ -1,139 +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.AdSenseHost.Accounts.AdUnits.GetAdCode--- 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 ad code for the specified ad unit, attaching the specified host--- custom channels.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.getAdCode@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.GetAdCode-    (-    -- * REST Resource-      AccountsAdUnitsGetAdCodeResource--    -- * Creating a Request-    , accountsAdUnitsGetAdCode-    , AccountsAdUnitsGetAdCode--    -- * Request Lenses-    , aaugacAdUnitId-    , aaugacAdClientId-    , aaugacAccountId-    , aaugacHostCustomChannelId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.getAdCode@ method which the--- 'AccountsAdUnitsGetAdCode' request conforms to.-type AccountsAdUnitsGetAdCodeResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   Capture "adUnitId" Text :>-                     "adcode" :>-                       QueryParams "hostCustomChannelId" Text :>-                         QueryParam "alt" AltJSON :> Get '[JSON] AdCode---- | Get ad code for the specified ad unit, attaching the specified host--- custom channels.------ /See:/ 'accountsAdUnitsGetAdCode' smart constructor.-data AccountsAdUnitsGetAdCode =-  AccountsAdUnitsGetAdCode'-    { _aaugacAdUnitId            :: !Text-    , _aaugacAdClientId          :: !Text-    , _aaugacAccountId           :: !Text-    , _aaugacHostCustomChannelId :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsGetAdCode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaugacAdUnitId'------ * 'aaugacAdClientId'------ * 'aaugacAccountId'------ * 'aaugacHostCustomChannelId'-accountsAdUnitsGetAdCode-    :: Text -- ^ 'aaugacAdUnitId'-    -> Text -- ^ 'aaugacAdClientId'-    -> Text -- ^ 'aaugacAccountId'-    -> AccountsAdUnitsGetAdCode-accountsAdUnitsGetAdCode pAaugacAdUnitId_ pAaugacAdClientId_ pAaugacAccountId_ =-  AccountsAdUnitsGetAdCode'-    { _aaugacAdUnitId = pAaugacAdUnitId_-    , _aaugacAdClientId = pAaugacAdClientId_-    , _aaugacAccountId = pAaugacAccountId_-    , _aaugacHostCustomChannelId = Nothing-    }----- | Ad unit to get the code for.-aaugacAdUnitId :: Lens' AccountsAdUnitsGetAdCode Text-aaugacAdUnitId-  = lens _aaugacAdUnitId-      (\ s a -> s{_aaugacAdUnitId = a})---- | Ad client with contains the ad unit.-aaugacAdClientId :: Lens' AccountsAdUnitsGetAdCode Text-aaugacAdClientId-  = lens _aaugacAdClientId-      (\ s a -> s{_aaugacAdClientId = a})---- | Account which contains the ad client.-aaugacAccountId :: Lens' AccountsAdUnitsGetAdCode Text-aaugacAccountId-  = lens _aaugacAccountId-      (\ s a -> s{_aaugacAccountId = a})---- | Host custom channel to attach to the ad code.-aaugacHostCustomChannelId :: Lens' AccountsAdUnitsGetAdCode [Text]-aaugacHostCustomChannelId-  = lens _aaugacHostCustomChannelId-      (\ s a -> s{_aaugacHostCustomChannelId = a})-      . _Default-      . _Coerce--instance GoogleRequest AccountsAdUnitsGetAdCode where-        type Rs AccountsAdUnitsGetAdCode = AdCode-        type Scopes AccountsAdUnitsGetAdCode =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsGetAdCode'{..}-          = go _aaugacAccountId _aaugacAdClientId-              _aaugacAdUnitId-              (_aaugacHostCustomChannelId ^. _Default)-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsGetAdCodeResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Insert.hs 
@@ -1,121 +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.AdSenseHost.Accounts.AdUnits.Insert--- 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)------ Insert the supplied ad unit into the specified publisher AdSense--- account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.insert@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Insert-    (-    -- * REST Resource-      AccountsAdUnitsInsertResource--    -- * Creating a Request-    , accountsAdUnitsInsert-    , AccountsAdUnitsInsert--    -- * Request Lenses-    , aauiPayload-    , aauiAdClientId-    , aauiAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.insert@ method which the--- 'AccountsAdUnitsInsert' request conforms to.-type AccountsAdUnitsInsertResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AdUnit :> Post '[JSON] AdUnit---- | Insert the supplied ad unit into the specified publisher AdSense--- account.------ /See:/ 'accountsAdUnitsInsert' smart constructor.-data AccountsAdUnitsInsert =-  AccountsAdUnitsInsert'-    { _aauiPayload    :: !AdUnit-    , _aauiAdClientId :: !Text-    , _aauiAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aauiPayload'------ * 'aauiAdClientId'------ * 'aauiAccountId'-accountsAdUnitsInsert-    :: AdUnit -- ^ 'aauiPayload'-    -> Text -- ^ 'aauiAdClientId'-    -> Text -- ^ 'aauiAccountId'-    -> AccountsAdUnitsInsert-accountsAdUnitsInsert pAauiPayload_ pAauiAdClientId_ pAauiAccountId_ =-  AccountsAdUnitsInsert'-    { _aauiPayload = pAauiPayload_-    , _aauiAdClientId = pAauiAdClientId_-    , _aauiAccountId = pAauiAccountId_-    }----- | Multipart request metadata.-aauiPayload :: Lens' AccountsAdUnitsInsert AdUnit-aauiPayload-  = lens _aauiPayload (\ s a -> s{_aauiPayload = a})---- | Ad client into which to insert the ad unit.-aauiAdClientId :: Lens' AccountsAdUnitsInsert Text-aauiAdClientId-  = lens _aauiAdClientId-      (\ s a -> s{_aauiAdClientId = a})---- | Account which will contain the ad unit.-aauiAccountId :: Lens' AccountsAdUnitsInsert Text-aauiAccountId-  = lens _aauiAccountId-      (\ s a -> s{_aauiAccountId = a})--instance GoogleRequest AccountsAdUnitsInsert where-        type Rs AccountsAdUnitsInsert = AdUnit-        type Scopes AccountsAdUnitsInsert =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsInsert'{..}-          = go _aauiAccountId _aauiAdClientId (Just AltJSON)-              _aauiPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsInsertResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/List.hs 
@@ -1,150 +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.AdSenseHost.Accounts.AdUnits.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 all ad units in the specified publisher\'s AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.list@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.List-    (-    -- * REST Resource-      AccountsAdUnitsListResource--    -- * Creating a Request-    , accountsAdUnitsList-    , AccountsAdUnitsList--    -- * Request Lenses-    , aaulIncludeInactive-    , aaulAdClientId-    , aaulAccountId-    , aaulPageToken-    , aaulMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.list@ method which the--- 'AccountsAdUnitsList' request conforms to.-type AccountsAdUnitsListResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   QueryParam "includeInactive" Bool :>-                     QueryParam "pageToken" Text :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] AdUnits---- | List all ad units in the specified publisher\'s AdSense account.------ /See:/ 'accountsAdUnitsList' smart constructor.-data AccountsAdUnitsList =-  AccountsAdUnitsList'-    { _aaulIncludeInactive :: !(Maybe Bool)-    , _aaulAdClientId      :: !Text-    , _aaulAccountId       :: !Text-    , _aaulPageToken       :: !(Maybe Text)-    , _aaulMaxResults      :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaulIncludeInactive'------ * 'aaulAdClientId'------ * 'aaulAccountId'------ * 'aaulPageToken'------ * 'aaulMaxResults'-accountsAdUnitsList-    :: Text -- ^ 'aaulAdClientId'-    -> Text -- ^ 'aaulAccountId'-    -> AccountsAdUnitsList-accountsAdUnitsList pAaulAdClientId_ pAaulAccountId_ =-  AccountsAdUnitsList'-    { _aaulIncludeInactive = Nothing-    , _aaulAdClientId = pAaulAdClientId_-    , _aaulAccountId = pAaulAccountId_-    , _aaulPageToken = Nothing-    , _aaulMaxResults = Nothing-    }----- | Whether to include inactive ad units. Default: true.-aaulIncludeInactive :: Lens' AccountsAdUnitsList (Maybe Bool)-aaulIncludeInactive-  = lens _aaulIncludeInactive-      (\ s a -> s{_aaulIncludeInactive = a})---- | Ad client for which to list ad units.-aaulAdClientId :: Lens' AccountsAdUnitsList Text-aaulAdClientId-  = lens _aaulAdClientId-      (\ s a -> s{_aaulAdClientId = a})---- | Account which contains the ad client.-aaulAccountId :: Lens' AccountsAdUnitsList Text-aaulAccountId-  = lens _aaulAccountId-      (\ s a -> s{_aaulAccountId = a})---- | A continuation token, used to page through ad units. To retrieve the--- next page, set this parameter to the value of \"nextPageToken\" from the--- previous response.-aaulPageToken :: Lens' AccountsAdUnitsList (Maybe Text)-aaulPageToken-  = lens _aaulPageToken-      (\ s a -> s{_aaulPageToken = a})---- | The maximum number of ad units to include in the response, used for--- paging.-aaulMaxResults :: Lens' AccountsAdUnitsList (Maybe Word32)-aaulMaxResults-  = lens _aaulMaxResults-      (\ s a -> s{_aaulMaxResults = a})-      . mapping _Coerce--instance GoogleRequest AccountsAdUnitsList where-        type Rs AccountsAdUnitsList = AdUnits-        type Scopes AccountsAdUnitsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsList'{..}-          = go _aaulAccountId _aaulAdClientId-              _aaulIncludeInactive-              _aaulPageToken-              _aaulMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsListResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Patch.hs 
@@ -1,135 +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.AdSenseHost.Accounts.AdUnits.Patch--- 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 the supplied ad unit in the specified publisher AdSense account.--- This method supports patch semantics.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.patch@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Patch-    (-    -- * REST Resource-      AccountsAdUnitsPatchResource--    -- * Creating a Request-    , accountsAdUnitsPatch-    , AccountsAdUnitsPatch--    -- * Request Lenses-    , aaupAdUnitId-    , aaupPayload-    , aaupAdClientId-    , aaupAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.patch@ method which the--- 'AccountsAdUnitsPatch' request conforms to.-type AccountsAdUnitsPatchResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   QueryParam "adUnitId" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] AdUnit :> Patch '[JSON] AdUnit---- | Update the supplied ad unit in the specified publisher AdSense account.--- This method supports patch semantics.------ /See:/ 'accountsAdUnitsPatch' smart constructor.-data AccountsAdUnitsPatch =-  AccountsAdUnitsPatch'-    { _aaupAdUnitId   :: !Text-    , _aaupPayload    :: !AdUnit-    , _aaupAdClientId :: !Text-    , _aaupAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaupAdUnitId'------ * 'aaupPayload'------ * 'aaupAdClientId'------ * 'aaupAccountId'-accountsAdUnitsPatch-    :: Text -- ^ 'aaupAdUnitId'-    -> AdUnit -- ^ 'aaupPayload'-    -> Text -- ^ 'aaupAdClientId'-    -> Text -- ^ 'aaupAccountId'-    -> AccountsAdUnitsPatch-accountsAdUnitsPatch pAaupAdUnitId_ pAaupPayload_ pAaupAdClientId_ pAaupAccountId_ =-  AccountsAdUnitsPatch'-    { _aaupAdUnitId = pAaupAdUnitId_-    , _aaupPayload = pAaupPayload_-    , _aaupAdClientId = pAaupAdClientId_-    , _aaupAccountId = pAaupAccountId_-    }----- | Ad unit to get.-aaupAdUnitId :: Lens' AccountsAdUnitsPatch Text-aaupAdUnitId-  = lens _aaupAdUnitId (\ s a -> s{_aaupAdUnitId = a})---- | Multipart request metadata.-aaupPayload :: Lens' AccountsAdUnitsPatch AdUnit-aaupPayload-  = lens _aaupPayload (\ s a -> s{_aaupPayload = a})---- | Ad client which contains the ad unit.-aaupAdClientId :: Lens' AccountsAdUnitsPatch Text-aaupAdClientId-  = lens _aaupAdClientId-      (\ s a -> s{_aaupAdClientId = a})---- | Account which contains the ad client.-aaupAccountId :: Lens' AccountsAdUnitsPatch Text-aaupAccountId-  = lens _aaupAccountId-      (\ s a -> s{_aaupAccountId = a})--instance GoogleRequest AccountsAdUnitsPatch where-        type Rs AccountsAdUnitsPatch = AdUnit-        type Scopes AccountsAdUnitsPatch =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsPatch'{..}-          = go _aaupAccountId _aaupAdClientId-              (Just _aaupAdUnitId)-              (Just AltJSON)-              _aaupPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsPatchResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Update.hs 
@@ -1,119 +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.AdSenseHost.Accounts.AdUnits.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 the supplied ad unit in the specified publisher AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.adunits.update@.-module Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Update-    (-    -- * REST Resource-      AccountsAdUnitsUpdateResource--    -- * Creating a Request-    , accountsAdUnitsUpdate-    , AccountsAdUnitsUpdate--    -- * Request Lenses-    , aauuPayload-    , aauuAdClientId-    , aauuAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.adunits.update@ method which the--- 'AccountsAdUnitsUpdate' request conforms to.-type AccountsAdUnitsUpdateResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "adclients" :>-               Capture "adClientId" Text :>-                 "adunits" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AdUnit :> Put '[JSON] AdUnit---- | Update the supplied ad unit in the specified publisher AdSense account.------ /See:/ 'accountsAdUnitsUpdate' smart constructor.-data AccountsAdUnitsUpdate =-  AccountsAdUnitsUpdate'-    { _aauuPayload    :: !AdUnit-    , _aauuAdClientId :: !Text-    , _aauuAccountId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsAdUnitsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aauuPayload'------ * 'aauuAdClientId'------ * 'aauuAccountId'-accountsAdUnitsUpdate-    :: AdUnit -- ^ 'aauuPayload'-    -> Text -- ^ 'aauuAdClientId'-    -> Text -- ^ 'aauuAccountId'-    -> AccountsAdUnitsUpdate-accountsAdUnitsUpdate pAauuPayload_ pAauuAdClientId_ pAauuAccountId_ =-  AccountsAdUnitsUpdate'-    { _aauuPayload = pAauuPayload_-    , _aauuAdClientId = pAauuAdClientId_-    , _aauuAccountId = pAauuAccountId_-    }----- | Multipart request metadata.-aauuPayload :: Lens' AccountsAdUnitsUpdate AdUnit-aauuPayload-  = lens _aauuPayload (\ s a -> s{_aauuPayload = a})---- | Ad client which contains the ad unit.-aauuAdClientId :: Lens' AccountsAdUnitsUpdate Text-aauuAdClientId-  = lens _aauuAdClientId-      (\ s a -> s{_aauuAdClientId = a})---- | Account which contains the ad client.-aauuAccountId :: Lens' AccountsAdUnitsUpdate Text-aauuAccountId-  = lens _aauuAccountId-      (\ s a -> s{_aauuAccountId = a})--instance GoogleRequest AccountsAdUnitsUpdate where-        type Rs AccountsAdUnitsUpdate = AdUnit-        type Scopes AccountsAdUnitsUpdate =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsAdUnitsUpdate'{..}-          = go _aauuAccountId _aauuAdClientId (Just AltJSON)-              _aauuPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsAdUnitsUpdateResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs 
@@ -1,85 +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.AdSenseHost.Accounts.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 information about the selected associated AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.get@.-module Network.Google.Resource.AdSenseHost.Accounts.Get-    (-    -- * REST Resource-      AccountsGetResource--    -- * Creating a Request-    , accountsGet-    , AccountsGet--    -- * Request Lenses-    , agAccountId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.get@ method which the--- 'AccountsGet' request conforms to.-type AccountsGetResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             QueryParam "alt" AltJSON :> Get '[JSON] Account---- | Get information about the selected associated AdSense account.------ /See:/ 'accountsGet' smart constructor.-newtype AccountsGet =-  AccountsGet'-    { _agAccountId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'agAccountId'-accountsGet-    :: Text -- ^ 'agAccountId'-    -> AccountsGet-accountsGet pAgAccountId_ = AccountsGet' {_agAccountId = pAgAccountId_}----- | Account to get information about.-agAccountId :: Lens' AccountsGet Text-agAccountId-  = lens _agAccountId (\ s a -> s{_agAccountId = a})--instance GoogleRequest AccountsGet where-        type Rs AccountsGet = Account-        type Scopes AccountsGet =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsGet'{..}-          = go _agAccountId (Just AltJSON) adSenseHostService-          where go-                  = buildClient (Proxy :: Proxy AccountsGetResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs 
@@ -1,91 +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.AdSenseHost.Accounts.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 hosted accounts associated with this AdSense account by ad client--- id.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.list@.-module Network.Google.Resource.AdSenseHost.Accounts.List-    (-    -- * REST Resource-      AccountsListResource--    -- * Creating a Request-    , accountsList-    , AccountsList--    -- * Request Lenses-    , alFilterAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.list@ method which the--- 'AccountsList' request conforms to.-type AccountsListResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           QueryParams "filterAdClientId" Text :>-             QueryParam "alt" AltJSON :> Get '[JSON] Accounts---- | List hosted accounts associated with this AdSense account by ad client--- id.------ /See:/ 'accountsList' smart constructor.-newtype AccountsList =-  AccountsList'-    { _alFilterAdClientId :: [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alFilterAdClientId'-accountsList-    :: [Text] -- ^ 'alFilterAdClientId'-    -> AccountsList-accountsList pAlFilterAdClientId_ =-  AccountsList' {_alFilterAdClientId = _Coerce # pAlFilterAdClientId_}----- | Ad clients to list accounts for.-alFilterAdClientId :: Lens' AccountsList [Text]-alFilterAdClientId-  = lens _alFilterAdClientId-      (\ s a -> s{_alFilterAdClientId = a})-      . _Coerce--instance GoogleRequest AccountsList where-        type Rs AccountsList = Accounts-        type Scopes AccountsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsList'{..}-          = go _alFilterAdClientId (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient (Proxy :: Proxy AccountsListResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs 
@@ -1,220 +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.AdSenseHost.Accounts.Reports.Generate--- 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)------ Generate an AdSense report based on the report request sent in the query--- parameters. Returns the result as JSON; to retrieve output in CSV format--- specify \"alt=csv\" as a query parameter.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.accounts.reports.generate@.-module Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate-    (-    -- * REST Resource-      AccountsReportsGenerateResource--    -- * Creating a Request-    , accountsReportsGenerate-    , AccountsReportsGenerate--    -- * Request Lenses-    , argDimension-    , argLocale-    , argEndDate-    , argStartDate-    , argAccountId-    , argMetric-    , argSort-    , argFilter-    , argStartIndex-    , argMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.accounts.reports.generate@ method which the--- 'AccountsReportsGenerate' request conforms to.-type AccountsReportsGenerateResource =-     "adsensehost" :>-       "v4.1" :>-         "accounts" :>-           Capture "accountId" Text :>-             "reports" :>-               QueryParam "startDate" Text :>-                 QueryParam "endDate" Text :>-                   QueryParams "dimension" Text :>-                     QueryParam "locale" Text :>-                       QueryParams "metric" Text :>-                         QueryParams "sort" Text :>-                           QueryParams "filter" Text :>-                             QueryParam "startIndex" (Textual Word32) :>-                               QueryParam "maxResults" (Textual Word32) :>-                                 QueryParam "alt" AltJSON :> Get '[JSON] Report---- | Generate an AdSense report based on the report request sent in the query--- parameters. Returns the result as JSON; to retrieve output in CSV format--- specify \"alt=csv\" as a query parameter.------ /See:/ 'accountsReportsGenerate' smart constructor.-data AccountsReportsGenerate =-  AccountsReportsGenerate'-    { _argDimension  :: !(Maybe [Text])-    , _argLocale     :: !(Maybe Text)-    , _argEndDate    :: !Text-    , _argStartDate  :: !Text-    , _argAccountId  :: !Text-    , _argMetric     :: !(Maybe [Text])-    , _argSort       :: !(Maybe [Text])-    , _argFilter     :: !(Maybe [Text])-    , _argStartIndex :: !(Maybe (Textual Word32))-    , _argMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountsReportsGenerate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'argDimension'------ * 'argLocale'------ * 'argEndDate'------ * 'argStartDate'------ * 'argAccountId'------ * 'argMetric'------ * 'argSort'------ * 'argFilter'------ * 'argStartIndex'------ * 'argMaxResults'-accountsReportsGenerate-    :: Text -- ^ 'argEndDate'-    -> Text -- ^ 'argStartDate'-    -> Text -- ^ 'argAccountId'-    -> AccountsReportsGenerate-accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ =-  AccountsReportsGenerate'-    { _argDimension = Nothing-    , _argLocale = Nothing-    , _argEndDate = pArgEndDate_-    , _argStartDate = pArgStartDate_-    , _argAccountId = pArgAccountId_-    , _argMetric = Nothing-    , _argSort = Nothing-    , _argFilter = Nothing-    , _argStartIndex = Nothing-    , _argMaxResults = Nothing-    }----- | Dimensions to base the report on.-argDimension :: Lens' AccountsReportsGenerate [Text]-argDimension-  = lens _argDimension (\ s a -> s{_argDimension = a})-      . _Default-      . _Coerce---- | Optional locale to use for translating report output to a local--- language. Defaults to \"en_US\" if not specified.-argLocale :: Lens' AccountsReportsGenerate (Maybe Text)-argLocale-  = lens _argLocale (\ s a -> s{_argLocale = a})---- | End of the date range to report on in \"YYYY-MM-DD\" format, inclusive.-argEndDate :: Lens' AccountsReportsGenerate Text-argEndDate-  = lens _argEndDate (\ s a -> s{_argEndDate = a})---- | Start of the date range to report on in \"YYYY-MM-DD\" format,--- inclusive.-argStartDate :: Lens' AccountsReportsGenerate Text-argStartDate-  = lens _argStartDate (\ s a -> s{_argStartDate = a})---- | Hosted account upon which to report.-argAccountId :: Lens' AccountsReportsGenerate Text-argAccountId-  = lens _argAccountId (\ s a -> s{_argAccountId = a})---- | Numeric columns to include in the report.-argMetric :: Lens' AccountsReportsGenerate [Text]-argMetric-  = lens _argMetric (\ s a -> s{_argMetric = a}) .-      _Default-      . _Coerce---- | The name of a dimension or metric to sort the resulting report on,--- optionally prefixed with \"+\" to sort ascending or \"-\" to sort--- descending. If no prefix is specified, the column is sorted ascending.-argSort :: Lens' AccountsReportsGenerate [Text]-argSort-  = lens _argSort (\ s a -> s{_argSort = a}) . _Default-      . _Coerce---- | Filters to be run on the report.-argFilter :: Lens' AccountsReportsGenerate [Text]-argFilter-  = lens _argFilter (\ s a -> s{_argFilter = a}) .-      _Default-      . _Coerce---- | Index of the first row of report data to return.-argStartIndex :: Lens' AccountsReportsGenerate (Maybe Word32)-argStartIndex-  = lens _argStartIndex-      (\ s a -> s{_argStartIndex = a})-      . mapping _Coerce---- | The maximum number of rows of report data to return.-argMaxResults :: Lens' AccountsReportsGenerate (Maybe Word32)-argMaxResults-  = lens _argMaxResults-      (\ s a -> s{_argMaxResults = a})-      . mapping _Coerce--instance GoogleRequest AccountsReportsGenerate where-        type Rs AccountsReportsGenerate = Report-        type Scopes AccountsReportsGenerate =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AccountsReportsGenerate'{..}-          = go _argAccountId (Just _argStartDate)-              (Just _argEndDate)-              (_argDimension ^. _Default)-              _argLocale-              (_argMetric ^. _Default)-              (_argSort ^. _Default)-              (_argFilter ^. _Default)-              _argStartIndex-              _argMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AccountsReportsGenerateResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/AdClients/Get.hs 
@@ -1,86 +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.AdSenseHost.AdClients.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 information about one of the ad clients in the Host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.adclients.get@.-module Network.Google.Resource.AdSenseHost.AdClients.Get-    (-    -- * REST Resource-      AdClientsGetResource--    -- * Creating a Request-    , adClientsGet-    , AdClientsGet--    -- * Request Lenses-    , acgAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.adclients.get@ method which the--- 'AdClientsGet' request conforms to.-type AdClientsGetResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             QueryParam "alt" AltJSON :> Get '[JSON] AdClient---- | Get information about one of the ad clients in the Host AdSense account.------ /See:/ 'adClientsGet' smart constructor.-newtype AdClientsGet =-  AdClientsGet'-    { _acgAdClientId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdClientsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acgAdClientId'-adClientsGet-    :: Text -- ^ 'acgAdClientId'-    -> AdClientsGet-adClientsGet pAcgAdClientId_ = AdClientsGet' {_acgAdClientId = pAcgAdClientId_}----- | Ad client to get.-acgAdClientId :: Lens' AdClientsGet Text-acgAdClientId-  = lens _acgAdClientId-      (\ s a -> s{_acgAdClientId = a})--instance GoogleRequest AdClientsGet where-        type Rs AdClientsGet = AdClient-        type Scopes AdClientsGet =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AdClientsGet'{..}-          = go _acgAdClientId (Just AltJSON) adSenseHostService-          where go-                  = buildClient (Proxy :: Proxy AdClientsGetResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/AdClients/List.hs 
@@ -1,101 +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.AdSenseHost.AdClients.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 all host ad clients in this AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.adclients.list@.-module Network.Google.Resource.AdSenseHost.AdClients.List-    (-    -- * REST Resource-      AdClientsListResource--    -- * Creating a Request-    , adClientsList-    , AdClientsList--    -- * Request Lenses-    , aclPageToken-    , aclMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.adclients.list@ method which the--- 'AdClientsList' request conforms to.-type AdClientsListResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           QueryParam "pageToken" Text :>-             QueryParam "maxResults" (Textual Word32) :>-               QueryParam "alt" AltJSON :> Get '[JSON] AdClients---- | List all host ad clients in this AdSense account.------ /See:/ 'adClientsList' smart constructor.-data AdClientsList =-  AdClientsList'-    { _aclPageToken  :: !(Maybe Text)-    , _aclMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdClientsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aclPageToken'------ * 'aclMaxResults'-adClientsList-    :: AdClientsList-adClientsList =-  AdClientsList' {_aclPageToken = Nothing, _aclMaxResults = Nothing}----- | A continuation token, used to page through ad clients. To retrieve the--- next page, set this parameter to the value of \"nextPageToken\" from the--- previous response.-aclPageToken :: Lens' AdClientsList (Maybe Text)-aclPageToken-  = lens _aclPageToken (\ s a -> s{_aclPageToken = a})---- | The maximum number of ad clients to include in the response, used for--- paging.-aclMaxResults :: Lens' AdClientsList (Maybe Word32)-aclMaxResults-  = lens _aclMaxResults-      (\ s a -> s{_aclMaxResults = a})-      . mapping _Coerce--instance GoogleRequest AdClientsList where-        type Rs AdClientsList = AdClients-        type Scopes AdClientsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AdClientsList'{..}-          = go _aclPageToken _aclMaxResults (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient (Proxy :: Proxy AdClientsListResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hs 
@@ -1,138 +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.AdSenseHost.AssociationSessions.Start--- 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 an association session for initiating an association with an--- AdSense user.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.associationsessions.start@.-module Network.Google.Resource.AdSenseHost.AssociationSessions.Start-    (-    -- * REST Resource-      AssociationSessionsStartResource--    -- * Creating a Request-    , associationSessionsStart-    , AssociationSessionsStart--    -- * Request Lenses-    , assWebsiteLocale-    , assUserLocale-    , assWebsiteURL-    , assProductCode-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.associationsessions.start@ method which the--- 'AssociationSessionsStart' request conforms to.-type AssociationSessionsStartResource =-     "adsensehost" :>-       "v4.1" :>-         "associationsessions" :>-           "start" :>-             QueryParams "productCode"-               AssociationSessionsStartProductCode-               :>-               QueryParam "websiteUrl" Text :>-                 QueryParam "websiteLocale" Text :>-                   QueryParam "userLocale" Text :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] AssociationSession---- | Create an association session for initiating an association with an--- AdSense user.------ /See:/ 'associationSessionsStart' smart constructor.-data AssociationSessionsStart =-  AssociationSessionsStart'-    { _assWebsiteLocale :: !(Maybe Text)-    , _assUserLocale    :: !(Maybe Text)-    , _assWebsiteURL    :: !Text-    , _assProductCode   :: ![AssociationSessionsStartProductCode]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AssociationSessionsStart' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'assWebsiteLocale'------ * 'assUserLocale'------ * 'assWebsiteURL'------ * 'assProductCode'-associationSessionsStart-    :: Text -- ^ 'assWebsiteURL'-    -> [AssociationSessionsStartProductCode] -- ^ 'assProductCode'-    -> AssociationSessionsStart-associationSessionsStart pAssWebsiteURL_ pAssProductCode_ =-  AssociationSessionsStart'-    { _assWebsiteLocale = Nothing-    , _assUserLocale = Nothing-    , _assWebsiteURL = pAssWebsiteURL_-    , _assProductCode = _Coerce # pAssProductCode_-    }----- | The locale of the user\'s hosted website.-assWebsiteLocale :: Lens' AssociationSessionsStart (Maybe Text)-assWebsiteLocale-  = lens _assWebsiteLocale-      (\ s a -> s{_assWebsiteLocale = a})---- | The preferred locale of the user.-assUserLocale :: Lens' AssociationSessionsStart (Maybe Text)-assUserLocale-  = lens _assUserLocale-      (\ s a -> s{_assUserLocale = a})---- | The URL of the user\'s hosted website.-assWebsiteURL :: Lens' AssociationSessionsStart Text-assWebsiteURL-  = lens _assWebsiteURL-      (\ s a -> s{_assWebsiteURL = a})---- | Products to associate with the user.-assProductCode :: Lens' AssociationSessionsStart [AssociationSessionsStartProductCode]-assProductCode-  = lens _assProductCode-      (\ s a -> s{_assProductCode = a})-      . _Coerce--instance GoogleRequest AssociationSessionsStart where-        type Rs AssociationSessionsStart = AssociationSession-        type Scopes AssociationSessionsStart =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AssociationSessionsStart'{..}-          = go _assProductCode (Just _assWebsiteURL)-              _assWebsiteLocale-              _assUserLocale-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AssociationSessionsStartResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hs 
@@ -1,93 +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.AdSenseHost.AssociationSessions.Verify--- 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)------ Verify an association session after the association callback returns--- from AdSense signup.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.associationsessions.verify@.-module Network.Google.Resource.AdSenseHost.AssociationSessions.Verify-    (-    -- * REST Resource-      AssociationSessionsVerifyResource--    -- * Creating a Request-    , associationSessionsVerify-    , AssociationSessionsVerify--    -- * Request Lenses-    , asvToken-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.associationsessions.verify@ method which the--- 'AssociationSessionsVerify' request conforms to.-type AssociationSessionsVerifyResource =-     "adsensehost" :>-       "v4.1" :>-         "associationsessions" :>-           "verify" :>-             QueryParam "token" Text :>-               QueryParam "alt" AltJSON :>-                 Get '[JSON] AssociationSession---- | Verify an association session after the association callback returns--- from AdSense signup.------ /See:/ 'associationSessionsVerify' smart constructor.-newtype AssociationSessionsVerify =-  AssociationSessionsVerify'-    { _asvToken :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AssociationSessionsVerify' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asvToken'-associationSessionsVerify-    :: Text -- ^ 'asvToken'-    -> AssociationSessionsVerify-associationSessionsVerify pAsvToken_ =-  AssociationSessionsVerify' {_asvToken = pAsvToken_}----- | The token returned to the association callback URL.-asvToken :: Lens' AssociationSessionsVerify Text-asvToken = lens _asvToken (\ s a -> s{_asvToken = a})--instance GoogleRequest AssociationSessionsVerify-         where-        type Rs AssociationSessionsVerify =-             AssociationSession-        type Scopes AssociationSessionsVerify =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient AssociationSessionsVerify'{..}-          = go (Just _asvToken) (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy AssociationSessionsVerifyResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/Delete.hs 
@@ -1,107 +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.AdSenseHost.CustomChannels.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 a specific custom channel from the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.delete@.-module Network.Google.Resource.AdSenseHost.CustomChannels.Delete-    (-    -- * REST Resource-      CustomChannelsDeleteResource--    -- * Creating a Request-    , customChannelsDelete-    , CustomChannelsDelete--    -- * Request Lenses-    , ccdCustomChannelId-    , ccdAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.delete@ method which the--- 'CustomChannelsDelete' request conforms to.-type CustomChannelsDeleteResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               Capture "customChannelId" Text :>-                 QueryParam "alt" AltJSON :>-                   Delete '[JSON] CustomChannel---- | Delete a specific custom channel from the host AdSense account.------ /See:/ 'customChannelsDelete' smart constructor.-data CustomChannelsDelete =-  CustomChannelsDelete'-    { _ccdCustomChannelId :: !Text-    , _ccdAdClientId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccdCustomChannelId'------ * 'ccdAdClientId'-customChannelsDelete-    :: Text -- ^ 'ccdCustomChannelId'-    -> Text -- ^ 'ccdAdClientId'-    -> CustomChannelsDelete-customChannelsDelete pCcdCustomChannelId_ pCcdAdClientId_ =-  CustomChannelsDelete'-    { _ccdCustomChannelId = pCcdCustomChannelId_-    , _ccdAdClientId = pCcdAdClientId_-    }----- | Custom channel to delete.-ccdCustomChannelId :: Lens' CustomChannelsDelete Text-ccdCustomChannelId-  = lens _ccdCustomChannelId-      (\ s a -> s{_ccdCustomChannelId = a})---- | Ad client from which to delete the custom channel.-ccdAdClientId :: Lens' CustomChannelsDelete Text-ccdAdClientId-  = lens _ccdAdClientId-      (\ s a -> s{_ccdAdClientId = a})--instance GoogleRequest CustomChannelsDelete where-        type Rs CustomChannelsDelete = CustomChannel-        type Scopes CustomChannelsDelete =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsDelete'{..}-          = go _ccdAdClientId _ccdCustomChannelId-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsDeleteResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/Get.hs 
@@ -1,106 +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.AdSenseHost.CustomChannels.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 a specific custom channel from the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.get@.-module Network.Google.Resource.AdSenseHost.CustomChannels.Get-    (-    -- * REST Resource-      CustomChannelsGetResource--    -- * Creating a Request-    , customChannelsGet-    , CustomChannelsGet--    -- * Request Lenses-    , ccgCustomChannelId-    , ccgAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.get@ method which the--- 'CustomChannelsGet' request conforms to.-type CustomChannelsGetResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               Capture "customChannelId" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] CustomChannel---- | Get a specific custom channel from the host AdSense account.------ /See:/ 'customChannelsGet' smart constructor.-data CustomChannelsGet =-  CustomChannelsGet'-    { _ccgCustomChannelId :: !Text-    , _ccgAdClientId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccgCustomChannelId'------ * 'ccgAdClientId'-customChannelsGet-    :: Text -- ^ 'ccgCustomChannelId'-    -> Text -- ^ 'ccgAdClientId'-    -> CustomChannelsGet-customChannelsGet pCcgCustomChannelId_ pCcgAdClientId_ =-  CustomChannelsGet'-    { _ccgCustomChannelId = pCcgCustomChannelId_-    , _ccgAdClientId = pCcgAdClientId_-    }----- | Custom channel to get.-ccgCustomChannelId :: Lens' CustomChannelsGet Text-ccgCustomChannelId-  = lens _ccgCustomChannelId-      (\ s a -> s{_ccgCustomChannelId = a})---- | Ad client from which to get the custom channel.-ccgAdClientId :: Lens' CustomChannelsGet Text-ccgAdClientId-  = lens _ccgAdClientId-      (\ s a -> s{_ccgAdClientId = a})--instance GoogleRequest CustomChannelsGet where-        type Rs CustomChannelsGet = CustomChannel-        type Scopes CustomChannelsGet =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsGet'{..}-          = go _ccgAdClientId _ccgCustomChannelId-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsGetResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/Insert.hs 
@@ -1,103 +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.AdSenseHost.CustomChannels.Insert--- 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)------ Add a new custom channel to the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.insert@.-module Network.Google.Resource.AdSenseHost.CustomChannels.Insert-    (-    -- * REST Resource-      CustomChannelsInsertResource--    -- * Creating a Request-    , customChannelsInsert-    , CustomChannelsInsert--    -- * Request Lenses-    , cciPayload-    , cciAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.insert@ method which the--- 'CustomChannelsInsert' request conforms to.-type CustomChannelsInsertResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] CustomChannel :>-                   Post '[JSON] CustomChannel---- | Add a new custom channel to the host AdSense account.------ /See:/ 'customChannelsInsert' smart constructor.-data CustomChannelsInsert =-  CustomChannelsInsert'-    { _cciPayload    :: !CustomChannel-    , _cciAdClientId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cciPayload'------ * 'cciAdClientId'-customChannelsInsert-    :: CustomChannel -- ^ 'cciPayload'-    -> Text -- ^ 'cciAdClientId'-    -> CustomChannelsInsert-customChannelsInsert pCciPayload_ pCciAdClientId_ =-  CustomChannelsInsert'-    {_cciPayload = pCciPayload_, _cciAdClientId = pCciAdClientId_}----- | Multipart request metadata.-cciPayload :: Lens' CustomChannelsInsert CustomChannel-cciPayload-  = lens _cciPayload (\ s a -> s{_cciPayload = a})---- | Ad client to which the new custom channel will be added.-cciAdClientId :: Lens' CustomChannelsInsert Text-cciAdClientId-  = lens _cciAdClientId-      (\ s a -> s{_cciAdClientId = a})--instance GoogleRequest CustomChannelsInsert where-        type Rs CustomChannelsInsert = CustomChannel-        type Scopes CustomChannelsInsert =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsInsert'{..}-          = go _cciAdClientId (Just AltJSON) _cciPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsInsertResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/List.hs 
@@ -1,121 +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.AdSenseHost.CustomChannels.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 all host custom channels in this AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.list@.-module Network.Google.Resource.AdSenseHost.CustomChannels.List-    (-    -- * REST Resource-      CustomChannelsListResource--    -- * Creating a Request-    , customChannelsList-    , CustomChannelsList--    -- * Request Lenses-    , cclAdClientId-    , cclPageToken-    , cclMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.list@ method which the--- 'CustomChannelsList' request conforms to.-type CustomChannelsListResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               QueryParam "pageToken" Text :>-                 QueryParam "maxResults" (Textual Word32) :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] CustomChannels---- | List all host custom channels in this AdSense account.------ /See:/ 'customChannelsList' smart constructor.-data CustomChannelsList =-  CustomChannelsList'-    { _cclAdClientId :: !Text-    , _cclPageToken  :: !(Maybe Text)-    , _cclMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cclAdClientId'------ * 'cclPageToken'------ * 'cclMaxResults'-customChannelsList-    :: Text -- ^ 'cclAdClientId'-    -> CustomChannelsList-customChannelsList pCclAdClientId_ =-  CustomChannelsList'-    { _cclAdClientId = pCclAdClientId_-    , _cclPageToken = Nothing-    , _cclMaxResults = Nothing-    }----- | Ad client for which to list custom channels.-cclAdClientId :: Lens' CustomChannelsList Text-cclAdClientId-  = lens _cclAdClientId-      (\ s a -> s{_cclAdClientId = a})---- | A continuation token, used to page through custom channels. To retrieve--- the next page, set this parameter to the value of \"nextPageToken\" from--- the previous response.-cclPageToken :: Lens' CustomChannelsList (Maybe Text)-cclPageToken-  = lens _cclPageToken (\ s a -> s{_cclPageToken = a})---- | The maximum number of custom channels to include in the response, used--- for paging.-cclMaxResults :: Lens' CustomChannelsList (Maybe Word32)-cclMaxResults-  = lens _cclMaxResults-      (\ s a -> s{_cclMaxResults = a})-      . mapping _Coerce--instance GoogleRequest CustomChannelsList where-        type Rs CustomChannelsList = CustomChannels-        type Scopes CustomChannelsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsList'{..}-          = go _cclAdClientId _cclPageToken _cclMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsListResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/Patch.hs 
@@ -1,122 +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.AdSenseHost.CustomChannels.Patch--- 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 a custom channel in the host AdSense account. This method--- supports patch semantics.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.patch@.-module Network.Google.Resource.AdSenseHost.CustomChannels.Patch-    (-    -- * REST Resource-      CustomChannelsPatchResource--    -- * Creating a Request-    , customChannelsPatch-    , CustomChannelsPatch--    -- * Request Lenses-    , ccpCustomChannelId-    , ccpPayload-    , ccpAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.patch@ method which the--- 'CustomChannelsPatch' request conforms to.-type CustomChannelsPatchResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               QueryParam "customChannelId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] CustomChannel :>-                     Patch '[JSON] CustomChannel---- | Update a custom channel in the host AdSense account. This method--- supports patch semantics.------ /See:/ 'customChannelsPatch' smart constructor.-data CustomChannelsPatch =-  CustomChannelsPatch'-    { _ccpCustomChannelId :: !Text-    , _ccpPayload         :: !CustomChannel-    , _ccpAdClientId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccpCustomChannelId'------ * 'ccpPayload'------ * 'ccpAdClientId'-customChannelsPatch-    :: Text -- ^ 'ccpCustomChannelId'-    -> CustomChannel -- ^ 'ccpPayload'-    -> Text -- ^ 'ccpAdClientId'-    -> CustomChannelsPatch-customChannelsPatch pCcpCustomChannelId_ pCcpPayload_ pCcpAdClientId_ =-  CustomChannelsPatch'-    { _ccpCustomChannelId = pCcpCustomChannelId_-    , _ccpPayload = pCcpPayload_-    , _ccpAdClientId = pCcpAdClientId_-    }----- | Custom channel to get.-ccpCustomChannelId :: Lens' CustomChannelsPatch Text-ccpCustomChannelId-  = lens _ccpCustomChannelId-      (\ s a -> s{_ccpCustomChannelId = a})---- | Multipart request metadata.-ccpPayload :: Lens' CustomChannelsPatch CustomChannel-ccpPayload-  = lens _ccpPayload (\ s a -> s{_ccpPayload = a})---- | Ad client in which the custom channel will be updated.-ccpAdClientId :: Lens' CustomChannelsPatch Text-ccpAdClientId-  = lens _ccpAdClientId-      (\ s a -> s{_ccpAdClientId = a})--instance GoogleRequest CustomChannelsPatch where-        type Rs CustomChannelsPatch = CustomChannel-        type Scopes CustomChannelsPatch =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsPatch'{..}-          = go _ccpAdClientId (Just _ccpCustomChannelId)-              (Just AltJSON)-              _ccpPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsPatchResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/CustomChannels/Update.hs 
@@ -1,103 +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.AdSenseHost.CustomChannels.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 a custom channel in the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.customchannels.update@.-module Network.Google.Resource.AdSenseHost.CustomChannels.Update-    (-    -- * REST Resource-      CustomChannelsUpdateResource--    -- * Creating a Request-    , customChannelsUpdate-    , CustomChannelsUpdate--    -- * Request Lenses-    , ccuPayload-    , ccuAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.customchannels.update@ method which the--- 'CustomChannelsUpdate' request conforms to.-type CustomChannelsUpdateResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "customchannels" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] CustomChannel :>-                   Put '[JSON] CustomChannel---- | Update a custom channel in the host AdSense account.------ /See:/ 'customChannelsUpdate' smart constructor.-data CustomChannelsUpdate =-  CustomChannelsUpdate'-    { _ccuPayload    :: !CustomChannel-    , _ccuAdClientId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomChannelsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccuPayload'------ * 'ccuAdClientId'-customChannelsUpdate-    :: CustomChannel -- ^ 'ccuPayload'-    -> Text -- ^ 'ccuAdClientId'-    -> CustomChannelsUpdate-customChannelsUpdate pCcuPayload_ pCcuAdClientId_ =-  CustomChannelsUpdate'-    {_ccuPayload = pCcuPayload_, _ccuAdClientId = pCcuAdClientId_}----- | Multipart request metadata.-ccuPayload :: Lens' CustomChannelsUpdate CustomChannel-ccuPayload-  = lens _ccuPayload (\ s a -> s{_ccuPayload = a})---- | Ad client in which the custom channel will be updated.-ccuAdClientId :: Lens' CustomChannelsUpdate Text-ccuAdClientId-  = lens _ccuAdClientId-      (\ s a -> s{_ccuAdClientId = a})--instance GoogleRequest CustomChannelsUpdate where-        type Rs CustomChannelsUpdate = CustomChannel-        type Scopes CustomChannelsUpdate =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient CustomChannelsUpdate'{..}-          = go _ccuAdClientId (Just AltJSON) _ccuPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomChannelsUpdateResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs 
@@ -1,203 +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.AdSenseHost.Reports.Generate--- 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)------ Generate an AdSense report based on the report request sent in the query--- parameters. Returns the result as JSON; to retrieve output in CSV format--- specify \"alt=csv\" as a query parameter.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.reports.generate@.-module Network.Google.Resource.AdSenseHost.Reports.Generate-    (-    -- * REST Resource-      ReportsGenerateResource--    -- * Creating a Request-    , reportsGenerate-    , ReportsGenerate--    -- * Request Lenses-    , rgDimension-    , rgLocale-    , rgEndDate-    , rgStartDate-    , rgMetric-    , rgSort-    , rgFilter-    , rgStartIndex-    , rgMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.reports.generate@ method which the--- 'ReportsGenerate' request conforms to.-type ReportsGenerateResource =-     "adsensehost" :>-       "v4.1" :>-         "reports" :>-           QueryParam "startDate" Text :>-             QueryParam "endDate" Text :>-               QueryParams "dimension" Text :>-                 QueryParam "locale" Text :>-                   QueryParams "metric" Text :>-                     QueryParams "sort" Text :>-                       QueryParams "filter" Text :>-                         QueryParam "startIndex" (Textual Word32) :>-                           QueryParam "maxResults" (Textual Word32) :>-                             QueryParam "alt" AltJSON :> Get '[JSON] Report---- | Generate an AdSense report based on the report request sent in the query--- parameters. Returns the result as JSON; to retrieve output in CSV format--- specify \"alt=csv\" as a query parameter.------ /See:/ 'reportsGenerate' smart constructor.-data ReportsGenerate =-  ReportsGenerate'-    { _rgDimension  :: !(Maybe [Text])-    , _rgLocale     :: !(Maybe Text)-    , _rgEndDate    :: !Text-    , _rgStartDate  :: !Text-    , _rgMetric     :: !(Maybe [Text])-    , _rgSort       :: !(Maybe [Text])-    , _rgFilter     :: !(Maybe [Text])-    , _rgStartIndex :: !(Maybe (Textual Word32))-    , _rgMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReportsGenerate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rgDimension'------ * 'rgLocale'------ * 'rgEndDate'------ * 'rgStartDate'------ * 'rgMetric'------ * 'rgSort'------ * 'rgFilter'------ * 'rgStartIndex'------ * 'rgMaxResults'-reportsGenerate-    :: Text -- ^ 'rgEndDate'-    -> Text -- ^ 'rgStartDate'-    -> ReportsGenerate-reportsGenerate pRgEndDate_ pRgStartDate_ =-  ReportsGenerate'-    { _rgDimension = Nothing-    , _rgLocale = Nothing-    , _rgEndDate = pRgEndDate_-    , _rgStartDate = pRgStartDate_-    , _rgMetric = Nothing-    , _rgSort = Nothing-    , _rgFilter = Nothing-    , _rgStartIndex = Nothing-    , _rgMaxResults = Nothing-    }----- | Dimensions to base the report on.-rgDimension :: Lens' ReportsGenerate [Text]-rgDimension-  = lens _rgDimension (\ s a -> s{_rgDimension = a}) .-      _Default-      . _Coerce---- | Optional locale to use for translating report output to a local--- language. Defaults to \"en_US\" if not specified.-rgLocale :: Lens' ReportsGenerate (Maybe Text)-rgLocale = lens _rgLocale (\ s a -> s{_rgLocale = a})---- | End of the date range to report on in \"YYYY-MM-DD\" format, inclusive.-rgEndDate :: Lens' ReportsGenerate Text-rgEndDate-  = lens _rgEndDate (\ s a -> s{_rgEndDate = a})---- | Start of the date range to report on in \"YYYY-MM-DD\" format,--- inclusive.-rgStartDate :: Lens' ReportsGenerate Text-rgStartDate-  = lens _rgStartDate (\ s a -> s{_rgStartDate = a})---- | Numeric columns to include in the report.-rgMetric :: Lens' ReportsGenerate [Text]-rgMetric-  = lens _rgMetric (\ s a -> s{_rgMetric = a}) .-      _Default-      . _Coerce---- | The name of a dimension or metric to sort the resulting report on,--- optionally prefixed with \"+\" to sort ascending or \"-\" to sort--- descending. If no prefix is specified, the column is sorted ascending.-rgSort :: Lens' ReportsGenerate [Text]-rgSort-  = lens _rgSort (\ s a -> s{_rgSort = a}) . _Default .-      _Coerce---- | Filters to be run on the report.-rgFilter :: Lens' ReportsGenerate [Text]-rgFilter-  = lens _rgFilter (\ s a -> s{_rgFilter = a}) .-      _Default-      . _Coerce---- | Index of the first row of report data to return.-rgStartIndex :: Lens' ReportsGenerate (Maybe Word32)-rgStartIndex-  = lens _rgStartIndex (\ s a -> s{_rgStartIndex = a})-      . mapping _Coerce---- | The maximum number of rows of report data to return.-rgMaxResults :: Lens' ReportsGenerate (Maybe Word32)-rgMaxResults-  = lens _rgMaxResults (\ s a -> s{_rgMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ReportsGenerate where-        type Rs ReportsGenerate = Report-        type Scopes ReportsGenerate =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient ReportsGenerate'{..}-          = go (Just _rgStartDate) (Just _rgEndDate)-              (_rgDimension ^. _Default)-              _rgLocale-              (_rgMetric ^. _Default)-              (_rgSort ^. _Default)-              (_rgFilter ^. _Default)-              _rgStartIndex-              _rgMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy ReportsGenerateResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs 
@@ -1,103 +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.AdSenseHost.URLChannels.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 a URL channel from the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.delete@.-module Network.Google.Resource.AdSenseHost.URLChannels.Delete-    (-    -- * REST Resource-      URLChannelsDeleteResource--    -- * Creating a Request-    , urlChannelsDelete-    , URLChannelsDelete--    -- * Request Lenses-    , ucdURLChannelId-    , ucdAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.urlchannels.delete@ method which the--- 'URLChannelsDelete' request conforms to.-type URLChannelsDeleteResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "urlchannels" :>-               Capture "urlChannelId" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] URLChannel---- | Delete a URL channel from the host AdSense account.------ /See:/ 'urlChannelsDelete' smart constructor.-data URLChannelsDelete =-  URLChannelsDelete'-    { _ucdURLChannelId :: !Text-    , _ucdAdClientId   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'URLChannelsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucdURLChannelId'------ * 'ucdAdClientId'-urlChannelsDelete-    :: Text -- ^ 'ucdURLChannelId'-    -> Text -- ^ 'ucdAdClientId'-    -> URLChannelsDelete-urlChannelsDelete pUcdURLChannelId_ pUcdAdClientId_ =-  URLChannelsDelete'-    {_ucdURLChannelId = pUcdURLChannelId_, _ucdAdClientId = pUcdAdClientId_}----- | URL channel to delete.-ucdURLChannelId :: Lens' URLChannelsDelete Text-ucdURLChannelId-  = lens _ucdURLChannelId-      (\ s a -> s{_ucdURLChannelId = a})---- | Ad client from which to delete the URL channel.-ucdAdClientId :: Lens' URLChannelsDelete Text-ucdAdClientId-  = lens _ucdAdClientId-      (\ s a -> s{_ucdAdClientId = a})--instance GoogleRequest URLChannelsDelete where-        type Rs URLChannelsDelete = URLChannel-        type Scopes URLChannelsDelete =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient URLChannelsDelete'{..}-          = go _ucdAdClientId _ucdURLChannelId (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy URLChannelsDeleteResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs 
@@ -1,102 +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.AdSenseHost.URLChannels.Insert--- 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)------ Add a new URL channel to the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.insert@.-module Network.Google.Resource.AdSenseHost.URLChannels.Insert-    (-    -- * REST Resource-      URLChannelsInsertResource--    -- * Creating a Request-    , urlChannelsInsert-    , URLChannelsInsert--    -- * Request Lenses-    , uciPayload-    , uciAdClientId-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.urlchannels.insert@ method which the--- 'URLChannelsInsert' request conforms to.-type URLChannelsInsertResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "urlchannels" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] URLChannel :> Post '[JSON] URLChannel---- | Add a new URL channel to the host AdSense account.------ /See:/ 'urlChannelsInsert' smart constructor.-data URLChannelsInsert =-  URLChannelsInsert'-    { _uciPayload    :: !URLChannel-    , _uciAdClientId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'URLChannelsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uciPayload'------ * 'uciAdClientId'-urlChannelsInsert-    :: URLChannel -- ^ 'uciPayload'-    -> Text -- ^ 'uciAdClientId'-    -> URLChannelsInsert-urlChannelsInsert pUciPayload_ pUciAdClientId_ =-  URLChannelsInsert'-    {_uciPayload = pUciPayload_, _uciAdClientId = pUciAdClientId_}----- | Multipart request metadata.-uciPayload :: Lens' URLChannelsInsert URLChannel-uciPayload-  = lens _uciPayload (\ s a -> s{_uciPayload = a})---- | Ad client to which the new URL channel will be added.-uciAdClientId :: Lens' URLChannelsInsert Text-uciAdClientId-  = lens _uciAdClientId-      (\ s a -> s{_uciAdClientId = a})--instance GoogleRequest URLChannelsInsert where-        type Rs URLChannelsInsert = URLChannel-        type Scopes URLChannelsInsert =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient URLChannelsInsert'{..}-          = go _uciAdClientId (Just AltJSON) _uciPayload-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy URLChannelsInsertResource)-                      mempty
− gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs 
@@ -1,120 +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.AdSenseHost.URLChannels.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 all host URL channels in the host AdSense account.------ /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @adsensehost.urlchannels.list@.-module Network.Google.Resource.AdSenseHost.URLChannels.List-    (-    -- * REST Resource-      URLChannelsListResource--    -- * Creating a Request-    , urlChannelsList-    , URLChannelsList--    -- * Request Lenses-    , uclAdClientId-    , uclPageToken-    , uclMaxResults-    ) where--import           Network.Google.AdSenseHost.Types-import           Network.Google.Prelude---- | A resource alias for @adsensehost.urlchannels.list@ method which the--- 'URLChannelsList' request conforms to.-type URLChannelsListResource =-     "adsensehost" :>-       "v4.1" :>-         "adclients" :>-           Capture "adClientId" Text :>-             "urlchannels" :>-               QueryParam "pageToken" Text :>-                 QueryParam "maxResults" (Textual Word32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] URLChannels---- | List all host URL channels in the host AdSense account.------ /See:/ 'urlChannelsList' smart constructor.-data URLChannelsList =-  URLChannelsList'-    { _uclAdClientId :: !Text-    , _uclPageToken  :: !(Maybe Text)-    , _uclMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'URLChannelsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uclAdClientId'------ * 'uclPageToken'------ * 'uclMaxResults'-urlChannelsList-    :: Text -- ^ 'uclAdClientId'-    -> URLChannelsList-urlChannelsList pUclAdClientId_ =-  URLChannelsList'-    { _uclAdClientId = pUclAdClientId_-    , _uclPageToken = Nothing-    , _uclMaxResults = Nothing-    }----- | Ad client for which to list URL channels.-uclAdClientId :: Lens' URLChannelsList Text-uclAdClientId-  = lens _uclAdClientId-      (\ s a -> s{_uclAdClientId = a})---- | A continuation token, used to page through URL channels. To retrieve the--- next page, set this parameter to the value of \"nextPageToken\" from the--- previous response.-uclPageToken :: Lens' URLChannelsList (Maybe Text)-uclPageToken-  = lens _uclPageToken (\ s a -> s{_uclPageToken = a})---- | The maximum number of URL channels to include in the response, used for--- paging.-uclMaxResults :: Lens' URLChannelsList (Maybe Word32)-uclMaxResults-  = lens _uclMaxResults-      (\ s a -> s{_uclMaxResults = a})-      . mapping _Coerce--instance GoogleRequest URLChannelsList where-        type Rs URLChannelsList = URLChannels-        type Scopes URLChannelsList =-             '["https://www.googleapis.com/auth/adsensehost"]-        requestClient URLChannelsList'{..}-          = go _uclAdClientId _uclPageToken _uclMaxResults-              (Just AltJSON)-              adSenseHostService-          where go-                  = buildClient-                      (Proxy :: Proxy URLChannelsListResource)-                      mempty
gogol-adsense-host.cabal view
@@ -1,76 +1,90 @@-name:                  gogol-adsense-host-version:               0.5.0-synopsis:              Google AdSense Host 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-adsense-host+version:            1.0.0+synopsis:           Google AdSense Host 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> +copyright:          Copyright (c) 2015-2025 Brendan Hay+category:           Google+build-type:         Simple+extra-source-files:+  README.md+  src/.gitkeep+ description:-    Generates performance reports, generates ad codes, and provides-    publisher management capabilities for AdSense Hosts.-    .-    /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 @v4.1@-    of the API.-    .-    Labels:-    .-    * Limited Availability+  Generates performance reports, generates ad codes, and provides publisher management capabilities for AdSense Hosts.+  .+  /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 @v4.1@+  of the API.+  .+  Labels:+  .+  * Limited Availability  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-adsense-host +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.AdSenseHost-        , Network.Google.AdSenseHost.Types-        , Network.Google.Resource.AdSenseHost.Accounts.AdClients.Get-        , Network.Google.Resource.AdSenseHost.Accounts.AdClients.List-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Delete-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Get-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.GetAdCode-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Insert-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.List-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Patch-        , Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Update-        , Network.Google.Resource.AdSenseHost.Accounts.Get-        , Network.Google.Resource.AdSenseHost.Accounts.List-        , Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate-        , Network.Google.Resource.AdSenseHost.AdClients.Get-        , Network.Google.Resource.AdSenseHost.AdClients.List-        , Network.Google.Resource.AdSenseHost.AssociationSessions.Start-        , Network.Google.Resource.AdSenseHost.AssociationSessions.Verify-        , Network.Google.Resource.AdSenseHost.CustomChannels.Delete-        , Network.Google.Resource.AdSenseHost.CustomChannels.Get-        , Network.Google.Resource.AdSenseHost.CustomChannels.Insert-        , Network.Google.Resource.AdSenseHost.CustomChannels.List-        , Network.Google.Resource.AdSenseHost.CustomChannels.Patch-        , Network.Google.Resource.AdSenseHost.CustomChannels.Update-        , Network.Google.Resource.AdSenseHost.Reports.Generate-        , Network.Google.Resource.AdSenseHost.URLChannels.Delete-        , Network.Google.Resource.AdSenseHost.URLChannels.Insert-        , Network.Google.Resource.AdSenseHost.URLChannels.List+  exposed-modules:+    Gogol.AdSenseHost+    Gogol.AdSenseHost.Accounts.Adclients.Get+    Gogol.AdSenseHost.Accounts.Adclients.List+    Gogol.AdSenseHost.Accounts.Adunits.Delete+    Gogol.AdSenseHost.Accounts.Adunits.Get+    Gogol.AdSenseHost.Accounts.Adunits.GetAdCode+    Gogol.AdSenseHost.Accounts.Adunits.Insert+    Gogol.AdSenseHost.Accounts.Adunits.List+    Gogol.AdSenseHost.Accounts.Adunits.Patch+    Gogol.AdSenseHost.Accounts.Adunits.Update+    Gogol.AdSenseHost.Accounts.Get+    Gogol.AdSenseHost.Accounts.List+    Gogol.AdSenseHost.Accounts.Reports.Generate+    Gogol.AdSenseHost.Adclients.Get+    Gogol.AdSenseHost.Adclients.List+    Gogol.AdSenseHost.Associationsessions.Start+    Gogol.AdSenseHost.Associationsessions.Verify+    Gogol.AdSenseHost.Customchannels.Delete+    Gogol.AdSenseHost.Customchannels.Get+    Gogol.AdSenseHost.Customchannels.Insert+    Gogol.AdSenseHost.Customchannels.List+    Gogol.AdSenseHost.Customchannels.Patch+    Gogol.AdSenseHost.Customchannels.Update+    Gogol.AdSenseHost.Reports.Generate+    Gogol.AdSenseHost.Types+    Gogol.AdSenseHost.Urlchannels.Delete+    Gogol.AdSenseHost.Urlchannels.Insert+    Gogol.AdSenseHost.Urlchannels.List -    other-modules:-          Network.Google.AdSenseHost.Types.Product-        , Network.Google.AdSenseHost.Types.Sum+  other-modules:+    Gogol.AdSenseHost.Internal.Product+    Gogol.AdSenseHost.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0