packages feed

gogol-analytics 0.5.0 → 1.0.0

raw patch · 187 files changed

+18657/−26053 lines, 187 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/Analytics.hs view
@@ -0,0 +1,1030 @@+{-# 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.Analytics+-- 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)+--+-- Views and manages your Google Analytics data.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference>+module Gogol.Analytics+  ( -- * Configuration+    analyticsService,++    -- * OAuth Scopes+    Analytics'FullControl,+    Analytics'Edit,+    Analytics'Manage'Users,+    Analytics'Manage'Users'Readonly,+    Analytics'Provision,+    Analytics'Readonly,+    Analytics'User'Deletion,++    -- * Resources++    -- ** analytics.data.ga.get+    AnalyticsDataGaGetResource,+    AnalyticsDataGaGet (..),+    newAnalyticsDataGaGet,++    -- ** analytics.data.mcf.get+    AnalyticsDataMcfGetResource,+    AnalyticsDataMcfGet (..),+    newAnalyticsDataMcfGet,++    -- ** analytics.data.realtime.get+    AnalyticsDataRealtimeGetResource,+    AnalyticsDataRealtimeGet (..),+    newAnalyticsDataRealtimeGet,++    -- ** analytics.management.accountSummaries.list+    AnalyticsManagementAccountSummariesListResource,+    AnalyticsManagementAccountSummariesList (..),+    newAnalyticsManagementAccountSummariesList,++    -- ** analytics.management.accountUserLinks.delete+    AnalyticsManagementAccountUserLinksDeleteResource,+    AnalyticsManagementAccountUserLinksDelete (..),+    newAnalyticsManagementAccountUserLinksDelete,++    -- ** analytics.management.accountUserLinks.insert+    AnalyticsManagementAccountUserLinksInsertResource,+    AnalyticsManagementAccountUserLinksInsert (..),+    newAnalyticsManagementAccountUserLinksInsert,++    -- ** analytics.management.accountUserLinks.list+    AnalyticsManagementAccountUserLinksListResource,+    AnalyticsManagementAccountUserLinksList (..),+    newAnalyticsManagementAccountUserLinksList,++    -- ** analytics.management.accountUserLinks.update+    AnalyticsManagementAccountUserLinksUpdateResource,+    AnalyticsManagementAccountUserLinksUpdate (..),+    newAnalyticsManagementAccountUserLinksUpdate,++    -- ** analytics.management.accounts.list+    AnalyticsManagementAccountsListResource,+    AnalyticsManagementAccountsList (..),+    newAnalyticsManagementAccountsList,++    -- ** analytics.management.clientId.hashClientId+    AnalyticsManagementClientIdHashClientIdResource,+    AnalyticsManagementClientIdHashClientId (..),+    newAnalyticsManagementClientIdHashClientId,++    -- ** analytics.management.customDataSources.list+    AnalyticsManagementCustomDataSourcesListResource,+    AnalyticsManagementCustomDataSourcesList (..),+    newAnalyticsManagementCustomDataSourcesList,++    -- ** analytics.management.customDimensions.get+    AnalyticsManagementCustomDimensionsGetResource,+    AnalyticsManagementCustomDimensionsGet (..),+    newAnalyticsManagementCustomDimensionsGet,++    -- ** analytics.management.customDimensions.insert+    AnalyticsManagementCustomDimensionsInsertResource,+    AnalyticsManagementCustomDimensionsInsert (..),+    newAnalyticsManagementCustomDimensionsInsert,++    -- ** analytics.management.customDimensions.list+    AnalyticsManagementCustomDimensionsListResource,+    AnalyticsManagementCustomDimensionsList (..),+    newAnalyticsManagementCustomDimensionsList,++    -- ** analytics.management.customDimensions.patch+    AnalyticsManagementCustomDimensionsPatchResource,+    AnalyticsManagementCustomDimensionsPatch (..),+    newAnalyticsManagementCustomDimensionsPatch,++    -- ** analytics.management.customDimensions.update+    AnalyticsManagementCustomDimensionsUpdateResource,+    AnalyticsManagementCustomDimensionsUpdate (..),+    newAnalyticsManagementCustomDimensionsUpdate,++    -- ** analytics.management.customMetrics.get+    AnalyticsManagementCustomMetricsGetResource,+    AnalyticsManagementCustomMetricsGet (..),+    newAnalyticsManagementCustomMetricsGet,++    -- ** analytics.management.customMetrics.insert+    AnalyticsManagementCustomMetricsInsertResource,+    AnalyticsManagementCustomMetricsInsert (..),+    newAnalyticsManagementCustomMetricsInsert,++    -- ** analytics.management.customMetrics.list+    AnalyticsManagementCustomMetricsListResource,+    AnalyticsManagementCustomMetricsList (..),+    newAnalyticsManagementCustomMetricsList,++    -- ** analytics.management.customMetrics.patch+    AnalyticsManagementCustomMetricsPatchResource,+    AnalyticsManagementCustomMetricsPatch (..),+    newAnalyticsManagementCustomMetricsPatch,++    -- ** analytics.management.customMetrics.update+    AnalyticsManagementCustomMetricsUpdateResource,+    AnalyticsManagementCustomMetricsUpdate (..),+    newAnalyticsManagementCustomMetricsUpdate,++    -- ** analytics.management.experiments.delete+    AnalyticsManagementExperimentsDeleteResource,+    AnalyticsManagementExperimentsDelete (..),+    newAnalyticsManagementExperimentsDelete,++    -- ** analytics.management.experiments.get+    AnalyticsManagementExperimentsGetResource,+    AnalyticsManagementExperimentsGet (..),+    newAnalyticsManagementExperimentsGet,++    -- ** analytics.management.experiments.insert+    AnalyticsManagementExperimentsInsertResource,+    AnalyticsManagementExperimentsInsert (..),+    newAnalyticsManagementExperimentsInsert,++    -- ** analytics.management.experiments.list+    AnalyticsManagementExperimentsListResource,+    AnalyticsManagementExperimentsList (..),+    newAnalyticsManagementExperimentsList,++    -- ** analytics.management.experiments.patch+    AnalyticsManagementExperimentsPatchResource,+    AnalyticsManagementExperimentsPatch (..),+    newAnalyticsManagementExperimentsPatch,++    -- ** analytics.management.experiments.update+    AnalyticsManagementExperimentsUpdateResource,+    AnalyticsManagementExperimentsUpdate (..),+    newAnalyticsManagementExperimentsUpdate,++    -- ** analytics.management.filters.delete+    AnalyticsManagementFiltersDeleteResource,+    AnalyticsManagementFiltersDelete (..),+    newAnalyticsManagementFiltersDelete,++    -- ** analytics.management.filters.get+    AnalyticsManagementFiltersGetResource,+    AnalyticsManagementFiltersGet (..),+    newAnalyticsManagementFiltersGet,++    -- ** analytics.management.filters.insert+    AnalyticsManagementFiltersInsertResource,+    AnalyticsManagementFiltersInsert (..),+    newAnalyticsManagementFiltersInsert,++    -- ** analytics.management.filters.list+    AnalyticsManagementFiltersListResource,+    AnalyticsManagementFiltersList (..),+    newAnalyticsManagementFiltersList,++    -- ** analytics.management.filters.patch+    AnalyticsManagementFiltersPatchResource,+    AnalyticsManagementFiltersPatch (..),+    newAnalyticsManagementFiltersPatch,++    -- ** analytics.management.filters.update+    AnalyticsManagementFiltersUpdateResource,+    AnalyticsManagementFiltersUpdate (..),+    newAnalyticsManagementFiltersUpdate,++    -- ** analytics.management.goals.get+    AnalyticsManagementGoalsGetResource,+    AnalyticsManagementGoalsGet (..),+    newAnalyticsManagementGoalsGet,++    -- ** analytics.management.goals.insert+    AnalyticsManagementGoalsInsertResource,+    AnalyticsManagementGoalsInsert (..),+    newAnalyticsManagementGoalsInsert,++    -- ** analytics.management.goals.list+    AnalyticsManagementGoalsListResource,+    AnalyticsManagementGoalsList (..),+    newAnalyticsManagementGoalsList,++    -- ** analytics.management.goals.patch+    AnalyticsManagementGoalsPatchResource,+    AnalyticsManagementGoalsPatch (..),+    newAnalyticsManagementGoalsPatch,++    -- ** analytics.management.goals.update+    AnalyticsManagementGoalsUpdateResource,+    AnalyticsManagementGoalsUpdate (..),+    newAnalyticsManagementGoalsUpdate,++    -- ** analytics.management.profileFilterLinks.delete+    AnalyticsManagementProfileFilterLinksDeleteResource,+    AnalyticsManagementProfileFilterLinksDelete (..),+    newAnalyticsManagementProfileFilterLinksDelete,++    -- ** analytics.management.profileFilterLinks.get+    AnalyticsManagementProfileFilterLinksGetResource,+    AnalyticsManagementProfileFilterLinksGet (..),+    newAnalyticsManagementProfileFilterLinksGet,++    -- ** analytics.management.profileFilterLinks.insert+    AnalyticsManagementProfileFilterLinksInsertResource,+    AnalyticsManagementProfileFilterLinksInsert (..),+    newAnalyticsManagementProfileFilterLinksInsert,++    -- ** analytics.management.profileFilterLinks.list+    AnalyticsManagementProfileFilterLinksListResource,+    AnalyticsManagementProfileFilterLinksList (..),+    newAnalyticsManagementProfileFilterLinksList,++    -- ** analytics.management.profileFilterLinks.patch+    AnalyticsManagementProfileFilterLinksPatchResource,+    AnalyticsManagementProfileFilterLinksPatch (..),+    newAnalyticsManagementProfileFilterLinksPatch,++    -- ** analytics.management.profileFilterLinks.update+    AnalyticsManagementProfileFilterLinksUpdateResource,+    AnalyticsManagementProfileFilterLinksUpdate (..),+    newAnalyticsManagementProfileFilterLinksUpdate,++    -- ** analytics.management.profileUserLinks.delete+    AnalyticsManagementProfileUserLinksDeleteResource,+    AnalyticsManagementProfileUserLinksDelete (..),+    newAnalyticsManagementProfileUserLinksDelete,++    -- ** analytics.management.profileUserLinks.insert+    AnalyticsManagementProfileUserLinksInsertResource,+    AnalyticsManagementProfileUserLinksInsert (..),+    newAnalyticsManagementProfileUserLinksInsert,++    -- ** analytics.management.profileUserLinks.list+    AnalyticsManagementProfileUserLinksListResource,+    AnalyticsManagementProfileUserLinksList (..),+    newAnalyticsManagementProfileUserLinksList,++    -- ** analytics.management.profileUserLinks.update+    AnalyticsManagementProfileUserLinksUpdateResource,+    AnalyticsManagementProfileUserLinksUpdate (..),+    newAnalyticsManagementProfileUserLinksUpdate,++    -- ** analytics.management.profiles.delete+    AnalyticsManagementProfilesDeleteResource,+    AnalyticsManagementProfilesDelete (..),+    newAnalyticsManagementProfilesDelete,++    -- ** analytics.management.profiles.get+    AnalyticsManagementProfilesGetResource,+    AnalyticsManagementProfilesGet (..),+    newAnalyticsManagementProfilesGet,++    -- ** analytics.management.profiles.insert+    AnalyticsManagementProfilesInsertResource,+    AnalyticsManagementProfilesInsert (..),+    newAnalyticsManagementProfilesInsert,++    -- ** analytics.management.profiles.list+    AnalyticsManagementProfilesListResource,+    AnalyticsManagementProfilesList (..),+    newAnalyticsManagementProfilesList,++    -- ** analytics.management.profiles.patch+    AnalyticsManagementProfilesPatchResource,+    AnalyticsManagementProfilesPatch (..),+    newAnalyticsManagementProfilesPatch,++    -- ** analytics.management.profiles.update+    AnalyticsManagementProfilesUpdateResource,+    AnalyticsManagementProfilesUpdate (..),+    newAnalyticsManagementProfilesUpdate,++    -- ** analytics.management.remarketingAudience.delete+    AnalyticsManagementRemarketingAudienceDeleteResource,+    AnalyticsManagementRemarketingAudienceDelete (..),+    newAnalyticsManagementRemarketingAudienceDelete,++    -- ** analytics.management.remarketingAudience.get+    AnalyticsManagementRemarketingAudienceGetResource,+    AnalyticsManagementRemarketingAudienceGet (..),+    newAnalyticsManagementRemarketingAudienceGet,++    -- ** analytics.management.remarketingAudience.insert+    AnalyticsManagementRemarketingAudienceInsertResource,+    AnalyticsManagementRemarketingAudienceInsert (..),+    newAnalyticsManagementRemarketingAudienceInsert,++    -- ** analytics.management.remarketingAudience.list+    AnalyticsManagementRemarketingAudienceListResource,+    AnalyticsManagementRemarketingAudienceList (..),+    newAnalyticsManagementRemarketingAudienceList,++    -- ** analytics.management.remarketingAudience.patch+    AnalyticsManagementRemarketingAudiencePatchResource,+    AnalyticsManagementRemarketingAudiencePatch (..),+    newAnalyticsManagementRemarketingAudiencePatch,++    -- ** analytics.management.remarketingAudience.update+    AnalyticsManagementRemarketingAudienceUpdateResource,+    AnalyticsManagementRemarketingAudienceUpdate (..),+    newAnalyticsManagementRemarketingAudienceUpdate,++    -- ** analytics.management.segments.list+    AnalyticsManagementSegmentsListResource,+    AnalyticsManagementSegmentsList (..),+    newAnalyticsManagementSegmentsList,++    -- ** analytics.management.unsampledReports.delete+    AnalyticsManagementUnsampledReportsDeleteResource,+    AnalyticsManagementUnsampledReportsDelete (..),+    newAnalyticsManagementUnsampledReportsDelete,++    -- ** analytics.management.unsampledReports.get+    AnalyticsManagementUnsampledReportsGetResource,+    AnalyticsManagementUnsampledReportsGet (..),+    newAnalyticsManagementUnsampledReportsGet,++    -- ** analytics.management.unsampledReports.insert+    AnalyticsManagementUnsampledReportsInsertResource,+    AnalyticsManagementUnsampledReportsInsert (..),+    newAnalyticsManagementUnsampledReportsInsert,++    -- ** analytics.management.unsampledReports.list+    AnalyticsManagementUnsampledReportsListResource,+    AnalyticsManagementUnsampledReportsList (..),+    newAnalyticsManagementUnsampledReportsList,++    -- ** analytics.management.uploads.deleteUploadData+    AnalyticsManagementUploadsDeleteUploadDataResource,+    AnalyticsManagementUploadsDeleteUploadData (..),+    newAnalyticsManagementUploadsDeleteUploadData,++    -- ** analytics.management.uploads.get+    AnalyticsManagementUploadsGetResource,+    AnalyticsManagementUploadsGet (..),+    newAnalyticsManagementUploadsGet,++    -- ** analytics.management.uploads.list+    AnalyticsManagementUploadsListResource,+    AnalyticsManagementUploadsList (..),+    newAnalyticsManagementUploadsList,++    -- ** analytics.management.uploads.uploadData+    AnalyticsManagementUploadsUploadDataResource,+    AnalyticsManagementUploadsUploadData (..),+    newAnalyticsManagementUploadsUploadData,++    -- ** analytics.management.webPropertyAdWordsLinks.delete+    AnalyticsManagementWebPropertyAdWordsLinksDeleteResource,+    AnalyticsManagementWebPropertyAdWordsLinksDelete (..),+    newAnalyticsManagementWebPropertyAdWordsLinksDelete,++    -- ** analytics.management.webPropertyAdWordsLinks.get+    AnalyticsManagementWebPropertyAdWordsLinksGetResource,+    AnalyticsManagementWebPropertyAdWordsLinksGet (..),+    newAnalyticsManagementWebPropertyAdWordsLinksGet,++    -- ** analytics.management.webPropertyAdWordsLinks.insert+    AnalyticsManagementWebPropertyAdWordsLinksInsertResource,+    AnalyticsManagementWebPropertyAdWordsLinksInsert (..),+    newAnalyticsManagementWebPropertyAdWordsLinksInsert,++    -- ** analytics.management.webPropertyAdWordsLinks.list+    AnalyticsManagementWebPropertyAdWordsLinksListResource,+    AnalyticsManagementWebPropertyAdWordsLinksList (..),+    newAnalyticsManagementWebPropertyAdWordsLinksList,++    -- ** analytics.management.webPropertyAdWordsLinks.patch+    AnalyticsManagementWebPropertyAdWordsLinksPatchResource,+    AnalyticsManagementWebPropertyAdWordsLinksPatch (..),+    newAnalyticsManagementWebPropertyAdWordsLinksPatch,++    -- ** analytics.management.webPropertyAdWordsLinks.update+    AnalyticsManagementWebPropertyAdWordsLinksUpdateResource,+    AnalyticsManagementWebPropertyAdWordsLinksUpdate (..),+    newAnalyticsManagementWebPropertyAdWordsLinksUpdate,++    -- ** analytics.management.webproperties.get+    AnalyticsManagementWebpropertiesGetResource,+    AnalyticsManagementWebpropertiesGet (..),+    newAnalyticsManagementWebpropertiesGet,++    -- ** analytics.management.webproperties.insert+    AnalyticsManagementWebpropertiesInsertResource,+    AnalyticsManagementWebpropertiesInsert (..),+    newAnalyticsManagementWebpropertiesInsert,++    -- ** analytics.management.webproperties.list+    AnalyticsManagementWebpropertiesListResource,+    AnalyticsManagementWebpropertiesList (..),+    newAnalyticsManagementWebpropertiesList,++    -- ** analytics.management.webproperties.patch+    AnalyticsManagementWebpropertiesPatchResource,+    AnalyticsManagementWebpropertiesPatch (..),+    newAnalyticsManagementWebpropertiesPatch,++    -- ** analytics.management.webproperties.update+    AnalyticsManagementWebpropertiesUpdateResource,+    AnalyticsManagementWebpropertiesUpdate (..),+    newAnalyticsManagementWebpropertiesUpdate,++    -- ** analytics.management.webpropertyUserLinks.delete+    AnalyticsManagementWebpropertyUserLinksDeleteResource,+    AnalyticsManagementWebpropertyUserLinksDelete (..),+    newAnalyticsManagementWebpropertyUserLinksDelete,++    -- ** analytics.management.webpropertyUserLinks.insert+    AnalyticsManagementWebpropertyUserLinksInsertResource,+    AnalyticsManagementWebpropertyUserLinksInsert (..),+    newAnalyticsManagementWebpropertyUserLinksInsert,++    -- ** analytics.management.webpropertyUserLinks.list+    AnalyticsManagementWebpropertyUserLinksListResource,+    AnalyticsManagementWebpropertyUserLinksList (..),+    newAnalyticsManagementWebpropertyUserLinksList,++    -- ** analytics.management.webpropertyUserLinks.update+    AnalyticsManagementWebpropertyUserLinksUpdateResource,+    AnalyticsManagementWebpropertyUserLinksUpdate (..),+    newAnalyticsManagementWebpropertyUserLinksUpdate,++    -- ** analytics.metadata.columns.list+    AnalyticsMetadataColumnsListResource,+    AnalyticsMetadataColumnsList (..),+    newAnalyticsMetadataColumnsList,++    -- ** analytics.provisioning.createAccountTicket+    AnalyticsProvisioningCreateAccountTicketResource,+    AnalyticsProvisioningCreateAccountTicket (..),+    newAnalyticsProvisioningCreateAccountTicket,++    -- ** analytics.provisioning.createAccountTree+    AnalyticsProvisioningCreateAccountTreeResource,+    AnalyticsProvisioningCreateAccountTree (..),+    newAnalyticsProvisioningCreateAccountTree,++    -- ** analytics.userDeletion.userDeletionRequest.upsert+    AnalyticsUserDeletionUserDeletionRequestUpsertResource,+    AnalyticsUserDeletionUserDeletionRequestUpsert (..),+    newAnalyticsUserDeletionUserDeletionRequestUpsert,++    -- * Types++    -- ** Account+    Account (..),+    newAccount,++    -- ** Account_ChildLink+    Account_ChildLink (..),+    newAccount_ChildLink,++    -- ** Account_Permissions+    Account_Permissions (..),+    newAccount_Permissions,++    -- ** AccountRef+    AccountRef (..),+    newAccountRef,++    -- ** AccountSummaries+    AccountSummaries (..),+    newAccountSummaries,++    -- ** AccountSummary+    AccountSummary (..),+    newAccountSummary,++    -- ** AccountTicket+    AccountTicket (..),+    newAccountTicket,++    -- ** AccountTreeRequest+    AccountTreeRequest (..),+    newAccountTreeRequest,++    -- ** AccountTreeResponse+    AccountTreeResponse (..),+    newAccountTreeResponse,++    -- ** Accounts+    Accounts (..),+    newAccounts,++    -- ** AdWordsAccount+    AdWordsAccount (..),+    newAdWordsAccount,++    -- ** AnalyticsDataimportDeleteUploadDataRequest+    AnalyticsDataimportDeleteUploadDataRequest (..),+    newAnalyticsDataimportDeleteUploadDataRequest,++    -- ** Column+    Column (..),+    newColumn,++    -- ** Column_Attributes+    Column_Attributes (..),+    newColumn_Attributes,++    -- ** Columns+    Columns (..),+    newColumns,++    -- ** CustomDataSource+    CustomDataSource (..),+    newCustomDataSource,++    -- ** CustomDataSource_ChildLink+    CustomDataSource_ChildLink (..),+    newCustomDataSource_ChildLink,++    -- ** CustomDataSource_ParentLink+    CustomDataSource_ParentLink (..),+    newCustomDataSource_ParentLink,++    -- ** CustomDataSources+    CustomDataSources (..),+    newCustomDataSources,++    -- ** CustomDimension+    CustomDimension (..),+    newCustomDimension,++    -- ** CustomDimension_ParentLink+    CustomDimension_ParentLink (..),+    newCustomDimension_ParentLink,++    -- ** CustomDimensions+    CustomDimensions (..),+    newCustomDimensions,++    -- ** CustomMetric+    CustomMetric (..),+    newCustomMetric,++    -- ** CustomMetric_ParentLink+    CustomMetric_ParentLink (..),+    newCustomMetric_ParentLink,++    -- ** CustomMetrics+    CustomMetrics (..),+    newCustomMetrics,++    -- ** EntityAdWordsLink+    EntityAdWordsLink (..),+    newEntityAdWordsLink,++    -- ** EntityAdWordsLink_Entity+    EntityAdWordsLink_Entity (..),+    newEntityAdWordsLink_Entity,++    -- ** EntityAdWordsLinks+    EntityAdWordsLinks (..),+    newEntityAdWordsLinks,++    -- ** EntityUserLink+    EntityUserLink (..),+    newEntityUserLink,++    -- ** EntityUserLink_Entity+    EntityUserLink_Entity (..),+    newEntityUserLink_Entity,++    -- ** EntityUserLink_Permissions+    EntityUserLink_Permissions (..),+    newEntityUserLink_Permissions,++    -- ** EntityUserLinks+    EntityUserLinks (..),+    newEntityUserLinks,++    -- ** Experiment+    Experiment (..),+    newExperiment,++    -- ** Experiment_ParentLink+    Experiment_ParentLink (..),+    newExperiment_ParentLink,++    -- ** Experiment_VariationsItem+    Experiment_VariationsItem (..),+    newExperiment_VariationsItem,++    -- ** Experiments+    Experiments (..),+    newExperiments,++    -- ** Filter+    Filter (..),+    newFilter,++    -- ** Filter_AdvancedDetails+    Filter_AdvancedDetails (..),+    newFilter_AdvancedDetails,++    -- ** Filter_LowercaseDetails+    Filter_LowercaseDetails (..),+    newFilter_LowercaseDetails,++    -- ** Filter_ParentLink+    Filter_ParentLink (..),+    newFilter_ParentLink,++    -- ** Filter_SearchAndReplaceDetails+    Filter_SearchAndReplaceDetails (..),+    newFilter_SearchAndReplaceDetails,++    -- ** Filter_UppercaseDetails+    Filter_UppercaseDetails (..),+    newFilter_UppercaseDetails,++    -- ** FilterExpression+    FilterExpression (..),+    newFilterExpression,++    -- ** FilterRef+    FilterRef (..),+    newFilterRef,++    -- ** Filters+    Filters (..),+    newFilters,++    -- ** GaData+    GaData (..),+    newGaData,++    -- ** GaData_ColumnHeadersItem+    GaData_ColumnHeadersItem (..),+    newGaData_ColumnHeadersItem,++    -- ** GaData_DataTable+    GaData_DataTable (..),+    newGaData_DataTable,++    -- ** GaData_DataTable_ColsItem+    GaData_DataTable_ColsItem (..),+    newGaData_DataTable_ColsItem,++    -- ** GaData_DataTable_RowsItem+    GaData_DataTable_RowsItem (..),+    newGaData_DataTable_RowsItem,++    -- ** GaData_DataTable_RowsItem_CItem+    GaData_DataTable_RowsItem_CItem (..),+    newGaData_DataTable_RowsItem_CItem,++    -- ** GaData_ProfileInfo+    GaData_ProfileInfo (..),+    newGaData_ProfileInfo,++    -- ** GaData_Query+    GaData_Query (..),+    newGaData_Query,++    -- ** GaData_TotalsForAllResults+    GaData_TotalsForAllResults (..),+    newGaData_TotalsForAllResults,++    -- ** Goal+    Goal (..),+    newGoal,++    -- ** Goal_EventDetails+    Goal_EventDetails (..),+    newGoal_EventDetails,++    -- ** Goal_EventDetails_EventConditionsItem+    Goal_EventDetails_EventConditionsItem (..),+    newGoal_EventDetails_EventConditionsItem,++    -- ** Goal_ParentLink+    Goal_ParentLink (..),+    newGoal_ParentLink,++    -- ** Goal_UrlDestinationDetails+    Goal_UrlDestinationDetails (..),+    newGoal_UrlDestinationDetails,++    -- ** Goal_UrlDestinationDetails_StepsItem+    Goal_UrlDestinationDetails_StepsItem (..),+    newGoal_UrlDestinationDetails_StepsItem,++    -- ** Goal_VisitNumPagesDetails+    Goal_VisitNumPagesDetails (..),+    newGoal_VisitNumPagesDetails,++    -- ** Goal_VisitTimeOnSiteDetails+    Goal_VisitTimeOnSiteDetails (..),+    newGoal_VisitTimeOnSiteDetails,++    -- ** Goals+    Goals (..),+    newGoals,++    -- ** HashClientIdRequest+    HashClientIdRequest (..),+    newHashClientIdRequest,++    -- ** HashClientIdResponse+    HashClientIdResponse (..),+    newHashClientIdResponse,++    -- ** IncludeConditions+    IncludeConditions (..),+    newIncludeConditions,++    -- ** LinkedForeignAccount+    LinkedForeignAccount (..),+    newLinkedForeignAccount,++    -- ** McfData+    McfData (..),+    newMcfData,++    -- ** McfData_ColumnHeadersItem+    McfData_ColumnHeadersItem (..),+    newMcfData_ColumnHeadersItem,++    -- ** McfData_ProfileInfo+    McfData_ProfileInfo (..),+    newMcfData_ProfileInfo,++    -- ** McfData_Query+    McfData_Query (..),+    newMcfData_Query,++    -- ** McfData_RowsItemItem+    McfData_RowsItemItem (..),+    newMcfData_RowsItemItem,++    -- ** McfData_RowsItemItem_ConversionPathValueItem+    McfData_RowsItemItem_ConversionPathValueItem (..),+    newMcfData_RowsItemItem_ConversionPathValueItem,++    -- ** McfData_TotalsForAllResults+    McfData_TotalsForAllResults (..),+    newMcfData_TotalsForAllResults,++    -- ** Profile+    Profile (..),+    newProfile,++    -- ** Profile_ChildLink+    Profile_ChildLink (..),+    newProfile_ChildLink,++    -- ** Profile_ParentLink+    Profile_ParentLink (..),+    newProfile_ParentLink,++    -- ** Profile_Permissions+    Profile_Permissions (..),+    newProfile_Permissions,++    -- ** ProfileFilterLink+    ProfileFilterLink (..),+    newProfileFilterLink,++    -- ** ProfileFilterLinks+    ProfileFilterLinks (..),+    newProfileFilterLinks,++    -- ** ProfileRef+    ProfileRef (..),+    newProfileRef,++    -- ** ProfileSummary+    ProfileSummary (..),+    newProfileSummary,++    -- ** Profiles+    Profiles (..),+    newProfiles,++    -- ** RealtimeData+    RealtimeData (..),+    newRealtimeData,++    -- ** RealtimeData_ColumnHeadersItem+    RealtimeData_ColumnHeadersItem (..),+    newRealtimeData_ColumnHeadersItem,++    -- ** RealtimeData_ProfileInfo+    RealtimeData_ProfileInfo (..),+    newRealtimeData_ProfileInfo,++    -- ** RealtimeData_Query+    RealtimeData_Query (..),+    newRealtimeData_Query,++    -- ** RealtimeData_TotalsForAllResults+    RealtimeData_TotalsForAllResults (..),+    newRealtimeData_TotalsForAllResults,++    -- ** RemarketingAudience+    RemarketingAudience (..),+    newRemarketingAudience,++    -- ** RemarketingAudience_AudienceDefinition+    RemarketingAudience_AudienceDefinition (..),+    newRemarketingAudience_AudienceDefinition,++    -- ** RemarketingAudience_StateBasedAudienceDefinition+    RemarketingAudience_StateBasedAudienceDefinition (..),+    newRemarketingAudience_StateBasedAudienceDefinition,++    -- ** RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions (..),+    newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions,++    -- ** RemarketingAudiences+    RemarketingAudiences (..),+    newRemarketingAudiences,++    -- ** Segment+    Segment (..),+    newSegment,++    -- ** Segments+    Segments (..),+    newSegments,++    -- ** UnsampledReport+    UnsampledReport (..),+    newUnsampledReport,++    -- ** UnsampledReport_CloudStorageDownloadDetails+    UnsampledReport_CloudStorageDownloadDetails (..),+    newUnsampledReport_CloudStorageDownloadDetails,++    -- ** UnsampledReport_DriveDownloadDetails+    UnsampledReport_DriveDownloadDetails (..),+    newUnsampledReport_DriveDownloadDetails,++    -- ** UnsampledReports+    UnsampledReports (..),+    newUnsampledReports,++    -- ** Upload+    Upload (..),+    newUpload,++    -- ** Uploads+    Uploads (..),+    newUploads,++    -- ** UserDeletionRequest+    UserDeletionRequest (..),+    newUserDeletionRequest,++    -- ** UserDeletionRequest_Id+    UserDeletionRequest_Id (..),+    newUserDeletionRequest_Id,++    -- ** UserRef+    UserRef (..),+    newUserRef,++    -- ** WebPropertyRef+    WebPropertyRef (..),+    newWebPropertyRef,++    -- ** WebPropertySummary+    WebPropertySummary (..),+    newWebPropertySummary,++    -- ** Webproperties+    Webproperties (..),+    newWebproperties,++    -- ** Webproperty+    Webproperty (..),+    newWebproperty,++    -- ** Webproperty_ChildLink+    Webproperty_ChildLink (..),+    newWebproperty_ChildLink,++    -- ** Webproperty_ParentLink+    Webproperty_ParentLink (..),+    newWebproperty_ParentLink,++    -- ** Webproperty_Permissions+    Webproperty_Permissions (..),+    newWebproperty_Permissions,++    -- ** DataGaGetOutput+    DataGaGetOutput (..),++    -- ** DataGaGetSamplingLevel+    DataGaGetSamplingLevel (..),++    -- ** DataMcfGetSamplingLevel+    DataMcfGetSamplingLevel (..),+  )+where++import Gogol.Analytics.Data.Ga.Get+import Gogol.Analytics.Data.Mcf.Get+import Gogol.Analytics.Data.Realtime.Get+import Gogol.Analytics.Management.AccountSummaries.List+import Gogol.Analytics.Management.AccountUserLinks.Delete+import Gogol.Analytics.Management.AccountUserLinks.Insert+import Gogol.Analytics.Management.AccountUserLinks.List+import Gogol.Analytics.Management.AccountUserLinks.Update+import Gogol.Analytics.Management.Accounts.List+import Gogol.Analytics.Management.ClientId.HashClientId+import Gogol.Analytics.Management.CustomDataSources.List+import Gogol.Analytics.Management.CustomDimensions.Get+import Gogol.Analytics.Management.CustomDimensions.Insert+import Gogol.Analytics.Management.CustomDimensions.List+import Gogol.Analytics.Management.CustomDimensions.Patch+import Gogol.Analytics.Management.CustomDimensions.Update+import Gogol.Analytics.Management.CustomMetrics.Get+import Gogol.Analytics.Management.CustomMetrics.Insert+import Gogol.Analytics.Management.CustomMetrics.List+import Gogol.Analytics.Management.CustomMetrics.Patch+import Gogol.Analytics.Management.CustomMetrics.Update+import Gogol.Analytics.Management.Experiments.Delete+import Gogol.Analytics.Management.Experiments.Get+import Gogol.Analytics.Management.Experiments.Insert+import Gogol.Analytics.Management.Experiments.List+import Gogol.Analytics.Management.Experiments.Patch+import Gogol.Analytics.Management.Experiments.Update+import Gogol.Analytics.Management.Filters.Delete+import Gogol.Analytics.Management.Filters.Get+import Gogol.Analytics.Management.Filters.Insert+import Gogol.Analytics.Management.Filters.List+import Gogol.Analytics.Management.Filters.Patch+import Gogol.Analytics.Management.Filters.Update+import Gogol.Analytics.Management.Goals.Get+import Gogol.Analytics.Management.Goals.Insert+import Gogol.Analytics.Management.Goals.List+import Gogol.Analytics.Management.Goals.Patch+import Gogol.Analytics.Management.Goals.Update+import Gogol.Analytics.Management.ProfileFilterLinks.Delete+import Gogol.Analytics.Management.ProfileFilterLinks.Get+import Gogol.Analytics.Management.ProfileFilterLinks.Insert+import Gogol.Analytics.Management.ProfileFilterLinks.List+import Gogol.Analytics.Management.ProfileFilterLinks.Patch+import Gogol.Analytics.Management.ProfileFilterLinks.Update+import Gogol.Analytics.Management.ProfileUserLinks.Delete+import Gogol.Analytics.Management.ProfileUserLinks.Insert+import Gogol.Analytics.Management.ProfileUserLinks.List+import Gogol.Analytics.Management.ProfileUserLinks.Update+import Gogol.Analytics.Management.Profiles.Delete+import Gogol.Analytics.Management.Profiles.Get+import Gogol.Analytics.Management.Profiles.Insert+import Gogol.Analytics.Management.Profiles.List+import Gogol.Analytics.Management.Profiles.Patch+import Gogol.Analytics.Management.Profiles.Update+import Gogol.Analytics.Management.RemarketingAudience.Delete+import Gogol.Analytics.Management.RemarketingAudience.Get+import Gogol.Analytics.Management.RemarketingAudience.Insert+import Gogol.Analytics.Management.RemarketingAudience.List+import Gogol.Analytics.Management.RemarketingAudience.Patch+import Gogol.Analytics.Management.RemarketingAudience.Update+import Gogol.Analytics.Management.Segments.List+import Gogol.Analytics.Management.UnsampledReports.Delete+import Gogol.Analytics.Management.UnsampledReports.Get+import Gogol.Analytics.Management.UnsampledReports.Insert+import Gogol.Analytics.Management.UnsampledReports.List+import Gogol.Analytics.Management.Uploads.DeleteUploadData+import Gogol.Analytics.Management.Uploads.Get+import Gogol.Analytics.Management.Uploads.List+import Gogol.Analytics.Management.Uploads.UploadData+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.Delete+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.Get+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.Insert+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.List+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.Patch+import Gogol.Analytics.Management.WebPropertyAdWordsLinks.Update+import Gogol.Analytics.Management.Webproperties.Get+import Gogol.Analytics.Management.Webproperties.Insert+import Gogol.Analytics.Management.Webproperties.List+import Gogol.Analytics.Management.Webproperties.Patch+import Gogol.Analytics.Management.Webproperties.Update+import Gogol.Analytics.Management.WebpropertyUserLinks.Delete+import Gogol.Analytics.Management.WebpropertyUserLinks.Insert+import Gogol.Analytics.Management.WebpropertyUserLinks.List+import Gogol.Analytics.Management.WebpropertyUserLinks.Update+import Gogol.Analytics.Metadata.Columns.List+import Gogol.Analytics.Provisioning.CreateAccountTicket+import Gogol.Analytics.Provisioning.CreateAccountTree+import Gogol.Analytics.Types+import Gogol.Analytics.UserDeletion.UserDeletionRequest.Upsert
+ gen/Gogol/Analytics/Data/Ga/Get.hs view
@@ -0,0 +1,153 @@+{-# 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.Analytics.Data.Ga.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)+--+-- Returns Analytics data for a view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.ga.get@.+module Gogol.Analytics.Data.Ga.Get+  ( -- * Resource+    AnalyticsDataGaGetResource,++    -- ** Constructing a Request+    AnalyticsDataGaGet (..),+    newAnalyticsDataGaGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.data.ga.get@ method which the+-- 'AnalyticsDataGaGet' request conforms to.+type AnalyticsDataGaGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "data"+    Core.:> "ga"+    Core.:> Core.QueryParam "ids" Core.Text+    Core.:> Core.QueryParam "start-date" Core.Text+    Core.:> Core.QueryParam "end-date" Core.Text+    Core.:> Core.QueryParam "metrics" Core.Text+    Core.:> Core.QueryParam "dimensions" Core.Text+    Core.:> Core.QueryParam "filters" Core.Text+    Core.:> Core.QueryParam "include-empty-rows" Core.Bool+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "output" DataGaGetOutput+    Core.:> Core.QueryParam "samplingLevel" DataGaGetSamplingLevel+    Core.:> Core.QueryParam "segment" Core.Text+    Core.:> Core.QueryParam "sort" Core.Text+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] GaData++-- | Returns Analytics data for a view (profile).+--+-- /See:/ 'newAnalyticsDataGaGet' smart constructor.+data AnalyticsDataGaGet = AnalyticsDataGaGet+  { -- | A comma-separated list of Analytics dimensions. E.g., \'ga:browser,ga:city\'.+    dimensions :: (Core.Maybe Core.Text),+    -- | End date for fetching Analytics data. Request can should specify an end date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is yesterday.+    endDate :: Core.Text,+    -- | A comma-separated list of dimension or metric filters to be applied to Analytics data.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID for retrieving Analytics data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID.+    ids :: Core.Text,+    -- | The response will include empty rows if this parameter is set to true, the default is true+    includeEmptyRows :: (Core.Maybe Core.Bool),+    -- | The maximum number of entries to include in this feed.+    maxResults :: (Core.Maybe Core.Int32),+    -- | A comma-separated list of Analytics metrics. E.g., \'ga:sessions,ga:pageviews\'. At least one metric must be specified.+    metrics :: Core.Text,+    -- | The selected format for the response. Default format is JSON.+    output :: (Core.Maybe DataGaGetOutput),+    -- | The desired sampling level.+    samplingLevel :: (Core.Maybe DataGaGetSamplingLevel),+    -- | An Analytics segment to be applied to data.+    segment :: (Core.Maybe Core.Text),+    -- | A comma-separated list of dimensions or metrics that determine the sort order for Analytics data.+    sort :: (Core.Maybe Core.Text),+    -- | Start date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo.+    startDate :: Core.Text,+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsDataGaGet' with the minimum fields required to make a request.+newAnalyticsDataGaGet ::+  -- |  End date for fetching Analytics data. Request can should specify an end date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is yesterday. See 'endDate'.+  Core.Text ->+  -- |  Unique table ID for retrieving Analytics data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID. See 'ids'.+  Core.Text ->+  -- |  A comma-separated list of Analytics metrics. E.g., \'ga:sessions,ga:pageviews\'. At least one metric must be specified. See 'metrics'.+  Core.Text ->+  -- |  Start date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo. See 'startDate'.+  Core.Text ->+  AnalyticsDataGaGet+newAnalyticsDataGaGet endDate ids metrics startDate =+  AnalyticsDataGaGet+    { dimensions = Core.Nothing,+      endDate = endDate,+      filters = Core.Nothing,+      ids = ids,+      includeEmptyRows = Core.Nothing,+      maxResults = Core.Nothing,+      metrics = metrics,+      output = Core.Nothing,+      samplingLevel = Core.Nothing,+      segment = Core.Nothing,+      sort = Core.Nothing,+      startDate = startDate,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsDataGaGet where+  type Rs AnalyticsDataGaGet = GaData+  type+    Scopes AnalyticsDataGaGet =+      '[Analytics'FullControl, Analytics'Readonly]+  requestClient AnalyticsDataGaGet {..} =+    go+      (Core.Just ids)+      (Core.Just startDate)+      (Core.Just endDate)+      (Core.Just metrics)+      dimensions+      filters+      includeEmptyRows+      maxResults+      output+      samplingLevel+      segment+      sort+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsDataGaGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Data/Mcf/Get.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.Analytics.Data.Mcf.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)+--+-- Returns Analytics Multi-Channel Funnels data for a view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.mcf.get@.+module Gogol.Analytics.Data.Mcf.Get+  ( -- * Resource+    AnalyticsDataMcfGetResource,++    -- ** Constructing a Request+    AnalyticsDataMcfGet (..),+    newAnalyticsDataMcfGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.data.mcf.get@ method which the+-- 'AnalyticsDataMcfGet' request conforms to.+type AnalyticsDataMcfGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "data"+    Core.:> "mcf"+    Core.:> Core.QueryParam "ids" Core.Text+    Core.:> Core.QueryParam "start-date" Core.Text+    Core.:> Core.QueryParam "end-date" Core.Text+    Core.:> Core.QueryParam "metrics" Core.Text+    Core.:> Core.QueryParam "dimensions" Core.Text+    Core.:> Core.QueryParam "filters" Core.Text+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "samplingLevel" DataMcfGetSamplingLevel+    Core.:> Core.QueryParam "sort" Core.Text+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] McfData++-- | Returns Analytics Multi-Channel Funnels data for a view (profile).+--+-- /See:/ 'newAnalyticsDataMcfGet' smart constructor.+data AnalyticsDataMcfGet = AnalyticsDataMcfGet+  { -- | A comma-separated list of Multi-Channel Funnels dimensions. E.g., \'mcf:source,mcf:medium\'.+    dimensions :: (Core.Maybe Core.Text),+    -- | End date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo.+    endDate :: Core.Text,+    -- | A comma-separated list of dimension or metric filters to be applied to the Analytics data.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID for retrieving Analytics data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID.+    ids :: Core.Text,+    -- | The maximum number of entries to include in this feed.+    maxResults :: (Core.Maybe Core.Int32),+    -- | A comma-separated list of Multi-Channel Funnels metrics. E.g., \'mcf:totalConversions,mcf:totalConversionValue\'. At least one metric must be specified.+    metrics :: Core.Text,+    -- | The desired sampling level.+    samplingLevel :: (Core.Maybe DataMcfGetSamplingLevel),+    -- | A comma-separated list of dimensions or metrics that determine the sort order for the Analytics data.+    sort :: (Core.Maybe Core.Text),+    -- | Start date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo.+    startDate :: Core.Text,+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsDataMcfGet' with the minimum fields required to make a request.+newAnalyticsDataMcfGet ::+  -- |  End date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo. See 'endDate'.+  Core.Text ->+  -- |  Unique table ID for retrieving Analytics data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID. See 'ids'.+  Core.Text ->+  -- |  A comma-separated list of Multi-Channel Funnels metrics. E.g., \'mcf:totalConversions,mcf:totalConversionValue\'. At least one metric must be specified. See 'metrics'.+  Core.Text ->+  -- |  Start date for fetching Analytics data. Requests can specify a start date formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday, or 7daysAgo). The default value is 7daysAgo. See 'startDate'.+  Core.Text ->+  AnalyticsDataMcfGet+newAnalyticsDataMcfGet endDate ids metrics startDate =+  AnalyticsDataMcfGet+    { dimensions = Core.Nothing,+      endDate = endDate,+      filters = Core.Nothing,+      ids = ids,+      maxResults = Core.Nothing,+      metrics = metrics,+      samplingLevel = Core.Nothing,+      sort = Core.Nothing,+      startDate = startDate,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsDataMcfGet where+  type Rs AnalyticsDataMcfGet = McfData+  type+    Scopes AnalyticsDataMcfGet =+      '[Analytics'FullControl, Analytics'Readonly]+  requestClient AnalyticsDataMcfGet {..} =+    go+      (Core.Just ids)+      (Core.Just startDate)+      (Core.Just endDate)+      (Core.Just metrics)+      dimensions+      filters+      maxResults+      samplingLevel+      sort+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsDataMcfGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Data/Realtime/Get.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Data.Realtime.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)+--+-- Returns real time data for a view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.realtime.get@.+module Gogol.Analytics.Data.Realtime.Get+  ( -- * Resource+    AnalyticsDataRealtimeGetResource,++    -- ** Constructing a Request+    AnalyticsDataRealtimeGet (..),+    newAnalyticsDataRealtimeGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.data.realtime.get@ method which the+-- 'AnalyticsDataRealtimeGet' request conforms to.+type AnalyticsDataRealtimeGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "data"+    Core.:> "realtime"+    Core.:> Core.QueryParam "ids" Core.Text+    Core.:> Core.QueryParam "metrics" Core.Text+    Core.:> Core.QueryParam "dimensions" Core.Text+    Core.:> Core.QueryParam "filters" Core.Text+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "sort" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] RealtimeData++-- | Returns real time data for a view (profile).+--+-- /See:/ 'newAnalyticsDataRealtimeGet' smart constructor.+data AnalyticsDataRealtimeGet = AnalyticsDataRealtimeGet+  { -- | A comma-separated list of real time dimensions. E.g., \'rt:medium,rt:city\'.+    dimensions :: (Core.Maybe Core.Text),+    -- | A comma-separated list of dimension or metric filters to be applied to real time data.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID for retrieving real time data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID.+    ids :: Core.Text,+    -- | The maximum number of entries to include in this feed.+    maxResults :: (Core.Maybe Core.Int32),+    -- | A comma-separated list of real time metrics. E.g., \'rt:activeUsers\'. At least one metric must be specified.+    metrics :: Core.Text,+    -- | A comma-separated list of dimensions or metrics that determine the sort order for real time data.+    sort :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsDataRealtimeGet' with the minimum fields required to make a request.+newAnalyticsDataRealtimeGet ::+  -- |  Unique table ID for retrieving real time data. Table ID is of the form ga:XXXX, where XXXX is the Analytics view (profile) ID. See 'ids'.+  Core.Text ->+  -- |  A comma-separated list of real time metrics. E.g., \'rt:activeUsers\'. At least one metric must be specified. See 'metrics'.+  Core.Text ->+  AnalyticsDataRealtimeGet+newAnalyticsDataRealtimeGet ids metrics =+  AnalyticsDataRealtimeGet+    { dimensions = Core.Nothing,+      filters = Core.Nothing,+      ids = ids,+      maxResults = Core.Nothing,+      metrics = metrics,+      sort = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsDataRealtimeGet where+  type Rs AnalyticsDataRealtimeGet = RealtimeData+  type+    Scopes AnalyticsDataRealtimeGet =+      '[Analytics'FullControl, Analytics'Readonly]+  requestClient AnalyticsDataRealtimeGet {..} =+    go+      (Core.Just ids)+      (Core.Just metrics)+      dimensions+      filters+      maxResults+      sort+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsDataRealtimeGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Internal/Product.hs view
@@ -0,0 +1,6931 @@+{-# 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.Analytics.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.Analytics.Internal.Product+  ( -- * Account+    Account (..),+    newAccount,++    -- * Account_ChildLink+    Account_ChildLink (..),+    newAccount_ChildLink,++    -- * Account_Permissions+    Account_Permissions (..),+    newAccount_Permissions,++    -- * AccountRef+    AccountRef (..),+    newAccountRef,++    -- * AccountSummaries+    AccountSummaries (..),+    newAccountSummaries,++    -- * AccountSummary+    AccountSummary (..),+    newAccountSummary,++    -- * AccountTicket+    AccountTicket (..),+    newAccountTicket,++    -- * AccountTreeRequest+    AccountTreeRequest (..),+    newAccountTreeRequest,++    -- * AccountTreeResponse+    AccountTreeResponse (..),+    newAccountTreeResponse,++    -- * Accounts+    Accounts (..),+    newAccounts,++    -- * AdWordsAccount+    AdWordsAccount (..),+    newAdWordsAccount,++    -- * AnalyticsDataimportDeleteUploadDataRequest+    AnalyticsDataimportDeleteUploadDataRequest (..),+    newAnalyticsDataimportDeleteUploadDataRequest,++    -- * Column+    Column (..),+    newColumn,++    -- * Column_Attributes+    Column_Attributes (..),+    newColumn_Attributes,++    -- * Columns+    Columns (..),+    newColumns,++    -- * CustomDataSource+    CustomDataSource (..),+    newCustomDataSource,++    -- * CustomDataSource_ChildLink+    CustomDataSource_ChildLink (..),+    newCustomDataSource_ChildLink,++    -- * CustomDataSource_ParentLink+    CustomDataSource_ParentLink (..),+    newCustomDataSource_ParentLink,++    -- * CustomDataSources+    CustomDataSources (..),+    newCustomDataSources,++    -- * CustomDimension+    CustomDimension (..),+    newCustomDimension,++    -- * CustomDimension_ParentLink+    CustomDimension_ParentLink (..),+    newCustomDimension_ParentLink,++    -- * CustomDimensions+    CustomDimensions (..),+    newCustomDimensions,++    -- * CustomMetric+    CustomMetric (..),+    newCustomMetric,++    -- * CustomMetric_ParentLink+    CustomMetric_ParentLink (..),+    newCustomMetric_ParentLink,++    -- * CustomMetrics+    CustomMetrics (..),+    newCustomMetrics,++    -- * EntityAdWordsLink+    EntityAdWordsLink (..),+    newEntityAdWordsLink,++    -- * EntityAdWordsLink_Entity+    EntityAdWordsLink_Entity (..),+    newEntityAdWordsLink_Entity,++    -- * EntityAdWordsLinks+    EntityAdWordsLinks (..),+    newEntityAdWordsLinks,++    -- * EntityUserLink+    EntityUserLink (..),+    newEntityUserLink,++    -- * EntityUserLink_Entity+    EntityUserLink_Entity (..),+    newEntityUserLink_Entity,++    -- * EntityUserLink_Permissions+    EntityUserLink_Permissions (..),+    newEntityUserLink_Permissions,++    -- * EntityUserLinks+    EntityUserLinks (..),+    newEntityUserLinks,++    -- * Experiment+    Experiment (..),+    newExperiment,++    -- * Experiment_ParentLink+    Experiment_ParentLink (..),+    newExperiment_ParentLink,++    -- * Experiment_VariationsItem+    Experiment_VariationsItem (..),+    newExperiment_VariationsItem,++    -- * Experiments+    Experiments (..),+    newExperiments,++    -- * Filter+    Filter (..),+    newFilter,++    -- * Filter_AdvancedDetails+    Filter_AdvancedDetails (..),+    newFilter_AdvancedDetails,++    -- * Filter_LowercaseDetails+    Filter_LowercaseDetails (..),+    newFilter_LowercaseDetails,++    -- * Filter_ParentLink+    Filter_ParentLink (..),+    newFilter_ParentLink,++    -- * Filter_SearchAndReplaceDetails+    Filter_SearchAndReplaceDetails (..),+    newFilter_SearchAndReplaceDetails,++    -- * Filter_UppercaseDetails+    Filter_UppercaseDetails (..),+    newFilter_UppercaseDetails,++    -- * FilterExpression+    FilterExpression (..),+    newFilterExpression,++    -- * FilterRef+    FilterRef (..),+    newFilterRef,++    -- * Filters+    Filters (..),+    newFilters,++    -- * GaData+    GaData (..),+    newGaData,++    -- * GaData_ColumnHeadersItem+    GaData_ColumnHeadersItem (..),+    newGaData_ColumnHeadersItem,++    -- * GaData_DataTable+    GaData_DataTable (..),+    newGaData_DataTable,++    -- * GaData_DataTable_ColsItem+    GaData_DataTable_ColsItem (..),+    newGaData_DataTable_ColsItem,++    -- * GaData_DataTable_RowsItem+    GaData_DataTable_RowsItem (..),+    newGaData_DataTable_RowsItem,++    -- * GaData_DataTable_RowsItem_CItem+    GaData_DataTable_RowsItem_CItem (..),+    newGaData_DataTable_RowsItem_CItem,++    -- * GaData_ProfileInfo+    GaData_ProfileInfo (..),+    newGaData_ProfileInfo,++    -- * GaData_Query+    GaData_Query (..),+    newGaData_Query,++    -- * GaData_TotalsForAllResults+    GaData_TotalsForAllResults (..),+    newGaData_TotalsForAllResults,++    -- * Goal+    Goal (..),+    newGoal,++    -- * Goal_EventDetails+    Goal_EventDetails (..),+    newGoal_EventDetails,++    -- * Goal_EventDetails_EventConditionsItem+    Goal_EventDetails_EventConditionsItem (..),+    newGoal_EventDetails_EventConditionsItem,++    -- * Goal_ParentLink+    Goal_ParentLink (..),+    newGoal_ParentLink,++    -- * Goal_UrlDestinationDetails+    Goal_UrlDestinationDetails (..),+    newGoal_UrlDestinationDetails,++    -- * Goal_UrlDestinationDetails_StepsItem+    Goal_UrlDestinationDetails_StepsItem (..),+    newGoal_UrlDestinationDetails_StepsItem,++    -- * Goal_VisitNumPagesDetails+    Goal_VisitNumPagesDetails (..),+    newGoal_VisitNumPagesDetails,++    -- * Goal_VisitTimeOnSiteDetails+    Goal_VisitTimeOnSiteDetails (..),+    newGoal_VisitTimeOnSiteDetails,++    -- * Goals+    Goals (..),+    newGoals,++    -- * HashClientIdRequest+    HashClientIdRequest (..),+    newHashClientIdRequest,++    -- * HashClientIdResponse+    HashClientIdResponse (..),+    newHashClientIdResponse,++    -- * IncludeConditions+    IncludeConditions (..),+    newIncludeConditions,++    -- * LinkedForeignAccount+    LinkedForeignAccount (..),+    newLinkedForeignAccount,++    -- * McfData+    McfData (..),+    newMcfData,++    -- * McfData_ColumnHeadersItem+    McfData_ColumnHeadersItem (..),+    newMcfData_ColumnHeadersItem,++    -- * McfData_ProfileInfo+    McfData_ProfileInfo (..),+    newMcfData_ProfileInfo,++    -- * McfData_Query+    McfData_Query (..),+    newMcfData_Query,++    -- * McfData_RowsItemItem+    McfData_RowsItemItem (..),+    newMcfData_RowsItemItem,++    -- * McfData_RowsItemItem_ConversionPathValueItem+    McfData_RowsItemItem_ConversionPathValueItem (..),+    newMcfData_RowsItemItem_ConversionPathValueItem,++    -- * McfData_TotalsForAllResults+    McfData_TotalsForAllResults (..),+    newMcfData_TotalsForAllResults,++    -- * Profile+    Profile (..),+    newProfile,++    -- * Profile_ChildLink+    Profile_ChildLink (..),+    newProfile_ChildLink,++    -- * Profile_ParentLink+    Profile_ParentLink (..),+    newProfile_ParentLink,++    -- * Profile_Permissions+    Profile_Permissions (..),+    newProfile_Permissions,++    -- * ProfileFilterLink+    ProfileFilterLink (..),+    newProfileFilterLink,++    -- * ProfileFilterLinks+    ProfileFilterLinks (..),+    newProfileFilterLinks,++    -- * ProfileRef+    ProfileRef (..),+    newProfileRef,++    -- * ProfileSummary+    ProfileSummary (..),+    newProfileSummary,++    -- * Profiles+    Profiles (..),+    newProfiles,++    -- * RealtimeData+    RealtimeData (..),+    newRealtimeData,++    -- * RealtimeData_ColumnHeadersItem+    RealtimeData_ColumnHeadersItem (..),+    newRealtimeData_ColumnHeadersItem,++    -- * RealtimeData_ProfileInfo+    RealtimeData_ProfileInfo (..),+    newRealtimeData_ProfileInfo,++    -- * RealtimeData_Query+    RealtimeData_Query (..),+    newRealtimeData_Query,++    -- * RealtimeData_TotalsForAllResults+    RealtimeData_TotalsForAllResults (..),+    newRealtimeData_TotalsForAllResults,++    -- * RemarketingAudience+    RemarketingAudience (..),+    newRemarketingAudience,++    -- * RemarketingAudience_AudienceDefinition+    RemarketingAudience_AudienceDefinition (..),+    newRemarketingAudience_AudienceDefinition,++    -- * RemarketingAudience_StateBasedAudienceDefinition+    RemarketingAudience_StateBasedAudienceDefinition (..),+    newRemarketingAudience_StateBasedAudienceDefinition,++    -- * RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions (..),+    newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions,++    -- * RemarketingAudiences+    RemarketingAudiences (..),+    newRemarketingAudiences,++    -- * Segment+    Segment (..),+    newSegment,++    -- * Segments+    Segments (..),+    newSegments,++    -- * UnsampledReport+    UnsampledReport (..),+    newUnsampledReport,++    -- * UnsampledReport_CloudStorageDownloadDetails+    UnsampledReport_CloudStorageDownloadDetails (..),+    newUnsampledReport_CloudStorageDownloadDetails,++    -- * UnsampledReport_DriveDownloadDetails+    UnsampledReport_DriveDownloadDetails (..),+    newUnsampledReport_DriveDownloadDetails,++    -- * UnsampledReports+    UnsampledReports (..),+    newUnsampledReports,++    -- * Upload+    Upload (..),+    newUpload,++    -- * Uploads+    Uploads (..),+    newUploads,++    -- * UserDeletionRequest+    UserDeletionRequest (..),+    newUserDeletionRequest,++    -- * UserDeletionRequest_Id+    UserDeletionRequest_Id (..),+    newUserDeletionRequest_Id,++    -- * UserRef+    UserRef (..),+    newUserRef,++    -- * WebPropertyRef+    WebPropertyRef (..),+    newWebPropertyRef,++    -- * WebPropertySummary+    WebPropertySummary (..),+    newWebPropertySummary,++    -- * Webproperties+    Webproperties (..),+    newWebproperties,++    -- * Webproperty+    Webproperty (..),+    newWebproperty,++    -- * Webproperty_ChildLink+    Webproperty_ChildLink (..),+    newWebproperty_ChildLink,++    -- * Webproperty_ParentLink+    Webproperty_ParentLink (..),+    newWebproperty_ParentLink,++    -- * Webproperty_Permissions+    Webproperty_Permissions (..),+    newWebproperty_Permissions,+  )+where++import Gogol.Analytics.Internal.Sum+import Gogol.Prelude qualified as Core++-- | JSON template for Analytics account entry.+--+-- /See:/ 'newAccount' smart constructor.+data Account = Account+  { -- | Child link for an account entry. Points to the list of web properties for this account.+    childLink :: (Core.Maybe Account_ChildLink),+    -- | Time the account was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Account ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics account.+    kind :: Core.Text,+    -- | Account name.+    name :: (Core.Maybe Core.Text),+    -- | Permissions the user has for this account.+    permissions :: (Core.Maybe Account_Permissions),+    -- | Link for this account.+    selfLink :: (Core.Maybe Core.Text),+    -- | Indicates whether this account is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | Time the account was last modified.+    updated :: (Core.Maybe Core.DateTime)+  }+  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+    { childLink = Core.Nothing,+      created = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#account",+      name = Core.Nothing,+      permissions = Core.Nothing,+      selfLink = Core.Nothing,+      starred = Core.Nothing,+      updated = Core.Nothing+    }++instance Core.FromJSON Account where+  parseJSON =+    Core.withObject+      "Account"+      ( \o ->+          Account+            Core.<$> (o Core..:? "childLink")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#account")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "permissions")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "updated")+      )++instance Core.ToJSON Account where+  toJSON Account {..} =+    Core.object+      ( Core.catMaybes+          [ ("childLink" Core..=) Core.<$> childLink,+            ("created" Core..=) Core.<$> created,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("permissions" Core..=) Core.<$> permissions,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("starred" Core..=) Core.<$> starred,+            ("updated" Core..=) Core.<$> updated+          ]+      )++-- | Child link for an account entry. Points to the list of web properties for this account.+--+-- /See:/ 'newAccount_ChildLink' smart constructor.+data Account_ChildLink = Account_ChildLink+  { -- | Link to the list of web properties for this account.+    href :: (Core.Maybe Core.Text),+    -- | Type of the child link. Its value is \"analytics#webproperties\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Account_ChildLink' with the minimum fields required to make a request.+newAccount_ChildLink ::+  Account_ChildLink+newAccount_ChildLink =+  Account_ChildLink+    { href = Core.Nothing,+      type' = "analytics#webproperties"+    }++instance Core.FromJSON Account_ChildLink where+  parseJSON =+    Core.withObject+      "Account_ChildLink"+      ( \o ->+          Account_ChildLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#webproperties")+      )++instance Core.ToJSON Account_ChildLink where+  toJSON Account_ChildLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Permissions the user has for this account.+--+-- /See:/ 'newAccount_Permissions' smart constructor.+newtype Account_Permissions = Account_Permissions+  { -- | All the permissions that the user has for this account. These include any implied permissions (e.g., EDIT implies VIEW).+    effective :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Account_Permissions' with the minimum fields required to make a request.+newAccount_Permissions ::+  Account_Permissions+newAccount_Permissions =+  Account_Permissions {effective = Core.Nothing}++instance Core.FromJSON Account_Permissions where+  parseJSON =+    Core.withObject+      "Account_Permissions"+      (\o -> Account_Permissions Core.<$> (o Core..:? "effective"))++instance Core.ToJSON Account_Permissions where+  toJSON Account_Permissions {..} =+    Core.object+      (Core.catMaybes [("effective" Core..=) Core.<$> effective])++-- | JSON template for a linked account.+--+-- /See:/ 'newAccountRef' smart constructor.+data AccountRef = AccountRef+  { -- | Link for this account.+    href :: (Core.Maybe Core.Text),+    -- | Account ID.+    id :: (Core.Maybe Core.Text),+    -- | Analytics account reference.+    kind :: Core.Text,+    -- | Account name.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountRef' with the minimum fields required to make a request.+newAccountRef ::+  AccountRef+newAccountRef =+  AccountRef+    { href = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#accountRef",+      name = Core.Nothing+    }++instance Core.FromJSON AccountRef where+  parseJSON =+    Core.withObject+      "AccountRef"+      ( \o ->+          AccountRef+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountRef")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON AccountRef where+  toJSON AccountRef {..} =+    Core.object+      ( Core.catMaybes+          [ ("href" Core..=) Core.<$> href,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name+          ]+      )++-- | An AccountSummary collection lists a summary of accounts, properties and views (profiles) to which the user has access. Each resource in the collection corresponds to a single AccountSummary.+--+-- /See:/ 'newAccountSummaries' smart constructor.+data AccountSummaries = AccountSummaries+  { -- | A list of AccountSummaries.+    items :: (Core.Maybe [AccountSummary]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this AccountSummary collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this AccountSummary collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountSummaries' with the minimum fields required to make a request.+newAccountSummaries ::+  AccountSummaries+newAccountSummaries =+  AccountSummaries+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#accountSummaries",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON AccountSummaries where+  parseJSON =+    Core.withObject+      "AccountSummaries"+      ( \o ->+          AccountSummaries+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountSummaries")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON AccountSummaries where+  toJSON AccountSummaries {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for an Analytics AccountSummary. An AccountSummary is a lightweight tree comprised of properties\/profiles.+--+-- /See:/ 'newAccountSummary' smart constructor.+data AccountSummary = AccountSummary+  { -- | Account ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics AccountSummary.+    kind :: Core.Text,+    -- | Account name.+    name :: (Core.Maybe Core.Text),+    -- | Indicates whether this account is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | List of web properties under this account.+    webProperties :: (Core.Maybe [WebPropertySummary])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountSummary' with the minimum fields required to make a request.+newAccountSummary ::+  AccountSummary+newAccountSummary =+  AccountSummary+    { id = Core.Nothing,+      kind = "analytics#accountSummary",+      name = Core.Nothing,+      starred = Core.Nothing,+      webProperties = Core.Nothing+    }++instance Core.FromJSON AccountSummary where+  parseJSON =+    Core.withObject+      "AccountSummary"+      ( \o ->+          AccountSummary+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountSummary")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "webProperties")+      )++instance Core.ToJSON AccountSummary where+  toJSON AccountSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("starred" Core..=) Core.<$> starred,+            ("webProperties" Core..=) Core.<$> webProperties+          ]+      )++-- | JSON template for an Analytics account ticket. The account ticket consists of the ticket ID and the basic information for the account, property and profile.+--+-- /See:/ 'newAccountTicket' smart constructor.+data AccountTicket = AccountTicket+  { -- | Account for this ticket.+    account :: (Core.Maybe Account),+    -- | Account ticket ID used to access the account ticket.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for account ticket.+    kind :: Core.Text,+    -- | View (Profile) for the account.+    profile :: (Core.Maybe Profile),+    -- | Redirect URI where the user will be sent after accepting Terms of Service. Must be configured in APIs console as a callback URL.+    redirectUri :: (Core.Maybe Core.Text),+    -- | Web property for the account.+    webproperty :: (Core.Maybe Webproperty)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountTicket' with the minimum fields required to make a request.+newAccountTicket ::+  AccountTicket+newAccountTicket =+  AccountTicket+    { account = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#accountTicket",+      profile = Core.Nothing,+      redirectUri = Core.Nothing,+      webproperty = Core.Nothing+    }++instance Core.FromJSON AccountTicket where+  parseJSON =+    Core.withObject+      "AccountTicket"+      ( \o ->+          AccountTicket+            Core.<$> (o Core..:? "account")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountTicket")+            Core.<*> (o Core..:? "profile")+            Core.<*> (o Core..:? "redirectUri")+            Core.<*> (o Core..:? "webproperty")+      )++instance Core.ToJSON AccountTicket where+  toJSON AccountTicket {..} =+    Core.object+      ( Core.catMaybes+          [ ("account" Core..=) Core.<$> account,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("profile" Core..=) Core.<$> profile,+            ("redirectUri" Core..=) Core.<$> redirectUri,+            ("webproperty" Core..=) Core.<$> webproperty+          ]+      )++-- | JSON template for an Analytics account tree requests. The account tree request is used in the provisioning api to create an account, property, and view (profile). It contains the basic information required to make these fields.+--+-- /See:/ 'newAccountTreeRequest' smart constructor.+data AccountTreeRequest = AccountTreeRequest+  { accountName :: (Core.Maybe Core.Text),+    -- | Resource type for account ticket.+    kind :: Core.Text,+    profileName :: (Core.Maybe Core.Text),+    timezone :: (Core.Maybe Core.Text),+    webpropertyName :: (Core.Maybe Core.Text),+    websiteUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountTreeRequest' with the minimum fields required to make a request.+newAccountTreeRequest ::+  AccountTreeRequest+newAccountTreeRequest =+  AccountTreeRequest+    { accountName = Core.Nothing,+      kind = "analytics#accountTreeRequest",+      profileName = Core.Nothing,+      timezone = Core.Nothing,+      webpropertyName = Core.Nothing,+      websiteUrl = Core.Nothing+    }++instance Core.FromJSON AccountTreeRequest where+  parseJSON =+    Core.withObject+      "AccountTreeRequest"+      ( \o ->+          AccountTreeRequest+            Core.<$> (o Core..:? "accountName")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountTreeRequest")+            Core.<*> (o Core..:? "profileName")+            Core.<*> (o Core..:? "timezone")+            Core.<*> (o Core..:? "webpropertyName")+            Core.<*> (o Core..:? "websiteUrl")+      )++instance Core.ToJSON AccountTreeRequest where+  toJSON AccountTreeRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountName" Core..=) Core.<$> accountName,+            Core.Just ("kind" Core..= kind),+            ("profileName" Core..=) Core.<$> profileName,+            ("timezone" Core..=) Core.<$> timezone,+            ("webpropertyName" Core..=) Core.<$> webpropertyName,+            ("websiteUrl" Core..=) Core.<$> websiteUrl+          ]+      )++-- | JSON template for an Analytics account tree response. The account tree response is used in the provisioning api to return the result of creating an account, property, and view (profile).+--+-- /See:/ 'newAccountTreeResponse' smart constructor.+data AccountTreeResponse = AccountTreeResponse+  { -- | The account created.+    account :: (Core.Maybe Account),+    -- | Resource type for account ticket.+    kind :: Core.Text,+    -- | View (Profile) for the account.+    profile :: (Core.Maybe Profile),+    -- | Web property for the account.+    webproperty :: (Core.Maybe Webproperty)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccountTreeResponse' with the minimum fields required to make a request.+newAccountTreeResponse ::+  AccountTreeResponse+newAccountTreeResponse =+  AccountTreeResponse+    { account = Core.Nothing,+      kind = "analytics#accountTreeResponse",+      profile = Core.Nothing,+      webproperty = Core.Nothing+    }++instance Core.FromJSON AccountTreeResponse where+  parseJSON =+    Core.withObject+      "AccountTreeResponse"+      ( \o ->+          AccountTreeResponse+            Core.<$> (o Core..:? "account")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accountTreeResponse")+            Core.<*> (o Core..:? "profile")+            Core.<*> (o Core..:? "webproperty")+      )++instance Core.ToJSON AccountTreeResponse where+  toJSON AccountTreeResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("account" Core..=) Core.<$> account,+            Core.Just ("kind" Core..= kind),+            ("profile" Core..=) Core.<$> profile,+            ("webproperty" Core..=) Core.<$> webproperty+          ]+      )++-- | An account collection provides a list of Analytics accounts to which a user has access. The account collection is the entry point to all management information. Each resource in the collection corresponds to a single Analytics account.+--+-- /See:/ 'newAccounts' smart constructor.+data Accounts = Accounts+  { -- | A list of accounts.+    items :: (Core.Maybe [Account]),+    -- | The maximum number of entries the response can contain, regardless of the actual number of entries returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Next link for this account collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Previous link for this account collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the entries, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe 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+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#accounts",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Accounts where+  parseJSON =+    Core.withObject+      "Accounts"+      ( \o ->+          Accounts+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#accounts")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Accounts where+  toJSON Accounts {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for an Google Ads account.+--+-- /See:/ 'newAdWordsAccount' smart constructor.+data AdWordsAccount = AdWordsAccount+  { -- | True if auto-tagging is enabled on the Google Ads account. Read-only after the insert operation.+    autoTaggingEnabled :: (Core.Maybe Core.Bool),+    -- | Customer ID. This field is required when creating a Google Ads link.+    customerId :: (Core.Maybe Core.Text),+    -- | Resource type for Google Ads account.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdWordsAccount' with the minimum fields required to make a request.+newAdWordsAccount ::+  AdWordsAccount+newAdWordsAccount =+  AdWordsAccount+    { autoTaggingEnabled = Core.Nothing,+      customerId = Core.Nothing,+      kind = "analytics#adWordsAccount"+    }++instance Core.FromJSON AdWordsAccount where+  parseJSON =+    Core.withObject+      "AdWordsAccount"+      ( \o ->+          AdWordsAccount+            Core.<$> (o Core..:? "autoTaggingEnabled")+            Core.<*> (o Core..:? "customerId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#adWordsAccount")+      )++instance Core.ToJSON AdWordsAccount where+  toJSON AdWordsAccount {..} =+    Core.object+      ( Core.catMaybes+          [ ("autoTaggingEnabled" Core..=) Core.<$> autoTaggingEnabled,+            ("customerId" Core..=) Core.<$> customerId,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | Request template for the delete upload data request.+--+-- /See:/ 'newAnalyticsDataimportDeleteUploadDataRequest' smart constructor.+newtype AnalyticsDataimportDeleteUploadDataRequest = AnalyticsDataimportDeleteUploadDataRequest+  { -- | A list of upload UIDs.+    customDataImportUids :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsDataimportDeleteUploadDataRequest' with the minimum fields required to make a request.+newAnalyticsDataimportDeleteUploadDataRequest ::+  AnalyticsDataimportDeleteUploadDataRequest+newAnalyticsDataimportDeleteUploadDataRequest =+  AnalyticsDataimportDeleteUploadDataRequest+    { customDataImportUids =+        Core.Nothing+    }++instance Core.FromJSON AnalyticsDataimportDeleteUploadDataRequest where+  parseJSON =+    Core.withObject+      "AnalyticsDataimportDeleteUploadDataRequest"+      ( \o ->+          AnalyticsDataimportDeleteUploadDataRequest+            Core.<$> (o Core..:? "customDataImportUids")+      )++instance Core.ToJSON AnalyticsDataimportDeleteUploadDataRequest where+  toJSON AnalyticsDataimportDeleteUploadDataRequest {..} =+    Core.object+      ( Core.catMaybes+          [("customDataImportUids" Core..=) Core.<$> customDataImportUids]+      )++-- | JSON template for a metadata column.+--+-- /See:/ 'newColumn' smart constructor.+data Column = Column+  { -- | Map of attribute name and value for this column.+    attributes :: (Core.Maybe Column_Attributes),+    -- | Column id.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics column.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Column' with the minimum fields required to make a request.+newColumn ::+  Column+newColumn =+  Column+    { attributes = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#column"+    }++instance Core.FromJSON Column where+  parseJSON =+    Core.withObject+      "Column"+      ( \o ->+          Column+            Core.<$> (o Core..:? "attributes")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#column")+      )++instance Core.ToJSON Column where+  toJSON Column {..} =+    Core.object+      ( Core.catMaybes+          [ ("attributes" Core..=) Core.<$> attributes,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | Map of attribute name and value for this column.+--+-- /See:/ 'newColumn_Attributes' smart constructor.+newtype Column_Attributes = Column_Attributes+  { -- | The name of the attribute.+    additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Column_Attributes' with the minimum fields required to make a request.+newColumn_Attributes ::+  -- |  The name of the attribute. See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Column_Attributes+newColumn_Attributes additional =+  Column_Attributes {additional = additional}++instance Core.FromJSON Column_Attributes where+  parseJSON =+    Core.withObject+      "Column_Attributes"+      (\o -> Column_Attributes Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Column_Attributes where+  toJSON Column_Attributes {..} = Core.toJSON additional++-- | Lists columns (dimensions and metrics) for a particular report type.+--+-- /See:/ 'newColumns' smart constructor.+data Columns = Columns+  { -- | List of attributes names returned by columns.+    attributeNames :: (Core.Maybe [Core.Text]),+    -- | Etag of collection. This etag can be compared with the last response etag to check if response has changed.+    etag :: (Core.Maybe Core.Text),+    -- | List of columns for a report type.+    items :: (Core.Maybe [Column]),+    -- | Collection type.+    kind :: Core.Text,+    -- | Total number of columns returned in the response.+    totalResults :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Columns' with the minimum fields required to make a request.+newColumns ::+  Columns+newColumns =+  Columns+    { attributeNames = Core.Nothing,+      etag = Core.Nothing,+      items = Core.Nothing,+      kind = "analytics#columns",+      totalResults = Core.Nothing+    }++instance Core.FromJSON Columns where+  parseJSON =+    Core.withObject+      "Columns"+      ( \o ->+          Columns+            Core.<$> (o Core..:? "attributeNames")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#columns")+            Core.<*> (o Core..:? "totalResults")+      )++instance Core.ToJSON Columns where+  toJSON Columns {..} =+    Core.object+      ( Core.catMaybes+          [ ("attributeNames" Core..=) Core.<$> attributeNames,+            ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("totalResults" Core..=) Core.<$> totalResults+          ]+      )++-- | JSON template for an Analytics custom data source.+--+-- /See:/ 'newCustomDataSource' smart constructor.+data CustomDataSource = CustomDataSource+  { -- | Account ID to which this custom data source belongs.+    accountId :: (Core.Maybe Core.Text),+    childLink :: (Core.Maybe CustomDataSource_ChildLink),+    -- | Time this custom data source was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Description of custom data source.+    description :: (Core.Maybe Core.Text),+    -- | Custom data source ID.+    id :: (Core.Maybe Core.Text),+    importBehavior :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics custom data source.+    kind :: Core.Text,+    -- | Name of this custom data source.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for this custom data source. Points to the web property to which this custom data source belongs.+    parentLink :: (Core.Maybe CustomDataSource_ParentLink),+    -- | IDs of views (profiles) linked to the custom data source.+    profilesLinked :: (Core.Maybe [Core.Text]),+    -- | Collection of schema headers of the custom data source.+    schema :: (Core.Maybe [Core.Text]),+    -- | Link for this Analytics custom data source.+    selfLink :: (Core.Maybe Core.Text),+    -- | Type of the custom data source.+    type' :: (Core.Maybe Core.Text),+    -- | Time this custom data source was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Upload type of the custom data source.+    uploadType :: (Core.Maybe Core.Text),+    -- | Web property ID of the form UA-XXXXX-YY to which this custom data source belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDataSource' with the minimum fields required to make a request.+newCustomDataSource ::+  CustomDataSource+newCustomDataSource =+  CustomDataSource+    { accountId = Core.Nothing,+      childLink = Core.Nothing,+      created = Core.Nothing,+      description = Core.Nothing,+      id = Core.Nothing,+      importBehavior = Core.Nothing,+      kind = "analytics#customDataSource",+      name = Core.Nothing,+      parentLink = Core.Nothing,+      profilesLinked = Core.Nothing,+      schema = Core.Nothing,+      selfLink = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing,+      uploadType = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON CustomDataSource where+  parseJSON =+    Core.withObject+      "CustomDataSource"+      ( \o ->+          CustomDataSource+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "childLink")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "importBehavior")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customDataSource")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "profilesLinked")+            Core.<*> (o Core..:? "schema")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "uploadType")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON CustomDataSource where+  toJSON CustomDataSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("childLink" Core..=) Core.<$> childLink,+            ("created" Core..=) Core.<$> created,+            ("description" Core..=) Core.<$> description,+            ("id" Core..=) Core.<$> id,+            ("importBehavior" Core..=) Core.<$> importBehavior,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("profilesLinked" Core..=) Core.<$> profilesLinked,+            ("schema" Core..=) Core.<$> schema,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated,+            ("uploadType" Core..=) Core.<$> uploadType,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++--+-- /See:/ 'newCustomDataSource_ChildLink' smart constructor.+data CustomDataSource_ChildLink = CustomDataSource_ChildLink+  { -- | Link to the list of daily uploads for this custom data source. Link to the list of uploads for this custom data source.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#dailyUploads\". Value is \"analytics#uploads\".+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDataSource_ChildLink' with the minimum fields required to make a request.+newCustomDataSource_ChildLink ::+  CustomDataSource_ChildLink+newCustomDataSource_ChildLink =+  CustomDataSource_ChildLink+    { href = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON CustomDataSource_ChildLink where+  parseJSON =+    Core.withObject+      "CustomDataSource_ChildLink"+      ( \o ->+          CustomDataSource_ChildLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON CustomDataSource_ChildLink where+  toJSON CustomDataSource_ChildLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, ("type" Core..=) Core.<$> type']+      )++-- | Parent link for this custom data source. Points to the web property to which this custom data source belongs.+--+-- /See:/ 'newCustomDataSource_ParentLink' smart constructor.+data CustomDataSource_ParentLink = CustomDataSource_ParentLink+  { -- | Link to the web property to which this custom data source belongs.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#webproperty\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDataSource_ParentLink' with the minimum fields required to make a request.+newCustomDataSource_ParentLink ::+  CustomDataSource_ParentLink+newCustomDataSource_ParentLink =+  CustomDataSource_ParentLink+    { href = Core.Nothing,+      type' = "analytics#webproperty"+    }++instance Core.FromJSON CustomDataSource_ParentLink where+  parseJSON =+    Core.withObject+      "CustomDataSource_ParentLink"+      ( \o ->+          CustomDataSource_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#webproperty")+      )++instance Core.ToJSON CustomDataSource_ParentLink where+  toJSON CustomDataSource_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Lists Analytics custom data sources to which the user has access. Each resource in the collection corresponds to a single Analytics custom data source.+--+-- /See:/ 'newCustomDataSources' smart constructor.+data CustomDataSources = CustomDataSources+  { -- | Collection of custom data sources.+    items :: (Core.Maybe [CustomDataSource]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this custom data source collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this custom data source collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDataSources' with the minimum fields required to make a request.+newCustomDataSources ::+  CustomDataSources+newCustomDataSources =+  CustomDataSources+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#customDataSources",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON CustomDataSources where+  parseJSON =+    Core.withObject+      "CustomDataSources"+      ( \o ->+          CustomDataSources+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customDataSources")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON CustomDataSources where+  toJSON CustomDataSources {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for Analytics Custom Dimension.+--+-- /See:/ 'newCustomDimension' smart constructor.+data CustomDimension = CustomDimension+  { -- | Account ID.+    accountId :: (Core.Maybe Core.Text),+    -- | Boolean indicating whether the custom dimension is active.+    active :: (Core.Maybe Core.Bool),+    -- | Time the custom dimension was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Custom dimension ID.+    id :: (Core.Maybe Core.Text),+    -- | Index of the custom dimension.+    index :: (Core.Maybe Core.Int32),+    -- | Kind value for a custom dimension. Set to \"analytics#customDimension\". It is a read-only field.+    kind :: Core.Text,+    -- | Name of the custom dimension.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for the custom dimension. Points to the property to which the custom dimension belongs.+    parentLink :: (Core.Maybe CustomDimension_ParentLink),+    -- | Scope of the custom dimension: HIT, SESSION, USER or PRODUCT.+    scope :: (Core.Maybe Core.Text),+    -- | Link for the custom dimension+    selfLink :: (Core.Maybe Core.Text),+    -- | Time the custom dimension was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Property ID.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDimension' with the minimum fields required to make a request.+newCustomDimension ::+  CustomDimension+newCustomDimension =+  CustomDimension+    { accountId = Core.Nothing,+      active = Core.Nothing,+      created = Core.Nothing,+      id = Core.Nothing,+      index = Core.Nothing,+      kind = "analytics#customDimension",+      name = Core.Nothing,+      parentLink = Core.Nothing,+      scope = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON CustomDimension where+  parseJSON =+    Core.withObject+      "CustomDimension"+      ( \o ->+          CustomDimension+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "active")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "index")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customDimension")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "scope")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON CustomDimension where+  toJSON CustomDimension {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("active" Core..=) Core.<$> active,+            ("created" Core..=) Core.<$> created,+            ("id" Core..=) Core.<$> id,+            ("index" Core..=) Core.<$> index,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("scope" Core..=) Core.<$> scope,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Parent link for the custom dimension. Points to the property to which the custom dimension belongs.+--+-- /See:/ 'newCustomDimension_ParentLink' smart constructor.+data CustomDimension_ParentLink = CustomDimension_ParentLink+  { -- | Link to the property to which the custom dimension belongs.+    href :: (Core.Maybe Core.Text),+    -- | Type of the parent link. Set to \"analytics#webproperty\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDimension_ParentLink' with the minimum fields required to make a request.+newCustomDimension_ParentLink ::+  CustomDimension_ParentLink+newCustomDimension_ParentLink =+  CustomDimension_ParentLink+    { href = Core.Nothing,+      type' = "analytics#webproperty"+    }++instance Core.FromJSON CustomDimension_ParentLink where+  parseJSON =+    Core.withObject+      "CustomDimension_ParentLink"+      ( \o ->+          CustomDimension_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#webproperty")+      )++instance Core.ToJSON CustomDimension_ParentLink where+  toJSON CustomDimension_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | A custom dimension collection lists Analytics custom dimensions to which the user has access. Each resource in the collection corresponds to a single Analytics custom dimension.+--+-- /See:/ 'newCustomDimensions' smart constructor.+data CustomDimensions = CustomDimensions+  { -- | Collection of custom dimensions.+    items :: (Core.Maybe [CustomDimension]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this custom dimension collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this custom dimension collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomDimensions' with the minimum fields required to make a request.+newCustomDimensions ::+  CustomDimensions+newCustomDimensions =+  CustomDimensions+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#customDimensions",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON CustomDimensions where+  parseJSON =+    Core.withObject+      "CustomDimensions"+      ( \o ->+          CustomDimensions+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customDimensions")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON CustomDimensions where+  toJSON CustomDimensions {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for Analytics Custom Metric.+--+-- /See:/ 'newCustomMetric' smart constructor.+data CustomMetric = CustomMetric+  { -- | Account ID.+    accountId :: (Core.Maybe Core.Text),+    -- | Boolean indicating whether the custom metric is active.+    active :: (Core.Maybe Core.Bool),+    -- | Time the custom metric was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Custom metric ID.+    id :: (Core.Maybe Core.Text),+    -- | Index of the custom metric.+    index :: (Core.Maybe Core.Int32),+    -- | Kind value for a custom metric. Set to \"analytics#customMetric\". It is a read-only field.+    kind :: Core.Text,+    -- | Max value of custom metric.+    maxValue :: (Core.Maybe Core.Text),+    -- | Min value of custom metric.+    minValue :: (Core.Maybe Core.Text),+    -- | Name of the custom metric.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for the custom metric. Points to the property to which the custom metric belongs.+    parentLink :: (Core.Maybe CustomMetric_ParentLink),+    -- | Scope of the custom metric: HIT or PRODUCT.+    scope :: (Core.Maybe Core.Text),+    -- | Link for the custom metric+    selfLink :: (Core.Maybe Core.Text),+    -- | Data type of custom metric.+    type' :: (Core.Maybe Core.Text),+    -- | Time the custom metric was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Property ID.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomMetric' with the minimum fields required to make a request.+newCustomMetric ::+  CustomMetric+newCustomMetric =+  CustomMetric+    { accountId = Core.Nothing,+      active = Core.Nothing,+      created = Core.Nothing,+      id = Core.Nothing,+      index = Core.Nothing,+      kind = "analytics#customMetric",+      maxValue = Core.Nothing,+      minValue = Core.Nothing,+      name = Core.Nothing,+      parentLink = Core.Nothing,+      scope = Core.Nothing,+      selfLink = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON CustomMetric where+  parseJSON =+    Core.withObject+      "CustomMetric"+      ( \o ->+          CustomMetric+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "active")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "index")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customMetric")+            Core.<*> (o Core..:? "max_value")+            Core.<*> (o Core..:? "min_value")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "scope")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON CustomMetric where+  toJSON CustomMetric {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("active" Core..=) Core.<$> active,+            ("created" Core..=) Core.<$> created,+            ("id" Core..=) Core.<$> id,+            ("index" Core..=) Core.<$> index,+            Core.Just ("kind" Core..= kind),+            ("max_value" Core..=) Core.<$> maxValue,+            ("min_value" Core..=) Core.<$> minValue,+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("scope" Core..=) Core.<$> scope,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Parent link for the custom metric. Points to the property to which the custom metric belongs.+--+-- /See:/ 'newCustomMetric_ParentLink' smart constructor.+data CustomMetric_ParentLink = CustomMetric_ParentLink+  { -- | Link to the property to which the custom metric belongs.+    href :: (Core.Maybe Core.Text),+    -- | Type of the parent link. Set to \"analytics#webproperty\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomMetric_ParentLink' with the minimum fields required to make a request.+newCustomMetric_ParentLink ::+  CustomMetric_ParentLink+newCustomMetric_ParentLink =+  CustomMetric_ParentLink+    { href = Core.Nothing,+      type' = "analytics#webproperty"+    }++instance Core.FromJSON CustomMetric_ParentLink where+  parseJSON =+    Core.withObject+      "CustomMetric_ParentLink"+      ( \o ->+          CustomMetric_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#webproperty")+      )++instance Core.ToJSON CustomMetric_ParentLink where+  toJSON CustomMetric_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | A custom metric collection lists Analytics custom metrics to which the user has access. Each resource in the collection corresponds to a single Analytics custom metric.+--+-- /See:/ 'newCustomMetrics' smart constructor.+data CustomMetrics = CustomMetrics+  { -- | Collection of custom metrics.+    items :: (Core.Maybe [CustomMetric]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this custom metric collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this custom metric collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomMetrics' with the minimum fields required to make a request.+newCustomMetrics ::+  CustomMetrics+newCustomMetrics =+  CustomMetrics+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#customMetrics",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON CustomMetrics where+  parseJSON =+    Core.withObject+      "CustomMetrics"+      ( \o ->+          CustomMetrics+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#customMetrics")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON CustomMetrics where+  toJSON CustomMetrics {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for Analytics Entity Google Ads Link.+--+-- /See:/ 'newEntityAdWordsLink' smart constructor.+data EntityAdWordsLink = EntityAdWordsLink+  { -- | A list of Google Ads client accounts. These cannot be MCC accounts. This field is required when creating a Google Ads link. It cannot be empty.+    adWordsAccounts :: (Core.Maybe [AdWordsAccount]),+    -- | Web property being linked.+    entity :: (Core.Maybe EntityAdWordsLink_Entity),+    -- | Entity Google Ads link ID+    id :: (Core.Maybe Core.Text),+    -- | Resource type for entity Google Ads link.+    kind :: Core.Text,+    -- | Name of the link. This field is required when creating a Google Ads link.+    name :: (Core.Maybe Core.Text),+    -- | IDs of linked Views (Profiles) represented as strings.+    profileIds :: (Core.Maybe [Core.Text]),+    -- | URL link for this Google Analytics - Google Ads link.+    selfLink :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityAdWordsLink' with the minimum fields required to make a request.+newEntityAdWordsLink ::+  EntityAdWordsLink+newEntityAdWordsLink =+  EntityAdWordsLink+    { adWordsAccounts = Core.Nothing,+      entity = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#entityAdWordsLink",+      name = Core.Nothing,+      profileIds = Core.Nothing,+      selfLink = Core.Nothing+    }++instance Core.FromJSON EntityAdWordsLink where+  parseJSON =+    Core.withObject+      "EntityAdWordsLink"+      ( \o ->+          EntityAdWordsLink+            Core.<$> (o Core..:? "adWordsAccounts")+            Core.<*> (o Core..:? "entity")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#entityAdWordsLink")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "profileIds")+            Core.<*> (o Core..:? "selfLink")+      )++instance Core.ToJSON EntityAdWordsLink where+  toJSON EntityAdWordsLink {..} =+    Core.object+      ( Core.catMaybes+          [ ("adWordsAccounts" Core..=) Core.<$> adWordsAccounts,+            ("entity" Core..=) Core.<$> entity,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("profileIds" Core..=) Core.<$> profileIds,+            ("selfLink" Core..=) Core.<$> selfLink+          ]+      )++-- | Web property being linked.+--+-- /See:/ 'newEntityAdWordsLink_Entity' smart constructor.+newtype EntityAdWordsLink_Entity = EntityAdWordsLink_Entity+  { webPropertyRef :: (Core.Maybe WebPropertyRef)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityAdWordsLink_Entity' with the minimum fields required to make a request.+newEntityAdWordsLink_Entity ::+  EntityAdWordsLink_Entity+newEntityAdWordsLink_Entity =+  EntityAdWordsLink_Entity {webPropertyRef = Core.Nothing}++instance Core.FromJSON EntityAdWordsLink_Entity where+  parseJSON =+    Core.withObject+      "EntityAdWordsLink_Entity"+      ( \o ->+          EntityAdWordsLink_Entity Core.<$> (o Core..:? "webPropertyRef")+      )++instance Core.ToJSON EntityAdWordsLink_Entity where+  toJSON EntityAdWordsLink_Entity {..} =+    Core.object+      ( Core.catMaybes+          [("webPropertyRef" Core..=) Core.<$> webPropertyRef]+      )++-- | An entity Google Ads link collection provides a list of GA-Google Ads links Each resource in this collection corresponds to a single link.+--+-- /See:/ 'newEntityAdWordsLinks' smart constructor.+data EntityAdWordsLinks = EntityAdWordsLinks+  { -- | A list of entity Google Ads links.+    items :: (Core.Maybe [EntityAdWordsLink]),+    -- | The maximum number of entries the response can contain, regardless of the actual number of entries returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Next link for this Google Ads link collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Previous link for this Google Ads link collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the entries, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityAdWordsLinks' with the minimum fields required to make a request.+newEntityAdWordsLinks ::+  EntityAdWordsLinks+newEntityAdWordsLinks =+  EntityAdWordsLinks+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#entityAdWordsLinks",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing+    }++instance Core.FromJSON EntityAdWordsLinks where+  parseJSON =+    Core.withObject+      "EntityAdWordsLinks"+      ( \o ->+          EntityAdWordsLinks+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#entityAdWordsLinks")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+      )++instance Core.ToJSON EntityAdWordsLinks where+  toJSON EntityAdWordsLinks {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults+          ]+      )++-- | JSON template for an Analytics Entity-User Link. Returns permissions that a user has for an entity.+--+-- /See:/ 'newEntityUserLink' smart constructor.+data EntityUserLink = EntityUserLink+  { -- | Entity for this link. It can be an account, a web property, or a view (profile).+    entity :: (Core.Maybe EntityUserLink_Entity),+    -- | Entity user link ID+    id :: (Core.Maybe Core.Text),+    -- | Resource type for entity user link.+    kind :: Core.Text,+    -- | Permissions the user has for this entity.+    permissions :: (Core.Maybe EntityUserLink_Permissions),+    -- | Self link for this resource.+    selfLink :: (Core.Maybe Core.Text),+    -- | User reference.+    userRef :: (Core.Maybe UserRef)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityUserLink' with the minimum fields required to make a request.+newEntityUserLink ::+  EntityUserLink+newEntityUserLink =+  EntityUserLink+    { entity = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#entityUserLink",+      permissions = Core.Nothing,+      selfLink = Core.Nothing,+      userRef = Core.Nothing+    }++instance Core.FromJSON EntityUserLink where+  parseJSON =+    Core.withObject+      "EntityUserLink"+      ( \o ->+          EntityUserLink+            Core.<$> (o Core..:? "entity")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#entityUserLink")+            Core.<*> (o Core..:? "permissions")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "userRef")+      )++instance Core.ToJSON EntityUserLink where+  toJSON EntityUserLink {..} =+    Core.object+      ( Core.catMaybes+          [ ("entity" Core..=) Core.<$> entity,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("permissions" Core..=) Core.<$> permissions,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("userRef" Core..=) Core.<$> userRef+          ]+      )++-- | Entity for this link. It can be an account, a web property, or a view (profile).+--+-- /See:/ 'newEntityUserLink_Entity' smart constructor.+data EntityUserLink_Entity = EntityUserLink_Entity+  { -- | Account for this link.+    accountRef :: (Core.Maybe AccountRef),+    -- | View (Profile) for this link.+    profileRef :: (Core.Maybe ProfileRef),+    -- | Web property for this link.+    webPropertyRef :: (Core.Maybe WebPropertyRef)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityUserLink_Entity' with the minimum fields required to make a request.+newEntityUserLink_Entity ::+  EntityUserLink_Entity+newEntityUserLink_Entity =+  EntityUserLink_Entity+    { accountRef = Core.Nothing,+      profileRef = Core.Nothing,+      webPropertyRef = Core.Nothing+    }++instance Core.FromJSON EntityUserLink_Entity where+  parseJSON =+    Core.withObject+      "EntityUserLink_Entity"+      ( \o ->+          EntityUserLink_Entity+            Core.<$> (o Core..:? "accountRef")+            Core.<*> (o Core..:? "profileRef")+            Core.<*> (o Core..:? "webPropertyRef")+      )++instance Core.ToJSON EntityUserLink_Entity where+  toJSON EntityUserLink_Entity {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountRef" Core..=) Core.<$> accountRef,+            ("profileRef" Core..=) Core.<$> profileRef,+            ("webPropertyRef" Core..=) Core.<$> webPropertyRef+          ]+      )++-- | Permissions the user has for this entity.+--+-- /See:/ 'newEntityUserLink_Permissions' smart constructor.+data EntityUserLink_Permissions = EntityUserLink_Permissions+  { -- | Effective permissions represent all the permissions that a user has for this entity. These include any implied permissions (e.g., EDIT implies VIEW) or inherited permissions from the parent entity. Effective permissions are read-only.+    effective :: (Core.Maybe [Core.Text]),+    -- | Permissions that a user has been assigned at this very level. Does not include any implied or inherited permissions. Local permissions are modifiable.+    local :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityUserLink_Permissions' with the minimum fields required to make a request.+newEntityUserLink_Permissions ::+  EntityUserLink_Permissions+newEntityUserLink_Permissions =+  EntityUserLink_Permissions+    { effective = Core.Nothing,+      local = Core.Nothing+    }++instance Core.FromJSON EntityUserLink_Permissions where+  parseJSON =+    Core.withObject+      "EntityUserLink_Permissions"+      ( \o ->+          EntityUserLink_Permissions+            Core.<$> (o Core..:? "effective")+            Core.<*> (o Core..:? "local")+      )++instance Core.ToJSON EntityUserLink_Permissions where+  toJSON EntityUserLink_Permissions {..} =+    Core.object+      ( Core.catMaybes+          [ ("effective" Core..=) Core.<$> effective,+            ("local" Core..=) Core.<$> local+          ]+      )++-- | An entity user link collection provides a list of Analytics ACL links Each resource in this collection corresponds to a single link.+--+-- /See:/ 'newEntityUserLinks' smart constructor.+data EntityUserLinks = EntityUserLinks+  { -- | A list of entity user links.+    items :: (Core.Maybe [EntityUserLink]),+    -- | The maximum number of entries the response can contain, regardless of the actual number of entries returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Next link for this account collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Previous link for this account collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the entries, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EntityUserLinks' with the minimum fields required to make a request.+newEntityUserLinks ::+  EntityUserLinks+newEntityUserLinks =+  EntityUserLinks+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#entityUserLinks",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing+    }++instance Core.FromJSON EntityUserLinks where+  parseJSON =+    Core.withObject+      "EntityUserLinks"+      ( \o ->+          EntityUserLinks+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#entityUserLinks")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+      )++instance Core.ToJSON EntityUserLinks where+  toJSON EntityUserLinks {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults+          ]+      )++-- | JSON template for Analytics experiment resource.+--+-- /See:/ 'newExperiment' smart constructor.+data Experiment = Experiment+  { -- | Account ID to which this experiment belongs. This field is read-only.+    accountId :: (Core.Maybe Core.Text),+    -- | Time the experiment was created. This field is read-only.+    created :: (Core.Maybe Core.DateTime),+    -- | Notes about this experiment.+    description :: (Core.Maybe Core.Text),+    -- | If true, the end user will be able to edit the experiment via the Google Analytics user interface.+    editableInGaUi :: (Core.Maybe Core.Bool),+    -- | The ending time of the experiment (the time the status changed from RUNNING to ENDED). This field is present only if the experiment has ended. This field is read-only.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Boolean specifying whether to distribute traffic evenly across all variations. If the value is False, content experiments follows the default behavior of adjusting traffic dynamically based on variation performance. Optional -- defaults to False. This field may not be changed for an experiment whose status is ENDED.+    equalWeighting :: (Core.Maybe Core.Bool),+    -- | Experiment ID. Required for patch and update. Disallowed for create.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this experiment belongs. This field is read-only.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for an Analytics experiment. This field is read-only.+    kind :: Core.Text,+    -- | An integer number in [3, 90]. Specifies the minimum length of the experiment. Can be changed for a running experiment. This field may not be changed for an experiments whose status is ENDED.+    minimumExperimentLengthInDays :: (Core.Maybe Core.Int32),+    -- | Experiment name. This field may not be changed for an experiment whose status is ENDED. This field is required when creating an experiment.+    name :: (Core.Maybe Core.Text),+    -- | The metric that the experiment is optimizing. Valid values: \"ga:goal(n)Completions\", \"ga:adsenseAdsClicks\", \"ga:adsenseAdsViewed\", \"ga:adsenseRevenue\", \"ga:bounces\", \"ga:pageviews\", \"ga:sessionDuration\", \"ga:transactions\", \"ga:transactionRevenue\". This field is required if status is \"RUNNING\" and servingFramework is one of \"REDIRECT\" or \"API\".+    objectiveMetric :: (Core.Maybe Core.Text),+    -- | Whether the objectiveMetric should be minimized or maximized. Possible values: \"MAXIMUM\", \"MINIMUM\". Optional--defaults to \"MAXIMUM\". Cannot be specified without objectiveMetric. Cannot be modified when status is \"RUNNING\" or \"ENDED\".+    optimizationType :: (Core.Maybe Core.Text),+    -- | Parent link for an experiment. Points to the view (profile) to which this experiment belongs.+    parentLink :: (Core.Maybe Experiment_ParentLink),+    -- | View (Profile) ID to which this experiment belongs. This field is read-only.+    profileId :: (Core.Maybe Core.Text),+    -- | Why the experiment ended. Possible values: \"STOPPED/BY/USER\", \"WINNER/FOUND\", \"EXPERIMENT/EXPIRED\", \"ENDED/WITH/NO/WINNER\", \"GOAL/OBJECTIVE/CHANGED\". \"ENDED/WITH/NO/WINNER\" means that the experiment didn\'t expire but no winner was projected to be found. If the experiment status is changed via the API to ENDED this field is set to STOPPED/BY/USER. This field is read-only.+    reasonExperimentEnded :: (Core.Maybe Core.Text),+    -- | Boolean specifying whether variations URLS are rewritten to match those of the original. This field may not be changed for an experiments whose status is ENDED.+    rewriteVariationUrlsAsOriginal :: (Core.Maybe Core.Bool),+    -- | Link for this experiment. This field is read-only.+    selfLink :: (Core.Maybe Core.Text),+    -- | The framework used to serve the experiment variations and evaluate the results. One of:+    -- - REDIRECT: Google Analytics redirects traffic to different variation pages, reports the chosen variation and evaluates the results. - API: Google Analytics chooses and reports the variation to serve and evaluates the results; the caller is responsible for serving the selected variation. - EXTERNAL: The variations will be served externally and the chosen variation reported to Google Analytics. The caller is responsible for serving the selected variation and evaluating the results.+    servingFramework :: (Core.Maybe Core.Text),+    -- | The snippet of code to include on the control page(s). This field is read-only.+    snippet :: (Core.Maybe Core.Text),+    -- | The starting time of the experiment (the time the status changed from READY/TO/RUN to RUNNING). This field is present only if the experiment has started. This field is read-only.+    startTime :: (Core.Maybe Core.DateTime),+    -- | Experiment status. Possible values: \"DRAFT\", \"READY/TO/RUN\", \"RUNNING\", \"ENDED\". Experiments can be created in the \"DRAFT\", \"READY/TO/RUN\" or \"RUNNING\" state. This field is required when creating an experiment.+    status :: (Core.Maybe Core.Text),+    -- | A floating-point number in (0, 1]. Specifies the fraction of the traffic that participates in the experiment. Can be changed for a running experiment. This field may not be changed for an experiments whose status is ENDED.+    trafficCoverage :: (Core.Maybe Core.Double),+    -- | Time the experiment was last modified. This field is read-only.+    updated :: (Core.Maybe Core.DateTime),+    -- | Array of variations. The first variation in the array is the original. The number of variations may not change once an experiment is in the RUNNING state. At least two variations are required before status can be set to RUNNING.+    variations :: (Core.Maybe [Experiment_VariationsItem]),+    -- | Web property ID to which this experiment belongs. The web property ID is of the form UA-XXXXX-YY. This field is read-only.+    webPropertyId :: (Core.Maybe Core.Text),+    -- | A floating-point number in (0, 1). Specifies the necessary confidence level to choose a winner. This field may not be changed for an experiments whose status is ENDED.+    winnerConfidenceLevel :: (Core.Maybe Core.Double),+    -- | Boolean specifying whether a winner has been found for this experiment. This field is read-only.+    winnerFound :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Experiment' with the minimum fields required to make a request.+newExperiment ::+  Experiment+newExperiment =+  Experiment+    { accountId = Core.Nothing,+      created = Core.Nothing,+      description = Core.Nothing,+      editableInGaUi = Core.Nothing,+      endTime = Core.Nothing,+      equalWeighting = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#experiment",+      minimumExperimentLengthInDays = Core.Nothing,+      name = Core.Nothing,+      objectiveMetric = Core.Nothing,+      optimizationType = Core.Nothing,+      parentLink = Core.Nothing,+      profileId = Core.Nothing,+      reasonExperimentEnded = Core.Nothing,+      rewriteVariationUrlsAsOriginal = Core.Nothing,+      selfLink = Core.Nothing,+      servingFramework = Core.Nothing,+      snippet = Core.Nothing,+      startTime = Core.Nothing,+      status = Core.Nothing,+      trafficCoverage = Core.Nothing,+      updated = Core.Nothing,+      variations = Core.Nothing,+      webPropertyId = Core.Nothing,+      winnerConfidenceLevel = Core.Nothing,+      winnerFound = Core.Nothing+    }++instance Core.FromJSON Experiment where+  parseJSON =+    Core.withObject+      "Experiment"+      ( \o ->+          Experiment+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "editableInGaUi")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "equalWeighting")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#experiment")+            Core.<*> (o Core..:? "minimumExperimentLengthInDays")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "objectiveMetric")+            Core.<*> (o Core..:? "optimizationType")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "reasonExperimentEnded")+            Core.<*> (o Core..:? "rewriteVariationUrlsAsOriginal")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "servingFramework")+            Core.<*> (o Core..:? "snippet")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "trafficCoverage")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "variations")+            Core.<*> (o Core..:? "webPropertyId")+            Core.<*> (o Core..:? "winnerConfidenceLevel")+            Core.<*> (o Core..:? "winnerFound")+      )++instance Core.ToJSON Experiment where+  toJSON Experiment {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("created" Core..=) Core.<$> created,+            ("description" Core..=) Core.<$> description,+            ("editableInGaUi" Core..=) Core.<$> editableInGaUi,+            ("endTime" Core..=) Core.<$> endTime,+            ("equalWeighting" Core..=) Core.<$> equalWeighting,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("minimumExperimentLengthInDays" Core..=)+              Core.<$> minimumExperimentLengthInDays,+            ("name" Core..=) Core.<$> name,+            ("objectiveMetric" Core..=) Core.<$> objectiveMetric,+            ("optimizationType" Core..=) Core.<$> optimizationType,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("profileId" Core..=) Core.<$> profileId,+            ("reasonExperimentEnded" Core..=) Core.<$> reasonExperimentEnded,+            ("rewriteVariationUrlsAsOriginal" Core..=)+              Core.<$> rewriteVariationUrlsAsOriginal,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("servingFramework" Core..=) Core.<$> servingFramework,+            ("snippet" Core..=) Core.<$> snippet,+            ("startTime" Core..=) Core.<$> startTime,+            ("status" Core..=) Core.<$> status,+            ("trafficCoverage" Core..=) Core.<$> trafficCoverage,+            ("updated" Core..=) Core.<$> updated,+            ("variations" Core..=) Core.<$> variations,+            ("webPropertyId" Core..=) Core.<$> webPropertyId,+            ("winnerConfidenceLevel" Core..=) Core.<$> winnerConfidenceLevel,+            ("winnerFound" Core..=) Core.<$> winnerFound+          ]+      )++-- | Parent link for an experiment. Points to the view (profile) to which this experiment belongs.+--+-- /See:/ 'newExperiment_ParentLink' smart constructor.+data Experiment_ParentLink = Experiment_ParentLink+  { -- | Link to the view (profile) to which this experiment belongs. This field is read-only.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#profile\". This field is read-only.+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Experiment_ParentLink' with the minimum fields required to make a request.+newExperiment_ParentLink ::+  Experiment_ParentLink+newExperiment_ParentLink =+  Experiment_ParentLink+    { href = Core.Nothing,+      type' = "analytics#profile"+    }++instance Core.FromJSON Experiment_ParentLink where+  parseJSON =+    Core.withObject+      "Experiment_ParentLink"+      ( \o ->+          Experiment_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#profile")+      )++instance Core.ToJSON Experiment_ParentLink where+  toJSON Experiment_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++--+-- /See:/ 'newExperiment_VariationsItem' smart constructor.+data Experiment_VariationsItem = Experiment_VariationsItem+  { -- | The name of the variation. This field is required when creating an experiment. This field may not be changed for an experiment whose status is ENDED.+    name :: (Core.Maybe Core.Text),+    -- | Status of the variation. Possible values: \"ACTIVE\", \"INACTIVE\". INACTIVE variations are not served. This field may not be changed for an experiment whose status is ENDED.+    status :: (Core.Maybe Core.Text),+    -- | The URL of the variation. This field may not be changed for an experiment whose status is RUNNING or ENDED.+    url :: (Core.Maybe Core.Text),+    -- | Weight that this variation should receive. Only present if the experiment is running. This field is read-only.+    weight :: (Core.Maybe Core.Double),+    -- | True if the experiment has ended and this variation performed (statistically) significantly better than the original. This field is read-only.+    won :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Experiment_VariationsItem' with the minimum fields required to make a request.+newExperiment_VariationsItem ::+  Experiment_VariationsItem+newExperiment_VariationsItem =+  Experiment_VariationsItem+    { name = Core.Nothing,+      status = Core.Nothing,+      url = Core.Nothing,+      weight = Core.Nothing,+      won = Core.Nothing+    }++instance Core.FromJSON Experiment_VariationsItem where+  parseJSON =+    Core.withObject+      "Experiment_VariationsItem"+      ( \o ->+          Experiment_VariationsItem+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "url")+            Core.<*> (o Core..:? "weight")+            Core.<*> (o Core..:? "won")+      )++instance Core.ToJSON Experiment_VariationsItem where+  toJSON Experiment_VariationsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("name" Core..=) Core.<$> name,+            ("status" Core..=) Core.<$> status,+            ("url" Core..=) Core.<$> url,+            ("weight" Core..=) Core.<$> weight,+            ("won" Core..=) Core.<$> won+          ]+      )++-- | An experiment collection lists Analytics experiments to which the user has access. Each view (profile) can have a set of experiments. Each resource in the Experiment collection corresponds to a single Analytics experiment.+--+-- /See:/ 'newExperiments' smart constructor.+data Experiments = Experiments+  { -- | A list of experiments.+    items :: (Core.Maybe [Experiment]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this experiment collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this experiment collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of resources in the result.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Experiments' with the minimum fields required to make a request.+newExperiments ::+  Experiments+newExperiments =+  Experiments+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#experiments",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Experiments where+  parseJSON =+    Core.withObject+      "Experiments"+      ( \o ->+          Experiments+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#experiments")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Experiments where+  toJSON Experiments {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for an Analytics account filter.+--+-- /See:/ 'newFilter' smart constructor.+data Filter = Filter+  { -- | Account ID to which this filter belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Details for the filter of the type ADVANCED.+    advancedDetails :: (Core.Maybe Filter_AdvancedDetails),+    -- | Time this filter was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Details for the filter of the type EXCLUDE.+    excludeDetails :: (Core.Maybe FilterExpression),+    -- | Filter ID.+    id :: (Core.Maybe Core.Text),+    -- | Details for the filter of the type INCLUDE.+    includeDetails :: (Core.Maybe FilterExpression),+    -- | Resource type for Analytics filter.+    kind :: Core.Text,+    -- | Details for the filter of the type LOWER.+    lowercaseDetails :: (Core.Maybe Filter_LowercaseDetails),+    -- | Name of this filter.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for this filter. Points to the account to which this filter belongs.+    parentLink :: (Core.Maybe Filter_ParentLink),+    -- | Details for the filter of the type SEARCH/AND/REPLACE.+    searchAndReplaceDetails :: (Core.Maybe Filter_SearchAndReplaceDetails),+    -- | Link for this filter.+    selfLink :: (Core.Maybe Core.Text),+    -- | Type of this filter. Possible values are INCLUDE, EXCLUDE, LOWERCASE, UPPERCASE, SEARCH/AND/REPLACE and ADVANCED.+    type' :: (Core.Maybe Core.Text),+    -- | Time this filter was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Details for the filter of the type UPPER.+    uppercaseDetails :: (Core.Maybe Filter_UppercaseDetails)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter' with the minimum fields required to make a request.+newFilter ::+  Filter+newFilter =+  Filter+    { accountId = Core.Nothing,+      advancedDetails = Core.Nothing,+      created = Core.Nothing,+      excludeDetails = Core.Nothing,+      id = Core.Nothing,+      includeDetails = Core.Nothing,+      kind = "analytics#filter",+      lowercaseDetails = Core.Nothing,+      name = Core.Nothing,+      parentLink = Core.Nothing,+      searchAndReplaceDetails = Core.Nothing,+      selfLink = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing,+      uppercaseDetails = Core.Nothing+    }++instance Core.FromJSON Filter where+  parseJSON =+    Core.withObject+      "Filter"+      ( \o ->+          Filter+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "advancedDetails")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "excludeDetails")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "includeDetails")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#filter")+            Core.<*> (o Core..:? "lowercaseDetails")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "searchAndReplaceDetails")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "uppercaseDetails")+      )++instance Core.ToJSON Filter where+  toJSON Filter {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("advancedDetails" Core..=) Core.<$> advancedDetails,+            ("created" Core..=) Core.<$> created,+            ("excludeDetails" Core..=) Core.<$> excludeDetails,+            ("id" Core..=) Core.<$> id,+            ("includeDetails" Core..=) Core.<$> includeDetails,+            Core.Just ("kind" Core..= kind),+            ("lowercaseDetails" Core..=) Core.<$> lowercaseDetails,+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("searchAndReplaceDetails" Core..=)+              Core.<$> searchAndReplaceDetails,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated,+            ("uppercaseDetails" Core..=) Core.<$> uppercaseDetails+          ]+      )++-- | Details for the filter of the type ADVANCED.+--+-- /See:/ 'newFilter_AdvancedDetails' smart constructor.+data Filter_AdvancedDetails = Filter_AdvancedDetails+  { -- | Indicates if the filter expressions are case sensitive.+    caseSensitive :: (Core.Maybe Core.Bool),+    -- | Expression to extract from field A.+    extractA :: (Core.Maybe Core.Text),+    -- | Expression to extract from field B.+    extractB :: (Core.Maybe Core.Text),+    -- | Field A.+    fieldA :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    fieldAIndex :: (Core.Maybe Core.Int32),+    -- | Indicates if field A is required to match.+    fieldARequired :: (Core.Maybe Core.Bool),+    -- | Field B.+    fieldB :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    fieldBIndex :: (Core.Maybe Core.Int32),+    -- | Indicates if field B is required to match.+    fieldBRequired :: (Core.Maybe Core.Bool),+    -- | Expression used to construct the output value.+    outputConstructor :: (Core.Maybe Core.Text),+    -- | Output field.+    outputToField :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    outputToFieldIndex :: (Core.Maybe Core.Int32),+    -- | Indicates if the existing value of the output field, if any, should be overridden by the output expression.+    overrideOutputField :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter_AdvancedDetails' with the minimum fields required to make a request.+newFilter_AdvancedDetails ::+  Filter_AdvancedDetails+newFilter_AdvancedDetails =+  Filter_AdvancedDetails+    { caseSensitive = Core.Nothing,+      extractA = Core.Nothing,+      extractB = Core.Nothing,+      fieldA = Core.Nothing,+      fieldAIndex = Core.Nothing,+      fieldARequired = Core.Nothing,+      fieldB = Core.Nothing,+      fieldBIndex = Core.Nothing,+      fieldBRequired = Core.Nothing,+      outputConstructor = Core.Nothing,+      outputToField = Core.Nothing,+      outputToFieldIndex = Core.Nothing,+      overrideOutputField = Core.Nothing+    }++instance Core.FromJSON Filter_AdvancedDetails where+  parseJSON =+    Core.withObject+      "Filter_AdvancedDetails"+      ( \o ->+          Filter_AdvancedDetails+            Core.<$> (o Core..:? "caseSensitive")+            Core.<*> (o Core..:? "extractA")+            Core.<*> (o Core..:? "extractB")+            Core.<*> (o Core..:? "fieldA")+            Core.<*> (o Core..:? "fieldAIndex")+            Core.<*> (o Core..:? "fieldARequired")+            Core.<*> (o Core..:? "fieldB")+            Core.<*> (o Core..:? "fieldBIndex")+            Core.<*> (o Core..:? "fieldBRequired")+            Core.<*> (o Core..:? "outputConstructor")+            Core.<*> (o Core..:? "outputToField")+            Core.<*> (o Core..:? "outputToFieldIndex")+            Core.<*> (o Core..:? "overrideOutputField")+      )++instance Core.ToJSON Filter_AdvancedDetails where+  toJSON Filter_AdvancedDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("caseSensitive" Core..=) Core.<$> caseSensitive,+            ("extractA" Core..=) Core.<$> extractA,+            ("extractB" Core..=) Core.<$> extractB,+            ("fieldA" Core..=) Core.<$> fieldA,+            ("fieldAIndex" Core..=) Core.<$> fieldAIndex,+            ("fieldARequired" Core..=) Core.<$> fieldARequired,+            ("fieldB" Core..=) Core.<$> fieldB,+            ("fieldBIndex" Core..=) Core.<$> fieldBIndex,+            ("fieldBRequired" Core..=) Core.<$> fieldBRequired,+            ("outputConstructor" Core..=) Core.<$> outputConstructor,+            ("outputToField" Core..=) Core.<$> outputToField,+            ("outputToFieldIndex" Core..=) Core.<$> outputToFieldIndex,+            ("overrideOutputField" Core..=) Core.<$> overrideOutputField+          ]+      )++-- | Details for the filter of the type LOWER.+--+-- /See:/ 'newFilter_LowercaseDetails' smart constructor.+data Filter_LowercaseDetails = Filter_LowercaseDetails+  { -- | Field to use in the filter.+    field :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    fieldIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter_LowercaseDetails' with the minimum fields required to make a request.+newFilter_LowercaseDetails ::+  Filter_LowercaseDetails+newFilter_LowercaseDetails =+  Filter_LowercaseDetails+    { field = Core.Nothing,+      fieldIndex = Core.Nothing+    }++instance Core.FromJSON Filter_LowercaseDetails where+  parseJSON =+    Core.withObject+      "Filter_LowercaseDetails"+      ( \o ->+          Filter_LowercaseDetails+            Core.<$> (o Core..:? "field")+            Core.<*> (o Core..:? "fieldIndex")+      )++instance Core.ToJSON Filter_LowercaseDetails where+  toJSON Filter_LowercaseDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("field" Core..=) Core.<$> field,+            ("fieldIndex" Core..=) Core.<$> fieldIndex+          ]+      )++-- | Parent link for this filter. Points to the account to which this filter belongs.+--+-- /See:/ 'newFilter_ParentLink' smart constructor.+data Filter_ParentLink = Filter_ParentLink+  { -- | Link to the account to which this filter belongs.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#account\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter_ParentLink' with the minimum fields required to make a request.+newFilter_ParentLink ::+  Filter_ParentLink+newFilter_ParentLink =+  Filter_ParentLink+    { href = Core.Nothing,+      type' = "analytics#account"+    }++instance Core.FromJSON Filter_ParentLink where+  parseJSON =+    Core.withObject+      "Filter_ParentLink"+      ( \o ->+          Filter_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#account")+      )++instance Core.ToJSON Filter_ParentLink where+  toJSON Filter_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Details for the filter of the type SEARCH/AND/REPLACE.+--+-- /See:/ 'newFilter_SearchAndReplaceDetails' smart constructor.+data Filter_SearchAndReplaceDetails = Filter_SearchAndReplaceDetails+  { -- | Determines if the filter is case sensitive.+    caseSensitive :: (Core.Maybe Core.Bool),+    -- | Field to use in the filter.+    field :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    fieldIndex :: (Core.Maybe Core.Int32),+    -- | Term to replace the search term with.+    replaceString :: (Core.Maybe Core.Text),+    -- | Term to search.+    searchString :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter_SearchAndReplaceDetails' with the minimum fields required to make a request.+newFilter_SearchAndReplaceDetails ::+  Filter_SearchAndReplaceDetails+newFilter_SearchAndReplaceDetails =+  Filter_SearchAndReplaceDetails+    { caseSensitive = Core.Nothing,+      field = Core.Nothing,+      fieldIndex = Core.Nothing,+      replaceString = Core.Nothing,+      searchString = Core.Nothing+    }++instance Core.FromJSON Filter_SearchAndReplaceDetails where+  parseJSON =+    Core.withObject+      "Filter_SearchAndReplaceDetails"+      ( \o ->+          Filter_SearchAndReplaceDetails+            Core.<$> (o Core..:? "caseSensitive")+            Core.<*> (o Core..:? "field")+            Core.<*> (o Core..:? "fieldIndex")+            Core.<*> (o Core..:? "replaceString")+            Core.<*> (o Core..:? "searchString")+      )++instance Core.ToJSON Filter_SearchAndReplaceDetails where+  toJSON Filter_SearchAndReplaceDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("caseSensitive" Core..=) Core.<$> caseSensitive,+            ("field" Core..=) Core.<$> field,+            ("fieldIndex" Core..=) Core.<$> fieldIndex,+            ("replaceString" Core..=) Core.<$> replaceString,+            ("searchString" Core..=) Core.<$> searchString+          ]+      )++-- | Details for the filter of the type UPPER.+--+-- /See:/ 'newFilter_UppercaseDetails' smart constructor.+data Filter_UppercaseDetails = Filter_UppercaseDetails+  { -- | Field to use in the filter.+    field :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Required if field is a CUSTOM_DIMENSION.+    fieldIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter_UppercaseDetails' with the minimum fields required to make a request.+newFilter_UppercaseDetails ::+  Filter_UppercaseDetails+newFilter_UppercaseDetails =+  Filter_UppercaseDetails+    { field = Core.Nothing,+      fieldIndex = Core.Nothing+    }++instance Core.FromJSON Filter_UppercaseDetails where+  parseJSON =+    Core.withObject+      "Filter_UppercaseDetails"+      ( \o ->+          Filter_UppercaseDetails+            Core.<$> (o Core..:? "field")+            Core.<*> (o Core..:? "fieldIndex")+      )++instance Core.ToJSON Filter_UppercaseDetails where+  toJSON Filter_UppercaseDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("field" Core..=) Core.<$> field,+            ("fieldIndex" Core..=) Core.<$> fieldIndex+          ]+      )++-- | JSON template for an Analytics filter expression.+--+-- /See:/ 'newFilterExpression' smart constructor.+data FilterExpression = FilterExpression+  { -- | Determines if the filter is case sensitive.+    caseSensitive :: (Core.Maybe Core.Bool),+    -- | Filter expression value+    expressionValue :: (Core.Maybe Core.Text),+    -- | Field to filter. Possible values:+    -- - Content and Traffic+    -- - PAGE/REQUEST/URI, - PAGE/HOSTNAME, - PAGE/TITLE, - REFERRAL, - COST/DATA/URI (Campaign target URL), - HIT/TYPE, - INTERNAL/SEARCH/TERM, - INTERNAL/SEARCH/TYPE, - SOURCE/PROPERTY/TRACKING/ID,+    -- - Campaign or AdGroup+    -- - CAMPAIGN/SOURCE, - CAMPAIGN/MEDIUM, - CAMPAIGN/NAME, - CAMPAIGN/AD/GROUP, - CAMPAIGN/TERM, - CAMPAIGN/CONTENT, - CAMPAIGN/CODE, - CAMPAIGN/REFERRAL/PATH,+    -- - E-Commerce+    -- - TRANSACTION/COUNTRY, - TRANSACTION/REGION, - TRANSACTION/CITY, - TRANSACTION/AFFILIATION (Store or order location), - ITEM/NAME, - ITEM/CODE, - ITEM/VARIATION, - TRANSACTION/ID, - TRANSACTION/CURRENCY/CODE, - PRODUCT/ACTION/TYPE,+    -- - Audience\/Users+    -- - BROWSER, - BROWSER/VERSION, - BROWSER/SIZE, - PLATFORM, - PLATFORM/VERSION, - LANGUAGE, - SCREEN/RESOLUTION, - SCREEN/COLORS, - JAVA/ENABLED (Boolean Field), - FLASH/VERSION, - GEO/SPEED (Connection speed), - VISITOR/TYPE, - GEO/ORGANIZATION (ISP organization), - GEO/DOMAIN, - GEO/IP/ADDRESS, - GEO/IP/VERSION,+    -- - Location+    -- - GEO/COUNTRY, - GEO/REGION, - GEO/CITY,+    -- - Event+    -- - EVENT/CATEGORY, - EVENT/ACTION, - EVENT/LABEL,+    -- - Other+    -- - CUSTOM/FIELD/1, - CUSTOM/FIELD/2, - USER/DEFINED/VALUE,+    -- - Application+    -- - APP/ID, - APP/INSTALLER/ID, - APP/NAME, - APP/VERSION, - SCREEN, - IS/APP (Boolean Field), - IS/FATAL/EXCEPTION (Boolean Field), - EXCEPTION/DESCRIPTION,+    -- - Mobile device+    -- - IS/MOBILE (Boolean Field, Deprecated. Use DEVICE/CATEGORY=mobile), - IS/TABLET (Boolean Field, Deprecated. Use DEVICE/CATEGORY=tablet), - DEVICE/CATEGORY, - MOBILE/HAS/QWERTY/KEYBOARD (Boolean Field), - MOBILE/HAS/NFC/SUPPORT (Boolean Field), - MOBILE/HAS/CELLULAR/RADIO (Boolean Field), - MOBILE/HAS/WIFI/SUPPORT (Boolean Field), - MOBILE/BRAND/NAME, - MOBILE/MODEL/NAME, - MOBILE/MARKETING/NAME, - MOBILE/POINTING/METHOD,+    -- - Social+    -- - SOCIAL/NETWORK, - SOCIAL/ACTION, - SOCIAL/ACTION/TARGET,+    -- - Custom dimension+    -- - CUSTOM/DIMENSION (See accompanying field index),+    field :: (Core.Maybe Core.Text),+    -- | The Index of the custom dimension. Set only if the field is a is CUSTOM_DIMENSION.+    fieldIndex :: (Core.Maybe Core.Int32),+    -- | Kind value for filter expression+    kind :: Core.Text,+    -- | Match type for this filter. Possible values are BEGINS/WITH, EQUAL, ENDS/WITH, CONTAINS, or MATCHES. GEO/DOMAIN, GEO/IP/ADDRESS, PAGE/REQUEST/URI, or PAGE/HOSTNAME filters can use any match type; all other filters must use MATCHES.+    matchType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FilterExpression' with the minimum fields required to make a request.+newFilterExpression ::+  FilterExpression+newFilterExpression =+  FilterExpression+    { caseSensitive = Core.Nothing,+      expressionValue = Core.Nothing,+      field = Core.Nothing,+      fieldIndex = Core.Nothing,+      kind = "analytics#filterExpression",+      matchType = Core.Nothing+    }++instance Core.FromJSON FilterExpression where+  parseJSON =+    Core.withObject+      "FilterExpression"+      ( \o ->+          FilterExpression+            Core.<$> (o Core..:? "caseSensitive")+            Core.<*> (o Core..:? "expressionValue")+            Core.<*> (o Core..:? "field")+            Core.<*> (o Core..:? "fieldIndex")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#filterExpression")+            Core.<*> (o Core..:? "matchType")+      )++instance Core.ToJSON FilterExpression where+  toJSON FilterExpression {..} =+    Core.object+      ( Core.catMaybes+          [ ("caseSensitive" Core..=) Core.<$> caseSensitive,+            ("expressionValue" Core..=) Core.<$> expressionValue,+            ("field" Core..=) Core.<$> field,+            ("fieldIndex" Core..=) Core.<$> fieldIndex,+            Core.Just ("kind" Core..= kind),+            ("matchType" Core..=) Core.<$> matchType+          ]+      )++-- | JSON template for a profile filter link.+--+-- /See:/ 'newFilterRef' smart constructor.+data FilterRef = FilterRef+  { -- | Account ID to which this filter belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Link for this filter.+    href :: (Core.Maybe Core.Text),+    -- | Filter ID.+    id :: (Core.Maybe Core.Text),+    -- | Kind value for filter reference.+    kind :: Core.Text,+    -- | Name of this filter.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FilterRef' with the minimum fields required to make a request.+newFilterRef ::+  FilterRef+newFilterRef =+  FilterRef+    { accountId = Core.Nothing,+      href = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#filterRef",+      name = Core.Nothing+    }++instance Core.FromJSON FilterRef where+  parseJSON =+    Core.withObject+      "FilterRef"+      ( \o ->+          FilterRef+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "href")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#filterRef")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON FilterRef where+  toJSON FilterRef {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("href" Core..=) Core.<$> href,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name+          ]+      )++-- | A filter collection lists filters created by users in an Analytics account. Each resource in the collection corresponds to a filter.+--+-- /See:/ 'newFilters' smart constructor.+data Filters = Filters+  { -- | A list of filters.+    items :: (Core.Maybe [Filter]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1,000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this filter collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this filter collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filters' with the minimum fields required to make a request.+newFilters ::+  Filters+newFilters =+  Filters+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#filters",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Filters where+  parseJSON =+    Core.withObject+      "Filters"+      ( \o ->+          Filters+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#filters")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Filters where+  toJSON Filters {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | Analytics data for a given view (profile).+--+-- /See:/ 'newGaData' smart constructor.+data GaData = GaData+  { -- | Column headers that list dimension names followed by the metric names. The order of dimensions and metrics is same as specified in the request.+    columnHeaders :: (Core.Maybe [GaData_ColumnHeadersItem]),+    -- | Determines if Analytics data contains samples.+    containsSampledData :: (Core.Maybe Core.Bool),+    -- | The last refreshed time in seconds for Analytics data.+    dataLastRefreshed :: (Core.Maybe Core.Int64),+    dataTable :: (Core.Maybe GaData_DataTable),+    -- | Unique ID for this data response.+    id :: (Core.Maybe Core.Text),+    -- | The maximum number of rows the response can contain, regardless of the actual number of rows returned. Its value ranges from 1 to 10,000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Resource type.+    kind :: Core.Text,+    -- | Link to next page for this Analytics data query.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this Analytics data query.+    previousLink :: (Core.Maybe Core.Text),+    -- | Information for the view (profile), for which the Analytics data was requested.+    profileInfo :: (Core.Maybe GaData_ProfileInfo),+    -- | Analytics data request query parameters.+    query :: (Core.Maybe GaData_Query),+    -- | Analytics data rows, where each row contains a list of dimension values followed by the metric values. The order of dimensions and metrics is same as specified in the request.+    rows :: (Core.Maybe [[Core.Text]]),+    -- | The number of samples used to calculate the result.+    sampleSize :: (Core.Maybe Core.Int64),+    -- | Total size of the sample space from which the samples were selected.+    sampleSpace :: (Core.Maybe Core.Int64),+    -- | Link to this page.+    selfLink :: (Core.Maybe Core.Text),+    -- | The total number of rows for the query, regardless of the number of rows in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+    totalsForAllResults :: (Core.Maybe GaData_TotalsForAllResults)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData' with the minimum fields required to make a request.+newGaData ::+  GaData+newGaData =+  GaData+    { columnHeaders = Core.Nothing,+      containsSampledData = Core.Nothing,+      dataLastRefreshed = Core.Nothing,+      dataTable = Core.Nothing,+      id = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#gaData",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      profileInfo = Core.Nothing,+      query = Core.Nothing,+      rows = Core.Nothing,+      sampleSize = Core.Nothing,+      sampleSpace = Core.Nothing,+      selfLink = Core.Nothing,+      totalResults = Core.Nothing,+      totalsForAllResults = Core.Nothing+    }++instance Core.FromJSON GaData where+  parseJSON =+    Core.withObject+      "GaData"+      ( \o ->+          GaData+            Core.<$> (o Core..:? "columnHeaders")+            Core.<*> (o Core..:? "containsSampledData")+            Core.<*> (o Core..:? "dataLastRefreshed" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "dataTable")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#gaData")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "profileInfo")+            Core.<*> (o Core..:? "query")+            Core.<*> (o Core..:? "rows")+            Core.<*> (o Core..:? "sampleSize" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "sampleSpace" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "totalsForAllResults")+      )++instance Core.ToJSON GaData where+  toJSON GaData {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnHeaders" Core..=) Core.<$> columnHeaders,+            ("containsSampledData" Core..=) Core.<$> containsSampledData,+            ("dataLastRefreshed" Core..=)+              Core.. Core.AsText+              Core.<$> dataLastRefreshed,+            ("dataTable" Core..=) Core.<$> dataTable,+            ("id" Core..=) Core.<$> id,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("profileInfo" Core..=) Core.<$> profileInfo,+            ("query" Core..=) Core.<$> query,+            ("rows" Core..=) Core.<$> rows,+            ("sampleSize" Core..=) Core.. Core.AsText Core.<$> sampleSize,+            ("sampleSpace" Core..=) Core.. Core.AsText Core.<$> sampleSpace,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("totalsForAllResults" Core..=) Core.<$> totalsForAllResults+          ]+      )++--+-- /See:/ 'newGaData_ColumnHeadersItem' smart constructor.+data GaData_ColumnHeadersItem = GaData_ColumnHeadersItem+  { -- | Column Type. Either DIMENSION or METRIC.+    columnType :: (Core.Maybe Core.Text),+    -- | Data type. Dimension column headers have only STRING as the data type. Metric column headers have data types for metric values such as INTEGER, DOUBLE, CURRENCY etc.+    dataType :: (Core.Maybe Core.Text),+    -- | Column name.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_ColumnHeadersItem' with the minimum fields required to make a request.+newGaData_ColumnHeadersItem ::+  GaData_ColumnHeadersItem+newGaData_ColumnHeadersItem =+  GaData_ColumnHeadersItem+    { columnType = Core.Nothing,+      dataType = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON GaData_ColumnHeadersItem where+  parseJSON =+    Core.withObject+      "GaData_ColumnHeadersItem"+      ( \o ->+          GaData_ColumnHeadersItem+            Core.<$> (o Core..:? "columnType")+            Core.<*> (o Core..:? "dataType")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON GaData_ColumnHeadersItem where+  toJSON GaData_ColumnHeadersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnType" Core..=) Core.<$> columnType,+            ("dataType" Core..=) Core.<$> dataType,+            ("name" Core..=) Core.<$> name+          ]+      )++--+-- /See:/ 'newGaData_DataTable' smart constructor.+data GaData_DataTable = GaData_DataTable+  { cols :: (Core.Maybe [GaData_DataTable_ColsItem]),+    rows :: (Core.Maybe [GaData_DataTable_RowsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_DataTable' with the minimum fields required to make a request.+newGaData_DataTable ::+  GaData_DataTable+newGaData_DataTable =+  GaData_DataTable {cols = Core.Nothing, rows = Core.Nothing}++instance Core.FromJSON GaData_DataTable where+  parseJSON =+    Core.withObject+      "GaData_DataTable"+      ( \o ->+          GaData_DataTable+            Core.<$> (o Core..:? "cols")+            Core.<*> (o Core..:? "rows")+      )++instance Core.ToJSON GaData_DataTable where+  toJSON GaData_DataTable {..} =+    Core.object+      ( Core.catMaybes+          [("cols" Core..=) Core.<$> cols, ("rows" Core..=) Core.<$> rows]+      )++--+-- /See:/ 'newGaData_DataTable_ColsItem' smart constructor.+data GaData_DataTable_ColsItem = GaData_DataTable_ColsItem+  { id :: (Core.Maybe Core.Text),+    label :: (Core.Maybe Core.Text),+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_DataTable_ColsItem' with the minimum fields required to make a request.+newGaData_DataTable_ColsItem ::+  GaData_DataTable_ColsItem+newGaData_DataTable_ColsItem =+  GaData_DataTable_ColsItem+    { id = Core.Nothing,+      label = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON GaData_DataTable_ColsItem where+  parseJSON =+    Core.withObject+      "GaData_DataTable_ColsItem"+      ( \o ->+          GaData_DataTable_ColsItem+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "label")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON GaData_DataTable_ColsItem where+  toJSON GaData_DataTable_ColsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            ("label" Core..=) Core.<$> label,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newGaData_DataTable_RowsItem' smart constructor.+newtype GaData_DataTable_RowsItem = GaData_DataTable_RowsItem+  { c :: (Core.Maybe [GaData_DataTable_RowsItem_CItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_DataTable_RowsItem' with the minimum fields required to make a request.+newGaData_DataTable_RowsItem ::+  GaData_DataTable_RowsItem+newGaData_DataTable_RowsItem =+  GaData_DataTable_RowsItem {c = Core.Nothing}++instance Core.FromJSON GaData_DataTable_RowsItem where+  parseJSON =+    Core.withObject+      "GaData_DataTable_RowsItem"+      (\o -> GaData_DataTable_RowsItem Core.<$> (o Core..:? "c"))++instance Core.ToJSON GaData_DataTable_RowsItem where+  toJSON GaData_DataTable_RowsItem {..} =+    Core.object (Core.catMaybes [("c" Core..=) Core.<$> c])++--+-- /See:/ 'newGaData_DataTable_RowsItem_CItem' smart constructor.+newtype GaData_DataTable_RowsItem_CItem = GaData_DataTable_RowsItem_CItem+  { v :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_DataTable_RowsItem_CItem' with the minimum fields required to make a request.+newGaData_DataTable_RowsItem_CItem ::+  GaData_DataTable_RowsItem_CItem+newGaData_DataTable_RowsItem_CItem =+  GaData_DataTable_RowsItem_CItem {v = Core.Nothing}++instance Core.FromJSON GaData_DataTable_RowsItem_CItem where+  parseJSON =+    Core.withObject+      "GaData_DataTable_RowsItem_CItem"+      (\o -> GaData_DataTable_RowsItem_CItem Core.<$> (o Core..:? "v"))++instance Core.ToJSON GaData_DataTable_RowsItem_CItem where+  toJSON GaData_DataTable_RowsItem_CItem {..} =+    Core.object (Core.catMaybes [("v" Core..=) Core.<$> v])++-- | Information for the view (profile), for which the Analytics data was requested.+--+-- /See:/ 'newGaData_ProfileInfo' smart constructor.+data GaData_ProfileInfo = GaData_ProfileInfo+  { -- | Account ID to which this view (profile) belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this view (profile) belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | View (Profile) ID.+    profileId :: (Core.Maybe Core.Text),+    -- | View (Profile) name.+    profileName :: (Core.Maybe Core.Text),+    -- | Table ID for view (profile).+    tableId :: (Core.Maybe Core.Text),+    -- | Web Property ID to which this view (profile) belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_ProfileInfo' with the minimum fields required to make a request.+newGaData_ProfileInfo ::+  GaData_ProfileInfo+newGaData_ProfileInfo =+  GaData_ProfileInfo+    { accountId = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      profileId = Core.Nothing,+      profileName = Core.Nothing,+      tableId = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON GaData_ProfileInfo where+  parseJSON =+    Core.withObject+      "GaData_ProfileInfo"+      ( \o ->+          GaData_ProfileInfo+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "profileName")+            Core.<*> (o Core..:? "tableId")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON GaData_ProfileInfo where+  toJSON GaData_ProfileInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            ("profileId" Core..=) Core.<$> profileId,+            ("profileName" Core..=) Core.<$> profileName,+            ("tableId" Core..=) Core.<$> tableId,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Analytics data request query parameters.+--+-- /See:/ 'newGaData_Query' smart constructor.+data GaData_Query = GaData_Query+  { -- | List of analytics dimensions.+    dimensions :: (Core.Maybe Core.Text),+    -- | End date.+    endDate :: (Core.Maybe Core.Text),+    -- | Comma-separated list of dimension or metric filters.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID.+    ids :: (Core.Maybe Core.Text),+    -- | Maximum results per page.+    maxResults :: (Core.Maybe Core.Int32),+    -- | List of analytics metrics.+    metrics :: (Core.Maybe [Core.Text]),+    -- | Desired sampling level+    samplingLevel :: (Core.Maybe Core.Text),+    -- | Analytics advanced segment.+    segment :: (Core.Maybe Core.Text),+    -- | List of dimensions or metrics based on which Analytics data is sorted.+    sort :: (Core.Maybe [Core.Text]),+    -- | Start date.+    startDate :: (Core.Maybe Core.Text),+    -- | Start index.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_Query' with the minimum fields required to make a request.+newGaData_Query ::+  GaData_Query+newGaData_Query =+  GaData_Query+    { dimensions = Core.Nothing,+      endDate = Core.Nothing,+      filters = Core.Nothing,+      ids = Core.Nothing,+      maxResults = Core.Nothing,+      metrics = Core.Nothing,+      samplingLevel = Core.Nothing,+      segment = Core.Nothing,+      sort = Core.Nothing,+      startDate = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.FromJSON GaData_Query where+  parseJSON =+    Core.withObject+      "GaData_Query"+      ( \o ->+          GaData_Query+            Core.<$> (o Core..:? "dimensions")+            Core.<*> (o Core..:? "end-date")+            Core.<*> (o Core..:? "filters")+            Core.<*> (o Core..:? "ids")+            Core.<*> (o Core..:? "max-results")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "samplingLevel")+            Core.<*> (o Core..:? "segment")+            Core.<*> (o Core..:? "sort")+            Core.<*> (o Core..:? "start-date")+            Core.<*> (o Core..:? "start-index")+      )++instance Core.ToJSON GaData_Query where+  toJSON GaData_Query {..} =+    Core.object+      ( Core.catMaybes+          [ ("dimensions" Core..=) Core.<$> dimensions,+            ("end-date" Core..=) Core.<$> endDate,+            ("filters" Core..=) Core.<$> filters,+            ("ids" Core..=) Core.<$> ids,+            ("max-results" Core..=) Core.<$> maxResults,+            ("metrics" Core..=) Core.<$> metrics,+            ("samplingLevel" Core..=) Core.<$> samplingLevel,+            ("segment" Core..=) Core.<$> segment,+            ("sort" Core..=) Core.<$> sort,+            ("start-date" Core..=) Core.<$> startDate,+            ("start-index" Core..=) Core.<$> startIndex+          ]+      )++-- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+--+-- /See:/ 'newGaData_TotalsForAllResults' smart constructor.+newtype GaData_TotalsForAllResults = GaData_TotalsForAllResults+  { -- | Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric.+    additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GaData_TotalsForAllResults' with the minimum fields required to make a request.+newGaData_TotalsForAllResults ::+  -- |  Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric. See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  GaData_TotalsForAllResults+newGaData_TotalsForAllResults additional =+  GaData_TotalsForAllResults {additional = additional}++instance Core.FromJSON GaData_TotalsForAllResults where+  parseJSON =+    Core.withObject+      "GaData_TotalsForAllResults"+      ( \o ->+          GaData_TotalsForAllResults Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON GaData_TotalsForAllResults where+  toJSON GaData_TotalsForAllResults {..} = Core.toJSON additional++-- | JSON template for Analytics goal resource.+--+-- /See:/ 'newGoal' smart constructor.+data Goal = Goal+  { -- | Account ID to which this goal belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Determines whether this goal is active.+    active :: (Core.Maybe Core.Bool),+    -- | Time this goal was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Details for the goal of the type EVENT.+    eventDetails :: (Core.Maybe Goal_EventDetails),+    -- | Goal ID.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this goal belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for an Analytics goal.+    kind :: Core.Text,+    -- | Goal name.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for a goal. Points to the view (profile) to which this goal belongs.+    parentLink :: (Core.Maybe Goal_ParentLink),+    -- | View (Profile) ID to which this goal belongs.+    profileId :: (Core.Maybe Core.Text),+    -- | Link for this goal.+    selfLink :: (Core.Maybe Core.Text),+    -- | Goal type. Possible values are URL/DESTINATION, VISIT/TIME/ON/SITE, VISIT/NUM/PAGES, AND EVENT.+    type' :: (Core.Maybe Core.Text),+    -- | Time this goal was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Details for the goal of the type URL_DESTINATION.+    urlDestinationDetails :: (Core.Maybe Goal_UrlDestinationDetails),+    -- | Goal value.+    value :: (Core.Maybe Core.Double),+    -- | Details for the goal of the type VISIT/NUM/PAGES.+    visitNumPagesDetails :: (Core.Maybe Goal_VisitNumPagesDetails),+    -- | Details for the goal of the type VISIT/TIME/ON_SITE.+    visitTimeOnSiteDetails :: (Core.Maybe Goal_VisitTimeOnSiteDetails),+    -- | Web property ID to which this goal belongs. The web property ID is of the form UA-XXXXX-YY.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal' with the minimum fields required to make a request.+newGoal ::+  Goal+newGoal =+  Goal+    { accountId = Core.Nothing,+      active = Core.Nothing,+      created = Core.Nothing,+      eventDetails = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#goal",+      name = Core.Nothing,+      parentLink = Core.Nothing,+      profileId = Core.Nothing,+      selfLink = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing,+      urlDestinationDetails = Core.Nothing,+      value = Core.Nothing,+      visitNumPagesDetails = Core.Nothing,+      visitTimeOnSiteDetails = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON Goal where+  parseJSON =+    Core.withObject+      "Goal"+      ( \o ->+          Goal+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "active")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "eventDetails")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#goal")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "urlDestinationDetails")+            Core.<*> (o Core..:? "value")+            Core.<*> (o Core..:? "visitNumPagesDetails")+            Core.<*> (o Core..:? "visitTimeOnSiteDetails")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON Goal where+  toJSON Goal {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("active" Core..=) Core.<$> active,+            ("created" Core..=) Core.<$> created,+            ("eventDetails" Core..=) Core.<$> eventDetails,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("profileId" Core..=) Core.<$> profileId,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated,+            ("urlDestinationDetails" Core..=) Core.<$> urlDestinationDetails,+            ("value" Core..=) Core.<$> value,+            ("visitNumPagesDetails" Core..=) Core.<$> visitNumPagesDetails,+            ("visitTimeOnSiteDetails" Core..=) Core.<$> visitTimeOnSiteDetails,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Details for the goal of the type EVENT.+--+-- /See:/ 'newGoal_EventDetails' smart constructor.+data Goal_EventDetails = Goal_EventDetails+  { -- | List of event conditions.+    eventConditions :: (Core.Maybe [Goal_EventDetails_EventConditionsItem]),+    -- | Determines if the event value should be used as the value for this goal.+    useEventValue :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_EventDetails' with the minimum fields required to make a request.+newGoal_EventDetails ::+  Goal_EventDetails+newGoal_EventDetails =+  Goal_EventDetails+    { eventConditions = Core.Nothing,+      useEventValue = Core.Nothing+    }++instance Core.FromJSON Goal_EventDetails where+  parseJSON =+    Core.withObject+      "Goal_EventDetails"+      ( \o ->+          Goal_EventDetails+            Core.<$> (o Core..:? "eventConditions")+            Core.<*> (o Core..:? "useEventValue")+      )++instance Core.ToJSON Goal_EventDetails where+  toJSON Goal_EventDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("eventConditions" Core..=) Core.<$> eventConditions,+            ("useEventValue" Core..=) Core.<$> useEventValue+          ]+      )++--+-- /See:/ 'newGoal_EventDetails_EventConditionsItem' smart constructor.+data Goal_EventDetails_EventConditionsItem = Goal_EventDetails_EventConditionsItem+  { -- | Type of comparison. Possible values are LESS/THAN, GREATER/THAN or EQUAL.+    comparisonType :: (Core.Maybe Core.Text),+    -- | Value used for this comparison.+    comparisonValue :: (Core.Maybe Core.Int64),+    -- | Expression used for this match.+    expression :: (Core.Maybe Core.Text),+    -- | Type of the match to be performed. Possible values are REGEXP, BEGINS_WITH, or EXACT.+    matchType :: (Core.Maybe Core.Text),+    -- | Type of this event condition. Possible values are CATEGORY, ACTION, LABEL, or VALUE.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_EventDetails_EventConditionsItem' with the minimum fields required to make a request.+newGoal_EventDetails_EventConditionsItem ::+  Goal_EventDetails_EventConditionsItem+newGoal_EventDetails_EventConditionsItem =+  Goal_EventDetails_EventConditionsItem+    { comparisonType =+        Core.Nothing,+      comparisonValue = Core.Nothing,+      expression = Core.Nothing,+      matchType = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Goal_EventDetails_EventConditionsItem where+  parseJSON =+    Core.withObject+      "Goal_EventDetails_EventConditionsItem"+      ( \o ->+          Goal_EventDetails_EventConditionsItem+            Core.<$> (o Core..:? "comparisonType")+            Core.<*> (o Core..:? "comparisonValue" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "expression")+            Core.<*> (o Core..:? "matchType")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Goal_EventDetails_EventConditionsItem where+  toJSON Goal_EventDetails_EventConditionsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("comparisonType" Core..=) Core.<$> comparisonType,+            ("comparisonValue" Core..=)+              Core.. Core.AsText+              Core.<$> comparisonValue,+            ("expression" Core..=) Core.<$> expression,+            ("matchType" Core..=) Core.<$> matchType,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | Parent link for a goal. Points to the view (profile) to which this goal belongs.+--+-- /See:/ 'newGoal_ParentLink' smart constructor.+data Goal_ParentLink = Goal_ParentLink+  { -- | Link to the view (profile) to which this goal belongs.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#profile\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_ParentLink' with the minimum fields required to make a request.+newGoal_ParentLink ::+  Goal_ParentLink+newGoal_ParentLink =+  Goal_ParentLink {href = Core.Nothing, type' = "analytics#profile"}++instance Core.FromJSON Goal_ParentLink where+  parseJSON =+    Core.withObject+      "Goal_ParentLink"+      ( \o ->+          Goal_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#profile")+      )++instance Core.ToJSON Goal_ParentLink where+  toJSON Goal_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Details for the goal of the type URL_DESTINATION.+--+-- /See:/ 'newGoal_UrlDestinationDetails' smart constructor.+data Goal_UrlDestinationDetails = Goal_UrlDestinationDetails+  { -- | Determines if the goal URL must exactly match the capitalization of visited URLs.+    caseSensitive :: (Core.Maybe Core.Bool),+    -- | Determines if the first step in this goal is required.+    firstStepRequired :: (Core.Maybe Core.Bool),+    -- | Match type for the goal URL. Possible values are HEAD, EXACT, or REGEX.+    matchType :: (Core.Maybe Core.Text),+    -- | List of steps configured for this goal funnel.+    steps :: (Core.Maybe [Goal_UrlDestinationDetails_StepsItem]),+    -- | URL for this goal.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_UrlDestinationDetails' with the minimum fields required to make a request.+newGoal_UrlDestinationDetails ::+  Goal_UrlDestinationDetails+newGoal_UrlDestinationDetails =+  Goal_UrlDestinationDetails+    { caseSensitive = Core.Nothing,+      firstStepRequired = Core.Nothing,+      matchType = Core.Nothing,+      steps = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON Goal_UrlDestinationDetails where+  parseJSON =+    Core.withObject+      "Goal_UrlDestinationDetails"+      ( \o ->+          Goal_UrlDestinationDetails+            Core.<$> (o Core..:? "caseSensitive")+            Core.<*> (o Core..:? "firstStepRequired")+            Core.<*> (o Core..:? "matchType")+            Core.<*> (o Core..:? "steps")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Goal_UrlDestinationDetails where+  toJSON Goal_UrlDestinationDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("caseSensitive" Core..=) Core.<$> caseSensitive,+            ("firstStepRequired" Core..=) Core.<$> firstStepRequired,+            ("matchType" Core..=) Core.<$> matchType,+            ("steps" Core..=) Core.<$> steps,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newGoal_UrlDestinationDetails_StepsItem' smart constructor.+data Goal_UrlDestinationDetails_StepsItem = Goal_UrlDestinationDetails_StepsItem+  { -- | Step name.+    name :: (Core.Maybe Core.Text),+    -- | Step number.+    number :: (Core.Maybe Core.Int32),+    -- | URL for this step.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_UrlDestinationDetails_StepsItem' with the minimum fields required to make a request.+newGoal_UrlDestinationDetails_StepsItem ::+  Goal_UrlDestinationDetails_StepsItem+newGoal_UrlDestinationDetails_StepsItem =+  Goal_UrlDestinationDetails_StepsItem+    { name = Core.Nothing,+      number = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON Goal_UrlDestinationDetails_StepsItem where+  parseJSON =+    Core.withObject+      "Goal_UrlDestinationDetails_StepsItem"+      ( \o ->+          Goal_UrlDestinationDetails_StepsItem+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "number")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Goal_UrlDestinationDetails_StepsItem where+  toJSON Goal_UrlDestinationDetails_StepsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("name" Core..=) Core.<$> name,+            ("number" Core..=) Core.<$> number,+            ("url" Core..=) Core.<$> url+          ]+      )++-- | Details for the goal of the type VISIT/NUM/PAGES.+--+-- /See:/ 'newGoal_VisitNumPagesDetails' smart constructor.+data Goal_VisitNumPagesDetails = Goal_VisitNumPagesDetails+  { -- | Type of comparison. Possible values are LESS/THAN, GREATER/THAN, or EQUAL.+    comparisonType :: (Core.Maybe Core.Text),+    -- | Value used for this comparison.+    comparisonValue :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_VisitNumPagesDetails' with the minimum fields required to make a request.+newGoal_VisitNumPagesDetails ::+  Goal_VisitNumPagesDetails+newGoal_VisitNumPagesDetails =+  Goal_VisitNumPagesDetails+    { comparisonType = Core.Nothing,+      comparisonValue = Core.Nothing+    }++instance Core.FromJSON Goal_VisitNumPagesDetails where+  parseJSON =+    Core.withObject+      "Goal_VisitNumPagesDetails"+      ( \o ->+          Goal_VisitNumPagesDetails+            Core.<$> (o Core..:? "comparisonType")+            Core.<*> (o Core..:? "comparisonValue" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON Goal_VisitNumPagesDetails where+  toJSON Goal_VisitNumPagesDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("comparisonType" Core..=) Core.<$> comparisonType,+            ("comparisonValue" Core..=)+              Core.. Core.AsText+              Core.<$> comparisonValue+          ]+      )++-- | Details for the goal of the type VISIT/TIME/ON_SITE.+--+-- /See:/ 'newGoal_VisitTimeOnSiteDetails' smart constructor.+data Goal_VisitTimeOnSiteDetails = Goal_VisitTimeOnSiteDetails+  { -- | Type of comparison. Possible values are LESS/THAN or GREATER/THAN.+    comparisonType :: (Core.Maybe Core.Text),+    -- | Value used for this comparison.+    comparisonValue :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goal_VisitTimeOnSiteDetails' with the minimum fields required to make a request.+newGoal_VisitTimeOnSiteDetails ::+  Goal_VisitTimeOnSiteDetails+newGoal_VisitTimeOnSiteDetails =+  Goal_VisitTimeOnSiteDetails+    { comparisonType = Core.Nothing,+      comparisonValue = Core.Nothing+    }++instance Core.FromJSON Goal_VisitTimeOnSiteDetails where+  parseJSON =+    Core.withObject+      "Goal_VisitTimeOnSiteDetails"+      ( \o ->+          Goal_VisitTimeOnSiteDetails+            Core.<$> (o Core..:? "comparisonType")+            Core.<*> (o Core..:? "comparisonValue" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON Goal_VisitTimeOnSiteDetails where+  toJSON Goal_VisitTimeOnSiteDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("comparisonType" Core..=) Core.<$> comparisonType,+            ("comparisonValue" Core..=)+              Core.. Core.AsText+              Core.<$> comparisonValue+          ]+      )++-- | A goal collection lists Analytics goals to which the user has access. Each view (profile) can have a set of goals. Each resource in the Goal collection corresponds to a single Analytics goal.+--+-- /See:/ 'newGoals' smart constructor.+data Goals = Goals+  { -- | A list of goals.+    items :: (Core.Maybe [Goal]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this goal collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this goal collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of resources in the result.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Goals' with the minimum fields required to make a request.+newGoals ::+  Goals+newGoals =+  Goals+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#goals",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Goals where+  parseJSON =+    Core.withObject+      "Goals"+      ( \o ->+          Goals+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#goals")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Goals where+  toJSON Goals {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for a hash Client Id request resource.+--+-- /See:/ 'newHashClientIdRequest' smart constructor.+data HashClientIdRequest = HashClientIdRequest+  { clientId :: (Core.Maybe Core.Text),+    kind :: Core.Text,+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HashClientIdRequest' with the minimum fields required to make a request.+newHashClientIdRequest ::+  HashClientIdRequest+newHashClientIdRequest =+  HashClientIdRequest+    { clientId = Core.Nothing,+      kind = "analytics#hashClientIdRequest",+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON HashClientIdRequest where+  parseJSON =+    Core.withObject+      "HashClientIdRequest"+      ( \o ->+          HashClientIdRequest+            Core.<$> (o Core..:? "clientId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#hashClientIdRequest")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON HashClientIdRequest where+  toJSON HashClientIdRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("clientId" Core..=) Core.<$> clientId,+            Core.Just ("kind" Core..= kind),+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | JSON template for a hash Client Id response resource.+--+-- /See:/ 'newHashClientIdResponse' smart constructor.+data HashClientIdResponse = HashClientIdResponse+  { clientId :: (Core.Maybe Core.Text),+    hashedClientId :: (Core.Maybe Core.Text),+    kind :: Core.Text,+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HashClientIdResponse' with the minimum fields required to make a request.+newHashClientIdResponse ::+  HashClientIdResponse+newHashClientIdResponse =+  HashClientIdResponse+    { clientId = Core.Nothing,+      hashedClientId = Core.Nothing,+      kind = "analytics#hashClientIdResponse",+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON HashClientIdResponse where+  parseJSON =+    Core.withObject+      "HashClientIdResponse"+      ( \o ->+          HashClientIdResponse+            Core.<$> (o Core..:? "clientId")+            Core.<*> (o Core..:? "hashedClientId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#hashClientIdResponse")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON HashClientIdResponse where+  toJSON HashClientIdResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("clientId" Core..=) Core.<$> clientId,+            ("hashedClientId" Core..=) Core.<$> hashedClientId,+            Core.Just ("kind" Core..= kind),+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | JSON template for an Analytics Remarketing Include Conditions.+--+-- /See:/ 'newIncludeConditions' smart constructor.+data IncludeConditions = IncludeConditions+  { -- | The look-back window lets you specify a time frame for evaluating the behavior that qualifies users for your audience. For example, if your filters include users from Central Asia, and Transactions Greater than 2, and you set the look-back window to 14 days, then any user from Central Asia whose cumulative transactions exceed 2 during the last 14 days is added to the audience.+    daysToLookBack :: (Core.Maybe Core.Int32),+    -- | Boolean indicating whether this segment is a smart list. https:\/\/support.google.com\/analytics\/answer\/4628577+    isSmartList :: (Core.Maybe Core.Bool),+    -- | Resource type for include conditions.+    kind :: Core.Text,+    -- | Number of days (in the range 1 to 540) a user remains in the audience.+    membershipDurationDays :: (Core.Maybe Core.Int32),+    -- | The segment condition that will cause a user to be added to an audience.+    segment :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IncludeConditions' with the minimum fields required to make a request.+newIncludeConditions ::+  IncludeConditions+newIncludeConditions =+  IncludeConditions+    { daysToLookBack = Core.Nothing,+      isSmartList = Core.Nothing,+      kind = "analytics#includeConditions",+      membershipDurationDays = Core.Nothing,+      segment = Core.Nothing+    }++instance Core.FromJSON IncludeConditions where+  parseJSON =+    Core.withObject+      "IncludeConditions"+      ( \o ->+          IncludeConditions+            Core.<$> (o Core..:? "daysToLookBack")+            Core.<*> (o Core..:? "isSmartList")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#includeConditions")+            Core.<*> (o Core..:? "membershipDurationDays")+            Core.<*> (o Core..:? "segment")+      )++instance Core.ToJSON IncludeConditions where+  toJSON IncludeConditions {..} =+    Core.object+      ( Core.catMaybes+          [ ("daysToLookBack" Core..=) Core.<$> daysToLookBack,+            ("isSmartList" Core..=) Core.<$> isSmartList,+            Core.Just ("kind" Core..= kind),+            ("membershipDurationDays" Core..=) Core.<$> membershipDurationDays,+            ("segment" Core..=) Core.<$> segment+          ]+      )++-- | JSON template for an Analytics Remarketing Audience Foreign Link.+--+-- /See:/ 'newLinkedForeignAccount' smart constructor.+data LinkedForeignAccount = LinkedForeignAccount+  { -- | Account ID to which this linked foreign account belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Boolean indicating whether this is eligible for search.+    eligibleForSearch :: (Core.Maybe Core.Bool),+    -- | Entity ad account link ID.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this linked foreign account belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for linked foreign account.+    kind :: Core.Text,+    -- | The foreign account ID. For example the an Google Ads @linkedAccountId@ has the following format XXX-XXX-XXXX.+    linkedAccountId :: (Core.Maybe Core.Text),+    -- | Remarketing audience ID to which this linked foreign account belongs.+    remarketingAudienceId :: (Core.Maybe Core.Text),+    -- | The status of this foreign account link.+    status :: (Core.Maybe Core.Text),+    -- | The type of the foreign account. For example, @ADWORDS_LINKS@, @DBM_LINKS@, @MCC_LINKS@ or @OPTIMIZE@.+    type' :: (Core.Maybe Core.Text),+    -- | Web property ID of the form UA-XXXXX-YY to which this linked foreign account belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LinkedForeignAccount' with the minimum fields required to make a request.+newLinkedForeignAccount ::+  LinkedForeignAccount+newLinkedForeignAccount =+  LinkedForeignAccount+    { accountId = Core.Nothing,+      eligibleForSearch = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#linkedForeignAccount",+      linkedAccountId = Core.Nothing,+      remarketingAudienceId = Core.Nothing,+      status = Core.Nothing,+      type' = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON LinkedForeignAccount where+  parseJSON =+    Core.withObject+      "LinkedForeignAccount"+      ( \o ->+          LinkedForeignAccount+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "eligibleForSearch")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#linkedForeignAccount")+            Core.<*> (o Core..:? "linkedAccountId")+            Core.<*> (o Core..:? "remarketingAudienceId")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON LinkedForeignAccount where+  toJSON LinkedForeignAccount {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("eligibleForSearch" Core..=) Core.<$> eligibleForSearch,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("linkedAccountId" Core..=) Core.<$> linkedAccountId,+            ("remarketingAudienceId" Core..=) Core.<$> remarketingAudienceId,+            ("status" Core..=) Core.<$> status,+            ("type" Core..=) Core.<$> type',+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Multi-Channel Funnels data for a given view (profile).+--+-- /See:/ 'newMcfData' smart constructor.+data McfData = McfData+  { -- | Column headers that list dimension names followed by the metric names. The order of dimensions and metrics is same as specified in the request.+    columnHeaders :: (Core.Maybe [McfData_ColumnHeadersItem]),+    -- | Determines if the Analytics data contains sampled data.+    containsSampledData :: (Core.Maybe Core.Bool),+    -- | Unique ID for this data response.+    id :: (Core.Maybe Core.Text),+    -- | The maximum number of rows the response can contain, regardless of the actual number of rows returned. Its value ranges from 1 to 10,000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Resource type.+    kind :: Core.Text,+    -- | Link to next page for this Analytics data query.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this Analytics data query.+    previousLink :: (Core.Maybe Core.Text),+    -- | Information for the view (profile), for which the Analytics data was requested.+    profileInfo :: (Core.Maybe McfData_ProfileInfo),+    -- | Analytics data request query parameters.+    query :: (Core.Maybe McfData_Query),+    -- | Analytics data rows, where each row contains a list of dimension values followed by the metric values. The order of dimensions and metrics is same as specified in the request.+    rows :: (Core.Maybe [[McfData_RowsItemItem]]),+    -- | The number of samples used to calculate the result.+    sampleSize :: (Core.Maybe Core.Int64),+    -- | Total size of the sample space from which the samples were selected.+    sampleSpace :: (Core.Maybe Core.Int64),+    -- | Link to this page.+    selfLink :: (Core.Maybe Core.Text),+    -- | The total number of rows for the query, regardless of the number of rows in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+    totalsForAllResults :: (Core.Maybe McfData_TotalsForAllResults)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData' with the minimum fields required to make a request.+newMcfData ::+  McfData+newMcfData =+  McfData+    { columnHeaders = Core.Nothing,+      containsSampledData = Core.Nothing,+      id = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#mcfData",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      profileInfo = Core.Nothing,+      query = Core.Nothing,+      rows = Core.Nothing,+      sampleSize = Core.Nothing,+      sampleSpace = Core.Nothing,+      selfLink = Core.Nothing,+      totalResults = Core.Nothing,+      totalsForAllResults = Core.Nothing+    }++instance Core.FromJSON McfData where+  parseJSON =+    Core.withObject+      "McfData"+      ( \o ->+          McfData+            Core.<$> (o Core..:? "columnHeaders")+            Core.<*> (o Core..:? "containsSampledData")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#mcfData")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "profileInfo")+            Core.<*> (o Core..:? "query")+            Core.<*> (o Core..:? "rows")+            Core.<*> (o Core..:? "sampleSize" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "sampleSpace" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "totalsForAllResults")+      )++instance Core.ToJSON McfData where+  toJSON McfData {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnHeaders" Core..=) Core.<$> columnHeaders,+            ("containsSampledData" Core..=) Core.<$> containsSampledData,+            ("id" Core..=) Core.<$> id,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("profileInfo" Core..=) Core.<$> profileInfo,+            ("query" Core..=) Core.<$> query,+            ("rows" Core..=) Core.<$> rows,+            ("sampleSize" Core..=) Core.. Core.AsText Core.<$> sampleSize,+            ("sampleSpace" Core..=) Core.. Core.AsText Core.<$> sampleSpace,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("totalsForAllResults" Core..=) Core.<$> totalsForAllResults+          ]+      )++--+-- /See:/ 'newMcfData_ColumnHeadersItem' smart constructor.+data McfData_ColumnHeadersItem = McfData_ColumnHeadersItem+  { -- | Column Type. Either DIMENSION or METRIC.+    columnType :: (Core.Maybe Core.Text),+    -- | Data type. Dimension and metric values data types such as INTEGER, DOUBLE, CURRENCY, MCF_SEQUENCE etc.+    dataType :: (Core.Maybe Core.Text),+    -- | Column name.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_ColumnHeadersItem' with the minimum fields required to make a request.+newMcfData_ColumnHeadersItem ::+  McfData_ColumnHeadersItem+newMcfData_ColumnHeadersItem =+  McfData_ColumnHeadersItem+    { columnType = Core.Nothing,+      dataType = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON McfData_ColumnHeadersItem where+  parseJSON =+    Core.withObject+      "McfData_ColumnHeadersItem"+      ( \o ->+          McfData_ColumnHeadersItem+            Core.<$> (o Core..:? "columnType")+            Core.<*> (o Core..:? "dataType")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON McfData_ColumnHeadersItem where+  toJSON McfData_ColumnHeadersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnType" Core..=) Core.<$> columnType,+            ("dataType" Core..=) Core.<$> dataType,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | Information for the view (profile), for which the Analytics data was requested.+--+-- /See:/ 'newMcfData_ProfileInfo' smart constructor.+data McfData_ProfileInfo = McfData_ProfileInfo+  { -- | Account ID to which this view (profile) belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this view (profile) belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | View (Profile) ID.+    profileId :: (Core.Maybe Core.Text),+    -- | View (Profile) name.+    profileName :: (Core.Maybe Core.Text),+    -- | Table ID for view (profile).+    tableId :: (Core.Maybe Core.Text),+    -- | Web Property ID to which this view (profile) belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_ProfileInfo' with the minimum fields required to make a request.+newMcfData_ProfileInfo ::+  McfData_ProfileInfo+newMcfData_ProfileInfo =+  McfData_ProfileInfo+    { accountId = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      profileId = Core.Nothing,+      profileName = Core.Nothing,+      tableId = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON McfData_ProfileInfo where+  parseJSON =+    Core.withObject+      "McfData_ProfileInfo"+      ( \o ->+          McfData_ProfileInfo+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "profileName")+            Core.<*> (o Core..:? "tableId")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON McfData_ProfileInfo where+  toJSON McfData_ProfileInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            ("profileId" Core..=) Core.<$> profileId,+            ("profileName" Core..=) Core.<$> profileName,+            ("tableId" Core..=) Core.<$> tableId,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Analytics data request query parameters.+--+-- /See:/ 'newMcfData_Query' smart constructor.+data McfData_Query = McfData_Query+  { -- | List of analytics dimensions.+    dimensions :: (Core.Maybe Core.Text),+    -- | End date.+    endDate :: (Core.Maybe Core.Text),+    -- | Comma-separated list of dimension or metric filters.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID.+    ids :: (Core.Maybe Core.Text),+    -- | Maximum results per page.+    maxResults :: (Core.Maybe Core.Int32),+    -- | List of analytics metrics.+    metrics :: (Core.Maybe [Core.Text]),+    -- | Desired sampling level+    samplingLevel :: (Core.Maybe Core.Text),+    -- | Analytics advanced segment.+    segment :: (Core.Maybe Core.Text),+    -- | List of dimensions or metrics based on which Analytics data is sorted.+    sort :: (Core.Maybe [Core.Text]),+    -- | Start date.+    startDate :: (Core.Maybe Core.Text),+    -- | Start index.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_Query' with the minimum fields required to make a request.+newMcfData_Query ::+  McfData_Query+newMcfData_Query =+  McfData_Query+    { dimensions = Core.Nothing,+      endDate = Core.Nothing,+      filters = Core.Nothing,+      ids = Core.Nothing,+      maxResults = Core.Nothing,+      metrics = Core.Nothing,+      samplingLevel = Core.Nothing,+      segment = Core.Nothing,+      sort = Core.Nothing,+      startDate = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.FromJSON McfData_Query where+  parseJSON =+    Core.withObject+      "McfData_Query"+      ( \o ->+          McfData_Query+            Core.<$> (o Core..:? "dimensions")+            Core.<*> (o Core..:? "end-date")+            Core.<*> (o Core..:? "filters")+            Core.<*> (o Core..:? "ids")+            Core.<*> (o Core..:? "max-results")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "samplingLevel")+            Core.<*> (o Core..:? "segment")+            Core.<*> (o Core..:? "sort")+            Core.<*> (o Core..:? "start-date")+            Core.<*> (o Core..:? "start-index")+      )++instance Core.ToJSON McfData_Query where+  toJSON McfData_Query {..} =+    Core.object+      ( Core.catMaybes+          [ ("dimensions" Core..=) Core.<$> dimensions,+            ("end-date" Core..=) Core.<$> endDate,+            ("filters" Core..=) Core.<$> filters,+            ("ids" Core..=) Core.<$> ids,+            ("max-results" Core..=) Core.<$> maxResults,+            ("metrics" Core..=) Core.<$> metrics,+            ("samplingLevel" Core..=) Core.<$> samplingLevel,+            ("segment" Core..=) Core.<$> segment,+            ("sort" Core..=) Core.<$> sort,+            ("start-date" Core..=) Core.<$> startDate,+            ("start-index" Core..=) Core.<$> startIndex+          ]+      )++-- | A union object representing a dimension or metric value. Only one of \"primitiveValue\" or \"conversionPathValue\" attribute will be populated.+--+-- /See:/ 'newMcfData_RowsItemItem' smart constructor.+data McfData_RowsItemItem = McfData_RowsItemItem+  { -- | A conversion path dimension value, containing a list of interactions with their attributes.+    conversionPathValue :: (Core.Maybe [McfData_RowsItemItem_ConversionPathValueItem]),+    -- | A primitive dimension value. A primitive metric value.+    primitiveValue :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_RowsItemItem' with the minimum fields required to make a request.+newMcfData_RowsItemItem ::+  McfData_RowsItemItem+newMcfData_RowsItemItem =+  McfData_RowsItemItem+    { conversionPathValue = Core.Nothing,+      primitiveValue = Core.Nothing+    }++instance Core.FromJSON McfData_RowsItemItem where+  parseJSON =+    Core.withObject+      "McfData_RowsItemItem"+      ( \o ->+          McfData_RowsItemItem+            Core.<$> (o Core..:? "conversionPathValue")+            Core.<*> (o Core..:? "primitiveValue")+      )++instance Core.ToJSON McfData_RowsItemItem where+  toJSON McfData_RowsItemItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("conversionPathValue" Core..=) Core.<$> conversionPathValue,+            ("primitiveValue" Core..=) Core.<$> primitiveValue+          ]+      )++--+-- /See:/ 'newMcfData_RowsItemItem_ConversionPathValueItem' smart constructor.+data McfData_RowsItemItem_ConversionPathValueItem = McfData_RowsItemItem_ConversionPathValueItem+  { -- | Type of an interaction on conversion path. Such as CLICK, IMPRESSION etc.+    interactionType :: (Core.Maybe Core.Text),+    -- | Node value of an interaction on conversion path. Such as source, medium etc.+    nodeValue :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_RowsItemItem_ConversionPathValueItem' with the minimum fields required to make a request.+newMcfData_RowsItemItem_ConversionPathValueItem ::+  McfData_RowsItemItem_ConversionPathValueItem+newMcfData_RowsItemItem_ConversionPathValueItem =+  McfData_RowsItemItem_ConversionPathValueItem+    { interactionType =+        Core.Nothing,+      nodeValue = Core.Nothing+    }++instance Core.FromJSON McfData_RowsItemItem_ConversionPathValueItem where+  parseJSON =+    Core.withObject+      "McfData_RowsItemItem_ConversionPathValueItem"+      ( \o ->+          McfData_RowsItemItem_ConversionPathValueItem+            Core.<$> (o Core..:? "interactionType")+            Core.<*> (o Core..:? "nodeValue")+      )++instance Core.ToJSON McfData_RowsItemItem_ConversionPathValueItem where+  toJSON McfData_RowsItemItem_ConversionPathValueItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("interactionType" Core..=) Core.<$> interactionType,+            ("nodeValue" Core..=) Core.<$> nodeValue+          ]+      )++-- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+--+-- /See:/ 'newMcfData_TotalsForAllResults' smart constructor.+newtype McfData_TotalsForAllResults = McfData_TotalsForAllResults+  { -- | Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric.+    additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'McfData_TotalsForAllResults' with the minimum fields required to make a request.+newMcfData_TotalsForAllResults ::+  -- |  Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric. See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  McfData_TotalsForAllResults+newMcfData_TotalsForAllResults additional =+  McfData_TotalsForAllResults {additional = additional}++instance Core.FromJSON McfData_TotalsForAllResults where+  parseJSON =+    Core.withObject+      "McfData_TotalsForAllResults"+      ( \o ->+          McfData_TotalsForAllResults Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON McfData_TotalsForAllResults where+  toJSON McfData_TotalsForAllResults {..} = Core.toJSON additional++-- | JSON template for an Analytics view (profile).+--+-- /See:/ 'newProfile' smart constructor.+data Profile = Profile+  { -- | Account ID to which this view (profile) belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Indicates whether bot filtering is enabled for this view (profile).+    botFilteringEnabled :: (Core.Maybe Core.Bool),+    -- | Child link for this view (profile). Points to the list of goals for this view (profile).+    childLink :: (Core.Maybe Profile_ChildLink),+    -- | Time this view (profile) was created.+    created :: (Core.Maybe Core.DateTime),+    -- | The currency type associated with this view (profile), defaults to USD. The supported values are: USD, JPY, EUR, GBP, AUD, KRW, BRL, CNY, DKK, RUB, SEK, NOK, PLN, TRY, TWD, HKD, THB, IDR, ARS, MXN, VND, PHP, INR, CHF, CAD, CZK, NZD, HUF, BGN, LTL, ZAR, UAH, AED, BOB, CLP, COP, EGP, HRK, ILS, MAD, MYR, PEN, PKR, RON, RSD, SAR, SGD, VEF, LVL+    currency :: (Core.Maybe Core.Text),+    -- | Default page for this view (profile).+    defaultPage :: (Core.Maybe Core.Text),+    -- | Indicates whether ecommerce tracking is enabled for this view (profile).+    eCommerceTracking :: (Core.Maybe Core.Bool),+    -- | Indicates whether enhanced ecommerce tracking is enabled for this view (profile). This property can only be enabled if ecommerce tracking is enabled.+    enhancedECommerceTracking :: (Core.Maybe Core.Bool),+    -- | The query parameters that are excluded from this view (profile).+    excludeQueryParameters :: (Core.Maybe Core.Text),+    -- | View (Profile) ID.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this view (profile) belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics view (profile).+    kind :: Core.Text,+    -- | Name of this view (profile).+    name :: (Core.Maybe Core.Text),+    -- | Parent link for this view (profile). Points to the web property to which this view (profile) belongs.+    parentLink :: (Core.Maybe Profile_ParentLink),+    -- | Permissions the user has for this view (profile).+    permissions :: (Core.Maybe Profile_Permissions),+    -- | Link for this view (profile).+    selfLink :: (Core.Maybe Core.Text),+    -- | Site search category parameters for this view (profile).+    siteSearchCategoryParameters :: (Core.Maybe Core.Text),+    -- | The site search query parameters for this view (profile).+    siteSearchQueryParameters :: (Core.Maybe Core.Text),+    -- | Indicates whether this view (profile) is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | Whether or not Analytics will strip search category parameters from the URLs in your reports.+    stripSiteSearchCategoryParameters :: (Core.Maybe Core.Bool),+    -- | Whether or not Analytics will strip search query parameters from the URLs in your reports.+    stripSiteSearchQueryParameters :: (Core.Maybe Core.Bool),+    -- | Time zone for which this view (profile) has been configured. Time zones are identified by strings from the TZ database.+    timezone :: (Core.Maybe Core.Text),+    -- | View (Profile) type. Supported types: WEB or APP.+    type' :: (Core.Maybe Core.Text),+    -- | Time this view (profile) was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Web property ID of the form UA-XXXXX-YY to which this view (profile) belongs.+    webPropertyId :: (Core.Maybe Core.Text),+    -- | Website URL for this view (profile).+    websiteUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profile' with the minimum fields required to make a request.+newProfile ::+  Profile+newProfile =+  Profile+    { accountId = Core.Nothing,+      botFilteringEnabled = Core.Nothing,+      childLink = Core.Nothing,+      created = Core.Nothing,+      currency = Core.Nothing,+      defaultPage = Core.Nothing,+      eCommerceTracking = Core.Nothing,+      enhancedECommerceTracking = Core.Nothing,+      excludeQueryParameters = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#profile",+      name = Core.Nothing,+      parentLink = Core.Nothing,+      permissions = Core.Nothing,+      selfLink = Core.Nothing,+      siteSearchCategoryParameters = Core.Nothing,+      siteSearchQueryParameters = Core.Nothing,+      starred = Core.Nothing,+      stripSiteSearchCategoryParameters = Core.Nothing,+      stripSiteSearchQueryParameters = Core.Nothing,+      timezone = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing,+      webPropertyId = Core.Nothing,+      websiteUrl = Core.Nothing+    }++instance Core.FromJSON Profile where+  parseJSON =+    Core.withObject+      "Profile"+      ( \o ->+          Profile+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "botFilteringEnabled")+            Core.<*> (o Core..:? "childLink")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "currency")+            Core.<*> (o Core..:? "defaultPage")+            Core.<*> (o Core..:? "eCommerceTracking")+            Core.<*> (o Core..:? "enhancedECommerceTracking")+            Core.<*> (o Core..:? "excludeQueryParameters")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profile")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "permissions")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "siteSearchCategoryParameters")+            Core.<*> (o Core..:? "siteSearchQueryParameters")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "stripSiteSearchCategoryParameters")+            Core.<*> (o Core..:? "stripSiteSearchQueryParameters")+            Core.<*> (o Core..:? "timezone")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "webPropertyId")+            Core.<*> (o Core..:? "websiteUrl")+      )++instance Core.ToJSON Profile where+  toJSON Profile {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("botFilteringEnabled" Core..=) Core.<$> botFilteringEnabled,+            ("childLink" Core..=) Core.<$> childLink,+            ("created" Core..=) Core.<$> created,+            ("currency" Core..=) Core.<$> currency,+            ("defaultPage" Core..=) Core.<$> defaultPage,+            ("eCommerceTracking" Core..=) Core.<$> eCommerceTracking,+            ("enhancedECommerceTracking" Core..=)+              Core.<$> enhancedECommerceTracking,+            ("excludeQueryParameters" Core..=) Core.<$> excludeQueryParameters,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("permissions" Core..=) Core.<$> permissions,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("siteSearchCategoryParameters" Core..=)+              Core.<$> siteSearchCategoryParameters,+            ("siteSearchQueryParameters" Core..=)+              Core.<$> siteSearchQueryParameters,+            ("starred" Core..=) Core.<$> starred,+            ("stripSiteSearchCategoryParameters" Core..=)+              Core.<$> stripSiteSearchCategoryParameters,+            ("stripSiteSearchQueryParameters" Core..=)+              Core.<$> stripSiteSearchQueryParameters,+            ("timezone" Core..=) Core.<$> timezone,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated,+            ("webPropertyId" Core..=) Core.<$> webPropertyId,+            ("websiteUrl" Core..=) Core.<$> websiteUrl+          ]+      )++-- | Child link for this view (profile). Points to the list of goals for this view (profile).+--+-- /See:/ 'newProfile_ChildLink' smart constructor.+data Profile_ChildLink = Profile_ChildLink+  { -- | Link to the list of goals for this view (profile).+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#goals\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profile_ChildLink' with the minimum fields required to make a request.+newProfile_ChildLink ::+  Profile_ChildLink+newProfile_ChildLink =+  Profile_ChildLink {href = Core.Nothing, type' = "analytics#goals"}++instance Core.FromJSON Profile_ChildLink where+  parseJSON =+    Core.withObject+      "Profile_ChildLink"+      ( \o ->+          Profile_ChildLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#goals")+      )++instance Core.ToJSON Profile_ChildLink where+  toJSON Profile_ChildLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Parent link for this view (profile). Points to the web property to which this view (profile) belongs.+--+-- /See:/ 'newProfile_ParentLink' smart constructor.+data Profile_ParentLink = Profile_ParentLink+  { -- | Link to the web property to which this view (profile) belongs.+    href :: (Core.Maybe Core.Text),+    -- | Value is \"analytics#webproperty\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profile_ParentLink' with the minimum fields required to make a request.+newProfile_ParentLink ::+  Profile_ParentLink+newProfile_ParentLink =+  Profile_ParentLink+    { href = Core.Nothing,+      type' = "analytics#webproperty"+    }++instance Core.FromJSON Profile_ParentLink where+  parseJSON =+    Core.withObject+      "Profile_ParentLink"+      ( \o ->+          Profile_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#webproperty")+      )++instance Core.ToJSON Profile_ParentLink where+  toJSON Profile_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Permissions the user has for this view (profile).+--+-- /See:/ 'newProfile_Permissions' smart constructor.+newtype Profile_Permissions = Profile_Permissions+  { -- | All the permissions that the user has for this view (profile). These include any implied permissions (e.g., EDIT implies VIEW) or inherited permissions from the parent web property.+    effective :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profile_Permissions' with the minimum fields required to make a request.+newProfile_Permissions ::+  Profile_Permissions+newProfile_Permissions =+  Profile_Permissions {effective = Core.Nothing}++instance Core.FromJSON Profile_Permissions where+  parseJSON =+    Core.withObject+      "Profile_Permissions"+      (\o -> Profile_Permissions Core.<$> (o Core..:? "effective"))++instance Core.ToJSON Profile_Permissions where+  toJSON Profile_Permissions {..} =+    Core.object+      (Core.catMaybes [("effective" Core..=) Core.<$> effective])++-- | JSON template for an Analytics profile filter link.+--+-- /See:/ 'newProfileFilterLink' smart constructor.+data ProfileFilterLink = ProfileFilterLink+  { -- | Filter for this link.+    filterRef :: (Core.Maybe FilterRef),+    -- | Profile filter link ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics filter.+    kind :: Core.Text,+    -- | View (Profile) for this link.+    profileRef :: (Core.Maybe ProfileRef),+    -- | The rank of this profile filter link relative to the other filters linked to the same profile. For readonly (i.e., list and get) operations, the rank always starts at 1. For write (i.e., create, update, or delete) operations, you may specify a value between 0 and 255 inclusively, [0, 255]. In order to insert a link at the end of the list, either don\'t specify a rank or set a rank to a number greater than the largest rank in the list. In order to insert a link to the beginning of the list specify a rank that is less than or equal to 1. The new link will move all existing filters with the same or lower rank down the list. After the link is inserted\/updated\/deleted all profile filter links will be renumbered starting at 1.+    rank :: (Core.Maybe Core.Int32),+    -- | Link for this profile filter link.+    selfLink :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ProfileFilterLink' with the minimum fields required to make a request.+newProfileFilterLink ::+  ProfileFilterLink+newProfileFilterLink =+  ProfileFilterLink+    { filterRef = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#profileFilterLink",+      profileRef = Core.Nothing,+      rank = Core.Nothing,+      selfLink = Core.Nothing+    }++instance Core.FromJSON ProfileFilterLink where+  parseJSON =+    Core.withObject+      "ProfileFilterLink"+      ( \o ->+          ProfileFilterLink+            Core.<$> (o Core..:? "filterRef")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profileFilterLink")+            Core.<*> (o Core..:? "profileRef")+            Core.<*> (o Core..:? "rank")+            Core.<*> (o Core..:? "selfLink")+      )++instance Core.ToJSON ProfileFilterLink where+  toJSON ProfileFilterLink {..} =+    Core.object+      ( Core.catMaybes+          [ ("filterRef" Core..=) Core.<$> filterRef,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("profileRef" Core..=) Core.<$> profileRef,+            ("rank" Core..=) Core.<$> rank,+            ("selfLink" Core..=) Core.<$> selfLink+          ]+      )++-- | A profile filter link collection lists profile filter links between profiles and filters. Each resource in the collection corresponds to a profile filter link.+--+-- /See:/ 'newProfileFilterLinks' smart constructor.+data ProfileFilterLinks = ProfileFilterLinks+  { -- | A list of profile filter links.+    items :: (Core.Maybe [ProfileFilterLink]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1,000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this profile filter link collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this profile filter link collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ProfileFilterLinks' with the minimum fields required to make a request.+newProfileFilterLinks ::+  ProfileFilterLinks+newProfileFilterLinks =+  ProfileFilterLinks+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#profileFilterLinks",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON ProfileFilterLinks where+  parseJSON =+    Core.withObject+      "ProfileFilterLinks"+      ( \o ->+          ProfileFilterLinks+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profileFilterLinks")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON ProfileFilterLinks where+  toJSON ProfileFilterLinks {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for a linked view (profile).+--+-- /See:/ 'newProfileRef' smart constructor.+data ProfileRef = ProfileRef+  { -- | Account ID to which this view (profile) belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Link for this view (profile).+    href :: (Core.Maybe Core.Text),+    -- | View (Profile) ID.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this view (profile) belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Analytics view (profile) reference.+    kind :: Core.Text,+    -- | Name of this view (profile).+    name :: (Core.Maybe Core.Text),+    -- | Web property ID of the form UA-XXXXX-YY to which this view (profile) belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ProfileRef' with the minimum fields required to make a request.+newProfileRef ::+  ProfileRef+newProfileRef =+  ProfileRef+    { accountId = Core.Nothing,+      href = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#profileRef",+      name = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON ProfileRef where+  parseJSON =+    Core.withObject+      "ProfileRef"+      ( \o ->+          ProfileRef+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "href")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profileRef")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON ProfileRef where+  toJSON ProfileRef {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("href" Core..=) Core.<$> href,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | JSON template for an Analytics ProfileSummary. ProfileSummary returns basic information (i.e., summary) for a profile.+--+-- /See:/ 'newProfileSummary' smart constructor.+data ProfileSummary = ProfileSummary+  { -- | View (profile) ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics ProfileSummary.+    kind :: Core.Text,+    -- | View (profile) name.+    name :: (Core.Maybe Core.Text),+    -- | Indicates whether this view (profile) is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | View (Profile) type. Supported types: WEB or APP.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ProfileSummary' with the minimum fields required to make a request.+newProfileSummary ::+  ProfileSummary+newProfileSummary =+  ProfileSummary+    { id = Core.Nothing,+      kind = "analytics#profileSummary",+      name = Core.Nothing,+      starred = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON ProfileSummary where+  parseJSON =+    Core.withObject+      "ProfileSummary"+      ( \o ->+          ProfileSummary+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profileSummary")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON ProfileSummary where+  toJSON ProfileSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("starred" Core..=) Core.<$> starred,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | A view (profile) collection lists Analytics views (profiles) to which the user has access. Each resource in the collection corresponds to a single Analytics view (profile).+--+-- /See:/ 'newProfiles' smart constructor.+data Profiles = Profiles+  { -- | A list of views (profiles).+    items :: (Core.Maybe [Profile]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this view (profile) collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this view (profile) collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profiles' with the minimum fields required to make a request.+newProfiles ::+  Profiles+newProfiles =+  Profiles+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#profiles",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Profiles where+  parseJSON =+    Core.withObject+      "Profiles"+      ( \o ->+          Profiles+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#profiles")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Profiles where+  toJSON Profiles {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | Real time data for a given view (profile).+--+-- /See:/ 'newRealtimeData' smart constructor.+data RealtimeData = RealtimeData+  { -- | Column headers that list dimension names followed by the metric names. The order of dimensions and metrics is same as specified in the request.+    columnHeaders :: (Core.Maybe [RealtimeData_ColumnHeadersItem]),+    -- | Unique ID for this data response.+    id :: (Core.Maybe Core.Text),+    -- | Resource type.+    kind :: Core.Text,+    -- | Information for the view (profile), for which the real time data was requested.+    profileInfo :: (Core.Maybe RealtimeData_ProfileInfo),+    -- | Real time data request query parameters.+    query :: (Core.Maybe RealtimeData_Query),+    -- | Real time data rows, where each row contains a list of dimension values followed by the metric values. The order of dimensions and metrics is same as specified in the request.+    rows :: (Core.Maybe [[Core.Text]]),+    -- | Link to this page.+    selfLink :: (Core.Maybe Core.Text),+    -- | The total number of rows for the query, regardless of the number of rows in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+    totalsForAllResults :: (Core.Maybe RealtimeData_TotalsForAllResults)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RealtimeData' with the minimum fields required to make a request.+newRealtimeData ::+  RealtimeData+newRealtimeData =+  RealtimeData+    { columnHeaders = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#realtimeData",+      profileInfo = Core.Nothing,+      query = Core.Nothing,+      rows = Core.Nothing,+      selfLink = Core.Nothing,+      totalResults = Core.Nothing,+      totalsForAllResults = Core.Nothing+    }++instance Core.FromJSON RealtimeData where+  parseJSON =+    Core.withObject+      "RealtimeData"+      ( \o ->+          RealtimeData+            Core.<$> (o Core..:? "columnHeaders")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#realtimeData")+            Core.<*> (o Core..:? "profileInfo")+            Core.<*> (o Core..:? "query")+            Core.<*> (o Core..:? "rows")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "totalsForAllResults")+      )++instance Core.ToJSON RealtimeData where+  toJSON RealtimeData {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnHeaders" Core..=) Core.<$> columnHeaders,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("profileInfo" Core..=) Core.<$> profileInfo,+            ("query" Core..=) Core.<$> query,+            ("rows" Core..=) Core.<$> rows,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("totalsForAllResults" Core..=) Core.<$> totalsForAllResults+          ]+      )++--+-- /See:/ 'newRealtimeData_ColumnHeadersItem' smart constructor.+data RealtimeData_ColumnHeadersItem = RealtimeData_ColumnHeadersItem+  { -- | Column Type. Either DIMENSION or METRIC.+    columnType :: (Core.Maybe Core.Text),+    -- | Data type. Dimension column headers have only STRING as the data type. Metric column headers have data types for metric values such as INTEGER, DOUBLE, CURRENCY etc.+    dataType :: (Core.Maybe Core.Text),+    -- | Column name.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RealtimeData_ColumnHeadersItem' with the minimum fields required to make a request.+newRealtimeData_ColumnHeadersItem ::+  RealtimeData_ColumnHeadersItem+newRealtimeData_ColumnHeadersItem =+  RealtimeData_ColumnHeadersItem+    { columnType = Core.Nothing,+      dataType = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON RealtimeData_ColumnHeadersItem where+  parseJSON =+    Core.withObject+      "RealtimeData_ColumnHeadersItem"+      ( \o ->+          RealtimeData_ColumnHeadersItem+            Core.<$> (o Core..:? "columnType")+            Core.<*> (o Core..:? "dataType")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON RealtimeData_ColumnHeadersItem where+  toJSON RealtimeData_ColumnHeadersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("columnType" Core..=) Core.<$> columnType,+            ("dataType" Core..=) Core.<$> dataType,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | Information for the view (profile), for which the real time data was requested.+--+-- /See:/ 'newRealtimeData_ProfileInfo' smart constructor.+data RealtimeData_ProfileInfo = RealtimeData_ProfileInfo+  { -- | Account ID to which this view (profile) belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this view (profile) belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | View (Profile) ID.+    profileId :: (Core.Maybe Core.Text),+    -- | View (Profile) name.+    profileName :: (Core.Maybe Core.Text),+    -- | Table ID for view (profile).+    tableId :: (Core.Maybe Core.Text),+    -- | Web Property ID to which this view (profile) belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RealtimeData_ProfileInfo' with the minimum fields required to make a request.+newRealtimeData_ProfileInfo ::+  RealtimeData_ProfileInfo+newRealtimeData_ProfileInfo =+  RealtimeData_ProfileInfo+    { accountId = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      profileId = Core.Nothing,+      profileName = Core.Nothing,+      tableId = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON RealtimeData_ProfileInfo where+  parseJSON =+    Core.withObject+      "RealtimeData_ProfileInfo"+      ( \o ->+          RealtimeData_ProfileInfo+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "profileName")+            Core.<*> (o Core..:? "tableId")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON RealtimeData_ProfileInfo where+  toJSON RealtimeData_ProfileInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            ("profileId" Core..=) Core.<$> profileId,+            ("profileName" Core..=) Core.<$> profileName,+            ("tableId" Core..=) Core.<$> tableId,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Real time data request query parameters.+--+-- /See:/ 'newRealtimeData_Query' smart constructor.+data RealtimeData_Query = RealtimeData_Query+  { -- | List of real time dimensions.+    dimensions :: (Core.Maybe Core.Text),+    -- | Comma-separated list of dimension or metric filters.+    filters :: (Core.Maybe Core.Text),+    -- | Unique table ID.+    ids :: (Core.Maybe Core.Text),+    -- | Maximum results per page.+    maxResults :: (Core.Maybe Core.Int32),+    -- | List of real time metrics.+    metrics :: (Core.Maybe [Core.Text]),+    -- | List of dimensions or metrics based on which real time data is sorted.+    sort :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RealtimeData_Query' with the minimum fields required to make a request.+newRealtimeData_Query ::+  RealtimeData_Query+newRealtimeData_Query =+  RealtimeData_Query+    { dimensions = Core.Nothing,+      filters = Core.Nothing,+      ids = Core.Nothing,+      maxResults = Core.Nothing,+      metrics = Core.Nothing,+      sort = Core.Nothing+    }++instance Core.FromJSON RealtimeData_Query where+  parseJSON =+    Core.withObject+      "RealtimeData_Query"+      ( \o ->+          RealtimeData_Query+            Core.<$> (o Core..:? "dimensions")+            Core.<*> (o Core..:? "filters")+            Core.<*> (o Core..:? "ids")+            Core.<*> (o Core..:? "max-results")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "sort")+      )++instance Core.ToJSON RealtimeData_Query where+  toJSON RealtimeData_Query {..} =+    Core.object+      ( Core.catMaybes+          [ ("dimensions" Core..=) Core.<$> dimensions,+            ("filters" Core..=) Core.<$> filters,+            ("ids" Core..=) Core.<$> ids,+            ("max-results" Core..=) Core.<$> maxResults,+            ("metrics" Core..=) Core.<$> metrics,+            ("sort" Core..=) Core.<$> sort+          ]+      )++-- | Total values for the requested metrics over all the results, not just the results returned in this response. The order of the metric totals is same as the metric order specified in the request.+--+-- /See:/ 'newRealtimeData_TotalsForAllResults' smart constructor.+newtype RealtimeData_TotalsForAllResults = RealtimeData_TotalsForAllResults+  { -- | Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric.+    additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RealtimeData_TotalsForAllResults' with the minimum fields required to make a request.+newRealtimeData_TotalsForAllResults ::+  -- |  Key-value pair for the total value of a metric. Key is the metric name and the value is the total value for that metric. See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  RealtimeData_TotalsForAllResults+newRealtimeData_TotalsForAllResults additional =+  RealtimeData_TotalsForAllResults {additional = additional}++instance Core.FromJSON RealtimeData_TotalsForAllResults where+  parseJSON =+    Core.withObject+      "RealtimeData_TotalsForAllResults"+      ( \o ->+          RealtimeData_TotalsForAllResults Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON RealtimeData_TotalsForAllResults where+  toJSON RealtimeData_TotalsForAllResults {..} =+    Core.toJSON additional++-- | JSON template for an Analytics remarketing audience.+--+-- /See:/ 'newRemarketingAudience' smart constructor.+data RemarketingAudience = RemarketingAudience+  { -- | Account ID to which this remarketing audience belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | The simple audience definition that will cause a user to be added to an audience.+    audienceDefinition :: (Core.Maybe RemarketingAudience_AudienceDefinition),+    -- | The type of audience, either SIMPLE or STATE_BASED.+    audienceType :: (Core.Maybe Core.Text),+    -- | Time this remarketing audience was created.+    created :: (Core.Maybe Core.DateTime),+    -- | The description of this remarketing audience.+    description :: (Core.Maybe Core.Text),+    -- | Remarketing Audience ID.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for the web property to which this remarketing audience belongs.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Collection type.+    kind :: Core.Text,+    -- | The linked ad accounts associated with this remarketing audience. A remarketing audience can have only one linkedAdAccount currently.+    linkedAdAccounts :: (Core.Maybe [LinkedForeignAccount]),+    -- | The views (profiles) that this remarketing audience is linked to.+    linkedViews :: (Core.Maybe [Core.Text]),+    -- | The name of this remarketing audience.+    name :: (Core.Maybe Core.Text),+    -- | A state based audience definition that will cause a user to be added or removed from an audience.+    stateBasedAudienceDefinition :: (Core.Maybe RemarketingAudience_StateBasedAudienceDefinition),+    -- | Time this remarketing audience was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Web property ID of the form UA-XXXXX-YY to which this remarketing audience belongs.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RemarketingAudience' with the minimum fields required to make a request.+newRemarketingAudience ::+  RemarketingAudience+newRemarketingAudience =+  RemarketingAudience+    { accountId = Core.Nothing,+      audienceDefinition = Core.Nothing,+      audienceType = Core.Nothing,+      created = Core.Nothing,+      description = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#remarketingAudience",+      linkedAdAccounts = Core.Nothing,+      linkedViews = Core.Nothing,+      name = Core.Nothing,+      stateBasedAudienceDefinition = Core.Nothing,+      updated = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON RemarketingAudience where+  parseJSON =+    Core.withObject+      "RemarketingAudience"+      ( \o ->+          RemarketingAudience+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "audienceDefinition")+            Core.<*> (o Core..:? "audienceType")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#remarketingAudience")+            Core.<*> (o Core..:? "linkedAdAccounts")+            Core.<*> (o Core..:? "linkedViews")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "stateBasedAudienceDefinition")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON RemarketingAudience where+  toJSON RemarketingAudience {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("audienceDefinition" Core..=) Core.<$> audienceDefinition,+            ("audienceType" Core..=) Core.<$> audienceType,+            ("created" Core..=) Core.<$> created,+            ("description" Core..=) Core.<$> description,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("linkedAdAccounts" Core..=) Core.<$> linkedAdAccounts,+            ("linkedViews" Core..=) Core.<$> linkedViews,+            ("name" Core..=) Core.<$> name,+            ("stateBasedAudienceDefinition" Core..=)+              Core.<$> stateBasedAudienceDefinition,+            ("updated" Core..=) Core.<$> updated,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | The simple audience definition that will cause a user to be added to an audience.+--+-- /See:/ 'newRemarketingAudience_AudienceDefinition' smart constructor.+newtype RemarketingAudience_AudienceDefinition = RemarketingAudience_AudienceDefinition+  { -- | Defines the conditions to include users to the audience.+    includeConditions :: (Core.Maybe IncludeConditions)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RemarketingAudience_AudienceDefinition' with the minimum fields required to make a request.+newRemarketingAudience_AudienceDefinition ::+  RemarketingAudience_AudienceDefinition+newRemarketingAudience_AudienceDefinition =+  RemarketingAudience_AudienceDefinition+    { includeConditions =+        Core.Nothing+    }++instance Core.FromJSON RemarketingAudience_AudienceDefinition where+  parseJSON =+    Core.withObject+      "RemarketingAudience_AudienceDefinition"+      ( \o ->+          RemarketingAudience_AudienceDefinition+            Core.<$> (o Core..:? "includeConditions")+      )++instance Core.ToJSON RemarketingAudience_AudienceDefinition where+  toJSON RemarketingAudience_AudienceDefinition {..} =+    Core.object+      ( Core.catMaybes+          [("includeConditions" Core..=) Core.<$> includeConditions]+      )++-- | A state based audience definition that will cause a user to be added or removed from an audience.+--+-- /See:/ 'newRemarketingAudience_StateBasedAudienceDefinition' smart constructor.+data RemarketingAudience_StateBasedAudienceDefinition = RemarketingAudience_StateBasedAudienceDefinition+  { -- | Defines the conditions to exclude users from the audience.+    excludeConditions ::+      ( Core.Maybe+          RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+      ),+    -- | Defines the conditions to include users to the audience.+    includeConditions :: (Core.Maybe IncludeConditions)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RemarketingAudience_StateBasedAudienceDefinition' with the minimum fields required to make a request.+newRemarketingAudience_StateBasedAudienceDefinition ::+  RemarketingAudience_StateBasedAudienceDefinition+newRemarketingAudience_StateBasedAudienceDefinition =+  RemarketingAudience_StateBasedAudienceDefinition+    { excludeConditions =+        Core.Nothing,+      includeConditions = Core.Nothing+    }++instance+  Core.FromJSON+    RemarketingAudience_StateBasedAudienceDefinition+  where+  parseJSON =+    Core.withObject+      "RemarketingAudience_StateBasedAudienceDefinition"+      ( \o ->+          RemarketingAudience_StateBasedAudienceDefinition+            Core.<$> (o Core..:? "excludeConditions")+            Core.<*> (o Core..:? "includeConditions")+      )++instance+  Core.ToJSON+    RemarketingAudience_StateBasedAudienceDefinition+  where+  toJSON RemarketingAudience_StateBasedAudienceDefinition {..} =+    Core.object+      ( Core.catMaybes+          [ ("excludeConditions" Core..=) Core.<$> excludeConditions,+            ("includeConditions" Core..=) Core.<$> includeConditions+          ]+      )++-- | Defines the conditions to exclude users from the audience.+--+-- /See:/ 'newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions' smart constructor.+data RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions = RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+  { -- | Whether to make the exclusion TEMPORARY or PERMANENT.+    exclusionDuration :: (Core.Maybe Core.Text),+    -- | The segment condition that will cause a user to be removed from an audience.+    segment :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions' with the minimum fields required to make a request.+newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions ::+  RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions =+  RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+    { exclusionDuration =+        Core.Nothing,+      segment = Core.Nothing+    }++instance+  Core.FromJSON+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+  where+  parseJSON =+    Core.withObject+      "RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions"+      ( \o ->+          RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+            Core.<$> (o Core..:? "exclusionDuration")+            Core.<*> (o Core..:? "segment")+      )++instance+  Core.ToJSON+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+  where+  toJSON+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions {..} =+      Core.object+        ( Core.catMaybes+            [ ("exclusionDuration" Core..=) Core.<$> exclusionDuration,+              ("segment" Core..=) Core.<$> segment+            ]+        )++-- | A remarketing audience collection lists Analytics remarketing audiences to which the user has access. Each resource in the collection corresponds to a single Analytics remarketing audience.+--+-- /See:/ 'newRemarketingAudiences' smart constructor.+data RemarketingAudiences = RemarketingAudiences+  { -- | A list of remarketing audiences.+    items :: (Core.Maybe [RemarketingAudience]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this remarketing audience collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this view (profile) collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RemarketingAudiences' with the minimum fields required to make a request.+newRemarketingAudiences ::+  RemarketingAudiences+newRemarketingAudiences =+  RemarketingAudiences+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#remarketingAudiences",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON RemarketingAudiences where+  parseJSON =+    Core.withObject+      "RemarketingAudiences"+      ( \o ->+          RemarketingAudiences+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#remarketingAudiences")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON RemarketingAudiences where+  toJSON RemarketingAudiences {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for an Analytics segment.+--+-- /See:/ 'newSegment' smart constructor.+data Segment = Segment+  { -- | Time the segment was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Segment definition.+    definition :: (Core.Maybe Core.Text),+    -- | Segment ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics segment.+    kind :: Core.Text,+    -- | Segment name.+    name :: (Core.Maybe Core.Text),+    -- | Segment ID. Can be used with the \'segment\' parameter in Core Reporting API.+    segmentId :: (Core.Maybe Core.Text),+    -- | Link for this segment.+    selfLink :: (Core.Maybe Core.Text),+    -- | Type for a segment. Possible values are \"BUILT_IN\" or \"CUSTOM\".+    type' :: (Core.Maybe Core.Text),+    -- | Time the segment was last modified.+    updated :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Segment' with the minimum fields required to make a request.+newSegment ::+  Segment+newSegment =+  Segment+    { created = Core.Nothing,+      definition = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#segment",+      name = Core.Nothing,+      segmentId = Core.Nothing,+      selfLink = Core.Nothing,+      type' = Core.Nothing,+      updated = Core.Nothing+    }++instance Core.FromJSON Segment where+  parseJSON =+    Core.withObject+      "Segment"+      ( \o ->+          Segment+            Core.<$> (o Core..:? "created")+            Core.<*> (o Core..:? "definition")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#segment")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "segmentId")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updated")+      )++instance Core.ToJSON Segment where+  toJSON Segment {..} =+    Core.object+      ( Core.catMaybes+          [ ("created" Core..=) Core.<$> created,+            ("definition" Core..=) Core.<$> definition,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("segmentId" Core..=) Core.<$> segmentId,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("type" Core..=) Core.<$> type',+            ("updated" Core..=) Core.<$> updated+          ]+      )++-- | An segment collection lists Analytics segments that the user has access to. Each resource in the collection corresponds to a single Analytics segment.+--+-- /See:/ 'newSegments' smart constructor.+data Segments = Segments+  { -- | A list of segments.+    items :: (Core.Maybe [Segment]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type for segments.+    kind :: Core.Text,+    -- | Link to next page for this segment collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this segment collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Segments' with the minimum fields required to make a request.+newSegments ::+  Segments+newSegments =+  Segments+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#segments",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Segments where+  parseJSON =+    Core.withObject+      "Segments"+      ( \o ->+          Segments+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#segments")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Segments where+  toJSON Segments {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for Analytics unsampled report resource.+--+-- /See:/ 'newUnsampledReport' smart constructor.+data UnsampledReport = UnsampledReport+  { -- | Account ID to which this unsampled report belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Download details for a file stored in Google Cloud Storage.+    cloudStorageDownloadDetails :: (Core.Maybe UnsampledReport_CloudStorageDownloadDetails),+    -- | Time this unsampled report was created.+    created :: (Core.Maybe Core.DateTime),+    -- | The dimensions for the unsampled report.+    dimensions :: (Core.Maybe Core.Text),+    -- | The type of download you need to use for the report data file. Possible values include @GOOGLE_DRIVE@ and @GOOGLE_CLOUD_STORAGE@. If the value is @GOOGLE_DRIVE@, see the @driveDownloadDetails@ field. If the value is @GOOGLE_CLOUD_STORAGE@, see the @cloudStorageDownloadDetails@ field.+    downloadType :: (Core.Maybe Core.Text),+    -- | Download details for a file stored in Google Drive.+    driveDownloadDetails :: (Core.Maybe UnsampledReport_DriveDownloadDetails),+    -- | The end date for the unsampled report.+    endDate :: (Core.Maybe Core.Text),+    -- | The filters for the unsampled report.+    filters :: (Core.Maybe Core.Text),+    -- | Unsampled report ID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for an Analytics unsampled report.+    kind :: Core.Text,+    -- | The metrics for the unsampled report.+    metrics :: (Core.Maybe Core.Text),+    -- | View (Profile) ID to which this unsampled report belongs.+    profileId :: (Core.Maybe Core.Text),+    -- | The segment for the unsampled report.+    segment :: (Core.Maybe Core.Text),+    -- | Link for this unsampled report.+    selfLink :: (Core.Maybe Core.Text),+    -- | The start date for the unsampled report.+    startDate :: (Core.Maybe Core.Text),+    -- | Status of this unsampled report. Possible values are PENDING, COMPLETED, or FAILED.+    status :: (Core.Maybe Core.Text),+    -- | Title of the unsampled report.+    title :: (Core.Maybe Core.Text),+    -- | Time this unsampled report was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Web property ID to which this unsampled report belongs. The web property ID is of the form UA-XXXXX-YY.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UnsampledReport' with the minimum fields required to make a request.+newUnsampledReport ::+  UnsampledReport+newUnsampledReport =+  UnsampledReport+    { accountId = Core.Nothing,+      cloudStorageDownloadDetails = Core.Nothing,+      created = Core.Nothing,+      dimensions = Core.Nothing,+      downloadType = Core.Nothing,+      driveDownloadDetails = Core.Nothing,+      endDate = Core.Nothing,+      filters = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#unsampledReport",+      metrics = Core.Nothing,+      profileId = Core.Nothing,+      segment = Core.Nothing,+      selfLink = Core.Nothing,+      startDate = Core.Nothing,+      status = Core.Nothing,+      title = Core.Nothing,+      updated = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON UnsampledReport where+  parseJSON =+    Core.withObject+      "UnsampledReport"+      ( \o ->+          UnsampledReport+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "cloudStorageDownloadDetails")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "dimensions")+            Core.<*> (o Core..:? "downloadType")+            Core.<*> (o Core..:? "driveDownloadDetails")+            Core.<*> (o Core..:? "end-date")+            Core.<*> (o Core..:? "filters")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#unsampledReport")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "profileId")+            Core.<*> (o Core..:? "segment")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "start-date")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON UnsampledReport where+  toJSON UnsampledReport {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("cloudStorageDownloadDetails" Core..=)+              Core.<$> cloudStorageDownloadDetails,+            ("created" Core..=) Core.<$> created,+            ("dimensions" Core..=) Core.<$> dimensions,+            ("downloadType" Core..=) Core.<$> downloadType,+            ("driveDownloadDetails" Core..=) Core.<$> driveDownloadDetails,+            ("end-date" Core..=) Core.<$> endDate,+            ("filters" Core..=) Core.<$> filters,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("metrics" Core..=) Core.<$> metrics,+            ("profileId" Core..=) Core.<$> profileId,+            ("segment" Core..=) Core.<$> segment,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("start-date" Core..=) Core.<$> startDate,+            ("status" Core..=) Core.<$> status,+            ("title" Core..=) Core.<$> title,+            ("updated" Core..=) Core.<$> updated,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | Download details for a file stored in Google Cloud Storage.+--+-- /See:/ 'newUnsampledReport_CloudStorageDownloadDetails' smart constructor.+data UnsampledReport_CloudStorageDownloadDetails = UnsampledReport_CloudStorageDownloadDetails+  { -- | Id of the bucket the file object is stored in.+    bucketId :: (Core.Maybe Core.Text),+    -- | Id of the file object containing the report data.+    objectId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UnsampledReport_CloudStorageDownloadDetails' with the minimum fields required to make a request.+newUnsampledReport_CloudStorageDownloadDetails ::+  UnsampledReport_CloudStorageDownloadDetails+newUnsampledReport_CloudStorageDownloadDetails =+  UnsampledReport_CloudStorageDownloadDetails+    { bucketId =+        Core.Nothing,+      objectId = Core.Nothing+    }++instance Core.FromJSON UnsampledReport_CloudStorageDownloadDetails where+  parseJSON =+    Core.withObject+      "UnsampledReport_CloudStorageDownloadDetails"+      ( \o ->+          UnsampledReport_CloudStorageDownloadDetails+            Core.<$> (o Core..:? "bucketId")+            Core.<*> (o Core..:? "objectId")+      )++instance Core.ToJSON UnsampledReport_CloudStorageDownloadDetails where+  toJSON UnsampledReport_CloudStorageDownloadDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("bucketId" Core..=) Core.<$> bucketId,+            ("objectId" Core..=) Core.<$> objectId+          ]+      )++-- | Download details for a file stored in Google Drive.+--+-- /See:/ 'newUnsampledReport_DriveDownloadDetails' smart constructor.+newtype UnsampledReport_DriveDownloadDetails = UnsampledReport_DriveDownloadDetails+  { -- | Id of the document\/file containing the report data.+    documentId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UnsampledReport_DriveDownloadDetails' with the minimum fields required to make a request.+newUnsampledReport_DriveDownloadDetails ::+  UnsampledReport_DriveDownloadDetails+newUnsampledReport_DriveDownloadDetails =+  UnsampledReport_DriveDownloadDetails {documentId = Core.Nothing}++instance Core.FromJSON UnsampledReport_DriveDownloadDetails where+  parseJSON =+    Core.withObject+      "UnsampledReport_DriveDownloadDetails"+      ( \o ->+          UnsampledReport_DriveDownloadDetails+            Core.<$> (o Core..:? "documentId")+      )++instance Core.ToJSON UnsampledReport_DriveDownloadDetails where+  toJSON UnsampledReport_DriveDownloadDetails {..} =+    Core.object+      (Core.catMaybes [("documentId" Core..=) Core.<$> documentId])++-- | An unsampled report collection lists Analytics unsampled reports to which the user has access. Each view (profile) can have a set of unsampled reports. Each resource in the unsampled report collection corresponds to a single Analytics unsampled report.+--+-- /See:/ 'newUnsampledReports' smart constructor.+data UnsampledReports = UnsampledReports+  { -- | A list of unsampled reports.+    items :: (Core.Maybe [UnsampledReport]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this unsampled report collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this unsampled report collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of resources in the result.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UnsampledReports' with the minimum fields required to make a request.+newUnsampledReports ::+  UnsampledReports+newUnsampledReports =+  UnsampledReports+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#unsampledReports",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON UnsampledReports where+  parseJSON =+    Core.withObject+      "UnsampledReports"+      ( \o ->+          UnsampledReports+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#unsampledReports")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON UnsampledReports where+  toJSON UnsampledReports {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | Metadata returned for an upload operation.+--+-- /See:/ 'newUpload' smart constructor.+data Upload = Upload+  { -- | Account Id to which this upload belongs.+    accountId :: (Core.Maybe Core.Int64),+    -- | Custom data source Id to which this data import belongs.+    customDataSourceId :: (Core.Maybe Core.Text),+    -- | Data import errors collection.+    errors :: (Core.Maybe [Core.Text]),+    -- | A unique ID for this upload.+    id :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics upload.+    kind :: Core.Text,+    -- | Upload status. Possible values: PENDING, COMPLETED, FAILED, DELETING, DELETED.+    status :: (Core.Maybe Core.Text),+    -- | Time this file is uploaded.+    uploadTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Upload' with the minimum fields required to make a request.+newUpload ::+  Upload+newUpload =+  Upload+    { accountId = Core.Nothing,+      customDataSourceId = Core.Nothing,+      errors = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#upload",+      status = Core.Nothing,+      uploadTime = Core.Nothing+    }++instance Core.FromJSON Upload where+  parseJSON =+    Core.withObject+      "Upload"+      ( \o ->+          Upload+            Core.<$> (o Core..:? "accountId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "customDataSourceId")+            Core.<*> (o Core..:? "errors")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#upload")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "uploadTime")+      )++instance Core.ToJSON Upload where+  toJSON Upload {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.. Core.AsText Core.<$> accountId,+            ("customDataSourceId" Core..=) Core.<$> customDataSourceId,+            ("errors" Core..=) Core.<$> errors,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("status" Core..=) Core.<$> status,+            ("uploadTime" Core..=) Core.<$> uploadTime+          ]+      )++-- | Upload collection lists Analytics uploads to which the user has access. Each custom data source can have a set of uploads. Each resource in the upload collection corresponds to a single Analytics data upload.+--+-- /See:/ 'newUploads' smart constructor.+data Uploads = Uploads+  { -- | A list of uploads.+    items :: (Core.Maybe [Upload]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this upload collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this upload collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of resources in the result.+    totalResults :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Uploads' with the minimum fields required to make a request.+newUploads ::+  Uploads+newUploads =+  Uploads+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#uploads",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing+    }++instance Core.FromJSON Uploads where+  parseJSON =+    Core.withObject+      "Uploads"+      ( \o ->+          Uploads+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#uploads")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+      )++instance Core.ToJSON Uploads where+  toJSON Uploads {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults+          ]+      )++-- | JSON template for a user deletion request resource.+--+-- /See:/ 'newUserDeletionRequest' smart constructor.+data UserDeletionRequest = UserDeletionRequest+  { -- | This marks the point in time for which all user data before should be deleted+    deletionRequestTime :: (Core.Maybe Core.DateTime),+    -- | Firebase Project Id+    firebaseProjectId :: (Core.Maybe Core.Text),+    -- | User ID.+    id :: (Core.Maybe UserDeletionRequest_Id),+    -- | Value is \"analytics#userDeletionRequest\".+    kind :: Core.Text,+    -- | Property ID+    propertyId :: (Core.Maybe Core.Text),+    -- | Web property ID of the form UA-XXXXX-YY.+    webPropertyId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserDeletionRequest' with the minimum fields required to make a request.+newUserDeletionRequest ::+  UserDeletionRequest+newUserDeletionRequest =+  UserDeletionRequest+    { deletionRequestTime = Core.Nothing,+      firebaseProjectId = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#userDeletionRequest",+      propertyId = Core.Nothing,+      webPropertyId = Core.Nothing+    }++instance Core.FromJSON UserDeletionRequest where+  parseJSON =+    Core.withObject+      "UserDeletionRequest"+      ( \o ->+          UserDeletionRequest+            Core.<$> (o Core..:? "deletionRequestTime")+            Core.<*> (o Core..:? "firebaseProjectId")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#userDeletionRequest")+            Core.<*> (o Core..:? "propertyId")+            Core.<*> (o Core..:? "webPropertyId")+      )++instance Core.ToJSON UserDeletionRequest where+  toJSON UserDeletionRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("deletionRequestTime" Core..=) Core.<$> deletionRequestTime,+            ("firebaseProjectId" Core..=) Core.<$> firebaseProjectId,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("propertyId" Core..=) Core.<$> propertyId,+            ("webPropertyId" Core..=) Core.<$> webPropertyId+          ]+      )++-- | User ID.+--+-- /See:/ 'newUserDeletionRequest_Id' smart constructor.+data UserDeletionRequest_Id = UserDeletionRequest_Id+  { -- | Type of user+    type' :: (Core.Maybe Core.Text),+    -- | The User\'s id+    userId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserDeletionRequest_Id' with the minimum fields required to make a request.+newUserDeletionRequest_Id ::+  UserDeletionRequest_Id+newUserDeletionRequest_Id =+  UserDeletionRequest_Id+    { type' = Core.Nothing,+      userId = Core.Nothing+    }++instance Core.FromJSON UserDeletionRequest_Id where+  parseJSON =+    Core.withObject+      "UserDeletionRequest_Id"+      ( \o ->+          UserDeletionRequest_Id+            Core.<$> (o Core..:? "type")+            Core.<*> (o Core..:? "userId")+      )++instance Core.ToJSON UserDeletionRequest_Id where+  toJSON UserDeletionRequest_Id {..} =+    Core.object+      ( Core.catMaybes+          [ ("type" Core..=) Core.<$> type',+            ("userId" Core..=) Core.<$> userId+          ]+      )++-- | JSON template for a user reference.+--+-- /See:/ 'newUserRef' smart constructor.+data UserRef = UserRef+  { -- | Email ID of this user.+    email :: (Core.Maybe Core.Text),+    -- | User ID.+    id :: (Core.Maybe Core.Text),+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserRef' with the minimum fields required to make a request.+newUserRef ::+  UserRef+newUserRef =+  UserRef+    { email = Core.Nothing,+      id = Core.Nothing,+      kind = "analytics#userRef"+    }++instance Core.FromJSON UserRef where+  parseJSON =+    Core.withObject+      "UserRef"+      ( \o ->+          UserRef+            Core.<$> (o Core..:? "email")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#userRef")+      )++instance Core.ToJSON UserRef where+  toJSON UserRef {..} =+    Core.object+      ( Core.catMaybes+          [ ("email" Core..=) Core.<$> email,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | JSON template for a web property reference.+--+-- /See:/ 'newWebPropertyRef' smart constructor.+data WebPropertyRef = WebPropertyRef+  { -- | Account ID to which this web property belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Link for this web property.+    href :: (Core.Maybe Core.Text),+    -- | Web property ID of the form UA-XXXXX-YY.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for this web property.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Analytics web property reference.+    kind :: Core.Text,+    -- | Name of this web property.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WebPropertyRef' with the minimum fields required to make a request.+newWebPropertyRef ::+  WebPropertyRef+newWebPropertyRef =+  WebPropertyRef+    { accountId = Core.Nothing,+      href = Core.Nothing,+      id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#webPropertyRef",+      name = Core.Nothing+    }++instance Core.FromJSON WebPropertyRef where+  parseJSON =+    Core.withObject+      "WebPropertyRef"+      ( \o ->+          WebPropertyRef+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "href")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#webPropertyRef")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON WebPropertyRef where+  toJSON WebPropertyRef {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("href" Core..=) Core.<$> href,+            ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name+          ]+      )++-- | JSON template for an Analytics WebPropertySummary. WebPropertySummary returns basic information (i.e., summary) for a web property.+--+-- /See:/ 'newWebPropertySummary' smart constructor.+data WebPropertySummary = WebPropertySummary+  { -- | Web property ID of the form UA-XXXXX-YY.+    id :: (Core.Maybe Core.Text),+    -- | Internal ID for this web property.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics WebPropertySummary.+    kind :: Core.Text,+    -- | Level for this web property. Possible values are STANDARD or PREMIUM.+    level :: (Core.Maybe Core.Text),+    -- | Web property name.+    name :: (Core.Maybe Core.Text),+    -- | List of profiles under this web property.+    profiles :: (Core.Maybe [ProfileSummary]),+    -- | Indicates whether this web property is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | Website url for this web property.+    websiteUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WebPropertySummary' with the minimum fields required to make a request.+newWebPropertySummary ::+  WebPropertySummary+newWebPropertySummary =+  WebPropertySummary+    { id = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#webPropertySummary",+      level = Core.Nothing,+      name = Core.Nothing,+      profiles = Core.Nothing,+      starred = Core.Nothing,+      websiteUrl = Core.Nothing+    }++instance Core.FromJSON WebPropertySummary where+  parseJSON =+    Core.withObject+      "WebPropertySummary"+      ( \o ->+          WebPropertySummary+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#webPropertySummary")+            Core.<*> (o Core..:? "level")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "profiles")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "websiteUrl")+      )++instance Core.ToJSON WebPropertySummary where+  toJSON WebPropertySummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("level" Core..=) Core.<$> level,+            ("name" Core..=) Core.<$> name,+            ("profiles" Core..=) Core.<$> profiles,+            ("starred" Core..=) Core.<$> starred,+            ("websiteUrl" Core..=) Core.<$> websiteUrl+          ]+      )++-- | A web property collection lists Analytics web properties to which the user has access. Each resource in the collection corresponds to a single Analytics web property.+--+-- /See:/ 'newWebproperties' smart constructor.+data Webproperties = Webproperties+  { -- | A list of web properties.+    items :: (Core.Maybe [Webproperty]),+    -- | The maximum number of resources the response can contain, regardless of the actual number of resources returned. Its value ranges from 1 to 1000 with a value of 1000 by default, or otherwise specified by the max-results query parameter.+    itemsPerPage :: (Core.Maybe Core.Int32),+    -- | Collection type.+    kind :: Core.Text,+    -- | Link to next page for this web property collection.+    nextLink :: (Core.Maybe Core.Text),+    -- | Link to previous page for this web property collection.+    previousLink :: (Core.Maybe Core.Text),+    -- | The starting index of the resources, which is 1 by default or otherwise specified by the start-index query parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | The total number of results for the query, regardless of the number of results in the response.+    totalResults :: (Core.Maybe Core.Int32),+    -- | Email ID of the authenticated user+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Webproperties' with the minimum fields required to make a request.+newWebproperties ::+  Webproperties+newWebproperties =+  Webproperties+    { items = Core.Nothing,+      itemsPerPage = Core.Nothing,+      kind = "analytics#webproperties",+      nextLink = Core.Nothing,+      previousLink = Core.Nothing,+      startIndex = Core.Nothing,+      totalResults = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON Webproperties where+  parseJSON =+    Core.withObject+      "Webproperties"+      ( \o ->+          Webproperties+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "itemsPerPage")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#webproperties")+            Core.<*> (o Core..:? "nextLink")+            Core.<*> (o Core..:? "previousLink")+            Core.<*> (o Core..:? "startIndex")+            Core.<*> (o Core..:? "totalResults")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON Webproperties where+  toJSON Webproperties {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("itemsPerPage" Core..=) Core.<$> itemsPerPage,+            Core.Just ("kind" Core..= kind),+            ("nextLink" Core..=) Core.<$> nextLink,+            ("previousLink" Core..=) Core.<$> previousLink,+            ("startIndex" Core..=) Core.<$> startIndex,+            ("totalResults" Core..=) Core.<$> totalResults,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for an Analytics web property.+--+-- /See:/ 'newWebproperty' smart constructor.+data Webproperty = Webproperty+  { -- | Account ID to which this web property belongs.+    accountId :: (Core.Maybe Core.Text),+    -- | Child link for this web property. Points to the list of views (profiles) for this web property.+    childLink :: (Core.Maybe Webproperty_ChildLink),+    -- | Time this web property was created.+    created :: (Core.Maybe Core.DateTime),+    -- | Set to true to reset the retention period of the user identifier with each new event from that user (thus setting the expiration date to current time plus retention period). Set to false to delete data associated with the user identifier automatically after the rentention period. This property cannot be set on insert.+    dataRetentionResetOnNewActivity :: (Core.Maybe Core.Bool),+    -- | The length of time for which user and event data is retained. This property cannot be set on insert.+    dataRetentionTtl :: (Core.Maybe Core.Text),+    -- | Default view (profile) ID.+    defaultProfileId :: (Core.Maybe Core.Int64),+    -- | Web property ID of the form UA-XXXXX-YY.+    id :: (Core.Maybe Core.Text),+    -- | The industry vertical\/category selected for this web property.+    industryVertical :: (Core.Maybe Core.Text),+    -- | Internal ID for this web property.+    internalWebPropertyId :: (Core.Maybe Core.Text),+    -- | Resource type for Analytics WebProperty.+    kind :: Core.Text,+    -- | Level for this web property. Possible values are STANDARD or PREMIUM.+    level :: (Core.Maybe Core.Text),+    -- | Name of this web property.+    name :: (Core.Maybe Core.Text),+    -- | Parent link for this web property. Points to the account to which this web property belongs.+    parentLink :: (Core.Maybe Webproperty_ParentLink),+    -- | Permissions the user has for this web property.+    permissions :: (Core.Maybe Webproperty_Permissions),+    -- | View (Profile) count for this web property.+    profileCount :: (Core.Maybe Core.Int32),+    -- | Link for this web property.+    selfLink :: (Core.Maybe Core.Text),+    -- | Indicates whether this web property is starred or not.+    starred :: (Core.Maybe Core.Bool),+    -- | Time this web property was last modified.+    updated :: (Core.Maybe Core.DateTime),+    -- | Website url for this web property.+    websiteUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Webproperty' with the minimum fields required to make a request.+newWebproperty ::+  Webproperty+newWebproperty =+  Webproperty+    { accountId = Core.Nothing,+      childLink = Core.Nothing,+      created = Core.Nothing,+      dataRetentionResetOnNewActivity = Core.Nothing,+      dataRetentionTtl = Core.Nothing,+      defaultProfileId = Core.Nothing,+      id = Core.Nothing,+      industryVertical = Core.Nothing,+      internalWebPropertyId = Core.Nothing,+      kind = "analytics#webproperty",+      level = Core.Nothing,+      name = Core.Nothing,+      parentLink = Core.Nothing,+      permissions = Core.Nothing,+      profileCount = Core.Nothing,+      selfLink = Core.Nothing,+      starred = Core.Nothing,+      updated = Core.Nothing,+      websiteUrl = Core.Nothing+    }++instance Core.FromJSON Webproperty where+  parseJSON =+    Core.withObject+      "Webproperty"+      ( \o ->+          Webproperty+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "childLink")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "dataRetentionResetOnNewActivity")+            Core.<*> (o Core..:? "dataRetentionTtl")+            Core.<*> (o Core..:? "defaultProfileId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "industryVertical")+            Core.<*> (o Core..:? "internalWebPropertyId")+            Core.<*> (o Core..:? "kind" Core..!= "analytics#webproperty")+            Core.<*> (o Core..:? "level")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parentLink")+            Core.<*> (o Core..:? "permissions")+            Core.<*> (o Core..:? "profileCount")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "websiteUrl")+      )++instance Core.ToJSON Webproperty where+  toJSON Webproperty {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("childLink" Core..=) Core.<$> childLink,+            ("created" Core..=) Core.<$> created,+            ("dataRetentionResetOnNewActivity" Core..=)+              Core.<$> dataRetentionResetOnNewActivity,+            ("dataRetentionTtl" Core..=) Core.<$> dataRetentionTtl,+            ("defaultProfileId" Core..=)+              Core.. Core.AsText+              Core.<$> defaultProfileId,+            ("id" Core..=) Core.<$> id,+            ("industryVertical" Core..=) Core.<$> industryVertical,+            ("internalWebPropertyId" Core..=) Core.<$> internalWebPropertyId,+            Core.Just ("kind" Core..= kind),+            ("level" Core..=) Core.<$> level,+            ("name" Core..=) Core.<$> name,+            ("parentLink" Core..=) Core.<$> parentLink,+            ("permissions" Core..=) Core.<$> permissions,+            ("profileCount" Core..=) Core.<$> profileCount,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("starred" Core..=) Core.<$> starred,+            ("updated" Core..=) Core.<$> updated,+            ("websiteUrl" Core..=) Core.<$> websiteUrl+          ]+      )++-- | Child link for this web property. Points to the list of views (profiles) for this web property.+--+-- /See:/ 'newWebproperty_ChildLink' smart constructor.+data Webproperty_ChildLink = Webproperty_ChildLink+  { -- | Link to the list of views (profiles) for this web property.+    href :: (Core.Maybe Core.Text),+    -- | Type of the parent link. Its value is \"analytics#profiles\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Webproperty_ChildLink' with the minimum fields required to make a request.+newWebproperty_ChildLink ::+  Webproperty_ChildLink+newWebproperty_ChildLink =+  Webproperty_ChildLink+    { href = Core.Nothing,+      type' = "analytics#profiles"+    }++instance Core.FromJSON Webproperty_ChildLink where+  parseJSON =+    Core.withObject+      "Webproperty_ChildLink"+      ( \o ->+          Webproperty_ChildLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#profiles")+      )++instance Core.ToJSON Webproperty_ChildLink where+  toJSON Webproperty_ChildLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Parent link for this web property. Points to the account to which this web property belongs.+--+-- /See:/ 'newWebproperty_ParentLink' smart constructor.+data Webproperty_ParentLink = Webproperty_ParentLink+  { -- | Link to the account for this web property.+    href :: (Core.Maybe Core.Text),+    -- | Type of the parent link. Its value is \"analytics#account\".+    type' :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Webproperty_ParentLink' with the minimum fields required to make a request.+newWebproperty_ParentLink ::+  Webproperty_ParentLink+newWebproperty_ParentLink =+  Webproperty_ParentLink+    { href = Core.Nothing,+      type' = "analytics#account"+    }++instance Core.FromJSON Webproperty_ParentLink where+  parseJSON =+    Core.withObject+      "Webproperty_ParentLink"+      ( \o ->+          Webproperty_ParentLink+            Core.<$> (o Core..:? "href")+            Core.<*> (o Core..:? "type" Core..!= "analytics#account")+      )++instance Core.ToJSON Webproperty_ParentLink where+  toJSON Webproperty_ParentLink {..} =+    Core.object+      ( Core.catMaybes+          [("href" Core..=) Core.<$> href, Core.Just ("type" Core..= type')]+      )++-- | Permissions the user has for this web property.+--+-- /See:/ 'newWebproperty_Permissions' smart constructor.+newtype Webproperty_Permissions = Webproperty_Permissions+  { -- | All the permissions that the user has for this web property. These include any implied permissions (e.g., EDIT implies VIEW) or inherited permissions from the parent account.+    effective :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Webproperty_Permissions' with the minimum fields required to make a request.+newWebproperty_Permissions ::+  Webproperty_Permissions+newWebproperty_Permissions =+  Webproperty_Permissions {effective = Core.Nothing}++instance Core.FromJSON Webproperty_Permissions where+  parseJSON =+    Core.withObject+      "Webproperty_Permissions"+      (\o -> Webproperty_Permissions Core.<$> (o Core..:? "effective"))++instance Core.ToJSON Webproperty_Permissions where+  toJSON Webproperty_Permissions {..} =+    Core.object+      (Core.catMaybes [("effective" Core..=) Core.<$> effective])
+ gen/Gogol/Analytics/Internal/Sum.hs view
@@ -0,0 +1,143 @@+{-# 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.Analytics.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.Analytics.Internal.Sum+  ( -- * DataGaGetOutput+    DataGaGetOutput+      ( DataGaGetOutput_DataTable,+        DataGaGetOutput_Json,+        ..+      ),++    -- * DataGaGetSamplingLevel+    DataGaGetSamplingLevel+      ( DataGaGetSamplingLevel_Default,+        DataGaGetSamplingLevel_Faster,+        DataGaGetSamplingLevel_HIGHERPRECISION,+        ..+      ),++    -- * DataMcfGetSamplingLevel+    DataMcfGetSamplingLevel+      ( DataMcfGetSamplingLevel_Default,+        DataMcfGetSamplingLevel_Faster,+        DataMcfGetSamplingLevel_HIGHERPRECISION,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | The selected format for the response. Default format is JSON.+newtype DataGaGetOutput = DataGaGetOutput {fromDataGaGetOutput :: 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+    )++-- | Returns the response in Google Charts Data Table format. This is useful in creating visualization using Google Charts.+pattern DataGaGetOutput_DataTable :: DataGaGetOutput+pattern DataGaGetOutput_DataTable = DataGaGetOutput "dataTable"++-- | Returns the response in standard JSON format.+pattern DataGaGetOutput_Json :: DataGaGetOutput+pattern DataGaGetOutput_Json = DataGaGetOutput "json"++{-# COMPLETE+  DataGaGetOutput_DataTable,+  DataGaGetOutput_Json,+  DataGaGetOutput+  #-}++-- | The desired sampling level.+newtype DataGaGetSamplingLevel = DataGaGetSamplingLevel {fromDataGaGetSamplingLevel :: 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+    )++-- | Returns response with a sample size that balances speed and accuracy.+pattern DataGaGetSamplingLevel_Default :: DataGaGetSamplingLevel+pattern DataGaGetSamplingLevel_Default = DataGaGetSamplingLevel "DEFAULT"++-- | Returns a fast response with a smaller sample size.+pattern DataGaGetSamplingLevel_Faster :: DataGaGetSamplingLevel+pattern DataGaGetSamplingLevel_Faster = DataGaGetSamplingLevel "FASTER"++-- | Returns a more accurate response using a large sample size, but this may result in the response being slower.+pattern DataGaGetSamplingLevel_HIGHERPRECISION :: DataGaGetSamplingLevel+pattern DataGaGetSamplingLevel_HIGHERPRECISION = DataGaGetSamplingLevel "HIGHER_PRECISION"++{-# COMPLETE+  DataGaGetSamplingLevel_Default,+  DataGaGetSamplingLevel_Faster,+  DataGaGetSamplingLevel_HIGHERPRECISION,+  DataGaGetSamplingLevel+  #-}++-- | The desired sampling level.+newtype DataMcfGetSamplingLevel = DataMcfGetSamplingLevel {fromDataMcfGetSamplingLevel :: 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+    )++-- | Returns response with a sample size that balances speed and accuracy.+pattern DataMcfGetSamplingLevel_Default :: DataMcfGetSamplingLevel+pattern DataMcfGetSamplingLevel_Default = DataMcfGetSamplingLevel "DEFAULT"++-- | Returns a fast response with a smaller sample size.+pattern DataMcfGetSamplingLevel_Faster :: DataMcfGetSamplingLevel+pattern DataMcfGetSamplingLevel_Faster = DataMcfGetSamplingLevel "FASTER"++-- | Returns a more accurate response using a large sample size, but this may result in the response being slower.+pattern DataMcfGetSamplingLevel_HIGHERPRECISION :: DataMcfGetSamplingLevel+pattern DataMcfGetSamplingLevel_HIGHERPRECISION = DataMcfGetSamplingLevel "HIGHER_PRECISION"++{-# COMPLETE+  DataMcfGetSamplingLevel_Default,+  DataMcfGetSamplingLevel_Faster,+  DataMcfGetSamplingLevel_HIGHERPRECISION,+  DataMcfGetSamplingLevel+  #-}
+ gen/Gogol/Analytics/Management/AccountSummaries/List.hs view
@@ -0,0 +1,93 @@+{-# 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.Analytics.Management.AccountSummaries.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)+--+-- Lists account summaries (lightweight tree comprised of accounts\/properties\/profiles) to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountSummaries.list@.+module Gogol.Analytics.Management.AccountSummaries.List+  ( -- * Resource+    AnalyticsManagementAccountSummariesListResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountSummariesList (..),+    newAnalyticsManagementAccountSummariesList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accountSummaries.list@ method which the+-- 'AnalyticsManagementAccountSummariesList' request conforms to.+type AnalyticsManagementAccountSummariesListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accountSummaries"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AccountSummaries++-- | Lists account summaries (lightweight tree comprised of accounts\/properties\/profiles) to which the user has access.+--+-- /See:/ 'newAnalyticsManagementAccountSummariesList' smart constructor.+data AnalyticsManagementAccountSummariesList = AnalyticsManagementAccountSummariesList+  { -- | The maximum number of account summaries to include in this response, where the largest acceptable value is 1000.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountSummariesList' with the minimum fields required to make a request.+newAnalyticsManagementAccountSummariesList ::+  AnalyticsManagementAccountSummariesList+newAnalyticsManagementAccountSummariesList =+  AnalyticsManagementAccountSummariesList+    { maxResults =+        Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementAccountSummariesList where+  type Rs AnalyticsManagementAccountSummariesList = AccountSummaries+  type+    Scopes AnalyticsManagementAccountSummariesList =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementAccountSummariesList {..} =+    go+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementAccountSummariesListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/AccountUserLinks/Delete.hs view
@@ -0,0 +1,96 @@+{-# 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.Analytics.Management.AccountUserLinks.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)+--+-- Removes a user from the given account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.delete@.+module Gogol.Analytics.Management.AccountUserLinks.Delete+  ( -- * Resource+    AnalyticsManagementAccountUserLinksDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountUserLinksDelete (..),+    newAnalyticsManagementAccountUserLinksDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accountUserLinks.delete@ method which the+-- 'AnalyticsManagementAccountUserLinksDelete' request conforms to.+type AnalyticsManagementAccountUserLinksDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Removes a user from the given account.+--+-- /See:/ 'newAnalyticsManagementAccountUserLinksDelete' smart constructor.+data AnalyticsManagementAccountUserLinksDelete = AnalyticsManagementAccountUserLinksDelete+  { -- | Account ID to delete the user link for.+    accountId :: Core.Text,+    -- | Link ID to delete the user link for.+    linkId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountUserLinksDelete' with the minimum fields required to make a request.+newAnalyticsManagementAccountUserLinksDelete ::+  -- |  Account ID to delete the user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to delete the user link for. See 'linkId'.+  Core.Text ->+  AnalyticsManagementAccountUserLinksDelete+newAnalyticsManagementAccountUserLinksDelete accountId linkId =+  AnalyticsManagementAccountUserLinksDelete+    { accountId = accountId,+      linkId = linkId+    }++instance+  Core.GoogleRequest+    AnalyticsManagementAccountUserLinksDelete+  where+  type Rs AnalyticsManagementAccountUserLinksDelete = ()+  type+    Scopes AnalyticsManagementAccountUserLinksDelete =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementAccountUserLinksDelete {..} =+    go accountId linkId (Core.Just Core.AltJSON) analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementAccountUserLinksDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/AccountUserLinks/Insert.hs view
@@ -0,0 +1,96 @@+{-# 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.Analytics.Management.AccountUserLinks.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)+--+-- Adds a new user to the given account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.insert@.+module Gogol.Analytics.Management.AccountUserLinks.Insert+  ( -- * Resource+    AnalyticsManagementAccountUserLinksInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountUserLinksInsert (..),+    newAnalyticsManagementAccountUserLinksInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accountUserLinks.insert@ method which the+-- 'AnalyticsManagementAccountUserLinksInsert' request conforms to.+type AnalyticsManagementAccountUserLinksInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Post '[Core.JSON] EntityUserLink++-- | Adds a new user to the given account.+--+-- /See:/ 'newAnalyticsManagementAccountUserLinksInsert' smart constructor.+data AnalyticsManagementAccountUserLinksInsert = AnalyticsManagementAccountUserLinksInsert+  { -- | Account ID to create the user link for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountUserLinksInsert' with the minimum fields required to make a request.+newAnalyticsManagementAccountUserLinksInsert ::+  -- |  Account ID to create the user link for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  AnalyticsManagementAccountUserLinksInsert+newAnalyticsManagementAccountUserLinksInsert accountId payload =+  AnalyticsManagementAccountUserLinksInsert+    { accountId = accountId,+      payload = payload+    }++instance+  Core.GoogleRequest+    AnalyticsManagementAccountUserLinksInsert+  where+  type Rs AnalyticsManagementAccountUserLinksInsert = EntityUserLink+  type+    Scopes AnalyticsManagementAccountUserLinksInsert =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementAccountUserLinksInsert {..} =+    go accountId (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementAccountUserLinksInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/AccountUserLinks/List.hs view
@@ -0,0 +1,100 @@+{-# 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.Analytics.Management.AccountUserLinks.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)+--+-- Lists account-user links for a given account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.list@.+module Gogol.Analytics.Management.AccountUserLinks.List+  ( -- * Resource+    AnalyticsManagementAccountUserLinksListResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountUserLinksList (..),+    newAnalyticsManagementAccountUserLinksList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accountUserLinks.list@ method which the+-- 'AnalyticsManagementAccountUserLinksList' request conforms to.+type AnalyticsManagementAccountUserLinksListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] EntityUserLinks++-- | Lists account-user links for a given account.+--+-- /See:/ 'newAnalyticsManagementAccountUserLinksList' smart constructor.+data AnalyticsManagementAccountUserLinksList = AnalyticsManagementAccountUserLinksList+  { -- | Account ID to retrieve the user links for.+    accountId :: Core.Text,+    -- | The maximum number of account-user links to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first account-user link to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountUserLinksList' with the minimum fields required to make a request.+newAnalyticsManagementAccountUserLinksList ::+  -- |  Account ID to retrieve the user links for. See 'accountId'.+  Core.Text ->+  AnalyticsManagementAccountUserLinksList+newAnalyticsManagementAccountUserLinksList accountId =+  AnalyticsManagementAccountUserLinksList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementAccountUserLinksList where+  type Rs AnalyticsManagementAccountUserLinksList = EntityUserLinks+  type+    Scopes AnalyticsManagementAccountUserLinksList =+      '[Analytics'Manage'Users, Analytics'Manage'Users'Readonly]+  requestClient AnalyticsManagementAccountUserLinksList {..} =+    go+      accountId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementAccountUserLinksListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/AccountUserLinks/Update.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.Analytics.Management.AccountUserLinks.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)+--+-- Updates permissions for an existing user on the given account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.update@.+module Gogol.Analytics.Management.AccountUserLinks.Update+  ( -- * Resource+    AnalyticsManagementAccountUserLinksUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountUserLinksUpdate (..),+    newAnalyticsManagementAccountUserLinksUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accountUserLinks.update@ method which the+-- 'AnalyticsManagementAccountUserLinksUpdate' request conforms to.+type AnalyticsManagementAccountUserLinksUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Put '[Core.JSON] EntityUserLink++-- | Updates permissions for an existing user on the given account.+--+-- /See:/ 'newAnalyticsManagementAccountUserLinksUpdate' smart constructor.+data AnalyticsManagementAccountUserLinksUpdate = AnalyticsManagementAccountUserLinksUpdate+  { -- | Account ID to update the account-user link for.+    accountId :: Core.Text,+    -- | Link ID to update the account-user link for.+    linkId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountUserLinksUpdate' with the minimum fields required to make a request.+newAnalyticsManagementAccountUserLinksUpdate ::+  -- |  Account ID to update the account-user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to update the account-user link for. See 'linkId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  AnalyticsManagementAccountUserLinksUpdate+newAnalyticsManagementAccountUserLinksUpdate+  accountId+  linkId+  payload =+    AnalyticsManagementAccountUserLinksUpdate+      { accountId = accountId,+        linkId = linkId,+        payload = payload+      }++instance+  Core.GoogleRequest+    AnalyticsManagementAccountUserLinksUpdate+  where+  type Rs AnalyticsManagementAccountUserLinksUpdate = EntityUserLink+  type+    Scopes AnalyticsManagementAccountUserLinksUpdate =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementAccountUserLinksUpdate {..} =+    go+      accountId+      linkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementAccountUserLinksUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Accounts/List.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.Analytics.Management.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)+--+-- Lists all accounts to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accounts.list@.+module Gogol.Analytics.Management.Accounts.List+  ( -- * Resource+    AnalyticsManagementAccountsListResource,++    -- ** Constructing a Request+    AnalyticsManagementAccountsList (..),+    newAnalyticsManagementAccountsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.accounts.list@ method which the+-- 'AnalyticsManagementAccountsList' request conforms to.+type AnalyticsManagementAccountsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Accounts++-- | Lists all accounts to which the user has access.+--+-- /See:/ 'newAnalyticsManagementAccountsList' smart constructor.+data AnalyticsManagementAccountsList = AnalyticsManagementAccountsList+  { -- | The maximum number of accounts to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first account to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementAccountsList' with the minimum fields required to make a request.+newAnalyticsManagementAccountsList ::+  AnalyticsManagementAccountsList+newAnalyticsManagementAccountsList =+  AnalyticsManagementAccountsList+    { maxResults = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementAccountsList where+  type Rs AnalyticsManagementAccountsList = Accounts+  type+    Scopes AnalyticsManagementAccountsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementAccountsList {..} =+    go+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementAccountsListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/ClientId/HashClientId.hs view
@@ -0,0 +1,86 @@+{-# 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.Analytics.Management.ClientId.HashClientId+-- 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)+--+-- Hashes the given Client ID.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.clientId.hashClientId@.+module Gogol.Analytics.Management.ClientId.HashClientId+  ( -- * Resource+    AnalyticsManagementClientIdHashClientIdResource,++    -- ** Constructing a Request+    AnalyticsManagementClientIdHashClientId (..),+    newAnalyticsManagementClientIdHashClientId,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.clientId.hashClientId@ method which the+-- 'AnalyticsManagementClientIdHashClientId' request conforms to.+type AnalyticsManagementClientIdHashClientIdResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "clientId:hashClientId"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] HashClientIdRequest+    Core.:> Core.Post '[Core.JSON] HashClientIdResponse++-- | Hashes the given Client ID.+--+-- /See:/ 'newAnalyticsManagementClientIdHashClientId' smart constructor.+newtype AnalyticsManagementClientIdHashClientId = AnalyticsManagementClientIdHashClientId+  { -- | Multipart request metadata.+    payload :: HashClientIdRequest+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementClientIdHashClientId' with the minimum fields required to make a request.+newAnalyticsManagementClientIdHashClientId ::+  -- |  Multipart request metadata. See 'payload'.+  HashClientIdRequest ->+  AnalyticsManagementClientIdHashClientId+newAnalyticsManagementClientIdHashClientId payload =+  AnalyticsManagementClientIdHashClientId {payload = payload}++instance Core.GoogleRequest AnalyticsManagementClientIdHashClientId where+  type+    Rs AnalyticsManagementClientIdHashClientId =+      HashClientIdResponse+  type+    Scopes AnalyticsManagementClientIdHashClientId =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementClientIdHashClientId {..} =+    go (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementClientIdHashClientIdResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDataSources/List.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.Analytics.Management.CustomDataSources.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 custom data sources to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDataSources.list@.+module Gogol.Analytics.Management.CustomDataSources.List+  ( -- * Resource+    AnalyticsManagementCustomDataSourcesListResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDataSourcesList (..),+    newAnalyticsManagementCustomDataSourcesList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDataSources.list@ method which the+-- 'AnalyticsManagementCustomDataSourcesList' request conforms to.+type AnalyticsManagementCustomDataSourcesListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomDataSources++-- | List custom data sources to which the user has access.+--+-- /See:/ 'newAnalyticsManagementCustomDataSourcesList' smart constructor.+data AnalyticsManagementCustomDataSourcesList = AnalyticsManagementCustomDataSourcesList+  { -- | Account Id for the custom data sources to retrieve.+    accountId :: Core.Text,+    -- | The maximum number of custom data sources to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | A 1-based index of the first custom data source to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property Id for the custom data sources to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDataSourcesList' with the minimum fields required to make a request.+newAnalyticsManagementCustomDataSourcesList ::+  -- |  Account Id for the custom data sources to retrieve. See 'accountId'.+  Core.Text ->+  -- |  Web property Id for the custom data sources to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDataSourcesList+newAnalyticsManagementCustomDataSourcesList accountId webPropertyId =+  AnalyticsManagementCustomDataSourcesList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing,+      webPropertyId = webPropertyId+    }++instance+  Core.GoogleRequest+    AnalyticsManagementCustomDataSourcesList+  where+  type+    Rs AnalyticsManagementCustomDataSourcesList =+      CustomDataSources+  type+    Scopes AnalyticsManagementCustomDataSourcesList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementCustomDataSourcesList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDataSourcesListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDimensions/Get.hs view
@@ -0,0 +1,108 @@+{-# 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.Analytics.Management.CustomDimensions.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 custom dimension to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.get@.+module Gogol.Analytics.Management.CustomDimensions.Get+  ( -- * Resource+    AnalyticsManagementCustomDimensionsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDimensionsGet (..),+    newAnalyticsManagementCustomDimensionsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDimensions.get@ method which the+-- 'AnalyticsManagementCustomDimensionsGet' request conforms to.+type AnalyticsManagementCustomDimensionsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDimensions"+    Core.:> Core.Capture "customDimensionId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomDimension++-- | Get a custom dimension to which the user has access.+--+-- /See:/ 'newAnalyticsManagementCustomDimensionsGet' smart constructor.+data AnalyticsManagementCustomDimensionsGet = AnalyticsManagementCustomDimensionsGet+  { -- | Account ID for the custom dimension to retrieve.+    accountId :: Core.Text,+    -- | The ID of the custom dimension to retrieve.+    customDimensionId :: Core.Text,+    -- | Web property ID for the custom dimension to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDimensionsGet' with the minimum fields required to make a request.+newAnalyticsManagementCustomDimensionsGet ::+  -- |  Account ID for the custom dimension to retrieve. See 'accountId'.+  Core.Text ->+  -- |  The ID of the custom dimension to retrieve. See 'customDimensionId'.+  Core.Text ->+  -- |  Web property ID for the custom dimension to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDimensionsGet+newAnalyticsManagementCustomDimensionsGet+  accountId+  customDimensionId+  webPropertyId =+    AnalyticsManagementCustomDimensionsGet+      { accountId = accountId,+        customDimensionId = customDimensionId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementCustomDimensionsGet where+  type Rs AnalyticsManagementCustomDimensionsGet = CustomDimension+  type+    Scopes AnalyticsManagementCustomDimensionsGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementCustomDimensionsGet {..} =+    go+      accountId+      webPropertyId+      customDimensionId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDimensionsGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDimensions/Insert.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.Analytics.Management.CustomDimensions.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)+--+-- Create a new custom dimension.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.insert@.+module Gogol.Analytics.Management.CustomDimensions.Insert+  ( -- * Resource+    AnalyticsManagementCustomDimensionsInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDimensionsInsert (..),+    newAnalyticsManagementCustomDimensionsInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDimensions.insert@ method which the+-- 'AnalyticsManagementCustomDimensionsInsert' request conforms to.+type AnalyticsManagementCustomDimensionsInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDimensions"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomDimension+    Core.:> Core.Post '[Core.JSON] CustomDimension++-- | Create a new custom dimension.+--+-- /See:/ 'newAnalyticsManagementCustomDimensionsInsert' smart constructor.+data AnalyticsManagementCustomDimensionsInsert = AnalyticsManagementCustomDimensionsInsert+  { -- | Account ID for the custom dimension to create.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: CustomDimension,+    -- | Web property ID for the custom dimension to create.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDimensionsInsert' with the minimum fields required to make a request.+newAnalyticsManagementCustomDimensionsInsert ::+  -- |  Account ID for the custom dimension to create. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomDimension ->+  -- |  Web property ID for the custom dimension to create. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDimensionsInsert+newAnalyticsManagementCustomDimensionsInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementCustomDimensionsInsert+      { accountId = accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementCustomDimensionsInsert+  where+  type Rs AnalyticsManagementCustomDimensionsInsert = CustomDimension+  type+    Scopes AnalyticsManagementCustomDimensionsInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomDimensionsInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDimensionsInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDimensions/List.hs view
@@ -0,0 +1,108 @@+{-# 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.Analytics.Management.CustomDimensions.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)+--+-- Lists custom dimensions to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.list@.+module Gogol.Analytics.Management.CustomDimensions.List+  ( -- * Resource+    AnalyticsManagementCustomDimensionsListResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDimensionsList (..),+    newAnalyticsManagementCustomDimensionsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDimensions.list@ method which the+-- 'AnalyticsManagementCustomDimensionsList' request conforms to.+type AnalyticsManagementCustomDimensionsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDimensions"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomDimensions++-- | Lists custom dimensions to which the user has access.+--+-- /See:/ 'newAnalyticsManagementCustomDimensionsList' smart constructor.+data AnalyticsManagementCustomDimensionsList = AnalyticsManagementCustomDimensionsList+  { -- | Account ID for the custom dimensions to retrieve.+    accountId :: Core.Text,+    -- | The maximum number of custom dimensions to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID for the custom dimensions to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDimensionsList' with the minimum fields required to make a request.+newAnalyticsManagementCustomDimensionsList ::+  -- |  Account ID for the custom dimensions to retrieve. See 'accountId'.+  Core.Text ->+  -- |  Web property ID for the custom dimensions to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDimensionsList+newAnalyticsManagementCustomDimensionsList accountId webPropertyId =+  AnalyticsManagementCustomDimensionsList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementCustomDimensionsList where+  type Rs AnalyticsManagementCustomDimensionsList = CustomDimensions+  type+    Scopes AnalyticsManagementCustomDimensionsList =+      '[Analytics'FullControl, Analytics'Readonly]+  requestClient AnalyticsManagementCustomDimensionsList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDimensionsListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDimensions/Patch.hs view
@@ -0,0 +1,124 @@+{-# 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.Analytics.Management.CustomDimensions.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)+--+-- Updates an existing custom dimension. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.patch@.+module Gogol.Analytics.Management.CustomDimensions.Patch+  ( -- * Resource+    AnalyticsManagementCustomDimensionsPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDimensionsPatch (..),+    newAnalyticsManagementCustomDimensionsPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDimensions.patch@ method which the+-- 'AnalyticsManagementCustomDimensionsPatch' request conforms to.+type AnalyticsManagementCustomDimensionsPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDimensions"+    Core.:> Core.Capture "customDimensionId" Core.Text+    Core.:> Core.QueryParam "ignoreCustomDataSourceLinks" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomDimension+    Core.:> Core.Patch '[Core.JSON] CustomDimension++-- | Updates an existing custom dimension. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementCustomDimensionsPatch' smart constructor.+data AnalyticsManagementCustomDimensionsPatch = AnalyticsManagementCustomDimensionsPatch+  { -- | Account ID for the custom dimension to update.+    accountId :: Core.Text,+    -- | Custom dimension ID for the custom dimension to update.+    customDimensionId :: Core.Text,+    -- | Force the update and ignore any warnings related to the custom dimension being linked to a custom data source \/ data set.+    ignoreCustomDataSourceLinks :: Core.Bool,+    -- | Multipart request metadata.+    payload :: CustomDimension,+    -- | Web property ID for the custom dimension to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDimensionsPatch' with the minimum fields required to make a request.+newAnalyticsManagementCustomDimensionsPatch ::+  -- |  Account ID for the custom dimension to update. See 'accountId'.+  Core.Text ->+  -- |  Custom dimension ID for the custom dimension to update. See 'customDimensionId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomDimension ->+  -- |  Web property ID for the custom dimension to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDimensionsPatch+newAnalyticsManagementCustomDimensionsPatch+  accountId+  customDimensionId+  payload+  webPropertyId =+    AnalyticsManagementCustomDimensionsPatch+      { accountId = accountId,+        customDimensionId = customDimensionId,+        ignoreCustomDataSourceLinks = Core.False,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementCustomDimensionsPatch+  where+  type Rs AnalyticsManagementCustomDimensionsPatch = CustomDimension+  type+    Scopes AnalyticsManagementCustomDimensionsPatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomDimensionsPatch {..} =+    go+      accountId+      webPropertyId+      customDimensionId+      (Core.Just ignoreCustomDataSourceLinks)+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDimensionsPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomDimensions/Update.hs view
@@ -0,0 +1,124 @@+{-# 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.Analytics.Management.CustomDimensions.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)+--+-- Updates an existing custom dimension.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.update@.+module Gogol.Analytics.Management.CustomDimensions.Update+  ( -- * Resource+    AnalyticsManagementCustomDimensionsUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomDimensionsUpdate (..),+    newAnalyticsManagementCustomDimensionsUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customDimensions.update@ method which the+-- 'AnalyticsManagementCustomDimensionsUpdate' request conforms to.+type AnalyticsManagementCustomDimensionsUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDimensions"+    Core.:> Core.Capture "customDimensionId" Core.Text+    Core.:> Core.QueryParam "ignoreCustomDataSourceLinks" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomDimension+    Core.:> Core.Put '[Core.JSON] CustomDimension++-- | Updates an existing custom dimension.+--+-- /See:/ 'newAnalyticsManagementCustomDimensionsUpdate' smart constructor.+data AnalyticsManagementCustomDimensionsUpdate = AnalyticsManagementCustomDimensionsUpdate+  { -- | Account ID for the custom dimension to update.+    accountId :: Core.Text,+    -- | Custom dimension ID for the custom dimension to update.+    customDimensionId :: Core.Text,+    -- | Force the update and ignore any warnings related to the custom dimension being linked to a custom data source \/ data set.+    ignoreCustomDataSourceLinks :: Core.Bool,+    -- | Multipart request metadata.+    payload :: CustomDimension,+    -- | Web property ID for the custom dimension to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomDimensionsUpdate' with the minimum fields required to make a request.+newAnalyticsManagementCustomDimensionsUpdate ::+  -- |  Account ID for the custom dimension to update. See 'accountId'.+  Core.Text ->+  -- |  Custom dimension ID for the custom dimension to update. See 'customDimensionId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomDimension ->+  -- |  Web property ID for the custom dimension to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomDimensionsUpdate+newAnalyticsManagementCustomDimensionsUpdate+  accountId+  customDimensionId+  payload+  webPropertyId =+    AnalyticsManagementCustomDimensionsUpdate+      { accountId = accountId,+        customDimensionId = customDimensionId,+        ignoreCustomDataSourceLinks = Core.False,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementCustomDimensionsUpdate+  where+  type Rs AnalyticsManagementCustomDimensionsUpdate = CustomDimension+  type+    Scopes AnalyticsManagementCustomDimensionsUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomDimensionsUpdate {..} =+    go+      accountId+      webPropertyId+      customDimensionId+      (Core.Just ignoreCustomDataSourceLinks)+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomDimensionsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomMetrics/Get.hs view
@@ -0,0 +1,108 @@+{-# 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.Analytics.Management.CustomMetrics.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 custom metric to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.get@.+module Gogol.Analytics.Management.CustomMetrics.Get+  ( -- * Resource+    AnalyticsManagementCustomMetricsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomMetricsGet (..),+    newAnalyticsManagementCustomMetricsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customMetrics.get@ method which the+-- 'AnalyticsManagementCustomMetricsGet' request conforms to.+type AnalyticsManagementCustomMetricsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customMetrics"+    Core.:> Core.Capture "customMetricId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomMetric++-- | Get a custom metric to which the user has access.+--+-- /See:/ 'newAnalyticsManagementCustomMetricsGet' smart constructor.+data AnalyticsManagementCustomMetricsGet = AnalyticsManagementCustomMetricsGet+  { -- | Account ID for the custom metric to retrieve.+    accountId :: Core.Text,+    -- | The ID of the custom metric to retrieve.+    customMetricId :: Core.Text,+    -- | Web property ID for the custom metric to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomMetricsGet' with the minimum fields required to make a request.+newAnalyticsManagementCustomMetricsGet ::+  -- |  Account ID for the custom metric to retrieve. See 'accountId'.+  Core.Text ->+  -- |  The ID of the custom metric to retrieve. See 'customMetricId'.+  Core.Text ->+  -- |  Web property ID for the custom metric to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomMetricsGet+newAnalyticsManagementCustomMetricsGet+  accountId+  customMetricId+  webPropertyId =+    AnalyticsManagementCustomMetricsGet+      { accountId = accountId,+        customMetricId = customMetricId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementCustomMetricsGet where+  type Rs AnalyticsManagementCustomMetricsGet = CustomMetric+  type+    Scopes AnalyticsManagementCustomMetricsGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementCustomMetricsGet {..} =+    go+      accountId+      webPropertyId+      customMetricId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomMetricsGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomMetrics/Insert.hs view
@@ -0,0 +1,108 @@+{-# 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.Analytics.Management.CustomMetrics.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)+--+-- Create a new custom metric.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.insert@.+module Gogol.Analytics.Management.CustomMetrics.Insert+  ( -- * Resource+    AnalyticsManagementCustomMetricsInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomMetricsInsert (..),+    newAnalyticsManagementCustomMetricsInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customMetrics.insert@ method which the+-- 'AnalyticsManagementCustomMetricsInsert' request conforms to.+type AnalyticsManagementCustomMetricsInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customMetrics"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomMetric+    Core.:> Core.Post '[Core.JSON] CustomMetric++-- | Create a new custom metric.+--+-- /See:/ 'newAnalyticsManagementCustomMetricsInsert' smart constructor.+data AnalyticsManagementCustomMetricsInsert = AnalyticsManagementCustomMetricsInsert+  { -- | Account ID for the custom metric to create.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: CustomMetric,+    -- | Web property ID for the custom dimension to create.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomMetricsInsert' with the minimum fields required to make a request.+newAnalyticsManagementCustomMetricsInsert ::+  -- |  Account ID for the custom metric to create. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomMetric ->+  -- |  Web property ID for the custom dimension to create. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomMetricsInsert+newAnalyticsManagementCustomMetricsInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementCustomMetricsInsert+      { accountId = accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementCustomMetricsInsert where+  type Rs AnalyticsManagementCustomMetricsInsert = CustomMetric+  type+    Scopes AnalyticsManagementCustomMetricsInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomMetricsInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomMetricsInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomMetrics/List.hs view
@@ -0,0 +1,108 @@+{-# 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.Analytics.Management.CustomMetrics.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)+--+-- Lists custom metrics to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.list@.+module Gogol.Analytics.Management.CustomMetrics.List+  ( -- * Resource+    AnalyticsManagementCustomMetricsListResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomMetricsList (..),+    newAnalyticsManagementCustomMetricsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customMetrics.list@ method which the+-- 'AnalyticsManagementCustomMetricsList' request conforms to.+type AnalyticsManagementCustomMetricsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customMetrics"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] CustomMetrics++-- | Lists custom metrics to which the user has access.+--+-- /See:/ 'newAnalyticsManagementCustomMetricsList' smart constructor.+data AnalyticsManagementCustomMetricsList = AnalyticsManagementCustomMetricsList+  { -- | Account ID for the custom metrics to retrieve.+    accountId :: Core.Text,+    -- | The maximum number of custom metrics to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID for the custom metrics to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomMetricsList' with the minimum fields required to make a request.+newAnalyticsManagementCustomMetricsList ::+  -- |  Account ID for the custom metrics to retrieve. See 'accountId'.+  Core.Text ->+  -- |  Web property ID for the custom metrics to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomMetricsList+newAnalyticsManagementCustomMetricsList accountId webPropertyId =+  AnalyticsManagementCustomMetricsList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementCustomMetricsList where+  type Rs AnalyticsManagementCustomMetricsList = CustomMetrics+  type+    Scopes AnalyticsManagementCustomMetricsList =+      '[Analytics'FullControl, Analytics'Readonly]+  requestClient AnalyticsManagementCustomMetricsList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomMetricsListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomMetrics/Patch.hs view
@@ -0,0 +1,121 @@+{-# 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.Analytics.Management.CustomMetrics.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)+--+-- Updates an existing custom metric. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.patch@.+module Gogol.Analytics.Management.CustomMetrics.Patch+  ( -- * Resource+    AnalyticsManagementCustomMetricsPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomMetricsPatch (..),+    newAnalyticsManagementCustomMetricsPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customMetrics.patch@ method which the+-- 'AnalyticsManagementCustomMetricsPatch' request conforms to.+type AnalyticsManagementCustomMetricsPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customMetrics"+    Core.:> Core.Capture "customMetricId" Core.Text+    Core.:> Core.QueryParam "ignoreCustomDataSourceLinks" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomMetric+    Core.:> Core.Patch '[Core.JSON] CustomMetric++-- | Updates an existing custom metric. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementCustomMetricsPatch' smart constructor.+data AnalyticsManagementCustomMetricsPatch = AnalyticsManagementCustomMetricsPatch+  { -- | Account ID for the custom metric to update.+    accountId :: Core.Text,+    -- | Custom metric ID for the custom metric to update.+    customMetricId :: Core.Text,+    -- | Force the update and ignore any warnings related to the custom metric being linked to a custom data source \/ data set.+    ignoreCustomDataSourceLinks :: Core.Bool,+    -- | Multipart request metadata.+    payload :: CustomMetric,+    -- | Web property ID for the custom metric to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomMetricsPatch' with the minimum fields required to make a request.+newAnalyticsManagementCustomMetricsPatch ::+  -- |  Account ID for the custom metric to update. See 'accountId'.+  Core.Text ->+  -- |  Custom metric ID for the custom metric to update. See 'customMetricId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomMetric ->+  -- |  Web property ID for the custom metric to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomMetricsPatch+newAnalyticsManagementCustomMetricsPatch+  accountId+  customMetricId+  payload+  webPropertyId =+    AnalyticsManagementCustomMetricsPatch+      { accountId = accountId,+        customMetricId = customMetricId,+        ignoreCustomDataSourceLinks = Core.False,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementCustomMetricsPatch where+  type Rs AnalyticsManagementCustomMetricsPatch = CustomMetric+  type+    Scopes AnalyticsManagementCustomMetricsPatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomMetricsPatch {..} =+    go+      accountId+      webPropertyId+      customMetricId+      (Core.Just ignoreCustomDataSourceLinks)+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomMetricsPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/CustomMetrics/Update.hs view
@@ -0,0 +1,121 @@+{-# 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.Analytics.Management.CustomMetrics.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)+--+-- Updates an existing custom metric.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.update@.+module Gogol.Analytics.Management.CustomMetrics.Update+  ( -- * Resource+    AnalyticsManagementCustomMetricsUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementCustomMetricsUpdate (..),+    newAnalyticsManagementCustomMetricsUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.customMetrics.update@ method which the+-- 'AnalyticsManagementCustomMetricsUpdate' request conforms to.+type AnalyticsManagementCustomMetricsUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customMetrics"+    Core.:> Core.Capture "customMetricId" Core.Text+    Core.:> Core.QueryParam "ignoreCustomDataSourceLinks" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CustomMetric+    Core.:> Core.Put '[Core.JSON] CustomMetric++-- | Updates an existing custom metric.+--+-- /See:/ 'newAnalyticsManagementCustomMetricsUpdate' smart constructor.+data AnalyticsManagementCustomMetricsUpdate = AnalyticsManagementCustomMetricsUpdate+  { -- | Account ID for the custom metric to update.+    accountId :: Core.Text,+    -- | Custom metric ID for the custom metric to update.+    customMetricId :: Core.Text,+    -- | Force the update and ignore any warnings related to the custom metric being linked to a custom data source \/ data set.+    ignoreCustomDataSourceLinks :: Core.Bool,+    -- | Multipart request metadata.+    payload :: CustomMetric,+    -- | Web property ID for the custom metric to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementCustomMetricsUpdate' with the minimum fields required to make a request.+newAnalyticsManagementCustomMetricsUpdate ::+  -- |  Account ID for the custom metric to update. See 'accountId'.+  Core.Text ->+  -- |  Custom metric ID for the custom metric to update. See 'customMetricId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CustomMetric ->+  -- |  Web property ID for the custom metric to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementCustomMetricsUpdate+newAnalyticsManagementCustomMetricsUpdate+  accountId+  customMetricId+  payload+  webPropertyId =+    AnalyticsManagementCustomMetricsUpdate+      { accountId = accountId,+        customMetricId = customMetricId,+        ignoreCustomDataSourceLinks = Core.False,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementCustomMetricsUpdate where+  type Rs AnalyticsManagementCustomMetricsUpdate = CustomMetric+  type+    Scopes AnalyticsManagementCustomMetricsUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementCustomMetricsUpdate {..} =+    go+      accountId+      webPropertyId+      customMetricId+      (Core.Just ignoreCustomDataSourceLinks)+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementCustomMetricsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/Delete.hs view
@@ -0,0 +1,117 @@+{-# 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.Analytics.Management.Experiments.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 an experiment.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.delete@.+module Gogol.Analytics.Management.Experiments.Delete+  ( -- * Resource+    AnalyticsManagementExperimentsDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsDelete (..),+    newAnalyticsManagementExperimentsDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.delete@ method which the+-- 'AnalyticsManagementExperimentsDelete' request conforms to.+type AnalyticsManagementExperimentsDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.Capture "experimentId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Delete an experiment.+--+-- /See:/ 'newAnalyticsManagementExperimentsDelete' smart constructor.+data AnalyticsManagementExperimentsDelete = AnalyticsManagementExperimentsDelete+  { -- | Account ID to which the experiment belongs+    accountId :: Core.Text,+    -- | ID of the experiment to delete+    experimentId :: Core.Text,+    -- | View (Profile) ID to which the experiment belongs+    profileId :: Core.Text,+    -- | Web property ID to which the experiment belongs+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsDelete' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsDelete ::+  -- |  Account ID to which the experiment belongs See 'accountId'.+  Core.Text ->+  -- |  ID of the experiment to delete See 'experimentId'.+  Core.Text ->+  -- |  View (Profile) ID to which the experiment belongs See 'profileId'.+  Core.Text ->+  -- |  Web property ID to which the experiment belongs See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsDelete+newAnalyticsManagementExperimentsDelete+  accountId+  experimentId+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsDelete+      { accountId = accountId,+        experimentId = experimentId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsDelete where+  type Rs AnalyticsManagementExperimentsDelete = ()+  type+    Scopes AnalyticsManagementExperimentsDelete =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementExperimentsDelete {..} =+    go+      accountId+      webPropertyId+      profileId+      experimentId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/Get.hs view
@@ -0,0 +1,117 @@+{-# 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.Analytics.Management.Experiments.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)+--+-- Returns an experiment to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.get@.+module Gogol.Analytics.Management.Experiments.Get+  ( -- * Resource+    AnalyticsManagementExperimentsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsGet (..),+    newAnalyticsManagementExperimentsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.get@ method which the+-- 'AnalyticsManagementExperimentsGet' request conforms to.+type AnalyticsManagementExperimentsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.Capture "experimentId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Experiment++-- | Returns an experiment to which the user has access.+--+-- /See:/ 'newAnalyticsManagementExperimentsGet' smart constructor.+data AnalyticsManagementExperimentsGet = AnalyticsManagementExperimentsGet+  { -- | Account ID to retrieve the experiment for.+    accountId :: Core.Text,+    -- | Experiment ID to retrieve the experiment for.+    experimentId :: Core.Text,+    -- | View (Profile) ID to retrieve the experiment for.+    profileId :: Core.Text,+    -- | Web property ID to retrieve the experiment for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsGet' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsGet ::+  -- |  Account ID to retrieve the experiment for. See 'accountId'.+  Core.Text ->+  -- |  Experiment ID to retrieve the experiment for. See 'experimentId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve the experiment for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve the experiment for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsGet+newAnalyticsManagementExperimentsGet+  accountId+  experimentId+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsGet+      { accountId = accountId,+        experimentId = experimentId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsGet where+  type Rs AnalyticsManagementExperimentsGet = Experiment+  type+    Scopes AnalyticsManagementExperimentsGet =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementExperimentsGet {..} =+    go+      accountId+      webPropertyId+      profileId+      experimentId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/Insert.hs view
@@ -0,0 +1,117 @@+{-# 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.Analytics.Management.Experiments.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)+--+-- Create a new experiment.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.insert@.+module Gogol.Analytics.Management.Experiments.Insert+  ( -- * Resource+    AnalyticsManagementExperimentsInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsInsert (..),+    newAnalyticsManagementExperimentsInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.insert@ method which the+-- 'AnalyticsManagementExperimentsInsert' request conforms to.+type AnalyticsManagementExperimentsInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Experiment+    Core.:> Core.Post '[Core.JSON] Experiment++-- | Create a new experiment.+--+-- /See:/ 'newAnalyticsManagementExperimentsInsert' smart constructor.+data AnalyticsManagementExperimentsInsert = AnalyticsManagementExperimentsInsert+  { -- | Account ID to create the experiment for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Experiment,+    -- | View (Profile) ID to create the experiment for.+    profileId :: Core.Text,+    -- | Web property ID to create the experiment for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsInsert' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsInsert ::+  -- |  Account ID to create the experiment for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Experiment ->+  -- |  View (Profile) ID to create the experiment for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to create the experiment for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsInsert+newAnalyticsManagementExperimentsInsert+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsInsert+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsInsert where+  type Rs AnalyticsManagementExperimentsInsert = Experiment+  type+    Scopes AnalyticsManagementExperimentsInsert =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementExperimentsInsert {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/List.hs view
@@ -0,0 +1,119 @@+{-# 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.Analytics.Management.Experiments.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)+--+-- Lists experiments to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.list@.+module Gogol.Analytics.Management.Experiments.List+  ( -- * Resource+    AnalyticsManagementExperimentsListResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsList (..),+    newAnalyticsManagementExperimentsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.list@ method which the+-- 'AnalyticsManagementExperimentsList' request conforms to.+type AnalyticsManagementExperimentsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Experiments++-- | Lists experiments to which the user has access.+--+-- /See:/ 'newAnalyticsManagementExperimentsList' smart constructor.+data AnalyticsManagementExperimentsList = AnalyticsManagementExperimentsList+  { -- | Account ID to retrieve experiments for.+    accountId :: Core.Text,+    -- | The maximum number of experiments to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | View (Profile) ID to retrieve experiments for.+    profileId :: Core.Text,+    -- | An index of the first experiment to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID to retrieve experiments for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsList' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsList ::+  -- |  Account ID to retrieve experiments for. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve experiments for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve experiments for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsList+newAnalyticsManagementExperimentsList+  accountId+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsList+      { accountId = accountId,+        maxResults = Core.Nothing,+        profileId = profileId,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsList where+  type Rs AnalyticsManagementExperimentsList = Experiments+  type+    Scopes AnalyticsManagementExperimentsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementExperimentsList {..} =+    go+      accountId+      webPropertyId+      profileId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/Patch.hs view
@@ -0,0 +1,125 @@+{-# 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.Analytics.Management.Experiments.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 an existing experiment. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.patch@.+module Gogol.Analytics.Management.Experiments.Patch+  ( -- * Resource+    AnalyticsManagementExperimentsPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsPatch (..),+    newAnalyticsManagementExperimentsPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.patch@ method which the+-- 'AnalyticsManagementExperimentsPatch' request conforms to.+type AnalyticsManagementExperimentsPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.Capture "experimentId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Experiment+    Core.:> Core.Patch '[Core.JSON] Experiment++-- | Update an existing experiment. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementExperimentsPatch' smart constructor.+data AnalyticsManagementExperimentsPatch = AnalyticsManagementExperimentsPatch+  { -- | Account ID of the experiment to update.+    accountId :: Core.Text,+    -- | Experiment ID of the experiment to update.+    experimentId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Experiment,+    -- | View (Profile) ID of the experiment to update.+    profileId :: Core.Text,+    -- | Web property ID of the experiment to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsPatch' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsPatch ::+  -- |  Account ID of the experiment to update. See 'accountId'.+  Core.Text ->+  -- |  Experiment ID of the experiment to update. See 'experimentId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Experiment ->+  -- |  View (Profile) ID of the experiment to update. See 'profileId'.+  Core.Text ->+  -- |  Web property ID of the experiment to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsPatch+newAnalyticsManagementExperimentsPatch+  accountId+  experimentId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsPatch+      { accountId = accountId,+        experimentId = experimentId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsPatch where+  type Rs AnalyticsManagementExperimentsPatch = Experiment+  type+    Scopes AnalyticsManagementExperimentsPatch =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementExperimentsPatch {..} =+    go+      accountId+      webPropertyId+      profileId+      experimentId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Experiments/Update.hs view
@@ -0,0 +1,125 @@+{-# 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.Analytics.Management.Experiments.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 an existing experiment.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.update@.+module Gogol.Analytics.Management.Experiments.Update+  ( -- * Resource+    AnalyticsManagementExperimentsUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementExperimentsUpdate (..),+    newAnalyticsManagementExperimentsUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.experiments.update@ method which the+-- 'AnalyticsManagementExperimentsUpdate' request conforms to.+type AnalyticsManagementExperimentsUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "experiments"+    Core.:> Core.Capture "experimentId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Experiment+    Core.:> Core.Put '[Core.JSON] Experiment++-- | Update an existing experiment.+--+-- /See:/ 'newAnalyticsManagementExperimentsUpdate' smart constructor.+data AnalyticsManagementExperimentsUpdate = AnalyticsManagementExperimentsUpdate+  { -- | Account ID of the experiment to update.+    accountId :: Core.Text,+    -- | Experiment ID of the experiment to update.+    experimentId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Experiment,+    -- | View (Profile) ID of the experiment to update.+    profileId :: Core.Text,+    -- | Web property ID of the experiment to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementExperimentsUpdate' with the minimum fields required to make a request.+newAnalyticsManagementExperimentsUpdate ::+  -- |  Account ID of the experiment to update. See 'accountId'.+  Core.Text ->+  -- |  Experiment ID of the experiment to update. See 'experimentId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Experiment ->+  -- |  View (Profile) ID of the experiment to update. See 'profileId'.+  Core.Text ->+  -- |  Web property ID of the experiment to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementExperimentsUpdate+newAnalyticsManagementExperimentsUpdate+  accountId+  experimentId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementExperimentsUpdate+      { accountId = accountId,+        experimentId = experimentId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementExperimentsUpdate where+  type Rs AnalyticsManagementExperimentsUpdate = Experiment+  type+    Scopes AnalyticsManagementExperimentsUpdate =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementExperimentsUpdate {..} =+    go+      accountId+      webPropertyId+      profileId+      experimentId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementExperimentsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/Delete.hs view
@@ -0,0 +1,89 @@+{-# 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.Analytics.Management.Filters.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 filter.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.delete@.+module Gogol.Analytics.Management.Filters.Delete+  ( -- * Resource+    AnalyticsManagementFiltersDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersDelete (..),+    newAnalyticsManagementFiltersDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.delete@ method which the+-- 'AnalyticsManagementFiltersDelete' request conforms to.+type AnalyticsManagementFiltersDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.Capture "filterId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Filter++-- | Delete a filter.+--+-- /See:/ 'newAnalyticsManagementFiltersDelete' smart constructor.+data AnalyticsManagementFiltersDelete = AnalyticsManagementFiltersDelete+  { -- | Account ID to delete the filter for.+    accountId :: Core.Text,+    -- | ID of the filter to be deleted.+    filterId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersDelete' with the minimum fields required to make a request.+newAnalyticsManagementFiltersDelete ::+  -- |  Account ID to delete the filter for. See 'accountId'.+  Core.Text ->+  -- |  ID of the filter to be deleted. See 'filterId'.+  Core.Text ->+  AnalyticsManagementFiltersDelete+newAnalyticsManagementFiltersDelete accountId filterId =+  AnalyticsManagementFiltersDelete+    { accountId = accountId,+      filterId = filterId+    }++instance Core.GoogleRequest AnalyticsManagementFiltersDelete where+  type Rs AnalyticsManagementFiltersDelete = Filter+  type Scopes AnalyticsManagementFiltersDelete = '[Analytics'Edit]+  requestClient AnalyticsManagementFiltersDelete {..} =+    go accountId filterId (Core.Just Core.AltJSON) analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersDeleteResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/Get.hs view
@@ -0,0 +1,91 @@+{-# 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.Analytics.Management.Filters.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)+--+-- Returns filters to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.get@.+module Gogol.Analytics.Management.Filters.Get+  ( -- * Resource+    AnalyticsManagementFiltersGetResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersGet (..),+    newAnalyticsManagementFiltersGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.get@ method which the+-- 'AnalyticsManagementFiltersGet' request conforms to.+type AnalyticsManagementFiltersGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.Capture "filterId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Filter++-- | Returns filters to which the user has access.+--+-- /See:/ 'newAnalyticsManagementFiltersGet' smart constructor.+data AnalyticsManagementFiltersGet = AnalyticsManagementFiltersGet+  { -- | Account ID to retrieve filters for.+    accountId :: Core.Text,+    -- | Filter ID to retrieve filters for.+    filterId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersGet' with the minimum fields required to make a request.+newAnalyticsManagementFiltersGet ::+  -- |  Account ID to retrieve filters for. See 'accountId'.+  Core.Text ->+  -- |  Filter ID to retrieve filters for. See 'filterId'.+  Core.Text ->+  AnalyticsManagementFiltersGet+newAnalyticsManagementFiltersGet accountId filterId =+  AnalyticsManagementFiltersGet+    { accountId = accountId,+      filterId = filterId+    }++instance Core.GoogleRequest AnalyticsManagementFiltersGet where+  type Rs AnalyticsManagementFiltersGet = Filter+  type+    Scopes AnalyticsManagementFiltersGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementFiltersGet {..} =+    go accountId filterId (Core.Just Core.AltJSON) analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/Insert.hs view
@@ -0,0 +1,89 @@+{-# 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.Analytics.Management.Filters.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)+--+-- Create a new filter.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.insert@.+module Gogol.Analytics.Management.Filters.Insert+  ( -- * Resource+    AnalyticsManagementFiltersInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersInsert (..),+    newAnalyticsManagementFiltersInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.insert@ method which the+-- 'AnalyticsManagementFiltersInsert' request conforms to.+type AnalyticsManagementFiltersInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Filter+    Core.:> Core.Post '[Core.JSON] Filter++-- | Create a new filter.+--+-- /See:/ 'newAnalyticsManagementFiltersInsert' smart constructor.+data AnalyticsManagementFiltersInsert = AnalyticsManagementFiltersInsert+  { -- | Account ID to create filter for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Filter+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersInsert' with the minimum fields required to make a request.+newAnalyticsManagementFiltersInsert ::+  -- |  Account ID to create filter for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Filter ->+  AnalyticsManagementFiltersInsert+newAnalyticsManagementFiltersInsert accountId payload =+  AnalyticsManagementFiltersInsert+    { accountId = accountId,+      payload = payload+    }++instance Core.GoogleRequest AnalyticsManagementFiltersInsert where+  type Rs AnalyticsManagementFiltersInsert = Filter+  type Scopes AnalyticsManagementFiltersInsert = '[Analytics'Edit]+  requestClient AnalyticsManagementFiltersInsert {..} =+    go accountId (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersInsertResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/List.hs view
@@ -0,0 +1,98 @@+{-# 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.Analytics.Management.Filters.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)+--+-- Lists all filters for an account+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.list@.+module Gogol.Analytics.Management.Filters.List+  ( -- * Resource+    AnalyticsManagementFiltersListResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersList (..),+    newAnalyticsManagementFiltersList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.list@ method which the+-- 'AnalyticsManagementFiltersList' request conforms to.+type AnalyticsManagementFiltersListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Filters++-- | Lists all filters for an account+--+-- /See:/ 'newAnalyticsManagementFiltersList' smart constructor.+data AnalyticsManagementFiltersList = AnalyticsManagementFiltersList+  { -- | Account ID to retrieve filters for.+    accountId :: Core.Text,+    -- | The maximum number of filters to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersList' with the minimum fields required to make a request.+newAnalyticsManagementFiltersList ::+  -- |  Account ID to retrieve filters for. See 'accountId'.+  Core.Text ->+  AnalyticsManagementFiltersList+newAnalyticsManagementFiltersList accountId =+  AnalyticsManagementFiltersList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementFiltersList where+  type Rs AnalyticsManagementFiltersList = Filters+  type+    Scopes AnalyticsManagementFiltersList =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementFiltersList {..} =+    go+      accountId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/Patch.hs view
@@ -0,0 +1,100 @@+{-# 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.Analytics.Management.Filters.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)+--+-- Updates an existing filter. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.patch@.+module Gogol.Analytics.Management.Filters.Patch+  ( -- * Resource+    AnalyticsManagementFiltersPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersPatch (..),+    newAnalyticsManagementFiltersPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.patch@ method which the+-- 'AnalyticsManagementFiltersPatch' request conforms to.+type AnalyticsManagementFiltersPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.Capture "filterId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Filter+    Core.:> Core.Patch '[Core.JSON] Filter++-- | Updates an existing filter. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementFiltersPatch' smart constructor.+data AnalyticsManagementFiltersPatch = AnalyticsManagementFiltersPatch+  { -- | Account ID to which the filter belongs.+    accountId :: Core.Text,+    -- | ID of the filter to be updated.+    filterId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Filter+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersPatch' with the minimum fields required to make a request.+newAnalyticsManagementFiltersPatch ::+  -- |  Account ID to which the filter belongs. See 'accountId'.+  Core.Text ->+  -- |  ID of the filter to be updated. See 'filterId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Filter ->+  AnalyticsManagementFiltersPatch+newAnalyticsManagementFiltersPatch accountId filterId payload =+  AnalyticsManagementFiltersPatch+    { accountId = accountId,+      filterId = filterId,+      payload = payload+    }++instance Core.GoogleRequest AnalyticsManagementFiltersPatch where+  type Rs AnalyticsManagementFiltersPatch = Filter+  type Scopes AnalyticsManagementFiltersPatch = '[Analytics'Edit]+  requestClient AnalyticsManagementFiltersPatch {..} =+    go+      accountId+      filterId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersPatchResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Filters/Update.hs view
@@ -0,0 +1,100 @@+{-# 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.Analytics.Management.Filters.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)+--+-- Updates an existing filter.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.update@.+module Gogol.Analytics.Management.Filters.Update+  ( -- * Resource+    AnalyticsManagementFiltersUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementFiltersUpdate (..),+    newAnalyticsManagementFiltersUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.filters.update@ method which the+-- 'AnalyticsManagementFiltersUpdate' request conforms to.+type AnalyticsManagementFiltersUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "filters"+    Core.:> Core.Capture "filterId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Filter+    Core.:> Core.Put '[Core.JSON] Filter++-- | Updates an existing filter.+--+-- /See:/ 'newAnalyticsManagementFiltersUpdate' smart constructor.+data AnalyticsManagementFiltersUpdate = AnalyticsManagementFiltersUpdate+  { -- | Account ID to which the filter belongs.+    accountId :: Core.Text,+    -- | ID of the filter to be updated.+    filterId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Filter+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementFiltersUpdate' with the minimum fields required to make a request.+newAnalyticsManagementFiltersUpdate ::+  -- |  Account ID to which the filter belongs. See 'accountId'.+  Core.Text ->+  -- |  ID of the filter to be updated. See 'filterId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Filter ->+  AnalyticsManagementFiltersUpdate+newAnalyticsManagementFiltersUpdate accountId filterId payload =+  AnalyticsManagementFiltersUpdate+    { accountId = accountId,+      filterId = filterId,+      payload = payload+    }++instance Core.GoogleRequest AnalyticsManagementFiltersUpdate where+  type Rs AnalyticsManagementFiltersUpdate = Filter+  type Scopes AnalyticsManagementFiltersUpdate = '[Analytics'Edit]+  requestClient AnalyticsManagementFiltersUpdate {..} =+    go+      accountId+      filterId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementFiltersUpdateResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Goals/Get.hs view
@@ -0,0 +1,115 @@+{-# 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.Analytics.Management.Goals.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)+--+-- Gets a goal to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.get@.+module Gogol.Analytics.Management.Goals.Get+  ( -- * Resource+    AnalyticsManagementGoalsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementGoalsGet (..),+    newAnalyticsManagementGoalsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.goals.get@ method which the+-- 'AnalyticsManagementGoalsGet' request conforms to.+type AnalyticsManagementGoalsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "goals"+    Core.:> Core.Capture "goalId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Goal++-- | Gets a goal to which the user has access.+--+-- /See:/ 'newAnalyticsManagementGoalsGet' smart constructor.+data AnalyticsManagementGoalsGet = AnalyticsManagementGoalsGet+  { -- | Account ID to retrieve the goal for.+    accountId :: Core.Text,+    -- | Goal ID to retrieve the goal for.+    goalId :: Core.Text,+    -- | View (Profile) ID to retrieve the goal for.+    profileId :: Core.Text,+    -- | Web property ID to retrieve the goal for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementGoalsGet' with the minimum fields required to make a request.+newAnalyticsManagementGoalsGet ::+  -- |  Account ID to retrieve the goal for. See 'accountId'.+  Core.Text ->+  -- |  Goal ID to retrieve the goal for. See 'goalId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve the goal for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve the goal for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementGoalsGet+newAnalyticsManagementGoalsGet+  accountId+  goalId+  profileId+  webPropertyId =+    AnalyticsManagementGoalsGet+      { accountId = accountId,+        goalId = goalId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementGoalsGet where+  type Rs AnalyticsManagementGoalsGet = Goal+  type+    Scopes AnalyticsManagementGoalsGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementGoalsGet {..} =+    go+      accountId+      webPropertyId+      profileId+      goalId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementGoalsGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Goals/Insert.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.Analytics.Management.Goals.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)+--+-- Create a new goal.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.insert@.+module Gogol.Analytics.Management.Goals.Insert+  ( -- * Resource+    AnalyticsManagementGoalsInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementGoalsInsert (..),+    newAnalyticsManagementGoalsInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.goals.insert@ method which the+-- 'AnalyticsManagementGoalsInsert' request conforms to.+type AnalyticsManagementGoalsInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "goals"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Goal+    Core.:> Core.Post '[Core.JSON] Goal++-- | Create a new goal.+--+-- /See:/ 'newAnalyticsManagementGoalsInsert' smart constructor.+data AnalyticsManagementGoalsInsert = AnalyticsManagementGoalsInsert+  { -- | Account ID to create the goal for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Goal,+    -- | View (Profile) ID to create the goal for.+    profileId :: Core.Text,+    -- | Web property ID to create the goal for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementGoalsInsert' with the minimum fields required to make a request.+newAnalyticsManagementGoalsInsert ::+  -- |  Account ID to create the goal for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Goal ->+  -- |  View (Profile) ID to create the goal for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to create the goal for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementGoalsInsert+newAnalyticsManagementGoalsInsert+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementGoalsInsert+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementGoalsInsert where+  type Rs AnalyticsManagementGoalsInsert = Goal+  type Scopes AnalyticsManagementGoalsInsert = '[Analytics'Edit]+  requestClient AnalyticsManagementGoalsInsert {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementGoalsInsertResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Goals/List.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Management.Goals.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)+--+-- Lists goals to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.list@.+module Gogol.Analytics.Management.Goals.List+  ( -- * Resource+    AnalyticsManagementGoalsListResource,++    -- ** Constructing a Request+    AnalyticsManagementGoalsList (..),+    newAnalyticsManagementGoalsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.goals.list@ method which the+-- 'AnalyticsManagementGoalsList' request conforms to.+type AnalyticsManagementGoalsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "goals"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Goals++-- | Lists goals to which the user has access.+--+-- /See:/ 'newAnalyticsManagementGoalsList' smart constructor.+data AnalyticsManagementGoalsList = AnalyticsManagementGoalsList+  { -- | Account ID to retrieve goals for. Can either be a specific account ID or \'~all\', which refers to all the accounts that user has access to.+    accountId :: Core.Text,+    -- | The maximum number of goals to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | View (Profile) ID to retrieve goals for. Can either be a specific view (profile) ID or \'~all\', which refers to all the views (profiles) that user has access to.+    profileId :: Core.Text,+    -- | An index of the first goal to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID to retrieve goals for. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementGoalsList' with the minimum fields required to make a request.+newAnalyticsManagementGoalsList ::+  -- |  Account ID to retrieve goals for. Can either be a specific account ID or \'~all\', which refers to all the accounts that user has access to. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve goals for. Can either be a specific view (profile) ID or \'~all\', which refers to all the views (profiles) that user has access to. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve goals for. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementGoalsList+newAnalyticsManagementGoalsList accountId profileId webPropertyId =+  AnalyticsManagementGoalsList+    { accountId = accountId,+      maxResults = Core.Nothing,+      profileId = profileId,+      startIndex = Core.Nothing,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementGoalsList where+  type Rs AnalyticsManagementGoalsList = Goals+  type+    Scopes AnalyticsManagementGoalsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementGoalsList {..} =+    go+      accountId+      webPropertyId+      profileId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementGoalsListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Goals/Patch.hs view
@@ -0,0 +1,121 @@+{-# 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.Analytics.Management.Goals.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)+--+-- Updates an existing goal. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.patch@.+module Gogol.Analytics.Management.Goals.Patch+  ( -- * Resource+    AnalyticsManagementGoalsPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementGoalsPatch (..),+    newAnalyticsManagementGoalsPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.goals.patch@ method which the+-- 'AnalyticsManagementGoalsPatch' request conforms to.+type AnalyticsManagementGoalsPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "goals"+    Core.:> Core.Capture "goalId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Goal+    Core.:> Core.Patch '[Core.JSON] Goal++-- | Updates an existing goal. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementGoalsPatch' smart constructor.+data AnalyticsManagementGoalsPatch = AnalyticsManagementGoalsPatch+  { -- | Account ID to update the goal.+    accountId :: Core.Text,+    -- | Index of the goal to be updated.+    goalId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Goal,+    -- | View (Profile) ID to update the goal.+    profileId :: Core.Text,+    -- | Web property ID to update the goal.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementGoalsPatch' with the minimum fields required to make a request.+newAnalyticsManagementGoalsPatch ::+  -- |  Account ID to update the goal. See 'accountId'.+  Core.Text ->+  -- |  Index of the goal to be updated. See 'goalId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Goal ->+  -- |  View (Profile) ID to update the goal. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to update the goal. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementGoalsPatch+newAnalyticsManagementGoalsPatch+  accountId+  goalId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementGoalsPatch+      { accountId = accountId,+        goalId = goalId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementGoalsPatch where+  type Rs AnalyticsManagementGoalsPatch = Goal+  type Scopes AnalyticsManagementGoalsPatch = '[Analytics'Edit]+  requestClient AnalyticsManagementGoalsPatch {..} =+    go+      accountId+      webPropertyId+      profileId+      goalId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementGoalsPatchResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Goals/Update.hs view
@@ -0,0 +1,121 @@+{-# 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.Analytics.Management.Goals.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)+--+-- Updates an existing goal.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.update@.+module Gogol.Analytics.Management.Goals.Update+  ( -- * Resource+    AnalyticsManagementGoalsUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementGoalsUpdate (..),+    newAnalyticsManagementGoalsUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.goals.update@ method which the+-- 'AnalyticsManagementGoalsUpdate' request conforms to.+type AnalyticsManagementGoalsUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "goals"+    Core.:> Core.Capture "goalId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Goal+    Core.:> Core.Put '[Core.JSON] Goal++-- | Updates an existing goal.+--+-- /See:/ 'newAnalyticsManagementGoalsUpdate' smart constructor.+data AnalyticsManagementGoalsUpdate = AnalyticsManagementGoalsUpdate+  { -- | Account ID to update the goal.+    accountId :: Core.Text,+    -- | Index of the goal to be updated.+    goalId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Goal,+    -- | View (Profile) ID to update the goal.+    profileId :: Core.Text,+    -- | Web property ID to update the goal.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementGoalsUpdate' with the minimum fields required to make a request.+newAnalyticsManagementGoalsUpdate ::+  -- |  Account ID to update the goal. See 'accountId'.+  Core.Text ->+  -- |  Index of the goal to be updated. See 'goalId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Goal ->+  -- |  View (Profile) ID to update the goal. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to update the goal. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementGoalsUpdate+newAnalyticsManagementGoalsUpdate+  accountId+  goalId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementGoalsUpdate+      { accountId = accountId,+        goalId = goalId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementGoalsUpdate where+  type Rs AnalyticsManagementGoalsUpdate = Goal+  type Scopes AnalyticsManagementGoalsUpdate = '[Analytics'Edit]+  requestClient AnalyticsManagementGoalsUpdate {..} =+    go+      accountId+      webPropertyId+      profileId+      goalId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementGoalsUpdateResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/Delete.hs view
@@ -0,0 +1,121 @@+{-# 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.Analytics.Management.ProfileFilterLinks.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 profile filter link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.delete@.+module Gogol.Analytics.Management.ProfileFilterLinks.Delete+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksDelete (..),+    newAnalyticsManagementProfileFilterLinksDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.delete@ method which the+-- 'AnalyticsManagementProfileFilterLinksDelete' request conforms to.+type AnalyticsManagementProfileFilterLinksDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Delete a profile filter link.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksDelete' smart constructor.+data AnalyticsManagementProfileFilterLinksDelete = AnalyticsManagementProfileFilterLinksDelete+  { -- | Account ID to which the profile filter link belongs.+    accountId :: Core.Text,+    -- | ID of the profile filter link to delete.+    linkId :: Core.Text,+    -- | Profile ID to which the filter link belongs.+    profileId :: Core.Text,+    -- | Web property Id to which the profile filter link belongs.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksDelete' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksDelete ::+  -- |  Account ID to which the profile filter link belongs. See 'accountId'.+  Core.Text ->+  -- |  ID of the profile filter link to delete. See 'linkId'.+  Core.Text ->+  -- |  Profile ID to which the filter link belongs. See 'profileId'.+  Core.Text ->+  -- |  Web property Id to which the profile filter link belongs. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksDelete+newAnalyticsManagementProfileFilterLinksDelete+  accountId+  linkId+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksDelete+      { accountId =+          accountId,+        linkId = linkId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksDelete+  where+  type Rs AnalyticsManagementProfileFilterLinksDelete = ()+  type+    Scopes AnalyticsManagementProfileFilterLinksDelete =+      '[Analytics'Edit]+  requestClient AnalyticsManagementProfileFilterLinksDelete {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/Get.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.ProfileFilterLinks.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)+--+-- Returns a single profile filter link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.get@.+module Gogol.Analytics.Management.ProfileFilterLinks.Get+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksGetResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksGet (..),+    newAnalyticsManagementProfileFilterLinksGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.get@ method which the+-- 'AnalyticsManagementProfileFilterLinksGet' request conforms to.+type AnalyticsManagementProfileFilterLinksGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ProfileFilterLink++-- | Returns a single profile filter link.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksGet' smart constructor.+data AnalyticsManagementProfileFilterLinksGet = AnalyticsManagementProfileFilterLinksGet+  { -- | Account ID to retrieve profile filter link for.+    accountId :: Core.Text,+    -- | ID of the profile filter link.+    linkId :: Core.Text,+    -- | Profile ID to retrieve filter link for.+    profileId :: Core.Text,+    -- | Web property Id to retrieve profile filter link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksGet' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksGet ::+  -- |  Account ID to retrieve profile filter link for. See 'accountId'.+  Core.Text ->+  -- |  ID of the profile filter link. See 'linkId'.+  Core.Text ->+  -- |  Profile ID to retrieve filter link for. See 'profileId'.+  Core.Text ->+  -- |  Web property Id to retrieve profile filter link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksGet+newAnalyticsManagementProfileFilterLinksGet+  accountId+  linkId+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksGet+      { accountId = accountId,+        linkId = linkId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksGet+  where+  type+    Rs AnalyticsManagementProfileFilterLinksGet =+      ProfileFilterLink+  type+    Scopes AnalyticsManagementProfileFilterLinksGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementProfileFilterLinksGet {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/Insert.hs view
@@ -0,0 +1,123 @@+{-# 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.Analytics.Management.ProfileFilterLinks.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)+--+-- Create a new profile filter link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.insert@.+module Gogol.Analytics.Management.ProfileFilterLinks.Insert+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksInsert (..),+    newAnalyticsManagementProfileFilterLinksInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.insert@ method which the+-- 'AnalyticsManagementProfileFilterLinksInsert' request conforms to.+type AnalyticsManagementProfileFilterLinksInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ProfileFilterLink+    Core.:> Core.Post '[Core.JSON] ProfileFilterLink++-- | Create a new profile filter link.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksInsert' smart constructor.+data AnalyticsManagementProfileFilterLinksInsert = AnalyticsManagementProfileFilterLinksInsert+  { -- | Account ID to create profile filter link for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ProfileFilterLink,+    -- | Profile ID to create filter link for.+    profileId :: Core.Text,+    -- | Web property Id to create profile filter link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksInsert' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksInsert ::+  -- |  Account ID to create profile filter link for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ProfileFilterLink ->+  -- |  Profile ID to create filter link for. See 'profileId'.+  Core.Text ->+  -- |  Web property Id to create profile filter link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksInsert+newAnalyticsManagementProfileFilterLinksInsert+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksInsert+      { accountId =+          accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksInsert+  where+  type+    Rs AnalyticsManagementProfileFilterLinksInsert =+      ProfileFilterLink+  type+    Scopes AnalyticsManagementProfileFilterLinksInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementProfileFilterLinksInsert {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/List.hs view
@@ -0,0 +1,124 @@+{-# 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.Analytics.Management.ProfileFilterLinks.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)+--+-- Lists all profile filter links for a profile.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.list@.+module Gogol.Analytics.Management.ProfileFilterLinks.List+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksListResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksList (..),+    newAnalyticsManagementProfileFilterLinksList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.list@ method which the+-- 'AnalyticsManagementProfileFilterLinksList' request conforms to.+type AnalyticsManagementProfileFilterLinksListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ProfileFilterLinks++-- | Lists all profile filter links for a profile.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksList' smart constructor.+data AnalyticsManagementProfileFilterLinksList = AnalyticsManagementProfileFilterLinksList+  { -- | Account ID to retrieve profile filter links for.+    accountId :: Core.Text,+    -- | The maximum number of profile filter links to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Profile ID to retrieve filter links for. Can either be a specific profile ID or \'~all\', which refers to all the profiles that user has access to.+    profileId :: Core.Text,+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property Id for profile filter links for. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksList' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksList ::+  -- |  Account ID to retrieve profile filter links for. See 'accountId'.+  Core.Text ->+  -- |  Profile ID to retrieve filter links for. Can either be a specific profile ID or \'~all\', which refers to all the profiles that user has access to. See 'profileId'.+  Core.Text ->+  -- |  Web property Id for profile filter links for. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksList+newAnalyticsManagementProfileFilterLinksList+  accountId+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksList+      { accountId = accountId,+        maxResults = Core.Nothing,+        profileId = profileId,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksList+  where+  type+    Rs AnalyticsManagementProfileFilterLinksList =+      ProfileFilterLinks+  type+    Scopes AnalyticsManagementProfileFilterLinksList =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementProfileFilterLinksList {..} =+    go+      accountId+      webPropertyId+      profileId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/Patch.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.ProfileFilterLinks.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 an existing profile filter link. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.patch@.+module Gogol.Analytics.Management.ProfileFilterLinks.Patch+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksPatch (..),+    newAnalyticsManagementProfileFilterLinksPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.patch@ method which the+-- 'AnalyticsManagementProfileFilterLinksPatch' request conforms to.+type AnalyticsManagementProfileFilterLinksPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ProfileFilterLink+    Core.:> Core.Patch '[Core.JSON] ProfileFilterLink++-- | Update an existing profile filter link. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksPatch' smart constructor.+data AnalyticsManagementProfileFilterLinksPatch = AnalyticsManagementProfileFilterLinksPatch+  { -- | Account ID to which profile filter link belongs.+    accountId :: Core.Text,+    -- | ID of the profile filter link to be updated.+    linkId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ProfileFilterLink,+    -- | Profile ID to which filter link belongs+    profileId :: Core.Text,+    -- | Web property Id to which profile filter link belongs+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksPatch' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksPatch ::+  -- |  Account ID to which profile filter link belongs. See 'accountId'.+  Core.Text ->+  -- |  ID of the profile filter link to be updated. See 'linkId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ProfileFilterLink ->+  -- |  Profile ID to which filter link belongs See 'profileId'.+  Core.Text ->+  -- |  Web property Id to which profile filter link belongs See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksPatch+newAnalyticsManagementProfileFilterLinksPatch+  accountId+  linkId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksPatch+      { accountId = accountId,+        linkId = linkId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksPatch+  where+  type+    Rs AnalyticsManagementProfileFilterLinksPatch =+      ProfileFilterLink+  type+    Scopes AnalyticsManagementProfileFilterLinksPatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementProfileFilterLinksPatch {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileFilterLinks/Update.hs view
@@ -0,0 +1,131 @@+{-# 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.Analytics.Management.ProfileFilterLinks.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 an existing profile filter link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.update@.+module Gogol.Analytics.Management.ProfileFilterLinks.Update+  ( -- * Resource+    AnalyticsManagementProfileFilterLinksUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileFilterLinksUpdate (..),+    newAnalyticsManagementProfileFilterLinksUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileFilterLinks.update@ method which the+-- 'AnalyticsManagementProfileFilterLinksUpdate' request conforms to.+type AnalyticsManagementProfileFilterLinksUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "profileFilterLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ProfileFilterLink+    Core.:> Core.Put '[Core.JSON] ProfileFilterLink++-- | Update an existing profile filter link.+--+-- /See:/ 'newAnalyticsManagementProfileFilterLinksUpdate' smart constructor.+data AnalyticsManagementProfileFilterLinksUpdate = AnalyticsManagementProfileFilterLinksUpdate+  { -- | Account ID to which profile filter link belongs.+    accountId :: Core.Text,+    -- | ID of the profile filter link to be updated.+    linkId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ProfileFilterLink,+    -- | Profile ID to which filter link belongs+    profileId :: Core.Text,+    -- | Web property Id to which profile filter link belongs+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileFilterLinksUpdate' with the minimum fields required to make a request.+newAnalyticsManagementProfileFilterLinksUpdate ::+  -- |  Account ID to which profile filter link belongs. See 'accountId'.+  Core.Text ->+  -- |  ID of the profile filter link to be updated. See 'linkId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ProfileFilterLink ->+  -- |  Profile ID to which filter link belongs See 'profileId'.+  Core.Text ->+  -- |  Web property Id to which profile filter link belongs See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileFilterLinksUpdate+newAnalyticsManagementProfileFilterLinksUpdate+  accountId+  linkId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfileFilterLinksUpdate+      { accountId =+          accountId,+        linkId = linkId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileFilterLinksUpdate+  where+  type+    Rs AnalyticsManagementProfileFilterLinksUpdate =+      ProfileFilterLink+  type+    Scopes AnalyticsManagementProfileFilterLinksUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementProfileFilterLinksUpdate {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileFilterLinksUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileUserLinks/Delete.hs view
@@ -0,0 +1,120 @@+{-# 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.Analytics.Management.ProfileUserLinks.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)+--+-- Removes a user from the given view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.delete@.+module Gogol.Analytics.Management.ProfileUserLinks.Delete+  ( -- * Resource+    AnalyticsManagementProfileUserLinksDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileUserLinksDelete (..),+    newAnalyticsManagementProfileUserLinksDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileUserLinks.delete@ method which the+-- 'AnalyticsManagementProfileUserLinksDelete' request conforms to.+type AnalyticsManagementProfileUserLinksDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Removes a user from the given view (profile).+--+-- /See:/ 'newAnalyticsManagementProfileUserLinksDelete' smart constructor.+data AnalyticsManagementProfileUserLinksDelete = AnalyticsManagementProfileUserLinksDelete+  { -- | Account ID to delete the user link for.+    accountId :: Core.Text,+    -- | Link ID to delete the user link for.+    linkId :: Core.Text,+    -- | View (Profile) ID to delete the user link for.+    profileId :: Core.Text,+    -- | Web Property ID to delete the user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileUserLinksDelete' with the minimum fields required to make a request.+newAnalyticsManagementProfileUserLinksDelete ::+  -- |  Account ID to delete the user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to delete the user link for. See 'linkId'.+  Core.Text ->+  -- |  View (Profile) ID to delete the user link for. See 'profileId'.+  Core.Text ->+  -- |  Web Property ID to delete the user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileUserLinksDelete+newAnalyticsManagementProfileUserLinksDelete+  accountId+  linkId+  profileId+  webPropertyId =+    AnalyticsManagementProfileUserLinksDelete+      { accountId = accountId,+        linkId = linkId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileUserLinksDelete+  where+  type Rs AnalyticsManagementProfileUserLinksDelete = ()+  type+    Scopes AnalyticsManagementProfileUserLinksDelete =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementProfileUserLinksDelete {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileUserLinksDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileUserLinks/Insert.hs view
@@ -0,0 +1,120 @@+{-# 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.Analytics.Management.ProfileUserLinks.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)+--+-- Adds a new user to the given view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.insert@.+module Gogol.Analytics.Management.ProfileUserLinks.Insert+  ( -- * Resource+    AnalyticsManagementProfileUserLinksInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileUserLinksInsert (..),+    newAnalyticsManagementProfileUserLinksInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileUserLinks.insert@ method which the+-- 'AnalyticsManagementProfileUserLinksInsert' request conforms to.+type AnalyticsManagementProfileUserLinksInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Post '[Core.JSON] EntityUserLink++-- | Adds a new user to the given view (profile).+--+-- /See:/ 'newAnalyticsManagementProfileUserLinksInsert' smart constructor.+data AnalyticsManagementProfileUserLinksInsert = AnalyticsManagementProfileUserLinksInsert+  { -- | Account ID to create the user link for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink,+    -- | View (Profile) ID to create the user link for.+    profileId :: Core.Text,+    -- | Web Property ID to create the user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileUserLinksInsert' with the minimum fields required to make a request.+newAnalyticsManagementProfileUserLinksInsert ::+  -- |  Account ID to create the user link for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  -- |  View (Profile) ID to create the user link for. See 'profileId'.+  Core.Text ->+  -- |  Web Property ID to create the user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileUserLinksInsert+newAnalyticsManagementProfileUserLinksInsert+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfileUserLinksInsert+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileUserLinksInsert+  where+  type Rs AnalyticsManagementProfileUserLinksInsert = EntityUserLink+  type+    Scopes AnalyticsManagementProfileUserLinksInsert =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementProfileUserLinksInsert {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileUserLinksInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileUserLinks/List.hs view
@@ -0,0 +1,119 @@+{-# 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.Analytics.Management.ProfileUserLinks.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)+--+-- Lists profile-user links for a given view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.list@.+module Gogol.Analytics.Management.ProfileUserLinks.List+  ( -- * Resource+    AnalyticsManagementProfileUserLinksListResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileUserLinksList (..),+    newAnalyticsManagementProfileUserLinksList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileUserLinks.list@ method which the+-- 'AnalyticsManagementProfileUserLinksList' request conforms to.+type AnalyticsManagementProfileUserLinksListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] EntityUserLinks++-- | Lists profile-user links for a given view (profile).+--+-- /See:/ 'newAnalyticsManagementProfileUserLinksList' smart constructor.+data AnalyticsManagementProfileUserLinksList = AnalyticsManagementProfileUserLinksList+  { -- | Account ID which the given view (profile) belongs to.+    accountId :: Core.Text,+    -- | The maximum number of profile-user links to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | View (Profile) ID to retrieve the profile-user links for. Can either be a specific profile ID or \'~all\', which refers to all the profiles that user has access to.+    profileId :: Core.Text,+    -- | An index of the first profile-user link to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web Property ID which the given view (profile) belongs to. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileUserLinksList' with the minimum fields required to make a request.+newAnalyticsManagementProfileUserLinksList ::+  -- |  Account ID which the given view (profile) belongs to. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve the profile-user links for. Can either be a specific profile ID or \'~all\', which refers to all the profiles that user has access to. See 'profileId'.+  Core.Text ->+  -- |  Web Property ID which the given view (profile) belongs to. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileUserLinksList+newAnalyticsManagementProfileUserLinksList+  accountId+  profileId+  webPropertyId =+    AnalyticsManagementProfileUserLinksList+      { accountId = accountId,+        maxResults = Core.Nothing,+        profileId = profileId,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementProfileUserLinksList where+  type Rs AnalyticsManagementProfileUserLinksList = EntityUserLinks+  type+    Scopes AnalyticsManagementProfileUserLinksList =+      '[Analytics'Manage'Users, Analytics'Manage'Users'Readonly]+  requestClient AnalyticsManagementProfileUserLinksList {..} =+    go+      accountId+      webPropertyId+      profileId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileUserLinksListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/ProfileUserLinks/Update.hs view
@@ -0,0 +1,128 @@+{-# 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.Analytics.Management.ProfileUserLinks.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)+--+-- Updates permissions for an existing user on the given view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.update@.+module Gogol.Analytics.Management.ProfileUserLinks.Update+  ( -- * Resource+    AnalyticsManagementProfileUserLinksUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementProfileUserLinksUpdate (..),+    newAnalyticsManagementProfileUserLinksUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profileUserLinks.update@ method which the+-- 'AnalyticsManagementProfileUserLinksUpdate' request conforms to.+type AnalyticsManagementProfileUserLinksUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Put '[Core.JSON] EntityUserLink++-- | Updates permissions for an existing user on the given view (profile).+--+-- /See:/ 'newAnalyticsManagementProfileUserLinksUpdate' smart constructor.+data AnalyticsManagementProfileUserLinksUpdate = AnalyticsManagementProfileUserLinksUpdate+  { -- | Account ID to update the user link for.+    accountId :: Core.Text,+    -- | Link ID to update the user link for.+    linkId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink,+    -- | View (Profile ID) to update the user link for.+    profileId :: Core.Text,+    -- | Web Property ID to update the user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfileUserLinksUpdate' with the minimum fields required to make a request.+newAnalyticsManagementProfileUserLinksUpdate ::+  -- |  Account ID to update the user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to update the user link for. See 'linkId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  -- |  View (Profile ID) to update the user link for. See 'profileId'.+  Core.Text ->+  -- |  Web Property ID to update the user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfileUserLinksUpdate+newAnalyticsManagementProfileUserLinksUpdate+  accountId+  linkId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfileUserLinksUpdate+      { accountId = accountId,+        linkId = linkId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementProfileUserLinksUpdate+  where+  type Rs AnalyticsManagementProfileUserLinksUpdate = EntityUserLink+  type+    Scopes AnalyticsManagementProfileUserLinksUpdate =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementProfileUserLinksUpdate {..} =+    go+      accountId+      webPropertyId+      profileId+      linkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfileUserLinksUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/Delete.hs view
@@ -0,0 +1,106 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Deletes a view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.delete@.+module Gogol.Analytics.Management.Profiles.Delete+  ( -- * Resource+    AnalyticsManagementProfilesDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesDelete (..),+    newAnalyticsManagementProfilesDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.delete@ method which the+-- 'AnalyticsManagementProfilesDelete' request conforms to.+type AnalyticsManagementProfilesDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Deletes a view (profile).+--+-- /See:/ 'newAnalyticsManagementProfilesDelete' smart constructor.+data AnalyticsManagementProfilesDelete = AnalyticsManagementProfilesDelete+  { -- | Account ID to delete the view (profile) for.+    accountId :: Core.Text,+    -- | ID of the view (profile) to be deleted.+    profileId :: Core.Text,+    -- | Web property ID to delete the view (profile) for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesDelete' with the minimum fields required to make a request.+newAnalyticsManagementProfilesDelete ::+  -- |  Account ID to delete the view (profile) for. See 'accountId'.+  Core.Text ->+  -- |  ID of the view (profile) to be deleted. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to delete the view (profile) for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesDelete+newAnalyticsManagementProfilesDelete+  accountId+  profileId+  webPropertyId =+    AnalyticsManagementProfilesDelete+      { accountId = accountId,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementProfilesDelete where+  type Rs AnalyticsManagementProfilesDelete = ()+  type Scopes AnalyticsManagementProfilesDelete = '[Analytics'Edit]+  requestClient AnalyticsManagementProfilesDelete {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfilesDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/Get.hs view
@@ -0,0 +1,103 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Gets a view (profile) to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.get@.+module Gogol.Analytics.Management.Profiles.Get+  ( -- * Resource+    AnalyticsManagementProfilesGetResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesGet (..),+    newAnalyticsManagementProfilesGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.get@ method which the+-- 'AnalyticsManagementProfilesGet' request conforms to.+type AnalyticsManagementProfilesGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Profile++-- | Gets a view (profile) to which the user has access.+--+-- /See:/ 'newAnalyticsManagementProfilesGet' smart constructor.+data AnalyticsManagementProfilesGet = AnalyticsManagementProfilesGet+  { -- | Account ID to retrieve the view (profile) for.+    accountId :: Core.Text,+    -- | View (Profile) ID to retrieve the view (profile) for.+    profileId :: Core.Text,+    -- | Web property ID to retrieve the view (profile) for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesGet' with the minimum fields required to make a request.+newAnalyticsManagementProfilesGet ::+  -- |  Account ID to retrieve the view (profile) for. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve the view (profile) for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve the view (profile) for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesGet+newAnalyticsManagementProfilesGet accountId profileId webPropertyId =+  AnalyticsManagementProfilesGet+    { accountId = accountId,+      profileId = profileId,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementProfilesGet where+  type Rs AnalyticsManagementProfilesGet = Profile+  type+    Scopes AnalyticsManagementProfilesGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementProfilesGet {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementProfilesGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/Insert.hs view
@@ -0,0 +1,106 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Create a new view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.insert@.+module Gogol.Analytics.Management.Profiles.Insert+  ( -- * Resource+    AnalyticsManagementProfilesInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesInsert (..),+    newAnalyticsManagementProfilesInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.insert@ method which the+-- 'AnalyticsManagementProfilesInsert' request conforms to.+type AnalyticsManagementProfilesInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Profile+    Core.:> Core.Post '[Core.JSON] Profile++-- | Create a new view (profile).+--+-- /See:/ 'newAnalyticsManagementProfilesInsert' smart constructor.+data AnalyticsManagementProfilesInsert = AnalyticsManagementProfilesInsert+  { -- | Account ID to create the view (profile) for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Profile,+    -- | Web property ID to create the view (profile) for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesInsert' with the minimum fields required to make a request.+newAnalyticsManagementProfilesInsert ::+  -- |  Account ID to create the view (profile) for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Profile ->+  -- |  Web property ID to create the view (profile) for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesInsert+newAnalyticsManagementProfilesInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementProfilesInsert+      { accountId = accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementProfilesInsert where+  type Rs AnalyticsManagementProfilesInsert = Profile+  type Scopes AnalyticsManagementProfilesInsert = '[Analytics'Edit]+  requestClient AnalyticsManagementProfilesInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfilesInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/List.hs view
@@ -0,0 +1,106 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Lists views (profiles) to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.list@.+module Gogol.Analytics.Management.Profiles.List+  ( -- * Resource+    AnalyticsManagementProfilesListResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesList (..),+    newAnalyticsManagementProfilesList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.list@ method which the+-- 'AnalyticsManagementProfilesList' request conforms to.+type AnalyticsManagementProfilesListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Profiles++-- | Lists views (profiles) to which the user has access.+--+-- /See:/ 'newAnalyticsManagementProfilesList' smart constructor.+data AnalyticsManagementProfilesList = AnalyticsManagementProfilesList+  { -- | Account ID for the view (profiles) to retrieve. Can either be a specific account ID or \'~all\', which refers to all the accounts to which the user has access.+    accountId :: Core.Text,+    -- | The maximum number of views (profiles) to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID for the views (profiles) to retrieve. Can either be a specific web property ID or \'~all\', which refers to all the web properties to which the user has access.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesList' with the minimum fields required to make a request.+newAnalyticsManagementProfilesList ::+  -- |  Account ID for the view (profiles) to retrieve. Can either be a specific account ID or \'~all\', which refers to all the accounts to which the user has access. See 'accountId'.+  Core.Text ->+  -- |  Web property ID for the views (profiles) to retrieve. Can either be a specific web property ID or \'~all\', which refers to all the web properties to which the user has access. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesList+newAnalyticsManagementProfilesList accountId webPropertyId =+  AnalyticsManagementProfilesList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementProfilesList where+  type Rs AnalyticsManagementProfilesList = Profiles+  type+    Scopes AnalyticsManagementProfilesList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementProfilesList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementProfilesListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/Patch.hs view
@@ -0,0 +1,112 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Updates an existing view (profile). This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.patch@.+module Gogol.Analytics.Management.Profiles.Patch+  ( -- * Resource+    AnalyticsManagementProfilesPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesPatch (..),+    newAnalyticsManagementProfilesPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.patch@ method which the+-- 'AnalyticsManagementProfilesPatch' request conforms to.+type AnalyticsManagementProfilesPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Profile+    Core.:> Core.Patch '[Core.JSON] Profile++-- | Updates an existing view (profile). This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementProfilesPatch' smart constructor.+data AnalyticsManagementProfilesPatch = AnalyticsManagementProfilesPatch+  { -- | Account ID to which the view (profile) belongs+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Profile,+    -- | ID of the view (profile) to be updated.+    profileId :: Core.Text,+    -- | Web property ID to which the view (profile) belongs+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesPatch' with the minimum fields required to make a request.+newAnalyticsManagementProfilesPatch ::+  -- |  Account ID to which the view (profile) belongs See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Profile ->+  -- |  ID of the view (profile) to be updated. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to which the view (profile) belongs See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesPatch+newAnalyticsManagementProfilesPatch+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfilesPatch+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementProfilesPatch where+  type Rs AnalyticsManagementProfilesPatch = Profile+  type Scopes AnalyticsManagementProfilesPatch = '[Analytics'Edit]+  requestClient AnalyticsManagementProfilesPatch {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementProfilesPatchResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Profiles/Update.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Management.Profiles.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)+--+-- Updates an existing view (profile).+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.update@.+module Gogol.Analytics.Management.Profiles.Update+  ( -- * Resource+    AnalyticsManagementProfilesUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementProfilesUpdate (..),+    newAnalyticsManagementProfilesUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.profiles.update@ method which the+-- 'AnalyticsManagementProfilesUpdate' request conforms to.+type AnalyticsManagementProfilesUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Profile+    Core.:> Core.Put '[Core.JSON] Profile++-- | Updates an existing view (profile).+--+-- /See:/ 'newAnalyticsManagementProfilesUpdate' smart constructor.+data AnalyticsManagementProfilesUpdate = AnalyticsManagementProfilesUpdate+  { -- | Account ID to which the view (profile) belongs+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Profile,+    -- | ID of the view (profile) to be updated.+    profileId :: Core.Text,+    -- | Web property ID to which the view (profile) belongs+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementProfilesUpdate' with the minimum fields required to make a request.+newAnalyticsManagementProfilesUpdate ::+  -- |  Account ID to which the view (profile) belongs See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Profile ->+  -- |  ID of the view (profile) to be updated. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to which the view (profile) belongs See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementProfilesUpdate+newAnalyticsManagementProfilesUpdate+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementProfilesUpdate+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementProfilesUpdate where+  type Rs AnalyticsManagementProfilesUpdate = Profile+  type Scopes AnalyticsManagementProfilesUpdate = '[Analytics'Edit]+  requestClient AnalyticsManagementProfilesUpdate {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementProfilesUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/Delete.hs view
@@ -0,0 +1,112 @@+{-# 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.Analytics.Management.RemarketingAudience.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 remarketing audience.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.delete@.+module Gogol.Analytics.Management.RemarketingAudience.Delete+  ( -- * Resource+    AnalyticsManagementRemarketingAudienceDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudienceDelete (..),+    newAnalyticsManagementRemarketingAudienceDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.delete@ method which the+-- 'AnalyticsManagementRemarketingAudienceDelete' request conforms to.+type AnalyticsManagementRemarketingAudienceDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.Capture "remarketingAudienceId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Delete a remarketing audience.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudienceDelete' smart constructor.+data AnalyticsManagementRemarketingAudienceDelete = AnalyticsManagementRemarketingAudienceDelete+  { -- | Account ID to which the remarketing audience belongs.+    accountId :: Core.Text,+    -- | The ID of the remarketing audience to delete.+    remarketingAudienceId :: Core.Text,+    -- | Web property ID to which the remarketing audience belongs.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudienceDelete' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudienceDelete ::+  -- |  Account ID to which the remarketing audience belongs. See 'accountId'.+  Core.Text ->+  -- |  The ID of the remarketing audience to delete. See 'remarketingAudienceId'.+  Core.Text ->+  -- |  Web property ID to which the remarketing audience belongs. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudienceDelete+newAnalyticsManagementRemarketingAudienceDelete+  accountId+  remarketingAudienceId+  webPropertyId =+    AnalyticsManagementRemarketingAudienceDelete+      { accountId =+          accountId,+        remarketingAudienceId = remarketingAudienceId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudienceDelete+  where+  type Rs AnalyticsManagementRemarketingAudienceDelete = ()+  type+    Scopes AnalyticsManagementRemarketingAudienceDelete =+      '[Analytics'Edit]+  requestClient AnalyticsManagementRemarketingAudienceDelete {..} =+    go+      accountId+      webPropertyId+      remarketingAudienceId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudienceDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/Get.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.Analytics.Management.RemarketingAudience.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)+--+-- Gets a remarketing audience to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.get@.+module Gogol.Analytics.Management.RemarketingAudience.Get+  ( -- * Resource+    AnalyticsManagementRemarketingAudienceGetResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudienceGet (..),+    newAnalyticsManagementRemarketingAudienceGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.get@ method which the+-- 'AnalyticsManagementRemarketingAudienceGet' request conforms to.+type AnalyticsManagementRemarketingAudienceGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.Capture "remarketingAudienceId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] RemarketingAudience++-- | Gets a remarketing audience to which the user has access.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudienceGet' smart constructor.+data AnalyticsManagementRemarketingAudienceGet = AnalyticsManagementRemarketingAudienceGet+  { -- | The account ID of the remarketing audience to retrieve.+    accountId :: Core.Text,+    -- | The ID of the remarketing audience to retrieve.+    remarketingAudienceId :: Core.Text,+    -- | The web property ID of the remarketing audience to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudienceGet' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudienceGet ::+  -- |  The account ID of the remarketing audience to retrieve. See 'accountId'.+  Core.Text ->+  -- |  The ID of the remarketing audience to retrieve. See 'remarketingAudienceId'.+  Core.Text ->+  -- |  The web property ID of the remarketing audience to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudienceGet+newAnalyticsManagementRemarketingAudienceGet+  accountId+  remarketingAudienceId+  webPropertyId =+    AnalyticsManagementRemarketingAudienceGet+      { accountId = accountId,+        remarketingAudienceId = remarketingAudienceId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudienceGet+  where+  type+    Rs AnalyticsManagementRemarketingAudienceGet =+      RemarketingAudience+  type+    Scopes AnalyticsManagementRemarketingAudienceGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementRemarketingAudienceGet {..} =+    go+      accountId+      webPropertyId+      remarketingAudienceId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudienceGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/Insert.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Management.RemarketingAudience.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)+--+-- Creates a new remarketing audience.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.insert@.+module Gogol.Analytics.Management.RemarketingAudience.Insert+  ( -- * Resource+    AnalyticsManagementRemarketingAudienceInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudienceInsert (..),+    newAnalyticsManagementRemarketingAudienceInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.insert@ method which the+-- 'AnalyticsManagementRemarketingAudienceInsert' request conforms to.+type AnalyticsManagementRemarketingAudienceInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] RemarketingAudience+    Core.:> Core.Post '[Core.JSON] RemarketingAudience++-- | Creates a new remarketing audience.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudienceInsert' smart constructor.+data AnalyticsManagementRemarketingAudienceInsert = AnalyticsManagementRemarketingAudienceInsert+  { -- | The account ID for which to create the remarketing audience.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: RemarketingAudience,+    -- | Web property ID for which to create the remarketing audience.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudienceInsert' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudienceInsert ::+  -- |  The account ID for which to create the remarketing audience. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RemarketingAudience ->+  -- |  Web property ID for which to create the remarketing audience. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudienceInsert+newAnalyticsManagementRemarketingAudienceInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementRemarketingAudienceInsert+      { accountId =+          accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudienceInsert+  where+  type+    Rs AnalyticsManagementRemarketingAudienceInsert =+      RemarketingAudience+  type+    Scopes AnalyticsManagementRemarketingAudienceInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementRemarketingAudienceInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudienceInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/List.hs view
@@ -0,0 +1,119 @@+{-# 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.Analytics.Management.RemarketingAudience.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)+--+-- Lists remarketing audiences to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.list@.+module Gogol.Analytics.Management.RemarketingAudience.List+  ( -- * Resource+    AnalyticsManagementRemarketingAudienceListResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudienceList (..),+    newAnalyticsManagementRemarketingAudienceList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.list@ method which the+-- 'AnalyticsManagementRemarketingAudienceList' request conforms to.+type AnalyticsManagementRemarketingAudienceListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "type" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] RemarketingAudiences++-- | Lists remarketing audiences to which the user has access.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudienceList' smart constructor.+data AnalyticsManagementRemarketingAudienceList = AnalyticsManagementRemarketingAudienceList+  { -- | The account ID of the remarketing audiences to retrieve.+    accountId :: Core.Text,+    -- | The maximum number of remarketing audiences to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    type' :: Core.Text,+    -- | The web property ID of the remarketing audiences to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudienceList' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudienceList ::+  -- |  The account ID of the remarketing audiences to retrieve. See 'accountId'.+  Core.Text ->+  -- |  The web property ID of the remarketing audiences to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudienceList+newAnalyticsManagementRemarketingAudienceList+  accountId+  webPropertyId =+    AnalyticsManagementRemarketingAudienceList+      { accountId = accountId,+        maxResults = Core.Nothing,+        startIndex = Core.Nothing,+        type' = "all",+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudienceList+  where+  type+    Rs AnalyticsManagementRemarketingAudienceList =+      RemarketingAudiences+  type+    Scopes AnalyticsManagementRemarketingAudienceList =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementRemarketingAudienceList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just type')+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudienceListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/Patch.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.RemarketingAudience.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)+--+-- Updates an existing remarketing audience. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.patch@.+module Gogol.Analytics.Management.RemarketingAudience.Patch+  ( -- * Resource+    AnalyticsManagementRemarketingAudiencePatchResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudiencePatch (..),+    newAnalyticsManagementRemarketingAudiencePatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.patch@ method which the+-- 'AnalyticsManagementRemarketingAudiencePatch' request conforms to.+type AnalyticsManagementRemarketingAudiencePatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.Capture "remarketingAudienceId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] RemarketingAudience+    Core.:> Core.Patch '[Core.JSON] RemarketingAudience++-- | Updates an existing remarketing audience. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudiencePatch' smart constructor.+data AnalyticsManagementRemarketingAudiencePatch = AnalyticsManagementRemarketingAudiencePatch+  { -- | The account ID of the remarketing audience to update.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: RemarketingAudience,+    -- | The ID of the remarketing audience to update.+    remarketingAudienceId :: Core.Text,+    -- | The web property ID of the remarketing audience to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudiencePatch' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudiencePatch ::+  -- |  The account ID of the remarketing audience to update. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RemarketingAudience ->+  -- |  The ID of the remarketing audience to update. See 'remarketingAudienceId'.+  Core.Text ->+  -- |  The web property ID of the remarketing audience to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudiencePatch+newAnalyticsManagementRemarketingAudiencePatch+  accountId+  payload+  remarketingAudienceId+  webPropertyId =+    AnalyticsManagementRemarketingAudiencePatch+      { accountId =+          accountId,+        payload = payload,+        remarketingAudienceId = remarketingAudienceId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudiencePatch+  where+  type+    Rs AnalyticsManagementRemarketingAudiencePatch =+      RemarketingAudience+  type+    Scopes AnalyticsManagementRemarketingAudiencePatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementRemarketingAudiencePatch {..} =+    go+      accountId+      webPropertyId+      remarketingAudienceId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudiencePatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/RemarketingAudience/Update.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.RemarketingAudience.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)+--+-- Updates an existing remarketing audience.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.update@.+module Gogol.Analytics.Management.RemarketingAudience.Update+  ( -- * Resource+    AnalyticsManagementRemarketingAudienceUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementRemarketingAudienceUpdate (..),+    newAnalyticsManagementRemarketingAudienceUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.remarketingAudience.update@ method which the+-- 'AnalyticsManagementRemarketingAudienceUpdate' request conforms to.+type AnalyticsManagementRemarketingAudienceUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "remarketingAudiences"+    Core.:> Core.Capture "remarketingAudienceId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] RemarketingAudience+    Core.:> Core.Put '[Core.JSON] RemarketingAudience++-- | Updates an existing remarketing audience.+--+-- /See:/ 'newAnalyticsManagementRemarketingAudienceUpdate' smart constructor.+data AnalyticsManagementRemarketingAudienceUpdate = AnalyticsManagementRemarketingAudienceUpdate+  { -- | The account ID of the remarketing audience to update.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: RemarketingAudience,+    -- | The ID of the remarketing audience to update.+    remarketingAudienceId :: Core.Text,+    -- | The web property ID of the remarketing audience to update.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementRemarketingAudienceUpdate' with the minimum fields required to make a request.+newAnalyticsManagementRemarketingAudienceUpdate ::+  -- |  The account ID of the remarketing audience to update. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RemarketingAudience ->+  -- |  The ID of the remarketing audience to update. See 'remarketingAudienceId'.+  Core.Text ->+  -- |  The web property ID of the remarketing audience to update. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementRemarketingAudienceUpdate+newAnalyticsManagementRemarketingAudienceUpdate+  accountId+  payload+  remarketingAudienceId+  webPropertyId =+    AnalyticsManagementRemarketingAudienceUpdate+      { accountId =+          accountId,+        payload = payload,+        remarketingAudienceId = remarketingAudienceId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementRemarketingAudienceUpdate+  where+  type+    Rs AnalyticsManagementRemarketingAudienceUpdate =+      RemarketingAudience+  type+    Scopes AnalyticsManagementRemarketingAudienceUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementRemarketingAudienceUpdate {..} =+    go+      accountId+      webPropertyId+      remarketingAudienceId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementRemarketingAudienceUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Segments/List.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.Analytics.Management.Segments.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)+--+-- Lists segments to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.segments.list@.+module Gogol.Analytics.Management.Segments.List+  ( -- * Resource+    AnalyticsManagementSegmentsListResource,++    -- ** Constructing a Request+    AnalyticsManagementSegmentsList (..),+    newAnalyticsManagementSegmentsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.segments.list@ method which the+-- 'AnalyticsManagementSegmentsList' request conforms to.+type AnalyticsManagementSegmentsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "segments"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Segments++-- | Lists segments to which the user has access.+--+-- /See:/ 'newAnalyticsManagementSegmentsList' smart constructor.+data AnalyticsManagementSegmentsList = AnalyticsManagementSegmentsList+  { -- | The maximum number of segments to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first segment to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementSegmentsList' with the minimum fields required to make a request.+newAnalyticsManagementSegmentsList ::+  AnalyticsManagementSegmentsList+newAnalyticsManagementSegmentsList =+  AnalyticsManagementSegmentsList+    { maxResults = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementSegmentsList where+  type Rs AnalyticsManagementSegmentsList = Segments+  type+    Scopes AnalyticsManagementSegmentsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementSegmentsList {..} =+    go+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementSegmentsListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/UnsampledReports/Delete.hs view
@@ -0,0 +1,120 @@+{-# 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.Analytics.Management.UnsampledReports.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)+--+-- Deletes an unsampled report.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.delete@.+module Gogol.Analytics.Management.UnsampledReports.Delete+  ( -- * Resource+    AnalyticsManagementUnsampledReportsDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementUnsampledReportsDelete (..),+    newAnalyticsManagementUnsampledReportsDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.unsampledReports.delete@ method which the+-- 'AnalyticsManagementUnsampledReportsDelete' request conforms to.+type AnalyticsManagementUnsampledReportsDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "unsampledReports"+    Core.:> Core.Capture "unsampledReportId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Deletes an unsampled report.+--+-- /See:/ 'newAnalyticsManagementUnsampledReportsDelete' smart constructor.+data AnalyticsManagementUnsampledReportsDelete = AnalyticsManagementUnsampledReportsDelete+  { -- | Account ID to delete the unsampled report for.+    accountId :: Core.Text,+    -- | View (Profile) ID to delete the unsampled report for.+    profileId :: Core.Text,+    -- | ID of the unsampled report to be deleted.+    unsampledReportId :: Core.Text,+    -- | Web property ID to delete the unsampled reports for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUnsampledReportsDelete' with the minimum fields required to make a request.+newAnalyticsManagementUnsampledReportsDelete ::+  -- |  Account ID to delete the unsampled report for. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to delete the unsampled report for. See 'profileId'.+  Core.Text ->+  -- |  ID of the unsampled report to be deleted. See 'unsampledReportId'.+  Core.Text ->+  -- |  Web property ID to delete the unsampled reports for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUnsampledReportsDelete+newAnalyticsManagementUnsampledReportsDelete+  accountId+  profileId+  unsampledReportId+  webPropertyId =+    AnalyticsManagementUnsampledReportsDelete+      { accountId = accountId,+        profileId = profileId,+        unsampledReportId = unsampledReportId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementUnsampledReportsDelete+  where+  type Rs AnalyticsManagementUnsampledReportsDelete = ()+  type+    Scopes AnalyticsManagementUnsampledReportsDelete =+      '[Analytics'Edit]+  requestClient AnalyticsManagementUnsampledReportsDelete {..} =+    go+      accountId+      webPropertyId+      profileId+      unsampledReportId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUnsampledReportsDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/UnsampledReports/Get.hs view
@@ -0,0 +1,117 @@+{-# 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.Analytics.Management.UnsampledReports.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)+--+-- Returns a single unsampled report.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.get@.+module Gogol.Analytics.Management.UnsampledReports.Get+  ( -- * Resource+    AnalyticsManagementUnsampledReportsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementUnsampledReportsGet (..),+    newAnalyticsManagementUnsampledReportsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.unsampledReports.get@ method which the+-- 'AnalyticsManagementUnsampledReportsGet' request conforms to.+type AnalyticsManagementUnsampledReportsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "unsampledReports"+    Core.:> Core.Capture "unsampledReportId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] UnsampledReport++-- | Returns a single unsampled report.+--+-- /See:/ 'newAnalyticsManagementUnsampledReportsGet' smart constructor.+data AnalyticsManagementUnsampledReportsGet = AnalyticsManagementUnsampledReportsGet+  { -- | Account ID to retrieve unsampled report for.+    accountId :: Core.Text,+    -- | View (Profile) ID to retrieve unsampled report for.+    profileId :: Core.Text,+    -- | ID of the unsampled report to retrieve.+    unsampledReportId :: Core.Text,+    -- | Web property ID to retrieve unsampled reports for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUnsampledReportsGet' with the minimum fields required to make a request.+newAnalyticsManagementUnsampledReportsGet ::+  -- |  Account ID to retrieve unsampled report for. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve unsampled report for. See 'profileId'.+  Core.Text ->+  -- |  ID of the unsampled report to retrieve. See 'unsampledReportId'.+  Core.Text ->+  -- |  Web property ID to retrieve unsampled reports for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUnsampledReportsGet+newAnalyticsManagementUnsampledReportsGet+  accountId+  profileId+  unsampledReportId+  webPropertyId =+    AnalyticsManagementUnsampledReportsGet+      { accountId = accountId,+        profileId = profileId,+        unsampledReportId = unsampledReportId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementUnsampledReportsGet where+  type Rs AnalyticsManagementUnsampledReportsGet = UnsampledReport+  type+    Scopes AnalyticsManagementUnsampledReportsGet =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementUnsampledReportsGet {..} =+    go+      accountId+      webPropertyId+      profileId+      unsampledReportId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUnsampledReportsGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/UnsampledReports/Insert.hs view
@@ -0,0 +1,120 @@+{-# 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.Analytics.Management.UnsampledReports.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)+--+-- Create a new unsampled report.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.insert@.+module Gogol.Analytics.Management.UnsampledReports.Insert+  ( -- * Resource+    AnalyticsManagementUnsampledReportsInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementUnsampledReportsInsert (..),+    newAnalyticsManagementUnsampledReportsInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.unsampledReports.insert@ method which the+-- 'AnalyticsManagementUnsampledReportsInsert' request conforms to.+type AnalyticsManagementUnsampledReportsInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "unsampledReports"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] UnsampledReport+    Core.:> Core.Post '[Core.JSON] UnsampledReport++-- | Create a new unsampled report.+--+-- /See:/ 'newAnalyticsManagementUnsampledReportsInsert' smart constructor.+data AnalyticsManagementUnsampledReportsInsert = AnalyticsManagementUnsampledReportsInsert+  { -- | Account ID to create the unsampled report for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: UnsampledReport,+    -- | View (Profile) ID to create the unsampled report for.+    profileId :: Core.Text,+    -- | Web property ID to create the unsampled report for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUnsampledReportsInsert' with the minimum fields required to make a request.+newAnalyticsManagementUnsampledReportsInsert ::+  -- |  Account ID to create the unsampled report for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  UnsampledReport ->+  -- |  View (Profile) ID to create the unsampled report for. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to create the unsampled report for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUnsampledReportsInsert+newAnalyticsManagementUnsampledReportsInsert+  accountId+  payload+  profileId+  webPropertyId =+    AnalyticsManagementUnsampledReportsInsert+      { accountId = accountId,+        payload = payload,+        profileId = profileId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementUnsampledReportsInsert+  where+  type Rs AnalyticsManagementUnsampledReportsInsert = UnsampledReport+  type+    Scopes AnalyticsManagementUnsampledReportsInsert =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementUnsampledReportsInsert {..} =+    go+      accountId+      webPropertyId+      profileId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUnsampledReportsInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/UnsampledReports/List.hs view
@@ -0,0 +1,119 @@+{-# 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.Analytics.Management.UnsampledReports.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)+--+-- Lists unsampled reports to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.list@.+module Gogol.Analytics.Management.UnsampledReports.List+  ( -- * Resource+    AnalyticsManagementUnsampledReportsListResource,++    -- ** Constructing a Request+    AnalyticsManagementUnsampledReportsList (..),+    newAnalyticsManagementUnsampledReportsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.unsampledReports.list@ method which the+-- 'AnalyticsManagementUnsampledReportsList' request conforms to.+type AnalyticsManagementUnsampledReportsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "profiles"+    Core.:> Core.Capture "profileId" Core.Text+    Core.:> "unsampledReports"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] UnsampledReports++-- | Lists unsampled reports to which the user has access.+--+-- /See:/ 'newAnalyticsManagementUnsampledReportsList' smart constructor.+data AnalyticsManagementUnsampledReportsList = AnalyticsManagementUnsampledReportsList+  { -- | Account ID to retrieve unsampled reports for. Must be a specific account ID, ~all is not supported.+    accountId :: Core.Text,+    -- | The maximum number of unsampled reports to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | View (Profile) ID to retrieve unsampled reports for. Must be a specific view (profile) ID, ~all is not supported.+    profileId :: Core.Text,+    -- | An index of the first unsampled report to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID to retrieve unsampled reports for. Must be a specific web property ID, ~all is not supported.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUnsampledReportsList' with the minimum fields required to make a request.+newAnalyticsManagementUnsampledReportsList ::+  -- |  Account ID to retrieve unsampled reports for. Must be a specific account ID, ~all is not supported. See 'accountId'.+  Core.Text ->+  -- |  View (Profile) ID to retrieve unsampled reports for. Must be a specific view (profile) ID, ~all is not supported. See 'profileId'.+  Core.Text ->+  -- |  Web property ID to retrieve unsampled reports for. Must be a specific web property ID, ~all is not supported. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUnsampledReportsList+newAnalyticsManagementUnsampledReportsList+  accountId+  profileId+  webPropertyId =+    AnalyticsManagementUnsampledReportsList+      { accountId = accountId,+        maxResults = Core.Nothing,+        profileId = profileId,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementUnsampledReportsList where+  type Rs AnalyticsManagementUnsampledReportsList = UnsampledReports+  type+    Scopes AnalyticsManagementUnsampledReportsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementUnsampledReportsList {..} =+    go+      accountId+      webPropertyId+      profileId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUnsampledReportsListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Uploads/DeleteUploadData.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.Uploads.DeleteUploadData+-- 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 data associated with a previous upload.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.deleteUploadData@.+module Gogol.Analytics.Management.Uploads.DeleteUploadData+  ( -- * Resource+    AnalyticsManagementUploadsDeleteUploadDataResource,++    -- ** Constructing a Request+    AnalyticsManagementUploadsDeleteUploadData (..),+    newAnalyticsManagementUploadsDeleteUploadData,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.uploads.deleteUploadData@ method which the+-- 'AnalyticsManagementUploadsDeleteUploadData' request conforms to.+type AnalyticsManagementUploadsDeleteUploadDataResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.Capture "customDataSourceId" Core.Text+    Core.:> "deleteUploadData"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody+              '[Core.JSON]+              AnalyticsDataimportDeleteUploadDataRequest+    Core.:> Core.Post '[Core.JSON] ()++-- | Delete data associated with a previous upload.+--+-- /See:/ 'newAnalyticsManagementUploadsDeleteUploadData' smart constructor.+data AnalyticsManagementUploadsDeleteUploadData = AnalyticsManagementUploadsDeleteUploadData+  { -- | Account Id for the uploads to be deleted.+    accountId :: Core.Text,+    -- | Custom data source Id for the uploads to be deleted.+    customDataSourceId :: Core.Text,+    -- | Multipart request metadata.+    payload :: AnalyticsDataimportDeleteUploadDataRequest,+    -- | Web property Id for the uploads to be deleted.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUploadsDeleteUploadData' with the minimum fields required to make a request.+newAnalyticsManagementUploadsDeleteUploadData ::+  -- |  Account Id for the uploads to be deleted. See 'accountId'.+  Core.Text ->+  -- |  Custom data source Id for the uploads to be deleted. See 'customDataSourceId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AnalyticsDataimportDeleteUploadDataRequest ->+  -- |  Web property Id for the uploads to be deleted. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUploadsDeleteUploadData+newAnalyticsManagementUploadsDeleteUploadData+  accountId+  customDataSourceId+  payload+  webPropertyId =+    AnalyticsManagementUploadsDeleteUploadData+      { accountId = accountId,+        customDataSourceId = customDataSourceId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementUploadsDeleteUploadData+  where+  type Rs AnalyticsManagementUploadsDeleteUploadData = ()+  type+    Scopes AnalyticsManagementUploadsDeleteUploadData =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementUploadsDeleteUploadData {..} =+    go+      accountId+      webPropertyId+      customDataSourceId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUploadsDeleteUploadDataResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Uploads/Get.hs view
@@ -0,0 +1,115 @@+{-# 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.Analytics.Management.Uploads.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)+--+-- List uploads to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.get@.+module Gogol.Analytics.Management.Uploads.Get+  ( -- * Resource+    AnalyticsManagementUploadsGetResource,++    -- ** Constructing a Request+    AnalyticsManagementUploadsGet (..),+    newAnalyticsManagementUploadsGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.uploads.get@ method which the+-- 'AnalyticsManagementUploadsGet' request conforms to.+type AnalyticsManagementUploadsGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.Capture "customDataSourceId" Core.Text+    Core.:> "uploads"+    Core.:> Core.Capture "uploadId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Upload++-- | List uploads to which the user has access.+--+-- /See:/ 'newAnalyticsManagementUploadsGet' smart constructor.+data AnalyticsManagementUploadsGet = AnalyticsManagementUploadsGet+  { -- | Account Id for the upload to retrieve.+    accountId :: Core.Text,+    -- | Custom data source Id for upload to retrieve.+    customDataSourceId :: Core.Text,+    -- | Upload Id to retrieve.+    uploadId :: Core.Text,+    -- | Web property Id for the upload to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUploadsGet' with the minimum fields required to make a request.+newAnalyticsManagementUploadsGet ::+  -- |  Account Id for the upload to retrieve. See 'accountId'.+  Core.Text ->+  -- |  Custom data source Id for upload to retrieve. See 'customDataSourceId'.+  Core.Text ->+  -- |  Upload Id to retrieve. See 'uploadId'.+  Core.Text ->+  -- |  Web property Id for the upload to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUploadsGet+newAnalyticsManagementUploadsGet+  accountId+  customDataSourceId+  uploadId+  webPropertyId =+    AnalyticsManagementUploadsGet+      { accountId = accountId,+        customDataSourceId = customDataSourceId,+        uploadId = uploadId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementUploadsGet where+  type Rs AnalyticsManagementUploadsGet = Upload+  type+    Scopes AnalyticsManagementUploadsGet =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementUploadsGet {..} =+    go+      accountId+      webPropertyId+      customDataSourceId+      uploadId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementUploadsGetResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Uploads/List.hs view
@@ -0,0 +1,117 @@+{-# 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.Analytics.Management.Uploads.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 uploads to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.list@.+module Gogol.Analytics.Management.Uploads.List+  ( -- * Resource+    AnalyticsManagementUploadsListResource,++    -- ** Constructing a Request+    AnalyticsManagementUploadsList (..),+    newAnalyticsManagementUploadsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.uploads.list@ method which the+-- 'AnalyticsManagementUploadsList' request conforms to.+type AnalyticsManagementUploadsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.Capture "customDataSourceId" Core.Text+    Core.:> "uploads"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Uploads++-- | List uploads to which the user has access.+--+-- /See:/ 'newAnalyticsManagementUploadsList' smart constructor.+data AnalyticsManagementUploadsList = AnalyticsManagementUploadsList+  { -- | Account Id for the uploads to retrieve.+    accountId :: Core.Text,+    -- | Custom data source Id for uploads to retrieve.+    customDataSourceId :: Core.Text,+    -- | The maximum number of uploads to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | A 1-based index of the first upload to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property Id for the uploads to retrieve.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUploadsList' with the minimum fields required to make a request.+newAnalyticsManagementUploadsList ::+  -- |  Account Id for the uploads to retrieve. See 'accountId'.+  Core.Text ->+  -- |  Custom data source Id for uploads to retrieve. See 'customDataSourceId'.+  Core.Text ->+  -- |  Web property Id for the uploads to retrieve. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUploadsList+newAnalyticsManagementUploadsList+  accountId+  customDataSourceId+  webPropertyId =+    AnalyticsManagementUploadsList+      { accountId = accountId,+        customDataSourceId = customDataSourceId,+        maxResults = Core.Nothing,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementUploadsList where+  type Rs AnalyticsManagementUploadsList = Uploads+  type+    Scopes AnalyticsManagementUploadsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementUploadsList {..} =+    go+      accountId+      webPropertyId+      customDataSourceId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsManagementUploadsListResource)+          Core.mempty
+ gen/Gogol/Analytics/Management/Uploads/UploadData.hs view
@@ -0,0 +1,152 @@+{-# 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.Analytics.Management.Uploads.UploadData+-- 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)+--+-- Upload data for a custom data source.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.uploadData@.+module Gogol.Analytics.Management.Uploads.UploadData+  ( -- * Resource+    AnalyticsManagementUploadsUploadDataResource,++    -- ** Constructing a Request+    AnalyticsManagementUploadsUploadData (..),+    newAnalyticsManagementUploadsUploadData,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.uploads.uploadData@ method which the+-- 'AnalyticsManagementUploadsUploadData' request conforms to.+type AnalyticsManagementUploadsUploadDataResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.Capture "customDataSourceId" Core.Text+    Core.:> "uploads"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Upload+    Core.:<|> "upload"+    Core.:> "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "customDataSources"+    Core.:> Core.Capture "customDataSourceId" Core.Text+    Core.:> "uploads"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.QueryParam "uploadType" Core.AltMedia+    Core.:> Core.AltMedia+    Core.:> Core.Post '[Core.JSON] Upload++-- | Upload data for a custom data source.+--+-- /See:/ 'newAnalyticsManagementUploadsUploadData' smart constructor.+data AnalyticsManagementUploadsUploadData = AnalyticsManagementUploadsUploadData+  { -- | Account Id associated with the upload.+    accountId :: Core.Text,+    -- | Custom data source Id to which the data being uploaded belongs.+    customDataSourceId :: Core.Text,+    -- | Web property UA-string associated with the upload.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementUploadsUploadData' with the minimum fields required to make a request.+newAnalyticsManagementUploadsUploadData ::+  -- |  Account Id associated with the upload. See 'accountId'.+  Core.Text ->+  -- |  Custom data source Id to which the data being uploaded belongs. See 'customDataSourceId'.+  Core.Text ->+  -- |  Web property UA-string associated with the upload. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementUploadsUploadData+newAnalyticsManagementUploadsUploadData+  accountId+  customDataSourceId+  webPropertyId =+    AnalyticsManagementUploadsUploadData+      { accountId = accountId,+        customDataSourceId = customDataSourceId,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementUploadsUploadData where+  type Rs AnalyticsManagementUploadsUploadData = Upload+  type+    Scopes AnalyticsManagementUploadsUploadData =+      '[Analytics'FullControl, Analytics'Edit]+  requestClient AnalyticsManagementUploadsUploadData {..} =+    go+      accountId+      webPropertyId+      customDataSourceId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go Core.:<|> _ =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementUploadsUploadDataResource+          )+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload AnalyticsManagementUploadsUploadData)+  where+  type+    Rs (Core.MediaUpload AnalyticsManagementUploadsUploadData) =+      Upload+  type+    Scopes (Core.MediaUpload AnalyticsManagementUploadsUploadData) =+      Core.Scopes AnalyticsManagementUploadsUploadData+  requestClient+    (Core.MediaUpload AnalyticsManagementUploadsUploadData {..} body) =+      go+        accountId+        webPropertyId+        customDataSourceId+        (Core.Just Core.AltJSON)+        (Core.Just Core.AltMedia)+        body+        analyticsService+      where+        _ Core.:<|> go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy AnalyticsManagementUploadsUploadDataResource+            )+            Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Deletes a web property-Google Ads link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.delete@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.Delete+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksDelete (..),+    newAnalyticsManagementWebPropertyAdWordsLinksDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.delete@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksDelete' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.Capture "webPropertyAdWordsLinkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Deletes a web property-Google Ads link.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksDelete' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksDelete = AnalyticsManagementWebPropertyAdWordsLinksDelete+  { -- | ID of the account which the given web property belongs to.+    accountId :: Core.Text,+    -- | Web property Google Ads link ID.+    webPropertyAdWordsLinkId :: Core.Text,+    -- | Web property ID to delete the Google Ads link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksDelete' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksDelete ::+  -- |  ID of the account which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Web property Google Ads link ID. See 'webPropertyAdWordsLinkId'.+  Core.Text ->+  -- |  Web property ID to delete the Google Ads link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksDelete+newAnalyticsManagementWebPropertyAdWordsLinksDelete+  accountId+  webPropertyAdWordsLinkId+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksDelete+      { accountId =+          accountId,+        webPropertyAdWordsLinkId =+          webPropertyAdWordsLinkId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksDelete+  where+  type Rs AnalyticsManagementWebPropertyAdWordsLinksDelete = ()+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksDelete =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksDelete {..} =+    go+      accountId+      webPropertyId+      webPropertyAdWordsLinkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AnalyticsManagementWebPropertyAdWordsLinksDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/Get.hs view
@@ -0,0 +1,115 @@+{-# 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.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Returns a web property-Google Ads link to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.get@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.Get+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksGetResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksGet (..),+    newAnalyticsManagementWebPropertyAdWordsLinksGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.get@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksGet' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.Capture "webPropertyAdWordsLinkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] EntityAdWordsLink++-- | Returns a web property-Google Ads link to which the user has access.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksGet' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksGet = AnalyticsManagementWebPropertyAdWordsLinksGet+  { -- | ID of the account which the given web property belongs to.+    accountId :: Core.Text,+    -- | Web property-Google Ads link ID.+    webPropertyAdWordsLinkId :: Core.Text,+    -- | Web property ID to retrieve the Google Ads link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksGet' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksGet ::+  -- |  ID of the account which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Web property-Google Ads link ID. See 'webPropertyAdWordsLinkId'.+  Core.Text ->+  -- |  Web property ID to retrieve the Google Ads link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksGet+newAnalyticsManagementWebPropertyAdWordsLinksGet+  accountId+  webPropertyAdWordsLinkId+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksGet+      { accountId =+          accountId,+        webPropertyAdWordsLinkId =+          webPropertyAdWordsLinkId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksGet+  where+  type+    Rs AnalyticsManagementWebPropertyAdWordsLinksGet =+      EntityAdWordsLink+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksGet {..} =+    go+      accountId+      webPropertyId+      webPropertyAdWordsLinkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebPropertyAdWordsLinksGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs view
@@ -0,0 +1,115 @@+{-# 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.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Creates a webProperty-Google Ads link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.insert@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.Insert+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksInsert (..),+    newAnalyticsManagementWebPropertyAdWordsLinksInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.insert@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksInsert' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityAdWordsLink+    Core.:> Core.Post '[Core.JSON] EntityAdWordsLink++-- | Creates a webProperty-Google Ads link.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksInsert' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksInsert = AnalyticsManagementWebPropertyAdWordsLinksInsert+  { -- | ID of the Google Analytics account to create the link for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityAdWordsLink,+    -- | Web property ID to create the link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksInsert' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksInsert ::+  -- |  ID of the Google Analytics account to create the link for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityAdWordsLink ->+  -- |  Web property ID to create the link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksInsert+newAnalyticsManagementWebPropertyAdWordsLinksInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksInsert+      { accountId =+          accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksInsert+  where+  type+    Rs AnalyticsManagementWebPropertyAdWordsLinksInsert =+      EntityAdWordsLink+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AnalyticsManagementWebPropertyAdWordsLinksInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/List.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Lists webProperty-Google Ads links for a given web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.list@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.List+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksListResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksList (..),+    newAnalyticsManagementWebPropertyAdWordsLinksList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.list@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksList' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] EntityAdWordsLinks++-- | Lists webProperty-Google Ads links for a given web property.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksList' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksList = AnalyticsManagementWebPropertyAdWordsLinksList+  { -- | ID of the account which the given web property belongs to.+    accountId :: Core.Text,+    -- | The maximum number of webProperty-Google Ads links to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first webProperty-Google Ads link to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web property ID to retrieve the Google Ads links for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksList' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksList ::+  -- |  ID of the account which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Web property ID to retrieve the Google Ads links for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksList+newAnalyticsManagementWebPropertyAdWordsLinksList+  accountId+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksList+      { accountId =+          accountId,+        maxResults = Core.Nothing,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksList+  where+  type+    Rs AnalyticsManagementWebPropertyAdWordsLinksList =+      EntityAdWordsLinks+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksList =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebPropertyAdWordsLinksListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs view
@@ -0,0 +1,123 @@+{-# 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.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Updates an existing webProperty-Google Ads link. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.patch@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.Patch+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksPatch (..),+    newAnalyticsManagementWebPropertyAdWordsLinksPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.patch@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksPatch' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.Capture "webPropertyAdWordsLinkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityAdWordsLink+    Core.:> Core.Patch '[Core.JSON] EntityAdWordsLink++-- | Updates an existing webProperty-Google Ads link. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksPatch' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksPatch = AnalyticsManagementWebPropertyAdWordsLinksPatch+  { -- | ID of the account which the given web property belongs to.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityAdWordsLink,+    -- | Web property-Google Ads link ID.+    webPropertyAdWordsLinkId :: Core.Text,+    -- | Web property ID to retrieve the Google Ads link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksPatch' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksPatch ::+  -- |  ID of the account which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityAdWordsLink ->+  -- |  Web property-Google Ads link ID. See 'webPropertyAdWordsLinkId'.+  Core.Text ->+  -- |  Web property ID to retrieve the Google Ads link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksPatch+newAnalyticsManagementWebPropertyAdWordsLinksPatch+  accountId+  payload+  webPropertyAdWordsLinkId+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksPatch+      { accountId =+          accountId,+        payload = payload,+        webPropertyAdWordsLinkId =+          webPropertyAdWordsLinkId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksPatch+  where+  type+    Rs AnalyticsManagementWebPropertyAdWordsLinksPatch =+      EntityAdWordsLink+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksPatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksPatch {..} =+    go+      accountId+      webPropertyId+      webPropertyAdWordsLinkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebPropertyAdWordsLinksPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebPropertyAdWordsLinks/Update.hs view
@@ -0,0 +1,124 @@+{-# 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.Analytics.Management.WebPropertyAdWordsLinks.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)+--+-- Updates an existing webProperty-Google Ads link.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.update@.+module Gogol.Analytics.Management.WebPropertyAdWordsLinks.Update+  ( -- * Resource+    AnalyticsManagementWebPropertyAdWordsLinksUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementWebPropertyAdWordsLinksUpdate (..),+    newAnalyticsManagementWebPropertyAdWordsLinksUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webPropertyAdWordsLinks.update@ method which the+-- 'AnalyticsManagementWebPropertyAdWordsLinksUpdate' request conforms to.+type AnalyticsManagementWebPropertyAdWordsLinksUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityAdWordsLinks"+    Core.:> Core.Capture "webPropertyAdWordsLinkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityAdWordsLink+    Core.:> Core.Put '[Core.JSON] EntityAdWordsLink++-- | Updates an existing webProperty-Google Ads link.+--+-- /See:/ 'newAnalyticsManagementWebPropertyAdWordsLinksUpdate' smart constructor.+data AnalyticsManagementWebPropertyAdWordsLinksUpdate = AnalyticsManagementWebPropertyAdWordsLinksUpdate+  { -- | ID of the account which the given web property belongs to.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityAdWordsLink,+    -- | Web property-Google Ads link ID.+    webPropertyAdWordsLinkId :: Core.Text,+    -- | Web property ID to retrieve the Google Ads link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebPropertyAdWordsLinksUpdate' with the minimum fields required to make a request.+newAnalyticsManagementWebPropertyAdWordsLinksUpdate ::+  -- |  ID of the account which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityAdWordsLink ->+  -- |  Web property-Google Ads link ID. See 'webPropertyAdWordsLinkId'.+  Core.Text ->+  -- |  Web property ID to retrieve the Google Ads link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebPropertyAdWordsLinksUpdate+newAnalyticsManagementWebPropertyAdWordsLinksUpdate+  accountId+  payload+  webPropertyAdWordsLinkId+  webPropertyId =+    AnalyticsManagementWebPropertyAdWordsLinksUpdate+      { accountId =+          accountId,+        payload = payload,+        webPropertyAdWordsLinkId =+          webPropertyAdWordsLinkId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebPropertyAdWordsLinksUpdate+  where+  type+    Rs AnalyticsManagementWebPropertyAdWordsLinksUpdate =+      EntityAdWordsLink+  type+    Scopes AnalyticsManagementWebPropertyAdWordsLinksUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebPropertyAdWordsLinksUpdate {..} =+    go+      accountId+      webPropertyId+      webPropertyAdWordsLinkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AnalyticsManagementWebPropertyAdWordsLinksUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Webproperties/Get.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.Analytics.Management.Webproperties.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)+--+-- Gets a web property to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.get@.+module Gogol.Analytics.Management.Webproperties.Get+  ( -- * Resource+    AnalyticsManagementWebpropertiesGetResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertiesGet (..),+    newAnalyticsManagementWebpropertiesGet,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webproperties.get@ method which the+-- 'AnalyticsManagementWebpropertiesGet' request conforms to.+type AnalyticsManagementWebpropertiesGetResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Webproperty++-- | Gets a web property to which the user has access.+--+-- /See:/ 'newAnalyticsManagementWebpropertiesGet' smart constructor.+data AnalyticsManagementWebpropertiesGet = AnalyticsManagementWebpropertiesGet+  { -- | Account ID to retrieve the web property for.+    accountId :: Core.Text,+    -- | ID to retrieve the web property for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertiesGet' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertiesGet ::+  -- |  Account ID to retrieve the web property for. See 'accountId'.+  Core.Text ->+  -- |  ID to retrieve the web property for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertiesGet+newAnalyticsManagementWebpropertiesGet accountId webPropertyId =+  AnalyticsManagementWebpropertiesGet+    { accountId = accountId,+      webPropertyId = webPropertyId+    }++instance Core.GoogleRequest AnalyticsManagementWebpropertiesGet where+  type Rs AnalyticsManagementWebpropertiesGet = Webproperty+  type+    Scopes AnalyticsManagementWebpropertiesGet =+      '[Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementWebpropertiesGet {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertiesGetResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Webproperties/Insert.hs view
@@ -0,0 +1,93 @@+{-# 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.Analytics.Management.Webproperties.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)+--+-- Create a new property if the account has fewer than 20 properties. Web properties are visible in the Google Analytics interface only if they have at least one profile.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.insert@.+module Gogol.Analytics.Management.Webproperties.Insert+  ( -- * Resource+    AnalyticsManagementWebpropertiesInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertiesInsert (..),+    newAnalyticsManagementWebpropertiesInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webproperties.insert@ method which the+-- 'AnalyticsManagementWebpropertiesInsert' request conforms to.+type AnalyticsManagementWebpropertiesInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Webproperty+    Core.:> Core.Post '[Core.JSON] Webproperty++-- | Create a new property if the account has fewer than 20 properties. Web properties are visible in the Google Analytics interface only if they have at least one profile.+--+-- /See:/ 'newAnalyticsManagementWebpropertiesInsert' smart constructor.+data AnalyticsManagementWebpropertiesInsert = AnalyticsManagementWebpropertiesInsert+  { -- | Account ID to create the web property for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Webproperty+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertiesInsert' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertiesInsert ::+  -- |  Account ID to create the web property for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Webproperty ->+  AnalyticsManagementWebpropertiesInsert+newAnalyticsManagementWebpropertiesInsert accountId payload =+  AnalyticsManagementWebpropertiesInsert+    { accountId = accountId,+      payload = payload+    }++instance Core.GoogleRequest AnalyticsManagementWebpropertiesInsert where+  type Rs AnalyticsManagementWebpropertiesInsert = Webproperty+  type+    Scopes AnalyticsManagementWebpropertiesInsert =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebpropertiesInsert {..} =+    go accountId (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertiesInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Webproperties/List.hs view
@@ -0,0 +1,100 @@+{-# 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.Analytics.Management.Webproperties.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)+--+-- Lists web properties to which the user has access.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.list@.+module Gogol.Analytics.Management.Webproperties.List+  ( -- * Resource+    AnalyticsManagementWebpropertiesListResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertiesList (..),+    newAnalyticsManagementWebpropertiesList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webproperties.list@ method which the+-- 'AnalyticsManagementWebpropertiesList' request conforms to.+type AnalyticsManagementWebpropertiesListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Webproperties++-- | Lists web properties to which the user has access.+--+-- /See:/ 'newAnalyticsManagementWebpropertiesList' smart constructor.+data AnalyticsManagementWebpropertiesList = AnalyticsManagementWebpropertiesList+  { -- | Account ID to retrieve web properties for. Can either be a specific account ID or \'~all\', which refers to all the accounts that user has access to.+    accountId :: Core.Text,+    -- | The maximum number of web properties to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first entity to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertiesList' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertiesList ::+  -- |  Account ID to retrieve web properties for. Can either be a specific account ID or \'~all\', which refers to all the accounts that user has access to. See 'accountId'.+  Core.Text ->+  AnalyticsManagementWebpropertiesList+newAnalyticsManagementWebpropertiesList accountId =+  AnalyticsManagementWebpropertiesList+    { accountId = accountId,+      maxResults = Core.Nothing,+      startIndex = Core.Nothing+    }++instance Core.GoogleRequest AnalyticsManagementWebpropertiesList where+  type Rs AnalyticsManagementWebpropertiesList = Webproperties+  type+    Scopes AnalyticsManagementWebpropertiesList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsManagementWebpropertiesList {..} =+    go+      accountId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertiesListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Webproperties/Patch.hs view
@@ -0,0 +1,107 @@+{-# 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.Analytics.Management.Webproperties.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)+--+-- Updates an existing web property. This method supports patch semantics.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.patch@.+module Gogol.Analytics.Management.Webproperties.Patch+  ( -- * Resource+    AnalyticsManagementWebpropertiesPatchResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertiesPatch (..),+    newAnalyticsManagementWebpropertiesPatch,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webproperties.patch@ method which the+-- 'AnalyticsManagementWebpropertiesPatch' request conforms to.+type AnalyticsManagementWebpropertiesPatchResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Webproperty+    Core.:> Core.Patch '[Core.JSON] Webproperty++-- | Updates an existing web property. This method supports patch semantics.+--+-- /See:/ 'newAnalyticsManagementWebpropertiesPatch' smart constructor.+data AnalyticsManagementWebpropertiesPatch = AnalyticsManagementWebpropertiesPatch+  { -- | Account ID to which the web property belongs+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Webproperty,+    -- | Web property ID+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertiesPatch' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertiesPatch ::+  -- |  Account ID to which the web property belongs See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Webproperty ->+  -- |  Web property ID See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertiesPatch+newAnalyticsManagementWebpropertiesPatch+  accountId+  payload+  webPropertyId =+    AnalyticsManagementWebpropertiesPatch+      { accountId = accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementWebpropertiesPatch where+  type Rs AnalyticsManagementWebpropertiesPatch = Webproperty+  type+    Scopes AnalyticsManagementWebpropertiesPatch =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebpropertiesPatch {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertiesPatchResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/Webproperties/Update.hs view
@@ -0,0 +1,107 @@+{-# 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.Analytics.Management.Webproperties.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)+--+-- Updates an existing web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.update@.+module Gogol.Analytics.Management.Webproperties.Update+  ( -- * Resource+    AnalyticsManagementWebpropertiesUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertiesUpdate (..),+    newAnalyticsManagementWebpropertiesUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webproperties.update@ method which the+-- 'AnalyticsManagementWebpropertiesUpdate' request conforms to.+type AnalyticsManagementWebpropertiesUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Webproperty+    Core.:> Core.Put '[Core.JSON] Webproperty++-- | Updates an existing web property.+--+-- /See:/ 'newAnalyticsManagementWebpropertiesUpdate' smart constructor.+data AnalyticsManagementWebpropertiesUpdate = AnalyticsManagementWebpropertiesUpdate+  { -- | Account ID to which the web property belongs+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Webproperty,+    -- | Web property ID+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertiesUpdate' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertiesUpdate ::+  -- |  Account ID to which the web property belongs See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Webproperty ->+  -- |  Web property ID See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertiesUpdate+newAnalyticsManagementWebpropertiesUpdate+  accountId+  payload+  webPropertyId =+    AnalyticsManagementWebpropertiesUpdate+      { accountId = accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance Core.GoogleRequest AnalyticsManagementWebpropertiesUpdate where+  type Rs AnalyticsManagementWebpropertiesUpdate = Webproperty+  type+    Scopes AnalyticsManagementWebpropertiesUpdate =+      '[Analytics'Edit]+  requestClient AnalyticsManagementWebpropertiesUpdate {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertiesUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebpropertyUserLinks/Delete.hs view
@@ -0,0 +1,112 @@+{-# 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.Analytics.Management.WebpropertyUserLinks.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)+--+-- Removes a user from the given web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.delete@.+module Gogol.Analytics.Management.WebpropertyUserLinks.Delete+  ( -- * Resource+    AnalyticsManagementWebpropertyUserLinksDeleteResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertyUserLinksDelete (..),+    newAnalyticsManagementWebpropertyUserLinksDelete,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webpropertyUserLinks.delete@ method which the+-- 'AnalyticsManagementWebpropertyUserLinksDelete' request conforms to.+type AnalyticsManagementWebpropertyUserLinksDeleteResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Removes a user from the given web property.+--+-- /See:/ 'newAnalyticsManagementWebpropertyUserLinksDelete' smart constructor.+data AnalyticsManagementWebpropertyUserLinksDelete = AnalyticsManagementWebpropertyUserLinksDelete+  { -- | Account ID to delete the user link for.+    accountId :: Core.Text,+    -- | Link ID to delete the user link for.+    linkId :: Core.Text,+    -- | Web Property ID to delete the user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertyUserLinksDelete' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertyUserLinksDelete ::+  -- |  Account ID to delete the user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to delete the user link for. See 'linkId'.+  Core.Text ->+  -- |  Web Property ID to delete the user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertyUserLinksDelete+newAnalyticsManagementWebpropertyUserLinksDelete+  accountId+  linkId+  webPropertyId =+    AnalyticsManagementWebpropertyUserLinksDelete+      { accountId =+          accountId,+        linkId = linkId,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebpropertyUserLinksDelete+  where+  type Rs AnalyticsManagementWebpropertyUserLinksDelete = ()+  type+    Scopes AnalyticsManagementWebpropertyUserLinksDelete =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementWebpropertyUserLinksDelete {..} =+    go+      accountId+      webPropertyId+      linkId+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertyUserLinksDeleteResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebpropertyUserLinks/Insert.hs view
@@ -0,0 +1,114 @@+{-# 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.Analytics.Management.WebpropertyUserLinks.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)+--+-- Adds a new user to the given web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.insert@.+module Gogol.Analytics.Management.WebpropertyUserLinks.Insert+  ( -- * Resource+    AnalyticsManagementWebpropertyUserLinksInsertResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertyUserLinksInsert (..),+    newAnalyticsManagementWebpropertyUserLinksInsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webpropertyUserLinks.insert@ method which the+-- 'AnalyticsManagementWebpropertyUserLinksInsert' request conforms to.+type AnalyticsManagementWebpropertyUserLinksInsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Post '[Core.JSON] EntityUserLink++-- | Adds a new user to the given web property.+--+-- /See:/ 'newAnalyticsManagementWebpropertyUserLinksInsert' smart constructor.+data AnalyticsManagementWebpropertyUserLinksInsert = AnalyticsManagementWebpropertyUserLinksInsert+  { -- | Account ID to create the user link for.+    accountId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink,+    -- | Web Property ID to create the user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertyUserLinksInsert' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertyUserLinksInsert ::+  -- |  Account ID to create the user link for. See 'accountId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  -- |  Web Property ID to create the user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertyUserLinksInsert+newAnalyticsManagementWebpropertyUserLinksInsert+  accountId+  payload+  webPropertyId =+    AnalyticsManagementWebpropertyUserLinksInsert+      { accountId =+          accountId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebpropertyUserLinksInsert+  where+  type+    Rs AnalyticsManagementWebpropertyUserLinksInsert =+      EntityUserLink+  type+    Scopes AnalyticsManagementWebpropertyUserLinksInsert =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementWebpropertyUserLinksInsert {..} =+    go+      accountId+      webPropertyId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertyUserLinksInsertResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebpropertyUserLinks/List.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.WebpropertyUserLinks.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)+--+-- Lists webProperty-user links for a given web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.list@.+module Gogol.Analytics.Management.WebpropertyUserLinks.List+  ( -- * Resource+    AnalyticsManagementWebpropertyUserLinksListResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertyUserLinksList (..),+    newAnalyticsManagementWebpropertyUserLinksList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webpropertyUserLinks.list@ method which the+-- 'AnalyticsManagementWebpropertyUserLinksList' request conforms to.+type AnalyticsManagementWebpropertyUserLinksListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.QueryParam "max-results" Core.Int32+    Core.:> Core.QueryParam "start-index" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] EntityUserLinks++-- | Lists webProperty-user links for a given web property.+--+-- /See:/ 'newAnalyticsManagementWebpropertyUserLinksList' smart constructor.+data AnalyticsManagementWebpropertyUserLinksList = AnalyticsManagementWebpropertyUserLinksList+  { -- | Account ID which the given web property belongs to.+    accountId :: Core.Text,+    -- | The maximum number of webProperty-user Links to include in this response.+    maxResults :: (Core.Maybe Core.Int32),+    -- | An index of the first webProperty-user link to retrieve. Use this parameter as a pagination mechanism along with the max-results parameter.+    startIndex :: (Core.Maybe Core.Int32),+    -- | Web Property ID for the webProperty-user links to retrieve. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertyUserLinksList' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertyUserLinksList ::+  -- |  Account ID which the given web property belongs to. See 'accountId'.+  Core.Text ->+  -- |  Web Property ID for the webProperty-user links to retrieve. Can either be a specific web property ID or \'~all\', which refers to all the web properties that user has access to. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertyUserLinksList+newAnalyticsManagementWebpropertyUserLinksList+  accountId+  webPropertyId =+    AnalyticsManagementWebpropertyUserLinksList+      { accountId =+          accountId,+        maxResults = Core.Nothing,+        startIndex = Core.Nothing,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebpropertyUserLinksList+  where+  type+    Rs AnalyticsManagementWebpropertyUserLinksList =+      EntityUserLinks+  type+    Scopes AnalyticsManagementWebpropertyUserLinksList =+      '[Analytics'Manage'Users, Analytics'Manage'Users'Readonly]+  requestClient AnalyticsManagementWebpropertyUserLinksList {..} =+    go+      accountId+      webPropertyId+      maxResults+      startIndex+      (Core.Just Core.AltJSON)+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertyUserLinksListResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Management/WebpropertyUserLinks/Update.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Analytics.Management.WebpropertyUserLinks.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)+--+-- Updates permissions for an existing user on the given web property.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.update@.+module Gogol.Analytics.Management.WebpropertyUserLinks.Update+  ( -- * Resource+    AnalyticsManagementWebpropertyUserLinksUpdateResource,++    -- ** Constructing a Request+    AnalyticsManagementWebpropertyUserLinksUpdate (..),+    newAnalyticsManagementWebpropertyUserLinksUpdate,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.management.webpropertyUserLinks.update@ method which the+-- 'AnalyticsManagementWebpropertyUserLinksUpdate' request conforms to.+type AnalyticsManagementWebpropertyUserLinksUpdateResource =+  "analytics"+    Core.:> "v3"+    Core.:> "management"+    Core.:> "accounts"+    Core.:> Core.Capture "accountId" Core.Text+    Core.:> "webproperties"+    Core.:> Core.Capture "webPropertyId" Core.Text+    Core.:> "entityUserLinks"+    Core.:> Core.Capture "linkId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] EntityUserLink+    Core.:> Core.Put '[Core.JSON] EntityUserLink++-- | Updates permissions for an existing user on the given web property.+--+-- /See:/ 'newAnalyticsManagementWebpropertyUserLinksUpdate' smart constructor.+data AnalyticsManagementWebpropertyUserLinksUpdate = AnalyticsManagementWebpropertyUserLinksUpdate+  { -- | Account ID to update the account-user link for.+    accountId :: Core.Text,+    -- | Link ID to update the account-user link for.+    linkId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EntityUserLink,+    -- | Web property ID to update the account-user link for.+    webPropertyId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsManagementWebpropertyUserLinksUpdate' with the minimum fields required to make a request.+newAnalyticsManagementWebpropertyUserLinksUpdate ::+  -- |  Account ID to update the account-user link for. See 'accountId'.+  Core.Text ->+  -- |  Link ID to update the account-user link for. See 'linkId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EntityUserLink ->+  -- |  Web property ID to update the account-user link for. See 'webPropertyId'.+  Core.Text ->+  AnalyticsManagementWebpropertyUserLinksUpdate+newAnalyticsManagementWebpropertyUserLinksUpdate+  accountId+  linkId+  payload+  webPropertyId =+    AnalyticsManagementWebpropertyUserLinksUpdate+      { accountId =+          accountId,+        linkId = linkId,+        payload = payload,+        webPropertyId = webPropertyId+      }++instance+  Core.GoogleRequest+    AnalyticsManagementWebpropertyUserLinksUpdate+  where+  type+    Rs AnalyticsManagementWebpropertyUserLinksUpdate =+      EntityUserLink+  type+    Scopes AnalyticsManagementWebpropertyUserLinksUpdate =+      '[Analytics'Manage'Users]+  requestClient AnalyticsManagementWebpropertyUserLinksUpdate {..} =+    go+      accountId+      webPropertyId+      linkId+      (Core.Just Core.AltJSON)+      payload+      analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsManagementWebpropertyUserLinksUpdateResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Metadata/Columns/List.hs view
@@ -0,0 +1,82 @@+{-# 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.Analytics.Metadata.Columns.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)+--+-- Lists all columns for a report type+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.metadata.columns.list@.+module Gogol.Analytics.Metadata.Columns.List+  ( -- * Resource+    AnalyticsMetadataColumnsListResource,++    -- ** Constructing a Request+    AnalyticsMetadataColumnsList (..),+    newAnalyticsMetadataColumnsList,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.metadata.columns.list@ method which the+-- 'AnalyticsMetadataColumnsList' request conforms to.+type AnalyticsMetadataColumnsListResource =+  "analytics"+    Core.:> "v3"+    Core.:> "metadata"+    Core.:> Core.Capture "reportType" Core.Text+    Core.:> "columns"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Columns++-- | Lists all columns for a report type+--+-- /See:/ 'newAnalyticsMetadataColumnsList' smart constructor.+newtype AnalyticsMetadataColumnsList = AnalyticsMetadataColumnsList+  { -- | Report type. Allowed Values: \'ga\'. Where \'ga\' corresponds to the Core Reporting API+    reportType :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsMetadataColumnsList' with the minimum fields required to make a request.+newAnalyticsMetadataColumnsList ::+  -- |  Report type. Allowed Values: \'ga\'. Where \'ga\' corresponds to the Core Reporting API See 'reportType'.+  Core.Text ->+  AnalyticsMetadataColumnsList+newAnalyticsMetadataColumnsList reportType =+  AnalyticsMetadataColumnsList {reportType = reportType}++instance Core.GoogleRequest AnalyticsMetadataColumnsList where+  type Rs AnalyticsMetadataColumnsList = Columns+  type+    Scopes AnalyticsMetadataColumnsList =+      '[Analytics'FullControl, Analytics'Edit, Analytics'Readonly]+  requestClient AnalyticsMetadataColumnsList {..} =+    go reportType (Core.Just Core.AltJSON) analyticsService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AnalyticsMetadataColumnsListResource)+          Core.mempty
+ gen/Gogol/Analytics/Provisioning/CreateAccountTicket.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.Analytics.Provisioning.CreateAccountTicket+-- 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)+--+-- Creates an account ticket.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.provisioning.createAccountTicket@.+module Gogol.Analytics.Provisioning.CreateAccountTicket+  ( -- * Resource+    AnalyticsProvisioningCreateAccountTicketResource,++    -- ** Constructing a Request+    AnalyticsProvisioningCreateAccountTicket (..),+    newAnalyticsProvisioningCreateAccountTicket,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.provisioning.createAccountTicket@ method which the+-- 'AnalyticsProvisioningCreateAccountTicket' request conforms to.+type AnalyticsProvisioningCreateAccountTicketResource =+  "analytics"+    Core.:> "v3"+    Core.:> "provisioning"+    Core.:> "createAccountTicket"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccountTicket+    Core.:> Core.Post '[Core.JSON] AccountTicket++-- | Creates an account ticket.+--+-- /See:/ 'newAnalyticsProvisioningCreateAccountTicket' smart constructor.+newtype AnalyticsProvisioningCreateAccountTicket = AnalyticsProvisioningCreateAccountTicket+  { -- | Multipart request metadata.+    payload :: AccountTicket+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsProvisioningCreateAccountTicket' with the minimum fields required to make a request.+newAnalyticsProvisioningCreateAccountTicket ::+  -- |  Multipart request metadata. See 'payload'.+  AccountTicket ->+  AnalyticsProvisioningCreateAccountTicket+newAnalyticsProvisioningCreateAccountTicket payload =+  AnalyticsProvisioningCreateAccountTicket {payload = payload}++instance+  Core.GoogleRequest+    AnalyticsProvisioningCreateAccountTicket+  where+  type Rs AnalyticsProvisioningCreateAccountTicket = AccountTicket+  type+    Scopes AnalyticsProvisioningCreateAccountTicket =+      '[Analytics'Provision]+  requestClient AnalyticsProvisioningCreateAccountTicket {..} =+    go (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsProvisioningCreateAccountTicketResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Provisioning/CreateAccountTree.hs view
@@ -0,0 +1,86 @@+{-# 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.Analytics.Provisioning.CreateAccountTree+-- 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)+--+-- Provision account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.provisioning.createAccountTree@.+module Gogol.Analytics.Provisioning.CreateAccountTree+  ( -- * Resource+    AnalyticsProvisioningCreateAccountTreeResource,++    -- ** Constructing a Request+    AnalyticsProvisioningCreateAccountTree (..),+    newAnalyticsProvisioningCreateAccountTree,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.provisioning.createAccountTree@ method which the+-- 'AnalyticsProvisioningCreateAccountTree' request conforms to.+type AnalyticsProvisioningCreateAccountTreeResource =+  "analytics"+    Core.:> "v3"+    Core.:> "provisioning"+    Core.:> "createAccountTree"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccountTreeRequest+    Core.:> Core.Post '[Core.JSON] AccountTreeResponse++-- | Provision account.+--+-- /See:/ 'newAnalyticsProvisioningCreateAccountTree' smart constructor.+newtype AnalyticsProvisioningCreateAccountTree = AnalyticsProvisioningCreateAccountTree+  { -- | Multipart request metadata.+    payload :: AccountTreeRequest+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsProvisioningCreateAccountTree' with the minimum fields required to make a request.+newAnalyticsProvisioningCreateAccountTree ::+  -- |  Multipart request metadata. See 'payload'.+  AccountTreeRequest ->+  AnalyticsProvisioningCreateAccountTree+newAnalyticsProvisioningCreateAccountTree payload =+  AnalyticsProvisioningCreateAccountTree {payload = payload}++instance Core.GoogleRequest AnalyticsProvisioningCreateAccountTree where+  type+    Rs AnalyticsProvisioningCreateAccountTree =+      AccountTreeResponse+  type+    Scopes AnalyticsProvisioningCreateAccountTree =+      '[Analytics'Provision]+  requestClient AnalyticsProvisioningCreateAccountTree {..} =+    go (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsProvisioningCreateAccountTreeResource+          )+          Core.mempty
+ gen/Gogol/Analytics/Types.hs view
@@ -0,0 +1,533 @@+{-# 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.Analytics.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.Analytics.Types+  ( -- * Configuration+    analyticsService,++    -- * OAuth Scopes+    Analytics'FullControl,+    Analytics'Edit,+    Analytics'Manage'Users,+    Analytics'Manage'Users'Readonly,+    Analytics'Provision,+    Analytics'Readonly,+    Analytics'User'Deletion,++    -- * Types++    -- ** Account+    Account (..),+    newAccount,++    -- ** Account_ChildLink+    Account_ChildLink (..),+    newAccount_ChildLink,++    -- ** Account_Permissions+    Account_Permissions (..),+    newAccount_Permissions,++    -- ** AccountRef+    AccountRef (..),+    newAccountRef,++    -- ** AccountSummaries+    AccountSummaries (..),+    newAccountSummaries,++    -- ** AccountSummary+    AccountSummary (..),+    newAccountSummary,++    -- ** AccountTicket+    AccountTicket (..),+    newAccountTicket,++    -- ** AccountTreeRequest+    AccountTreeRequest (..),+    newAccountTreeRequest,++    -- ** AccountTreeResponse+    AccountTreeResponse (..),+    newAccountTreeResponse,++    -- ** Accounts+    Accounts (..),+    newAccounts,++    -- ** AdWordsAccount+    AdWordsAccount (..),+    newAdWordsAccount,++    -- ** AnalyticsDataimportDeleteUploadDataRequest+    AnalyticsDataimportDeleteUploadDataRequest (..),+    newAnalyticsDataimportDeleteUploadDataRequest,++    -- ** Column+    Column (..),+    newColumn,++    -- ** Column_Attributes+    Column_Attributes (..),+    newColumn_Attributes,++    -- ** Columns+    Columns (..),+    newColumns,++    -- ** CustomDataSource+    CustomDataSource (..),+    newCustomDataSource,++    -- ** CustomDataSource_ChildLink+    CustomDataSource_ChildLink (..),+    newCustomDataSource_ChildLink,++    -- ** CustomDataSource_ParentLink+    CustomDataSource_ParentLink (..),+    newCustomDataSource_ParentLink,++    -- ** CustomDataSources+    CustomDataSources (..),+    newCustomDataSources,++    -- ** CustomDimension+    CustomDimension (..),+    newCustomDimension,++    -- ** CustomDimension_ParentLink+    CustomDimension_ParentLink (..),+    newCustomDimension_ParentLink,++    -- ** CustomDimensions+    CustomDimensions (..),+    newCustomDimensions,++    -- ** CustomMetric+    CustomMetric (..),+    newCustomMetric,++    -- ** CustomMetric_ParentLink+    CustomMetric_ParentLink (..),+    newCustomMetric_ParentLink,++    -- ** CustomMetrics+    CustomMetrics (..),+    newCustomMetrics,++    -- ** EntityAdWordsLink+    EntityAdWordsLink (..),+    newEntityAdWordsLink,++    -- ** EntityAdWordsLink_Entity+    EntityAdWordsLink_Entity (..),+    newEntityAdWordsLink_Entity,++    -- ** EntityAdWordsLinks+    EntityAdWordsLinks (..),+    newEntityAdWordsLinks,++    -- ** EntityUserLink+    EntityUserLink (..),+    newEntityUserLink,++    -- ** EntityUserLink_Entity+    EntityUserLink_Entity (..),+    newEntityUserLink_Entity,++    -- ** EntityUserLink_Permissions+    EntityUserLink_Permissions (..),+    newEntityUserLink_Permissions,++    -- ** EntityUserLinks+    EntityUserLinks (..),+    newEntityUserLinks,++    -- ** Experiment+    Experiment (..),+    newExperiment,++    -- ** Experiment_ParentLink+    Experiment_ParentLink (..),+    newExperiment_ParentLink,++    -- ** Experiment_VariationsItem+    Experiment_VariationsItem (..),+    newExperiment_VariationsItem,++    -- ** Experiments+    Experiments (..),+    newExperiments,++    -- ** Filter+    Filter (..),+    newFilter,++    -- ** Filter_AdvancedDetails+    Filter_AdvancedDetails (..),+    newFilter_AdvancedDetails,++    -- ** Filter_LowercaseDetails+    Filter_LowercaseDetails (..),+    newFilter_LowercaseDetails,++    -- ** Filter_ParentLink+    Filter_ParentLink (..),+    newFilter_ParentLink,++    -- ** Filter_SearchAndReplaceDetails+    Filter_SearchAndReplaceDetails (..),+    newFilter_SearchAndReplaceDetails,++    -- ** Filter_UppercaseDetails+    Filter_UppercaseDetails (..),+    newFilter_UppercaseDetails,++    -- ** FilterExpression+    FilterExpression (..),+    newFilterExpression,++    -- ** FilterRef+    FilterRef (..),+    newFilterRef,++    -- ** Filters+    Filters (..),+    newFilters,++    -- ** GaData+    GaData (..),+    newGaData,++    -- ** GaData_ColumnHeadersItem+    GaData_ColumnHeadersItem (..),+    newGaData_ColumnHeadersItem,++    -- ** GaData_DataTable+    GaData_DataTable (..),+    newGaData_DataTable,++    -- ** GaData_DataTable_ColsItem+    GaData_DataTable_ColsItem (..),+    newGaData_DataTable_ColsItem,++    -- ** GaData_DataTable_RowsItem+    GaData_DataTable_RowsItem (..),+    newGaData_DataTable_RowsItem,++    -- ** GaData_DataTable_RowsItem_CItem+    GaData_DataTable_RowsItem_CItem (..),+    newGaData_DataTable_RowsItem_CItem,++    -- ** GaData_ProfileInfo+    GaData_ProfileInfo (..),+    newGaData_ProfileInfo,++    -- ** GaData_Query+    GaData_Query (..),+    newGaData_Query,++    -- ** GaData_TotalsForAllResults+    GaData_TotalsForAllResults (..),+    newGaData_TotalsForAllResults,++    -- ** Goal+    Goal (..),+    newGoal,++    -- ** Goal_EventDetails+    Goal_EventDetails (..),+    newGoal_EventDetails,++    -- ** Goal_EventDetails_EventConditionsItem+    Goal_EventDetails_EventConditionsItem (..),+    newGoal_EventDetails_EventConditionsItem,++    -- ** Goal_ParentLink+    Goal_ParentLink (..),+    newGoal_ParentLink,++    -- ** Goal_UrlDestinationDetails+    Goal_UrlDestinationDetails (..),+    newGoal_UrlDestinationDetails,++    -- ** Goal_UrlDestinationDetails_StepsItem+    Goal_UrlDestinationDetails_StepsItem (..),+    newGoal_UrlDestinationDetails_StepsItem,++    -- ** Goal_VisitNumPagesDetails+    Goal_VisitNumPagesDetails (..),+    newGoal_VisitNumPagesDetails,++    -- ** Goal_VisitTimeOnSiteDetails+    Goal_VisitTimeOnSiteDetails (..),+    newGoal_VisitTimeOnSiteDetails,++    -- ** Goals+    Goals (..),+    newGoals,++    -- ** HashClientIdRequest+    HashClientIdRequest (..),+    newHashClientIdRequest,++    -- ** HashClientIdResponse+    HashClientIdResponse (..),+    newHashClientIdResponse,++    -- ** IncludeConditions+    IncludeConditions (..),+    newIncludeConditions,++    -- ** LinkedForeignAccount+    LinkedForeignAccount (..),+    newLinkedForeignAccount,++    -- ** McfData+    McfData (..),+    newMcfData,++    -- ** McfData_ColumnHeadersItem+    McfData_ColumnHeadersItem (..),+    newMcfData_ColumnHeadersItem,++    -- ** McfData_ProfileInfo+    McfData_ProfileInfo (..),+    newMcfData_ProfileInfo,++    -- ** McfData_Query+    McfData_Query (..),+    newMcfData_Query,++    -- ** McfData_RowsItemItem+    McfData_RowsItemItem (..),+    newMcfData_RowsItemItem,++    -- ** McfData_RowsItemItem_ConversionPathValueItem+    McfData_RowsItemItem_ConversionPathValueItem (..),+    newMcfData_RowsItemItem_ConversionPathValueItem,++    -- ** McfData_TotalsForAllResults+    McfData_TotalsForAllResults (..),+    newMcfData_TotalsForAllResults,++    -- ** Profile+    Profile (..),+    newProfile,++    -- ** Profile_ChildLink+    Profile_ChildLink (..),+    newProfile_ChildLink,++    -- ** Profile_ParentLink+    Profile_ParentLink (..),+    newProfile_ParentLink,++    -- ** Profile_Permissions+    Profile_Permissions (..),+    newProfile_Permissions,++    -- ** ProfileFilterLink+    ProfileFilterLink (..),+    newProfileFilterLink,++    -- ** ProfileFilterLinks+    ProfileFilterLinks (..),+    newProfileFilterLinks,++    -- ** ProfileRef+    ProfileRef (..),+    newProfileRef,++    -- ** ProfileSummary+    ProfileSummary (..),+    newProfileSummary,++    -- ** Profiles+    Profiles (..),+    newProfiles,++    -- ** RealtimeData+    RealtimeData (..),+    newRealtimeData,++    -- ** RealtimeData_ColumnHeadersItem+    RealtimeData_ColumnHeadersItem (..),+    newRealtimeData_ColumnHeadersItem,++    -- ** RealtimeData_ProfileInfo+    RealtimeData_ProfileInfo (..),+    newRealtimeData_ProfileInfo,++    -- ** RealtimeData_Query+    RealtimeData_Query (..),+    newRealtimeData_Query,++    -- ** RealtimeData_TotalsForAllResults+    RealtimeData_TotalsForAllResults (..),+    newRealtimeData_TotalsForAllResults,++    -- ** RemarketingAudience+    RemarketingAudience (..),+    newRemarketingAudience,++    -- ** RemarketingAudience_AudienceDefinition+    RemarketingAudience_AudienceDefinition (..),+    newRemarketingAudience_AudienceDefinition,++    -- ** RemarketingAudience_StateBasedAudienceDefinition+    RemarketingAudience_StateBasedAudienceDefinition (..),+    newRemarketingAudience_StateBasedAudienceDefinition,++    -- ** RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions+    RemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions (..),+    newRemarketingAudience_StateBasedAudienceDefinition_ExcludeConditions,++    -- ** RemarketingAudiences+    RemarketingAudiences (..),+    newRemarketingAudiences,++    -- ** Segment+    Segment (..),+    newSegment,++    -- ** Segments+    Segments (..),+    newSegments,++    -- ** UnsampledReport+    UnsampledReport (..),+    newUnsampledReport,++    -- ** UnsampledReport_CloudStorageDownloadDetails+    UnsampledReport_CloudStorageDownloadDetails (..),+    newUnsampledReport_CloudStorageDownloadDetails,++    -- ** UnsampledReport_DriveDownloadDetails+    UnsampledReport_DriveDownloadDetails (..),+    newUnsampledReport_DriveDownloadDetails,++    -- ** UnsampledReports+    UnsampledReports (..),+    newUnsampledReports,++    -- ** Upload+    Upload (..),+    newUpload,++    -- ** Uploads+    Uploads (..),+    newUploads,++    -- ** UserDeletionRequest+    UserDeletionRequest (..),+    newUserDeletionRequest,++    -- ** UserDeletionRequest_Id+    UserDeletionRequest_Id (..),+    newUserDeletionRequest_Id,++    -- ** UserRef+    UserRef (..),+    newUserRef,++    -- ** WebPropertyRef+    WebPropertyRef (..),+    newWebPropertyRef,++    -- ** WebPropertySummary+    WebPropertySummary (..),+    newWebPropertySummary,++    -- ** Webproperties+    Webproperties (..),+    newWebproperties,++    -- ** Webproperty+    Webproperty (..),+    newWebproperty,++    -- ** Webproperty_ChildLink+    Webproperty_ChildLink (..),+    newWebproperty_ChildLink,++    -- ** Webproperty_ParentLink+    Webproperty_ParentLink (..),+    newWebproperty_ParentLink,++    -- ** Webproperty_Permissions+    Webproperty_Permissions (..),+    newWebproperty_Permissions,++    -- ** DataGaGetOutput+    DataGaGetOutput (..),++    -- ** DataGaGetSamplingLevel+    DataGaGetSamplingLevel (..),++    -- ** DataMcfGetSamplingLevel+    DataMcfGetSamplingLevel (..),+  )+where++import Gogol.Analytics.Internal.Product+import Gogol.Analytics.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v3@ of the Google Analytics API. This contains the host and root path used as a starting point for constructing service requests.+analyticsService :: Core.ServiceConfig+analyticsService =+  Core.defaultService+    (Core.ServiceId "analytics:v3")+    "analytics.googleapis.com"++-- | View and manage your Google Analytics data+type Analytics'FullControl =+  "https://www.googleapis.com/auth/analytics"++-- | Edit Google Analytics management entities+type Analytics'Edit =+  "https://www.googleapis.com/auth/analytics.edit"++-- | Manage Google Analytics Account users by email address+type Analytics'Manage'Users =+  "https://www.googleapis.com/auth/analytics.manage.users"++-- | View Google Analytics user permissions+type Analytics'Manage'Users'Readonly =+  "https://www.googleapis.com/auth/analytics.manage.users.readonly"++-- | Create a new Google Analytics account along with its default property and view+type Analytics'Provision =+  "https://www.googleapis.com/auth/analytics.provision"++-- | View your Google Analytics data+type Analytics'Readonly =+  "https://www.googleapis.com/auth/analytics.readonly"++-- | Manage Google Analytics user deletion requests+type Analytics'User'Deletion =+  "https://www.googleapis.com/auth/analytics.user.deletion"
+ gen/Gogol/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs view
@@ -0,0 +1,89 @@+{-# 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.Analytics.UserDeletion.UserDeletionRequest.Upsert+-- 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 or update a user deletion requests.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.userDeletion.userDeletionRequest.upsert@.+module Gogol.Analytics.UserDeletion.UserDeletionRequest.Upsert+  ( -- * Resource+    AnalyticsUserDeletionUserDeletionRequestUpsertResource,++    -- ** Constructing a Request+    AnalyticsUserDeletionUserDeletionRequestUpsert (..),+    newAnalyticsUserDeletionUserDeletionRequestUpsert,+  )+where++import Gogol.Analytics.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @analytics.userDeletion.userDeletionRequest.upsert@ method which the+-- 'AnalyticsUserDeletionUserDeletionRequestUpsert' request conforms to.+type AnalyticsUserDeletionUserDeletionRequestUpsertResource =+  "analytics"+    Core.:> "v3"+    Core.:> "userDeletion"+    Core.:> "userDeletionRequests:upsert"+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] UserDeletionRequest+    Core.:> Core.Post '[Core.JSON] UserDeletionRequest++-- | Insert or update a user deletion requests.+--+-- /See:/ 'newAnalyticsUserDeletionUserDeletionRequestUpsert' smart constructor.+newtype AnalyticsUserDeletionUserDeletionRequestUpsert = AnalyticsUserDeletionUserDeletionRequestUpsert+  { -- | Multipart request metadata.+    payload :: UserDeletionRequest+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnalyticsUserDeletionUserDeletionRequestUpsert' with the minimum fields required to make a request.+newAnalyticsUserDeletionUserDeletionRequestUpsert ::+  -- |  Multipart request metadata. See 'payload'.+  UserDeletionRequest ->+  AnalyticsUserDeletionUserDeletionRequestUpsert+newAnalyticsUserDeletionUserDeletionRequestUpsert payload =+  AnalyticsUserDeletionUserDeletionRequestUpsert {payload = payload}++instance+  Core.GoogleRequest+    AnalyticsUserDeletionUserDeletionRequestUpsert+  where+  type+    Rs AnalyticsUserDeletionUserDeletionRequestUpsert =+      UserDeletionRequest+  type+    Scopes AnalyticsUserDeletionUserDeletionRequestUpsert =+      '[Analytics'User'Deletion]+  requestClient AnalyticsUserDeletionUserDeletionRequestUpsert {..} =+    go (Core.Just Core.AltJSON) payload analyticsService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AnalyticsUserDeletionUserDeletionRequestUpsertResource+          )+          Core.mempty
− gen/Network/Google/Analytics.hs 
@@ -1,1605 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Analytics--- 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)------ Views and manages your Google Analytics data.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference>-module Network.Google.Analytics-    (-    -- * Service Configuration-      analyticsService--    -- * OAuth Scopes-    , analyticsManageUsersScope-    , analyticsProvisionScope-    , analyticsManageUsersReadOnlyScope-    , analyticsScope-    , analyticsReadOnlyScope-    , analyticsUserDeletionScope-    , analyticsEditScope--    -- * API Declaration-    , AnalyticsAPI--    -- * Resources--    -- ** analytics.data.ga.get-    , module Network.Google.Resource.Analytics.Data.Ga.Get--    -- ** analytics.data.mcf.get-    , module Network.Google.Resource.Analytics.Data.Mcf.Get--    -- ** analytics.data.realtime.get-    , module Network.Google.Resource.Analytics.Data.Realtime.Get--    -- ** analytics.management.accountSummaries.list-    , module Network.Google.Resource.Analytics.Management.AccountSummaries.List--    -- ** analytics.management.accountUserLinks.delete-    , module Network.Google.Resource.Analytics.Management.AccountUserLinks.Delete--    -- ** analytics.management.accountUserLinks.insert-    , module Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert--    -- ** analytics.management.accountUserLinks.list-    , module Network.Google.Resource.Analytics.Management.AccountUserLinks.List--    -- ** analytics.management.accountUserLinks.update-    , module Network.Google.Resource.Analytics.Management.AccountUserLinks.Update--    -- ** analytics.management.accounts.list-    , module Network.Google.Resource.Analytics.Management.Accounts.List--    -- ** analytics.management.clientId.hashClientId-    , module Network.Google.Resource.Analytics.Management.ClientId.HashClientId--    -- ** analytics.management.customDataSources.list-    , module Network.Google.Resource.Analytics.Management.CustomDataSources.List--    -- ** analytics.management.customDimensions.get-    , module Network.Google.Resource.Analytics.Management.CustomDimensions.Get--    -- ** analytics.management.customDimensions.insert-    , module Network.Google.Resource.Analytics.Management.CustomDimensions.Insert--    -- ** analytics.management.customDimensions.list-    , module Network.Google.Resource.Analytics.Management.CustomDimensions.List--    -- ** analytics.management.customDimensions.patch-    , module Network.Google.Resource.Analytics.Management.CustomDimensions.Patch--    -- ** analytics.management.customDimensions.update-    , module Network.Google.Resource.Analytics.Management.CustomDimensions.Update--    -- ** analytics.management.customMetrics.get-    , module Network.Google.Resource.Analytics.Management.CustomMetrics.Get--    -- ** analytics.management.customMetrics.insert-    , module Network.Google.Resource.Analytics.Management.CustomMetrics.Insert--    -- ** analytics.management.customMetrics.list-    , module Network.Google.Resource.Analytics.Management.CustomMetrics.List--    -- ** analytics.management.customMetrics.patch-    , module Network.Google.Resource.Analytics.Management.CustomMetrics.Patch--    -- ** analytics.management.customMetrics.update-    , module Network.Google.Resource.Analytics.Management.CustomMetrics.Update--    -- ** analytics.management.experiments.delete-    , module Network.Google.Resource.Analytics.Management.Experiments.Delete--    -- ** analytics.management.experiments.get-    , module Network.Google.Resource.Analytics.Management.Experiments.Get--    -- ** analytics.management.experiments.insert-    , module Network.Google.Resource.Analytics.Management.Experiments.Insert--    -- ** analytics.management.experiments.list-    , module Network.Google.Resource.Analytics.Management.Experiments.List--    -- ** analytics.management.experiments.patch-    , module Network.Google.Resource.Analytics.Management.Experiments.Patch--    -- ** analytics.management.experiments.update-    , module Network.Google.Resource.Analytics.Management.Experiments.Update--    -- ** analytics.management.filters.delete-    , module Network.Google.Resource.Analytics.Management.Filters.Delete--    -- ** analytics.management.filters.get-    , module Network.Google.Resource.Analytics.Management.Filters.Get--    -- ** analytics.management.filters.insert-    , module Network.Google.Resource.Analytics.Management.Filters.Insert--    -- ** analytics.management.filters.list-    , module Network.Google.Resource.Analytics.Management.Filters.List--    -- ** analytics.management.filters.patch-    , module Network.Google.Resource.Analytics.Management.Filters.Patch--    -- ** analytics.management.filters.update-    , module Network.Google.Resource.Analytics.Management.Filters.Update--    -- ** analytics.management.goals.get-    , module Network.Google.Resource.Analytics.Management.Goals.Get--    -- ** analytics.management.goals.insert-    , module Network.Google.Resource.Analytics.Management.Goals.Insert--    -- ** analytics.management.goals.list-    , module Network.Google.Resource.Analytics.Management.Goals.List--    -- ** analytics.management.goals.patch-    , module Network.Google.Resource.Analytics.Management.Goals.Patch--    -- ** analytics.management.goals.update-    , module Network.Google.Resource.Analytics.Management.Goals.Update--    -- ** analytics.management.profileFilterLinks.delete-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Delete--    -- ** analytics.management.profileFilterLinks.get-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Get--    -- ** analytics.management.profileFilterLinks.insert-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert--    -- ** analytics.management.profileFilterLinks.list-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.List--    -- ** analytics.management.profileFilterLinks.patch-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Patch--    -- ** analytics.management.profileFilterLinks.update-    , module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Update--    -- ** analytics.management.profileUserLinks.delete-    , module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Delete--    -- ** analytics.management.profileUserLinks.insert-    , module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert--    -- ** analytics.management.profileUserLinks.list-    , module Network.Google.Resource.Analytics.Management.ProFileUserLinks.List--    -- ** analytics.management.profileUserLinks.update-    , module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update--    -- ** analytics.management.profiles.delete-    , module Network.Google.Resource.Analytics.Management.ProFiles.Delete--    -- ** analytics.management.profiles.get-    , module Network.Google.Resource.Analytics.Management.ProFiles.Get--    -- ** analytics.management.profiles.insert-    , module Network.Google.Resource.Analytics.Management.ProFiles.Insert--    -- ** analytics.management.profiles.list-    , module Network.Google.Resource.Analytics.Management.ProFiles.List--    -- ** analytics.management.profiles.patch-    , module Network.Google.Resource.Analytics.Management.ProFiles.Patch--    -- ** analytics.management.profiles.update-    , module Network.Google.Resource.Analytics.Management.ProFiles.Update--    -- ** analytics.management.remarketingAudience.delete-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete--    -- ** analytics.management.remarketingAudience.get-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Get--    -- ** analytics.management.remarketingAudience.insert-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert--    -- ** analytics.management.remarketingAudience.list-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.List--    -- ** analytics.management.remarketingAudience.patch-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Patch--    -- ** analytics.management.remarketingAudience.update-    , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Update--    -- ** analytics.management.segments.list-    , module Network.Google.Resource.Analytics.Management.Segments.List--    -- ** analytics.management.unsampledReports.delete-    , module Network.Google.Resource.Analytics.Management.UnSampledReports.Delete--    -- ** analytics.management.unsampledReports.get-    , module Network.Google.Resource.Analytics.Management.UnSampledReports.Get--    -- ** analytics.management.unsampledReports.insert-    , module Network.Google.Resource.Analytics.Management.UnSampledReports.Insert--    -- ** analytics.management.unsampledReports.list-    , module Network.Google.Resource.Analytics.Management.UnSampledReports.List--    -- ** analytics.management.uploads.deleteUploadData-    , module Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData--    -- ** analytics.management.uploads.get-    , module Network.Google.Resource.Analytics.Management.Uploads.Get--    -- ** analytics.management.uploads.list-    , module Network.Google.Resource.Analytics.Management.Uploads.List--    -- ** analytics.management.uploads.uploadData-    , module Network.Google.Resource.Analytics.Management.Uploads.UploadData--    -- ** analytics.management.webPropertyAdWordsLinks.delete-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete--    -- ** analytics.management.webPropertyAdWordsLinks.get-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Get--    -- ** analytics.management.webPropertyAdWordsLinks.insert-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Insert--    -- ** analytics.management.webPropertyAdWordsLinks.list-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.List--    -- ** analytics.management.webPropertyAdWordsLinks.patch-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Patch--    -- ** analytics.management.webPropertyAdWordsLinks.update-    , module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Update--    -- ** analytics.management.webproperties.get-    , module Network.Google.Resource.Analytics.Management.WebProperties.Get--    -- ** analytics.management.webproperties.insert-    , module Network.Google.Resource.Analytics.Management.WebProperties.Insert--    -- ** analytics.management.webproperties.list-    , module Network.Google.Resource.Analytics.Management.WebProperties.List--    -- ** analytics.management.webproperties.patch-    , module Network.Google.Resource.Analytics.Management.WebProperties.Patch--    -- ** analytics.management.webproperties.update-    , module Network.Google.Resource.Analytics.Management.WebProperties.Update--    -- ** analytics.management.webpropertyUserLinks.delete-    , module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Delete--    -- ** analytics.management.webpropertyUserLinks.insert-    , module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Insert--    -- ** analytics.management.webpropertyUserLinks.list-    , module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.List--    -- ** analytics.management.webpropertyUserLinks.update-    , module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update--    -- ** analytics.metadata.columns.list-    , module Network.Google.Resource.Analytics.Metadata.Columns.List--    -- ** analytics.provisioning.createAccountTicket-    , module Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket--    -- ** analytics.provisioning.createAccountTree-    , module Network.Google.Resource.Analytics.Provisioning.CreateAccountTree--    -- ** analytics.userDeletion.userDeletionRequest.upsert-    , module Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert--    -- * Types--    -- ** UserDeletionRequest-    , UserDeletionRequest-    , userDeletionRequest-    , udrWebPropertyId-    , udrKind-    , udrId-    , udrFirebaseProjectId-    , udrDeletionRequestTime--    -- ** UnSampledReports-    , UnSampledReports-    , unSampledReports-    , usrNextLink-    , usrItemsPerPage-    , usrKind-    , usrUsername-    , usrItems-    , usrTotalResults-    , usrStartIndex-    , usrPreviousLink--    -- ** GoalURLDestinationDetailsStepsItem-    , GoalURLDestinationDetailsStepsItem-    , goalURLDestinationDetailsStepsItem-    , guddsiURL-    , guddsiName-    , guddsiNumber--    -- ** GaDataQuery-    , GaDataQuery-    , gaDataQuery-    , gdqMetrics-    , gdqSamplingLevel-    , gdqFilters-    , gdqIds-    , gdqEndDate-    , gdqSort-    , gdqDimensions-    , gdqStartIndex-    , gdqMaxResults-    , gdqSegment-    , gdqStartDate--    -- ** RemarketingAudiences-    , RemarketingAudiences-    , remarketingAudiences-    , raNextLink-    , raItemsPerPage-    , raKind-    , raUsername-    , raItems-    , raTotalResults-    , raStartIndex-    , raPreviousLink--    -- ** GaDataDataTableRowsItem-    , GaDataDataTableRowsItem-    , gaDataDataTableRowsItem-    , gddtriC--    -- ** UnSampledReport-    , UnSampledReport-    , unSampledReport-    , uDownloadType-    , uStatus-    , uMetrics-    , uDriveDownloadDetails-    , uWebPropertyId-    , uKind-    , uCreated-    , uFilters-    , uProFileId-    , uEndDate-    , uSelfLink-    , uAccountId-    , uId-    , uUpdated-    , uTitle-    , uDimensions-    , uSegment-    , uCloudStorageDownloadDetails-    , uStartDate--    -- ** McfDataColumnHeadersItem-    , McfDataColumnHeadersItem-    , mcfDataColumnHeadersItem-    , mdchiColumnType-    , mdchiName-    , mdchiDataType--    -- ** GaDataTotalsForAllResults-    , GaDataTotalsForAllResults-    , gaDataTotalsForAllResults-    , gdtfarAddtional--    -- ** ProFileParentLink-    , ProFileParentLink-    , proFileParentLink-    , pfplHref-    , pfplType--    -- ** RemarketingAudience-    , RemarketingAudience-    , remarketingAudience-    , rWebPropertyId-    , rKind-    , rCreated-    , rLinkedAdAccounts-    , rAudienceDefinition-    , rAudienceType-    , rAccountId-    , rName-    , rStateBasedAudienceDefinition-    , rLinkedViews-    , rInternalWebPropertyId-    , rId-    , rUpdated-    , rDescription--    -- ** GaDataDataTableRowsItemCItem-    , GaDataDataTableRowsItemCItem-    , gaDataDataTableRowsItemCItem-    , gddtriciV--    -- ** EntityUserLinkPermissions-    , EntityUserLinkPermissions-    , entityUserLinkPermissions-    , eulpLocal-    , eulpEffective--    -- ** RealtimeDataProFileInfo-    , RealtimeDataProFileInfo-    , realtimeDataProFileInfo-    , rdpfiWebPropertyId-    , rdpfiProFileId-    , rdpfiProFileName-    , rdpfiAccountId-    , rdpfiInternalWebPropertyId-    , rdpfiTableId--    -- ** McfDataRowsItemItemConversionPathValueItem-    , McfDataRowsItemItemConversionPathValueItem-    , mcfDataRowsItemItemConversionPathValueItem-    , mdriicpviInteractionType-    , mdriicpviNodeValue--    -- ** FilterExpression-    , FilterExpression-    , filterExpression-    , feFieldIndex-    , feField-    , feKind-    , feMatchType-    , feCaseSensitive-    , feExpressionValue--    -- ** ProFileRef-    , ProFileRef-    , proFileRef-    , pfrWebPropertyId-    , pfrKind-    , pfrHref-    , pfrAccountId-    , pfrName-    , pfrInternalWebPropertyId-    , pfrId--    -- ** Accounts-    , Accounts-    , accounts-    , aNextLink-    , aItemsPerPage-    , aKind-    , aUsername-    , aItems-    , aTotalResults-    , aStartIndex-    , aPreviousLink--    -- ** Experiments-    , Experiments-    , experiments-    , eNextLink-    , eItemsPerPage-    , eKind-    , eUsername-    , eItems-    , eTotalResults-    , eStartIndex-    , ePreviousLink--    -- ** ExperimentParentLink-    , ExperimentParentLink-    , experimentParentLink-    , eplHref-    , eplType--    -- ** UnSampledReportDriveDownloadDetails-    , UnSampledReportDriveDownloadDetails-    , unSampledReportDriveDownloadDetails-    , usrdddDocumentId--    -- ** McfDataProFileInfo-    , McfDataProFileInfo-    , mcfDataProFileInfo-    , mdpfiWebPropertyId-    , mdpfiProFileId-    , mdpfiProFileName-    , mdpfiAccountId-    , mdpfiInternalWebPropertyId-    , mdpfiTableId--    -- ** CustomDataSources-    , CustomDataSources-    , customDataSources-    , cdsNextLink-    , cdsItemsPerPage-    , cdsKind-    , cdsUsername-    , cdsItems-    , cdsTotalResults-    , cdsStartIndex-    , cdsPreviousLink--    -- ** WebPropertyChildLink-    , WebPropertyChildLink-    , webPropertyChildLink-    , wpclHref-    , wpclType--    -- ** DataGaGetSamplingLevel-    , DataGaGetSamplingLevel (..)--    -- ** HashClientIdResponse-    , HashClientIdResponse-    , hashClientIdResponse-    , hcirClientId-    , hcirWebPropertyId-    , hcirKind-    , hcirHashedClientId--    -- ** McfData-    , McfData-    , mcfData-    , mdNextLink-    , mdSampleSpace-    , mdItemsPerPage-    , mdProFileInfo-    , mdKind-    , mdSampleSize-    , mdRows-    , mdSelfLink-    , mdQuery-    , mdColumnHeaders-    , mdId-    , mdTotalResults-    , mdContainsSampledData-    , mdTotalsForAllResults-    , mdPreviousLink--    -- ** UserRef-    , UserRef-    , userRef-    , urEmail-    , urKind-    , urId--    -- ** GoalVisitNumPagesDetails-    , GoalVisitNumPagesDetails-    , goalVisitNumPagesDetails-    , gvnpdComparisonValue-    , gvnpdComparisonType--    -- ** RealtimeDataColumnHeadersItem-    , RealtimeDataColumnHeadersItem-    , realtimeDataColumnHeadersItem-    , rdchiColumnType-    , rdchiName-    , rdchiDataType--    -- ** AccountRef-    , AccountRef-    , accountRef-    , arKind-    , arHref-    , arName-    , arId--    -- ** EntityAdWordsLinks-    , EntityAdWordsLinks-    , entityAdWordsLinks-    , eawlNextLink-    , eawlItemsPerPage-    , eawlKind-    , eawlItems-    , eawlTotalResults-    , eawlStartIndex-    , eawlPreviousLink--    -- ** ProFiles-    , ProFiles-    , proFiles-    , pfNextLink-    , pfItemsPerPage-    , pfKind-    , pfUsername-    , pfItems-    , pfTotalResults-    , pfStartIndex-    , pfPreviousLink--    -- ** AnalyticsDataimportDeleteUploadDataRequest-    , AnalyticsDataimportDeleteUploadDataRequest-    , analyticsDataimportDeleteUploadDataRequest-    , addudrCustomDataImportUids--    -- ** EntityAdWordsLink-    , EntityAdWordsLink-    , entityAdWordsLink-    , entAdWordsAccounts-    , entProFileIds-    , entKind-    , entSelfLink-    , entName-    , entId-    , entEntity--    -- ** FilterSearchAndReplaceDetails-    , FilterSearchAndReplaceDetails-    , filterSearchAndReplaceDetails-    , fsardFieldIndex-    , fsardField-    , fsardSearchString-    , fsardReplaceString-    , fsardCaseSensitive--    -- ** ProFilePermissions-    , ProFilePermissions-    , proFilePermissions-    , pfpEffective--    -- ** ProFile-    , ProFile-    , proFile-    , pParentLink-    , pECommerceTracking-    , pSiteSearchCategoryParameters-    , pWebPropertyId-    , pChildLink-    , pSiteSearchQueryParameters-    , pKind-    , pDefaultPage-    , pCreated-    , pSelfLink-    , pAccountId-    , pBotFilteringEnabled-    , pName-    , pCurrency-    , pStarred-    , pInternalWebPropertyId-    , pId-    , pUpdated-    , pPermissions-    , pWebsiteURL-    , pType-    , pStripSiteSearchCategoryParameters-    , pTimezone-    , pExcludeQueryParameters-    , pEnhancedECommerceTracking-    , pStripSiteSearchQueryParameters--    -- ** AccountSummaries-    , AccountSummaries-    , accountSummaries-    , asNextLink-    , asItemsPerPage-    , asKind-    , asUsername-    , asItems-    , asTotalResults-    , asStartIndex-    , asPreviousLink--    -- ** GoalEventDetails-    , GoalEventDetails-    , goalEventDetails-    , gedUseEventValue-    , gedEventConditions--    -- ** WebPropertySummary-    , WebPropertySummary-    , webPropertySummary-    , wpsKind-    , wpsProFiles-    , wpsName-    , wpsStarred-    , wpsInternalWebPropertyId-    , wpsId-    , wpsWebsiteURL-    , wpsLevel--    -- ** Filters-    , Filters-    , filters-    , fNextLink-    , fItemsPerPage-    , fKind-    , fUsername-    , fItems-    , fTotalResults-    , fStartIndex-    , fPreviousLink--    -- ** GaData-    , GaData-    , gaData-    , gdNextLink-    , gdSampleSpace-    , gdItemsPerPage-    , gdProFileInfo-    , gdKind-    , gdSampleSize-    , gdRows-    , gdSelfLink-    , gdQuery-    , gdColumnHeaders-    , gdId-    , gdTotalResults-    , gdDataLastRefreshed-    , gdDataTable-    , gdContainsSampledData-    , gdTotalsForAllResults-    , gdPreviousLink--    -- ** RealtimeDataTotalsForAllResults-    , RealtimeDataTotalsForAllResults-    , realtimeDataTotalsForAllResults-    , rdtfarAddtional--    -- ** CustomDataSource-    , CustomDataSource-    , customDataSource-    , cParentLink-    , cWebPropertyId-    , cChildLink-    , cKind-    , cCreated-    , cUploadType-    , cSchema-    , cImportBehavior-    , cSelfLink-    , cAccountId-    , cName-    , cId-    , cUpdated-    , cType-    , cDescription-    , cProFilesLinked--    -- ** AccountTreeRequest-    , AccountTreeRequest-    , accountTreeRequest-    , atrWebPropertyName-    , atrKind-    , atrAccountName-    , atrProFileName-    , atrWebsiteURL-    , atrTimezone--    -- ** WebPropertyRef-    , WebPropertyRef-    , webPropertyRef-    , wprKind-    , wprHref-    , wprAccountId-    , wprName-    , wprInternalWebPropertyId-    , wprId--    -- ** LinkedForeignAccount-    , LinkedForeignAccount-    , linkedForeignAccount-    , lfaStatus-    , lfaWebPropertyId-    , lfaKind-    , lfaEligibleForSearch-    , lfaAccountId-    , lfaRemarketingAudienceId-    , lfaLinkedAccountId-    , lfaInternalWebPropertyId-    , lfaId-    , lfaType--    -- ** Goals-    , Goals-    , goals-    , gNextLink-    , gItemsPerPage-    , gKind-    , gUsername-    , gItems-    , gTotalResults-    , gStartIndex-    , gPreviousLink--    -- ** McfDataRowsItemItem-    , McfDataRowsItemItem-    , mcfDataRowsItemItem-    , mdriiPrimitiveValue-    , mdriiConversionPathValue--    -- ** AccountPermissions-    , AccountPermissions-    , accountPermissions-    , apEffective--    -- ** EntityUserLinkEntity-    , EntityUserLinkEntity-    , entityUserLinkEntity-    , euleProFileRef-    , euleAccountRef-    , euleWebPropertyRef--    -- ** Account-    , Account-    , account-    , accChildLink-    , accKind-    , accCreated-    , accSelfLink-    , accName-    , accStarred-    , accId-    , accUpdated-    , accPermissions--    -- ** Experiment-    , Experiment-    , experiment-    , expParentLink-    , expEqualWeighting-    , expStatus-    , expWebPropertyId-    , expStartTime-    , expSnippet-    , expKind-    , expCreated-    , expReasonExperimentEnded-    , expTrafficCoverage-    , expEditableInGaUi-    , expMinimumExperimentLengthInDays-    , expProFileId-    , expOptimizationType-    , expSelfLink-    , expAccountId-    , expName-    , expWinnerFound-    , expEndTime-    , expVariations-    , expInternalWebPropertyId-    , expId-    , expUpdated-    , expRewriteVariationURLsAsOriginal-    , expObjectiveMetric-    , expWinnerConfidenceLevel-    , expServingFramework-    , expDescription--    -- ** EntityUserLinks-    , EntityUserLinks-    , entityUserLinks-    , eulNextLink-    , eulItemsPerPage-    , eulKind-    , eulItems-    , eulTotalResults-    , eulStartIndex-    , eulPreviousLink--    -- ** AdWordsAccount-    , AdWordsAccount-    , adWordsAccount-    , awaAutoTaggingEnabled-    , awaKind-    , awaCustomerId--    -- ** FilterRef-    , FilterRef-    , filterRef-    , frKind-    , frHref-    , frAccountId-    , frName-    , frId--    -- ** GoalVisitTimeOnSiteDetails-    , GoalVisitTimeOnSiteDetails-    , goalVisitTimeOnSiteDetails-    , gvtosdComparisonValue-    , gvtosdComparisonType--    -- ** WebProperties-    , WebProperties-    , webProperties-    , wpNextLink-    , wpItemsPerPage-    , wpKind-    , wpUsername-    , wpItems-    , wpTotalResults-    , wpStartIndex-    , wpPreviousLink--    -- ** CustomMetrics-    , CustomMetrics-    , customMetrics-    , cmNextLink-    , cmItemsPerPage-    , cmKind-    , cmUsername-    , cmItems-    , cmTotalResults-    , cmStartIndex-    , cmPreviousLink--    -- ** FilterAdvancedDetails-    , FilterAdvancedDetails-    , filterAdvancedDetails-    , fadExtractA-    , fadFieldARequired-    , fadFieldA-    , fadFieldBIndex-    , fadOutputToField-    , fadOutputConstructor-    , fadExtractB-    , fadFieldAIndex-    , fadCaseSensitive-    , fadOutputToFieldIndex-    , fadFieldB-    , fadFieldBRequired-    , fadOverrideOutputField--    -- ** AccountTreeResponse-    , AccountTreeResponse-    , accountTreeResponse-    , atrtKind-    , atrtProFile-    , atrtAccount-    , atrtWebProperty--    -- ** FilterUppercaseDetails-    , FilterUppercaseDetails-    , filterUppercaseDetails-    , fudFieldIndex-    , fudField--    -- ** CustomDataSourceChildLink-    , CustomDataSourceChildLink-    , customDataSourceChildLink-    , cdsclHref-    , cdsclType--    -- ** IncludeConditions-    , IncludeConditions-    , includeConditions-    , icKind-    , icDaysToLookBack-    , icMembershipDurationDays-    , icSegment-    , icIsSmartList--    -- ** FilterParentLink-    , FilterParentLink-    , filterParentLink-    , fplHref-    , fplType--    -- ** DataGaGetOutput-    , DataGaGetOutput (..)--    -- ** HashClientIdRequest-    , HashClientIdRequest-    , hashClientIdRequest-    , hClientId-    , hWebPropertyId-    , hKind--    -- ** RealtimeData-    , RealtimeData-    , realtimeData-    , rdProFileInfo-    , rdKind-    , rdRows-    , rdSelfLink-    , rdQuery-    , rdColumnHeaders-    , rdId-    , rdTotalResults-    , rdTotalsForAllResults--    -- ** CustomMetric-    , CustomMetric-    , customMetric-    , cusParentLink-    , cusWebPropertyId-    , cusKind-    , cusMaxValue-    , cusCreated-    , cusMinValue-    , cusActive-    , cusSelfLink-    , cusAccountId-    , cusName-    , cusScope-    , cusId-    , cusUpdated-    , cusType-    , cusIndex--    -- ** ProFileSummary-    , ProFileSummary-    , proFileSummary-    , pfsKind-    , pfsName-    , pfsStarred-    , pfsId-    , pfsType--    -- ** CustomDimensionParentLink-    , CustomDimensionParentLink-    , customDimensionParentLink-    , cdplHref-    , cdplType--    -- ** WebProperty-    , WebProperty-    , webProperty-    , wParentLink-    , wChildLink-    , wDefaultProFileId-    , wKind-    , wCreated-    , wDataRetentionTtl-    , wDataRetentionResetOnNewActivity-    , wSelfLink-    , wAccountId-    , wName-    , wStarred-    , wInternalWebPropertyId-    , wId-    , wUpdated-    , wProFileCount-    , wPermissions-    , wWebsiteURL-    , wIndustryVertical-    , wLevel--    -- ** WebPropertyPermissions-    , WebPropertyPermissions-    , webPropertyPermissions-    , wppEffective--    -- ** EntityUserLink-    , EntityUserLink-    , entityUserLink-    , euluKind-    , euluUserRef-    , euluSelfLink-    , euluId-    , euluPermissions-    , euluEntity--    -- ** CustomDataSourceParentLink-    , CustomDataSourceParentLink-    , customDataSourceParentLink-    , cdsplHref-    , cdsplType--    -- ** GoalEventDetailsEventConditionsItem-    , GoalEventDetailsEventConditionsItem-    , goalEventDetailsEventConditionsItem-    , gedeciMatchType-    , gedeciExpression-    , gedeciComparisonValue-    , gedeciType-    , gedeciComparisonType--    -- ** McfDataQuery-    , McfDataQuery-    , mcfDataQuery-    , mdqMetrics-    , mdqSamplingLevel-    , mdqFilters-    , mdqIds-    , mdqEndDate-    , mdqSort-    , mdqDimensions-    , mdqStartIndex-    , mdqMaxResults-    , mdqSegment-    , mdqStartDate--    -- ** Goal-    , Goal-    , goal-    , goaParentLink-    , goaWebPropertyId-    , goaKind-    , goaCreated-    , goaValue-    , goaProFileId-    , goaEventDetails-    , goaActive-    , goaSelfLink-    , goaVisitTimeOnSiteDetails-    , goaAccountId-    , goaName-    , goaInternalWebPropertyId-    , goaId-    , goaURLDestinationDetails-    , goaVisitNumPagesDetails-    , goaUpdated-    , goaType--    -- ** AccountTicket-    , AccountTicket-    , accountTicket-    , atRedirectURI-    , atKind-    , atProFile-    , atAccount-    , atWebProperty-    , atId--    -- ** AccountSummary-    , AccountSummary-    , accountSummary-    , assKind-    , assWebProperties-    , assName-    , assStarred-    , assId--    -- ** RealtimeDataQuery-    , RealtimeDataQuery-    , realtimeDataQuery-    , rdqMetrics-    , rdqFilters-    , rdqIds-    , rdqSort-    , rdqDimensions-    , rdqMaxResults--    -- ** Columns-    , Columns-    , columns-    , colEtag-    , colKind-    , colItems-    , colTotalResults-    , colAttributeNames--    -- ** FilterLowercaseDetails-    , FilterLowercaseDetails-    , filterLowercaseDetails-    , fldFieldIndex-    , fldField--    -- ** Filter-    , Filter-    , filter'-    , filParentLink-    , filAdvancedDetails-    , filUppercaseDetails-    , filLowercaseDetails-    , filKind-    , filCreated-    , filIncludeDetails-    , filExcludeDetails-    , filSelfLink-    , filAccountId-    , filName-    , filId-    , filUpdated-    , filType-    , filSearchAndReplaceDetails--    -- ** Uploads-    , Uploads-    , uploads-    , uplNextLink-    , uplItemsPerPage-    , uplKind-    , uplItems-    , uplTotalResults-    , uplStartIndex-    , uplPreviousLink--    -- ** CustomDimensions-    , CustomDimensions-    , customDimensions-    , cdNextLink-    , cdItemsPerPage-    , cdKind-    , cdUsername-    , cdItems-    , cdTotalResults-    , cdStartIndex-    , cdPreviousLink--    -- ** Segments-    , Segments-    , segments-    , sNextLink-    , sItemsPerPage-    , sKind-    , sUsername-    , sItems-    , sTotalResults-    , sStartIndex-    , sPreviousLink--    -- ** GaDataDataTable-    , GaDataDataTable-    , gaDataDataTable-    , gddtCols-    , gddtRows--    -- ** EntityAdWordsLinkEntity-    , EntityAdWordsLinkEntity-    , entityAdWordsLinkEntity-    , eawleWebPropertyRef--    -- ** RemarketingAudienceStateBasedAudienceDefinition-    , RemarketingAudienceStateBasedAudienceDefinition-    , remarketingAudienceStateBasedAudienceDefinition-    , rasbadExcludeConditions-    , rasbadIncludeConditions--    -- ** GoalURLDestinationDetails-    , GoalURLDestinationDetails-    , goalURLDestinationDetails-    , guddURL-    , guddMatchType-    , guddSteps-    , guddCaseSensitive-    , guddFirstStepRequired--    -- ** ProFileFilterLinks-    , ProFileFilterLinks-    , proFileFilterLinks-    , pfflNextLink-    , pfflItemsPerPage-    , pfflKind-    , pfflUsername-    , pfflItems-    , pfflTotalResults-    , pfflStartIndex-    , pfflPreviousLink--    -- ** WebPropertyParentLink-    , WebPropertyParentLink-    , webPropertyParentLink-    , wpplHref-    , wpplType--    -- ** GaDataProFileInfo-    , GaDataProFileInfo-    , gaDataProFileInfo-    , gdpfiWebPropertyId-    , gdpfiProFileId-    , gdpfiProFileName-    , gdpfiAccountId-    , gdpfiInternalWebPropertyId-    , gdpfiTableId--    -- ** Upload-    , Upload-    , upload-    , uuStatus-    , uuKind-    , uuCustomDataSourceId-    , uuUploadTime-    , uuAccountId-    , uuId-    , uuErrors--    -- ** DataMcfGetSamplingLevel-    , DataMcfGetSamplingLevel (..)--    -- ** CustomDimension-    , CustomDimension-    , customDimension-    , cddParentLink-    , cddWebPropertyId-    , cddKind-    , cddCreated-    , cddActive-    , cddSelfLink-    , cddAccountId-    , cddName-    , cddScope-    , cddId-    , cddUpdated-    , cddIndex--    -- ** Segment-    , Segment-    , segment-    , segDefinition-    , segKind-    , segCreated-    , segSelfLink-    , segName-    , segId-    , segUpdated-    , segType-    , segSegmentId--    -- ** AccountChildLink-    , AccountChildLink-    , accountChildLink-    , aclHref-    , aclType--    -- ** ProFileFilterLink-    , ProFileFilterLink-    , proFileFilterLink-    , proProFileRef-    , proKind-    , proFilterRef-    , proSelfLink-    , proId-    , proRank--    -- ** CustomMetricParentLink-    , CustomMetricParentLink-    , customMetricParentLink-    , cmplHref-    , cmplType--    -- ** Column-    , Column-    , column-    , ccKind-    , ccAttributes-    , ccId--    -- ** RemarketingAudienceAudienceDefinition-    , RemarketingAudienceAudienceDefinition-    , remarketingAudienceAudienceDefinition-    , raadIncludeConditions--    -- ** GaDataDataTableColsItem-    , GaDataDataTableColsItem-    , gaDataDataTableColsItem-    , gddtciId-    , gddtciType-    , gddtciLabel--    -- ** ExperimentVariationsItem-    , ExperimentVariationsItem-    , experimentVariationsItem-    , eviStatus-    , eviWeight-    , eviURL-    , eviWon-    , eviName--    -- ** RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , remarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , rasbadecExclusionDuration-    , rasbadecSegment--    -- ** McfDataTotalsForAllResults-    , McfDataTotalsForAllResults-    , mcfDataTotalsForAllResults-    , mdtfarAddtional--    -- ** UserDeletionRequestId-    , UserDeletionRequestId-    , userDeletionRequestId-    , udriUserId-    , udriType--    -- ** UnSampledReportCloudStorageDownloadDetails-    , UnSampledReportCloudStorageDownloadDetails-    , unSampledReportCloudStorageDownloadDetails-    , usrcsddObjectId-    , usrcsddBucketId--    -- ** ProFileChildLink-    , ProFileChildLink-    , proFileChildLink-    , pfclHref-    , pfclType--    -- ** GaDataColumnHeadersItem-    , GaDataColumnHeadersItem-    , gaDataColumnHeadersItem-    , gdchiColumnType-    , gdchiName-    , gdchiDataType--    -- ** GoalParentLink-    , GoalParentLink-    , goalParentLink-    , gplHref-    , gplType--    -- ** ColumnAttributes-    , ColumnAttributes-    , columnAttributes-    , caAddtional-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude-import           Network.Google.Resource.Analytics.Data.Ga.Get-import           Network.Google.Resource.Analytics.Data.Mcf.Get-import           Network.Google.Resource.Analytics.Data.Realtime.Get-import           Network.Google.Resource.Analytics.Management.Accounts.List-import           Network.Google.Resource.Analytics.Management.AccountSummaries.List-import           Network.Google.Resource.Analytics.Management.AccountUserLinks.Delete-import           Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert-import           Network.Google.Resource.Analytics.Management.AccountUserLinks.List-import           Network.Google.Resource.Analytics.Management.AccountUserLinks.Update-import           Network.Google.Resource.Analytics.Management.ClientId.HashClientId-import           Network.Google.Resource.Analytics.Management.CustomDataSources.List-import           Network.Google.Resource.Analytics.Management.CustomDimensions.Get-import           Network.Google.Resource.Analytics.Management.CustomDimensions.Insert-import           Network.Google.Resource.Analytics.Management.CustomDimensions.List-import           Network.Google.Resource.Analytics.Management.CustomDimensions.Patch-import           Network.Google.Resource.Analytics.Management.CustomDimensions.Update-import           Network.Google.Resource.Analytics.Management.CustomMetrics.Get-import           Network.Google.Resource.Analytics.Management.CustomMetrics.Insert-import           Network.Google.Resource.Analytics.Management.CustomMetrics.List-import           Network.Google.Resource.Analytics.Management.CustomMetrics.Patch-import           Network.Google.Resource.Analytics.Management.CustomMetrics.Update-import           Network.Google.Resource.Analytics.Management.Experiments.Delete-import           Network.Google.Resource.Analytics.Management.Experiments.Get-import           Network.Google.Resource.Analytics.Management.Experiments.Insert-import           Network.Google.Resource.Analytics.Management.Experiments.List-import           Network.Google.Resource.Analytics.Management.Experiments.Patch-import           Network.Google.Resource.Analytics.Management.Experiments.Update-import           Network.Google.Resource.Analytics.Management.Filters.Delete-import           Network.Google.Resource.Analytics.Management.Filters.Get-import           Network.Google.Resource.Analytics.Management.Filters.Insert-import           Network.Google.Resource.Analytics.Management.Filters.List-import           Network.Google.Resource.Analytics.Management.Filters.Patch-import           Network.Google.Resource.Analytics.Management.Filters.Update-import           Network.Google.Resource.Analytics.Management.Goals.Get-import           Network.Google.Resource.Analytics.Management.Goals.Insert-import           Network.Google.Resource.Analytics.Management.Goals.List-import           Network.Google.Resource.Analytics.Management.Goals.Patch-import           Network.Google.Resource.Analytics.Management.Goals.Update-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Delete-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Get-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.List-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Patch-import           Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Update-import           Network.Google.Resource.Analytics.Management.ProFiles.Delete-import           Network.Google.Resource.Analytics.Management.ProFiles.Get-import           Network.Google.Resource.Analytics.Management.ProFiles.Insert-import           Network.Google.Resource.Analytics.Management.ProFiles.List-import           Network.Google.Resource.Analytics.Management.ProFiles.Patch-import           Network.Google.Resource.Analytics.Management.ProFiles.Update-import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.Delete-import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert-import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.List-import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.Get-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.List-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.Patch-import           Network.Google.Resource.Analytics.Management.RemarketingAudience.Update-import           Network.Google.Resource.Analytics.Management.Segments.List-import           Network.Google.Resource.Analytics.Management.UnSampledReports.Delete-import           Network.Google.Resource.Analytics.Management.UnSampledReports.Get-import           Network.Google.Resource.Analytics.Management.UnSampledReports.Insert-import           Network.Google.Resource.Analytics.Management.UnSampledReports.List-import           Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData-import           Network.Google.Resource.Analytics.Management.Uploads.Get-import           Network.Google.Resource.Analytics.Management.Uploads.List-import           Network.Google.Resource.Analytics.Management.Uploads.UploadData-import           Network.Google.Resource.Analytics.Management.WebProperties.Get-import           Network.Google.Resource.Analytics.Management.WebProperties.Insert-import           Network.Google.Resource.Analytics.Management.WebProperties.List-import           Network.Google.Resource.Analytics.Management.WebProperties.Patch-import           Network.Google.Resource.Analytics.Management.WebProperties.Update-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Get-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Insert-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.List-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Patch-import           Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Update-import           Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Delete-import           Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Insert-import           Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.List-import           Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update-import           Network.Google.Resource.Analytics.Metadata.Columns.List-import           Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket-import           Network.Google.Resource.Analytics.Provisioning.CreateAccountTree-import           Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Google Analytics API service.-type AnalyticsAPI =-     UserDeletionUserDeletionRequestUpsertResource :<|>-       DataMcfGetResource-       :<|> DataGaGetResource-       :<|> DataRealtimeGetResource-       :<|> ManagementClientIdHashClientIdResource-       :<|> ManagementWebPropertyAdWordsLinksInsertResource-       :<|> ManagementWebPropertyAdWordsLinksListResource-       :<|> ManagementWebPropertyAdWordsLinksPatchResource-       :<|> ManagementWebPropertyAdWordsLinksGetResource-       :<|> ManagementWebPropertyAdWordsLinksDeleteResource-       :<|> ManagementWebPropertyAdWordsLinksUpdateResource-       :<|> ManagementUnSampledReportsInsertResource-       :<|> ManagementUnSampledReportsListResource-       :<|> ManagementUnSampledReportsGetResource-       :<|> ManagementUnSampledReportsDeleteResource-       :<|> ManagementRemarketingAudienceInsertResource-       :<|> ManagementRemarketingAudienceListResource-       :<|> ManagementRemarketingAudiencePatchResource-       :<|> ManagementRemarketingAudienceGetResource-       :<|> ManagementRemarketingAudienceDeleteResource-       :<|> ManagementRemarketingAudienceUpdateResource-       :<|> ManagementAccountsListResource-       :<|> ManagementExperimentsInsertResource-       :<|> ManagementExperimentsListResource-       :<|> ManagementExperimentsPatchResource-       :<|> ManagementExperimentsGetResource-       :<|> ManagementExperimentsDeleteResource-       :<|> ManagementExperimentsUpdateResource-       :<|> ManagementCustomDataSourcesListResource-       :<|> ManagementWebPropertyUserLinksInsertResource-       :<|> ManagementWebPropertyUserLinksListResource-       :<|> ManagementWebPropertyUserLinksDeleteResource-       :<|> ManagementWebPropertyUserLinksUpdateResource-       :<|> ManagementProFilesInsertResource-       :<|> ManagementProFilesListResource-       :<|> ManagementProFilesPatchResource-       :<|> ManagementProFilesGetResource-       :<|> ManagementProFilesDeleteResource-       :<|> ManagementProFilesUpdateResource-       :<|> ManagementFiltersInsertResource-       :<|> ManagementFiltersListResource-       :<|> ManagementFiltersPatchResource-       :<|> ManagementFiltersGetResource-       :<|> ManagementFiltersDeleteResource-       :<|> ManagementFiltersUpdateResource-       :<|> ManagementAccountSummariesListResource-       :<|> ManagementGoalsInsertResource-       :<|> ManagementGoalsListResource-       :<|> ManagementGoalsPatchResource-       :<|> ManagementGoalsGetResource-       :<|> ManagementGoalsUpdateResource-       :<|> ManagementWebPropertiesInsertResource-       :<|> ManagementWebPropertiesListResource-       :<|> ManagementWebPropertiesPatchResource-       :<|> ManagementWebPropertiesGetResource-       :<|> ManagementWebPropertiesUpdateResource-       :<|> ManagementCustomMetricsInsertResource-       :<|> ManagementCustomMetricsListResource-       :<|> ManagementCustomMetricsPatchResource-       :<|> ManagementCustomMetricsGetResource-       :<|> ManagementCustomMetricsUpdateResource-       :<|> ManagementUploadsListResource-       :<|> ManagementUploadsDeleteUploadDataResource-       :<|> ManagementUploadsGetResource-       :<|> ManagementUploadsUploadDataResource-       :<|> ManagementSegmentsListResource-       :<|> ManagementProFileFilterLinksInsertResource-       :<|> ManagementProFileFilterLinksListResource-       :<|> ManagementProFileFilterLinksPatchResource-       :<|> ManagementProFileFilterLinksGetResource-       :<|> ManagementProFileFilterLinksDeleteResource-       :<|> ManagementProFileFilterLinksUpdateResource-       :<|> ManagementCustomDimensionsInsertResource-       :<|> ManagementCustomDimensionsListResource-       :<|> ManagementCustomDimensionsPatchResource-       :<|> ManagementCustomDimensionsGetResource-       :<|> ManagementCustomDimensionsUpdateResource-       :<|> ManagementAccountUserLinksInsertResource-       :<|> ManagementAccountUserLinksListResource-       :<|> ManagementAccountUserLinksDeleteResource-       :<|> ManagementAccountUserLinksUpdateResource-       :<|> ManagementProFileUserLinksInsertResource-       :<|> ManagementProFileUserLinksListResource-       :<|> ManagementProFileUserLinksDeleteResource-       :<|> ManagementProFileUserLinksUpdateResource-       :<|> ProvisioningCreateAccountTreeResource-       :<|> ProvisioningCreateAccountTicketResource-       :<|> MetadataColumnsListResource
− gen/Network/Google/Analytics/Types.hs 
@@ -1,1185 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Analytics.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.Analytics.Types-    (-    -- * Service Configuration-      analyticsService--    -- * OAuth Scopes-    , analyticsManageUsersScope-    , analyticsProvisionScope-    , analyticsManageUsersReadOnlyScope-    , analyticsScope-    , analyticsReadOnlyScope-    , analyticsUserDeletionScope-    , analyticsEditScope--    -- * UserDeletionRequest-    , UserDeletionRequest-    , userDeletionRequest-    , udrWebPropertyId-    , udrKind-    , udrId-    , udrFirebaseProjectId-    , udrDeletionRequestTime--    -- * UnSampledReports-    , UnSampledReports-    , unSampledReports-    , usrNextLink-    , usrItemsPerPage-    , usrKind-    , usrUsername-    , usrItems-    , usrTotalResults-    , usrStartIndex-    , usrPreviousLink--    -- * GoalURLDestinationDetailsStepsItem-    , GoalURLDestinationDetailsStepsItem-    , goalURLDestinationDetailsStepsItem-    , guddsiURL-    , guddsiName-    , guddsiNumber--    -- * GaDataQuery-    , GaDataQuery-    , gaDataQuery-    , gdqMetrics-    , gdqSamplingLevel-    , gdqFilters-    , gdqIds-    , gdqEndDate-    , gdqSort-    , gdqDimensions-    , gdqStartIndex-    , gdqMaxResults-    , gdqSegment-    , gdqStartDate--    -- * RemarketingAudiences-    , RemarketingAudiences-    , remarketingAudiences-    , raNextLink-    , raItemsPerPage-    , raKind-    , raUsername-    , raItems-    , raTotalResults-    , raStartIndex-    , raPreviousLink--    -- * GaDataDataTableRowsItem-    , GaDataDataTableRowsItem-    , gaDataDataTableRowsItem-    , gddtriC--    -- * UnSampledReport-    , UnSampledReport-    , unSampledReport-    , uDownloadType-    , uStatus-    , uMetrics-    , uDriveDownloadDetails-    , uWebPropertyId-    , uKind-    , uCreated-    , uFilters-    , uProFileId-    , uEndDate-    , uSelfLink-    , uAccountId-    , uId-    , uUpdated-    , uTitle-    , uDimensions-    , uSegment-    , uCloudStorageDownloadDetails-    , uStartDate--    -- * McfDataColumnHeadersItem-    , McfDataColumnHeadersItem-    , mcfDataColumnHeadersItem-    , mdchiColumnType-    , mdchiName-    , mdchiDataType--    -- * GaDataTotalsForAllResults-    , GaDataTotalsForAllResults-    , gaDataTotalsForAllResults-    , gdtfarAddtional--    -- * ProFileParentLink-    , ProFileParentLink-    , proFileParentLink-    , pfplHref-    , pfplType--    -- * RemarketingAudience-    , RemarketingAudience-    , remarketingAudience-    , rWebPropertyId-    , rKind-    , rCreated-    , rLinkedAdAccounts-    , rAudienceDefinition-    , rAudienceType-    , rAccountId-    , rName-    , rStateBasedAudienceDefinition-    , rLinkedViews-    , rInternalWebPropertyId-    , rId-    , rUpdated-    , rDescription--    -- * GaDataDataTableRowsItemCItem-    , GaDataDataTableRowsItemCItem-    , gaDataDataTableRowsItemCItem-    , gddtriciV--    -- * EntityUserLinkPermissions-    , EntityUserLinkPermissions-    , entityUserLinkPermissions-    , eulpLocal-    , eulpEffective--    -- * RealtimeDataProFileInfo-    , RealtimeDataProFileInfo-    , realtimeDataProFileInfo-    , rdpfiWebPropertyId-    , rdpfiProFileId-    , rdpfiProFileName-    , rdpfiAccountId-    , rdpfiInternalWebPropertyId-    , rdpfiTableId--    -- * McfDataRowsItemItemConversionPathValueItem-    , McfDataRowsItemItemConversionPathValueItem-    , mcfDataRowsItemItemConversionPathValueItem-    , mdriicpviInteractionType-    , mdriicpviNodeValue--    -- * FilterExpression-    , FilterExpression-    , filterExpression-    , feFieldIndex-    , feField-    , feKind-    , feMatchType-    , feCaseSensitive-    , feExpressionValue--    -- * ProFileRef-    , ProFileRef-    , proFileRef-    , pfrWebPropertyId-    , pfrKind-    , pfrHref-    , pfrAccountId-    , pfrName-    , pfrInternalWebPropertyId-    , pfrId--    -- * Accounts-    , Accounts-    , accounts-    , aNextLink-    , aItemsPerPage-    , aKind-    , aUsername-    , aItems-    , aTotalResults-    , aStartIndex-    , aPreviousLink--    -- * Experiments-    , Experiments-    , experiments-    , eNextLink-    , eItemsPerPage-    , eKind-    , eUsername-    , eItems-    , eTotalResults-    , eStartIndex-    , ePreviousLink--    -- * ExperimentParentLink-    , ExperimentParentLink-    , experimentParentLink-    , eplHref-    , eplType--    -- * UnSampledReportDriveDownloadDetails-    , UnSampledReportDriveDownloadDetails-    , unSampledReportDriveDownloadDetails-    , usrdddDocumentId--    -- * McfDataProFileInfo-    , McfDataProFileInfo-    , mcfDataProFileInfo-    , mdpfiWebPropertyId-    , mdpfiProFileId-    , mdpfiProFileName-    , mdpfiAccountId-    , mdpfiInternalWebPropertyId-    , mdpfiTableId--    -- * CustomDataSources-    , CustomDataSources-    , customDataSources-    , cdsNextLink-    , cdsItemsPerPage-    , cdsKind-    , cdsUsername-    , cdsItems-    , cdsTotalResults-    , cdsStartIndex-    , cdsPreviousLink--    -- * WebPropertyChildLink-    , WebPropertyChildLink-    , webPropertyChildLink-    , wpclHref-    , wpclType--    -- * DataGaGetSamplingLevel-    , DataGaGetSamplingLevel (..)--    -- * HashClientIdResponse-    , HashClientIdResponse-    , hashClientIdResponse-    , hcirClientId-    , hcirWebPropertyId-    , hcirKind-    , hcirHashedClientId--    -- * McfData-    , McfData-    , mcfData-    , mdNextLink-    , mdSampleSpace-    , mdItemsPerPage-    , mdProFileInfo-    , mdKind-    , mdSampleSize-    , mdRows-    , mdSelfLink-    , mdQuery-    , mdColumnHeaders-    , mdId-    , mdTotalResults-    , mdContainsSampledData-    , mdTotalsForAllResults-    , mdPreviousLink--    -- * UserRef-    , UserRef-    , userRef-    , urEmail-    , urKind-    , urId--    -- * GoalVisitNumPagesDetails-    , GoalVisitNumPagesDetails-    , goalVisitNumPagesDetails-    , gvnpdComparisonValue-    , gvnpdComparisonType--    -- * RealtimeDataColumnHeadersItem-    , RealtimeDataColumnHeadersItem-    , realtimeDataColumnHeadersItem-    , rdchiColumnType-    , rdchiName-    , rdchiDataType--    -- * AccountRef-    , AccountRef-    , accountRef-    , arKind-    , arHref-    , arName-    , arId--    -- * EntityAdWordsLinks-    , EntityAdWordsLinks-    , entityAdWordsLinks-    , eawlNextLink-    , eawlItemsPerPage-    , eawlKind-    , eawlItems-    , eawlTotalResults-    , eawlStartIndex-    , eawlPreviousLink--    -- * ProFiles-    , ProFiles-    , proFiles-    , pfNextLink-    , pfItemsPerPage-    , pfKind-    , pfUsername-    , pfItems-    , pfTotalResults-    , pfStartIndex-    , pfPreviousLink--    -- * AnalyticsDataimportDeleteUploadDataRequest-    , AnalyticsDataimportDeleteUploadDataRequest-    , analyticsDataimportDeleteUploadDataRequest-    , addudrCustomDataImportUids--    -- * EntityAdWordsLink-    , EntityAdWordsLink-    , entityAdWordsLink-    , entAdWordsAccounts-    , entProFileIds-    , entKind-    , entSelfLink-    , entName-    , entId-    , entEntity--    -- * FilterSearchAndReplaceDetails-    , FilterSearchAndReplaceDetails-    , filterSearchAndReplaceDetails-    , fsardFieldIndex-    , fsardField-    , fsardSearchString-    , fsardReplaceString-    , fsardCaseSensitive--    -- * ProFilePermissions-    , ProFilePermissions-    , proFilePermissions-    , pfpEffective--    -- * ProFile-    , ProFile-    , proFile-    , pParentLink-    , pECommerceTracking-    , pSiteSearchCategoryParameters-    , pWebPropertyId-    , pChildLink-    , pSiteSearchQueryParameters-    , pKind-    , pDefaultPage-    , pCreated-    , pSelfLink-    , pAccountId-    , pBotFilteringEnabled-    , pName-    , pCurrency-    , pStarred-    , pInternalWebPropertyId-    , pId-    , pUpdated-    , pPermissions-    , pWebsiteURL-    , pType-    , pStripSiteSearchCategoryParameters-    , pTimezone-    , pExcludeQueryParameters-    , pEnhancedECommerceTracking-    , pStripSiteSearchQueryParameters--    -- * AccountSummaries-    , AccountSummaries-    , accountSummaries-    , asNextLink-    , asItemsPerPage-    , asKind-    , asUsername-    , asItems-    , asTotalResults-    , asStartIndex-    , asPreviousLink--    -- * GoalEventDetails-    , GoalEventDetails-    , goalEventDetails-    , gedUseEventValue-    , gedEventConditions--    -- * WebPropertySummary-    , WebPropertySummary-    , webPropertySummary-    , wpsKind-    , wpsProFiles-    , wpsName-    , wpsStarred-    , wpsInternalWebPropertyId-    , wpsId-    , wpsWebsiteURL-    , wpsLevel--    -- * Filters-    , Filters-    , filters-    , fNextLink-    , fItemsPerPage-    , fKind-    , fUsername-    , fItems-    , fTotalResults-    , fStartIndex-    , fPreviousLink--    -- * GaData-    , GaData-    , gaData-    , gdNextLink-    , gdSampleSpace-    , gdItemsPerPage-    , gdProFileInfo-    , gdKind-    , gdSampleSize-    , gdRows-    , gdSelfLink-    , gdQuery-    , gdColumnHeaders-    , gdId-    , gdTotalResults-    , gdDataLastRefreshed-    , gdDataTable-    , gdContainsSampledData-    , gdTotalsForAllResults-    , gdPreviousLink--    -- * RealtimeDataTotalsForAllResults-    , RealtimeDataTotalsForAllResults-    , realtimeDataTotalsForAllResults-    , rdtfarAddtional--    -- * CustomDataSource-    , CustomDataSource-    , customDataSource-    , cParentLink-    , cWebPropertyId-    , cChildLink-    , cKind-    , cCreated-    , cUploadType-    , cSchema-    , cImportBehavior-    , cSelfLink-    , cAccountId-    , cName-    , cId-    , cUpdated-    , cType-    , cDescription-    , cProFilesLinked--    -- * AccountTreeRequest-    , AccountTreeRequest-    , accountTreeRequest-    , atrWebPropertyName-    , atrKind-    , atrAccountName-    , atrProFileName-    , atrWebsiteURL-    , atrTimezone--    -- * WebPropertyRef-    , WebPropertyRef-    , webPropertyRef-    , wprKind-    , wprHref-    , wprAccountId-    , wprName-    , wprInternalWebPropertyId-    , wprId--    -- * LinkedForeignAccount-    , LinkedForeignAccount-    , linkedForeignAccount-    , lfaStatus-    , lfaWebPropertyId-    , lfaKind-    , lfaEligibleForSearch-    , lfaAccountId-    , lfaRemarketingAudienceId-    , lfaLinkedAccountId-    , lfaInternalWebPropertyId-    , lfaId-    , lfaType--    -- * Goals-    , Goals-    , goals-    , gNextLink-    , gItemsPerPage-    , gKind-    , gUsername-    , gItems-    , gTotalResults-    , gStartIndex-    , gPreviousLink--    -- * McfDataRowsItemItem-    , McfDataRowsItemItem-    , mcfDataRowsItemItem-    , mdriiPrimitiveValue-    , mdriiConversionPathValue--    -- * AccountPermissions-    , AccountPermissions-    , accountPermissions-    , apEffective--    -- * EntityUserLinkEntity-    , EntityUserLinkEntity-    , entityUserLinkEntity-    , euleProFileRef-    , euleAccountRef-    , euleWebPropertyRef--    -- * Account-    , Account-    , account-    , accChildLink-    , accKind-    , accCreated-    , accSelfLink-    , accName-    , accStarred-    , accId-    , accUpdated-    , accPermissions--    -- * Experiment-    , Experiment-    , experiment-    , expParentLink-    , expEqualWeighting-    , expStatus-    , expWebPropertyId-    , expStartTime-    , expSnippet-    , expKind-    , expCreated-    , expReasonExperimentEnded-    , expTrafficCoverage-    , expEditableInGaUi-    , expMinimumExperimentLengthInDays-    , expProFileId-    , expOptimizationType-    , expSelfLink-    , expAccountId-    , expName-    , expWinnerFound-    , expEndTime-    , expVariations-    , expInternalWebPropertyId-    , expId-    , expUpdated-    , expRewriteVariationURLsAsOriginal-    , expObjectiveMetric-    , expWinnerConfidenceLevel-    , expServingFramework-    , expDescription--    -- * EntityUserLinks-    , EntityUserLinks-    , entityUserLinks-    , eulNextLink-    , eulItemsPerPage-    , eulKind-    , eulItems-    , eulTotalResults-    , eulStartIndex-    , eulPreviousLink--    -- * AdWordsAccount-    , AdWordsAccount-    , adWordsAccount-    , awaAutoTaggingEnabled-    , awaKind-    , awaCustomerId--    -- * FilterRef-    , FilterRef-    , filterRef-    , frKind-    , frHref-    , frAccountId-    , frName-    , frId--    -- * GoalVisitTimeOnSiteDetails-    , GoalVisitTimeOnSiteDetails-    , goalVisitTimeOnSiteDetails-    , gvtosdComparisonValue-    , gvtosdComparisonType--    -- * WebProperties-    , WebProperties-    , webProperties-    , wpNextLink-    , wpItemsPerPage-    , wpKind-    , wpUsername-    , wpItems-    , wpTotalResults-    , wpStartIndex-    , wpPreviousLink--    -- * CustomMetrics-    , CustomMetrics-    , customMetrics-    , cmNextLink-    , cmItemsPerPage-    , cmKind-    , cmUsername-    , cmItems-    , cmTotalResults-    , cmStartIndex-    , cmPreviousLink--    -- * FilterAdvancedDetails-    , FilterAdvancedDetails-    , filterAdvancedDetails-    , fadExtractA-    , fadFieldARequired-    , fadFieldA-    , fadFieldBIndex-    , fadOutputToField-    , fadOutputConstructor-    , fadExtractB-    , fadFieldAIndex-    , fadCaseSensitive-    , fadOutputToFieldIndex-    , fadFieldB-    , fadFieldBRequired-    , fadOverrideOutputField--    -- * AccountTreeResponse-    , AccountTreeResponse-    , accountTreeResponse-    , atrtKind-    , atrtProFile-    , atrtAccount-    , atrtWebProperty--    -- * FilterUppercaseDetails-    , FilterUppercaseDetails-    , filterUppercaseDetails-    , fudFieldIndex-    , fudField--    -- * CustomDataSourceChildLink-    , CustomDataSourceChildLink-    , customDataSourceChildLink-    , cdsclHref-    , cdsclType--    -- * IncludeConditions-    , IncludeConditions-    , includeConditions-    , icKind-    , icDaysToLookBack-    , icMembershipDurationDays-    , icSegment-    , icIsSmartList--    -- * FilterParentLink-    , FilterParentLink-    , filterParentLink-    , fplHref-    , fplType--    -- * DataGaGetOutput-    , DataGaGetOutput (..)--    -- * HashClientIdRequest-    , HashClientIdRequest-    , hashClientIdRequest-    , hClientId-    , hWebPropertyId-    , hKind--    -- * RealtimeData-    , RealtimeData-    , realtimeData-    , rdProFileInfo-    , rdKind-    , rdRows-    , rdSelfLink-    , rdQuery-    , rdColumnHeaders-    , rdId-    , rdTotalResults-    , rdTotalsForAllResults--    -- * CustomMetric-    , CustomMetric-    , customMetric-    , cusParentLink-    , cusWebPropertyId-    , cusKind-    , cusMaxValue-    , cusCreated-    , cusMinValue-    , cusActive-    , cusSelfLink-    , cusAccountId-    , cusName-    , cusScope-    , cusId-    , cusUpdated-    , cusType-    , cusIndex--    -- * ProFileSummary-    , ProFileSummary-    , proFileSummary-    , pfsKind-    , pfsName-    , pfsStarred-    , pfsId-    , pfsType--    -- * CustomDimensionParentLink-    , CustomDimensionParentLink-    , customDimensionParentLink-    , cdplHref-    , cdplType--    -- * WebProperty-    , WebProperty-    , webProperty-    , wParentLink-    , wChildLink-    , wDefaultProFileId-    , wKind-    , wCreated-    , wDataRetentionTtl-    , wDataRetentionResetOnNewActivity-    , wSelfLink-    , wAccountId-    , wName-    , wStarred-    , wInternalWebPropertyId-    , wId-    , wUpdated-    , wProFileCount-    , wPermissions-    , wWebsiteURL-    , wIndustryVertical-    , wLevel--    -- * WebPropertyPermissions-    , WebPropertyPermissions-    , webPropertyPermissions-    , wppEffective--    -- * EntityUserLink-    , EntityUserLink-    , entityUserLink-    , euluKind-    , euluUserRef-    , euluSelfLink-    , euluId-    , euluPermissions-    , euluEntity--    -- * CustomDataSourceParentLink-    , CustomDataSourceParentLink-    , customDataSourceParentLink-    , cdsplHref-    , cdsplType--    -- * GoalEventDetailsEventConditionsItem-    , GoalEventDetailsEventConditionsItem-    , goalEventDetailsEventConditionsItem-    , gedeciMatchType-    , gedeciExpression-    , gedeciComparisonValue-    , gedeciType-    , gedeciComparisonType--    -- * McfDataQuery-    , McfDataQuery-    , mcfDataQuery-    , mdqMetrics-    , mdqSamplingLevel-    , mdqFilters-    , mdqIds-    , mdqEndDate-    , mdqSort-    , mdqDimensions-    , mdqStartIndex-    , mdqMaxResults-    , mdqSegment-    , mdqStartDate--    -- * Goal-    , Goal-    , goal-    , goaParentLink-    , goaWebPropertyId-    , goaKind-    , goaCreated-    , goaValue-    , goaProFileId-    , goaEventDetails-    , goaActive-    , goaSelfLink-    , goaVisitTimeOnSiteDetails-    , goaAccountId-    , goaName-    , goaInternalWebPropertyId-    , goaId-    , goaURLDestinationDetails-    , goaVisitNumPagesDetails-    , goaUpdated-    , goaType--    -- * AccountTicket-    , AccountTicket-    , accountTicket-    , atRedirectURI-    , atKind-    , atProFile-    , atAccount-    , atWebProperty-    , atId--    -- * AccountSummary-    , AccountSummary-    , accountSummary-    , assKind-    , assWebProperties-    , assName-    , assStarred-    , assId--    -- * RealtimeDataQuery-    , RealtimeDataQuery-    , realtimeDataQuery-    , rdqMetrics-    , rdqFilters-    , rdqIds-    , rdqSort-    , rdqDimensions-    , rdqMaxResults--    -- * Columns-    , Columns-    , columns-    , colEtag-    , colKind-    , colItems-    , colTotalResults-    , colAttributeNames--    -- * FilterLowercaseDetails-    , FilterLowercaseDetails-    , filterLowercaseDetails-    , fldFieldIndex-    , fldField--    -- * Filter-    , Filter-    , filter'-    , filParentLink-    , filAdvancedDetails-    , filUppercaseDetails-    , filLowercaseDetails-    , filKind-    , filCreated-    , filIncludeDetails-    , filExcludeDetails-    , filSelfLink-    , filAccountId-    , filName-    , filId-    , filUpdated-    , filType-    , filSearchAndReplaceDetails--    -- * Uploads-    , Uploads-    , uploads-    , uplNextLink-    , uplItemsPerPage-    , uplKind-    , uplItems-    , uplTotalResults-    , uplStartIndex-    , uplPreviousLink--    -- * CustomDimensions-    , CustomDimensions-    , customDimensions-    , cdNextLink-    , cdItemsPerPage-    , cdKind-    , cdUsername-    , cdItems-    , cdTotalResults-    , cdStartIndex-    , cdPreviousLink--    -- * Segments-    , Segments-    , segments-    , sNextLink-    , sItemsPerPage-    , sKind-    , sUsername-    , sItems-    , sTotalResults-    , sStartIndex-    , sPreviousLink--    -- * GaDataDataTable-    , GaDataDataTable-    , gaDataDataTable-    , gddtCols-    , gddtRows--    -- * EntityAdWordsLinkEntity-    , EntityAdWordsLinkEntity-    , entityAdWordsLinkEntity-    , eawleWebPropertyRef--    -- * RemarketingAudienceStateBasedAudienceDefinition-    , RemarketingAudienceStateBasedAudienceDefinition-    , remarketingAudienceStateBasedAudienceDefinition-    , rasbadExcludeConditions-    , rasbadIncludeConditions--    -- * GoalURLDestinationDetails-    , GoalURLDestinationDetails-    , goalURLDestinationDetails-    , guddURL-    , guddMatchType-    , guddSteps-    , guddCaseSensitive-    , guddFirstStepRequired--    -- * ProFileFilterLinks-    , ProFileFilterLinks-    , proFileFilterLinks-    , pfflNextLink-    , pfflItemsPerPage-    , pfflKind-    , pfflUsername-    , pfflItems-    , pfflTotalResults-    , pfflStartIndex-    , pfflPreviousLink--    -- * WebPropertyParentLink-    , WebPropertyParentLink-    , webPropertyParentLink-    , wpplHref-    , wpplType--    -- * GaDataProFileInfo-    , GaDataProFileInfo-    , gaDataProFileInfo-    , gdpfiWebPropertyId-    , gdpfiProFileId-    , gdpfiProFileName-    , gdpfiAccountId-    , gdpfiInternalWebPropertyId-    , gdpfiTableId--    -- * Upload-    , Upload-    , upload-    , uuStatus-    , uuKind-    , uuCustomDataSourceId-    , uuUploadTime-    , uuAccountId-    , uuId-    , uuErrors--    -- * DataMcfGetSamplingLevel-    , DataMcfGetSamplingLevel (..)--    -- * CustomDimension-    , CustomDimension-    , customDimension-    , cddParentLink-    , cddWebPropertyId-    , cddKind-    , cddCreated-    , cddActive-    , cddSelfLink-    , cddAccountId-    , cddName-    , cddScope-    , cddId-    , cddUpdated-    , cddIndex--    -- * Segment-    , Segment-    , segment-    , segDefinition-    , segKind-    , segCreated-    , segSelfLink-    , segName-    , segId-    , segUpdated-    , segType-    , segSegmentId--    -- * AccountChildLink-    , AccountChildLink-    , accountChildLink-    , aclHref-    , aclType--    -- * ProFileFilterLink-    , ProFileFilterLink-    , proFileFilterLink-    , proProFileRef-    , proKind-    , proFilterRef-    , proSelfLink-    , proId-    , proRank--    -- * CustomMetricParentLink-    , CustomMetricParentLink-    , customMetricParentLink-    , cmplHref-    , cmplType--    -- * Column-    , Column-    , column-    , ccKind-    , ccAttributes-    , ccId--    -- * RemarketingAudienceAudienceDefinition-    , RemarketingAudienceAudienceDefinition-    , remarketingAudienceAudienceDefinition-    , raadIncludeConditions--    -- * GaDataDataTableColsItem-    , GaDataDataTableColsItem-    , gaDataDataTableColsItem-    , gddtciId-    , gddtciType-    , gddtciLabel--    -- * ExperimentVariationsItem-    , ExperimentVariationsItem-    , experimentVariationsItem-    , eviStatus-    , eviWeight-    , eviURL-    , eviWon-    , eviName--    -- * RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , remarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    , rasbadecExclusionDuration-    , rasbadecSegment--    -- * McfDataTotalsForAllResults-    , McfDataTotalsForAllResults-    , mcfDataTotalsForAllResults-    , mdtfarAddtional--    -- * UserDeletionRequestId-    , UserDeletionRequestId-    , userDeletionRequestId-    , udriUserId-    , udriType--    -- * UnSampledReportCloudStorageDownloadDetails-    , UnSampledReportCloudStorageDownloadDetails-    , unSampledReportCloudStorageDownloadDetails-    , usrcsddObjectId-    , usrcsddBucketId--    -- * ProFileChildLink-    , ProFileChildLink-    , proFileChildLink-    , pfclHref-    , pfclType--    -- * GaDataColumnHeadersItem-    , GaDataColumnHeadersItem-    , gaDataColumnHeadersItem-    , gdchiColumnType-    , gdchiName-    , gdchiDataType--    -- * GoalParentLink-    , GoalParentLink-    , goalParentLink-    , gplHref-    , gplType--    -- * ColumnAttributes-    , ColumnAttributes-    , columnAttributes-    , caAddtional-    ) where--import           Network.Google.Analytics.Types.Product-import           Network.Google.Analytics.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v3' of the Google Analytics API. This contains the host and root path used as a starting point for constructing service requests.-analyticsService :: ServiceConfig-analyticsService-  = defaultService (ServiceId "analytics:v3")-      "www.googleapis.com"---- | Manage Google Analytics Account users by email address-analyticsManageUsersScope :: Proxy '["https://www.googleapis.com/auth/analytics.manage.users"]-analyticsManageUsersScope = Proxy---- | Create a new Google Analytics account along with its default property--- and view-analyticsProvisionScope :: Proxy '["https://www.googleapis.com/auth/analytics.provision"]-analyticsProvisionScope = Proxy---- | View Google Analytics user permissions-analyticsManageUsersReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/analytics.manage.users.readonly"]-analyticsManageUsersReadOnlyScope = Proxy---- | View and manage your Google Analytics data-analyticsScope :: Proxy '["https://www.googleapis.com/auth/analytics"]-analyticsScope = Proxy---- | View your Google Analytics data-analyticsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/analytics.readonly"]-analyticsReadOnlyScope = Proxy---- | Manage Google Analytics user deletion requests-analyticsUserDeletionScope :: Proxy '["https://www.googleapis.com/auth/analytics.user.deletion"]-analyticsUserDeletionScope = Proxy---- | Edit Google Analytics management entities-analyticsEditScope :: Proxy '["https://www.googleapis.com/auth/analytics.edit"]-analyticsEditScope = Proxy
− gen/Network/Google/Analytics/Types/Product.hs 
@@ -1,11153 +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.Analytics.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.Analytics.Types.Product where--import           Network.Google.Analytics.Types.Sum-import           Network.Google.Prelude---- | JSON template for a user deletion request resource.------ /See:/ 'userDeletionRequest' smart constructor.-data UserDeletionRequest =-  UserDeletionRequest'-    { _udrWebPropertyId       :: !(Maybe Text)-    , _udrKind                :: !Text-    , _udrId                  :: !(Maybe UserDeletionRequestId)-    , _udrFirebaseProjectId   :: !(Maybe Text)-    , _udrDeletionRequestTime :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserDeletionRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udrWebPropertyId'------ * 'udrKind'------ * 'udrId'------ * 'udrFirebaseProjectId'------ * 'udrDeletionRequestTime'-userDeletionRequest-    :: UserDeletionRequest-userDeletionRequest =-  UserDeletionRequest'-    { _udrWebPropertyId = Nothing-    , _udrKind = "analytics#userDeletionRequest"-    , _udrId = Nothing-    , _udrFirebaseProjectId = Nothing-    , _udrDeletionRequestTime = Nothing-    }----- | Web property ID of the form UA-XXXXX-YY.-udrWebPropertyId :: Lens' UserDeletionRequest (Maybe Text)-udrWebPropertyId-  = lens _udrWebPropertyId-      (\ s a -> s{_udrWebPropertyId = a})---- | Value is \"analytics#userDeletionRequest\".-udrKind :: Lens' UserDeletionRequest Text-udrKind = lens _udrKind (\ s a -> s{_udrKind = a})---- | User ID.-udrId :: Lens' UserDeletionRequest (Maybe UserDeletionRequestId)-udrId = lens _udrId (\ s a -> s{_udrId = a})---- | Firebase Project Id-udrFirebaseProjectId :: Lens' UserDeletionRequest (Maybe Text)-udrFirebaseProjectId-  = lens _udrFirebaseProjectId-      (\ s a -> s{_udrFirebaseProjectId = a})---- | This marks the point in time for which all user data before should be--- deleted-udrDeletionRequestTime :: Lens' UserDeletionRequest (Maybe UTCTime)-udrDeletionRequestTime-  = lens _udrDeletionRequestTime-      (\ s a -> s{_udrDeletionRequestTime = a})-      . mapping _DateTime--instance FromJSON UserDeletionRequest where-        parseJSON-          = withObject "UserDeletionRequest"-              (\ o ->-                 UserDeletionRequest' <$>-                   (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#userDeletionRequest")-                     <*> (o .:? "id")-                     <*> (o .:? "firebaseProjectId")-                     <*> (o .:? "deletionRequestTime"))--instance ToJSON UserDeletionRequest where-        toJSON UserDeletionRequest'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _udrWebPropertyId,-                  Just ("kind" .= _udrKind), ("id" .=) <$> _udrId,-                  ("firebaseProjectId" .=) <$> _udrFirebaseProjectId,-                  ("deletionRequestTime" .=) <$>-                    _udrDeletionRequestTime])---- | An unsampled report collection lists Analytics unsampled reports to--- which the user has access. Each view (profile) can have a set of--- unsampled reports. Each resource in the unsampled report collection--- corresponds to a single Analytics unsampled report.------ /See:/ 'unSampledReports' smart constructor.-data UnSampledReports =-  UnSampledReports'-    { _usrNextLink     :: !(Maybe Text)-    , _usrItemsPerPage :: !(Maybe (Textual Int32))-    , _usrKind         :: !Text-    , _usrUsername     :: !(Maybe Text)-    , _usrItems        :: !(Maybe [UnSampledReport])-    , _usrTotalResults :: !(Maybe (Textual Int32))-    , _usrStartIndex   :: !(Maybe (Textual Int32))-    , _usrPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UnSampledReports' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usrNextLink'------ * 'usrItemsPerPage'------ * 'usrKind'------ * 'usrUsername'------ * 'usrItems'------ * 'usrTotalResults'------ * 'usrStartIndex'------ * 'usrPreviousLink'-unSampledReports-    :: UnSampledReports-unSampledReports =-  UnSampledReports'-    { _usrNextLink = Nothing-    , _usrItemsPerPage = Nothing-    , _usrKind = "analytics#unsampledReports"-    , _usrUsername = Nothing-    , _usrItems = Nothing-    , _usrTotalResults = Nothing-    , _usrStartIndex = Nothing-    , _usrPreviousLink = Nothing-    }----- | Link to next page for this unsampled report collection.-usrNextLink :: Lens' UnSampledReports (Maybe Text)-usrNextLink-  = lens _usrNextLink (\ s a -> s{_usrNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-usrItemsPerPage :: Lens' UnSampledReports (Maybe Int32)-usrItemsPerPage-  = lens _usrItemsPerPage-      (\ s a -> s{_usrItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-usrKind :: Lens' UnSampledReports Text-usrKind = lens _usrKind (\ s a -> s{_usrKind = a})---- | Email ID of the authenticated user-usrUsername :: Lens' UnSampledReports (Maybe Text)-usrUsername-  = lens _usrUsername (\ s a -> s{_usrUsername = a})---- | A list of unsampled reports.-usrItems :: Lens' UnSampledReports [UnSampledReport]-usrItems-  = lens _usrItems (\ s a -> s{_usrItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- resources in the result.-usrTotalResults :: Lens' UnSampledReports (Maybe Int32)-usrTotalResults-  = lens _usrTotalResults-      (\ s a -> s{_usrTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-usrStartIndex :: Lens' UnSampledReports (Maybe Int32)-usrStartIndex-  = lens _usrStartIndex-      (\ s a -> s{_usrStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this unsampled report collection.-usrPreviousLink :: Lens' UnSampledReports (Maybe Text)-usrPreviousLink-  = lens _usrPreviousLink-      (\ s a -> s{_usrPreviousLink = a})--instance FromJSON UnSampledReports where-        parseJSON-          = withObject "UnSampledReports"-              (\ o ->-                 UnSampledReports' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#unsampledReports")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON UnSampledReports where-        toJSON UnSampledReports'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _usrNextLink,-                  ("itemsPerPage" .=) <$> _usrItemsPerPage,-                  Just ("kind" .= _usrKind),-                  ("username" .=) <$> _usrUsername,-                  ("items" .=) <$> _usrItems,-                  ("totalResults" .=) <$> _usrTotalResults,-                  ("startIndex" .=) <$> _usrStartIndex,-                  ("previousLink" .=) <$> _usrPreviousLink])------- /See:/ 'goalURLDestinationDetailsStepsItem' smart constructor.-data GoalURLDestinationDetailsStepsItem =-  GoalURLDestinationDetailsStepsItem'-    { _guddsiURL    :: !(Maybe Text)-    , _guddsiName   :: !(Maybe Text)-    , _guddsiNumber :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalURLDestinationDetailsStepsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'guddsiURL'------ * 'guddsiName'------ * 'guddsiNumber'-goalURLDestinationDetailsStepsItem-    :: GoalURLDestinationDetailsStepsItem-goalURLDestinationDetailsStepsItem =-  GoalURLDestinationDetailsStepsItem'-    {_guddsiURL = Nothing, _guddsiName = Nothing, _guddsiNumber = Nothing}----- | URL for this step.-guddsiURL :: Lens' GoalURLDestinationDetailsStepsItem (Maybe Text)-guddsiURL-  = lens _guddsiURL (\ s a -> s{_guddsiURL = a})---- | Step name.-guddsiName :: Lens' GoalURLDestinationDetailsStepsItem (Maybe Text)-guddsiName-  = lens _guddsiName (\ s a -> s{_guddsiName = a})---- | Step number.-guddsiNumber :: Lens' GoalURLDestinationDetailsStepsItem (Maybe Int32)-guddsiNumber-  = lens _guddsiNumber (\ s a -> s{_guddsiNumber = a})-      . mapping _Coerce--instance FromJSON GoalURLDestinationDetailsStepsItem-         where-        parseJSON-          = withObject "GoalURLDestinationDetailsStepsItem"-              (\ o ->-                 GoalURLDestinationDetailsStepsItem' <$>-                   (o .:? "url") <*> (o .:? "name") <*>-                     (o .:? "number"))--instance ToJSON GoalURLDestinationDetailsStepsItem-         where-        toJSON GoalURLDestinationDetailsStepsItem'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _guddsiURL,-                  ("name" .=) <$> _guddsiName,-                  ("number" .=) <$> _guddsiNumber])---- | Analytics data request query parameters.------ /See:/ 'gaDataQuery' smart constructor.-data GaDataQuery =-  GaDataQuery'-    { _gdqMetrics       :: !(Maybe [Text])-    , _gdqSamplingLevel :: !(Maybe Text)-    , _gdqFilters       :: !(Maybe Text)-    , _gdqIds           :: !(Maybe Text)-    , _gdqEndDate       :: !(Maybe Text)-    , _gdqSort          :: !(Maybe [Text])-    , _gdqDimensions    :: !(Maybe Text)-    , _gdqStartIndex    :: !(Maybe (Textual Int32))-    , _gdqMaxResults    :: !(Maybe (Textual Int32))-    , _gdqSegment       :: !(Maybe Text)-    , _gdqStartDate     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataQuery' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdqMetrics'------ * 'gdqSamplingLevel'------ * 'gdqFilters'------ * 'gdqIds'------ * 'gdqEndDate'------ * 'gdqSort'------ * 'gdqDimensions'------ * 'gdqStartIndex'------ * 'gdqMaxResults'------ * 'gdqSegment'------ * 'gdqStartDate'-gaDataQuery-    :: GaDataQuery-gaDataQuery =-  GaDataQuery'-    { _gdqMetrics = Nothing-    , _gdqSamplingLevel = Nothing-    , _gdqFilters = Nothing-    , _gdqIds = Nothing-    , _gdqEndDate = Nothing-    , _gdqSort = Nothing-    , _gdqDimensions = Nothing-    , _gdqStartIndex = Nothing-    , _gdqMaxResults = Nothing-    , _gdqSegment = Nothing-    , _gdqStartDate = Nothing-    }----- | List of analytics metrics.-gdqMetrics :: Lens' GaDataQuery [Text]-gdqMetrics-  = lens _gdqMetrics (\ s a -> s{_gdqMetrics = a}) .-      _Default-      . _Coerce---- | Desired sampling level-gdqSamplingLevel :: Lens' GaDataQuery (Maybe Text)-gdqSamplingLevel-  = lens _gdqSamplingLevel-      (\ s a -> s{_gdqSamplingLevel = a})---- | Comma-separated list of dimension or metric filters.-gdqFilters :: Lens' GaDataQuery (Maybe Text)-gdqFilters-  = lens _gdqFilters (\ s a -> s{_gdqFilters = a})---- | Unique table ID.-gdqIds :: Lens' GaDataQuery (Maybe Text)-gdqIds = lens _gdqIds (\ s a -> s{_gdqIds = a})---- | End date.-gdqEndDate :: Lens' GaDataQuery (Maybe Text)-gdqEndDate-  = lens _gdqEndDate (\ s a -> s{_gdqEndDate = a})---- | List of dimensions or metrics based on which Analytics data is sorted.-gdqSort :: Lens' GaDataQuery [Text]-gdqSort-  = lens _gdqSort (\ s a -> s{_gdqSort = a}) . _Default-      . _Coerce---- | List of analytics dimensions.-gdqDimensions :: Lens' GaDataQuery (Maybe Text)-gdqDimensions-  = lens _gdqDimensions-      (\ s a -> s{_gdqDimensions = a})---- | Start index.-gdqStartIndex :: Lens' GaDataQuery (Maybe Int32)-gdqStartIndex-  = lens _gdqStartIndex-      (\ s a -> s{_gdqStartIndex = a})-      . mapping _Coerce---- | Maximum results per page.-gdqMaxResults :: Lens' GaDataQuery (Maybe Int32)-gdqMaxResults-  = lens _gdqMaxResults-      (\ s a -> s{_gdqMaxResults = a})-      . mapping _Coerce---- | Analytics advanced segment.-gdqSegment :: Lens' GaDataQuery (Maybe Text)-gdqSegment-  = lens _gdqSegment (\ s a -> s{_gdqSegment = a})---- | Start date.-gdqStartDate :: Lens' GaDataQuery (Maybe Text)-gdqStartDate-  = lens _gdqStartDate (\ s a -> s{_gdqStartDate = a})--instance FromJSON GaDataQuery where-        parseJSON-          = withObject "GaDataQuery"-              (\ o ->-                 GaDataQuery' <$>-                   (o .:? "metrics" .!= mempty) <*>-                     (o .:? "samplingLevel")-                     <*> (o .:? "filters")-                     <*> (o .:? "ids")-                     <*> (o .:? "end-date")-                     <*> (o .:? "sort" .!= mempty)-                     <*> (o .:? "dimensions")-                     <*> (o .:? "start-index")-                     <*> (o .:? "max-results")-                     <*> (o .:? "segment")-                     <*> (o .:? "start-date"))--instance ToJSON GaDataQuery where-        toJSON GaDataQuery'{..}-          = object-              (catMaybes-                 [("metrics" .=) <$> _gdqMetrics,-                  ("samplingLevel" .=) <$> _gdqSamplingLevel,-                  ("filters" .=) <$> _gdqFilters,-                  ("ids" .=) <$> _gdqIds,-                  ("end-date" .=) <$> _gdqEndDate,-                  ("sort" .=) <$> _gdqSort,-                  ("dimensions" .=) <$> _gdqDimensions,-                  ("start-index" .=) <$> _gdqStartIndex,-                  ("max-results" .=) <$> _gdqMaxResults,-                  ("segment" .=) <$> _gdqSegment,-                  ("start-date" .=) <$> _gdqStartDate])---- | A remarketing audience collection lists Analytics remarketing audiences--- to which the user has access. Each resource in the collection--- corresponds to a single Analytics remarketing audience.------ /See:/ 'remarketingAudiences' smart constructor.-data RemarketingAudiences =-  RemarketingAudiences'-    { _raNextLink     :: !(Maybe Text)-    , _raItemsPerPage :: !(Maybe (Textual Int32))-    , _raKind         :: !Text-    , _raUsername     :: !(Maybe Text)-    , _raItems        :: !(Maybe [RemarketingAudience])-    , _raTotalResults :: !(Maybe (Textual Int32))-    , _raStartIndex   :: !(Maybe (Textual Int32))-    , _raPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RemarketingAudiences' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raNextLink'------ * 'raItemsPerPage'------ * 'raKind'------ * 'raUsername'------ * 'raItems'------ * 'raTotalResults'------ * 'raStartIndex'------ * 'raPreviousLink'-remarketingAudiences-    :: RemarketingAudiences-remarketingAudiences =-  RemarketingAudiences'-    { _raNextLink = Nothing-    , _raItemsPerPage = Nothing-    , _raKind = "analytics#remarketingAudiences"-    , _raUsername = Nothing-    , _raItems = Nothing-    , _raTotalResults = Nothing-    , _raStartIndex = Nothing-    , _raPreviousLink = Nothing-    }----- | Link to next page for this remarketing audience collection.-raNextLink :: Lens' RemarketingAudiences (Maybe Text)-raNextLink-  = lens _raNextLink (\ s a -> s{_raNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-raItemsPerPage :: Lens' RemarketingAudiences (Maybe Int32)-raItemsPerPage-  = lens _raItemsPerPage-      (\ s a -> s{_raItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-raKind :: Lens' RemarketingAudiences Text-raKind = lens _raKind (\ s a -> s{_raKind = a})---- | Email ID of the authenticated user-raUsername :: Lens' RemarketingAudiences (Maybe Text)-raUsername-  = lens _raUsername (\ s a -> s{_raUsername = a})---- | A list of remarketing audiences.-raItems :: Lens' RemarketingAudiences [RemarketingAudience]-raItems-  = lens _raItems (\ s a -> s{_raItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-raTotalResults :: Lens' RemarketingAudiences (Maybe Int32)-raTotalResults-  = lens _raTotalResults-      (\ s a -> s{_raTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-raStartIndex :: Lens' RemarketingAudiences (Maybe Int32)-raStartIndex-  = lens _raStartIndex (\ s a -> s{_raStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this view (profile) collection.-raPreviousLink :: Lens' RemarketingAudiences (Maybe Text)-raPreviousLink-  = lens _raPreviousLink-      (\ s a -> s{_raPreviousLink = a})--instance FromJSON RemarketingAudiences where-        parseJSON-          = withObject "RemarketingAudiences"-              (\ o ->-                 RemarketingAudiences' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#remarketingAudiences")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON RemarketingAudiences where-        toJSON RemarketingAudiences'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _raNextLink,-                  ("itemsPerPage" .=) <$> _raItemsPerPage,-                  Just ("kind" .= _raKind),-                  ("username" .=) <$> _raUsername,-                  ("items" .=) <$> _raItems,-                  ("totalResults" .=) <$> _raTotalResults,-                  ("startIndex" .=) <$> _raStartIndex,-                  ("previousLink" .=) <$> _raPreviousLink])------- /See:/ 'gaDataDataTableRowsItem' smart constructor.-newtype GaDataDataTableRowsItem =-  GaDataDataTableRowsItem'-    { _gddtriC :: Maybe [GaDataDataTableRowsItemCItem]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataDataTableRowsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gddtriC'-gaDataDataTableRowsItem-    :: GaDataDataTableRowsItem-gaDataDataTableRowsItem = GaDataDataTableRowsItem' {_gddtriC = Nothing}---gddtriC :: Lens' GaDataDataTableRowsItem [GaDataDataTableRowsItemCItem]-gddtriC-  = lens _gddtriC (\ s a -> s{_gddtriC = a}) . _Default-      . _Coerce--instance FromJSON GaDataDataTableRowsItem where-        parseJSON-          = withObject "GaDataDataTableRowsItem"-              (\ o ->-                 GaDataDataTableRowsItem' <$> (o .:? "c" .!= mempty))--instance ToJSON GaDataDataTableRowsItem where-        toJSON GaDataDataTableRowsItem'{..}-          = object (catMaybes [("c" .=) <$> _gddtriC])---- | JSON template for Analytics unsampled report resource.------ /See:/ 'unSampledReport' smart constructor.-data UnSampledReport =-  UnSampledReport'-    { _uDownloadType                :: !(Maybe Text)-    , _uStatus                      :: !(Maybe Text)-    , _uMetrics                     :: !(Maybe Text)-    , _uDriveDownloadDetails        :: !(Maybe UnSampledReportDriveDownloadDetails)-    , _uWebPropertyId               :: !(Maybe Text)-    , _uKind                        :: !Text-    , _uCreated                     :: !(Maybe DateTime')-    , _uFilters                     :: !(Maybe Text)-    , _uProFileId                   :: !(Maybe Text)-    , _uEndDate                     :: !(Maybe Text)-    , _uSelfLink                    :: !(Maybe Text)-    , _uAccountId                   :: !(Maybe Text)-    , _uId                          :: !(Maybe Text)-    , _uUpdated                     :: !(Maybe DateTime')-    , _uTitle                       :: !(Maybe Text)-    , _uDimensions                  :: !(Maybe Text)-    , _uSegment                     :: !(Maybe Text)-    , _uCloudStorageDownloadDetails :: !(Maybe UnSampledReportCloudStorageDownloadDetails)-    , _uStartDate                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UnSampledReport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uDownloadType'------ * 'uStatus'------ * 'uMetrics'------ * 'uDriveDownloadDetails'------ * 'uWebPropertyId'------ * 'uKind'------ * 'uCreated'------ * 'uFilters'------ * 'uProFileId'------ * 'uEndDate'------ * 'uSelfLink'------ * 'uAccountId'------ * 'uId'------ * 'uUpdated'------ * 'uTitle'------ * 'uDimensions'------ * 'uSegment'------ * 'uCloudStorageDownloadDetails'------ * 'uStartDate'-unSampledReport-    :: UnSampledReport-unSampledReport =-  UnSampledReport'-    { _uDownloadType = Nothing-    , _uStatus = Nothing-    , _uMetrics = Nothing-    , _uDriveDownloadDetails = Nothing-    , _uWebPropertyId = Nothing-    , _uKind = "analytics#unsampledReport"-    , _uCreated = Nothing-    , _uFilters = Nothing-    , _uProFileId = Nothing-    , _uEndDate = Nothing-    , _uSelfLink = Nothing-    , _uAccountId = Nothing-    , _uId = Nothing-    , _uUpdated = Nothing-    , _uTitle = Nothing-    , _uDimensions = Nothing-    , _uSegment = Nothing-    , _uCloudStorageDownloadDetails = Nothing-    , _uStartDate = Nothing-    }----- | The type of download you need to use for the report data file. Possible--- values include \`GOOGLE_DRIVE\` and \`GOOGLE_CLOUD_STORAGE\`. If the--- value is \`GOOGLE_DRIVE\`, see the \`driveDownloadDetails\` field. If--- the value is \`GOOGLE_CLOUD_STORAGE\`, see the--- \`cloudStorageDownloadDetails\` field.-uDownloadType :: Lens' UnSampledReport (Maybe Text)-uDownloadType-  = lens _uDownloadType-      (\ s a -> s{_uDownloadType = a})---- | Status of this unsampled report. Possible values are PENDING, COMPLETED,--- or FAILED.-uStatus :: Lens' UnSampledReport (Maybe Text)-uStatus = lens _uStatus (\ s a -> s{_uStatus = a})---- | The metrics for the unsampled report.-uMetrics :: Lens' UnSampledReport (Maybe Text)-uMetrics = lens _uMetrics (\ s a -> s{_uMetrics = a})---- | Download details for a file stored in Google Drive.-uDriveDownloadDetails :: Lens' UnSampledReport (Maybe UnSampledReportDriveDownloadDetails)-uDriveDownloadDetails-  = lens _uDriveDownloadDetails-      (\ s a -> s{_uDriveDownloadDetails = a})---- | Web property ID to which this unsampled report belongs. The web property--- ID is of the form UA-XXXXX-YY.-uWebPropertyId :: Lens' UnSampledReport (Maybe Text)-uWebPropertyId-  = lens _uWebPropertyId-      (\ s a -> s{_uWebPropertyId = a})---- | Resource type for an Analytics unsampled report.-uKind :: Lens' UnSampledReport Text-uKind = lens _uKind (\ s a -> s{_uKind = a})---- | Time this unsampled report was created.-uCreated :: Lens' UnSampledReport (Maybe UTCTime)-uCreated-  = lens _uCreated (\ s a -> s{_uCreated = a}) .-      mapping _DateTime---- | The filters for the unsampled report.-uFilters :: Lens' UnSampledReport (Maybe Text)-uFilters = lens _uFilters (\ s a -> s{_uFilters = a})---- | View (Profile) ID to which this unsampled report belongs.-uProFileId :: Lens' UnSampledReport (Maybe Text)-uProFileId-  = lens _uProFileId (\ s a -> s{_uProFileId = a})---- | The end date for the unsampled report.-uEndDate :: Lens' UnSampledReport (Maybe Text)-uEndDate = lens _uEndDate (\ s a -> s{_uEndDate = a})---- | Link for this unsampled report.-uSelfLink :: Lens' UnSampledReport (Maybe Text)-uSelfLink-  = lens _uSelfLink (\ s a -> s{_uSelfLink = a})---- | Account ID to which this unsampled report belongs.-uAccountId :: Lens' UnSampledReport (Maybe Text)-uAccountId-  = lens _uAccountId (\ s a -> s{_uAccountId = a})---- | Unsampled report ID.-uId :: Lens' UnSampledReport (Maybe Text)-uId = lens _uId (\ s a -> s{_uId = a})---- | Time this unsampled report was last modified.-uUpdated :: Lens' UnSampledReport (Maybe UTCTime)-uUpdated-  = lens _uUpdated (\ s a -> s{_uUpdated = a}) .-      mapping _DateTime---- | Title of the unsampled report.-uTitle :: Lens' UnSampledReport (Maybe Text)-uTitle = lens _uTitle (\ s a -> s{_uTitle = a})---- | The dimensions for the unsampled report.-uDimensions :: Lens' UnSampledReport (Maybe Text)-uDimensions-  = lens _uDimensions (\ s a -> s{_uDimensions = a})---- | The segment for the unsampled report.-uSegment :: Lens' UnSampledReport (Maybe Text)-uSegment = lens _uSegment (\ s a -> s{_uSegment = a})---- | Download details for a file stored in Google Cloud Storage.-uCloudStorageDownloadDetails :: Lens' UnSampledReport (Maybe UnSampledReportCloudStorageDownloadDetails)-uCloudStorageDownloadDetails-  = lens _uCloudStorageDownloadDetails-      (\ s a -> s{_uCloudStorageDownloadDetails = a})---- | The start date for the unsampled report.-uStartDate :: Lens' UnSampledReport (Maybe Text)-uStartDate-  = lens _uStartDate (\ s a -> s{_uStartDate = a})--instance FromJSON UnSampledReport where-        parseJSON-          = withObject "UnSampledReport"-              (\ o ->-                 UnSampledReport' <$>-                   (o .:? "downloadType") <*> (o .:? "status") <*>-                     (o .:? "metrics")-                     <*> (o .:? "driveDownloadDetails")-                     <*> (o .:? "webPropertyId")-                     <*> (o .:? "kind" .!= "analytics#unsampledReport")-                     <*> (o .:? "created")-                     <*> (o .:? "filters")-                     <*> (o .:? "profileId")-                     <*> (o .:? "end-date")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "title")-                     <*> (o .:? "dimensions")-                     <*> (o .:? "segment")-                     <*> (o .:? "cloudStorageDownloadDetails")-                     <*> (o .:? "start-date"))--instance ToJSON UnSampledReport where-        toJSON UnSampledReport'{..}-          = object-              (catMaybes-                 [("downloadType" .=) <$> _uDownloadType,-                  ("status" .=) <$> _uStatus,-                  ("metrics" .=) <$> _uMetrics,-                  ("driveDownloadDetails" .=) <$>-                    _uDriveDownloadDetails,-                  ("webPropertyId" .=) <$> _uWebPropertyId,-                  Just ("kind" .= _uKind),-                  ("created" .=) <$> _uCreated,-                  ("filters" .=) <$> _uFilters,-                  ("profileId" .=) <$> _uProFileId,-                  ("end-date" .=) <$> _uEndDate,-                  ("selfLink" .=) <$> _uSelfLink,-                  ("accountId" .=) <$> _uAccountId, ("id" .=) <$> _uId,-                  ("updated" .=) <$> _uUpdated,-                  ("title" .=) <$> _uTitle,-                  ("dimensions" .=) <$> _uDimensions,-                  ("segment" .=) <$> _uSegment,-                  ("cloudStorageDownloadDetails" .=) <$>-                    _uCloudStorageDownloadDetails,-                  ("start-date" .=) <$> _uStartDate])------- /See:/ 'mcfDataColumnHeadersItem' smart constructor.-data McfDataColumnHeadersItem =-  McfDataColumnHeadersItem'-    { _mdchiColumnType :: !(Maybe Text)-    , _mdchiName       :: !(Maybe Text)-    , _mdchiDataType   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataColumnHeadersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdchiColumnType'------ * 'mdchiName'------ * 'mdchiDataType'-mcfDataColumnHeadersItem-    :: McfDataColumnHeadersItem-mcfDataColumnHeadersItem =-  McfDataColumnHeadersItem'-    {_mdchiColumnType = Nothing, _mdchiName = Nothing, _mdchiDataType = Nothing}----- | Column Type. Either DIMENSION or METRIC.-mdchiColumnType :: Lens' McfDataColumnHeadersItem (Maybe Text)-mdchiColumnType-  = lens _mdchiColumnType-      (\ s a -> s{_mdchiColumnType = a})---- | Column name.-mdchiName :: Lens' McfDataColumnHeadersItem (Maybe Text)-mdchiName-  = lens _mdchiName (\ s a -> s{_mdchiName = a})---- | Data type. Dimension and metric values data types such as INTEGER,--- DOUBLE, CURRENCY, MCF_SEQUENCE etc.-mdchiDataType :: Lens' McfDataColumnHeadersItem (Maybe Text)-mdchiDataType-  = lens _mdchiDataType-      (\ s a -> s{_mdchiDataType = a})--instance FromJSON McfDataColumnHeadersItem where-        parseJSON-          = withObject "McfDataColumnHeadersItem"-              (\ o ->-                 McfDataColumnHeadersItem' <$>-                   (o .:? "columnType") <*> (o .:? "name") <*>-                     (o .:? "dataType"))--instance ToJSON McfDataColumnHeadersItem where-        toJSON McfDataColumnHeadersItem'{..}-          = object-              (catMaybes-                 [("columnType" .=) <$> _mdchiColumnType,-                  ("name" .=) <$> _mdchiName,-                  ("dataType" .=) <$> _mdchiDataType])---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.------ /See:/ 'gaDataTotalsForAllResults' smart constructor.-newtype GaDataTotalsForAllResults =-  GaDataTotalsForAllResults'-    { _gdtfarAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataTotalsForAllResults' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdtfarAddtional'-gaDataTotalsForAllResults-    :: HashMap Text Text -- ^ 'gdtfarAddtional'-    -> GaDataTotalsForAllResults-gaDataTotalsForAllResults pGdtfarAddtional_ =-  GaDataTotalsForAllResults' {_gdtfarAddtional = _Coerce # pGdtfarAddtional_}----- | Key-value pair for the total value of a metric. Key is the metric name--- and the value is the total value for that metric.-gdtfarAddtional :: Lens' GaDataTotalsForAllResults (HashMap Text Text)-gdtfarAddtional-  = lens _gdtfarAddtional-      (\ s a -> s{_gdtfarAddtional = a})-      . _Coerce--instance FromJSON GaDataTotalsForAllResults where-        parseJSON-          = withObject "GaDataTotalsForAllResults"-              (\ o ->-                 GaDataTotalsForAllResults' <$> (parseJSONObject o))--instance ToJSON GaDataTotalsForAllResults where-        toJSON = toJSON . _gdtfarAddtional---- | Parent link for this view (profile). Points to the web property to which--- this view (profile) belongs.------ /See:/ 'proFileParentLink' smart constructor.-data ProFileParentLink =-  ProFileParentLink'-    { _pfplHref :: !(Maybe Text)-    , _pfplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfplHref'------ * 'pfplType'-proFileParentLink-    :: ProFileParentLink-proFileParentLink =-  ProFileParentLink' {_pfplHref = Nothing, _pfplType = "analytics#webproperty"}----- | Link to the web property to which this view (profile) belongs.-pfplHref :: Lens' ProFileParentLink (Maybe Text)-pfplHref = lens _pfplHref (\ s a -> s{_pfplHref = a})---- | Value is \"analytics#webproperty\".-pfplType :: Lens' ProFileParentLink Text-pfplType = lens _pfplType (\ s a -> s{_pfplType = a})--instance FromJSON ProFileParentLink where-        parseJSON-          = withObject "ProFileParentLink"-              (\ o ->-                 ProFileParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#webproperty"))--instance ToJSON ProFileParentLink where-        toJSON ProFileParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _pfplHref,-                  Just ("type" .= _pfplType)])---- | JSON template for an Analytics remarketing audience.------ /See:/ 'remarketingAudience' smart constructor.-data RemarketingAudience =-  RemarketingAudience'-    { _rWebPropertyId                :: !(Maybe Text)-    , _rKind                         :: !Text-    , _rCreated                      :: !(Maybe DateTime')-    , _rLinkedAdAccounts             :: !(Maybe [LinkedForeignAccount])-    , _rAudienceDefinition           :: !(Maybe RemarketingAudienceAudienceDefinition)-    , _rAudienceType                 :: !(Maybe Text)-    , _rAccountId                    :: !(Maybe Text)-    , _rName                         :: !(Maybe Text)-    , _rStateBasedAudienceDefinition :: !(Maybe RemarketingAudienceStateBasedAudienceDefinition)-    , _rLinkedViews                  :: !(Maybe [Text])-    , _rInternalWebPropertyId        :: !(Maybe Text)-    , _rId                           :: !(Maybe Text)-    , _rUpdated                      :: !(Maybe DateTime')-    , _rDescription                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RemarketingAudience' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rWebPropertyId'------ * 'rKind'------ * 'rCreated'------ * 'rLinkedAdAccounts'------ * 'rAudienceDefinition'------ * 'rAudienceType'------ * 'rAccountId'------ * 'rName'------ * 'rStateBasedAudienceDefinition'------ * 'rLinkedViews'------ * 'rInternalWebPropertyId'------ * 'rId'------ * 'rUpdated'------ * 'rDescription'-remarketingAudience-    :: RemarketingAudience-remarketingAudience =-  RemarketingAudience'-    { _rWebPropertyId = Nothing-    , _rKind = "analytics#remarketingAudience"-    , _rCreated = Nothing-    , _rLinkedAdAccounts = Nothing-    , _rAudienceDefinition = Nothing-    , _rAudienceType = Nothing-    , _rAccountId = Nothing-    , _rName = Nothing-    , _rStateBasedAudienceDefinition = Nothing-    , _rLinkedViews = Nothing-    , _rInternalWebPropertyId = Nothing-    , _rId = Nothing-    , _rUpdated = Nothing-    , _rDescription = Nothing-    }----- | Web property ID of the form UA-XXXXX-YY to which this remarketing--- audience belongs.-rWebPropertyId :: Lens' RemarketingAudience (Maybe Text)-rWebPropertyId-  = lens _rWebPropertyId-      (\ s a -> s{_rWebPropertyId = a})---- | Collection type.-rKind :: Lens' RemarketingAudience Text-rKind = lens _rKind (\ s a -> s{_rKind = a})---- | Time this remarketing audience was created.-rCreated :: Lens' RemarketingAudience (Maybe UTCTime)-rCreated-  = lens _rCreated (\ s a -> s{_rCreated = a}) .-      mapping _DateTime---- | The linked ad accounts associated with this remarketing audience. A--- remarketing audience can have only one linkedAdAccount currently.-rLinkedAdAccounts :: Lens' RemarketingAudience [LinkedForeignAccount]-rLinkedAdAccounts-  = lens _rLinkedAdAccounts-      (\ s a -> s{_rLinkedAdAccounts = a})-      . _Default-      . _Coerce---- | The simple audience definition that will cause a user to be added to an--- audience.-rAudienceDefinition :: Lens' RemarketingAudience (Maybe RemarketingAudienceAudienceDefinition)-rAudienceDefinition-  = lens _rAudienceDefinition-      (\ s a -> s{_rAudienceDefinition = a})---- | The type of audience, either SIMPLE or STATE_BASED.-rAudienceType :: Lens' RemarketingAudience (Maybe Text)-rAudienceType-  = lens _rAudienceType-      (\ s a -> s{_rAudienceType = a})---- | Account ID to which this remarketing audience belongs.-rAccountId :: Lens' RemarketingAudience (Maybe Text)-rAccountId-  = lens _rAccountId (\ s a -> s{_rAccountId = a})---- | The name of this remarketing audience.-rName :: Lens' RemarketingAudience (Maybe Text)-rName = lens _rName (\ s a -> s{_rName = a})---- | A state based audience definition that will cause a user to be added or--- removed from an audience.-rStateBasedAudienceDefinition :: Lens' RemarketingAudience (Maybe RemarketingAudienceStateBasedAudienceDefinition)-rStateBasedAudienceDefinition-  = lens _rStateBasedAudienceDefinition-      (\ s a -> s{_rStateBasedAudienceDefinition = a})---- | The views (profiles) that this remarketing audience is linked to.-rLinkedViews :: Lens' RemarketingAudience [Text]-rLinkedViews-  = lens _rLinkedViews (\ s a -> s{_rLinkedViews = a})-      . _Default-      . _Coerce---- | Internal ID for the web property to which this remarketing audience--- belongs.-rInternalWebPropertyId :: Lens' RemarketingAudience (Maybe Text)-rInternalWebPropertyId-  = lens _rInternalWebPropertyId-      (\ s a -> s{_rInternalWebPropertyId = a})---- | Remarketing Audience ID.-rId :: Lens' RemarketingAudience (Maybe Text)-rId = lens _rId (\ s a -> s{_rId = a})---- | Time this remarketing audience was last modified.-rUpdated :: Lens' RemarketingAudience (Maybe UTCTime)-rUpdated-  = lens _rUpdated (\ s a -> s{_rUpdated = a}) .-      mapping _DateTime---- | The description of this remarketing audience.-rDescription :: Lens' RemarketingAudience (Maybe Text)-rDescription-  = lens _rDescription (\ s a -> s{_rDescription = a})--instance FromJSON RemarketingAudience where-        parseJSON-          = withObject "RemarketingAudience"-              (\ o ->-                 RemarketingAudience' <$>-                   (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#remarketingAudience")-                     <*> (o .:? "created")-                     <*> (o .:? "linkedAdAccounts" .!= mempty)-                     <*> (o .:? "audienceDefinition")-                     <*> (o .:? "audienceType")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "stateBasedAudienceDefinition")-                     <*> (o .:? "linkedViews" .!= mempty)-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "description"))--instance ToJSON RemarketingAudience where-        toJSON RemarketingAudience'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _rWebPropertyId,-                  Just ("kind" .= _rKind),-                  ("created" .=) <$> _rCreated,-                  ("linkedAdAccounts" .=) <$> _rLinkedAdAccounts,-                  ("audienceDefinition" .=) <$> _rAudienceDefinition,-                  ("audienceType" .=) <$> _rAudienceType,-                  ("accountId" .=) <$> _rAccountId,-                  ("name" .=) <$> _rName,-                  ("stateBasedAudienceDefinition" .=) <$>-                    _rStateBasedAudienceDefinition,-                  ("linkedViews" .=) <$> _rLinkedViews,-                  ("internalWebPropertyId" .=) <$>-                    _rInternalWebPropertyId,-                  ("id" .=) <$> _rId, ("updated" .=) <$> _rUpdated,-                  ("description" .=) <$> _rDescription])------- /See:/ 'gaDataDataTableRowsItemCItem' smart constructor.-newtype GaDataDataTableRowsItemCItem =-  GaDataDataTableRowsItemCItem'-    { _gddtriciV :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataDataTableRowsItemCItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gddtriciV'-gaDataDataTableRowsItemCItem-    :: GaDataDataTableRowsItemCItem-gaDataDataTableRowsItemCItem =-  GaDataDataTableRowsItemCItem' {_gddtriciV = Nothing}---gddtriciV :: Lens' GaDataDataTableRowsItemCItem (Maybe Text)-gddtriciV-  = lens _gddtriciV (\ s a -> s{_gddtriciV = a})--instance FromJSON GaDataDataTableRowsItemCItem where-        parseJSON-          = withObject "GaDataDataTableRowsItemCItem"-              (\ o ->-                 GaDataDataTableRowsItemCItem' <$> (o .:? "v"))--instance ToJSON GaDataDataTableRowsItemCItem where-        toJSON GaDataDataTableRowsItemCItem'{..}-          = object (catMaybes [("v" .=) <$> _gddtriciV])---- | Permissions the user has for this entity.------ /See:/ 'entityUserLinkPermissions' smart constructor.-data EntityUserLinkPermissions =-  EntityUserLinkPermissions'-    { _eulpLocal     :: !(Maybe [Text])-    , _eulpEffective :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityUserLinkPermissions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eulpLocal'------ * 'eulpEffective'-entityUserLinkPermissions-    :: EntityUserLinkPermissions-entityUserLinkPermissions =-  EntityUserLinkPermissions' {_eulpLocal = Nothing, _eulpEffective = Nothing}----- | Permissions that a user has been assigned at this very level. Does not--- include any implied or inherited permissions. Local permissions are--- modifiable.-eulpLocal :: Lens' EntityUserLinkPermissions [Text]-eulpLocal-  = lens _eulpLocal (\ s a -> s{_eulpLocal = a}) .-      _Default-      . _Coerce---- | Effective permissions represent all the permissions that a user has for--- this entity. These include any implied permissions (e.g., EDIT implies--- VIEW) or inherited permissions from the parent entity. Effective--- permissions are read-only.-eulpEffective :: Lens' EntityUserLinkPermissions [Text]-eulpEffective-  = lens _eulpEffective-      (\ s a -> s{_eulpEffective = a})-      . _Default-      . _Coerce--instance FromJSON EntityUserLinkPermissions where-        parseJSON-          = withObject "EntityUserLinkPermissions"-              (\ o ->-                 EntityUserLinkPermissions' <$>-                   (o .:? "local" .!= mempty) <*>-                     (o .:? "effective" .!= mempty))--instance ToJSON EntityUserLinkPermissions where-        toJSON EntityUserLinkPermissions'{..}-          = object-              (catMaybes-                 [("local" .=) <$> _eulpLocal,-                  ("effective" .=) <$> _eulpEffective])---- | Information for the view (profile), for which the real time data was--- requested.------ /See:/ 'realtimeDataProFileInfo' smart constructor.-data RealtimeDataProFileInfo =-  RealtimeDataProFileInfo'-    { _rdpfiWebPropertyId         :: !(Maybe Text)-    , _rdpfiProFileId             :: !(Maybe Text)-    , _rdpfiProFileName           :: !(Maybe Text)-    , _rdpfiAccountId             :: !(Maybe Text)-    , _rdpfiInternalWebPropertyId :: !(Maybe Text)-    , _rdpfiTableId               :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RealtimeDataProFileInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdpfiWebPropertyId'------ * 'rdpfiProFileId'------ * 'rdpfiProFileName'------ * 'rdpfiAccountId'------ * 'rdpfiInternalWebPropertyId'------ * 'rdpfiTableId'-realtimeDataProFileInfo-    :: RealtimeDataProFileInfo-realtimeDataProFileInfo =-  RealtimeDataProFileInfo'-    { _rdpfiWebPropertyId = Nothing-    , _rdpfiProFileId = Nothing-    , _rdpfiProFileName = Nothing-    , _rdpfiAccountId = Nothing-    , _rdpfiInternalWebPropertyId = Nothing-    , _rdpfiTableId = Nothing-    }----- | Web Property ID to which this view (profile) belongs.-rdpfiWebPropertyId :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiWebPropertyId-  = lens _rdpfiWebPropertyId-      (\ s a -> s{_rdpfiWebPropertyId = a})---- | View (Profile) ID.-rdpfiProFileId :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiProFileId-  = lens _rdpfiProFileId-      (\ s a -> s{_rdpfiProFileId = a})---- | View (Profile) name.-rdpfiProFileName :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiProFileName-  = lens _rdpfiProFileName-      (\ s a -> s{_rdpfiProFileName = a})---- | Account ID to which this view (profile) belongs.-rdpfiAccountId :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiAccountId-  = lens _rdpfiAccountId-      (\ s a -> s{_rdpfiAccountId = a})---- | Internal ID for the web property to which this view (profile) belongs.-rdpfiInternalWebPropertyId :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiInternalWebPropertyId-  = lens _rdpfiInternalWebPropertyId-      (\ s a -> s{_rdpfiInternalWebPropertyId = a})---- | Table ID for view (profile).-rdpfiTableId :: Lens' RealtimeDataProFileInfo (Maybe Text)-rdpfiTableId-  = lens _rdpfiTableId (\ s a -> s{_rdpfiTableId = a})--instance FromJSON RealtimeDataProFileInfo where-        parseJSON-          = withObject "RealtimeDataProFileInfo"-              (\ o ->-                 RealtimeDataProFileInfo' <$>-                   (o .:? "webPropertyId") <*> (o .:? "profileId") <*>-                     (o .:? "profileName")-                     <*> (o .:? "accountId")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "tableId"))--instance ToJSON RealtimeDataProFileInfo where-        toJSON RealtimeDataProFileInfo'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _rdpfiWebPropertyId,-                  ("profileId" .=) <$> _rdpfiProFileId,-                  ("profileName" .=) <$> _rdpfiProFileName,-                  ("accountId" .=) <$> _rdpfiAccountId,-                  ("internalWebPropertyId" .=) <$>-                    _rdpfiInternalWebPropertyId,-                  ("tableId" .=) <$> _rdpfiTableId])------- /See:/ 'mcfDataRowsItemItemConversionPathValueItem' smart constructor.-data McfDataRowsItemItemConversionPathValueItem =-  McfDataRowsItemItemConversionPathValueItem'-    { _mdriicpviInteractionType :: !(Maybe Text)-    , _mdriicpviNodeValue       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataRowsItemItemConversionPathValueItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdriicpviInteractionType'------ * 'mdriicpviNodeValue'-mcfDataRowsItemItemConversionPathValueItem-    :: McfDataRowsItemItemConversionPathValueItem-mcfDataRowsItemItemConversionPathValueItem =-  McfDataRowsItemItemConversionPathValueItem'-    {_mdriicpviInteractionType = Nothing, _mdriicpviNodeValue = Nothing}----- | Type of an interaction on conversion path. Such as CLICK, IMPRESSION--- etc.-mdriicpviInteractionType :: Lens' McfDataRowsItemItemConversionPathValueItem (Maybe Text)-mdriicpviInteractionType-  = lens _mdriicpviInteractionType-      (\ s a -> s{_mdriicpviInteractionType = a})---- | Node value of an interaction on conversion path. Such as source, medium--- etc.-mdriicpviNodeValue :: Lens' McfDataRowsItemItemConversionPathValueItem (Maybe Text)-mdriicpviNodeValue-  = lens _mdriicpviNodeValue-      (\ s a -> s{_mdriicpviNodeValue = a})--instance FromJSON-           McfDataRowsItemItemConversionPathValueItem-         where-        parseJSON-          = withObject-              "McfDataRowsItemItemConversionPathValueItem"-              (\ o ->-                 McfDataRowsItemItemConversionPathValueItem' <$>-                   (o .:? "interactionType") <*> (o .:? "nodeValue"))--instance ToJSON-           McfDataRowsItemItemConversionPathValueItem-         where-        toJSON-          McfDataRowsItemItemConversionPathValueItem'{..}-          = object-              (catMaybes-                 [("interactionType" .=) <$>-                    _mdriicpviInteractionType,-                  ("nodeValue" .=) <$> _mdriicpviNodeValue])---- | JSON template for an Analytics filter expression.------ /See:/ 'filterExpression' smart constructor.-data FilterExpression =-  FilterExpression'-    { _feFieldIndex      :: !(Maybe (Textual Int32))-    , _feField           :: !(Maybe Text)-    , _feKind            :: !Text-    , _feMatchType       :: !(Maybe Text)-    , _feCaseSensitive   :: !(Maybe Bool)-    , _feExpressionValue :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterExpression' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'feFieldIndex'------ * 'feField'------ * 'feKind'------ * 'feMatchType'------ * 'feCaseSensitive'------ * 'feExpressionValue'-filterExpression-    :: FilterExpression-filterExpression =-  FilterExpression'-    { _feFieldIndex = Nothing-    , _feField = Nothing-    , _feKind = "analytics#filterExpression"-    , _feMatchType = Nothing-    , _feCaseSensitive = Nothing-    , _feExpressionValue = Nothing-    }----- | The Index of the custom dimension. Set only if the field is a is--- CUSTOM_DIMENSION.-feFieldIndex :: Lens' FilterExpression (Maybe Int32)-feFieldIndex-  = lens _feFieldIndex (\ s a -> s{_feFieldIndex = a})-      . mapping _Coerce---- | Field to filter. Possible values: - Content and Traffic ---- PAGE_REQUEST_URI, - PAGE_HOSTNAME, - PAGE_TITLE, - REFERRAL, ---- COST_DATA_URI (Campaign target URL), - HIT_TYPE, - INTERNAL_SEARCH_TERM,--- - INTERNAL_SEARCH_TYPE, - SOURCE_PROPERTY_TRACKING_ID, - Campaign or--- AdGroup - CAMPAIGN_SOURCE, - CAMPAIGN_MEDIUM, - CAMPAIGN_NAME, ---- CAMPAIGN_AD_GROUP, - CAMPAIGN_TERM, - CAMPAIGN_CONTENT, - CAMPAIGN_CODE,--- - CAMPAIGN_REFERRAL_PATH, - E-Commerce - TRANSACTION_COUNTRY, ---- TRANSACTION_REGION, - TRANSACTION_CITY, - TRANSACTION_AFFILIATION (Store--- or order location), - ITEM_NAME, - ITEM_CODE, - ITEM_VARIATION, ---- TRANSACTION_ID, - TRANSACTION_CURRENCY_CODE, - PRODUCT_ACTION_TYPE, ---- Audience\/Users - BROWSER, - BROWSER_VERSION, - BROWSER_SIZE, ---- PLATFORM, - PLATFORM_VERSION, - LANGUAGE, - SCREEN_RESOLUTION, ---- SCREEN_COLORS, - JAVA_ENABLED (Boolean Field), - FLASH_VERSION, ---- GEO_SPEED (Connection speed), - VISITOR_TYPE, - GEO_ORGANIZATION (ISP--- organization), - GEO_DOMAIN, - GEO_IP_ADDRESS, - GEO_IP_VERSION, ---- Location - GEO_COUNTRY, - GEO_REGION, - GEO_CITY, - Event ---- EVENT_CATEGORY, - EVENT_ACTION, - EVENT_LABEL, - Other - CUSTOM_FIELD_1,--- - CUSTOM_FIELD_2, - USER_DEFINED_VALUE, - Application - APP_ID, ---- APP_INSTALLER_ID, - APP_NAME, - APP_VERSION, - SCREEN, - IS_APP (Boolean--- Field), - IS_FATAL_EXCEPTION (Boolean Field), - EXCEPTION_DESCRIPTION, ---- Mobile device - IS_MOBILE (Boolean Field, Deprecated. Use--- DEVICE_CATEGORY=mobile), - IS_TABLET (Boolean Field, Deprecated. Use--- DEVICE_CATEGORY=tablet), - DEVICE_CATEGORY, - MOBILE_HAS_QWERTY_KEYBOARD--- (Boolean Field), - MOBILE_HAS_NFC_SUPPORT (Boolean Field), ---- MOBILE_HAS_CELLULAR_RADIO (Boolean Field), - MOBILE_HAS_WIFI_SUPPORT--- (Boolean Field), - MOBILE_BRAND_NAME, - MOBILE_MODEL_NAME, ---- MOBILE_MARKETING_NAME, - MOBILE_POINTING_METHOD, - Social ---- SOCIAL_NETWORK, - SOCIAL_ACTION, - SOCIAL_ACTION_TARGET, - Custom--- dimension - CUSTOM_DIMENSION (See accompanying field index),-feField :: Lens' FilterExpression (Maybe Text)-feField = lens _feField (\ s a -> s{_feField = a})---- | Kind value for filter expression-feKind :: Lens' FilterExpression Text-feKind = lens _feKind (\ s a -> s{_feKind = a})---- | Match type for this filter. Possible values are BEGINS_WITH, EQUAL,--- ENDS_WITH, CONTAINS, or MATCHES. GEO_DOMAIN, GEO_IP_ADDRESS,--- PAGE_REQUEST_URI, or PAGE_HOSTNAME filters can use any match type; all--- other filters must use MATCHES.-feMatchType :: Lens' FilterExpression (Maybe Text)-feMatchType-  = lens _feMatchType (\ s a -> s{_feMatchType = a})---- | Determines if the filter is case sensitive.-feCaseSensitive :: Lens' FilterExpression (Maybe Bool)-feCaseSensitive-  = lens _feCaseSensitive-      (\ s a -> s{_feCaseSensitive = a})---- | Filter expression value-feExpressionValue :: Lens' FilterExpression (Maybe Text)-feExpressionValue-  = lens _feExpressionValue-      (\ s a -> s{_feExpressionValue = a})--instance FromJSON FilterExpression where-        parseJSON-          = withObject "FilterExpression"-              (\ o ->-                 FilterExpression' <$>-                   (o .:? "fieldIndex") <*> (o .:? "field") <*>-                     (o .:? "kind" .!= "analytics#filterExpression")-                     <*> (o .:? "matchType")-                     <*> (o .:? "caseSensitive")-                     <*> (o .:? "expressionValue"))--instance ToJSON FilterExpression where-        toJSON FilterExpression'{..}-          = object-              (catMaybes-                 [("fieldIndex" .=) <$> _feFieldIndex,-                  ("field" .=) <$> _feField, Just ("kind" .= _feKind),-                  ("matchType" .=) <$> _feMatchType,-                  ("caseSensitive" .=) <$> _feCaseSensitive,-                  ("expressionValue" .=) <$> _feExpressionValue])---- | JSON template for a linked view (profile).------ /See:/ 'proFileRef' smart constructor.-data ProFileRef =-  ProFileRef'-    { _pfrWebPropertyId         :: !(Maybe Text)-    , _pfrKind                  :: !Text-    , _pfrHref                  :: !(Maybe Text)-    , _pfrAccountId             :: !(Maybe Text)-    , _pfrName                  :: !(Maybe Text)-    , _pfrInternalWebPropertyId :: !(Maybe Text)-    , _pfrId                    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileRef' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfrWebPropertyId'------ * 'pfrKind'------ * 'pfrHref'------ * 'pfrAccountId'------ * 'pfrName'------ * 'pfrInternalWebPropertyId'------ * 'pfrId'-proFileRef-    :: ProFileRef-proFileRef =-  ProFileRef'-    { _pfrWebPropertyId = Nothing-    , _pfrKind = "analytics#profileRef"-    , _pfrHref = Nothing-    , _pfrAccountId = Nothing-    , _pfrName = Nothing-    , _pfrInternalWebPropertyId = Nothing-    , _pfrId = Nothing-    }----- | Web property ID of the form UA-XXXXX-YY to which this view (profile)--- belongs.-pfrWebPropertyId :: Lens' ProFileRef (Maybe Text)-pfrWebPropertyId-  = lens _pfrWebPropertyId-      (\ s a -> s{_pfrWebPropertyId = a})---- | Analytics view (profile) reference.-pfrKind :: Lens' ProFileRef Text-pfrKind = lens _pfrKind (\ s a -> s{_pfrKind = a})---- | Link for this view (profile).-pfrHref :: Lens' ProFileRef (Maybe Text)-pfrHref = lens _pfrHref (\ s a -> s{_pfrHref = a})---- | Account ID to which this view (profile) belongs.-pfrAccountId :: Lens' ProFileRef (Maybe Text)-pfrAccountId-  = lens _pfrAccountId (\ s a -> s{_pfrAccountId = a})---- | Name of this view (profile).-pfrName :: Lens' ProFileRef (Maybe Text)-pfrName = lens _pfrName (\ s a -> s{_pfrName = a})---- | Internal ID for the web property to which this view (profile) belongs.-pfrInternalWebPropertyId :: Lens' ProFileRef (Maybe Text)-pfrInternalWebPropertyId-  = lens _pfrInternalWebPropertyId-      (\ s a -> s{_pfrInternalWebPropertyId = a})---- | View (Profile) ID.-pfrId :: Lens' ProFileRef (Maybe Text)-pfrId = lens _pfrId (\ s a -> s{_pfrId = a})--instance FromJSON ProFileRef where-        parseJSON-          = withObject "ProFileRef"-              (\ o ->-                 ProFileRef' <$>-                   (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#profileRef")-                     <*> (o .:? "href")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id"))--instance ToJSON ProFileRef where-        toJSON ProFileRef'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _pfrWebPropertyId,-                  Just ("kind" .= _pfrKind), ("href" .=) <$> _pfrHref,-                  ("accountId" .=) <$> _pfrAccountId,-                  ("name" .=) <$> _pfrName,-                  ("internalWebPropertyId" .=) <$>-                    _pfrInternalWebPropertyId,-                  ("id" .=) <$> _pfrId])---- | An account collection provides a list of Analytics accounts to which a--- user has access. The account collection is the entry point to all--- management information. Each resource in the collection corresponds to a--- single Analytics account.------ /See:/ 'accounts' smart constructor.-data Accounts =-  Accounts'-    { _aNextLink     :: !(Maybe Text)-    , _aItemsPerPage :: !(Maybe (Textual Int32))-    , _aKind         :: !Text-    , _aUsername     :: !(Maybe Text)-    , _aItems        :: !(Maybe [Account])-    , _aTotalResults :: !(Maybe (Textual Int32))-    , _aStartIndex   :: !(Maybe (Textual Int32))-    , _aPreviousLink :: !(Maybe Text)-    }-  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:------ * 'aNextLink'------ * 'aItemsPerPage'------ * 'aKind'------ * 'aUsername'------ * 'aItems'------ * 'aTotalResults'------ * 'aStartIndex'------ * 'aPreviousLink'-accounts-    :: Accounts-accounts =-  Accounts'-    { _aNextLink = Nothing-    , _aItemsPerPage = Nothing-    , _aKind = "analytics#accounts"-    , _aUsername = Nothing-    , _aItems = Nothing-    , _aTotalResults = Nothing-    , _aStartIndex = Nothing-    , _aPreviousLink = Nothing-    }----- | Next link for this account collection.-aNextLink :: Lens' Accounts (Maybe Text)-aNextLink-  = lens _aNextLink (\ s a -> s{_aNextLink = a})---- | The maximum number of entries the response can contain, regardless of--- the actual number of entries returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-aItemsPerPage :: Lens' Accounts (Maybe Int32)-aItemsPerPage-  = lens _aItemsPerPage-      (\ s a -> s{_aItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-aKind :: Lens' Accounts Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | Email ID of the authenticated user-aUsername :: Lens' Accounts (Maybe Text)-aUsername-  = lens _aUsername (\ s a -> s{_aUsername = a})---- | A list of accounts.-aItems :: Lens' Accounts [Account]-aItems-  = lens _aItems (\ s a -> s{_aItems = a}) . _Default .-      _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-aTotalResults :: Lens' Accounts (Maybe Int32)-aTotalResults-  = lens _aTotalResults-      (\ s a -> s{_aTotalResults = a})-      . mapping _Coerce---- | The starting index of the entries, which is 1 by default or otherwise--- specified by the start-index query parameter.-aStartIndex :: Lens' Accounts (Maybe Int32)-aStartIndex-  = lens _aStartIndex (\ s a -> s{_aStartIndex = a}) .-      mapping _Coerce---- | Previous link for this account collection.-aPreviousLink :: Lens' Accounts (Maybe Text)-aPreviousLink-  = lens _aPreviousLink-      (\ s a -> s{_aPreviousLink = a})--instance FromJSON Accounts where-        parseJSON-          = withObject "Accounts"-              (\ o ->-                 Accounts' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#accounts")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Accounts where-        toJSON Accounts'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _aNextLink,-                  ("itemsPerPage" .=) <$> _aItemsPerPage,-                  Just ("kind" .= _aKind),-                  ("username" .=) <$> _aUsername,-                  ("items" .=) <$> _aItems,-                  ("totalResults" .=) <$> _aTotalResults,-                  ("startIndex" .=) <$> _aStartIndex,-                  ("previousLink" .=) <$> _aPreviousLink])---- | An experiment collection lists Analytics experiments to which the user--- has access. Each view (profile) can have a set of experiments. Each--- resource in the Experiment collection corresponds to a single Analytics--- experiment.------ /See:/ 'experiments' smart constructor.-data Experiments =-  Experiments'-    { _eNextLink     :: !(Maybe Text)-    , _eItemsPerPage :: !(Maybe (Textual Int32))-    , _eKind         :: !Text-    , _eUsername     :: !(Maybe Text)-    , _eItems        :: !(Maybe [Experiment])-    , _eTotalResults :: !(Maybe (Textual Int32))-    , _eStartIndex   :: !(Maybe (Textual Int32))-    , _ePreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Experiments' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eNextLink'------ * 'eItemsPerPage'------ * 'eKind'------ * 'eUsername'------ * 'eItems'------ * 'eTotalResults'------ * 'eStartIndex'------ * 'ePreviousLink'-experiments-    :: Experiments-experiments =-  Experiments'-    { _eNextLink = Nothing-    , _eItemsPerPage = Nothing-    , _eKind = "analytics#experiments"-    , _eUsername = Nothing-    , _eItems = Nothing-    , _eTotalResults = Nothing-    , _eStartIndex = Nothing-    , _ePreviousLink = Nothing-    }----- | Link to next page for this experiment collection.-eNextLink :: Lens' Experiments (Maybe Text)-eNextLink-  = lens _eNextLink (\ s a -> s{_eNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-eItemsPerPage :: Lens' Experiments (Maybe Int32)-eItemsPerPage-  = lens _eItemsPerPage-      (\ s a -> s{_eItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-eKind :: Lens' Experiments Text-eKind = lens _eKind (\ s a -> s{_eKind = a})---- | Email ID of the authenticated user-eUsername :: Lens' Experiments (Maybe Text)-eUsername-  = lens _eUsername (\ s a -> s{_eUsername = a})---- | A list of experiments.-eItems :: Lens' Experiments [Experiment]-eItems-  = lens _eItems (\ s a -> s{_eItems = a}) . _Default .-      _Coerce---- | The total number of results for the query, regardless of the number of--- resources in the result.-eTotalResults :: Lens' Experiments (Maybe Int32)-eTotalResults-  = lens _eTotalResults-      (\ s a -> s{_eTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-eStartIndex :: Lens' Experiments (Maybe Int32)-eStartIndex-  = lens _eStartIndex (\ s a -> s{_eStartIndex = a}) .-      mapping _Coerce---- | Link to previous page for this experiment collection.-ePreviousLink :: Lens' Experiments (Maybe Text)-ePreviousLink-  = lens _ePreviousLink-      (\ s a -> s{_ePreviousLink = a})--instance FromJSON Experiments where-        parseJSON-          = withObject "Experiments"-              (\ o ->-                 Experiments' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#experiments")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Experiments where-        toJSON Experiments'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _eNextLink,-                  ("itemsPerPage" .=) <$> _eItemsPerPage,-                  Just ("kind" .= _eKind),-                  ("username" .=) <$> _eUsername,-                  ("items" .=) <$> _eItems,-                  ("totalResults" .=) <$> _eTotalResults,-                  ("startIndex" .=) <$> _eStartIndex,-                  ("previousLink" .=) <$> _ePreviousLink])---- | Parent link for an experiment. Points to the view (profile) to which--- this experiment belongs.------ /See:/ 'experimentParentLink' smart constructor.-data ExperimentParentLink =-  ExperimentParentLink'-    { _eplHref :: !(Maybe Text)-    , _eplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ExperimentParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eplHref'------ * 'eplType'-experimentParentLink-    :: ExperimentParentLink-experimentParentLink =-  ExperimentParentLink' {_eplHref = Nothing, _eplType = "analytics#profile"}----- | Link to the view (profile) to which this experiment belongs. This field--- is read-only.-eplHref :: Lens' ExperimentParentLink (Maybe Text)-eplHref = lens _eplHref (\ s a -> s{_eplHref = a})---- | Value is \"analytics#profile\". This field is read-only.-eplType :: Lens' ExperimentParentLink Text-eplType = lens _eplType (\ s a -> s{_eplType = a})--instance FromJSON ExperimentParentLink where-        parseJSON-          = withObject "ExperimentParentLink"-              (\ o ->-                 ExperimentParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#profile"))--instance ToJSON ExperimentParentLink where-        toJSON ExperimentParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _eplHref,-                  Just ("type" .= _eplType)])---- | Download details for a file stored in Google Drive.------ /See:/ 'unSampledReportDriveDownloadDetails' smart constructor.-newtype UnSampledReportDriveDownloadDetails =-  UnSampledReportDriveDownloadDetails'-    { _usrdddDocumentId :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UnSampledReportDriveDownloadDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usrdddDocumentId'-unSampledReportDriveDownloadDetails-    :: UnSampledReportDriveDownloadDetails-unSampledReportDriveDownloadDetails =-  UnSampledReportDriveDownloadDetails' {_usrdddDocumentId = Nothing}----- | Id of the document\/file containing the report data.-usrdddDocumentId :: Lens' UnSampledReportDriveDownloadDetails (Maybe Text)-usrdddDocumentId-  = lens _usrdddDocumentId-      (\ s a -> s{_usrdddDocumentId = a})--instance FromJSON UnSampledReportDriveDownloadDetails-         where-        parseJSON-          = withObject "UnSampledReportDriveDownloadDetails"-              (\ o ->-                 UnSampledReportDriveDownloadDetails' <$>-                   (o .:? "documentId"))--instance ToJSON UnSampledReportDriveDownloadDetails-         where-        toJSON UnSampledReportDriveDownloadDetails'{..}-          = object-              (catMaybes [("documentId" .=) <$> _usrdddDocumentId])---- | Information for the view (profile), for which the Analytics data was--- requested.------ /See:/ 'mcfDataProFileInfo' smart constructor.-data McfDataProFileInfo =-  McfDataProFileInfo'-    { _mdpfiWebPropertyId         :: !(Maybe Text)-    , _mdpfiProFileId             :: !(Maybe Text)-    , _mdpfiProFileName           :: !(Maybe Text)-    , _mdpfiAccountId             :: !(Maybe Text)-    , _mdpfiInternalWebPropertyId :: !(Maybe Text)-    , _mdpfiTableId               :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataProFileInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdpfiWebPropertyId'------ * 'mdpfiProFileId'------ * 'mdpfiProFileName'------ * 'mdpfiAccountId'------ * 'mdpfiInternalWebPropertyId'------ * 'mdpfiTableId'-mcfDataProFileInfo-    :: McfDataProFileInfo-mcfDataProFileInfo =-  McfDataProFileInfo'-    { _mdpfiWebPropertyId = Nothing-    , _mdpfiProFileId = Nothing-    , _mdpfiProFileName = Nothing-    , _mdpfiAccountId = Nothing-    , _mdpfiInternalWebPropertyId = Nothing-    , _mdpfiTableId = Nothing-    }----- | Web Property ID to which this view (profile) belongs.-mdpfiWebPropertyId :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiWebPropertyId-  = lens _mdpfiWebPropertyId-      (\ s a -> s{_mdpfiWebPropertyId = a})---- | View (Profile) ID.-mdpfiProFileId :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiProFileId-  = lens _mdpfiProFileId-      (\ s a -> s{_mdpfiProFileId = a})---- | View (Profile) name.-mdpfiProFileName :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiProFileName-  = lens _mdpfiProFileName-      (\ s a -> s{_mdpfiProFileName = a})---- | Account ID to which this view (profile) belongs.-mdpfiAccountId :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiAccountId-  = lens _mdpfiAccountId-      (\ s a -> s{_mdpfiAccountId = a})---- | Internal ID for the web property to which this view (profile) belongs.-mdpfiInternalWebPropertyId :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiInternalWebPropertyId-  = lens _mdpfiInternalWebPropertyId-      (\ s a -> s{_mdpfiInternalWebPropertyId = a})---- | Table ID for view (profile).-mdpfiTableId :: Lens' McfDataProFileInfo (Maybe Text)-mdpfiTableId-  = lens _mdpfiTableId (\ s a -> s{_mdpfiTableId = a})--instance FromJSON McfDataProFileInfo where-        parseJSON-          = withObject "McfDataProFileInfo"-              (\ o ->-                 McfDataProFileInfo' <$>-                   (o .:? "webPropertyId") <*> (o .:? "profileId") <*>-                     (o .:? "profileName")-                     <*> (o .:? "accountId")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "tableId"))--instance ToJSON McfDataProFileInfo where-        toJSON McfDataProFileInfo'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _mdpfiWebPropertyId,-                  ("profileId" .=) <$> _mdpfiProFileId,-                  ("profileName" .=) <$> _mdpfiProFileName,-                  ("accountId" .=) <$> _mdpfiAccountId,-                  ("internalWebPropertyId" .=) <$>-                    _mdpfiInternalWebPropertyId,-                  ("tableId" .=) <$> _mdpfiTableId])---- | Lists Analytics custom data sources to which the user has access. Each--- resource in the collection corresponds to a single Analytics custom data--- source.------ /See:/ 'customDataSources' smart constructor.-data CustomDataSources =-  CustomDataSources'-    { _cdsNextLink     :: !(Maybe Text)-    , _cdsItemsPerPage :: !(Maybe (Textual Int32))-    , _cdsKind         :: !Text-    , _cdsUsername     :: !(Maybe Text)-    , _cdsItems        :: !(Maybe [CustomDataSource])-    , _cdsTotalResults :: !(Maybe (Textual Int32))-    , _cdsStartIndex   :: !(Maybe (Textual Int32))-    , _cdsPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDataSources' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdsNextLink'------ * 'cdsItemsPerPage'------ * 'cdsKind'------ * 'cdsUsername'------ * 'cdsItems'------ * 'cdsTotalResults'------ * 'cdsStartIndex'------ * 'cdsPreviousLink'-customDataSources-    :: CustomDataSources-customDataSources =-  CustomDataSources'-    { _cdsNextLink = Nothing-    , _cdsItemsPerPage = Nothing-    , _cdsKind = "analytics#customDataSources"-    , _cdsUsername = Nothing-    , _cdsItems = Nothing-    , _cdsTotalResults = Nothing-    , _cdsStartIndex = Nothing-    , _cdsPreviousLink = Nothing-    }----- | Link to next page for this custom data source collection.-cdsNextLink :: Lens' CustomDataSources (Maybe Text)-cdsNextLink-  = lens _cdsNextLink (\ s a -> s{_cdsNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-cdsItemsPerPage :: Lens' CustomDataSources (Maybe Int32)-cdsItemsPerPage-  = lens _cdsItemsPerPage-      (\ s a -> s{_cdsItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-cdsKind :: Lens' CustomDataSources Text-cdsKind = lens _cdsKind (\ s a -> s{_cdsKind = a})---- | Email ID of the authenticated user-cdsUsername :: Lens' CustomDataSources (Maybe Text)-cdsUsername-  = lens _cdsUsername (\ s a -> s{_cdsUsername = a})---- | Collection of custom data sources.-cdsItems :: Lens' CustomDataSources [CustomDataSource]-cdsItems-  = lens _cdsItems (\ s a -> s{_cdsItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-cdsTotalResults :: Lens' CustomDataSources (Maybe Int32)-cdsTotalResults-  = lens _cdsTotalResults-      (\ s a -> s{_cdsTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-cdsStartIndex :: Lens' CustomDataSources (Maybe Int32)-cdsStartIndex-  = lens _cdsStartIndex-      (\ s a -> s{_cdsStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this custom data source collection.-cdsPreviousLink :: Lens' CustomDataSources (Maybe Text)-cdsPreviousLink-  = lens _cdsPreviousLink-      (\ s a -> s{_cdsPreviousLink = a})--instance FromJSON CustomDataSources where-        parseJSON-          = withObject "CustomDataSources"-              (\ o ->-                 CustomDataSources' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#customDataSources")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON CustomDataSources where-        toJSON CustomDataSources'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _cdsNextLink,-                  ("itemsPerPage" .=) <$> _cdsItemsPerPage,-                  Just ("kind" .= _cdsKind),-                  ("username" .=) <$> _cdsUsername,-                  ("items" .=) <$> _cdsItems,-                  ("totalResults" .=) <$> _cdsTotalResults,-                  ("startIndex" .=) <$> _cdsStartIndex,-                  ("previousLink" .=) <$> _cdsPreviousLink])---- | Child link for this web property. Points to the list of views (profiles)--- for this web property.------ /See:/ 'webPropertyChildLink' smart constructor.-data WebPropertyChildLink =-  WebPropertyChildLink'-    { _wpclHref :: !(Maybe Text)-    , _wpclType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebPropertyChildLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpclHref'------ * 'wpclType'-webPropertyChildLink-    :: WebPropertyChildLink-webPropertyChildLink =-  WebPropertyChildLink' {_wpclHref = Nothing, _wpclType = "analytics#profiles"}----- | Link to the list of views (profiles) for this web property.-wpclHref :: Lens' WebPropertyChildLink (Maybe Text)-wpclHref = lens _wpclHref (\ s a -> s{_wpclHref = a})---- | Type of the parent link. Its value is \"analytics#profiles\".-wpclType :: Lens' WebPropertyChildLink Text-wpclType = lens _wpclType (\ s a -> s{_wpclType = a})--instance FromJSON WebPropertyChildLink where-        parseJSON-          = withObject "WebPropertyChildLink"-              (\ o ->-                 WebPropertyChildLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#profiles"))--instance ToJSON WebPropertyChildLink where-        toJSON WebPropertyChildLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _wpclHref,-                  Just ("type" .= _wpclType)])---- | JSON template for a hash Client Id response resource.------ /See:/ 'hashClientIdResponse' smart constructor.-data HashClientIdResponse =-  HashClientIdResponse'-    { _hcirClientId       :: !(Maybe Text)-    , _hcirWebPropertyId  :: !(Maybe Text)-    , _hcirKind           :: !Text-    , _hcirHashedClientId :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HashClientIdResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hcirClientId'------ * 'hcirWebPropertyId'------ * 'hcirKind'------ * 'hcirHashedClientId'-hashClientIdResponse-    :: HashClientIdResponse-hashClientIdResponse =-  HashClientIdResponse'-    { _hcirClientId = Nothing-    , _hcirWebPropertyId = Nothing-    , _hcirKind = "analytics#hashClientIdResponse"-    , _hcirHashedClientId = Nothing-    }---hcirClientId :: Lens' HashClientIdResponse (Maybe Text)-hcirClientId-  = lens _hcirClientId (\ s a -> s{_hcirClientId = a})--hcirWebPropertyId :: Lens' HashClientIdResponse (Maybe Text)-hcirWebPropertyId-  = lens _hcirWebPropertyId-      (\ s a -> s{_hcirWebPropertyId = a})--hcirKind :: Lens' HashClientIdResponse Text-hcirKind = lens _hcirKind (\ s a -> s{_hcirKind = a})--hcirHashedClientId :: Lens' HashClientIdResponse (Maybe Text)-hcirHashedClientId-  = lens _hcirHashedClientId-      (\ s a -> s{_hcirHashedClientId = a})--instance FromJSON HashClientIdResponse where-        parseJSON-          = withObject "HashClientIdResponse"-              (\ o ->-                 HashClientIdResponse' <$>-                   (o .:? "clientId") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#hashClientIdResponse")-                     <*> (o .:? "hashedClientId"))--instance ToJSON HashClientIdResponse where-        toJSON HashClientIdResponse'{..}-          = object-              (catMaybes-                 [("clientId" .=) <$> _hcirClientId,-                  ("webPropertyId" .=) <$> _hcirWebPropertyId,-                  Just ("kind" .= _hcirKind),-                  ("hashedClientId" .=) <$> _hcirHashedClientId])---- | Multi-Channel Funnels data for a given view (profile).------ /See:/ 'mcfData' smart constructor.-data McfData =-  McfData'-    { _mdNextLink            :: !(Maybe Text)-    , _mdSampleSpace         :: !(Maybe (Textual Int64))-    , _mdItemsPerPage        :: !(Maybe (Textual Int32))-    , _mdProFileInfo         :: !(Maybe McfDataProFileInfo)-    , _mdKind                :: !Text-    , _mdSampleSize          :: !(Maybe (Textual Int64))-    , _mdRows                :: !(Maybe [[McfDataRowsItemItem]])-    , _mdSelfLink            :: !(Maybe Text)-    , _mdQuery               :: !(Maybe McfDataQuery)-    , _mdColumnHeaders       :: !(Maybe [McfDataColumnHeadersItem])-    , _mdId                  :: !(Maybe Text)-    , _mdTotalResults        :: !(Maybe (Textual Int32))-    , _mdContainsSampledData :: !(Maybe Bool)-    , _mdTotalsForAllResults :: !(Maybe McfDataTotalsForAllResults)-    , _mdPreviousLink        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdNextLink'------ * 'mdSampleSpace'------ * 'mdItemsPerPage'------ * 'mdProFileInfo'------ * 'mdKind'------ * 'mdSampleSize'------ * 'mdRows'------ * 'mdSelfLink'------ * 'mdQuery'------ * 'mdColumnHeaders'------ * 'mdId'------ * 'mdTotalResults'------ * 'mdContainsSampledData'------ * 'mdTotalsForAllResults'------ * 'mdPreviousLink'-mcfData-    :: McfData-mcfData =-  McfData'-    { _mdNextLink = Nothing-    , _mdSampleSpace = Nothing-    , _mdItemsPerPage = Nothing-    , _mdProFileInfo = Nothing-    , _mdKind = "analytics#mcfData"-    , _mdSampleSize = Nothing-    , _mdRows = Nothing-    , _mdSelfLink = Nothing-    , _mdQuery = Nothing-    , _mdColumnHeaders = Nothing-    , _mdId = Nothing-    , _mdTotalResults = Nothing-    , _mdContainsSampledData = Nothing-    , _mdTotalsForAllResults = Nothing-    , _mdPreviousLink = Nothing-    }----- | Link to next page for this Analytics data query.-mdNextLink :: Lens' McfData (Maybe Text)-mdNextLink-  = lens _mdNextLink (\ s a -> s{_mdNextLink = a})---- | Total size of the sample space from which the samples were selected.-mdSampleSpace :: Lens' McfData (Maybe Int64)-mdSampleSpace-  = lens _mdSampleSpace-      (\ s a -> s{_mdSampleSpace = a})-      . mapping _Coerce---- | The maximum number of rows the response can contain, regardless of the--- actual number of rows returned. Its value ranges from 1 to 10,000 with a--- value of 1000 by default, or otherwise specified by the max-results--- query parameter.-mdItemsPerPage :: Lens' McfData (Maybe Int32)-mdItemsPerPage-  = lens _mdItemsPerPage-      (\ s a -> s{_mdItemsPerPage = a})-      . mapping _Coerce---- | Information for the view (profile), for which the Analytics data was--- requested.-mdProFileInfo :: Lens' McfData (Maybe McfDataProFileInfo)-mdProFileInfo-  = lens _mdProFileInfo-      (\ s a -> s{_mdProFileInfo = a})---- | Resource type.-mdKind :: Lens' McfData Text-mdKind = lens _mdKind (\ s a -> s{_mdKind = a})---- | The number of samples used to calculate the result.-mdSampleSize :: Lens' McfData (Maybe Int64)-mdSampleSize-  = lens _mdSampleSize (\ s a -> s{_mdSampleSize = a})-      . mapping _Coerce---- | Analytics data rows, where each row contains a list of dimension values--- followed by the metric values. The order of dimensions and metrics is--- same as specified in the request.-mdRows :: Lens' McfData [[McfDataRowsItemItem]]-mdRows-  = lens _mdRows (\ s a -> s{_mdRows = a}) . _Default .-      _Coerce---- | Link to this page.-mdSelfLink :: Lens' McfData (Maybe Text)-mdSelfLink-  = lens _mdSelfLink (\ s a -> s{_mdSelfLink = a})---- | Analytics data request query parameters.-mdQuery :: Lens' McfData (Maybe McfDataQuery)-mdQuery = lens _mdQuery (\ s a -> s{_mdQuery = a})---- | Column headers that list dimension names followed by the metric names.--- The order of dimensions and metrics is same as specified in the request.-mdColumnHeaders :: Lens' McfData [McfDataColumnHeadersItem]-mdColumnHeaders-  = lens _mdColumnHeaders-      (\ s a -> s{_mdColumnHeaders = a})-      . _Default-      . _Coerce---- | Unique ID for this data response.-mdId :: Lens' McfData (Maybe Text)-mdId = lens _mdId (\ s a -> s{_mdId = a})---- | The total number of rows for the query, regardless of the number of rows--- in the response.-mdTotalResults :: Lens' McfData (Maybe Int32)-mdTotalResults-  = lens _mdTotalResults-      (\ s a -> s{_mdTotalResults = a})-      . mapping _Coerce---- | Determines if the Analytics data contains sampled data.-mdContainsSampledData :: Lens' McfData (Maybe Bool)-mdContainsSampledData-  = lens _mdContainsSampledData-      (\ s a -> s{_mdContainsSampledData = a})---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.-mdTotalsForAllResults :: Lens' McfData (Maybe McfDataTotalsForAllResults)-mdTotalsForAllResults-  = lens _mdTotalsForAllResults-      (\ s a -> s{_mdTotalsForAllResults = a})---- | Link to previous page for this Analytics data query.-mdPreviousLink :: Lens' McfData (Maybe Text)-mdPreviousLink-  = lens _mdPreviousLink-      (\ s a -> s{_mdPreviousLink = a})--instance FromJSON McfData where-        parseJSON-          = withObject "McfData"-              (\ o ->-                 McfData' <$>-                   (o .:? "nextLink") <*> (o .:? "sampleSpace") <*>-                     (o .:? "itemsPerPage")-                     <*> (o .:? "profileInfo")-                     <*> (o .:? "kind" .!= "analytics#mcfData")-                     <*> (o .:? "sampleSize")-                     <*> (o .:? "rows" .!= mempty)-                     <*> (o .:? "selfLink")-                     <*> (o .:? "query")-                     <*> (o .:? "columnHeaders" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "totalResults")-                     <*> (o .:? "containsSampledData")-                     <*> (o .:? "totalsForAllResults")-                     <*> (o .:? "previousLink"))--instance ToJSON McfData where-        toJSON McfData'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _mdNextLink,-                  ("sampleSpace" .=) <$> _mdSampleSpace,-                  ("itemsPerPage" .=) <$> _mdItemsPerPage,-                  ("profileInfo" .=) <$> _mdProFileInfo,-                  Just ("kind" .= _mdKind),-                  ("sampleSize" .=) <$> _mdSampleSize,-                  ("rows" .=) <$> _mdRows,-                  ("selfLink" .=) <$> _mdSelfLink,-                  ("query" .=) <$> _mdQuery,-                  ("columnHeaders" .=) <$> _mdColumnHeaders,-                  ("id" .=) <$> _mdId,-                  ("totalResults" .=) <$> _mdTotalResults,-                  ("containsSampledData" .=) <$>-                    _mdContainsSampledData,-                  ("totalsForAllResults" .=) <$>-                    _mdTotalsForAllResults,-                  ("previousLink" .=) <$> _mdPreviousLink])---- | JSON template for a user reference.------ /See:/ 'userRef' smart constructor.-data UserRef =-  UserRef'-    { _urEmail :: !(Maybe Text)-    , _urKind  :: !Text-    , _urId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserRef' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'urEmail'------ * 'urKind'------ * 'urId'-userRef-    :: UserRef-userRef =-  UserRef' {_urEmail = Nothing, _urKind = "analytics#userRef", _urId = Nothing}----- | Email ID of this user.-urEmail :: Lens' UserRef (Maybe Text)-urEmail = lens _urEmail (\ s a -> s{_urEmail = a})--urKind :: Lens' UserRef Text-urKind = lens _urKind (\ s a -> s{_urKind = a})---- | User ID.-urId :: Lens' UserRef (Maybe Text)-urId = lens _urId (\ s a -> s{_urId = a})--instance FromJSON UserRef where-        parseJSON-          = withObject "UserRef"-              (\ o ->-                 UserRef' <$>-                   (o .:? "email") <*>-                     (o .:? "kind" .!= "analytics#userRef")-                     <*> (o .:? "id"))--instance ToJSON UserRef where-        toJSON UserRef'{..}-          = object-              (catMaybes-                 [("email" .=) <$> _urEmail, Just ("kind" .= _urKind),-                  ("id" .=) <$> _urId])---- | Details for the goal of the type VISIT_NUM_PAGES.------ /See:/ 'goalVisitNumPagesDetails' smart constructor.-data GoalVisitNumPagesDetails =-  GoalVisitNumPagesDetails'-    { _gvnpdComparisonValue :: !(Maybe (Textual Int64))-    , _gvnpdComparisonType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalVisitNumPagesDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gvnpdComparisonValue'------ * 'gvnpdComparisonType'-goalVisitNumPagesDetails-    :: GoalVisitNumPagesDetails-goalVisitNumPagesDetails =-  GoalVisitNumPagesDetails'-    {_gvnpdComparisonValue = Nothing, _gvnpdComparisonType = Nothing}----- | Value used for this comparison.-gvnpdComparisonValue :: Lens' GoalVisitNumPagesDetails (Maybe Int64)-gvnpdComparisonValue-  = lens _gvnpdComparisonValue-      (\ s a -> s{_gvnpdComparisonValue = a})-      . mapping _Coerce---- | Type of comparison. Possible values are LESS_THAN, GREATER_THAN, or--- EQUAL.-gvnpdComparisonType :: Lens' GoalVisitNumPagesDetails (Maybe Text)-gvnpdComparisonType-  = lens _gvnpdComparisonType-      (\ s a -> s{_gvnpdComparisonType = a})--instance FromJSON GoalVisitNumPagesDetails where-        parseJSON-          = withObject "GoalVisitNumPagesDetails"-              (\ o ->-                 GoalVisitNumPagesDetails' <$>-                   (o .:? "comparisonValue") <*>-                     (o .:? "comparisonType"))--instance ToJSON GoalVisitNumPagesDetails where-        toJSON GoalVisitNumPagesDetails'{..}-          = object-              (catMaybes-                 [("comparisonValue" .=) <$> _gvnpdComparisonValue,-                  ("comparisonType" .=) <$> _gvnpdComparisonType])------- /See:/ 'realtimeDataColumnHeadersItem' smart constructor.-data RealtimeDataColumnHeadersItem =-  RealtimeDataColumnHeadersItem'-    { _rdchiColumnType :: !(Maybe Text)-    , _rdchiName       :: !(Maybe Text)-    , _rdchiDataType   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RealtimeDataColumnHeadersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdchiColumnType'------ * 'rdchiName'------ * 'rdchiDataType'-realtimeDataColumnHeadersItem-    :: RealtimeDataColumnHeadersItem-realtimeDataColumnHeadersItem =-  RealtimeDataColumnHeadersItem'-    {_rdchiColumnType = Nothing, _rdchiName = Nothing, _rdchiDataType = Nothing}----- | Column Type. Either DIMENSION or METRIC.-rdchiColumnType :: Lens' RealtimeDataColumnHeadersItem (Maybe Text)-rdchiColumnType-  = lens _rdchiColumnType-      (\ s a -> s{_rdchiColumnType = a})---- | Column name.-rdchiName :: Lens' RealtimeDataColumnHeadersItem (Maybe Text)-rdchiName-  = lens _rdchiName (\ s a -> s{_rdchiName = a})---- | Data type. Dimension column headers have only STRING as the data type.--- Metric column headers have data types for metric values such as INTEGER,--- DOUBLE, CURRENCY etc.-rdchiDataType :: Lens' RealtimeDataColumnHeadersItem (Maybe Text)-rdchiDataType-  = lens _rdchiDataType-      (\ s a -> s{_rdchiDataType = a})--instance FromJSON RealtimeDataColumnHeadersItem where-        parseJSON-          = withObject "RealtimeDataColumnHeadersItem"-              (\ o ->-                 RealtimeDataColumnHeadersItem' <$>-                   (o .:? "columnType") <*> (o .:? "name") <*>-                     (o .:? "dataType"))--instance ToJSON RealtimeDataColumnHeadersItem where-        toJSON RealtimeDataColumnHeadersItem'{..}-          = object-              (catMaybes-                 [("columnType" .=) <$> _rdchiColumnType,-                  ("name" .=) <$> _rdchiName,-                  ("dataType" .=) <$> _rdchiDataType])---- | JSON template for a linked account.------ /See:/ 'accountRef' smart constructor.-data AccountRef =-  AccountRef'-    { _arKind :: !Text-    , _arHref :: !(Maybe Text)-    , _arName :: !(Maybe Text)-    , _arId   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountRef' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arKind'------ * 'arHref'------ * 'arName'------ * 'arId'-accountRef-    :: AccountRef-accountRef =-  AccountRef'-    { _arKind = "analytics#accountRef"-    , _arHref = Nothing-    , _arName = Nothing-    , _arId = Nothing-    }----- | Analytics account reference.-arKind :: Lens' AccountRef Text-arKind = lens _arKind (\ s a -> s{_arKind = a})---- | Link for this account.-arHref :: Lens' AccountRef (Maybe Text)-arHref = lens _arHref (\ s a -> s{_arHref = a})---- | Account name.-arName :: Lens' AccountRef (Maybe Text)-arName = lens _arName (\ s a -> s{_arName = a})---- | Account ID.-arId :: Lens' AccountRef (Maybe Text)-arId = lens _arId (\ s a -> s{_arId = a})--instance FromJSON AccountRef where-        parseJSON-          = withObject "AccountRef"-              (\ o ->-                 AccountRef' <$>-                   (o .:? "kind" .!= "analytics#accountRef") <*>-                     (o .:? "href")-                     <*> (o .:? "name")-                     <*> (o .:? "id"))--instance ToJSON AccountRef where-        toJSON AccountRef'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _arKind), ("href" .=) <$> _arHref,-                  ("name" .=) <$> _arName, ("id" .=) <$> _arId])---- | An entity Google Ads link collection provides a list of GA-Google Ads--- links Each resource in this collection corresponds to a single link.------ /See:/ 'entityAdWordsLinks' smart constructor.-data EntityAdWordsLinks =-  EntityAdWordsLinks'-    { _eawlNextLink     :: !(Maybe Text)-    , _eawlItemsPerPage :: !(Maybe (Textual Int32))-    , _eawlKind         :: !Text-    , _eawlItems        :: !(Maybe [EntityAdWordsLink])-    , _eawlTotalResults :: !(Maybe (Textual Int32))-    , _eawlStartIndex   :: !(Maybe (Textual Int32))-    , _eawlPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityAdWordsLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eawlNextLink'------ * 'eawlItemsPerPage'------ * 'eawlKind'------ * 'eawlItems'------ * 'eawlTotalResults'------ * 'eawlStartIndex'------ * 'eawlPreviousLink'-entityAdWordsLinks-    :: EntityAdWordsLinks-entityAdWordsLinks =-  EntityAdWordsLinks'-    { _eawlNextLink = Nothing-    , _eawlItemsPerPage = Nothing-    , _eawlKind = "analytics#entityAdWordsLinks"-    , _eawlItems = Nothing-    , _eawlTotalResults = Nothing-    , _eawlStartIndex = Nothing-    , _eawlPreviousLink = Nothing-    }----- | Next link for this Google Ads link collection.-eawlNextLink :: Lens' EntityAdWordsLinks (Maybe Text)-eawlNextLink-  = lens _eawlNextLink (\ s a -> s{_eawlNextLink = a})---- | The maximum number of entries the response can contain, regardless of--- the actual number of entries returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-eawlItemsPerPage :: Lens' EntityAdWordsLinks (Maybe Int32)-eawlItemsPerPage-  = lens _eawlItemsPerPage-      (\ s a -> s{_eawlItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-eawlKind :: Lens' EntityAdWordsLinks Text-eawlKind = lens _eawlKind (\ s a -> s{_eawlKind = a})---- | A list of entity Google Ads links.-eawlItems :: Lens' EntityAdWordsLinks [EntityAdWordsLink]-eawlItems-  = lens _eawlItems (\ s a -> s{_eawlItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-eawlTotalResults :: Lens' EntityAdWordsLinks (Maybe Int32)-eawlTotalResults-  = lens _eawlTotalResults-      (\ s a -> s{_eawlTotalResults = a})-      . mapping _Coerce---- | The starting index of the entries, which is 1 by default or otherwise--- specified by the start-index query parameter.-eawlStartIndex :: Lens' EntityAdWordsLinks (Maybe Int32)-eawlStartIndex-  = lens _eawlStartIndex-      (\ s a -> s{_eawlStartIndex = a})-      . mapping _Coerce---- | Previous link for this Google Ads link collection.-eawlPreviousLink :: Lens' EntityAdWordsLinks (Maybe Text)-eawlPreviousLink-  = lens _eawlPreviousLink-      (\ s a -> s{_eawlPreviousLink = a})--instance FromJSON EntityAdWordsLinks where-        parseJSON-          = withObject "EntityAdWordsLinks"-              (\ o ->-                 EntityAdWordsLinks' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#entityAdWordsLinks")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON EntityAdWordsLinks where-        toJSON EntityAdWordsLinks'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _eawlNextLink,-                  ("itemsPerPage" .=) <$> _eawlItemsPerPage,-                  Just ("kind" .= _eawlKind),-                  ("items" .=) <$> _eawlItems,-                  ("totalResults" .=) <$> _eawlTotalResults,-                  ("startIndex" .=) <$> _eawlStartIndex,-                  ("previousLink" .=) <$> _eawlPreviousLink])---- | A view (profile) collection lists Analytics views (profiles) to which--- the user has access. Each resource in the collection corresponds to a--- single Analytics view (profile).------ /See:/ 'proFiles' smart constructor.-data ProFiles =-  ProFiles'-    { _pfNextLink     :: !(Maybe Text)-    , _pfItemsPerPage :: !(Maybe (Textual Int32))-    , _pfKind         :: !Text-    , _pfUsername     :: !(Maybe Text)-    , _pfItems        :: !(Maybe [ProFile])-    , _pfTotalResults :: !(Maybe (Textual Int32))-    , _pfStartIndex   :: !(Maybe (Textual Int32))-    , _pfPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFiles' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfNextLink'------ * 'pfItemsPerPage'------ * 'pfKind'------ * 'pfUsername'------ * 'pfItems'------ * 'pfTotalResults'------ * 'pfStartIndex'------ * 'pfPreviousLink'-proFiles-    :: ProFiles-proFiles =-  ProFiles'-    { _pfNextLink = Nothing-    , _pfItemsPerPage = Nothing-    , _pfKind = "analytics#profiles"-    , _pfUsername = Nothing-    , _pfItems = Nothing-    , _pfTotalResults = Nothing-    , _pfStartIndex = Nothing-    , _pfPreviousLink = Nothing-    }----- | Link to next page for this view (profile) collection.-pfNextLink :: Lens' ProFiles (Maybe Text)-pfNextLink-  = lens _pfNextLink (\ s a -> s{_pfNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-pfItemsPerPage :: Lens' ProFiles (Maybe Int32)-pfItemsPerPage-  = lens _pfItemsPerPage-      (\ s a -> s{_pfItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-pfKind :: Lens' ProFiles Text-pfKind = lens _pfKind (\ s a -> s{_pfKind = a})---- | Email ID of the authenticated user-pfUsername :: Lens' ProFiles (Maybe Text)-pfUsername-  = lens _pfUsername (\ s a -> s{_pfUsername = a})---- | A list of views (profiles).-pfItems :: Lens' ProFiles [ProFile]-pfItems-  = lens _pfItems (\ s a -> s{_pfItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-pfTotalResults :: Lens' ProFiles (Maybe Int32)-pfTotalResults-  = lens _pfTotalResults-      (\ s a -> s{_pfTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-pfStartIndex :: Lens' ProFiles (Maybe Int32)-pfStartIndex-  = lens _pfStartIndex (\ s a -> s{_pfStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this view (profile) collection.-pfPreviousLink :: Lens' ProFiles (Maybe Text)-pfPreviousLink-  = lens _pfPreviousLink-      (\ s a -> s{_pfPreviousLink = a})--instance FromJSON ProFiles where-        parseJSON-          = withObject "ProFiles"-              (\ o ->-                 ProFiles' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#profiles")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON ProFiles where-        toJSON ProFiles'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _pfNextLink,-                  ("itemsPerPage" .=) <$> _pfItemsPerPage,-                  Just ("kind" .= _pfKind),-                  ("username" .=) <$> _pfUsername,-                  ("items" .=) <$> _pfItems,-                  ("totalResults" .=) <$> _pfTotalResults,-                  ("startIndex" .=) <$> _pfStartIndex,-                  ("previousLink" .=) <$> _pfPreviousLink])---- | Request template for the delete upload data request.------ /See:/ 'analyticsDataimportDeleteUploadDataRequest' smart constructor.-newtype AnalyticsDataimportDeleteUploadDataRequest =-  AnalyticsDataimportDeleteUploadDataRequest'-    { _addudrCustomDataImportUids :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnalyticsDataimportDeleteUploadDataRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'addudrCustomDataImportUids'-analyticsDataimportDeleteUploadDataRequest-    :: AnalyticsDataimportDeleteUploadDataRequest-analyticsDataimportDeleteUploadDataRequest =-  AnalyticsDataimportDeleteUploadDataRequest'-    {_addudrCustomDataImportUids = Nothing}----- | A list of upload UIDs.-addudrCustomDataImportUids :: Lens' AnalyticsDataimportDeleteUploadDataRequest [Text]-addudrCustomDataImportUids-  = lens _addudrCustomDataImportUids-      (\ s a -> s{_addudrCustomDataImportUids = a})-      . _Default-      . _Coerce--instance FromJSON-           AnalyticsDataimportDeleteUploadDataRequest-         where-        parseJSON-          = withObject-              "AnalyticsDataimportDeleteUploadDataRequest"-              (\ o ->-                 AnalyticsDataimportDeleteUploadDataRequest' <$>-                   (o .:? "customDataImportUids" .!= mempty))--instance ToJSON-           AnalyticsDataimportDeleteUploadDataRequest-         where-        toJSON-          AnalyticsDataimportDeleteUploadDataRequest'{..}-          = object-              (catMaybes-                 [("customDataImportUids" .=) <$>-                    _addudrCustomDataImportUids])---- | JSON template for Analytics Entity Google Ads Link.------ /See:/ 'entityAdWordsLink' smart constructor.-data EntityAdWordsLink =-  EntityAdWordsLink'-    { _entAdWordsAccounts :: !(Maybe [AdWordsAccount])-    , _entProFileIds      :: !(Maybe [Text])-    , _entKind            :: !Text-    , _entSelfLink        :: !(Maybe Text)-    , _entName            :: !(Maybe Text)-    , _entId              :: !(Maybe Text)-    , _entEntity          :: !(Maybe EntityAdWordsLinkEntity)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityAdWordsLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'entAdWordsAccounts'------ * 'entProFileIds'------ * 'entKind'------ * 'entSelfLink'------ * 'entName'------ * 'entId'------ * 'entEntity'-entityAdWordsLink-    :: EntityAdWordsLink-entityAdWordsLink =-  EntityAdWordsLink'-    { _entAdWordsAccounts = Nothing-    , _entProFileIds = Nothing-    , _entKind = "analytics#entityAdWordsLink"-    , _entSelfLink = Nothing-    , _entName = Nothing-    , _entId = Nothing-    , _entEntity = Nothing-    }----- | A list of Google Ads client accounts. These cannot be MCC accounts. This--- field is required when creating a Google Ads link. It cannot be empty.-entAdWordsAccounts :: Lens' EntityAdWordsLink [AdWordsAccount]-entAdWordsAccounts-  = lens _entAdWordsAccounts-      (\ s a -> s{_entAdWordsAccounts = a})-      . _Default-      . _Coerce---- | IDs of linked Views (Profiles) represented as strings.-entProFileIds :: Lens' EntityAdWordsLink [Text]-entProFileIds-  = lens _entProFileIds-      (\ s a -> s{_entProFileIds = a})-      . _Default-      . _Coerce---- | Resource type for entity Google Ads link.-entKind :: Lens' EntityAdWordsLink Text-entKind = lens _entKind (\ s a -> s{_entKind = a})---- | URL link for this Google Analytics - Google Ads link.-entSelfLink :: Lens' EntityAdWordsLink (Maybe Text)-entSelfLink-  = lens _entSelfLink (\ s a -> s{_entSelfLink = a})---- | Name of the link. This field is required when creating a Google Ads--- link.-entName :: Lens' EntityAdWordsLink (Maybe Text)-entName = lens _entName (\ s a -> s{_entName = a})---- | Entity Google Ads link ID-entId :: Lens' EntityAdWordsLink (Maybe Text)-entId = lens _entId (\ s a -> s{_entId = a})---- | Web property being linked.-entEntity :: Lens' EntityAdWordsLink (Maybe EntityAdWordsLinkEntity)-entEntity-  = lens _entEntity (\ s a -> s{_entEntity = a})--instance FromJSON EntityAdWordsLink where-        parseJSON-          = withObject "EntityAdWordsLink"-              (\ o ->-                 EntityAdWordsLink' <$>-                   (o .:? "adWordsAccounts" .!= mempty) <*>-                     (o .:? "profileIds" .!= mempty)-                     <*> (o .:? "kind" .!= "analytics#entityAdWordsLink")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "name")-                     <*> (o .:? "id")-                     <*> (o .:? "entity"))--instance ToJSON EntityAdWordsLink where-        toJSON EntityAdWordsLink'{..}-          = object-              (catMaybes-                 [("adWordsAccounts" .=) <$> _entAdWordsAccounts,-                  ("profileIds" .=) <$> _entProFileIds,-                  Just ("kind" .= _entKind),-                  ("selfLink" .=) <$> _entSelfLink,-                  ("name" .=) <$> _entName, ("id" .=) <$> _entId,-                  ("entity" .=) <$> _entEntity])---- | Details for the filter of the type SEARCH_AND_REPLACE.------ /See:/ 'filterSearchAndReplaceDetails' smart constructor.-data FilterSearchAndReplaceDetails =-  FilterSearchAndReplaceDetails'-    { _fsardFieldIndex    :: !(Maybe (Textual Int32))-    , _fsardField         :: !(Maybe Text)-    , _fsardSearchString  :: !(Maybe Text)-    , _fsardReplaceString :: !(Maybe Text)-    , _fsardCaseSensitive :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterSearchAndReplaceDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fsardFieldIndex'------ * 'fsardField'------ * 'fsardSearchString'------ * 'fsardReplaceString'------ * 'fsardCaseSensitive'-filterSearchAndReplaceDetails-    :: FilterSearchAndReplaceDetails-filterSearchAndReplaceDetails =-  FilterSearchAndReplaceDetails'-    { _fsardFieldIndex = Nothing-    , _fsardField = Nothing-    , _fsardSearchString = Nothing-    , _fsardReplaceString = Nothing-    , _fsardCaseSensitive = Nothing-    }----- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fsardFieldIndex :: Lens' FilterSearchAndReplaceDetails (Maybe Int32)-fsardFieldIndex-  = lens _fsardFieldIndex-      (\ s a -> s{_fsardFieldIndex = a})-      . mapping _Coerce---- | Field to use in the filter.-fsardField :: Lens' FilterSearchAndReplaceDetails (Maybe Text)-fsardField-  = lens _fsardField (\ s a -> s{_fsardField = a})---- | Term to search.-fsardSearchString :: Lens' FilterSearchAndReplaceDetails (Maybe Text)-fsardSearchString-  = lens _fsardSearchString-      (\ s a -> s{_fsardSearchString = a})---- | Term to replace the search term with.-fsardReplaceString :: Lens' FilterSearchAndReplaceDetails (Maybe Text)-fsardReplaceString-  = lens _fsardReplaceString-      (\ s a -> s{_fsardReplaceString = a})---- | Determines if the filter is case sensitive.-fsardCaseSensitive :: Lens' FilterSearchAndReplaceDetails (Maybe Bool)-fsardCaseSensitive-  = lens _fsardCaseSensitive-      (\ s a -> s{_fsardCaseSensitive = a})--instance FromJSON FilterSearchAndReplaceDetails where-        parseJSON-          = withObject "FilterSearchAndReplaceDetails"-              (\ o ->-                 FilterSearchAndReplaceDetails' <$>-                   (o .:? "fieldIndex") <*> (o .:? "field") <*>-                     (o .:? "searchString")-                     <*> (o .:? "replaceString")-                     <*> (o .:? "caseSensitive"))--instance ToJSON FilterSearchAndReplaceDetails where-        toJSON FilterSearchAndReplaceDetails'{..}-          = object-              (catMaybes-                 [("fieldIndex" .=) <$> _fsardFieldIndex,-                  ("field" .=) <$> _fsardField,-                  ("searchString" .=) <$> _fsardSearchString,-                  ("replaceString" .=) <$> _fsardReplaceString,-                  ("caseSensitive" .=) <$> _fsardCaseSensitive])---- | Permissions the user has for this view (profile).------ /See:/ 'proFilePermissions' smart constructor.-newtype ProFilePermissions =-  ProFilePermissions'-    { _pfpEffective :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFilePermissions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfpEffective'-proFilePermissions-    :: ProFilePermissions-proFilePermissions = ProFilePermissions' {_pfpEffective = Nothing}----- | All the permissions that the user has for this view (profile). These--- include any implied permissions (e.g., EDIT implies VIEW) or inherited--- permissions from the parent web property.-pfpEffective :: Lens' ProFilePermissions [Text]-pfpEffective-  = lens _pfpEffective (\ s a -> s{_pfpEffective = a})-      . _Default-      . _Coerce--instance FromJSON ProFilePermissions where-        parseJSON-          = withObject "ProFilePermissions"-              (\ o ->-                 ProFilePermissions' <$>-                   (o .:? "effective" .!= mempty))--instance ToJSON ProFilePermissions where-        toJSON ProFilePermissions'{..}-          = object-              (catMaybes [("effective" .=) <$> _pfpEffective])---- | JSON template for an Analytics view (profile).------ /See:/ 'proFile' smart constructor.-data ProFile =-  ProFile'-    { _pParentLink                        :: !(Maybe ProFileParentLink)-    , _pECommerceTracking                 :: !(Maybe Bool)-    , _pSiteSearchCategoryParameters      :: !(Maybe Text)-    , _pWebPropertyId                     :: !(Maybe Text)-    , _pChildLink                         :: !(Maybe ProFileChildLink)-    , _pSiteSearchQueryParameters         :: !(Maybe Text)-    , _pKind                              :: !Text-    , _pDefaultPage                       :: !(Maybe Text)-    , _pCreated                           :: !(Maybe DateTime')-    , _pSelfLink                          :: !(Maybe Text)-    , _pAccountId                         :: !(Maybe Text)-    , _pBotFilteringEnabled               :: !(Maybe Bool)-    , _pName                              :: !(Maybe Text)-    , _pCurrency                          :: !(Maybe Text)-    , _pStarred                           :: !(Maybe Bool)-    , _pInternalWebPropertyId             :: !(Maybe Text)-    , _pId                                :: !(Maybe Text)-    , _pUpdated                           :: !(Maybe DateTime')-    , _pPermissions                       :: !(Maybe ProFilePermissions)-    , _pWebsiteURL                        :: !(Maybe Text)-    , _pType                              :: !(Maybe Text)-    , _pStripSiteSearchCategoryParameters :: !(Maybe Bool)-    , _pTimezone                          :: !(Maybe Text)-    , _pExcludeQueryParameters            :: !(Maybe Text)-    , _pEnhancedECommerceTracking         :: !(Maybe Bool)-    , _pStripSiteSearchQueryParameters    :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pParentLink'------ * 'pECommerceTracking'------ * 'pSiteSearchCategoryParameters'------ * 'pWebPropertyId'------ * 'pChildLink'------ * 'pSiteSearchQueryParameters'------ * 'pKind'------ * 'pDefaultPage'------ * 'pCreated'------ * 'pSelfLink'------ * 'pAccountId'------ * 'pBotFilteringEnabled'------ * 'pName'------ * 'pCurrency'------ * 'pStarred'------ * 'pInternalWebPropertyId'------ * 'pId'------ * 'pUpdated'------ * 'pPermissions'------ * 'pWebsiteURL'------ * 'pType'------ * 'pStripSiteSearchCategoryParameters'------ * 'pTimezone'------ * 'pExcludeQueryParameters'------ * 'pEnhancedECommerceTracking'------ * 'pStripSiteSearchQueryParameters'-proFile-    :: ProFile-proFile =-  ProFile'-    { _pParentLink = Nothing-    , _pECommerceTracking = Nothing-    , _pSiteSearchCategoryParameters = Nothing-    , _pWebPropertyId = Nothing-    , _pChildLink = Nothing-    , _pSiteSearchQueryParameters = Nothing-    , _pKind = "analytics#profile"-    , _pDefaultPage = Nothing-    , _pCreated = Nothing-    , _pSelfLink = Nothing-    , _pAccountId = Nothing-    , _pBotFilteringEnabled = Nothing-    , _pName = Nothing-    , _pCurrency = Nothing-    , _pStarred = Nothing-    , _pInternalWebPropertyId = Nothing-    , _pId = Nothing-    , _pUpdated = Nothing-    , _pPermissions = Nothing-    , _pWebsiteURL = Nothing-    , _pType = Nothing-    , _pStripSiteSearchCategoryParameters = Nothing-    , _pTimezone = Nothing-    , _pExcludeQueryParameters = Nothing-    , _pEnhancedECommerceTracking = Nothing-    , _pStripSiteSearchQueryParameters = Nothing-    }----- | Parent link for this view (profile). Points to the web property to which--- this view (profile) belongs.-pParentLink :: Lens' ProFile (Maybe ProFileParentLink)-pParentLink-  = lens _pParentLink (\ s a -> s{_pParentLink = a})---- | Indicates whether ecommerce tracking is enabled for this view (profile).-pECommerceTracking :: Lens' ProFile (Maybe Bool)-pECommerceTracking-  = lens _pECommerceTracking-      (\ s a -> s{_pECommerceTracking = a})---- | Site search category parameters for this view (profile).-pSiteSearchCategoryParameters :: Lens' ProFile (Maybe Text)-pSiteSearchCategoryParameters-  = lens _pSiteSearchCategoryParameters-      (\ s a -> s{_pSiteSearchCategoryParameters = a})---- | Web property ID of the form UA-XXXXX-YY to which this view (profile)--- belongs.-pWebPropertyId :: Lens' ProFile (Maybe Text)-pWebPropertyId-  = lens _pWebPropertyId-      (\ s a -> s{_pWebPropertyId = a})---- | Child link for this view (profile). Points to the list of goals for this--- view (profile).-pChildLink :: Lens' ProFile (Maybe ProFileChildLink)-pChildLink-  = lens _pChildLink (\ s a -> s{_pChildLink = a})---- | The site search query parameters for this view (profile).-pSiteSearchQueryParameters :: Lens' ProFile (Maybe Text)-pSiteSearchQueryParameters-  = lens _pSiteSearchQueryParameters-      (\ s a -> s{_pSiteSearchQueryParameters = a})---- | Resource type for Analytics view (profile).-pKind :: Lens' ProFile Text-pKind = lens _pKind (\ s a -> s{_pKind = a})---- | Default page for this view (profile).-pDefaultPage :: Lens' ProFile (Maybe Text)-pDefaultPage-  = lens _pDefaultPage (\ s a -> s{_pDefaultPage = a})---- | Time this view (profile) was created.-pCreated :: Lens' ProFile (Maybe UTCTime)-pCreated-  = lens _pCreated (\ s a -> s{_pCreated = a}) .-      mapping _DateTime---- | Link for this view (profile).-pSelfLink :: Lens' ProFile (Maybe Text)-pSelfLink-  = lens _pSelfLink (\ s a -> s{_pSelfLink = a})---- | Account ID to which this view (profile) belongs.-pAccountId :: Lens' ProFile (Maybe Text)-pAccountId-  = lens _pAccountId (\ s a -> s{_pAccountId = a})---- | Indicates whether bot filtering is enabled for this view (profile).-pBotFilteringEnabled :: Lens' ProFile (Maybe Bool)-pBotFilteringEnabled-  = lens _pBotFilteringEnabled-      (\ s a -> s{_pBotFilteringEnabled = a})---- | Name of this view (profile).-pName :: Lens' ProFile (Maybe Text)-pName = lens _pName (\ s a -> s{_pName = a})---- | The currency type associated with this view (profile), defaults to USD.--- The supported values are: USD, JPY, EUR, GBP, AUD, KRW, BRL, CNY, DKK,--- RUB, SEK, NOK, PLN, TRY, TWD, HKD, THB, IDR, ARS, MXN, VND, PHP, INR,--- CHF, CAD, CZK, NZD, HUF, BGN, LTL, ZAR, UAH, AED, BOB, CLP, COP, EGP,--- HRK, ILS, MAD, MYR, PEN, PKR, RON, RSD, SAR, SGD, VEF, LVL-pCurrency :: Lens' ProFile (Maybe Text)-pCurrency-  = lens _pCurrency (\ s a -> s{_pCurrency = a})---- | Indicates whether this view (profile) is starred or not.-pStarred :: Lens' ProFile (Maybe Bool)-pStarred = lens _pStarred (\ s a -> s{_pStarred = a})---- | Internal ID for the web property to which this view (profile) belongs.-pInternalWebPropertyId :: Lens' ProFile (Maybe Text)-pInternalWebPropertyId-  = lens _pInternalWebPropertyId-      (\ s a -> s{_pInternalWebPropertyId = a})---- | View (Profile) ID.-pId :: Lens' ProFile (Maybe Text)-pId = lens _pId (\ s a -> s{_pId = a})---- | Time this view (profile) was last modified.-pUpdated :: Lens' ProFile (Maybe UTCTime)-pUpdated-  = lens _pUpdated (\ s a -> s{_pUpdated = a}) .-      mapping _DateTime---- | Permissions the user has for this view (profile).-pPermissions :: Lens' ProFile (Maybe ProFilePermissions)-pPermissions-  = lens _pPermissions (\ s a -> s{_pPermissions = a})---- | Website URL for this view (profile).-pWebsiteURL :: Lens' ProFile (Maybe Text)-pWebsiteURL-  = lens _pWebsiteURL (\ s a -> s{_pWebsiteURL = a})---- | View (Profile) type. Supported types: WEB or APP.-pType :: Lens' ProFile (Maybe Text)-pType = lens _pType (\ s a -> s{_pType = a})---- | Whether or not Analytics will strip search category parameters from the--- URLs in your reports.-pStripSiteSearchCategoryParameters :: Lens' ProFile (Maybe Bool)-pStripSiteSearchCategoryParameters-  = lens _pStripSiteSearchCategoryParameters-      (\ s a -> s{_pStripSiteSearchCategoryParameters = a})---- | Time zone for which this view (profile) has been configured. Time zones--- are identified by strings from the TZ database.-pTimezone :: Lens' ProFile (Maybe Text)-pTimezone-  = lens _pTimezone (\ s a -> s{_pTimezone = a})---- | The query parameters that are excluded from this view (profile).-pExcludeQueryParameters :: Lens' ProFile (Maybe Text)-pExcludeQueryParameters-  = lens _pExcludeQueryParameters-      (\ s a -> s{_pExcludeQueryParameters = a})---- | Indicates whether enhanced ecommerce tracking is enabled for this view--- (profile). This property can only be enabled if ecommerce tracking is--- enabled.-pEnhancedECommerceTracking :: Lens' ProFile (Maybe Bool)-pEnhancedECommerceTracking-  = lens _pEnhancedECommerceTracking-      (\ s a -> s{_pEnhancedECommerceTracking = a})---- | Whether or not Analytics will strip search query parameters from the--- URLs in your reports.-pStripSiteSearchQueryParameters :: Lens' ProFile (Maybe Bool)-pStripSiteSearchQueryParameters-  = lens _pStripSiteSearchQueryParameters-      (\ s a -> s{_pStripSiteSearchQueryParameters = a})--instance FromJSON ProFile where-        parseJSON-          = withObject "ProFile"-              (\ o ->-                 ProFile' <$>-                   (o .:? "parentLink") <*> (o .:? "eCommerceTracking")-                     <*> (o .:? "siteSearchCategoryParameters")-                     <*> (o .:? "webPropertyId")-                     <*> (o .:? "childLink")-                     <*> (o .:? "siteSearchQueryParameters")-                     <*> (o .:? "kind" .!= "analytics#profile")-                     <*> (o .:? "defaultPage")-                     <*> (o .:? "created")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "botFilteringEnabled")-                     <*> (o .:? "name")-                     <*> (o .:? "currency")-                     <*> (o .:? "starred")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "permissions")-                     <*> (o .:? "websiteUrl")-                     <*> (o .:? "type")-                     <*> (o .:? "stripSiteSearchCategoryParameters")-                     <*> (o .:? "timezone")-                     <*> (o .:? "excludeQueryParameters")-                     <*> (o .:? "enhancedECommerceTracking")-                     <*> (o .:? "stripSiteSearchQueryParameters"))--instance ToJSON ProFile where-        toJSON ProFile'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _pParentLink,-                  ("eCommerceTracking" .=) <$> _pECommerceTracking,-                  ("siteSearchCategoryParameters" .=) <$>-                    _pSiteSearchCategoryParameters,-                  ("webPropertyId" .=) <$> _pWebPropertyId,-                  ("childLink" .=) <$> _pChildLink,-                  ("siteSearchQueryParameters" .=) <$>-                    _pSiteSearchQueryParameters,-                  Just ("kind" .= _pKind),-                  ("defaultPage" .=) <$> _pDefaultPage,-                  ("created" .=) <$> _pCreated,-                  ("selfLink" .=) <$> _pSelfLink,-                  ("accountId" .=) <$> _pAccountId,-                  ("botFilteringEnabled" .=) <$> _pBotFilteringEnabled,-                  ("name" .=) <$> _pName,-                  ("currency" .=) <$> _pCurrency,-                  ("starred" .=) <$> _pStarred,-                  ("internalWebPropertyId" .=) <$>-                    _pInternalWebPropertyId,-                  ("id" .=) <$> _pId, ("updated" .=) <$> _pUpdated,-                  ("permissions" .=) <$> _pPermissions,-                  ("websiteUrl" .=) <$> _pWebsiteURL,-                  ("type" .=) <$> _pType,-                  ("stripSiteSearchCategoryParameters" .=) <$>-                    _pStripSiteSearchCategoryParameters,-                  ("timezone" .=) <$> _pTimezone,-                  ("excludeQueryParameters" .=) <$>-                    _pExcludeQueryParameters,-                  ("enhancedECommerceTracking" .=) <$>-                    _pEnhancedECommerceTracking,-                  ("stripSiteSearchQueryParameters" .=) <$>-                    _pStripSiteSearchQueryParameters])---- | An AccountSummary collection lists a summary of accounts, properties and--- views (profiles) to which the user has access. Each resource in the--- collection corresponds to a single AccountSummary.------ /See:/ 'accountSummaries' smart constructor.-data AccountSummaries =-  AccountSummaries'-    { _asNextLink     :: !(Maybe Text)-    , _asItemsPerPage :: !(Maybe (Textual Int32))-    , _asKind         :: !Text-    , _asUsername     :: !(Maybe Text)-    , _asItems        :: !(Maybe [AccountSummary])-    , _asTotalResults :: !(Maybe (Textual Int32))-    , _asStartIndex   :: !(Maybe (Textual Int32))-    , _asPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountSummaries' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asNextLink'------ * 'asItemsPerPage'------ * 'asKind'------ * 'asUsername'------ * 'asItems'------ * 'asTotalResults'------ * 'asStartIndex'------ * 'asPreviousLink'-accountSummaries-    :: AccountSummaries-accountSummaries =-  AccountSummaries'-    { _asNextLink = Nothing-    , _asItemsPerPage = Nothing-    , _asKind = "analytics#accountSummaries"-    , _asUsername = Nothing-    , _asItems = Nothing-    , _asTotalResults = Nothing-    , _asStartIndex = Nothing-    , _asPreviousLink = Nothing-    }----- | Link to next page for this AccountSummary collection.-asNextLink :: Lens' AccountSummaries (Maybe Text)-asNextLink-  = lens _asNextLink (\ s a -> s{_asNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-asItemsPerPage :: Lens' AccountSummaries (Maybe Int32)-asItemsPerPage-  = lens _asItemsPerPage-      (\ s a -> s{_asItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-asKind :: Lens' AccountSummaries Text-asKind = lens _asKind (\ s a -> s{_asKind = a})---- | Email ID of the authenticated user-asUsername :: Lens' AccountSummaries (Maybe Text)-asUsername-  = lens _asUsername (\ s a -> s{_asUsername = a})---- | A list of AccountSummaries.-asItems :: Lens' AccountSummaries [AccountSummary]-asItems-  = lens _asItems (\ s a -> s{_asItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-asTotalResults :: Lens' AccountSummaries (Maybe Int32)-asTotalResults-  = lens _asTotalResults-      (\ s a -> s{_asTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-asStartIndex :: Lens' AccountSummaries (Maybe Int32)-asStartIndex-  = lens _asStartIndex (\ s a -> s{_asStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this AccountSummary collection.-asPreviousLink :: Lens' AccountSummaries (Maybe Text)-asPreviousLink-  = lens _asPreviousLink-      (\ s a -> s{_asPreviousLink = a})--instance FromJSON AccountSummaries where-        parseJSON-          = withObject "AccountSummaries"-              (\ o ->-                 AccountSummaries' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#accountSummaries")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON AccountSummaries where-        toJSON AccountSummaries'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _asNextLink,-                  ("itemsPerPage" .=) <$> _asItemsPerPage,-                  Just ("kind" .= _asKind),-                  ("username" .=) <$> _asUsername,-                  ("items" .=) <$> _asItems,-                  ("totalResults" .=) <$> _asTotalResults,-                  ("startIndex" .=) <$> _asStartIndex,-                  ("previousLink" .=) <$> _asPreviousLink])---- | Details for the goal of the type EVENT.------ /See:/ 'goalEventDetails' smart constructor.-data GoalEventDetails =-  GoalEventDetails'-    { _gedUseEventValue   :: !(Maybe Bool)-    , _gedEventConditions :: !(Maybe [GoalEventDetailsEventConditionsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalEventDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gedUseEventValue'------ * 'gedEventConditions'-goalEventDetails-    :: GoalEventDetails-goalEventDetails =-  GoalEventDetails' {_gedUseEventValue = Nothing, _gedEventConditions = Nothing}----- | Determines if the event value should be used as the value for this goal.-gedUseEventValue :: Lens' GoalEventDetails (Maybe Bool)-gedUseEventValue-  = lens _gedUseEventValue-      (\ s a -> s{_gedUseEventValue = a})---- | List of event conditions.-gedEventConditions :: Lens' GoalEventDetails [GoalEventDetailsEventConditionsItem]-gedEventConditions-  = lens _gedEventConditions-      (\ s a -> s{_gedEventConditions = a})-      . _Default-      . _Coerce--instance FromJSON GoalEventDetails where-        parseJSON-          = withObject "GoalEventDetails"-              (\ o ->-                 GoalEventDetails' <$>-                   (o .:? "useEventValue") <*>-                     (o .:? "eventConditions" .!= mempty))--instance ToJSON GoalEventDetails where-        toJSON GoalEventDetails'{..}-          = object-              (catMaybes-                 [("useEventValue" .=) <$> _gedUseEventValue,-                  ("eventConditions" .=) <$> _gedEventConditions])---- | JSON template for an Analytics WebPropertySummary. WebPropertySummary--- returns basic information (i.e., summary) for a web property.------ /See:/ 'webPropertySummary' smart constructor.-data WebPropertySummary =-  WebPropertySummary'-    { _wpsKind                  :: !Text-    , _wpsProFiles              :: !(Maybe [ProFileSummary])-    , _wpsName                  :: !(Maybe Text)-    , _wpsStarred               :: !(Maybe Bool)-    , _wpsInternalWebPropertyId :: !(Maybe Text)-    , _wpsId                    :: !(Maybe Text)-    , _wpsWebsiteURL            :: !(Maybe Text)-    , _wpsLevel                 :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebPropertySummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpsKind'------ * 'wpsProFiles'------ * 'wpsName'------ * 'wpsStarred'------ * 'wpsInternalWebPropertyId'------ * 'wpsId'------ * 'wpsWebsiteURL'------ * 'wpsLevel'-webPropertySummary-    :: WebPropertySummary-webPropertySummary =-  WebPropertySummary'-    { _wpsKind = "analytics#webPropertySummary"-    , _wpsProFiles = Nothing-    , _wpsName = Nothing-    , _wpsStarred = Nothing-    , _wpsInternalWebPropertyId = Nothing-    , _wpsId = Nothing-    , _wpsWebsiteURL = Nothing-    , _wpsLevel = Nothing-    }----- | Resource type for Analytics WebPropertySummary.-wpsKind :: Lens' WebPropertySummary Text-wpsKind = lens _wpsKind (\ s a -> s{_wpsKind = a})---- | List of profiles under this web property.-wpsProFiles :: Lens' WebPropertySummary [ProFileSummary]-wpsProFiles-  = lens _wpsProFiles (\ s a -> s{_wpsProFiles = a}) .-      _Default-      . _Coerce---- | Web property name.-wpsName :: Lens' WebPropertySummary (Maybe Text)-wpsName = lens _wpsName (\ s a -> s{_wpsName = a})---- | Indicates whether this web property is starred or not.-wpsStarred :: Lens' WebPropertySummary (Maybe Bool)-wpsStarred-  = lens _wpsStarred (\ s a -> s{_wpsStarred = a})---- | Internal ID for this web property.-wpsInternalWebPropertyId :: Lens' WebPropertySummary (Maybe Text)-wpsInternalWebPropertyId-  = lens _wpsInternalWebPropertyId-      (\ s a -> s{_wpsInternalWebPropertyId = a})---- | Web property ID of the form UA-XXXXX-YY.-wpsId :: Lens' WebPropertySummary (Maybe Text)-wpsId = lens _wpsId (\ s a -> s{_wpsId = a})---- | Website url for this web property.-wpsWebsiteURL :: Lens' WebPropertySummary (Maybe Text)-wpsWebsiteURL-  = lens _wpsWebsiteURL-      (\ s a -> s{_wpsWebsiteURL = a})---- | Level for this web property. Possible values are STANDARD or PREMIUM.-wpsLevel :: Lens' WebPropertySummary (Maybe Text)-wpsLevel = lens _wpsLevel (\ s a -> s{_wpsLevel = a})--instance FromJSON WebPropertySummary where-        parseJSON-          = withObject "WebPropertySummary"-              (\ o ->-                 WebPropertySummary' <$>-                   (o .:? "kind" .!= "analytics#webPropertySummary") <*>-                     (o .:? "profiles" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "starred")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "websiteUrl")-                     <*> (o .:? "level"))--instance ToJSON WebPropertySummary where-        toJSON WebPropertySummary'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _wpsKind),-                  ("profiles" .=) <$> _wpsProFiles,-                  ("name" .=) <$> _wpsName,-                  ("starred" .=) <$> _wpsStarred,-                  ("internalWebPropertyId" .=) <$>-                    _wpsInternalWebPropertyId,-                  ("id" .=) <$> _wpsId,-                  ("websiteUrl" .=) <$> _wpsWebsiteURL,-                  ("level" .=) <$> _wpsLevel])---- | A filter collection lists filters created by users in an Analytics--- account. Each resource in the collection corresponds to a filter.------ /See:/ 'filters' smart constructor.-data Filters =-  Filters'-    { _fNextLink     :: !(Maybe Text)-    , _fItemsPerPage :: !(Maybe (Textual Int32))-    , _fKind         :: !Text-    , _fUsername     :: !(Maybe Text)-    , _fItems        :: !(Maybe [Filter])-    , _fTotalResults :: !(Maybe (Textual Int32))-    , _fStartIndex   :: !(Maybe (Textual Int32))-    , _fPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Filters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fNextLink'------ * 'fItemsPerPage'------ * 'fKind'------ * 'fUsername'------ * 'fItems'------ * 'fTotalResults'------ * 'fStartIndex'------ * 'fPreviousLink'-filters-    :: Filters-filters =-  Filters'-    { _fNextLink = Nothing-    , _fItemsPerPage = Nothing-    , _fKind = "analytics#filters"-    , _fUsername = Nothing-    , _fItems = Nothing-    , _fTotalResults = Nothing-    , _fStartIndex = Nothing-    , _fPreviousLink = Nothing-    }----- | Link to next page for this filter collection.-fNextLink :: Lens' Filters (Maybe Text)-fNextLink-  = lens _fNextLink (\ s a -> s{_fNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to--- 1,000 with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-fItemsPerPage :: Lens' Filters (Maybe Int32)-fItemsPerPage-  = lens _fItemsPerPage-      (\ s a -> s{_fItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-fKind :: Lens' Filters Text-fKind = lens _fKind (\ s a -> s{_fKind = a})---- | Email ID of the authenticated user-fUsername :: Lens' Filters (Maybe Text)-fUsername-  = lens _fUsername (\ s a -> s{_fUsername = a})---- | A list of filters.-fItems :: Lens' Filters [Filter]-fItems-  = lens _fItems (\ s a -> s{_fItems = a}) . _Default .-      _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-fTotalResults :: Lens' Filters (Maybe Int32)-fTotalResults-  = lens _fTotalResults-      (\ s a -> s{_fTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-fStartIndex :: Lens' Filters (Maybe Int32)-fStartIndex-  = lens _fStartIndex (\ s a -> s{_fStartIndex = a}) .-      mapping _Coerce---- | Link to previous page for this filter collection.-fPreviousLink :: Lens' Filters (Maybe Text)-fPreviousLink-  = lens _fPreviousLink-      (\ s a -> s{_fPreviousLink = a})--instance FromJSON Filters where-        parseJSON-          = withObject "Filters"-              (\ o ->-                 Filters' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#filters")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Filters where-        toJSON Filters'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _fNextLink,-                  ("itemsPerPage" .=) <$> _fItemsPerPage,-                  Just ("kind" .= _fKind),-                  ("username" .=) <$> _fUsername,-                  ("items" .=) <$> _fItems,-                  ("totalResults" .=) <$> _fTotalResults,-                  ("startIndex" .=) <$> _fStartIndex,-                  ("previousLink" .=) <$> _fPreviousLink])---- | Analytics data for a given view (profile).------ /See:/ 'gaData' smart constructor.-data GaData =-  GaData'-    { _gdNextLink            :: !(Maybe Text)-    , _gdSampleSpace         :: !(Maybe (Textual Int64))-    , _gdItemsPerPage        :: !(Maybe (Textual Int32))-    , _gdProFileInfo         :: !(Maybe GaDataProFileInfo)-    , _gdKind                :: !Text-    , _gdSampleSize          :: !(Maybe (Textual Int64))-    , _gdRows                :: !(Maybe [[Text]])-    , _gdSelfLink            :: !(Maybe Text)-    , _gdQuery               :: !(Maybe GaDataQuery)-    , _gdColumnHeaders       :: !(Maybe [GaDataColumnHeadersItem])-    , _gdId                  :: !(Maybe Text)-    , _gdTotalResults        :: !(Maybe (Textual Int32))-    , _gdDataLastRefreshed   :: !(Maybe (Textual Int64))-    , _gdDataTable           :: !(Maybe GaDataDataTable)-    , _gdContainsSampledData :: !(Maybe Bool)-    , _gdTotalsForAllResults :: !(Maybe GaDataTotalsForAllResults)-    , _gdPreviousLink        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdNextLink'------ * 'gdSampleSpace'------ * 'gdItemsPerPage'------ * 'gdProFileInfo'------ * 'gdKind'------ * 'gdSampleSize'------ * 'gdRows'------ * 'gdSelfLink'------ * 'gdQuery'------ * 'gdColumnHeaders'------ * 'gdId'------ * 'gdTotalResults'------ * 'gdDataLastRefreshed'------ * 'gdDataTable'------ * 'gdContainsSampledData'------ * 'gdTotalsForAllResults'------ * 'gdPreviousLink'-gaData-    :: GaData-gaData =-  GaData'-    { _gdNextLink = Nothing-    , _gdSampleSpace = Nothing-    , _gdItemsPerPage = Nothing-    , _gdProFileInfo = Nothing-    , _gdKind = "analytics#gaData"-    , _gdSampleSize = Nothing-    , _gdRows = Nothing-    , _gdSelfLink = Nothing-    , _gdQuery = Nothing-    , _gdColumnHeaders = Nothing-    , _gdId = Nothing-    , _gdTotalResults = Nothing-    , _gdDataLastRefreshed = Nothing-    , _gdDataTable = Nothing-    , _gdContainsSampledData = Nothing-    , _gdTotalsForAllResults = Nothing-    , _gdPreviousLink = Nothing-    }----- | Link to next page for this Analytics data query.-gdNextLink :: Lens' GaData (Maybe Text)-gdNextLink-  = lens _gdNextLink (\ s a -> s{_gdNextLink = a})---- | Total size of the sample space from which the samples were selected.-gdSampleSpace :: Lens' GaData (Maybe Int64)-gdSampleSpace-  = lens _gdSampleSpace-      (\ s a -> s{_gdSampleSpace = a})-      . mapping _Coerce---- | The maximum number of rows the response can contain, regardless of the--- actual number of rows returned. Its value ranges from 1 to 10,000 with a--- value of 1000 by default, or otherwise specified by the max-results--- query parameter.-gdItemsPerPage :: Lens' GaData (Maybe Int32)-gdItemsPerPage-  = lens _gdItemsPerPage-      (\ s a -> s{_gdItemsPerPage = a})-      . mapping _Coerce---- | Information for the view (profile), for which the Analytics data was--- requested.-gdProFileInfo :: Lens' GaData (Maybe GaDataProFileInfo)-gdProFileInfo-  = lens _gdProFileInfo-      (\ s a -> s{_gdProFileInfo = a})---- | Resource type.-gdKind :: Lens' GaData Text-gdKind = lens _gdKind (\ s a -> s{_gdKind = a})---- | The number of samples used to calculate the result.-gdSampleSize :: Lens' GaData (Maybe Int64)-gdSampleSize-  = lens _gdSampleSize (\ s a -> s{_gdSampleSize = a})-      . mapping _Coerce---- | Analytics data rows, where each row contains a list of dimension values--- followed by the metric values. The order of dimensions and metrics is--- same as specified in the request.-gdRows :: Lens' GaData [[Text]]-gdRows-  = lens _gdRows (\ s a -> s{_gdRows = a}) . _Default .-      _Coerce---- | Link to this page.-gdSelfLink :: Lens' GaData (Maybe Text)-gdSelfLink-  = lens _gdSelfLink (\ s a -> s{_gdSelfLink = a})---- | Analytics data request query parameters.-gdQuery :: Lens' GaData (Maybe GaDataQuery)-gdQuery = lens _gdQuery (\ s a -> s{_gdQuery = a})---- | Column headers that list dimension names followed by the metric names.--- The order of dimensions and metrics is same as specified in the request.-gdColumnHeaders :: Lens' GaData [GaDataColumnHeadersItem]-gdColumnHeaders-  = lens _gdColumnHeaders-      (\ s a -> s{_gdColumnHeaders = a})-      . _Default-      . _Coerce---- | Unique ID for this data response.-gdId :: Lens' GaData (Maybe Text)-gdId = lens _gdId (\ s a -> s{_gdId = a})---- | The total number of rows for the query, regardless of the number of rows--- in the response.-gdTotalResults :: Lens' GaData (Maybe Int32)-gdTotalResults-  = lens _gdTotalResults-      (\ s a -> s{_gdTotalResults = a})-      . mapping _Coerce---- | The last refreshed time in seconds for Analytics data.-gdDataLastRefreshed :: Lens' GaData (Maybe Int64)-gdDataLastRefreshed-  = lens _gdDataLastRefreshed-      (\ s a -> s{_gdDataLastRefreshed = a})-      . mapping _Coerce--gdDataTable :: Lens' GaData (Maybe GaDataDataTable)-gdDataTable-  = lens _gdDataTable (\ s a -> s{_gdDataTable = a})---- | Determines if Analytics data contains samples.-gdContainsSampledData :: Lens' GaData (Maybe Bool)-gdContainsSampledData-  = lens _gdContainsSampledData-      (\ s a -> s{_gdContainsSampledData = a})---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.-gdTotalsForAllResults :: Lens' GaData (Maybe GaDataTotalsForAllResults)-gdTotalsForAllResults-  = lens _gdTotalsForAllResults-      (\ s a -> s{_gdTotalsForAllResults = a})---- | Link to previous page for this Analytics data query.-gdPreviousLink :: Lens' GaData (Maybe Text)-gdPreviousLink-  = lens _gdPreviousLink-      (\ s a -> s{_gdPreviousLink = a})--instance FromJSON GaData where-        parseJSON-          = withObject "GaData"-              (\ o ->-                 GaData' <$>-                   (o .:? "nextLink") <*> (o .:? "sampleSpace") <*>-                     (o .:? "itemsPerPage")-                     <*> (o .:? "profileInfo")-                     <*> (o .:? "kind" .!= "analytics#gaData")-                     <*> (o .:? "sampleSize")-                     <*> (o .:? "rows" .!= mempty)-                     <*> (o .:? "selfLink")-                     <*> (o .:? "query")-                     <*> (o .:? "columnHeaders" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "totalResults")-                     <*> (o .:? "dataLastRefreshed")-                     <*> (o .:? "dataTable")-                     <*> (o .:? "containsSampledData")-                     <*> (o .:? "totalsForAllResults")-                     <*> (o .:? "previousLink"))--instance ToJSON GaData where-        toJSON GaData'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _gdNextLink,-                  ("sampleSpace" .=) <$> _gdSampleSpace,-                  ("itemsPerPage" .=) <$> _gdItemsPerPage,-                  ("profileInfo" .=) <$> _gdProFileInfo,-                  Just ("kind" .= _gdKind),-                  ("sampleSize" .=) <$> _gdSampleSize,-                  ("rows" .=) <$> _gdRows,-                  ("selfLink" .=) <$> _gdSelfLink,-                  ("query" .=) <$> _gdQuery,-                  ("columnHeaders" .=) <$> _gdColumnHeaders,-                  ("id" .=) <$> _gdId,-                  ("totalResults" .=) <$> _gdTotalResults,-                  ("dataLastRefreshed" .=) <$> _gdDataLastRefreshed,-                  ("dataTable" .=) <$> _gdDataTable,-                  ("containsSampledData" .=) <$>-                    _gdContainsSampledData,-                  ("totalsForAllResults" .=) <$>-                    _gdTotalsForAllResults,-                  ("previousLink" .=) <$> _gdPreviousLink])---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.------ /See:/ 'realtimeDataTotalsForAllResults' smart constructor.-newtype RealtimeDataTotalsForAllResults =-  RealtimeDataTotalsForAllResults'-    { _rdtfarAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RealtimeDataTotalsForAllResults' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdtfarAddtional'-realtimeDataTotalsForAllResults-    :: HashMap Text Text -- ^ 'rdtfarAddtional'-    -> RealtimeDataTotalsForAllResults-realtimeDataTotalsForAllResults pRdtfarAddtional_ =-  RealtimeDataTotalsForAllResults'-    {_rdtfarAddtional = _Coerce # pRdtfarAddtional_}----- | Key-value pair for the total value of a metric. Key is the metric name--- and the value is the total value for that metric.-rdtfarAddtional :: Lens' RealtimeDataTotalsForAllResults (HashMap Text Text)-rdtfarAddtional-  = lens _rdtfarAddtional-      (\ s a -> s{_rdtfarAddtional = a})-      . _Coerce--instance FromJSON RealtimeDataTotalsForAllResults-         where-        parseJSON-          = withObject "RealtimeDataTotalsForAllResults"-              (\ o ->-                 RealtimeDataTotalsForAllResults' <$>-                   (parseJSONObject o))--instance ToJSON RealtimeDataTotalsForAllResults where-        toJSON = toJSON . _rdtfarAddtional---- | JSON template for an Analytics custom data source.------ /See:/ 'customDataSource' smart constructor.-data CustomDataSource =-  CustomDataSource'-    { _cParentLink     :: !(Maybe CustomDataSourceParentLink)-    , _cWebPropertyId  :: !(Maybe Text)-    , _cChildLink      :: !(Maybe CustomDataSourceChildLink)-    , _cKind           :: !Text-    , _cCreated        :: !(Maybe DateTime')-    , _cUploadType     :: !(Maybe Text)-    , _cSchema         :: !(Maybe [Text])-    , _cImportBehavior :: !(Maybe Text)-    , _cSelfLink       :: !(Maybe Text)-    , _cAccountId      :: !(Maybe Text)-    , _cName           :: !(Maybe Text)-    , _cId             :: !(Maybe Text)-    , _cUpdated        :: !(Maybe DateTime')-    , _cType           :: !(Maybe Text)-    , _cDescription    :: !(Maybe Text)-    , _cProFilesLinked :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDataSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cParentLink'------ * 'cWebPropertyId'------ * 'cChildLink'------ * 'cKind'------ * 'cCreated'------ * 'cUploadType'------ * 'cSchema'------ * 'cImportBehavior'------ * 'cSelfLink'------ * 'cAccountId'------ * 'cName'------ * 'cId'------ * 'cUpdated'------ * 'cType'------ * 'cDescription'------ * 'cProFilesLinked'-customDataSource-    :: CustomDataSource-customDataSource =-  CustomDataSource'-    { _cParentLink = Nothing-    , _cWebPropertyId = Nothing-    , _cChildLink = Nothing-    , _cKind = "analytics#customDataSource"-    , _cCreated = Nothing-    , _cUploadType = Nothing-    , _cSchema = Nothing-    , _cImportBehavior = Nothing-    , _cSelfLink = Nothing-    , _cAccountId = Nothing-    , _cName = Nothing-    , _cId = Nothing-    , _cUpdated = Nothing-    , _cType = Nothing-    , _cDescription = Nothing-    , _cProFilesLinked = Nothing-    }----- | Parent link for this custom data source. Points to the web property to--- which this custom data source belongs.-cParentLink :: Lens' CustomDataSource (Maybe CustomDataSourceParentLink)-cParentLink-  = lens _cParentLink (\ s a -> s{_cParentLink = a})---- | Web property ID of the form UA-XXXXX-YY to which this custom data source--- belongs.-cWebPropertyId :: Lens' CustomDataSource (Maybe Text)-cWebPropertyId-  = lens _cWebPropertyId-      (\ s a -> s{_cWebPropertyId = a})--cChildLink :: Lens' CustomDataSource (Maybe CustomDataSourceChildLink)-cChildLink-  = lens _cChildLink (\ s a -> s{_cChildLink = a})---- | Resource type for Analytics custom data source.-cKind :: Lens' CustomDataSource Text-cKind = lens _cKind (\ s a -> s{_cKind = a})---- | Time this custom data source was created.-cCreated :: Lens' CustomDataSource (Maybe UTCTime)-cCreated-  = lens _cCreated (\ s a -> s{_cCreated = a}) .-      mapping _DateTime---- | Upload type of the custom data source.-cUploadType :: Lens' CustomDataSource (Maybe Text)-cUploadType-  = lens _cUploadType (\ s a -> s{_cUploadType = a})---- | Collection of schema headers of the custom data source.-cSchema :: Lens' CustomDataSource [Text]-cSchema-  = lens _cSchema (\ s a -> s{_cSchema = a}) . _Default-      . _Coerce--cImportBehavior :: Lens' CustomDataSource (Maybe Text)-cImportBehavior-  = lens _cImportBehavior-      (\ s a -> s{_cImportBehavior = a})---- | Link for this Analytics custom data source.-cSelfLink :: Lens' CustomDataSource (Maybe Text)-cSelfLink-  = lens _cSelfLink (\ s a -> s{_cSelfLink = a})---- | Account ID to which this custom data source belongs.-cAccountId :: Lens' CustomDataSource (Maybe Text)-cAccountId-  = lens _cAccountId (\ s a -> s{_cAccountId = a})---- | Name of this custom data source.-cName :: Lens' CustomDataSource (Maybe Text)-cName = lens _cName (\ s a -> s{_cName = a})---- | Custom data source ID.-cId :: Lens' CustomDataSource (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a})---- | Time this custom data source was last modified.-cUpdated :: Lens' CustomDataSource (Maybe UTCTime)-cUpdated-  = lens _cUpdated (\ s a -> s{_cUpdated = a}) .-      mapping _DateTime---- | Type of the custom data source.-cType :: Lens' CustomDataSource (Maybe Text)-cType = lens _cType (\ s a -> s{_cType = a})---- | Description of custom data source.-cDescription :: Lens' CustomDataSource (Maybe Text)-cDescription-  = lens _cDescription (\ s a -> s{_cDescription = a})---- | IDs of views (profiles) linked to the custom data source.-cProFilesLinked :: Lens' CustomDataSource [Text]-cProFilesLinked-  = lens _cProFilesLinked-      (\ s a -> s{_cProFilesLinked = a})-      . _Default-      . _Coerce--instance FromJSON CustomDataSource where-        parseJSON-          = withObject "CustomDataSource"-              (\ o ->-                 CustomDataSource' <$>-                   (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>-                     (o .:? "childLink")-                     <*> (o .:? "kind" .!= "analytics#customDataSource")-                     <*> (o .:? "created")-                     <*> (o .:? "uploadType")-                     <*> (o .:? "schema" .!= mempty)-                     <*> (o .:? "importBehavior")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "type")-                     <*> (o .:? "description")-                     <*> (o .:? "profilesLinked" .!= mempty))--instance ToJSON CustomDataSource where-        toJSON CustomDataSource'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _cParentLink,-                  ("webPropertyId" .=) <$> _cWebPropertyId,-                  ("childLink" .=) <$> _cChildLink,-                  Just ("kind" .= _cKind),-                  ("created" .=) <$> _cCreated,-                  ("uploadType" .=) <$> _cUploadType,-                  ("schema" .=) <$> _cSchema,-                  ("importBehavior" .=) <$> _cImportBehavior,-                  ("selfLink" .=) <$> _cSelfLink,-                  ("accountId" .=) <$> _cAccountId,-                  ("name" .=) <$> _cName, ("id" .=) <$> _cId,-                  ("updated" .=) <$> _cUpdated, ("type" .=) <$> _cType,-                  ("description" .=) <$> _cDescription,-                  ("profilesLinked" .=) <$> _cProFilesLinked])---- | JSON template for an Analytics account tree requests. The account tree--- request is used in the provisioning api to create an account, property,--- and view (profile). It contains the basic information required to make--- these fields.------ /See:/ 'accountTreeRequest' smart constructor.-data AccountTreeRequest =-  AccountTreeRequest'-    { _atrWebPropertyName :: !(Maybe Text)-    , _atrKind            :: !Text-    , _atrAccountName     :: !(Maybe Text)-    , _atrProFileName     :: !(Maybe Text)-    , _atrWebsiteURL      :: !(Maybe Text)-    , _atrTimezone        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountTreeRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atrWebPropertyName'------ * 'atrKind'------ * 'atrAccountName'------ * 'atrProFileName'------ * 'atrWebsiteURL'------ * 'atrTimezone'-accountTreeRequest-    :: AccountTreeRequest-accountTreeRequest =-  AccountTreeRequest'-    { _atrWebPropertyName = Nothing-    , _atrKind = "analytics#accountTreeRequest"-    , _atrAccountName = Nothing-    , _atrProFileName = Nothing-    , _atrWebsiteURL = Nothing-    , _atrTimezone = Nothing-    }---atrWebPropertyName :: Lens' AccountTreeRequest (Maybe Text)-atrWebPropertyName-  = lens _atrWebPropertyName-      (\ s a -> s{_atrWebPropertyName = a})---- | Resource type for account ticket.-atrKind :: Lens' AccountTreeRequest Text-atrKind = lens _atrKind (\ s a -> s{_atrKind = a})--atrAccountName :: Lens' AccountTreeRequest (Maybe Text)-atrAccountName-  = lens _atrAccountName-      (\ s a -> s{_atrAccountName = a})--atrProFileName :: Lens' AccountTreeRequest (Maybe Text)-atrProFileName-  = lens _atrProFileName-      (\ s a -> s{_atrProFileName = a})--atrWebsiteURL :: Lens' AccountTreeRequest (Maybe Text)-atrWebsiteURL-  = lens _atrWebsiteURL-      (\ s a -> s{_atrWebsiteURL = a})--atrTimezone :: Lens' AccountTreeRequest (Maybe Text)-atrTimezone-  = lens _atrTimezone (\ s a -> s{_atrTimezone = a})--instance FromJSON AccountTreeRequest where-        parseJSON-          = withObject "AccountTreeRequest"-              (\ o ->-                 AccountTreeRequest' <$>-                   (o .:? "webpropertyName") <*>-                     (o .:? "kind" .!= "analytics#accountTreeRequest")-                     <*> (o .:? "accountName")-                     <*> (o .:? "profileName")-                     <*> (o .:? "websiteUrl")-                     <*> (o .:? "timezone"))--instance ToJSON AccountTreeRequest where-        toJSON AccountTreeRequest'{..}-          = object-              (catMaybes-                 [("webpropertyName" .=) <$> _atrWebPropertyName,-                  Just ("kind" .= _atrKind),-                  ("accountName" .=) <$> _atrAccountName,-                  ("profileName" .=) <$> _atrProFileName,-                  ("websiteUrl" .=) <$> _atrWebsiteURL,-                  ("timezone" .=) <$> _atrTimezone])---- | JSON template for a web property reference.------ /See:/ 'webPropertyRef' smart constructor.-data WebPropertyRef =-  WebPropertyRef'-    { _wprKind                  :: !Text-    , _wprHref                  :: !(Maybe Text)-    , _wprAccountId             :: !(Maybe Text)-    , _wprName                  :: !(Maybe Text)-    , _wprInternalWebPropertyId :: !(Maybe Text)-    , _wprId                    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebPropertyRef' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wprKind'------ * 'wprHref'------ * 'wprAccountId'------ * 'wprName'------ * 'wprInternalWebPropertyId'------ * 'wprId'-webPropertyRef-    :: WebPropertyRef-webPropertyRef =-  WebPropertyRef'-    { _wprKind = "analytics#webPropertyRef"-    , _wprHref = Nothing-    , _wprAccountId = Nothing-    , _wprName = Nothing-    , _wprInternalWebPropertyId = Nothing-    , _wprId = Nothing-    }----- | Analytics web property reference.-wprKind :: Lens' WebPropertyRef Text-wprKind = lens _wprKind (\ s a -> s{_wprKind = a})---- | Link for this web property.-wprHref :: Lens' WebPropertyRef (Maybe Text)-wprHref = lens _wprHref (\ s a -> s{_wprHref = a})---- | Account ID to which this web property belongs.-wprAccountId :: Lens' WebPropertyRef (Maybe Text)-wprAccountId-  = lens _wprAccountId (\ s a -> s{_wprAccountId = a})---- | Name of this web property.-wprName :: Lens' WebPropertyRef (Maybe Text)-wprName = lens _wprName (\ s a -> s{_wprName = a})---- | Internal ID for this web property.-wprInternalWebPropertyId :: Lens' WebPropertyRef (Maybe Text)-wprInternalWebPropertyId-  = lens _wprInternalWebPropertyId-      (\ s a -> s{_wprInternalWebPropertyId = a})---- | Web property ID of the form UA-XXXXX-YY.-wprId :: Lens' WebPropertyRef (Maybe Text)-wprId = lens _wprId (\ s a -> s{_wprId = a})--instance FromJSON WebPropertyRef where-        parseJSON-          = withObject "WebPropertyRef"-              (\ o ->-                 WebPropertyRef' <$>-                   (o .:? "kind" .!= "analytics#webPropertyRef") <*>-                     (o .:? "href")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id"))--instance ToJSON WebPropertyRef where-        toJSON WebPropertyRef'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _wprKind), ("href" .=) <$> _wprHref,-                  ("accountId" .=) <$> _wprAccountId,-                  ("name" .=) <$> _wprName,-                  ("internalWebPropertyId" .=) <$>-                    _wprInternalWebPropertyId,-                  ("id" .=) <$> _wprId])---- | JSON template for an Analytics Remarketing Audience Foreign Link.------ /See:/ 'linkedForeignAccount' smart constructor.-data LinkedForeignAccount =-  LinkedForeignAccount'-    { _lfaStatus                :: !(Maybe Text)-    , _lfaWebPropertyId         :: !(Maybe Text)-    , _lfaKind                  :: !Text-    , _lfaEligibleForSearch     :: !(Maybe Bool)-    , _lfaAccountId             :: !(Maybe Text)-    , _lfaRemarketingAudienceId :: !(Maybe Text)-    , _lfaLinkedAccountId       :: !(Maybe Text)-    , _lfaInternalWebPropertyId :: !(Maybe Text)-    , _lfaId                    :: !(Maybe Text)-    , _lfaType                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LinkedForeignAccount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfaStatus'------ * 'lfaWebPropertyId'------ * 'lfaKind'------ * 'lfaEligibleForSearch'------ * 'lfaAccountId'------ * 'lfaRemarketingAudienceId'------ * 'lfaLinkedAccountId'------ * 'lfaInternalWebPropertyId'------ * 'lfaId'------ * 'lfaType'-linkedForeignAccount-    :: LinkedForeignAccount-linkedForeignAccount =-  LinkedForeignAccount'-    { _lfaStatus = Nothing-    , _lfaWebPropertyId = Nothing-    , _lfaKind = "analytics#linkedForeignAccount"-    , _lfaEligibleForSearch = Nothing-    , _lfaAccountId = Nothing-    , _lfaRemarketingAudienceId = Nothing-    , _lfaLinkedAccountId = Nothing-    , _lfaInternalWebPropertyId = Nothing-    , _lfaId = Nothing-    , _lfaType = Nothing-    }----- | The status of this foreign account link.-lfaStatus :: Lens' LinkedForeignAccount (Maybe Text)-lfaStatus-  = lens _lfaStatus (\ s a -> s{_lfaStatus = a})---- | Web property ID of the form UA-XXXXX-YY to which this linked foreign--- account belongs.-lfaWebPropertyId :: Lens' LinkedForeignAccount (Maybe Text)-lfaWebPropertyId-  = lens _lfaWebPropertyId-      (\ s a -> s{_lfaWebPropertyId = a})---- | Resource type for linked foreign account.-lfaKind :: Lens' LinkedForeignAccount Text-lfaKind = lens _lfaKind (\ s a -> s{_lfaKind = a})---- | Boolean indicating whether this is eligible for search.-lfaEligibleForSearch :: Lens' LinkedForeignAccount (Maybe Bool)-lfaEligibleForSearch-  = lens _lfaEligibleForSearch-      (\ s a -> s{_lfaEligibleForSearch = a})---- | Account ID to which this linked foreign account belongs.-lfaAccountId :: Lens' LinkedForeignAccount (Maybe Text)-lfaAccountId-  = lens _lfaAccountId (\ s a -> s{_lfaAccountId = a})---- | Remarketing audience ID to which this linked foreign account belongs.-lfaRemarketingAudienceId :: Lens' LinkedForeignAccount (Maybe Text)-lfaRemarketingAudienceId-  = lens _lfaRemarketingAudienceId-      (\ s a -> s{_lfaRemarketingAudienceId = a})---- | The foreign account ID. For example the an Google Ads--- \`linkedAccountId\` has the following format XXX-XXX-XXXX.-lfaLinkedAccountId :: Lens' LinkedForeignAccount (Maybe Text)-lfaLinkedAccountId-  = lens _lfaLinkedAccountId-      (\ s a -> s{_lfaLinkedAccountId = a})---- | Internal ID for the web property to which this linked foreign account--- belongs.-lfaInternalWebPropertyId :: Lens' LinkedForeignAccount (Maybe Text)-lfaInternalWebPropertyId-  = lens _lfaInternalWebPropertyId-      (\ s a -> s{_lfaInternalWebPropertyId = a})---- | Entity ad account link ID.-lfaId :: Lens' LinkedForeignAccount (Maybe Text)-lfaId = lens _lfaId (\ s a -> s{_lfaId = a})---- | The type of the foreign account. For example, \`ADWORDS_LINKS\`,--- \`DBM_LINKS\`, \`MCC_LINKS\` or \`OPTIMIZE\`.-lfaType :: Lens' LinkedForeignAccount (Maybe Text)-lfaType = lens _lfaType (\ s a -> s{_lfaType = a})--instance FromJSON LinkedForeignAccount where-        parseJSON-          = withObject "LinkedForeignAccount"-              (\ o ->-                 LinkedForeignAccount' <$>-                   (o .:? "status") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#linkedForeignAccount")-                     <*> (o .:? "eligibleForSearch")-                     <*> (o .:? "accountId")-                     <*> (o .:? "remarketingAudienceId")-                     <*> (o .:? "linkedAccountId")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON LinkedForeignAccount where-        toJSON LinkedForeignAccount'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _lfaStatus,-                  ("webPropertyId" .=) <$> _lfaWebPropertyId,-                  Just ("kind" .= _lfaKind),-                  ("eligibleForSearch" .=) <$> _lfaEligibleForSearch,-                  ("accountId" .=) <$> _lfaAccountId,-                  ("remarketingAudienceId" .=) <$>-                    _lfaRemarketingAudienceId,-                  ("linkedAccountId" .=) <$> _lfaLinkedAccountId,-                  ("internalWebPropertyId" .=) <$>-                    _lfaInternalWebPropertyId,-                  ("id" .=) <$> _lfaId, ("type" .=) <$> _lfaType])---- | A goal collection lists Analytics goals to which the user has access.--- Each view (profile) can have a set of goals. Each resource in the Goal--- collection corresponds to a single Analytics goal.------ /See:/ 'goals' smart constructor.-data Goals =-  Goals'-    { _gNextLink     :: !(Maybe Text)-    , _gItemsPerPage :: !(Maybe (Textual Int32))-    , _gKind         :: !Text-    , _gUsername     :: !(Maybe Text)-    , _gItems        :: !(Maybe [Goal])-    , _gTotalResults :: !(Maybe (Textual Int32))-    , _gStartIndex   :: !(Maybe (Textual Int32))-    , _gPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Goals' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gNextLink'------ * 'gItemsPerPage'------ * 'gKind'------ * 'gUsername'------ * 'gItems'------ * 'gTotalResults'------ * 'gStartIndex'------ * 'gPreviousLink'-goals-    :: Goals-goals =-  Goals'-    { _gNextLink = Nothing-    , _gItemsPerPage = Nothing-    , _gKind = "analytics#goals"-    , _gUsername = Nothing-    , _gItems = Nothing-    , _gTotalResults = Nothing-    , _gStartIndex = Nothing-    , _gPreviousLink = Nothing-    }----- | Link to next page for this goal collection.-gNextLink :: Lens' Goals (Maybe Text)-gNextLink-  = lens _gNextLink (\ s a -> s{_gNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-gItemsPerPage :: Lens' Goals (Maybe Int32)-gItemsPerPage-  = lens _gItemsPerPage-      (\ s a -> s{_gItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-gKind :: Lens' Goals Text-gKind = lens _gKind (\ s a -> s{_gKind = a})---- | Email ID of the authenticated user-gUsername :: Lens' Goals (Maybe Text)-gUsername-  = lens _gUsername (\ s a -> s{_gUsername = a})---- | A list of goals.-gItems :: Lens' Goals [Goal]-gItems-  = lens _gItems (\ s a -> s{_gItems = a}) . _Default .-      _Coerce---- | The total number of results for the query, regardless of the number of--- resources in the result.-gTotalResults :: Lens' Goals (Maybe Int32)-gTotalResults-  = lens _gTotalResults-      (\ s a -> s{_gTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-gStartIndex :: Lens' Goals (Maybe Int32)-gStartIndex-  = lens _gStartIndex (\ s a -> s{_gStartIndex = a}) .-      mapping _Coerce---- | Link to previous page for this goal collection.-gPreviousLink :: Lens' Goals (Maybe Text)-gPreviousLink-  = lens _gPreviousLink-      (\ s a -> s{_gPreviousLink = a})--instance FromJSON Goals where-        parseJSON-          = withObject "Goals"-              (\ o ->-                 Goals' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#goals")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Goals where-        toJSON Goals'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _gNextLink,-                  ("itemsPerPage" .=) <$> _gItemsPerPage,-                  Just ("kind" .= _gKind),-                  ("username" .=) <$> _gUsername,-                  ("items" .=) <$> _gItems,-                  ("totalResults" .=) <$> _gTotalResults,-                  ("startIndex" .=) <$> _gStartIndex,-                  ("previousLink" .=) <$> _gPreviousLink])---- | A union object representing a dimension or metric value. Only one of--- \"primitiveValue\" or \"conversionPathValue\" attribute will be--- populated.------ /See:/ 'mcfDataRowsItemItem' smart constructor.-data McfDataRowsItemItem =-  McfDataRowsItemItem'-    { _mdriiPrimitiveValue      :: !(Maybe Text)-    , _mdriiConversionPathValue :: !(Maybe [McfDataRowsItemItemConversionPathValueItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataRowsItemItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdriiPrimitiveValue'------ * 'mdriiConversionPathValue'-mcfDataRowsItemItem-    :: McfDataRowsItemItem-mcfDataRowsItemItem =-  McfDataRowsItemItem'-    {_mdriiPrimitiveValue = Nothing, _mdriiConversionPathValue = Nothing}----- | A primitive dimension value. A primitive metric value.-mdriiPrimitiveValue :: Lens' McfDataRowsItemItem (Maybe Text)-mdriiPrimitiveValue-  = lens _mdriiPrimitiveValue-      (\ s a -> s{_mdriiPrimitiveValue = a})---- | A conversion path dimension value, containing a list of interactions--- with their attributes.-mdriiConversionPathValue :: Lens' McfDataRowsItemItem [McfDataRowsItemItemConversionPathValueItem]-mdriiConversionPathValue-  = lens _mdriiConversionPathValue-      (\ s a -> s{_mdriiConversionPathValue = a})-      . _Default-      . _Coerce--instance FromJSON McfDataRowsItemItem where-        parseJSON-          = withObject "McfDataRowsItemItem"-              (\ o ->-                 McfDataRowsItemItem' <$>-                   (o .:? "primitiveValue") <*>-                     (o .:? "conversionPathValue" .!= mempty))--instance ToJSON McfDataRowsItemItem where-        toJSON McfDataRowsItemItem'{..}-          = object-              (catMaybes-                 [("primitiveValue" .=) <$> _mdriiPrimitiveValue,-                  ("conversionPathValue" .=) <$>-                    _mdriiConversionPathValue])---- | Permissions the user has for this account.------ /See:/ 'accountPermissions' smart constructor.-newtype AccountPermissions =-  AccountPermissions'-    { _apEffective :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountPermissions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apEffective'-accountPermissions-    :: AccountPermissions-accountPermissions = AccountPermissions' {_apEffective = Nothing}----- | All the permissions that the user has for this account. These include--- any implied permissions (e.g., EDIT implies VIEW).-apEffective :: Lens' AccountPermissions [Text]-apEffective-  = lens _apEffective (\ s a -> s{_apEffective = a}) .-      _Default-      . _Coerce--instance FromJSON AccountPermissions where-        parseJSON-          = withObject "AccountPermissions"-              (\ o ->-                 AccountPermissions' <$>-                   (o .:? "effective" .!= mempty))--instance ToJSON AccountPermissions where-        toJSON AccountPermissions'{..}-          = object-              (catMaybes [("effective" .=) <$> _apEffective])---- | Entity for this link. It can be an account, a web property, or a view--- (profile).------ /See:/ 'entityUserLinkEntity' smart constructor.-data EntityUserLinkEntity =-  EntityUserLinkEntity'-    { _euleProFileRef     :: !(Maybe ProFileRef)-    , _euleAccountRef     :: !(Maybe AccountRef)-    , _euleWebPropertyRef :: !(Maybe WebPropertyRef)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityUserLinkEntity' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'euleProFileRef'------ * 'euleAccountRef'------ * 'euleWebPropertyRef'-entityUserLinkEntity-    :: EntityUserLinkEntity-entityUserLinkEntity =-  EntityUserLinkEntity'-    { _euleProFileRef = Nothing-    , _euleAccountRef = Nothing-    , _euleWebPropertyRef = Nothing-    }----- | View (Profile) for this link.-euleProFileRef :: Lens' EntityUserLinkEntity (Maybe ProFileRef)-euleProFileRef-  = lens _euleProFileRef-      (\ s a -> s{_euleProFileRef = a})---- | Account for this link.-euleAccountRef :: Lens' EntityUserLinkEntity (Maybe AccountRef)-euleAccountRef-  = lens _euleAccountRef-      (\ s a -> s{_euleAccountRef = a})---- | Web property for this link.-euleWebPropertyRef :: Lens' EntityUserLinkEntity (Maybe WebPropertyRef)-euleWebPropertyRef-  = lens _euleWebPropertyRef-      (\ s a -> s{_euleWebPropertyRef = a})--instance FromJSON EntityUserLinkEntity where-        parseJSON-          = withObject "EntityUserLinkEntity"-              (\ o ->-                 EntityUserLinkEntity' <$>-                   (o .:? "profileRef") <*> (o .:? "accountRef") <*>-                     (o .:? "webPropertyRef"))--instance ToJSON EntityUserLinkEntity where-        toJSON EntityUserLinkEntity'{..}-          = object-              (catMaybes-                 [("profileRef" .=) <$> _euleProFileRef,-                  ("accountRef" .=) <$> _euleAccountRef,-                  ("webPropertyRef" .=) <$> _euleWebPropertyRef])---- | JSON template for Analytics account entry.------ /See:/ 'account' smart constructor.-data Account =-  Account'-    { _accChildLink   :: !(Maybe AccountChildLink)-    , _accKind        :: !Text-    , _accCreated     :: !(Maybe DateTime')-    , _accSelfLink    :: !(Maybe Text)-    , _accName        :: !(Maybe Text)-    , _accStarred     :: !(Maybe Bool)-    , _accId          :: !(Maybe Text)-    , _accUpdated     :: !(Maybe DateTime')-    , _accPermissions :: !(Maybe AccountPermissions)-    }-  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:------ * 'accChildLink'------ * 'accKind'------ * 'accCreated'------ * 'accSelfLink'------ * 'accName'------ * 'accStarred'------ * 'accId'------ * 'accUpdated'------ * 'accPermissions'-account-    :: Account-account =-  Account'-    { _accChildLink = Nothing-    , _accKind = "analytics#account"-    , _accCreated = Nothing-    , _accSelfLink = Nothing-    , _accName = Nothing-    , _accStarred = Nothing-    , _accId = Nothing-    , _accUpdated = Nothing-    , _accPermissions = Nothing-    }----- | Child link for an account entry. Points to the list of web properties--- for this account.-accChildLink :: Lens' Account (Maybe AccountChildLink)-accChildLink-  = lens _accChildLink (\ s a -> s{_accChildLink = a})---- | Resource type for Analytics account.-accKind :: Lens' Account Text-accKind = lens _accKind (\ s a -> s{_accKind = a})---- | Time the account was created.-accCreated :: Lens' Account (Maybe UTCTime)-accCreated-  = lens _accCreated (\ s a -> s{_accCreated = a}) .-      mapping _DateTime---- | Link for this account.-accSelfLink :: Lens' Account (Maybe Text)-accSelfLink-  = lens _accSelfLink (\ s a -> s{_accSelfLink = a})---- | Account name.-accName :: Lens' Account (Maybe Text)-accName = lens _accName (\ s a -> s{_accName = a})---- | Indicates whether this account is starred or not.-accStarred :: Lens' Account (Maybe Bool)-accStarred-  = lens _accStarred (\ s a -> s{_accStarred = a})---- | Account ID.-accId :: Lens' Account (Maybe Text)-accId = lens _accId (\ s a -> s{_accId = a})---- | Time the account was last modified.-accUpdated :: Lens' Account (Maybe UTCTime)-accUpdated-  = lens _accUpdated (\ s a -> s{_accUpdated = a}) .-      mapping _DateTime---- | Permissions the user has for this account.-accPermissions :: Lens' Account (Maybe AccountPermissions)-accPermissions-  = lens _accPermissions-      (\ s a -> s{_accPermissions = a})--instance FromJSON Account where-        parseJSON-          = withObject "Account"-              (\ o ->-                 Account' <$>-                   (o .:? "childLink") <*>-                     (o .:? "kind" .!= "analytics#account")-                     <*> (o .:? "created")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "name")-                     <*> (o .:? "starred")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "permissions"))--instance ToJSON Account where-        toJSON Account'{..}-          = object-              (catMaybes-                 [("childLink" .=) <$> _accChildLink,-                  Just ("kind" .= _accKind),-                  ("created" .=) <$> _accCreated,-                  ("selfLink" .=) <$> _accSelfLink,-                  ("name" .=) <$> _accName,-                  ("starred" .=) <$> _accStarred, ("id" .=) <$> _accId,-                  ("updated" .=) <$> _accUpdated,-                  ("permissions" .=) <$> _accPermissions])---- | JSON template for Analytics experiment resource.------ /See:/ 'experiment' smart constructor.-data Experiment =-  Experiment'-    { _expParentLink                     :: !(Maybe ExperimentParentLink)-    , _expEqualWeighting                 :: !(Maybe Bool)-    , _expStatus                         :: !(Maybe Text)-    , _expWebPropertyId                  :: !(Maybe Text)-    , _expStartTime                      :: !(Maybe DateTime')-    , _expSnippet                        :: !(Maybe Text)-    , _expKind                           :: !Text-    , _expCreated                        :: !(Maybe DateTime')-    , _expReasonExperimentEnded          :: !(Maybe Text)-    , _expTrafficCoverage                :: !(Maybe (Textual Double))-    , _expEditableInGaUi                 :: !(Maybe Bool)-    , _expMinimumExperimentLengthInDays  :: !(Maybe (Textual Int32))-    , _expProFileId                      :: !(Maybe Text)-    , _expOptimizationType               :: !(Maybe Text)-    , _expSelfLink                       :: !(Maybe Text)-    , _expAccountId                      :: !(Maybe Text)-    , _expName                           :: !(Maybe Text)-    , _expWinnerFound                    :: !(Maybe Bool)-    , _expEndTime                        :: !(Maybe DateTime')-    , _expVariations                     :: !(Maybe [ExperimentVariationsItem])-    , _expInternalWebPropertyId          :: !(Maybe Text)-    , _expId                             :: !(Maybe Text)-    , _expUpdated                        :: !(Maybe DateTime')-    , _expRewriteVariationURLsAsOriginal :: !(Maybe Bool)-    , _expObjectiveMetric                :: !(Maybe Text)-    , _expWinnerConfidenceLevel          :: !(Maybe (Textual Double))-    , _expServingFramework               :: !(Maybe Text)-    , _expDescription                    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Experiment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'expParentLink'------ * 'expEqualWeighting'------ * 'expStatus'------ * 'expWebPropertyId'------ * 'expStartTime'------ * 'expSnippet'------ * 'expKind'------ * 'expCreated'------ * 'expReasonExperimentEnded'------ * 'expTrafficCoverage'------ * 'expEditableInGaUi'------ * 'expMinimumExperimentLengthInDays'------ * 'expProFileId'------ * 'expOptimizationType'------ * 'expSelfLink'------ * 'expAccountId'------ * 'expName'------ * 'expWinnerFound'------ * 'expEndTime'------ * 'expVariations'------ * 'expInternalWebPropertyId'------ * 'expId'------ * 'expUpdated'------ * 'expRewriteVariationURLsAsOriginal'------ * 'expObjectiveMetric'------ * 'expWinnerConfidenceLevel'------ * 'expServingFramework'------ * 'expDescription'-experiment-    :: Experiment-experiment =-  Experiment'-    { _expParentLink = Nothing-    , _expEqualWeighting = Nothing-    , _expStatus = Nothing-    , _expWebPropertyId = Nothing-    , _expStartTime = Nothing-    , _expSnippet = Nothing-    , _expKind = "analytics#experiment"-    , _expCreated = Nothing-    , _expReasonExperimentEnded = Nothing-    , _expTrafficCoverage = Nothing-    , _expEditableInGaUi = Nothing-    , _expMinimumExperimentLengthInDays = Nothing-    , _expProFileId = Nothing-    , _expOptimizationType = Nothing-    , _expSelfLink = Nothing-    , _expAccountId = Nothing-    , _expName = Nothing-    , _expWinnerFound = Nothing-    , _expEndTime = Nothing-    , _expVariations = Nothing-    , _expInternalWebPropertyId = Nothing-    , _expId = Nothing-    , _expUpdated = Nothing-    , _expRewriteVariationURLsAsOriginal = Nothing-    , _expObjectiveMetric = Nothing-    , _expWinnerConfidenceLevel = Nothing-    , _expServingFramework = Nothing-    , _expDescription = Nothing-    }----- | Parent link for an experiment. Points to the view (profile) to which--- this experiment belongs.-expParentLink :: Lens' Experiment (Maybe ExperimentParentLink)-expParentLink-  = lens _expParentLink-      (\ s a -> s{_expParentLink = a})---- | Boolean specifying whether to distribute traffic evenly across all--- variations. If the value is False, content experiments follows the--- default behavior of adjusting traffic dynamically based on variation--- performance. Optional -- defaults to False. This field may not be--- changed for an experiment whose status is ENDED.-expEqualWeighting :: Lens' Experiment (Maybe Bool)-expEqualWeighting-  = lens _expEqualWeighting-      (\ s a -> s{_expEqualWeighting = a})---- | Experiment status. Possible values: \"DRAFT\", \"READY_TO_RUN\",--- \"RUNNING\", \"ENDED\". Experiments can be created in the \"DRAFT\",--- \"READY_TO_RUN\" or \"RUNNING\" state. This field is required when--- creating an experiment.-expStatus :: Lens' Experiment (Maybe Text)-expStatus-  = lens _expStatus (\ s a -> s{_expStatus = a})---- | Web property ID to which this experiment belongs. The web property ID is--- of the form UA-XXXXX-YY. This field is read-only.-expWebPropertyId :: Lens' Experiment (Maybe Text)-expWebPropertyId-  = lens _expWebPropertyId-      (\ s a -> s{_expWebPropertyId = a})---- | The starting time of the experiment (the time the status changed from--- READY_TO_RUN to RUNNING). This field is present only if the experiment--- has started. This field is read-only.-expStartTime :: Lens' Experiment (Maybe UTCTime)-expStartTime-  = lens _expStartTime (\ s a -> s{_expStartTime = a})-      . mapping _DateTime---- | The snippet of code to include on the control page(s). This field is--- read-only.-expSnippet :: Lens' Experiment (Maybe Text)-expSnippet-  = lens _expSnippet (\ s a -> s{_expSnippet = a})---- | Resource type for an Analytics experiment. This field is read-only.-expKind :: Lens' Experiment Text-expKind = lens _expKind (\ s a -> s{_expKind = a})---- | Time the experiment was created. This field is read-only.-expCreated :: Lens' Experiment (Maybe UTCTime)-expCreated-  = lens _expCreated (\ s a -> s{_expCreated = a}) .-      mapping _DateTime---- | Why the experiment ended. Possible values: \"STOPPED_BY_USER\",--- \"WINNER_FOUND\", \"EXPERIMENT_EXPIRED\", \"ENDED_WITH_NO_WINNER\",--- \"GOAL_OBJECTIVE_CHANGED\". \"ENDED_WITH_NO_WINNER\" means that the--- experiment didn\'t expire but no winner was projected to be found. If--- the experiment status is changed via the API to ENDED this field is set--- to STOPPED_BY_USER. This field is read-only.-expReasonExperimentEnded :: Lens' Experiment (Maybe Text)-expReasonExperimentEnded-  = lens _expReasonExperimentEnded-      (\ s a -> s{_expReasonExperimentEnded = a})---- | A floating-point number in (0, 1]. Specifies the fraction of the traffic--- that participates in the experiment. Can be changed for a running--- experiment. This field may not be changed for an experiments whose--- status is ENDED.-expTrafficCoverage :: Lens' Experiment (Maybe Double)-expTrafficCoverage-  = lens _expTrafficCoverage-      (\ s a -> s{_expTrafficCoverage = a})-      . mapping _Coerce---- | If true, the end user will be able to edit the experiment via the Google--- Analytics user interface.-expEditableInGaUi :: Lens' Experiment (Maybe Bool)-expEditableInGaUi-  = lens _expEditableInGaUi-      (\ s a -> s{_expEditableInGaUi = a})---- | An integer number in [3, 90]. Specifies the minimum length of the--- experiment. Can be changed for a running experiment. This field may not--- be changed for an experiments whose status is ENDED.-expMinimumExperimentLengthInDays :: Lens' Experiment (Maybe Int32)-expMinimumExperimentLengthInDays-  = lens _expMinimumExperimentLengthInDays-      (\ s a -> s{_expMinimumExperimentLengthInDays = a})-      . mapping _Coerce---- | View (Profile) ID to which this experiment belongs. This field is--- read-only.-expProFileId :: Lens' Experiment (Maybe Text)-expProFileId-  = lens _expProFileId (\ s a -> s{_expProFileId = a})---- | Whether the objectiveMetric should be minimized or maximized. Possible--- values: \"MAXIMUM\", \"MINIMUM\". Optional--defaults to \"MAXIMUM\".--- Cannot be specified without objectiveMetric. Cannot be modified when--- status is \"RUNNING\" or \"ENDED\".-expOptimizationType :: Lens' Experiment (Maybe Text)-expOptimizationType-  = lens _expOptimizationType-      (\ s a -> s{_expOptimizationType = a})---- | Link for this experiment. This field is read-only.-expSelfLink :: Lens' Experiment (Maybe Text)-expSelfLink-  = lens _expSelfLink (\ s a -> s{_expSelfLink = a})---- | Account ID to which this experiment belongs. This field is read-only.-expAccountId :: Lens' Experiment (Maybe Text)-expAccountId-  = lens _expAccountId (\ s a -> s{_expAccountId = a})---- | Experiment name. This field may not be changed for an experiment whose--- status is ENDED. This field is required when creating an experiment.-expName :: Lens' Experiment (Maybe Text)-expName = lens _expName (\ s a -> s{_expName = a})---- | Boolean specifying whether a winner has been found for this experiment.--- This field is read-only.-expWinnerFound :: Lens' Experiment (Maybe Bool)-expWinnerFound-  = lens _expWinnerFound-      (\ s a -> s{_expWinnerFound = a})---- | The ending time of the experiment (the time the status changed from--- RUNNING to ENDED). This field is present only if the experiment has--- ended. This field is read-only.-expEndTime :: Lens' Experiment (Maybe UTCTime)-expEndTime-  = lens _expEndTime (\ s a -> s{_expEndTime = a}) .-      mapping _DateTime---- | Array of variations. The first variation in the array is the original.--- The number of variations may not change once an experiment is in the--- RUNNING state. At least two variations are required before status can be--- set to RUNNING.-expVariations :: Lens' Experiment [ExperimentVariationsItem]-expVariations-  = lens _expVariations-      (\ s a -> s{_expVariations = a})-      . _Default-      . _Coerce---- | Internal ID for the web property to which this experiment belongs. This--- field is read-only.-expInternalWebPropertyId :: Lens' Experiment (Maybe Text)-expInternalWebPropertyId-  = lens _expInternalWebPropertyId-      (\ s a -> s{_expInternalWebPropertyId = a})---- | Experiment ID. Required for patch and update. Disallowed for create.-expId :: Lens' Experiment (Maybe Text)-expId = lens _expId (\ s a -> s{_expId = a})---- | Time the experiment was last modified. This field is read-only.-expUpdated :: Lens' Experiment (Maybe UTCTime)-expUpdated-  = lens _expUpdated (\ s a -> s{_expUpdated = a}) .-      mapping _DateTime---- | Boolean specifying whether variations URLS are rewritten to match those--- of the original. This field may not be changed for an experiments whose--- status is ENDED.-expRewriteVariationURLsAsOriginal :: Lens' Experiment (Maybe Bool)-expRewriteVariationURLsAsOriginal-  = lens _expRewriteVariationURLsAsOriginal-      (\ s a -> s{_expRewriteVariationURLsAsOriginal = a})---- | The metric that the experiment is optimizing. Valid values:--- \"ga:goal(n)Completions\", \"ga:adsenseAdsClicks\",--- \"ga:adsenseAdsViewed\", \"ga:adsenseRevenue\", \"ga:bounces\",--- \"ga:pageviews\", \"ga:sessionDuration\", \"ga:transactions\",--- \"ga:transactionRevenue\". This field is required if status is--- \"RUNNING\" and servingFramework is one of \"REDIRECT\" or \"API\".-expObjectiveMetric :: Lens' Experiment (Maybe Text)-expObjectiveMetric-  = lens _expObjectiveMetric-      (\ s a -> s{_expObjectiveMetric = a})---- | A floating-point number in (0, 1). Specifies the necessary confidence--- level to choose a winner. This field may not be changed for an--- experiments whose status is ENDED.-expWinnerConfidenceLevel :: Lens' Experiment (Maybe Double)-expWinnerConfidenceLevel-  = lens _expWinnerConfidenceLevel-      (\ s a -> s{_expWinnerConfidenceLevel = a})-      . mapping _Coerce---- | The framework used to serve the experiment variations and evaluate the--- results. One of: - REDIRECT: Google Analytics redirects traffic to--- different variation pages, reports the chosen variation and evaluates--- the results. - API: Google Analytics chooses and reports the variation--- to serve and evaluates the results; the caller is responsible for--- serving the selected variation. - EXTERNAL: The variations will be--- served externally and the chosen variation reported to Google Analytics.--- The caller is responsible for serving the selected variation and--- evaluating the results.-expServingFramework :: Lens' Experiment (Maybe Text)-expServingFramework-  = lens _expServingFramework-      (\ s a -> s{_expServingFramework = a})---- | Notes about this experiment.-expDescription :: Lens' Experiment (Maybe Text)-expDescription-  = lens _expDescription-      (\ s a -> s{_expDescription = a})--instance FromJSON Experiment where-        parseJSON-          = withObject "Experiment"-              (\ o ->-                 Experiment' <$>-                   (o .:? "parentLink") <*> (o .:? "equalWeighting") <*>-                     (o .:? "status")-                     <*> (o .:? "webPropertyId")-                     <*> (o .:? "startTime")-                     <*> (o .:? "snippet")-                     <*> (o .:? "kind" .!= "analytics#experiment")-                     <*> (o .:? "created")-                     <*> (o .:? "reasonExperimentEnded")-                     <*> (o .:? "trafficCoverage")-                     <*> (o .:? "editableInGaUi")-                     <*> (o .:? "minimumExperimentLengthInDays")-                     <*> (o .:? "profileId")-                     <*> (o .:? "optimizationType")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "winnerFound")-                     <*> (o .:? "endTime")-                     <*> (o .:? "variations" .!= mempty)-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "rewriteVariationUrlsAsOriginal")-                     <*> (o .:? "objectiveMetric")-                     <*> (o .:? "winnerConfidenceLevel")-                     <*> (o .:? "servingFramework")-                     <*> (o .:? "description"))--instance ToJSON Experiment where-        toJSON Experiment'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _expParentLink,-                  ("equalWeighting" .=) <$> _expEqualWeighting,-                  ("status" .=) <$> _expStatus,-                  ("webPropertyId" .=) <$> _expWebPropertyId,-                  ("startTime" .=) <$> _expStartTime,-                  ("snippet" .=) <$> _expSnippet,-                  Just ("kind" .= _expKind),-                  ("created" .=) <$> _expCreated,-                  ("reasonExperimentEnded" .=) <$>-                    _expReasonExperimentEnded,-                  ("trafficCoverage" .=) <$> _expTrafficCoverage,-                  ("editableInGaUi" .=) <$> _expEditableInGaUi,-                  ("minimumExperimentLengthInDays" .=) <$>-                    _expMinimumExperimentLengthInDays,-                  ("profileId" .=) <$> _expProFileId,-                  ("optimizationType" .=) <$> _expOptimizationType,-                  ("selfLink" .=) <$> _expSelfLink,-                  ("accountId" .=) <$> _expAccountId,-                  ("name" .=) <$> _expName,-                  ("winnerFound" .=) <$> _expWinnerFound,-                  ("endTime" .=) <$> _expEndTime,-                  ("variations" .=) <$> _expVariations,-                  ("internalWebPropertyId" .=) <$>-                    _expInternalWebPropertyId,-                  ("id" .=) <$> _expId, ("updated" .=) <$> _expUpdated,-                  ("rewriteVariationUrlsAsOriginal" .=) <$>-                    _expRewriteVariationURLsAsOriginal,-                  ("objectiveMetric" .=) <$> _expObjectiveMetric,-                  ("winnerConfidenceLevel" .=) <$>-                    _expWinnerConfidenceLevel,-                  ("servingFramework" .=) <$> _expServingFramework,-                  ("description" .=) <$> _expDescription])---- | An entity user link collection provides a list of Analytics ACL links--- Each resource in this collection corresponds to a single link.------ /See:/ 'entityUserLinks' smart constructor.-data EntityUserLinks =-  EntityUserLinks'-    { _eulNextLink     :: !(Maybe Text)-    , _eulItemsPerPage :: !(Maybe (Textual Int32))-    , _eulKind         :: !Text-    , _eulItems        :: !(Maybe [EntityUserLink])-    , _eulTotalResults :: !(Maybe (Textual Int32))-    , _eulStartIndex   :: !(Maybe (Textual Int32))-    , _eulPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityUserLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eulNextLink'------ * 'eulItemsPerPage'------ * 'eulKind'------ * 'eulItems'------ * 'eulTotalResults'------ * 'eulStartIndex'------ * 'eulPreviousLink'-entityUserLinks-    :: EntityUserLinks-entityUserLinks =-  EntityUserLinks'-    { _eulNextLink = Nothing-    , _eulItemsPerPage = Nothing-    , _eulKind = "analytics#entityUserLinks"-    , _eulItems = Nothing-    , _eulTotalResults = Nothing-    , _eulStartIndex = Nothing-    , _eulPreviousLink = Nothing-    }----- | Next link for this account collection.-eulNextLink :: Lens' EntityUserLinks (Maybe Text)-eulNextLink-  = lens _eulNextLink (\ s a -> s{_eulNextLink = a})---- | The maximum number of entries the response can contain, regardless of--- the actual number of entries returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-eulItemsPerPage :: Lens' EntityUserLinks (Maybe Int32)-eulItemsPerPage-  = lens _eulItemsPerPage-      (\ s a -> s{_eulItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-eulKind :: Lens' EntityUserLinks Text-eulKind = lens _eulKind (\ s a -> s{_eulKind = a})---- | A list of entity user links.-eulItems :: Lens' EntityUserLinks [EntityUserLink]-eulItems-  = lens _eulItems (\ s a -> s{_eulItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-eulTotalResults :: Lens' EntityUserLinks (Maybe Int32)-eulTotalResults-  = lens _eulTotalResults-      (\ s a -> s{_eulTotalResults = a})-      . mapping _Coerce---- | The starting index of the entries, which is 1 by default or otherwise--- specified by the start-index query parameter.-eulStartIndex :: Lens' EntityUserLinks (Maybe Int32)-eulStartIndex-  = lens _eulStartIndex-      (\ s a -> s{_eulStartIndex = a})-      . mapping _Coerce---- | Previous link for this account collection.-eulPreviousLink :: Lens' EntityUserLinks (Maybe Text)-eulPreviousLink-  = lens _eulPreviousLink-      (\ s a -> s{_eulPreviousLink = a})--instance FromJSON EntityUserLinks where-        parseJSON-          = withObject "EntityUserLinks"-              (\ o ->-                 EntityUserLinks' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#entityUserLinks")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON EntityUserLinks where-        toJSON EntityUserLinks'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _eulNextLink,-                  ("itemsPerPage" .=) <$> _eulItemsPerPage,-                  Just ("kind" .= _eulKind),-                  ("items" .=) <$> _eulItems,-                  ("totalResults" .=) <$> _eulTotalResults,-                  ("startIndex" .=) <$> _eulStartIndex,-                  ("previousLink" .=) <$> _eulPreviousLink])---- | JSON template for an Google Ads account.------ /See:/ 'adWordsAccount' smart constructor.-data AdWordsAccount =-  AdWordsAccount'-    { _awaAutoTaggingEnabled :: !(Maybe Bool)-    , _awaKind               :: !Text-    , _awaCustomerId         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AdWordsAccount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'awaAutoTaggingEnabled'------ * 'awaKind'------ * 'awaCustomerId'-adWordsAccount-    :: AdWordsAccount-adWordsAccount =-  AdWordsAccount'-    { _awaAutoTaggingEnabled = Nothing-    , _awaKind = "analytics#adWordsAccount"-    , _awaCustomerId = Nothing-    }----- | True if auto-tagging is enabled on the Google Ads account. Read-only--- after the insert operation.-awaAutoTaggingEnabled :: Lens' AdWordsAccount (Maybe Bool)-awaAutoTaggingEnabled-  = lens _awaAutoTaggingEnabled-      (\ s a -> s{_awaAutoTaggingEnabled = a})---- | Resource type for Google Ads account.-awaKind :: Lens' AdWordsAccount Text-awaKind = lens _awaKind (\ s a -> s{_awaKind = a})---- | Customer ID. This field is required when creating a Google Ads link.-awaCustomerId :: Lens' AdWordsAccount (Maybe Text)-awaCustomerId-  = lens _awaCustomerId-      (\ s a -> s{_awaCustomerId = a})--instance FromJSON AdWordsAccount where-        parseJSON-          = withObject "AdWordsAccount"-              (\ o ->-                 AdWordsAccount' <$>-                   (o .:? "autoTaggingEnabled") <*>-                     (o .:? "kind" .!= "analytics#adWordsAccount")-                     <*> (o .:? "customerId"))--instance ToJSON AdWordsAccount where-        toJSON AdWordsAccount'{..}-          = object-              (catMaybes-                 [("autoTaggingEnabled" .=) <$>-                    _awaAutoTaggingEnabled,-                  Just ("kind" .= _awaKind),-                  ("customerId" .=) <$> _awaCustomerId])---- | JSON template for a profile filter link.------ /See:/ 'filterRef' smart constructor.-data FilterRef =-  FilterRef'-    { _frKind      :: !Text-    , _frHref      :: !(Maybe Text)-    , _frAccountId :: !(Maybe Text)-    , _frName      :: !(Maybe Text)-    , _frId        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterRef' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'frKind'------ * 'frHref'------ * 'frAccountId'------ * 'frName'------ * 'frId'-filterRef-    :: FilterRef-filterRef =-  FilterRef'-    { _frKind = "analytics#filterRef"-    , _frHref = Nothing-    , _frAccountId = Nothing-    , _frName = Nothing-    , _frId = Nothing-    }----- | Kind value for filter reference.-frKind :: Lens' FilterRef Text-frKind = lens _frKind (\ s a -> s{_frKind = a})---- | Link for this filter.-frHref :: Lens' FilterRef (Maybe Text)-frHref = lens _frHref (\ s a -> s{_frHref = a})---- | Account ID to which this filter belongs.-frAccountId :: Lens' FilterRef (Maybe Text)-frAccountId-  = lens _frAccountId (\ s a -> s{_frAccountId = a})---- | Name of this filter.-frName :: Lens' FilterRef (Maybe Text)-frName = lens _frName (\ s a -> s{_frName = a})---- | Filter ID.-frId :: Lens' FilterRef (Maybe Text)-frId = lens _frId (\ s a -> s{_frId = a})--instance FromJSON FilterRef where-        parseJSON-          = withObject "FilterRef"-              (\ o ->-                 FilterRef' <$>-                   (o .:? "kind" .!= "analytics#filterRef") <*>-                     (o .:? "href")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "id"))--instance ToJSON FilterRef where-        toJSON FilterRef'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _frKind), ("href" .=) <$> _frHref,-                  ("accountId" .=) <$> _frAccountId,-                  ("name" .=) <$> _frName, ("id" .=) <$> _frId])---- | Details for the goal of the type VISIT_TIME_ON_SITE.------ /See:/ 'goalVisitTimeOnSiteDetails' smart constructor.-data GoalVisitTimeOnSiteDetails =-  GoalVisitTimeOnSiteDetails'-    { _gvtosdComparisonValue :: !(Maybe (Textual Int64))-    , _gvtosdComparisonType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalVisitTimeOnSiteDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gvtosdComparisonValue'------ * 'gvtosdComparisonType'-goalVisitTimeOnSiteDetails-    :: GoalVisitTimeOnSiteDetails-goalVisitTimeOnSiteDetails =-  GoalVisitTimeOnSiteDetails'-    {_gvtosdComparisonValue = Nothing, _gvtosdComparisonType = Nothing}----- | Value used for this comparison.-gvtosdComparisonValue :: Lens' GoalVisitTimeOnSiteDetails (Maybe Int64)-gvtosdComparisonValue-  = lens _gvtosdComparisonValue-      (\ s a -> s{_gvtosdComparisonValue = a})-      . mapping _Coerce---- | Type of comparison. Possible values are LESS_THAN or GREATER_THAN.-gvtosdComparisonType :: Lens' GoalVisitTimeOnSiteDetails (Maybe Text)-gvtosdComparisonType-  = lens _gvtosdComparisonType-      (\ s a -> s{_gvtosdComparisonType = a})--instance FromJSON GoalVisitTimeOnSiteDetails where-        parseJSON-          = withObject "GoalVisitTimeOnSiteDetails"-              (\ o ->-                 GoalVisitTimeOnSiteDetails' <$>-                   (o .:? "comparisonValue") <*>-                     (o .:? "comparisonType"))--instance ToJSON GoalVisitTimeOnSiteDetails where-        toJSON GoalVisitTimeOnSiteDetails'{..}-          = object-              (catMaybes-                 [("comparisonValue" .=) <$> _gvtosdComparisonValue,-                  ("comparisonType" .=) <$> _gvtosdComparisonType])---- | A web property collection lists Analytics web properties to which the--- user has access. Each resource in the collection corresponds to a single--- Analytics web property.------ /See:/ 'webProperties' smart constructor.-data WebProperties =-  WebProperties'-    { _wpNextLink     :: !(Maybe Text)-    , _wpItemsPerPage :: !(Maybe (Textual Int32))-    , _wpKind         :: !Text-    , _wpUsername     :: !(Maybe Text)-    , _wpItems        :: !(Maybe [WebProperty])-    , _wpTotalResults :: !(Maybe (Textual Int32))-    , _wpStartIndex   :: !(Maybe (Textual Int32))-    , _wpPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpNextLink'------ * 'wpItemsPerPage'------ * 'wpKind'------ * 'wpUsername'------ * 'wpItems'------ * 'wpTotalResults'------ * 'wpStartIndex'------ * 'wpPreviousLink'-webProperties-    :: WebProperties-webProperties =-  WebProperties'-    { _wpNextLink = Nothing-    , _wpItemsPerPage = Nothing-    , _wpKind = "analytics#webproperties"-    , _wpUsername = Nothing-    , _wpItems = Nothing-    , _wpTotalResults = Nothing-    , _wpStartIndex = Nothing-    , _wpPreviousLink = Nothing-    }----- | Link to next page for this web property collection.-wpNextLink :: Lens' WebProperties (Maybe Text)-wpNextLink-  = lens _wpNextLink (\ s a -> s{_wpNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-wpItemsPerPage :: Lens' WebProperties (Maybe Int32)-wpItemsPerPage-  = lens _wpItemsPerPage-      (\ s a -> s{_wpItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-wpKind :: Lens' WebProperties Text-wpKind = lens _wpKind (\ s a -> s{_wpKind = a})---- | Email ID of the authenticated user-wpUsername :: Lens' WebProperties (Maybe Text)-wpUsername-  = lens _wpUsername (\ s a -> s{_wpUsername = a})---- | A list of web properties.-wpItems :: Lens' WebProperties [WebProperty]-wpItems-  = lens _wpItems (\ s a -> s{_wpItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-wpTotalResults :: Lens' WebProperties (Maybe Int32)-wpTotalResults-  = lens _wpTotalResults-      (\ s a -> s{_wpTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-wpStartIndex :: Lens' WebProperties (Maybe Int32)-wpStartIndex-  = lens _wpStartIndex (\ s a -> s{_wpStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this web property collection.-wpPreviousLink :: Lens' WebProperties (Maybe Text)-wpPreviousLink-  = lens _wpPreviousLink-      (\ s a -> s{_wpPreviousLink = a})--instance FromJSON WebProperties where-        parseJSON-          = withObject "WebProperties"-              (\ o ->-                 WebProperties' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#webproperties")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON WebProperties where-        toJSON WebProperties'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _wpNextLink,-                  ("itemsPerPage" .=) <$> _wpItemsPerPage,-                  Just ("kind" .= _wpKind),-                  ("username" .=) <$> _wpUsername,-                  ("items" .=) <$> _wpItems,-                  ("totalResults" .=) <$> _wpTotalResults,-                  ("startIndex" .=) <$> _wpStartIndex,-                  ("previousLink" .=) <$> _wpPreviousLink])---- | A custom metric collection lists Analytics custom metrics to which the--- user has access. Each resource in the collection corresponds to a single--- Analytics custom metric.------ /See:/ 'customMetrics' smart constructor.-data CustomMetrics =-  CustomMetrics'-    { _cmNextLink     :: !(Maybe Text)-    , _cmItemsPerPage :: !(Maybe (Textual Int32))-    , _cmKind         :: !Text-    , _cmUsername     :: !(Maybe Text)-    , _cmItems        :: !(Maybe [CustomMetric])-    , _cmTotalResults :: !(Maybe (Textual Int32))-    , _cmStartIndex   :: !(Maybe (Textual Int32))-    , _cmPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomMetrics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cmNextLink'------ * 'cmItemsPerPage'------ * 'cmKind'------ * 'cmUsername'------ * 'cmItems'------ * 'cmTotalResults'------ * 'cmStartIndex'------ * 'cmPreviousLink'-customMetrics-    :: CustomMetrics-customMetrics =-  CustomMetrics'-    { _cmNextLink = Nothing-    , _cmItemsPerPage = Nothing-    , _cmKind = "analytics#customMetrics"-    , _cmUsername = Nothing-    , _cmItems = Nothing-    , _cmTotalResults = Nothing-    , _cmStartIndex = Nothing-    , _cmPreviousLink = Nothing-    }----- | Link to next page for this custom metric collection.-cmNextLink :: Lens' CustomMetrics (Maybe Text)-cmNextLink-  = lens _cmNextLink (\ s a -> s{_cmNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-cmItemsPerPage :: Lens' CustomMetrics (Maybe Int32)-cmItemsPerPage-  = lens _cmItemsPerPage-      (\ s a -> s{_cmItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-cmKind :: Lens' CustomMetrics Text-cmKind = lens _cmKind (\ s a -> s{_cmKind = a})---- | Email ID of the authenticated user-cmUsername :: Lens' CustomMetrics (Maybe Text)-cmUsername-  = lens _cmUsername (\ s a -> s{_cmUsername = a})---- | Collection of custom metrics.-cmItems :: Lens' CustomMetrics [CustomMetric]-cmItems-  = lens _cmItems (\ s a -> s{_cmItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-cmTotalResults :: Lens' CustomMetrics (Maybe Int32)-cmTotalResults-  = lens _cmTotalResults-      (\ s a -> s{_cmTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-cmStartIndex :: Lens' CustomMetrics (Maybe Int32)-cmStartIndex-  = lens _cmStartIndex (\ s a -> s{_cmStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this custom metric collection.-cmPreviousLink :: Lens' CustomMetrics (Maybe Text)-cmPreviousLink-  = lens _cmPreviousLink-      (\ s a -> s{_cmPreviousLink = a})--instance FromJSON CustomMetrics where-        parseJSON-          = withObject "CustomMetrics"-              (\ o ->-                 CustomMetrics' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#customMetrics")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON CustomMetrics where-        toJSON CustomMetrics'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _cmNextLink,-                  ("itemsPerPage" .=) <$> _cmItemsPerPage,-                  Just ("kind" .= _cmKind),-                  ("username" .=) <$> _cmUsername,-                  ("items" .=) <$> _cmItems,-                  ("totalResults" .=) <$> _cmTotalResults,-                  ("startIndex" .=) <$> _cmStartIndex,-                  ("previousLink" .=) <$> _cmPreviousLink])---- | Details for the filter of the type ADVANCED.------ /See:/ 'filterAdvancedDetails' smart constructor.-data FilterAdvancedDetails =-  FilterAdvancedDetails'-    { _fadExtractA            :: !(Maybe Text)-    , _fadFieldARequired      :: !(Maybe Bool)-    , _fadFieldA              :: !(Maybe Text)-    , _fadFieldBIndex         :: !(Maybe (Textual Int32))-    , _fadOutputToField       :: !(Maybe Text)-    , _fadOutputConstructor   :: !(Maybe Text)-    , _fadExtractB            :: !(Maybe Text)-    , _fadFieldAIndex         :: !(Maybe (Textual Int32))-    , _fadCaseSensitive       :: !(Maybe Bool)-    , _fadOutputToFieldIndex  :: !(Maybe (Textual Int32))-    , _fadFieldB              :: !(Maybe Text)-    , _fadFieldBRequired      :: !(Maybe Bool)-    , _fadOverrideOutputField :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterAdvancedDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fadExtractA'------ * 'fadFieldARequired'------ * 'fadFieldA'------ * 'fadFieldBIndex'------ * 'fadOutputToField'------ * 'fadOutputConstructor'------ * 'fadExtractB'------ * 'fadFieldAIndex'------ * 'fadCaseSensitive'------ * 'fadOutputToFieldIndex'------ * 'fadFieldB'------ * 'fadFieldBRequired'------ * 'fadOverrideOutputField'-filterAdvancedDetails-    :: FilterAdvancedDetails-filterAdvancedDetails =-  FilterAdvancedDetails'-    { _fadExtractA = Nothing-    , _fadFieldARequired = Nothing-    , _fadFieldA = Nothing-    , _fadFieldBIndex = Nothing-    , _fadOutputToField = Nothing-    , _fadOutputConstructor = Nothing-    , _fadExtractB = Nothing-    , _fadFieldAIndex = Nothing-    , _fadCaseSensitive = Nothing-    , _fadOutputToFieldIndex = Nothing-    , _fadFieldB = Nothing-    , _fadFieldBRequired = Nothing-    , _fadOverrideOutputField = Nothing-    }----- | Expression to extract from field A.-fadExtractA :: Lens' FilterAdvancedDetails (Maybe Text)-fadExtractA-  = lens _fadExtractA (\ s a -> s{_fadExtractA = a})---- | Indicates if field A is required to match.-fadFieldARequired :: Lens' FilterAdvancedDetails (Maybe Bool)-fadFieldARequired-  = lens _fadFieldARequired-      (\ s a -> s{_fadFieldARequired = a})---- | Field A.-fadFieldA :: Lens' FilterAdvancedDetails (Maybe Text)-fadFieldA-  = lens _fadFieldA (\ s a -> s{_fadFieldA = a})---- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fadFieldBIndex :: Lens' FilterAdvancedDetails (Maybe Int32)-fadFieldBIndex-  = lens _fadFieldBIndex-      (\ s a -> s{_fadFieldBIndex = a})-      . mapping _Coerce---- | Output field.-fadOutputToField :: Lens' FilterAdvancedDetails (Maybe Text)-fadOutputToField-  = lens _fadOutputToField-      (\ s a -> s{_fadOutputToField = a})---- | Expression used to construct the output value.-fadOutputConstructor :: Lens' FilterAdvancedDetails (Maybe Text)-fadOutputConstructor-  = lens _fadOutputConstructor-      (\ s a -> s{_fadOutputConstructor = a})---- | Expression to extract from field B.-fadExtractB :: Lens' FilterAdvancedDetails (Maybe Text)-fadExtractB-  = lens _fadExtractB (\ s a -> s{_fadExtractB = a})---- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fadFieldAIndex :: Lens' FilterAdvancedDetails (Maybe Int32)-fadFieldAIndex-  = lens _fadFieldAIndex-      (\ s a -> s{_fadFieldAIndex = a})-      . mapping _Coerce---- | Indicates if the filter expressions are case sensitive.-fadCaseSensitive :: Lens' FilterAdvancedDetails (Maybe Bool)-fadCaseSensitive-  = lens _fadCaseSensitive-      (\ s a -> s{_fadCaseSensitive = a})---- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fadOutputToFieldIndex :: Lens' FilterAdvancedDetails (Maybe Int32)-fadOutputToFieldIndex-  = lens _fadOutputToFieldIndex-      (\ s a -> s{_fadOutputToFieldIndex = a})-      . mapping _Coerce---- | Field B.-fadFieldB :: Lens' FilterAdvancedDetails (Maybe Text)-fadFieldB-  = lens _fadFieldB (\ s a -> s{_fadFieldB = a})---- | Indicates if field B is required to match.-fadFieldBRequired :: Lens' FilterAdvancedDetails (Maybe Bool)-fadFieldBRequired-  = lens _fadFieldBRequired-      (\ s a -> s{_fadFieldBRequired = a})---- | Indicates if the existing value of the output field, if any, should be--- overridden by the output expression.-fadOverrideOutputField :: Lens' FilterAdvancedDetails (Maybe Bool)-fadOverrideOutputField-  = lens _fadOverrideOutputField-      (\ s a -> s{_fadOverrideOutputField = a})--instance FromJSON FilterAdvancedDetails where-        parseJSON-          = withObject "FilterAdvancedDetails"-              (\ o ->-                 FilterAdvancedDetails' <$>-                   (o .:? "extractA") <*> (o .:? "fieldARequired") <*>-                     (o .:? "fieldA")-                     <*> (o .:? "fieldBIndex")-                     <*> (o .:? "outputToField")-                     <*> (o .:? "outputConstructor")-                     <*> (o .:? "extractB")-                     <*> (o .:? "fieldAIndex")-                     <*> (o .:? "caseSensitive")-                     <*> (o .:? "outputToFieldIndex")-                     <*> (o .:? "fieldB")-                     <*> (o .:? "fieldBRequired")-                     <*> (o .:? "overrideOutputField"))--instance ToJSON FilterAdvancedDetails where-        toJSON FilterAdvancedDetails'{..}-          = object-              (catMaybes-                 [("extractA" .=) <$> _fadExtractA,-                  ("fieldARequired" .=) <$> _fadFieldARequired,-                  ("fieldA" .=) <$> _fadFieldA,-                  ("fieldBIndex" .=) <$> _fadFieldBIndex,-                  ("outputToField" .=) <$> _fadOutputToField,-                  ("outputConstructor" .=) <$> _fadOutputConstructor,-                  ("extractB" .=) <$> _fadExtractB,-                  ("fieldAIndex" .=) <$> _fadFieldAIndex,-                  ("caseSensitive" .=) <$> _fadCaseSensitive,-                  ("outputToFieldIndex" .=) <$> _fadOutputToFieldIndex,-                  ("fieldB" .=) <$> _fadFieldB,-                  ("fieldBRequired" .=) <$> _fadFieldBRequired,-                  ("overrideOutputField" .=) <$>-                    _fadOverrideOutputField])---- | JSON template for an Analytics account tree response. The account tree--- response is used in the provisioning api to return the result of--- creating an account, property, and view (profile).------ /See:/ 'accountTreeResponse' smart constructor.-data AccountTreeResponse =-  AccountTreeResponse'-    { _atrtKind        :: !Text-    , _atrtProFile     :: !(Maybe ProFile)-    , _atrtAccount     :: !(Maybe Account)-    , _atrtWebProperty :: !(Maybe WebProperty)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountTreeResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atrtKind'------ * 'atrtProFile'------ * 'atrtAccount'------ * 'atrtWebProperty'-accountTreeResponse-    :: AccountTreeResponse-accountTreeResponse =-  AccountTreeResponse'-    { _atrtKind = "analytics#accountTreeResponse"-    , _atrtProFile = Nothing-    , _atrtAccount = Nothing-    , _atrtWebProperty = Nothing-    }----- | Resource type for account ticket.-atrtKind :: Lens' AccountTreeResponse Text-atrtKind = lens _atrtKind (\ s a -> s{_atrtKind = a})---- | View (Profile) for the account.-atrtProFile :: Lens' AccountTreeResponse (Maybe ProFile)-atrtProFile-  = lens _atrtProFile (\ s a -> s{_atrtProFile = a})---- | The account created.-atrtAccount :: Lens' AccountTreeResponse (Maybe Account)-atrtAccount-  = lens _atrtAccount (\ s a -> s{_atrtAccount = a})---- | Web property for the account.-atrtWebProperty :: Lens' AccountTreeResponse (Maybe WebProperty)-atrtWebProperty-  = lens _atrtWebProperty-      (\ s a -> s{_atrtWebProperty = a})--instance FromJSON AccountTreeResponse where-        parseJSON-          = withObject "AccountTreeResponse"-              (\ o ->-                 AccountTreeResponse' <$>-                   (o .:? "kind" .!= "analytics#accountTreeResponse")-                     <*> (o .:? "profile")-                     <*> (o .:? "account")-                     <*> (o .:? "webproperty"))--instance ToJSON AccountTreeResponse where-        toJSON AccountTreeResponse'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _atrtKind),-                  ("profile" .=) <$> _atrtProFile,-                  ("account" .=) <$> _atrtAccount,-                  ("webproperty" .=) <$> _atrtWebProperty])---- | Details for the filter of the type UPPER.------ /See:/ 'filterUppercaseDetails' smart constructor.-data FilterUppercaseDetails =-  FilterUppercaseDetails'-    { _fudFieldIndex :: !(Maybe (Textual Int32))-    , _fudField      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterUppercaseDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fudFieldIndex'------ * 'fudField'-filterUppercaseDetails-    :: FilterUppercaseDetails-filterUppercaseDetails =-  FilterUppercaseDetails' {_fudFieldIndex = Nothing, _fudField = Nothing}----- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fudFieldIndex :: Lens' FilterUppercaseDetails (Maybe Int32)-fudFieldIndex-  = lens _fudFieldIndex-      (\ s a -> s{_fudFieldIndex = a})-      . mapping _Coerce---- | Field to use in the filter.-fudField :: Lens' FilterUppercaseDetails (Maybe Text)-fudField = lens _fudField (\ s a -> s{_fudField = a})--instance FromJSON FilterUppercaseDetails where-        parseJSON-          = withObject "FilterUppercaseDetails"-              (\ o ->-                 FilterUppercaseDetails' <$>-                   (o .:? "fieldIndex") <*> (o .:? "field"))--instance ToJSON FilterUppercaseDetails where-        toJSON FilterUppercaseDetails'{..}-          = object-              (catMaybes-                 [("fieldIndex" .=) <$> _fudFieldIndex,-                  ("field" .=) <$> _fudField])------- /See:/ 'customDataSourceChildLink' smart constructor.-data CustomDataSourceChildLink =-  CustomDataSourceChildLink'-    { _cdsclHref :: !(Maybe Text)-    , _cdsclType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDataSourceChildLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdsclHref'------ * 'cdsclType'-customDataSourceChildLink-    :: CustomDataSourceChildLink-customDataSourceChildLink =-  CustomDataSourceChildLink' {_cdsclHref = Nothing, _cdsclType = Nothing}----- | Link to the list of daily uploads for this custom data source. Link to--- the list of uploads for this custom data source.-cdsclHref :: Lens' CustomDataSourceChildLink (Maybe Text)-cdsclHref-  = lens _cdsclHref (\ s a -> s{_cdsclHref = a})---- | Value is \"analytics#dailyUploads\". Value is \"analytics#uploads\".-cdsclType :: Lens' CustomDataSourceChildLink (Maybe Text)-cdsclType-  = lens _cdsclType (\ s a -> s{_cdsclType = a})--instance FromJSON CustomDataSourceChildLink where-        parseJSON-          = withObject "CustomDataSourceChildLink"-              (\ o ->-                 CustomDataSourceChildLink' <$>-                   (o .:? "href") <*> (o .:? "type"))--instance ToJSON CustomDataSourceChildLink where-        toJSON CustomDataSourceChildLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _cdsclHref,-                  ("type" .=) <$> _cdsclType])---- | JSON template for an Analytics Remarketing Include Conditions.------ /See:/ 'includeConditions' smart constructor.-data IncludeConditions =-  IncludeConditions'-    { _icKind                   :: !Text-    , _icDaysToLookBack         :: !(Maybe (Textual Int32))-    , _icMembershipDurationDays :: !(Maybe (Textual Int32))-    , _icSegment                :: !(Maybe Text)-    , _icIsSmartList            :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'IncludeConditions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'icKind'------ * 'icDaysToLookBack'------ * 'icMembershipDurationDays'------ * 'icSegment'------ * 'icIsSmartList'-includeConditions-    :: IncludeConditions-includeConditions =-  IncludeConditions'-    { _icKind = "analytics#includeConditions"-    , _icDaysToLookBack = Nothing-    , _icMembershipDurationDays = Nothing-    , _icSegment = Nothing-    , _icIsSmartList = Nothing-    }----- | Resource type for include conditions.-icKind :: Lens' IncludeConditions Text-icKind = lens _icKind (\ s a -> s{_icKind = a})---- | The look-back window lets you specify a time frame for evaluating the--- behavior that qualifies users for your audience. For example, if your--- filters include users from Central Asia, and Transactions Greater than--- 2, and you set the look-back window to 14 days, then any user from--- Central Asia whose cumulative transactions exceed 2 during the last 14--- days is added to the audience.-icDaysToLookBack :: Lens' IncludeConditions (Maybe Int32)-icDaysToLookBack-  = lens _icDaysToLookBack-      (\ s a -> s{_icDaysToLookBack = a})-      . mapping _Coerce---- | Number of days (in the range 1 to 540) a user remains in the audience.-icMembershipDurationDays :: Lens' IncludeConditions (Maybe Int32)-icMembershipDurationDays-  = lens _icMembershipDurationDays-      (\ s a -> s{_icMembershipDurationDays = a})-      . mapping _Coerce---- | The segment condition that will cause a user to be added to an audience.-icSegment :: Lens' IncludeConditions (Maybe Text)-icSegment-  = lens _icSegment (\ s a -> s{_icSegment = a})---- | Boolean indicating whether this segment is a smart list.--- https:\/\/support.google.com\/analytics\/answer\/4628577-icIsSmartList :: Lens' IncludeConditions (Maybe Bool)-icIsSmartList-  = lens _icIsSmartList-      (\ s a -> s{_icIsSmartList = a})--instance FromJSON IncludeConditions where-        parseJSON-          = withObject "IncludeConditions"-              (\ o ->-                 IncludeConditions' <$>-                   (o .:? "kind" .!= "analytics#includeConditions") <*>-                     (o .:? "daysToLookBack")-                     <*> (o .:? "membershipDurationDays")-                     <*> (o .:? "segment")-                     <*> (o .:? "isSmartList"))--instance ToJSON IncludeConditions where-        toJSON IncludeConditions'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _icKind),-                  ("daysToLookBack" .=) <$> _icDaysToLookBack,-                  ("membershipDurationDays" .=) <$>-                    _icMembershipDurationDays,-                  ("segment" .=) <$> _icSegment,-                  ("isSmartList" .=) <$> _icIsSmartList])---- | Parent link for this filter. Points to the account to which this filter--- belongs.------ /See:/ 'filterParentLink' smart constructor.-data FilterParentLink =-  FilterParentLink'-    { _fplHref :: !(Maybe Text)-    , _fplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fplHref'------ * 'fplType'-filterParentLink-    :: FilterParentLink-filterParentLink =-  FilterParentLink' {_fplHref = Nothing, _fplType = "analytics#account"}----- | Link to the account to which this filter belongs.-fplHref :: Lens' FilterParentLink (Maybe Text)-fplHref = lens _fplHref (\ s a -> s{_fplHref = a})---- | Value is \"analytics#account\".-fplType :: Lens' FilterParentLink Text-fplType = lens _fplType (\ s a -> s{_fplType = a})--instance FromJSON FilterParentLink where-        parseJSON-          = withObject "FilterParentLink"-              (\ o ->-                 FilterParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#account"))--instance ToJSON FilterParentLink where-        toJSON FilterParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _fplHref,-                  Just ("type" .= _fplType)])---- | JSON template for a hash Client Id request resource.------ /See:/ 'hashClientIdRequest' smart constructor.-data HashClientIdRequest =-  HashClientIdRequest'-    { _hClientId      :: !(Maybe Text)-    , _hWebPropertyId :: !(Maybe Text)-    , _hKind          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HashClientIdRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hClientId'------ * 'hWebPropertyId'------ * 'hKind'-hashClientIdRequest-    :: HashClientIdRequest-hashClientIdRequest =-  HashClientIdRequest'-    { _hClientId = Nothing-    , _hWebPropertyId = Nothing-    , _hKind = "analytics#hashClientIdRequest"-    }---hClientId :: Lens' HashClientIdRequest (Maybe Text)-hClientId-  = lens _hClientId (\ s a -> s{_hClientId = a})--hWebPropertyId :: Lens' HashClientIdRequest (Maybe Text)-hWebPropertyId-  = lens _hWebPropertyId-      (\ s a -> s{_hWebPropertyId = a})--hKind :: Lens' HashClientIdRequest Text-hKind = lens _hKind (\ s a -> s{_hKind = a})--instance FromJSON HashClientIdRequest where-        parseJSON-          = withObject "HashClientIdRequest"-              (\ o ->-                 HashClientIdRequest' <$>-                   (o .:? "clientId") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#hashClientIdRequest"))--instance ToJSON HashClientIdRequest where-        toJSON HashClientIdRequest'{..}-          = object-              (catMaybes-                 [("clientId" .=) <$> _hClientId,-                  ("webPropertyId" .=) <$> _hWebPropertyId,-                  Just ("kind" .= _hKind)])---- | Real time data for a given view (profile).------ /See:/ 'realtimeData' smart constructor.-data RealtimeData =-  RealtimeData'-    { _rdProFileInfo         :: !(Maybe RealtimeDataProFileInfo)-    , _rdKind                :: !Text-    , _rdRows                :: !(Maybe [[Text]])-    , _rdSelfLink            :: !(Maybe Text)-    , _rdQuery               :: !(Maybe RealtimeDataQuery)-    , _rdColumnHeaders       :: !(Maybe [RealtimeDataColumnHeadersItem])-    , _rdId                  :: !(Maybe Text)-    , _rdTotalResults        :: !(Maybe (Textual Int32))-    , _rdTotalsForAllResults :: !(Maybe RealtimeDataTotalsForAllResults)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RealtimeData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdProFileInfo'------ * 'rdKind'------ * 'rdRows'------ * 'rdSelfLink'------ * 'rdQuery'------ * 'rdColumnHeaders'------ * 'rdId'------ * 'rdTotalResults'------ * 'rdTotalsForAllResults'-realtimeData-    :: RealtimeData-realtimeData =-  RealtimeData'-    { _rdProFileInfo = Nothing-    , _rdKind = "analytics#realtimeData"-    , _rdRows = Nothing-    , _rdSelfLink = Nothing-    , _rdQuery = Nothing-    , _rdColumnHeaders = Nothing-    , _rdId = Nothing-    , _rdTotalResults = Nothing-    , _rdTotalsForAllResults = Nothing-    }----- | Information for the view (profile), for which the real time data was--- requested.-rdProFileInfo :: Lens' RealtimeData (Maybe RealtimeDataProFileInfo)-rdProFileInfo-  = lens _rdProFileInfo-      (\ s a -> s{_rdProFileInfo = a})---- | Resource type.-rdKind :: Lens' RealtimeData Text-rdKind = lens _rdKind (\ s a -> s{_rdKind = a})---- | Real time data rows, where each row contains a list of dimension values--- followed by the metric values. The order of dimensions and metrics is--- same as specified in the request.-rdRows :: Lens' RealtimeData [[Text]]-rdRows-  = lens _rdRows (\ s a -> s{_rdRows = a}) . _Default .-      _Coerce---- | Link to this page.-rdSelfLink :: Lens' RealtimeData (Maybe Text)-rdSelfLink-  = lens _rdSelfLink (\ s a -> s{_rdSelfLink = a})---- | Real time data request query parameters.-rdQuery :: Lens' RealtimeData (Maybe RealtimeDataQuery)-rdQuery = lens _rdQuery (\ s a -> s{_rdQuery = a})---- | Column headers that list dimension names followed by the metric names.--- The order of dimensions and metrics is same as specified in the request.-rdColumnHeaders :: Lens' RealtimeData [RealtimeDataColumnHeadersItem]-rdColumnHeaders-  = lens _rdColumnHeaders-      (\ s a -> s{_rdColumnHeaders = a})-      . _Default-      . _Coerce---- | Unique ID for this data response.-rdId :: Lens' RealtimeData (Maybe Text)-rdId = lens _rdId (\ s a -> s{_rdId = a})---- | The total number of rows for the query, regardless of the number of rows--- in the response.-rdTotalResults :: Lens' RealtimeData (Maybe Int32)-rdTotalResults-  = lens _rdTotalResults-      (\ s a -> s{_rdTotalResults = a})-      . mapping _Coerce---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.-rdTotalsForAllResults :: Lens' RealtimeData (Maybe RealtimeDataTotalsForAllResults)-rdTotalsForAllResults-  = lens _rdTotalsForAllResults-      (\ s a -> s{_rdTotalsForAllResults = a})--instance FromJSON RealtimeData where-        parseJSON-          = withObject "RealtimeData"-              (\ o ->-                 RealtimeData' <$>-                   (o .:? "profileInfo") <*>-                     (o .:? "kind" .!= "analytics#realtimeData")-                     <*> (o .:? "rows" .!= mempty)-                     <*> (o .:? "selfLink")-                     <*> (o .:? "query")-                     <*> (o .:? "columnHeaders" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "totalResults")-                     <*> (o .:? "totalsForAllResults"))--instance ToJSON RealtimeData where-        toJSON RealtimeData'{..}-          = object-              (catMaybes-                 [("profileInfo" .=) <$> _rdProFileInfo,-                  Just ("kind" .= _rdKind), ("rows" .=) <$> _rdRows,-                  ("selfLink" .=) <$> _rdSelfLink,-                  ("query" .=) <$> _rdQuery,-                  ("columnHeaders" .=) <$> _rdColumnHeaders,-                  ("id" .=) <$> _rdId,-                  ("totalResults" .=) <$> _rdTotalResults,-                  ("totalsForAllResults" .=) <$>-                    _rdTotalsForAllResults])---- | JSON template for Analytics Custom Metric.------ /See:/ 'customMetric' smart constructor.-data CustomMetric =-  CustomMetric'-    { _cusParentLink    :: !(Maybe CustomMetricParentLink)-    , _cusWebPropertyId :: !(Maybe Text)-    , _cusKind          :: !Text-    , _cusMaxValue      :: !(Maybe Text)-    , _cusCreated       :: !(Maybe DateTime')-    , _cusMinValue      :: !(Maybe Text)-    , _cusActive        :: !(Maybe Bool)-    , _cusSelfLink      :: !(Maybe Text)-    , _cusAccountId     :: !(Maybe Text)-    , _cusName          :: !(Maybe Text)-    , _cusScope         :: !(Maybe Text)-    , _cusId            :: !(Maybe Text)-    , _cusUpdated       :: !(Maybe DateTime')-    , _cusType          :: !(Maybe Text)-    , _cusIndex         :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomMetric' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cusParentLink'------ * 'cusWebPropertyId'------ * 'cusKind'------ * 'cusMaxValue'------ * 'cusCreated'------ * 'cusMinValue'------ * 'cusActive'------ * 'cusSelfLink'------ * 'cusAccountId'------ * 'cusName'------ * 'cusScope'------ * 'cusId'------ * 'cusUpdated'------ * 'cusType'------ * 'cusIndex'-customMetric-    :: CustomMetric-customMetric =-  CustomMetric'-    { _cusParentLink = Nothing-    , _cusWebPropertyId = Nothing-    , _cusKind = "analytics#customMetric"-    , _cusMaxValue = Nothing-    , _cusCreated = Nothing-    , _cusMinValue = Nothing-    , _cusActive = Nothing-    , _cusSelfLink = Nothing-    , _cusAccountId = Nothing-    , _cusName = Nothing-    , _cusScope = Nothing-    , _cusId = Nothing-    , _cusUpdated = Nothing-    , _cusType = Nothing-    , _cusIndex = Nothing-    }----- | Parent link for the custom metric. Points to the property to which the--- custom metric belongs.-cusParentLink :: Lens' CustomMetric (Maybe CustomMetricParentLink)-cusParentLink-  = lens _cusParentLink-      (\ s a -> s{_cusParentLink = a})---- | Property ID.-cusWebPropertyId :: Lens' CustomMetric (Maybe Text)-cusWebPropertyId-  = lens _cusWebPropertyId-      (\ s a -> s{_cusWebPropertyId = a})---- | Kind value for a custom metric. Set to \"analytics#customMetric\". It is--- a read-only field.-cusKind :: Lens' CustomMetric Text-cusKind = lens _cusKind (\ s a -> s{_cusKind = a})---- | Max value of custom metric.-cusMaxValue :: Lens' CustomMetric (Maybe Text)-cusMaxValue-  = lens _cusMaxValue (\ s a -> s{_cusMaxValue = a})---- | Time the custom metric was created.-cusCreated :: Lens' CustomMetric (Maybe UTCTime)-cusCreated-  = lens _cusCreated (\ s a -> s{_cusCreated = a}) .-      mapping _DateTime---- | Min value of custom metric.-cusMinValue :: Lens' CustomMetric (Maybe Text)-cusMinValue-  = lens _cusMinValue (\ s a -> s{_cusMinValue = a})---- | Boolean indicating whether the custom metric is active.-cusActive :: Lens' CustomMetric (Maybe Bool)-cusActive-  = lens _cusActive (\ s a -> s{_cusActive = a})---- | Link for the custom metric-cusSelfLink :: Lens' CustomMetric (Maybe Text)-cusSelfLink-  = lens _cusSelfLink (\ s a -> s{_cusSelfLink = a})---- | Account ID.-cusAccountId :: Lens' CustomMetric (Maybe Text)-cusAccountId-  = lens _cusAccountId (\ s a -> s{_cusAccountId = a})---- | Name of the custom metric.-cusName :: Lens' CustomMetric (Maybe Text)-cusName = lens _cusName (\ s a -> s{_cusName = a})---- | Scope of the custom metric: HIT or PRODUCT.-cusScope :: Lens' CustomMetric (Maybe Text)-cusScope = lens _cusScope (\ s a -> s{_cusScope = a})---- | Custom metric ID.-cusId :: Lens' CustomMetric (Maybe Text)-cusId = lens _cusId (\ s a -> s{_cusId = a})---- | Time the custom metric was last modified.-cusUpdated :: Lens' CustomMetric (Maybe UTCTime)-cusUpdated-  = lens _cusUpdated (\ s a -> s{_cusUpdated = a}) .-      mapping _DateTime---- | Data type of custom metric.-cusType :: Lens' CustomMetric (Maybe Text)-cusType = lens _cusType (\ s a -> s{_cusType = a})---- | Index of the custom metric.-cusIndex :: Lens' CustomMetric (Maybe Int32)-cusIndex-  = lens _cusIndex (\ s a -> s{_cusIndex = a}) .-      mapping _Coerce--instance FromJSON CustomMetric where-        parseJSON-          = withObject "CustomMetric"-              (\ o ->-                 CustomMetric' <$>-                   (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#customMetric")-                     <*> (o .:? "max_value")-                     <*> (o .:? "created")-                     <*> (o .:? "min_value")-                     <*> (o .:? "active")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "scope")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "type")-                     <*> (o .:? "index"))--instance ToJSON CustomMetric where-        toJSON CustomMetric'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _cusParentLink,-                  ("webPropertyId" .=) <$> _cusWebPropertyId,-                  Just ("kind" .= _cusKind),-                  ("max_value" .=) <$> _cusMaxValue,-                  ("created" .=) <$> _cusCreated,-                  ("min_value" .=) <$> _cusMinValue,-                  ("active" .=) <$> _cusActive,-                  ("selfLink" .=) <$> _cusSelfLink,-                  ("accountId" .=) <$> _cusAccountId,-                  ("name" .=) <$> _cusName, ("scope" .=) <$> _cusScope,-                  ("id" .=) <$> _cusId, ("updated" .=) <$> _cusUpdated,-                  ("type" .=) <$> _cusType,-                  ("index" .=) <$> _cusIndex])---- | JSON template for an Analytics ProfileSummary. ProfileSummary returns--- basic information (i.e., summary) for a profile.------ /See:/ 'proFileSummary' smart constructor.-data ProFileSummary =-  ProFileSummary'-    { _pfsKind    :: !Text-    , _pfsName    :: !(Maybe Text)-    , _pfsStarred :: !(Maybe Bool)-    , _pfsId      :: !(Maybe Text)-    , _pfsType    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfsKind'------ * 'pfsName'------ * 'pfsStarred'------ * 'pfsId'------ * 'pfsType'-proFileSummary-    :: ProFileSummary-proFileSummary =-  ProFileSummary'-    { _pfsKind = "analytics#profileSummary"-    , _pfsName = Nothing-    , _pfsStarred = Nothing-    , _pfsId = Nothing-    , _pfsType = Nothing-    }----- | Resource type for Analytics ProfileSummary.-pfsKind :: Lens' ProFileSummary Text-pfsKind = lens _pfsKind (\ s a -> s{_pfsKind = a})---- | View (profile) name.-pfsName :: Lens' ProFileSummary (Maybe Text)-pfsName = lens _pfsName (\ s a -> s{_pfsName = a})---- | Indicates whether this view (profile) is starred or not.-pfsStarred :: Lens' ProFileSummary (Maybe Bool)-pfsStarred-  = lens _pfsStarred (\ s a -> s{_pfsStarred = a})---- | View (profile) ID.-pfsId :: Lens' ProFileSummary (Maybe Text)-pfsId = lens _pfsId (\ s a -> s{_pfsId = a})---- | View (Profile) type. Supported types: WEB or APP.-pfsType :: Lens' ProFileSummary (Maybe Text)-pfsType = lens _pfsType (\ s a -> s{_pfsType = a})--instance FromJSON ProFileSummary where-        parseJSON-          = withObject "ProFileSummary"-              (\ o ->-                 ProFileSummary' <$>-                   (o .:? "kind" .!= "analytics#profileSummary") <*>-                     (o .:? "name")-                     <*> (o .:? "starred")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON ProFileSummary where-        toJSON ProFileSummary'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _pfsKind), ("name" .=) <$> _pfsName,-                  ("starred" .=) <$> _pfsStarred, ("id" .=) <$> _pfsId,-                  ("type" .=) <$> _pfsType])---- | Parent link for the custom dimension. Points to the property to which--- the custom dimension belongs.------ /See:/ 'customDimensionParentLink' smart constructor.-data CustomDimensionParentLink =-  CustomDimensionParentLink'-    { _cdplHref :: !(Maybe Text)-    , _cdplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDimensionParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdplHref'------ * 'cdplType'-customDimensionParentLink-    :: CustomDimensionParentLink-customDimensionParentLink =-  CustomDimensionParentLink'-    {_cdplHref = Nothing, _cdplType = "analytics#webproperty"}----- | Link to the property to which the custom dimension belongs.-cdplHref :: Lens' CustomDimensionParentLink (Maybe Text)-cdplHref = lens _cdplHref (\ s a -> s{_cdplHref = a})---- | Type of the parent link. Set to \"analytics#webproperty\".-cdplType :: Lens' CustomDimensionParentLink Text-cdplType = lens _cdplType (\ s a -> s{_cdplType = a})--instance FromJSON CustomDimensionParentLink where-        parseJSON-          = withObject "CustomDimensionParentLink"-              (\ o ->-                 CustomDimensionParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#webproperty"))--instance ToJSON CustomDimensionParentLink where-        toJSON CustomDimensionParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _cdplHref,-                  Just ("type" .= _cdplType)])---- | JSON template for an Analytics web property.------ /See:/ 'webProperty' smart constructor.-data WebProperty =-  WebProperty'-    { _wParentLink                      :: !(Maybe WebPropertyParentLink)-    , _wChildLink                       :: !(Maybe WebPropertyChildLink)-    , _wDefaultProFileId                :: !(Maybe (Textual Int64))-    , _wKind                            :: !Text-    , _wCreated                         :: !(Maybe DateTime')-    , _wDataRetentionTtl                :: !(Maybe Text)-    , _wDataRetentionResetOnNewActivity :: !(Maybe Bool)-    , _wSelfLink                        :: !(Maybe Text)-    , _wAccountId                       :: !(Maybe Text)-    , _wName                            :: !(Maybe Text)-    , _wStarred                         :: !(Maybe Bool)-    , _wInternalWebPropertyId           :: !(Maybe Text)-    , _wId                              :: !(Maybe Text)-    , _wUpdated                         :: !(Maybe DateTime')-    , _wProFileCount                    :: !(Maybe (Textual Int32))-    , _wPermissions                     :: !(Maybe WebPropertyPermissions)-    , _wWebsiteURL                      :: !(Maybe Text)-    , _wIndustryVertical                :: !(Maybe Text)-    , _wLevel                           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebProperty' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wParentLink'------ * 'wChildLink'------ * 'wDefaultProFileId'------ * 'wKind'------ * 'wCreated'------ * 'wDataRetentionTtl'------ * 'wDataRetentionResetOnNewActivity'------ * 'wSelfLink'------ * 'wAccountId'------ * 'wName'------ * 'wStarred'------ * 'wInternalWebPropertyId'------ * 'wId'------ * 'wUpdated'------ * 'wProFileCount'------ * 'wPermissions'------ * 'wWebsiteURL'------ * 'wIndustryVertical'------ * 'wLevel'-webProperty-    :: WebProperty-webProperty =-  WebProperty'-    { _wParentLink = Nothing-    , _wChildLink = Nothing-    , _wDefaultProFileId = Nothing-    , _wKind = "analytics#webproperty"-    , _wCreated = Nothing-    , _wDataRetentionTtl = Nothing-    , _wDataRetentionResetOnNewActivity = Nothing-    , _wSelfLink = Nothing-    , _wAccountId = Nothing-    , _wName = Nothing-    , _wStarred = Nothing-    , _wInternalWebPropertyId = Nothing-    , _wId = Nothing-    , _wUpdated = Nothing-    , _wProFileCount = Nothing-    , _wPermissions = Nothing-    , _wWebsiteURL = Nothing-    , _wIndustryVertical = Nothing-    , _wLevel = Nothing-    }----- | Parent link for this web property. Points to the account to which this--- web property belongs.-wParentLink :: Lens' WebProperty (Maybe WebPropertyParentLink)-wParentLink-  = lens _wParentLink (\ s a -> s{_wParentLink = a})---- | Child link for this web property. Points to the list of views (profiles)--- for this web property.-wChildLink :: Lens' WebProperty (Maybe WebPropertyChildLink)-wChildLink-  = lens _wChildLink (\ s a -> s{_wChildLink = a})---- | Default view (profile) ID.-wDefaultProFileId :: Lens' WebProperty (Maybe Int64)-wDefaultProFileId-  = lens _wDefaultProFileId-      (\ s a -> s{_wDefaultProFileId = a})-      . mapping _Coerce---- | Resource type for Analytics WebProperty.-wKind :: Lens' WebProperty Text-wKind = lens _wKind (\ s a -> s{_wKind = a})---- | Time this web property was created.-wCreated :: Lens' WebProperty (Maybe UTCTime)-wCreated-  = lens _wCreated (\ s a -> s{_wCreated = a}) .-      mapping _DateTime---- | The length of time for which user and event data is retained. This--- property cannot be set on insert.-wDataRetentionTtl :: Lens' WebProperty (Maybe Text)-wDataRetentionTtl-  = lens _wDataRetentionTtl-      (\ s a -> s{_wDataRetentionTtl = a})---- | Set to true to reset the retention period of the user identifier with--- each new event from that user (thus setting the expiration date to--- current time plus retention period). Set to false to delete data--- associated with the user identifer automatically after the rentention--- period. This property cannot be set on insert.-wDataRetentionResetOnNewActivity :: Lens' WebProperty (Maybe Bool)-wDataRetentionResetOnNewActivity-  = lens _wDataRetentionResetOnNewActivity-      (\ s a -> s{_wDataRetentionResetOnNewActivity = a})---- | Link for this web property.-wSelfLink :: Lens' WebProperty (Maybe Text)-wSelfLink-  = lens _wSelfLink (\ s a -> s{_wSelfLink = a})---- | Account ID to which this web property belongs.-wAccountId :: Lens' WebProperty (Maybe Text)-wAccountId-  = lens _wAccountId (\ s a -> s{_wAccountId = a})---- | Name of this web property.-wName :: Lens' WebProperty (Maybe Text)-wName = lens _wName (\ s a -> s{_wName = a})---- | Indicates whether this web property is starred or not.-wStarred :: Lens' WebProperty (Maybe Bool)-wStarred = lens _wStarred (\ s a -> s{_wStarred = a})---- | Internal ID for this web property.-wInternalWebPropertyId :: Lens' WebProperty (Maybe Text)-wInternalWebPropertyId-  = lens _wInternalWebPropertyId-      (\ s a -> s{_wInternalWebPropertyId = a})---- | Web property ID of the form UA-XXXXX-YY.-wId :: Lens' WebProperty (Maybe Text)-wId = lens _wId (\ s a -> s{_wId = a})---- | Time this web property was last modified.-wUpdated :: Lens' WebProperty (Maybe UTCTime)-wUpdated-  = lens _wUpdated (\ s a -> s{_wUpdated = a}) .-      mapping _DateTime---- | View (Profile) count for this web property.-wProFileCount :: Lens' WebProperty (Maybe Int32)-wProFileCount-  = lens _wProFileCount-      (\ s a -> s{_wProFileCount = a})-      . mapping _Coerce---- | Permissions the user has for this web property.-wPermissions :: Lens' WebProperty (Maybe WebPropertyPermissions)-wPermissions-  = lens _wPermissions (\ s a -> s{_wPermissions = a})---- | Website url for this web property.-wWebsiteURL :: Lens' WebProperty (Maybe Text)-wWebsiteURL-  = lens _wWebsiteURL (\ s a -> s{_wWebsiteURL = a})---- | The industry vertical\/category selected for this web property.-wIndustryVertical :: Lens' WebProperty (Maybe Text)-wIndustryVertical-  = lens _wIndustryVertical-      (\ s a -> s{_wIndustryVertical = a})---- | Level for this web property. Possible values are STANDARD or PREMIUM.-wLevel :: Lens' WebProperty (Maybe Text)-wLevel = lens _wLevel (\ s a -> s{_wLevel = a})--instance FromJSON WebProperty where-        parseJSON-          = withObject "WebProperty"-              (\ o ->-                 WebProperty' <$>-                   (o .:? "parentLink") <*> (o .:? "childLink") <*>-                     (o .:? "defaultProfileId")-                     <*> (o .:? "kind" .!= "analytics#webproperty")-                     <*> (o .:? "created")-                     <*> (o .:? "dataRetentionTtl")-                     <*> (o .:? "dataRetentionResetOnNewActivity")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "starred")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "profileCount")-                     <*> (o .:? "permissions")-                     <*> (o .:? "websiteUrl")-                     <*> (o .:? "industryVertical")-                     <*> (o .:? "level"))--instance ToJSON WebProperty where-        toJSON WebProperty'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _wParentLink,-                  ("childLink" .=) <$> _wChildLink,-                  ("defaultProfileId" .=) <$> _wDefaultProFileId,-                  Just ("kind" .= _wKind),-                  ("created" .=) <$> _wCreated,-                  ("dataRetentionTtl" .=) <$> _wDataRetentionTtl,-                  ("dataRetentionResetOnNewActivity" .=) <$>-                    _wDataRetentionResetOnNewActivity,-                  ("selfLink" .=) <$> _wSelfLink,-                  ("accountId" .=) <$> _wAccountId,-                  ("name" .=) <$> _wName, ("starred" .=) <$> _wStarred,-                  ("internalWebPropertyId" .=) <$>-                    _wInternalWebPropertyId,-                  ("id" .=) <$> _wId, ("updated" .=) <$> _wUpdated,-                  ("profileCount" .=) <$> _wProFileCount,-                  ("permissions" .=) <$> _wPermissions,-                  ("websiteUrl" .=) <$> _wWebsiteURL,-                  ("industryVertical" .=) <$> _wIndustryVertical,-                  ("level" .=) <$> _wLevel])---- | Permissions the user has for this web property.------ /See:/ 'webPropertyPermissions' smart constructor.-newtype WebPropertyPermissions =-  WebPropertyPermissions'-    { _wppEffective :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebPropertyPermissions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wppEffective'-webPropertyPermissions-    :: WebPropertyPermissions-webPropertyPermissions = WebPropertyPermissions' {_wppEffective = Nothing}----- | All the permissions that the user has for this web property. These--- include any implied permissions (e.g., EDIT implies VIEW) or inherited--- permissions from the parent account.-wppEffective :: Lens' WebPropertyPermissions [Text]-wppEffective-  = lens _wppEffective (\ s a -> s{_wppEffective = a})-      . _Default-      . _Coerce--instance FromJSON WebPropertyPermissions where-        parseJSON-          = withObject "WebPropertyPermissions"-              (\ o ->-                 WebPropertyPermissions' <$>-                   (o .:? "effective" .!= mempty))--instance ToJSON WebPropertyPermissions where-        toJSON WebPropertyPermissions'{..}-          = object-              (catMaybes [("effective" .=) <$> _wppEffective])---- | JSON template for an Analytics Entity-User Link. Returns permissions--- that a user has for an entity.------ /See:/ 'entityUserLink' smart constructor.-data EntityUserLink =-  EntityUserLink'-    { _euluKind        :: !Text-    , _euluUserRef     :: !(Maybe UserRef)-    , _euluSelfLink    :: !(Maybe Text)-    , _euluId          :: !(Maybe Text)-    , _euluPermissions :: !(Maybe EntityUserLinkPermissions)-    , _euluEntity      :: !(Maybe EntityUserLinkEntity)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityUserLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'euluKind'------ * 'euluUserRef'------ * 'euluSelfLink'------ * 'euluId'------ * 'euluPermissions'------ * 'euluEntity'-entityUserLink-    :: EntityUserLink-entityUserLink =-  EntityUserLink'-    { _euluKind = "analytics#entityUserLink"-    , _euluUserRef = Nothing-    , _euluSelfLink = Nothing-    , _euluId = Nothing-    , _euluPermissions = Nothing-    , _euluEntity = Nothing-    }----- | Resource type for entity user link.-euluKind :: Lens' EntityUserLink Text-euluKind = lens _euluKind (\ s a -> s{_euluKind = a})---- | User reference.-euluUserRef :: Lens' EntityUserLink (Maybe UserRef)-euluUserRef-  = lens _euluUserRef (\ s a -> s{_euluUserRef = a})---- | Self link for this resource.-euluSelfLink :: Lens' EntityUserLink (Maybe Text)-euluSelfLink-  = lens _euluSelfLink (\ s a -> s{_euluSelfLink = a})---- | Entity user link ID-euluId :: Lens' EntityUserLink (Maybe Text)-euluId = lens _euluId (\ s a -> s{_euluId = a})---- | Permissions the user has for this entity.-euluPermissions :: Lens' EntityUserLink (Maybe EntityUserLinkPermissions)-euluPermissions-  = lens _euluPermissions-      (\ s a -> s{_euluPermissions = a})---- | Entity for this link. It can be an account, a web property, or a view--- (profile).-euluEntity :: Lens' EntityUserLink (Maybe EntityUserLinkEntity)-euluEntity-  = lens _euluEntity (\ s a -> s{_euluEntity = a})--instance FromJSON EntityUserLink where-        parseJSON-          = withObject "EntityUserLink"-              (\ o ->-                 EntityUserLink' <$>-                   (o .:? "kind" .!= "analytics#entityUserLink") <*>-                     (o .:? "userRef")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "id")-                     <*> (o .:? "permissions")-                     <*> (o .:? "entity"))--instance ToJSON EntityUserLink where-        toJSON EntityUserLink'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _euluKind),-                  ("userRef" .=) <$> _euluUserRef,-                  ("selfLink" .=) <$> _euluSelfLink,-                  ("id" .=) <$> _euluId,-                  ("permissions" .=) <$> _euluPermissions,-                  ("entity" .=) <$> _euluEntity])---- | Parent link for this custom data source. Points to the web property to--- which this custom data source belongs.------ /See:/ 'customDataSourceParentLink' smart constructor.-data CustomDataSourceParentLink =-  CustomDataSourceParentLink'-    { _cdsplHref :: !(Maybe Text)-    , _cdsplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDataSourceParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdsplHref'------ * 'cdsplType'-customDataSourceParentLink-    :: CustomDataSourceParentLink-customDataSourceParentLink =-  CustomDataSourceParentLink'-    {_cdsplHref = Nothing, _cdsplType = "analytics#webproperty"}----- | Link to the web property to which this custom data source belongs.-cdsplHref :: Lens' CustomDataSourceParentLink (Maybe Text)-cdsplHref-  = lens _cdsplHref (\ s a -> s{_cdsplHref = a})---- | Value is \"analytics#webproperty\".-cdsplType :: Lens' CustomDataSourceParentLink Text-cdsplType-  = lens _cdsplType (\ s a -> s{_cdsplType = a})--instance FromJSON CustomDataSourceParentLink where-        parseJSON-          = withObject "CustomDataSourceParentLink"-              (\ o ->-                 CustomDataSourceParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#webproperty"))--instance ToJSON CustomDataSourceParentLink where-        toJSON CustomDataSourceParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _cdsplHref,-                  Just ("type" .= _cdsplType)])------- /See:/ 'goalEventDetailsEventConditionsItem' smart constructor.-data GoalEventDetailsEventConditionsItem =-  GoalEventDetailsEventConditionsItem'-    { _gedeciMatchType       :: !(Maybe Text)-    , _gedeciExpression      :: !(Maybe Text)-    , _gedeciComparisonValue :: !(Maybe (Textual Int64))-    , _gedeciType            :: !(Maybe Text)-    , _gedeciComparisonType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalEventDetailsEventConditionsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gedeciMatchType'------ * 'gedeciExpression'------ * 'gedeciComparisonValue'------ * 'gedeciType'------ * 'gedeciComparisonType'-goalEventDetailsEventConditionsItem-    :: GoalEventDetailsEventConditionsItem-goalEventDetailsEventConditionsItem =-  GoalEventDetailsEventConditionsItem'-    { _gedeciMatchType = Nothing-    , _gedeciExpression = Nothing-    , _gedeciComparisonValue = Nothing-    , _gedeciType = Nothing-    , _gedeciComparisonType = Nothing-    }----- | Type of the match to be performed. Possible values are REGEXP,--- BEGINS_WITH, or EXACT.-gedeciMatchType :: Lens' GoalEventDetailsEventConditionsItem (Maybe Text)-gedeciMatchType-  = lens _gedeciMatchType-      (\ s a -> s{_gedeciMatchType = a})---- | Expression used for this match.-gedeciExpression :: Lens' GoalEventDetailsEventConditionsItem (Maybe Text)-gedeciExpression-  = lens _gedeciExpression-      (\ s a -> s{_gedeciExpression = a})---- | Value used for this comparison.-gedeciComparisonValue :: Lens' GoalEventDetailsEventConditionsItem (Maybe Int64)-gedeciComparisonValue-  = lens _gedeciComparisonValue-      (\ s a -> s{_gedeciComparisonValue = a})-      . mapping _Coerce---- | Type of this event condition. Possible values are CATEGORY, ACTION,--- LABEL, or VALUE.-gedeciType :: Lens' GoalEventDetailsEventConditionsItem (Maybe Text)-gedeciType-  = lens _gedeciType (\ s a -> s{_gedeciType = a})---- | Type of comparison. Possible values are LESS_THAN, GREATER_THAN or--- EQUAL.-gedeciComparisonType :: Lens' GoalEventDetailsEventConditionsItem (Maybe Text)-gedeciComparisonType-  = lens _gedeciComparisonType-      (\ s a -> s{_gedeciComparisonType = a})--instance FromJSON GoalEventDetailsEventConditionsItem-         where-        parseJSON-          = withObject "GoalEventDetailsEventConditionsItem"-              (\ o ->-                 GoalEventDetailsEventConditionsItem' <$>-                   (o .:? "matchType") <*> (o .:? "expression") <*>-                     (o .:? "comparisonValue")-                     <*> (o .:? "type")-                     <*> (o .:? "comparisonType"))--instance ToJSON GoalEventDetailsEventConditionsItem-         where-        toJSON GoalEventDetailsEventConditionsItem'{..}-          = object-              (catMaybes-                 [("matchType" .=) <$> _gedeciMatchType,-                  ("expression" .=) <$> _gedeciExpression,-                  ("comparisonValue" .=) <$> _gedeciComparisonValue,-                  ("type" .=) <$> _gedeciType,-                  ("comparisonType" .=) <$> _gedeciComparisonType])---- | Analytics data request query parameters.------ /See:/ 'mcfDataQuery' smart constructor.-data McfDataQuery =-  McfDataQuery'-    { _mdqMetrics       :: !(Maybe [Text])-    , _mdqSamplingLevel :: !(Maybe Text)-    , _mdqFilters       :: !(Maybe Text)-    , _mdqIds           :: !(Maybe Text)-    , _mdqEndDate       :: !(Maybe Text)-    , _mdqSort          :: !(Maybe [Text])-    , _mdqDimensions    :: !(Maybe Text)-    , _mdqStartIndex    :: !(Maybe (Textual Int32))-    , _mdqMaxResults    :: !(Maybe (Textual Int32))-    , _mdqSegment       :: !(Maybe Text)-    , _mdqStartDate     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataQuery' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdqMetrics'------ * 'mdqSamplingLevel'------ * 'mdqFilters'------ * 'mdqIds'------ * 'mdqEndDate'------ * 'mdqSort'------ * 'mdqDimensions'------ * 'mdqStartIndex'------ * 'mdqMaxResults'------ * 'mdqSegment'------ * 'mdqStartDate'-mcfDataQuery-    :: McfDataQuery-mcfDataQuery =-  McfDataQuery'-    { _mdqMetrics = Nothing-    , _mdqSamplingLevel = Nothing-    , _mdqFilters = Nothing-    , _mdqIds = Nothing-    , _mdqEndDate = Nothing-    , _mdqSort = Nothing-    , _mdqDimensions = Nothing-    , _mdqStartIndex = Nothing-    , _mdqMaxResults = Nothing-    , _mdqSegment = Nothing-    , _mdqStartDate = Nothing-    }----- | List of analytics metrics.-mdqMetrics :: Lens' McfDataQuery [Text]-mdqMetrics-  = lens _mdqMetrics (\ s a -> s{_mdqMetrics = a}) .-      _Default-      . _Coerce---- | Desired sampling level-mdqSamplingLevel :: Lens' McfDataQuery (Maybe Text)-mdqSamplingLevel-  = lens _mdqSamplingLevel-      (\ s a -> s{_mdqSamplingLevel = a})---- | Comma-separated list of dimension or metric filters.-mdqFilters :: Lens' McfDataQuery (Maybe Text)-mdqFilters-  = lens _mdqFilters (\ s a -> s{_mdqFilters = a})---- | Unique table ID.-mdqIds :: Lens' McfDataQuery (Maybe Text)-mdqIds = lens _mdqIds (\ s a -> s{_mdqIds = a})---- | End date.-mdqEndDate :: Lens' McfDataQuery (Maybe Text)-mdqEndDate-  = lens _mdqEndDate (\ s a -> s{_mdqEndDate = a})---- | List of dimensions or metrics based on which Analytics data is sorted.-mdqSort :: Lens' McfDataQuery [Text]-mdqSort-  = lens _mdqSort (\ s a -> s{_mdqSort = a}) . _Default-      . _Coerce---- | List of analytics dimensions.-mdqDimensions :: Lens' McfDataQuery (Maybe Text)-mdqDimensions-  = lens _mdqDimensions-      (\ s a -> s{_mdqDimensions = a})---- | Start index.-mdqStartIndex :: Lens' McfDataQuery (Maybe Int32)-mdqStartIndex-  = lens _mdqStartIndex-      (\ s a -> s{_mdqStartIndex = a})-      . mapping _Coerce---- | Maximum results per page.-mdqMaxResults :: Lens' McfDataQuery (Maybe Int32)-mdqMaxResults-  = lens _mdqMaxResults-      (\ s a -> s{_mdqMaxResults = a})-      . mapping _Coerce---- | Analytics advanced segment.-mdqSegment :: Lens' McfDataQuery (Maybe Text)-mdqSegment-  = lens _mdqSegment (\ s a -> s{_mdqSegment = a})---- | Start date.-mdqStartDate :: Lens' McfDataQuery (Maybe Text)-mdqStartDate-  = lens _mdqStartDate (\ s a -> s{_mdqStartDate = a})--instance FromJSON McfDataQuery where-        parseJSON-          = withObject "McfDataQuery"-              (\ o ->-                 McfDataQuery' <$>-                   (o .:? "metrics" .!= mempty) <*>-                     (o .:? "samplingLevel")-                     <*> (o .:? "filters")-                     <*> (o .:? "ids")-                     <*> (o .:? "end-date")-                     <*> (o .:? "sort" .!= mempty)-                     <*> (o .:? "dimensions")-                     <*> (o .:? "start-index")-                     <*> (o .:? "max-results")-                     <*> (o .:? "segment")-                     <*> (o .:? "start-date"))--instance ToJSON McfDataQuery where-        toJSON McfDataQuery'{..}-          = object-              (catMaybes-                 [("metrics" .=) <$> _mdqMetrics,-                  ("samplingLevel" .=) <$> _mdqSamplingLevel,-                  ("filters" .=) <$> _mdqFilters,-                  ("ids" .=) <$> _mdqIds,-                  ("end-date" .=) <$> _mdqEndDate,-                  ("sort" .=) <$> _mdqSort,-                  ("dimensions" .=) <$> _mdqDimensions,-                  ("start-index" .=) <$> _mdqStartIndex,-                  ("max-results" .=) <$> _mdqMaxResults,-                  ("segment" .=) <$> _mdqSegment,-                  ("start-date" .=) <$> _mdqStartDate])---- | JSON template for Analytics goal resource.------ /See:/ 'goal' smart constructor.-data Goal =-  Goal'-    { _goaParentLink             :: !(Maybe GoalParentLink)-    , _goaWebPropertyId          :: !(Maybe Text)-    , _goaKind                   :: !Text-    , _goaCreated                :: !(Maybe DateTime')-    , _goaValue                  :: !(Maybe (Textual Double))-    , _goaProFileId              :: !(Maybe Text)-    , _goaEventDetails           :: !(Maybe GoalEventDetails)-    , _goaActive                 :: !(Maybe Bool)-    , _goaSelfLink               :: !(Maybe Text)-    , _goaVisitTimeOnSiteDetails :: !(Maybe GoalVisitTimeOnSiteDetails)-    , _goaAccountId              :: !(Maybe Text)-    , _goaName                   :: !(Maybe Text)-    , _goaInternalWebPropertyId  :: !(Maybe Text)-    , _goaId                     :: !(Maybe Text)-    , _goaURLDestinationDetails  :: !(Maybe GoalURLDestinationDetails)-    , _goaVisitNumPagesDetails   :: !(Maybe GoalVisitNumPagesDetails)-    , _goaUpdated                :: !(Maybe DateTime')-    , _goaType                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Goal' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'goaParentLink'------ * 'goaWebPropertyId'------ * 'goaKind'------ * 'goaCreated'------ * 'goaValue'------ * 'goaProFileId'------ * 'goaEventDetails'------ * 'goaActive'------ * 'goaSelfLink'------ * 'goaVisitTimeOnSiteDetails'------ * 'goaAccountId'------ * 'goaName'------ * 'goaInternalWebPropertyId'------ * 'goaId'------ * 'goaURLDestinationDetails'------ * 'goaVisitNumPagesDetails'------ * 'goaUpdated'------ * 'goaType'-goal-    :: Goal-goal =-  Goal'-    { _goaParentLink = Nothing-    , _goaWebPropertyId = Nothing-    , _goaKind = "analytics#goal"-    , _goaCreated = Nothing-    , _goaValue = Nothing-    , _goaProFileId = Nothing-    , _goaEventDetails = Nothing-    , _goaActive = Nothing-    , _goaSelfLink = Nothing-    , _goaVisitTimeOnSiteDetails = Nothing-    , _goaAccountId = Nothing-    , _goaName = Nothing-    , _goaInternalWebPropertyId = Nothing-    , _goaId = Nothing-    , _goaURLDestinationDetails = Nothing-    , _goaVisitNumPagesDetails = Nothing-    , _goaUpdated = Nothing-    , _goaType = Nothing-    }----- | Parent link for a goal. Points to the view (profile) to which this goal--- belongs.-goaParentLink :: Lens' Goal (Maybe GoalParentLink)-goaParentLink-  = lens _goaParentLink-      (\ s a -> s{_goaParentLink = a})---- | Web property ID to which this goal belongs. The web property ID is of--- the form UA-XXXXX-YY.-goaWebPropertyId :: Lens' Goal (Maybe Text)-goaWebPropertyId-  = lens _goaWebPropertyId-      (\ s a -> s{_goaWebPropertyId = a})---- | Resource type for an Analytics goal.-goaKind :: Lens' Goal Text-goaKind = lens _goaKind (\ s a -> s{_goaKind = a})---- | Time this goal was created.-goaCreated :: Lens' Goal (Maybe UTCTime)-goaCreated-  = lens _goaCreated (\ s a -> s{_goaCreated = a}) .-      mapping _DateTime---- | Goal value.-goaValue :: Lens' Goal (Maybe Double)-goaValue-  = lens _goaValue (\ s a -> s{_goaValue = a}) .-      mapping _Coerce---- | View (Profile) ID to which this goal belongs.-goaProFileId :: Lens' Goal (Maybe Text)-goaProFileId-  = lens _goaProFileId (\ s a -> s{_goaProFileId = a})---- | Details for the goal of the type EVENT.-goaEventDetails :: Lens' Goal (Maybe GoalEventDetails)-goaEventDetails-  = lens _goaEventDetails-      (\ s a -> s{_goaEventDetails = a})---- | Determines whether this goal is active.-goaActive :: Lens' Goal (Maybe Bool)-goaActive-  = lens _goaActive (\ s a -> s{_goaActive = a})---- | Link for this goal.-goaSelfLink :: Lens' Goal (Maybe Text)-goaSelfLink-  = lens _goaSelfLink (\ s a -> s{_goaSelfLink = a})---- | Details for the goal of the type VISIT_TIME_ON_SITE.-goaVisitTimeOnSiteDetails :: Lens' Goal (Maybe GoalVisitTimeOnSiteDetails)-goaVisitTimeOnSiteDetails-  = lens _goaVisitTimeOnSiteDetails-      (\ s a -> s{_goaVisitTimeOnSiteDetails = a})---- | Account ID to which this goal belongs.-goaAccountId :: Lens' Goal (Maybe Text)-goaAccountId-  = lens _goaAccountId (\ s a -> s{_goaAccountId = a})---- | Goal name.-goaName :: Lens' Goal (Maybe Text)-goaName = lens _goaName (\ s a -> s{_goaName = a})---- | Internal ID for the web property to which this goal belongs.-goaInternalWebPropertyId :: Lens' Goal (Maybe Text)-goaInternalWebPropertyId-  = lens _goaInternalWebPropertyId-      (\ s a -> s{_goaInternalWebPropertyId = a})---- | Goal ID.-goaId :: Lens' Goal (Maybe Text)-goaId = lens _goaId (\ s a -> s{_goaId = a})---- | Details for the goal of the type URL_DESTINATION.-goaURLDestinationDetails :: Lens' Goal (Maybe GoalURLDestinationDetails)-goaURLDestinationDetails-  = lens _goaURLDestinationDetails-      (\ s a -> s{_goaURLDestinationDetails = a})---- | Details for the goal of the type VISIT_NUM_PAGES.-goaVisitNumPagesDetails :: Lens' Goal (Maybe GoalVisitNumPagesDetails)-goaVisitNumPagesDetails-  = lens _goaVisitNumPagesDetails-      (\ s a -> s{_goaVisitNumPagesDetails = a})---- | Time this goal was last modified.-goaUpdated :: Lens' Goal (Maybe UTCTime)-goaUpdated-  = lens _goaUpdated (\ s a -> s{_goaUpdated = a}) .-      mapping _DateTime---- | Goal type. Possible values are URL_DESTINATION, VISIT_TIME_ON_SITE,--- VISIT_NUM_PAGES, AND EVENT.-goaType :: Lens' Goal (Maybe Text)-goaType = lens _goaType (\ s a -> s{_goaType = a})--instance FromJSON Goal where-        parseJSON-          = withObject "Goal"-              (\ o ->-                 Goal' <$>-                   (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#goal")-                     <*> (o .:? "created")-                     <*> (o .:? "value")-                     <*> (o .:? "profileId")-                     <*> (o .:? "eventDetails")-                     <*> (o .:? "active")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "visitTimeOnSiteDetails")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "id")-                     <*> (o .:? "urlDestinationDetails")-                     <*> (o .:? "visitNumPagesDetails")-                     <*> (o .:? "updated")-                     <*> (o .:? "type"))--instance ToJSON Goal where-        toJSON Goal'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _goaParentLink,-                  ("webPropertyId" .=) <$> _goaWebPropertyId,-                  Just ("kind" .= _goaKind),-                  ("created" .=) <$> _goaCreated,-                  ("value" .=) <$> _goaValue,-                  ("profileId" .=) <$> _goaProFileId,-                  ("eventDetails" .=) <$> _goaEventDetails,-                  ("active" .=) <$> _goaActive,-                  ("selfLink" .=) <$> _goaSelfLink,-                  ("visitTimeOnSiteDetails" .=) <$>-                    _goaVisitTimeOnSiteDetails,-                  ("accountId" .=) <$> _goaAccountId,-                  ("name" .=) <$> _goaName,-                  ("internalWebPropertyId" .=) <$>-                    _goaInternalWebPropertyId,-                  ("id" .=) <$> _goaId,-                  ("urlDestinationDetails" .=) <$>-                    _goaURLDestinationDetails,-                  ("visitNumPagesDetails" .=) <$>-                    _goaVisitNumPagesDetails,-                  ("updated" .=) <$> _goaUpdated,-                  ("type" .=) <$> _goaType])---- | JSON template for an Analytics account ticket. The account ticket--- consists of the ticket ID and the basic information for the account,--- property and profile.------ /See:/ 'accountTicket' smart constructor.-data AccountTicket =-  AccountTicket'-    { _atRedirectURI :: !(Maybe Text)-    , _atKind        :: !Text-    , _atProFile     :: !(Maybe ProFile)-    , _atAccount     :: !(Maybe Account)-    , _atWebProperty :: !(Maybe WebProperty)-    , _atId          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountTicket' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atRedirectURI'------ * 'atKind'------ * 'atProFile'------ * 'atAccount'------ * 'atWebProperty'------ * 'atId'-accountTicket-    :: AccountTicket-accountTicket =-  AccountTicket'-    { _atRedirectURI = Nothing-    , _atKind = "analytics#accountTicket"-    , _atProFile = Nothing-    , _atAccount = Nothing-    , _atWebProperty = Nothing-    , _atId = Nothing-    }----- | Redirect URI where the user will be sent after accepting Terms of--- Service. Must be configured in APIs console as a callback URL.-atRedirectURI :: Lens' AccountTicket (Maybe Text)-atRedirectURI-  = lens _atRedirectURI-      (\ s a -> s{_atRedirectURI = a})---- | Resource type for account ticket.-atKind :: Lens' AccountTicket Text-atKind = lens _atKind (\ s a -> s{_atKind = a})---- | View (Profile) for the account.-atProFile :: Lens' AccountTicket (Maybe ProFile)-atProFile-  = lens _atProFile (\ s a -> s{_atProFile = a})---- | Account for this ticket.-atAccount :: Lens' AccountTicket (Maybe Account)-atAccount-  = lens _atAccount (\ s a -> s{_atAccount = a})---- | Web property for the account.-atWebProperty :: Lens' AccountTicket (Maybe WebProperty)-atWebProperty-  = lens _atWebProperty-      (\ s a -> s{_atWebProperty = a})---- | Account ticket ID used to access the account ticket.-atId :: Lens' AccountTicket (Maybe Text)-atId = lens _atId (\ s a -> s{_atId = a})--instance FromJSON AccountTicket where-        parseJSON-          = withObject "AccountTicket"-              (\ o ->-                 AccountTicket' <$>-                   (o .:? "redirectUri") <*>-                     (o .:? "kind" .!= "analytics#accountTicket")-                     <*> (o .:? "profile")-                     <*> (o .:? "account")-                     <*> (o .:? "webproperty")-                     <*> (o .:? "id"))--instance ToJSON AccountTicket where-        toJSON AccountTicket'{..}-          = object-              (catMaybes-                 [("redirectUri" .=) <$> _atRedirectURI,-                  Just ("kind" .= _atKind),-                  ("profile" .=) <$> _atProFile,-                  ("account" .=) <$> _atAccount,-                  ("webproperty" .=) <$> _atWebProperty,-                  ("id" .=) <$> _atId])---- | JSON template for an Analytics AccountSummary. An AccountSummary is a--- lightweight tree comprised of properties\/profiles.------ /See:/ 'accountSummary' smart constructor.-data AccountSummary =-  AccountSummary'-    { _assKind          :: !Text-    , _assWebProperties :: !(Maybe [WebPropertySummary])-    , _assName          :: !(Maybe Text)-    , _assStarred       :: !(Maybe Bool)-    , _assId            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'assKind'------ * 'assWebProperties'------ * 'assName'------ * 'assStarred'------ * 'assId'-accountSummary-    :: AccountSummary-accountSummary =-  AccountSummary'-    { _assKind = "analytics#accountSummary"-    , _assWebProperties = Nothing-    , _assName = Nothing-    , _assStarred = Nothing-    , _assId = Nothing-    }----- | Resource type for Analytics AccountSummary.-assKind :: Lens' AccountSummary Text-assKind = lens _assKind (\ s a -> s{_assKind = a})---- | List of web properties under this account.-assWebProperties :: Lens' AccountSummary [WebPropertySummary]-assWebProperties-  = lens _assWebProperties-      (\ s a -> s{_assWebProperties = a})-      . _Default-      . _Coerce---- | Account name.-assName :: Lens' AccountSummary (Maybe Text)-assName = lens _assName (\ s a -> s{_assName = a})---- | Indicates whether this account is starred or not.-assStarred :: Lens' AccountSummary (Maybe Bool)-assStarred-  = lens _assStarred (\ s a -> s{_assStarred = a})---- | Account ID.-assId :: Lens' AccountSummary (Maybe Text)-assId = lens _assId (\ s a -> s{_assId = a})--instance FromJSON AccountSummary where-        parseJSON-          = withObject "AccountSummary"-              (\ o ->-                 AccountSummary' <$>-                   (o .:? "kind" .!= "analytics#accountSummary") <*>-                     (o .:? "webProperties" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "starred")-                     <*> (o .:? "id"))--instance ToJSON AccountSummary where-        toJSON AccountSummary'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _assKind),-                  ("webProperties" .=) <$> _assWebProperties,-                  ("name" .=) <$> _assName,-                  ("starred" .=) <$> _assStarred,-                  ("id" .=) <$> _assId])---- | Real time data request query parameters.------ /See:/ 'realtimeDataQuery' smart constructor.-data RealtimeDataQuery =-  RealtimeDataQuery'-    { _rdqMetrics    :: !(Maybe [Text])-    , _rdqFilters    :: !(Maybe Text)-    , _rdqIds        :: !(Maybe Text)-    , _rdqSort       :: !(Maybe [Text])-    , _rdqDimensions :: !(Maybe Text)-    , _rdqMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RealtimeDataQuery' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdqMetrics'------ * 'rdqFilters'------ * 'rdqIds'------ * 'rdqSort'------ * 'rdqDimensions'------ * 'rdqMaxResults'-realtimeDataQuery-    :: RealtimeDataQuery-realtimeDataQuery =-  RealtimeDataQuery'-    { _rdqMetrics = Nothing-    , _rdqFilters = Nothing-    , _rdqIds = Nothing-    , _rdqSort = Nothing-    , _rdqDimensions = Nothing-    , _rdqMaxResults = Nothing-    }----- | List of real time metrics.-rdqMetrics :: Lens' RealtimeDataQuery [Text]-rdqMetrics-  = lens _rdqMetrics (\ s a -> s{_rdqMetrics = a}) .-      _Default-      . _Coerce---- | Comma-separated list of dimension or metric filters.-rdqFilters :: Lens' RealtimeDataQuery (Maybe Text)-rdqFilters-  = lens _rdqFilters (\ s a -> s{_rdqFilters = a})---- | Unique table ID.-rdqIds :: Lens' RealtimeDataQuery (Maybe Text)-rdqIds = lens _rdqIds (\ s a -> s{_rdqIds = a})---- | List of dimensions or metrics based on which real time data is sorted.-rdqSort :: Lens' RealtimeDataQuery [Text]-rdqSort-  = lens _rdqSort (\ s a -> s{_rdqSort = a}) . _Default-      . _Coerce---- | List of real time dimensions.-rdqDimensions :: Lens' RealtimeDataQuery (Maybe Text)-rdqDimensions-  = lens _rdqDimensions-      (\ s a -> s{_rdqDimensions = a})---- | Maximum results per page.-rdqMaxResults :: Lens' RealtimeDataQuery (Maybe Int32)-rdqMaxResults-  = lens _rdqMaxResults-      (\ s a -> s{_rdqMaxResults = a})-      . mapping _Coerce--instance FromJSON RealtimeDataQuery where-        parseJSON-          = withObject "RealtimeDataQuery"-              (\ o ->-                 RealtimeDataQuery' <$>-                   (o .:? "metrics" .!= mempty) <*> (o .:? "filters")-                     <*> (o .:? "ids")-                     <*> (o .:? "sort" .!= mempty)-                     <*> (o .:? "dimensions")-                     <*> (o .:? "max-results"))--instance ToJSON RealtimeDataQuery where-        toJSON RealtimeDataQuery'{..}-          = object-              (catMaybes-                 [("metrics" .=) <$> _rdqMetrics,-                  ("filters" .=) <$> _rdqFilters,-                  ("ids" .=) <$> _rdqIds, ("sort" .=) <$> _rdqSort,-                  ("dimensions" .=) <$> _rdqDimensions,-                  ("max-results" .=) <$> _rdqMaxResults])---- | Lists columns (dimensions and metrics) for a particular report type.------ /See:/ 'columns' smart constructor.-data Columns =-  Columns'-    { _colEtag           :: !(Maybe Text)-    , _colKind           :: !Text-    , _colItems          :: !(Maybe [Column])-    , _colTotalResults   :: !(Maybe (Textual Int32))-    , _colAttributeNames :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Columns' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'colEtag'------ * 'colKind'------ * 'colItems'------ * 'colTotalResults'------ * 'colAttributeNames'-columns-    :: Columns-columns =-  Columns'-    { _colEtag = Nothing-    , _colKind = "analytics#columns"-    , _colItems = Nothing-    , _colTotalResults = Nothing-    , _colAttributeNames = Nothing-    }----- | Etag of collection. This etag can be compared with the last response--- etag to check if response has changed.-colEtag :: Lens' Columns (Maybe Text)-colEtag = lens _colEtag (\ s a -> s{_colEtag = a})---- | Collection type.-colKind :: Lens' Columns Text-colKind = lens _colKind (\ s a -> s{_colKind = a})---- | List of columns for a report type.-colItems :: Lens' Columns [Column]-colItems-  = lens _colItems (\ s a -> s{_colItems = a}) .-      _Default-      . _Coerce---- | Total number of columns returned in the response.-colTotalResults :: Lens' Columns (Maybe Int32)-colTotalResults-  = lens _colTotalResults-      (\ s a -> s{_colTotalResults = a})-      . mapping _Coerce---- | List of attributes names returned by columns.-colAttributeNames :: Lens' Columns [Text]-colAttributeNames-  = lens _colAttributeNames-      (\ s a -> s{_colAttributeNames = a})-      . _Default-      . _Coerce--instance FromJSON Columns where-        parseJSON-          = withObject "Columns"-              (\ o ->-                 Columns' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "analytics#columns")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "attributeNames" .!= mempty))--instance ToJSON Columns where-        toJSON Columns'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _colEtag, Just ("kind" .= _colKind),-                  ("items" .=) <$> _colItems,-                  ("totalResults" .=) <$> _colTotalResults,-                  ("attributeNames" .=) <$> _colAttributeNames])---- | Details for the filter of the type LOWER.------ /See:/ 'filterLowercaseDetails' smart constructor.-data FilterLowercaseDetails =-  FilterLowercaseDetails'-    { _fldFieldIndex :: !(Maybe (Textual Int32))-    , _fldField      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterLowercaseDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fldFieldIndex'------ * 'fldField'-filterLowercaseDetails-    :: FilterLowercaseDetails-filterLowercaseDetails =-  FilterLowercaseDetails' {_fldFieldIndex = Nothing, _fldField = Nothing}----- | The Index of the custom dimension. Required if field is a--- CUSTOM_DIMENSION.-fldFieldIndex :: Lens' FilterLowercaseDetails (Maybe Int32)-fldFieldIndex-  = lens _fldFieldIndex-      (\ s a -> s{_fldFieldIndex = a})-      . mapping _Coerce---- | Field to use in the filter.-fldField :: Lens' FilterLowercaseDetails (Maybe Text)-fldField = lens _fldField (\ s a -> s{_fldField = a})--instance FromJSON FilterLowercaseDetails where-        parseJSON-          = withObject "FilterLowercaseDetails"-              (\ o ->-                 FilterLowercaseDetails' <$>-                   (o .:? "fieldIndex") <*> (o .:? "field"))--instance ToJSON FilterLowercaseDetails where-        toJSON FilterLowercaseDetails'{..}-          = object-              (catMaybes-                 [("fieldIndex" .=) <$> _fldFieldIndex,-                  ("field" .=) <$> _fldField])---- | JSON template for an Analytics account filter.------ /See:/ 'filter'' smart constructor.-data Filter =-  Filter'-    { _filParentLink              :: !(Maybe FilterParentLink)-    , _filAdvancedDetails         :: !(Maybe FilterAdvancedDetails)-    , _filUppercaseDetails        :: !(Maybe FilterUppercaseDetails)-    , _filLowercaseDetails        :: !(Maybe FilterLowercaseDetails)-    , _filKind                    :: !Text-    , _filCreated                 :: !(Maybe DateTime')-    , _filIncludeDetails          :: !(Maybe FilterExpression)-    , _filExcludeDetails          :: !(Maybe FilterExpression)-    , _filSelfLink                :: !(Maybe Text)-    , _filAccountId               :: !(Maybe Text)-    , _filName                    :: !(Maybe Text)-    , _filId                      :: !(Maybe Text)-    , _filUpdated                 :: !(Maybe DateTime')-    , _filType                    :: !(Maybe Text)-    , _filSearchAndReplaceDetails :: !(Maybe FilterSearchAndReplaceDetails)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Filter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'filParentLink'------ * 'filAdvancedDetails'------ * 'filUppercaseDetails'------ * 'filLowercaseDetails'------ * 'filKind'------ * 'filCreated'------ * 'filIncludeDetails'------ * 'filExcludeDetails'------ * 'filSelfLink'------ * 'filAccountId'------ * 'filName'------ * 'filId'------ * 'filUpdated'------ * 'filType'------ * 'filSearchAndReplaceDetails'-filter'-    :: Filter-filter' =-  Filter'-    { _filParentLink = Nothing-    , _filAdvancedDetails = Nothing-    , _filUppercaseDetails = Nothing-    , _filLowercaseDetails = Nothing-    , _filKind = "analytics#filter"-    , _filCreated = Nothing-    , _filIncludeDetails = Nothing-    , _filExcludeDetails = Nothing-    , _filSelfLink = Nothing-    , _filAccountId = Nothing-    , _filName = Nothing-    , _filId = Nothing-    , _filUpdated = Nothing-    , _filType = Nothing-    , _filSearchAndReplaceDetails = Nothing-    }----- | Parent link for this filter. Points to the account to which this filter--- belongs.-filParentLink :: Lens' Filter (Maybe FilterParentLink)-filParentLink-  = lens _filParentLink-      (\ s a -> s{_filParentLink = a})---- | Details for the filter of the type ADVANCED.-filAdvancedDetails :: Lens' Filter (Maybe FilterAdvancedDetails)-filAdvancedDetails-  = lens _filAdvancedDetails-      (\ s a -> s{_filAdvancedDetails = a})---- | Details for the filter of the type UPPER.-filUppercaseDetails :: Lens' Filter (Maybe FilterUppercaseDetails)-filUppercaseDetails-  = lens _filUppercaseDetails-      (\ s a -> s{_filUppercaseDetails = a})---- | Details for the filter of the type LOWER.-filLowercaseDetails :: Lens' Filter (Maybe FilterLowercaseDetails)-filLowercaseDetails-  = lens _filLowercaseDetails-      (\ s a -> s{_filLowercaseDetails = a})---- | Resource type for Analytics filter.-filKind :: Lens' Filter Text-filKind = lens _filKind (\ s a -> s{_filKind = a})---- | Time this filter was created.-filCreated :: Lens' Filter (Maybe UTCTime)-filCreated-  = lens _filCreated (\ s a -> s{_filCreated = a}) .-      mapping _DateTime---- | Details for the filter of the type INCLUDE.-filIncludeDetails :: Lens' Filter (Maybe FilterExpression)-filIncludeDetails-  = lens _filIncludeDetails-      (\ s a -> s{_filIncludeDetails = a})---- | Details for the filter of the type EXCLUDE.-filExcludeDetails :: Lens' Filter (Maybe FilterExpression)-filExcludeDetails-  = lens _filExcludeDetails-      (\ s a -> s{_filExcludeDetails = a})---- | Link for this filter.-filSelfLink :: Lens' Filter (Maybe Text)-filSelfLink-  = lens _filSelfLink (\ s a -> s{_filSelfLink = a})---- | Account ID to which this filter belongs.-filAccountId :: Lens' Filter (Maybe Text)-filAccountId-  = lens _filAccountId (\ s a -> s{_filAccountId = a})---- | Name of this filter.-filName :: Lens' Filter (Maybe Text)-filName = lens _filName (\ s a -> s{_filName = a})---- | Filter ID.-filId :: Lens' Filter (Maybe Text)-filId = lens _filId (\ s a -> s{_filId = a})---- | Time this filter was last modified.-filUpdated :: Lens' Filter (Maybe UTCTime)-filUpdated-  = lens _filUpdated (\ s a -> s{_filUpdated = a}) .-      mapping _DateTime---- | Type of this filter. Possible values are INCLUDE, EXCLUDE, LOWERCASE,--- UPPERCASE, SEARCH_AND_REPLACE and ADVANCED.-filType :: Lens' Filter (Maybe Text)-filType = lens _filType (\ s a -> s{_filType = a})---- | Details for the filter of the type SEARCH_AND_REPLACE.-filSearchAndReplaceDetails :: Lens' Filter (Maybe FilterSearchAndReplaceDetails)-filSearchAndReplaceDetails-  = lens _filSearchAndReplaceDetails-      (\ s a -> s{_filSearchAndReplaceDetails = a})--instance FromJSON Filter where-        parseJSON-          = withObject "Filter"-              (\ o ->-                 Filter' <$>-                   (o .:? "parentLink") <*> (o .:? "advancedDetails")-                     <*> (o .:? "uppercaseDetails")-                     <*> (o .:? "lowercaseDetails")-                     <*> (o .:? "kind" .!= "analytics#filter")-                     <*> (o .:? "created")-                     <*> (o .:? "includeDetails")-                     <*> (o .:? "excludeDetails")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "type")-                     <*> (o .:? "searchAndReplaceDetails"))--instance ToJSON Filter where-        toJSON Filter'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _filParentLink,-                  ("advancedDetails" .=) <$> _filAdvancedDetails,-                  ("uppercaseDetails" .=) <$> _filUppercaseDetails,-                  ("lowercaseDetails" .=) <$> _filLowercaseDetails,-                  Just ("kind" .= _filKind),-                  ("created" .=) <$> _filCreated,-                  ("includeDetails" .=) <$> _filIncludeDetails,-                  ("excludeDetails" .=) <$> _filExcludeDetails,-                  ("selfLink" .=) <$> _filSelfLink,-                  ("accountId" .=) <$> _filAccountId,-                  ("name" .=) <$> _filName, ("id" .=) <$> _filId,-                  ("updated" .=) <$> _filUpdated,-                  ("type" .=) <$> _filType,-                  ("searchAndReplaceDetails" .=) <$>-                    _filSearchAndReplaceDetails])---- | Upload collection lists Analytics uploads to which the user has access.--- Each custom data source can have a set of uploads. Each resource in the--- upload collection corresponds to a single Analytics data upload.------ /See:/ 'uploads' smart constructor.-data Uploads =-  Uploads'-    { _uplNextLink     :: !(Maybe Text)-    , _uplItemsPerPage :: !(Maybe (Textual Int32))-    , _uplKind         :: !Text-    , _uplItems        :: !(Maybe [Upload])-    , _uplTotalResults :: !(Maybe (Textual Int32))-    , _uplStartIndex   :: !(Maybe (Textual Int32))-    , _uplPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Uploads' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uplNextLink'------ * 'uplItemsPerPage'------ * 'uplKind'------ * 'uplItems'------ * 'uplTotalResults'------ * 'uplStartIndex'------ * 'uplPreviousLink'-uploads-    :: Uploads-uploads =-  Uploads'-    { _uplNextLink = Nothing-    , _uplItemsPerPage = Nothing-    , _uplKind = "analytics#uploads"-    , _uplItems = Nothing-    , _uplTotalResults = Nothing-    , _uplStartIndex = Nothing-    , _uplPreviousLink = Nothing-    }----- | Link to next page for this upload collection.-uplNextLink :: Lens' Uploads (Maybe Text)-uplNextLink-  = lens _uplNextLink (\ s a -> s{_uplNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-uplItemsPerPage :: Lens' Uploads (Maybe Int32)-uplItemsPerPage-  = lens _uplItemsPerPage-      (\ s a -> s{_uplItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-uplKind :: Lens' Uploads Text-uplKind = lens _uplKind (\ s a -> s{_uplKind = a})---- | A list of uploads.-uplItems :: Lens' Uploads [Upload]-uplItems-  = lens _uplItems (\ s a -> s{_uplItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- resources in the result.-uplTotalResults :: Lens' Uploads (Maybe Int32)-uplTotalResults-  = lens _uplTotalResults-      (\ s a -> s{_uplTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-uplStartIndex :: Lens' Uploads (Maybe Int32)-uplStartIndex-  = lens _uplStartIndex-      (\ s a -> s{_uplStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this upload collection.-uplPreviousLink :: Lens' Uploads (Maybe Text)-uplPreviousLink-  = lens _uplPreviousLink-      (\ s a -> s{_uplPreviousLink = a})--instance FromJSON Uploads where-        parseJSON-          = withObject "Uploads"-              (\ o ->-                 Uploads' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#uploads")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Uploads where-        toJSON Uploads'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _uplNextLink,-                  ("itemsPerPage" .=) <$> _uplItemsPerPage,-                  Just ("kind" .= _uplKind),-                  ("items" .=) <$> _uplItems,-                  ("totalResults" .=) <$> _uplTotalResults,-                  ("startIndex" .=) <$> _uplStartIndex,-                  ("previousLink" .=) <$> _uplPreviousLink])---- | A custom dimension collection lists Analytics custom dimensions to which--- the user has access. Each resource in the collection corresponds to a--- single Analytics custom dimension.------ /See:/ 'customDimensions' smart constructor.-data CustomDimensions =-  CustomDimensions'-    { _cdNextLink     :: !(Maybe Text)-    , _cdItemsPerPage :: !(Maybe (Textual Int32))-    , _cdKind         :: !Text-    , _cdUsername     :: !(Maybe Text)-    , _cdItems        :: !(Maybe [CustomDimension])-    , _cdTotalResults :: !(Maybe (Textual Int32))-    , _cdStartIndex   :: !(Maybe (Textual Int32))-    , _cdPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDimensions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdNextLink'------ * 'cdItemsPerPage'------ * 'cdKind'------ * 'cdUsername'------ * 'cdItems'------ * 'cdTotalResults'------ * 'cdStartIndex'------ * 'cdPreviousLink'-customDimensions-    :: CustomDimensions-customDimensions =-  CustomDimensions'-    { _cdNextLink = Nothing-    , _cdItemsPerPage = Nothing-    , _cdKind = "analytics#customDimensions"-    , _cdUsername = Nothing-    , _cdItems = Nothing-    , _cdTotalResults = Nothing-    , _cdStartIndex = Nothing-    , _cdPreviousLink = Nothing-    }----- | Link to next page for this custom dimension collection.-cdNextLink :: Lens' CustomDimensions (Maybe Text)-cdNextLink-  = lens _cdNextLink (\ s a -> s{_cdNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-cdItemsPerPage :: Lens' CustomDimensions (Maybe Int32)-cdItemsPerPage-  = lens _cdItemsPerPage-      (\ s a -> s{_cdItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-cdKind :: Lens' CustomDimensions Text-cdKind = lens _cdKind (\ s a -> s{_cdKind = a})---- | Email ID of the authenticated user-cdUsername :: Lens' CustomDimensions (Maybe Text)-cdUsername-  = lens _cdUsername (\ s a -> s{_cdUsername = a})---- | Collection of custom dimensions.-cdItems :: Lens' CustomDimensions [CustomDimension]-cdItems-  = lens _cdItems (\ s a -> s{_cdItems = a}) . _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-cdTotalResults :: Lens' CustomDimensions (Maybe Int32)-cdTotalResults-  = lens _cdTotalResults-      (\ s a -> s{_cdTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-cdStartIndex :: Lens' CustomDimensions (Maybe Int32)-cdStartIndex-  = lens _cdStartIndex (\ s a -> s{_cdStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this custom dimension collection.-cdPreviousLink :: Lens' CustomDimensions (Maybe Text)-cdPreviousLink-  = lens _cdPreviousLink-      (\ s a -> s{_cdPreviousLink = a})--instance FromJSON CustomDimensions where-        parseJSON-          = withObject "CustomDimensions"-              (\ o ->-                 CustomDimensions' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#customDimensions")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON CustomDimensions where-        toJSON CustomDimensions'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _cdNextLink,-                  ("itemsPerPage" .=) <$> _cdItemsPerPage,-                  Just ("kind" .= _cdKind),-                  ("username" .=) <$> _cdUsername,-                  ("items" .=) <$> _cdItems,-                  ("totalResults" .=) <$> _cdTotalResults,-                  ("startIndex" .=) <$> _cdStartIndex,-                  ("previousLink" .=) <$> _cdPreviousLink])---- | An segment collection lists Analytics segments that the user has access--- to. Each resource in the collection corresponds to a single Analytics--- segment.------ /See:/ 'segments' smart constructor.-data Segments =-  Segments'-    { _sNextLink     :: !(Maybe Text)-    , _sItemsPerPage :: !(Maybe (Textual Int32))-    , _sKind         :: !Text-    , _sUsername     :: !(Maybe Text)-    , _sItems        :: !(Maybe [Segment])-    , _sTotalResults :: !(Maybe (Textual Int32))-    , _sStartIndex   :: !(Maybe (Textual Int32))-    , _sPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Segments' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sNextLink'------ * 'sItemsPerPage'------ * 'sKind'------ * 'sUsername'------ * 'sItems'------ * 'sTotalResults'------ * 'sStartIndex'------ * 'sPreviousLink'-segments-    :: Segments-segments =-  Segments'-    { _sNextLink = Nothing-    , _sItemsPerPage = Nothing-    , _sKind = "analytics#segments"-    , _sUsername = Nothing-    , _sItems = Nothing-    , _sTotalResults = Nothing-    , _sStartIndex = Nothing-    , _sPreviousLink = Nothing-    }----- | Link to next page for this segment collection.-sNextLink :: Lens' Segments (Maybe Text)-sNextLink-  = lens _sNextLink (\ s a -> s{_sNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to 1000--- with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-sItemsPerPage :: Lens' Segments (Maybe Int32)-sItemsPerPage-  = lens _sItemsPerPage-      (\ s a -> s{_sItemsPerPage = a})-      . mapping _Coerce---- | Collection type for segments.-sKind :: Lens' Segments Text-sKind = lens _sKind (\ s a -> s{_sKind = a})---- | Email ID of the authenticated user-sUsername :: Lens' Segments (Maybe Text)-sUsername-  = lens _sUsername (\ s a -> s{_sUsername = a})---- | A list of segments.-sItems :: Lens' Segments [Segment]-sItems-  = lens _sItems (\ s a -> s{_sItems = a}) . _Default .-      _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-sTotalResults :: Lens' Segments (Maybe Int32)-sTotalResults-  = lens _sTotalResults-      (\ s a -> s{_sTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-sStartIndex :: Lens' Segments (Maybe Int32)-sStartIndex-  = lens _sStartIndex (\ s a -> s{_sStartIndex = a}) .-      mapping _Coerce---- | Link to previous page for this segment collection.-sPreviousLink :: Lens' Segments (Maybe Text)-sPreviousLink-  = lens _sPreviousLink-      (\ s a -> s{_sPreviousLink = a})--instance FromJSON Segments where-        parseJSON-          = withObject "Segments"-              (\ o ->-                 Segments' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#segments")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON Segments where-        toJSON Segments'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _sNextLink,-                  ("itemsPerPage" .=) <$> _sItemsPerPage,-                  Just ("kind" .= _sKind),-                  ("username" .=) <$> _sUsername,-                  ("items" .=) <$> _sItems,-                  ("totalResults" .=) <$> _sTotalResults,-                  ("startIndex" .=) <$> _sStartIndex,-                  ("previousLink" .=) <$> _sPreviousLink])------- /See:/ 'gaDataDataTable' smart constructor.-data GaDataDataTable =-  GaDataDataTable'-    { _gddtCols :: !(Maybe [GaDataDataTableColsItem])-    , _gddtRows :: !(Maybe [GaDataDataTableRowsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataDataTable' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gddtCols'------ * 'gddtRows'-gaDataDataTable-    :: GaDataDataTable-gaDataDataTable = GaDataDataTable' {_gddtCols = Nothing, _gddtRows = Nothing}---gddtCols :: Lens' GaDataDataTable [GaDataDataTableColsItem]-gddtCols-  = lens _gddtCols (\ s a -> s{_gddtCols = a}) .-      _Default-      . _Coerce--gddtRows :: Lens' GaDataDataTable [GaDataDataTableRowsItem]-gddtRows-  = lens _gddtRows (\ s a -> s{_gddtRows = a}) .-      _Default-      . _Coerce--instance FromJSON GaDataDataTable where-        parseJSON-          = withObject "GaDataDataTable"-              (\ o ->-                 GaDataDataTable' <$>-                   (o .:? "cols" .!= mempty) <*>-                     (o .:? "rows" .!= mempty))--instance ToJSON GaDataDataTable where-        toJSON GaDataDataTable'{..}-          = object-              (catMaybes-                 [("cols" .=) <$> _gddtCols,-                  ("rows" .=) <$> _gddtRows])---- | Web property being linked.------ /See:/ 'entityAdWordsLinkEntity' smart constructor.-newtype EntityAdWordsLinkEntity =-  EntityAdWordsLinkEntity'-    { _eawleWebPropertyRef :: Maybe WebPropertyRef-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EntityAdWordsLinkEntity' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eawleWebPropertyRef'-entityAdWordsLinkEntity-    :: EntityAdWordsLinkEntity-entityAdWordsLinkEntity =-  EntityAdWordsLinkEntity' {_eawleWebPropertyRef = Nothing}---eawleWebPropertyRef :: Lens' EntityAdWordsLinkEntity (Maybe WebPropertyRef)-eawleWebPropertyRef-  = lens _eawleWebPropertyRef-      (\ s a -> s{_eawleWebPropertyRef = a})--instance FromJSON EntityAdWordsLinkEntity where-        parseJSON-          = withObject "EntityAdWordsLinkEntity"-              (\ o ->-                 EntityAdWordsLinkEntity' <$>-                   (o .:? "webPropertyRef"))--instance ToJSON EntityAdWordsLinkEntity where-        toJSON EntityAdWordsLinkEntity'{..}-          = object-              (catMaybes-                 [("webPropertyRef" .=) <$> _eawleWebPropertyRef])---- | A state based audience definition that will cause a user to be added or--- removed from an audience.------ /See:/ 'remarketingAudienceStateBasedAudienceDefinition' smart constructor.-data RemarketingAudienceStateBasedAudienceDefinition =-  RemarketingAudienceStateBasedAudienceDefinition'-    { _rasbadExcludeConditions :: !(Maybe RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions)-    , _rasbadIncludeConditions :: !(Maybe IncludeConditions)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RemarketingAudienceStateBasedAudienceDefinition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rasbadExcludeConditions'------ * 'rasbadIncludeConditions'-remarketingAudienceStateBasedAudienceDefinition-    :: RemarketingAudienceStateBasedAudienceDefinition-remarketingAudienceStateBasedAudienceDefinition =-  RemarketingAudienceStateBasedAudienceDefinition'-    {_rasbadExcludeConditions = Nothing, _rasbadIncludeConditions = Nothing}----- | Defines the conditions to exclude users from the audience.-rasbadExcludeConditions :: Lens' RemarketingAudienceStateBasedAudienceDefinition (Maybe RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions)-rasbadExcludeConditions-  = lens _rasbadExcludeConditions-      (\ s a -> s{_rasbadExcludeConditions = a})---- | Defines the conditions to include users to the audience.-rasbadIncludeConditions :: Lens' RemarketingAudienceStateBasedAudienceDefinition (Maybe IncludeConditions)-rasbadIncludeConditions-  = lens _rasbadIncludeConditions-      (\ s a -> s{_rasbadIncludeConditions = a})--instance FromJSON-           RemarketingAudienceStateBasedAudienceDefinition-         where-        parseJSON-          = withObject-              "RemarketingAudienceStateBasedAudienceDefinition"-              (\ o ->-                 RemarketingAudienceStateBasedAudienceDefinition' <$>-                   (o .:? "excludeConditions") <*>-                     (o .:? "includeConditions"))--instance ToJSON-           RemarketingAudienceStateBasedAudienceDefinition-         where-        toJSON-          RemarketingAudienceStateBasedAudienceDefinition'{..}-          = object-              (catMaybes-                 [("excludeConditions" .=) <$>-                    _rasbadExcludeConditions,-                  ("includeConditions" .=) <$>-                    _rasbadIncludeConditions])---- | Details for the goal of the type URL_DESTINATION.------ /See:/ 'goalURLDestinationDetails' smart constructor.-data GoalURLDestinationDetails =-  GoalURLDestinationDetails'-    { _guddURL               :: !(Maybe Text)-    , _guddMatchType         :: !(Maybe Text)-    , _guddSteps             :: !(Maybe [GoalURLDestinationDetailsStepsItem])-    , _guddCaseSensitive     :: !(Maybe Bool)-    , _guddFirstStepRequired :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalURLDestinationDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'guddURL'------ * 'guddMatchType'------ * 'guddSteps'------ * 'guddCaseSensitive'------ * 'guddFirstStepRequired'-goalURLDestinationDetails-    :: GoalURLDestinationDetails-goalURLDestinationDetails =-  GoalURLDestinationDetails'-    { _guddURL = Nothing-    , _guddMatchType = Nothing-    , _guddSteps = Nothing-    , _guddCaseSensitive = Nothing-    , _guddFirstStepRequired = Nothing-    }----- | URL for this goal.-guddURL :: Lens' GoalURLDestinationDetails (Maybe Text)-guddURL = lens _guddURL (\ s a -> s{_guddURL = a})---- | Match type for the goal URL. Possible values are HEAD, EXACT, or REGEX.-guddMatchType :: Lens' GoalURLDestinationDetails (Maybe Text)-guddMatchType-  = lens _guddMatchType-      (\ s a -> s{_guddMatchType = a})---- | List of steps configured for this goal funnel.-guddSteps :: Lens' GoalURLDestinationDetails [GoalURLDestinationDetailsStepsItem]-guddSteps-  = lens _guddSteps (\ s a -> s{_guddSteps = a}) .-      _Default-      . _Coerce---- | Determines if the goal URL must exactly match the capitalization of--- visited URLs.-guddCaseSensitive :: Lens' GoalURLDestinationDetails (Maybe Bool)-guddCaseSensitive-  = lens _guddCaseSensitive-      (\ s a -> s{_guddCaseSensitive = a})---- | Determines if the first step in this goal is required.-guddFirstStepRequired :: Lens' GoalURLDestinationDetails (Maybe Bool)-guddFirstStepRequired-  = lens _guddFirstStepRequired-      (\ s a -> s{_guddFirstStepRequired = a})--instance FromJSON GoalURLDestinationDetails where-        parseJSON-          = withObject "GoalURLDestinationDetails"-              (\ o ->-                 GoalURLDestinationDetails' <$>-                   (o .:? "url") <*> (o .:? "matchType") <*>-                     (o .:? "steps" .!= mempty)-                     <*> (o .:? "caseSensitive")-                     <*> (o .:? "firstStepRequired"))--instance ToJSON GoalURLDestinationDetails where-        toJSON GoalURLDestinationDetails'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _guddURL,-                  ("matchType" .=) <$> _guddMatchType,-                  ("steps" .=) <$> _guddSteps,-                  ("caseSensitive" .=) <$> _guddCaseSensitive,-                  ("firstStepRequired" .=) <$> _guddFirstStepRequired])---- | A profile filter link collection lists profile filter links between--- profiles and filters. Each resource in the collection corresponds to a--- profile filter link.------ /See:/ 'proFileFilterLinks' smart constructor.-data ProFileFilterLinks =-  ProFileFilterLinks'-    { _pfflNextLink     :: !(Maybe Text)-    , _pfflItemsPerPage :: !(Maybe (Textual Int32))-    , _pfflKind         :: !Text-    , _pfflUsername     :: !(Maybe Text)-    , _pfflItems        :: !(Maybe [ProFileFilterLink])-    , _pfflTotalResults :: !(Maybe (Textual Int32))-    , _pfflStartIndex   :: !(Maybe (Textual Int32))-    , _pfflPreviousLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileFilterLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfflNextLink'------ * 'pfflItemsPerPage'------ * 'pfflKind'------ * 'pfflUsername'------ * 'pfflItems'------ * 'pfflTotalResults'------ * 'pfflStartIndex'------ * 'pfflPreviousLink'-proFileFilterLinks-    :: ProFileFilterLinks-proFileFilterLinks =-  ProFileFilterLinks'-    { _pfflNextLink = Nothing-    , _pfflItemsPerPage = Nothing-    , _pfflKind = "analytics#profileFilterLinks"-    , _pfflUsername = Nothing-    , _pfflItems = Nothing-    , _pfflTotalResults = Nothing-    , _pfflStartIndex = Nothing-    , _pfflPreviousLink = Nothing-    }----- | Link to next page for this profile filter link collection.-pfflNextLink :: Lens' ProFileFilterLinks (Maybe Text)-pfflNextLink-  = lens _pfflNextLink (\ s a -> s{_pfflNextLink = a})---- | The maximum number of resources the response can contain, regardless of--- the actual number of resources returned. Its value ranges from 1 to--- 1,000 with a value of 1000 by default, or otherwise specified by the--- max-results query parameter.-pfflItemsPerPage :: Lens' ProFileFilterLinks (Maybe Int32)-pfflItemsPerPage-  = lens _pfflItemsPerPage-      (\ s a -> s{_pfflItemsPerPage = a})-      . mapping _Coerce---- | Collection type.-pfflKind :: Lens' ProFileFilterLinks Text-pfflKind = lens _pfflKind (\ s a -> s{_pfflKind = a})---- | Email ID of the authenticated user-pfflUsername :: Lens' ProFileFilterLinks (Maybe Text)-pfflUsername-  = lens _pfflUsername (\ s a -> s{_pfflUsername = a})---- | A list of profile filter links.-pfflItems :: Lens' ProFileFilterLinks [ProFileFilterLink]-pfflItems-  = lens _pfflItems (\ s a -> s{_pfflItems = a}) .-      _Default-      . _Coerce---- | The total number of results for the query, regardless of the number of--- results in the response.-pfflTotalResults :: Lens' ProFileFilterLinks (Maybe Int32)-pfflTotalResults-  = lens _pfflTotalResults-      (\ s a -> s{_pfflTotalResults = a})-      . mapping _Coerce---- | The starting index of the resources, which is 1 by default or otherwise--- specified by the start-index query parameter.-pfflStartIndex :: Lens' ProFileFilterLinks (Maybe Int32)-pfflStartIndex-  = lens _pfflStartIndex-      (\ s a -> s{_pfflStartIndex = a})-      . mapping _Coerce---- | Link to previous page for this profile filter link collection.-pfflPreviousLink :: Lens' ProFileFilterLinks (Maybe Text)-pfflPreviousLink-  = lens _pfflPreviousLink-      (\ s a -> s{_pfflPreviousLink = a})--instance FromJSON ProFileFilterLinks where-        parseJSON-          = withObject "ProFileFilterLinks"-              (\ o ->-                 ProFileFilterLinks' <$>-                   (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>-                     (o .:? "kind" .!= "analytics#profileFilterLinks")-                     <*> (o .:? "username")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "totalResults")-                     <*> (o .:? "startIndex")-                     <*> (o .:? "previousLink"))--instance ToJSON ProFileFilterLinks where-        toJSON ProFileFilterLinks'{..}-          = object-              (catMaybes-                 [("nextLink" .=) <$> _pfflNextLink,-                  ("itemsPerPage" .=) <$> _pfflItemsPerPage,-                  Just ("kind" .= _pfflKind),-                  ("username" .=) <$> _pfflUsername,-                  ("items" .=) <$> _pfflItems,-                  ("totalResults" .=) <$> _pfflTotalResults,-                  ("startIndex" .=) <$> _pfflStartIndex,-                  ("previousLink" .=) <$> _pfflPreviousLink])---- | Parent link for this web property. Points to the account to which this--- web property belongs.------ /See:/ 'webPropertyParentLink' smart constructor.-data WebPropertyParentLink =-  WebPropertyParentLink'-    { _wpplHref :: !(Maybe Text)-    , _wpplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WebPropertyParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpplHref'------ * 'wpplType'-webPropertyParentLink-    :: WebPropertyParentLink-webPropertyParentLink =-  WebPropertyParentLink' {_wpplHref = Nothing, _wpplType = "analytics#account"}----- | Link to the account for this web property.-wpplHref :: Lens' WebPropertyParentLink (Maybe Text)-wpplHref = lens _wpplHref (\ s a -> s{_wpplHref = a})---- | Type of the parent link. Its value is \"analytics#account\".-wpplType :: Lens' WebPropertyParentLink Text-wpplType = lens _wpplType (\ s a -> s{_wpplType = a})--instance FromJSON WebPropertyParentLink where-        parseJSON-          = withObject "WebPropertyParentLink"-              (\ o ->-                 WebPropertyParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#account"))--instance ToJSON WebPropertyParentLink where-        toJSON WebPropertyParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _wpplHref,-                  Just ("type" .= _wpplType)])---- | Information for the view (profile), for which the Analytics data was--- requested.------ /See:/ 'gaDataProFileInfo' smart constructor.-data GaDataProFileInfo =-  GaDataProFileInfo'-    { _gdpfiWebPropertyId         :: !(Maybe Text)-    , _gdpfiProFileId             :: !(Maybe Text)-    , _gdpfiProFileName           :: !(Maybe Text)-    , _gdpfiAccountId             :: !(Maybe Text)-    , _gdpfiInternalWebPropertyId :: !(Maybe Text)-    , _gdpfiTableId               :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataProFileInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdpfiWebPropertyId'------ * 'gdpfiProFileId'------ * 'gdpfiProFileName'------ * 'gdpfiAccountId'------ * 'gdpfiInternalWebPropertyId'------ * 'gdpfiTableId'-gaDataProFileInfo-    :: GaDataProFileInfo-gaDataProFileInfo =-  GaDataProFileInfo'-    { _gdpfiWebPropertyId = Nothing-    , _gdpfiProFileId = Nothing-    , _gdpfiProFileName = Nothing-    , _gdpfiAccountId = Nothing-    , _gdpfiInternalWebPropertyId = Nothing-    , _gdpfiTableId = Nothing-    }----- | Web Property ID to which this view (profile) belongs.-gdpfiWebPropertyId :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiWebPropertyId-  = lens _gdpfiWebPropertyId-      (\ s a -> s{_gdpfiWebPropertyId = a})---- | View (Profile) ID.-gdpfiProFileId :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiProFileId-  = lens _gdpfiProFileId-      (\ s a -> s{_gdpfiProFileId = a})---- | View (Profile) name.-gdpfiProFileName :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiProFileName-  = lens _gdpfiProFileName-      (\ s a -> s{_gdpfiProFileName = a})---- | Account ID to which this view (profile) belongs.-gdpfiAccountId :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiAccountId-  = lens _gdpfiAccountId-      (\ s a -> s{_gdpfiAccountId = a})---- | Internal ID for the web property to which this view (profile) belongs.-gdpfiInternalWebPropertyId :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiInternalWebPropertyId-  = lens _gdpfiInternalWebPropertyId-      (\ s a -> s{_gdpfiInternalWebPropertyId = a})---- | Table ID for view (profile).-gdpfiTableId :: Lens' GaDataProFileInfo (Maybe Text)-gdpfiTableId-  = lens _gdpfiTableId (\ s a -> s{_gdpfiTableId = a})--instance FromJSON GaDataProFileInfo where-        parseJSON-          = withObject "GaDataProFileInfo"-              (\ o ->-                 GaDataProFileInfo' <$>-                   (o .:? "webPropertyId") <*> (o .:? "profileId") <*>-                     (o .:? "profileName")-                     <*> (o .:? "accountId")-                     <*> (o .:? "internalWebPropertyId")-                     <*> (o .:? "tableId"))--instance ToJSON GaDataProFileInfo where-        toJSON GaDataProFileInfo'{..}-          = object-              (catMaybes-                 [("webPropertyId" .=) <$> _gdpfiWebPropertyId,-                  ("profileId" .=) <$> _gdpfiProFileId,-                  ("profileName" .=) <$> _gdpfiProFileName,-                  ("accountId" .=) <$> _gdpfiAccountId,-                  ("internalWebPropertyId" .=) <$>-                    _gdpfiInternalWebPropertyId,-                  ("tableId" .=) <$> _gdpfiTableId])---- | Metadata returned for an upload operation.------ /See:/ 'upload' smart constructor.-data Upload =-  Upload'-    { _uuStatus             :: !(Maybe Text)-    , _uuKind               :: !Text-    , _uuCustomDataSourceId :: !(Maybe Text)-    , _uuUploadTime         :: !(Maybe DateTime')-    , _uuAccountId          :: !(Maybe (Textual Int64))-    , _uuId                 :: !(Maybe Text)-    , _uuErrors             :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Upload' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uuStatus'------ * 'uuKind'------ * 'uuCustomDataSourceId'------ * 'uuUploadTime'------ * 'uuAccountId'------ * 'uuId'------ * 'uuErrors'-upload-    :: Upload-upload =-  Upload'-    { _uuStatus = Nothing-    , _uuKind = "analytics#upload"-    , _uuCustomDataSourceId = Nothing-    , _uuUploadTime = Nothing-    , _uuAccountId = Nothing-    , _uuId = Nothing-    , _uuErrors = Nothing-    }----- | Upload status. Possible values: PENDING, COMPLETED, FAILED, DELETING,--- DELETED.-uuStatus :: Lens' Upload (Maybe Text)-uuStatus = lens _uuStatus (\ s a -> s{_uuStatus = a})---- | Resource type for Analytics upload.-uuKind :: Lens' Upload Text-uuKind = lens _uuKind (\ s a -> s{_uuKind = a})---- | Custom data source Id to which this data import belongs.-uuCustomDataSourceId :: Lens' Upload (Maybe Text)-uuCustomDataSourceId-  = lens _uuCustomDataSourceId-      (\ s a -> s{_uuCustomDataSourceId = a})---- | Time this file is uploaded.-uuUploadTime :: Lens' Upload (Maybe UTCTime)-uuUploadTime-  = lens _uuUploadTime (\ s a -> s{_uuUploadTime = a})-      . mapping _DateTime---- | Account Id to which this upload belongs.-uuAccountId :: Lens' Upload (Maybe Int64)-uuAccountId-  = lens _uuAccountId (\ s a -> s{_uuAccountId = a}) .-      mapping _Coerce---- | A unique ID for this upload.-uuId :: Lens' Upload (Maybe Text)-uuId = lens _uuId (\ s a -> s{_uuId = a})---- | Data import errors collection.-uuErrors :: Lens' Upload [Text]-uuErrors-  = lens _uuErrors (\ s a -> s{_uuErrors = a}) .-      _Default-      . _Coerce--instance FromJSON Upload where-        parseJSON-          = withObject "Upload"-              (\ o ->-                 Upload' <$>-                   (o .:? "status") <*>-                     (o .:? "kind" .!= "analytics#upload")-                     <*> (o .:? "customDataSourceId")-                     <*> (o .:? "uploadTime")-                     <*> (o .:? "accountId")-                     <*> (o .:? "id")-                     <*> (o .:? "errors" .!= mempty))--instance ToJSON Upload where-        toJSON Upload'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _uuStatus,-                  Just ("kind" .= _uuKind),-                  ("customDataSourceId" .=) <$> _uuCustomDataSourceId,-                  ("uploadTime" .=) <$> _uuUploadTime,-                  ("accountId" .=) <$> _uuAccountId,-                  ("id" .=) <$> _uuId, ("errors" .=) <$> _uuErrors])---- | JSON template for Analytics Custom Dimension.------ /See:/ 'customDimension' smart constructor.-data CustomDimension =-  CustomDimension'-    { _cddParentLink    :: !(Maybe CustomDimensionParentLink)-    , _cddWebPropertyId :: !(Maybe Text)-    , _cddKind          :: !Text-    , _cddCreated       :: !(Maybe DateTime')-    , _cddActive        :: !(Maybe Bool)-    , _cddSelfLink      :: !(Maybe Text)-    , _cddAccountId     :: !(Maybe Text)-    , _cddName          :: !(Maybe Text)-    , _cddScope         :: !(Maybe Text)-    , _cddId            :: !(Maybe Text)-    , _cddUpdated       :: !(Maybe DateTime')-    , _cddIndex         :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomDimension' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cddParentLink'------ * 'cddWebPropertyId'------ * 'cddKind'------ * 'cddCreated'------ * 'cddActive'------ * 'cddSelfLink'------ * 'cddAccountId'------ * 'cddName'------ * 'cddScope'------ * 'cddId'------ * 'cddUpdated'------ * 'cddIndex'-customDimension-    :: CustomDimension-customDimension =-  CustomDimension'-    { _cddParentLink = Nothing-    , _cddWebPropertyId = Nothing-    , _cddKind = "analytics#customDimension"-    , _cddCreated = Nothing-    , _cddActive = Nothing-    , _cddSelfLink = Nothing-    , _cddAccountId = Nothing-    , _cddName = Nothing-    , _cddScope = Nothing-    , _cddId = Nothing-    , _cddUpdated = Nothing-    , _cddIndex = Nothing-    }----- | Parent link for the custom dimension. Points to the property to which--- the custom dimension belongs.-cddParentLink :: Lens' CustomDimension (Maybe CustomDimensionParentLink)-cddParentLink-  = lens _cddParentLink-      (\ s a -> s{_cddParentLink = a})---- | Property ID.-cddWebPropertyId :: Lens' CustomDimension (Maybe Text)-cddWebPropertyId-  = lens _cddWebPropertyId-      (\ s a -> s{_cddWebPropertyId = a})---- | Kind value for a custom dimension. Set to \"analytics#customDimension\".--- It is a read-only field.-cddKind :: Lens' CustomDimension Text-cddKind = lens _cddKind (\ s a -> s{_cddKind = a})---- | Time the custom dimension was created.-cddCreated :: Lens' CustomDimension (Maybe UTCTime)-cddCreated-  = lens _cddCreated (\ s a -> s{_cddCreated = a}) .-      mapping _DateTime---- | Boolean indicating whether the custom dimension is active.-cddActive :: Lens' CustomDimension (Maybe Bool)-cddActive-  = lens _cddActive (\ s a -> s{_cddActive = a})---- | Link for the custom dimension-cddSelfLink :: Lens' CustomDimension (Maybe Text)-cddSelfLink-  = lens _cddSelfLink (\ s a -> s{_cddSelfLink = a})---- | Account ID.-cddAccountId :: Lens' CustomDimension (Maybe Text)-cddAccountId-  = lens _cddAccountId (\ s a -> s{_cddAccountId = a})---- | Name of the custom dimension.-cddName :: Lens' CustomDimension (Maybe Text)-cddName = lens _cddName (\ s a -> s{_cddName = a})---- | Scope of the custom dimension: HIT, SESSION, USER or PRODUCT.-cddScope :: Lens' CustomDimension (Maybe Text)-cddScope = lens _cddScope (\ s a -> s{_cddScope = a})---- | Custom dimension ID.-cddId :: Lens' CustomDimension (Maybe Text)-cddId = lens _cddId (\ s a -> s{_cddId = a})---- | Time the custom dimension was last modified.-cddUpdated :: Lens' CustomDimension (Maybe UTCTime)-cddUpdated-  = lens _cddUpdated (\ s a -> s{_cddUpdated = a}) .-      mapping _DateTime---- | Index of the custom dimension.-cddIndex :: Lens' CustomDimension (Maybe Int32)-cddIndex-  = lens _cddIndex (\ s a -> s{_cddIndex = a}) .-      mapping _Coerce--instance FromJSON CustomDimension where-        parseJSON-          = withObject "CustomDimension"-              (\ o ->-                 CustomDimension' <$>-                   (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>-                     (o .:? "kind" .!= "analytics#customDimension")-                     <*> (o .:? "created")-                     <*> (o .:? "active")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "accountId")-                     <*> (o .:? "name")-                     <*> (o .:? "scope")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "index"))--instance ToJSON CustomDimension where-        toJSON CustomDimension'{..}-          = object-              (catMaybes-                 [("parentLink" .=) <$> _cddParentLink,-                  ("webPropertyId" .=) <$> _cddWebPropertyId,-                  Just ("kind" .= _cddKind),-                  ("created" .=) <$> _cddCreated,-                  ("active" .=) <$> _cddActive,-                  ("selfLink" .=) <$> _cddSelfLink,-                  ("accountId" .=) <$> _cddAccountId,-                  ("name" .=) <$> _cddName, ("scope" .=) <$> _cddScope,-                  ("id" .=) <$> _cddId, ("updated" .=) <$> _cddUpdated,-                  ("index" .=) <$> _cddIndex])---- | JSON template for an Analytics segment.------ /See:/ 'segment' smart constructor.-data Segment =-  Segment'-    { _segDefinition :: !(Maybe Text)-    , _segKind       :: !Text-    , _segCreated    :: !(Maybe DateTime')-    , _segSelfLink   :: !(Maybe Text)-    , _segName       :: !(Maybe Text)-    , _segId         :: !(Maybe Text)-    , _segUpdated    :: !(Maybe DateTime')-    , _segType       :: !(Maybe Text)-    , _segSegmentId  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Segment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'segDefinition'------ * 'segKind'------ * 'segCreated'------ * 'segSelfLink'------ * 'segName'------ * 'segId'------ * 'segUpdated'------ * 'segType'------ * 'segSegmentId'-segment-    :: Segment-segment =-  Segment'-    { _segDefinition = Nothing-    , _segKind = "analytics#segment"-    , _segCreated = Nothing-    , _segSelfLink = Nothing-    , _segName = Nothing-    , _segId = Nothing-    , _segUpdated = Nothing-    , _segType = Nothing-    , _segSegmentId = Nothing-    }----- | Segment definition.-segDefinition :: Lens' Segment (Maybe Text)-segDefinition-  = lens _segDefinition-      (\ s a -> s{_segDefinition = a})---- | Resource type for Analytics segment.-segKind :: Lens' Segment Text-segKind = lens _segKind (\ s a -> s{_segKind = a})---- | Time the segment was created.-segCreated :: Lens' Segment (Maybe UTCTime)-segCreated-  = lens _segCreated (\ s a -> s{_segCreated = a}) .-      mapping _DateTime---- | Link for this segment.-segSelfLink :: Lens' Segment (Maybe Text)-segSelfLink-  = lens _segSelfLink (\ s a -> s{_segSelfLink = a})---- | Segment name.-segName :: Lens' Segment (Maybe Text)-segName = lens _segName (\ s a -> s{_segName = a})---- | Segment ID.-segId :: Lens' Segment (Maybe Text)-segId = lens _segId (\ s a -> s{_segId = a})---- | Time the segment was last modified.-segUpdated :: Lens' Segment (Maybe UTCTime)-segUpdated-  = lens _segUpdated (\ s a -> s{_segUpdated = a}) .-      mapping _DateTime---- | Type for a segment. Possible values are \"BUILT_IN\" or \"CUSTOM\".-segType :: Lens' Segment (Maybe Text)-segType = lens _segType (\ s a -> s{_segType = a})---- | Segment ID. Can be used with the \'segment\' parameter in Core Reporting--- API.-segSegmentId :: Lens' Segment (Maybe Text)-segSegmentId-  = lens _segSegmentId (\ s a -> s{_segSegmentId = a})--instance FromJSON Segment where-        parseJSON-          = withObject "Segment"-              (\ o ->-                 Segment' <$>-                   (o .:? "definition") <*>-                     (o .:? "kind" .!= "analytics#segment")-                     <*> (o .:? "created")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "name")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "type")-                     <*> (o .:? "segmentId"))--instance ToJSON Segment where-        toJSON Segment'{..}-          = object-              (catMaybes-                 [("definition" .=) <$> _segDefinition,-                  Just ("kind" .= _segKind),-                  ("created" .=) <$> _segCreated,-                  ("selfLink" .=) <$> _segSelfLink,-                  ("name" .=) <$> _segName, ("id" .=) <$> _segId,-                  ("updated" .=) <$> _segUpdated,-                  ("type" .=) <$> _segType,-                  ("segmentId" .=) <$> _segSegmentId])---- | Child link for an account entry. Points to the list of web properties--- for this account.------ /See:/ 'accountChildLink' smart constructor.-data AccountChildLink =-  AccountChildLink'-    { _aclHref :: !(Maybe Text)-    , _aclType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountChildLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aclHref'------ * 'aclType'-accountChildLink-    :: AccountChildLink-accountChildLink =-  AccountChildLink' {_aclHref = Nothing, _aclType = "analytics#webproperties"}----- | Link to the list of web properties for this account.-aclHref :: Lens' AccountChildLink (Maybe Text)-aclHref = lens _aclHref (\ s a -> s{_aclHref = a})---- | Type of the child link. Its value is \"analytics#webproperties\".-aclType :: Lens' AccountChildLink Text-aclType = lens _aclType (\ s a -> s{_aclType = a})--instance FromJSON AccountChildLink where-        parseJSON-          = withObject "AccountChildLink"-              (\ o ->-                 AccountChildLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#webproperties"))--instance ToJSON AccountChildLink where-        toJSON AccountChildLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _aclHref,-                  Just ("type" .= _aclType)])---- | JSON template for an Analytics profile filter link.------ /See:/ 'proFileFilterLink' smart constructor.-data ProFileFilterLink =-  ProFileFilterLink'-    { _proProFileRef :: !(Maybe ProFileRef)-    , _proKind       :: !Text-    , _proFilterRef  :: !(Maybe FilterRef)-    , _proSelfLink   :: !(Maybe Text)-    , _proId         :: !(Maybe Text)-    , _proRank       :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileFilterLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'proProFileRef'------ * 'proKind'------ * 'proFilterRef'------ * 'proSelfLink'------ * 'proId'------ * 'proRank'-proFileFilterLink-    :: ProFileFilterLink-proFileFilterLink =-  ProFileFilterLink'-    { _proProFileRef = Nothing-    , _proKind = "analytics#profileFilterLink"-    , _proFilterRef = Nothing-    , _proSelfLink = Nothing-    , _proId = Nothing-    , _proRank = Nothing-    }----- | View (Profile) for this link.-proProFileRef :: Lens' ProFileFilterLink (Maybe ProFileRef)-proProFileRef-  = lens _proProFileRef-      (\ s a -> s{_proProFileRef = a})---- | Resource type for Analytics filter.-proKind :: Lens' ProFileFilterLink Text-proKind = lens _proKind (\ s a -> s{_proKind = a})---- | Filter for this link.-proFilterRef :: Lens' ProFileFilterLink (Maybe FilterRef)-proFilterRef-  = lens _proFilterRef (\ s a -> s{_proFilterRef = a})---- | Link for this profile filter link.-proSelfLink :: Lens' ProFileFilterLink (Maybe Text)-proSelfLink-  = lens _proSelfLink (\ s a -> s{_proSelfLink = a})---- | Profile filter link ID.-proId :: Lens' ProFileFilterLink (Maybe Text)-proId = lens _proId (\ s a -> s{_proId = a})---- | The rank of this profile filter link relative to the other filters--- linked to the same profile. For readonly (i.e., list and get)--- operations, the rank always starts at 1. For write (i.e., create,--- update, or delete) operations, you may specify a value between 0 and 255--- inclusively, [0, 255]. In order to insert a link at the end of the list,--- either don\'t specify a rank or set a rank to a number greater than the--- largest rank in the list. In order to insert a link to the beginning of--- the list specify a rank that is less than or equal to 1. The new link--- will move all existing filters with the same or lower rank down the--- list. After the link is inserted\/updated\/deleted all profile filter--- links will be renumbered starting at 1.-proRank :: Lens' ProFileFilterLink (Maybe Int32)-proRank-  = lens _proRank (\ s a -> s{_proRank = a}) .-      mapping _Coerce--instance FromJSON ProFileFilterLink where-        parseJSON-          = withObject "ProFileFilterLink"-              (\ o ->-                 ProFileFilterLink' <$>-                   (o .:? "profileRef") <*>-                     (o .:? "kind" .!= "analytics#profileFilterLink")-                     <*> (o .:? "filterRef")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "id")-                     <*> (o .:? "rank"))--instance ToJSON ProFileFilterLink where-        toJSON ProFileFilterLink'{..}-          = object-              (catMaybes-                 [("profileRef" .=) <$> _proProFileRef,-                  Just ("kind" .= _proKind),-                  ("filterRef" .=) <$> _proFilterRef,-                  ("selfLink" .=) <$> _proSelfLink,-                  ("id" .=) <$> _proId, ("rank" .=) <$> _proRank])---- | Parent link for the custom metric. Points to the property to which the--- custom metric belongs.------ /See:/ 'customMetricParentLink' smart constructor.-data CustomMetricParentLink =-  CustomMetricParentLink'-    { _cmplHref :: !(Maybe Text)-    , _cmplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomMetricParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cmplHref'------ * 'cmplType'-customMetricParentLink-    :: CustomMetricParentLink-customMetricParentLink =-  CustomMetricParentLink'-    {_cmplHref = Nothing, _cmplType = "analytics#webproperty"}----- | Link to the property to which the custom metric belongs.-cmplHref :: Lens' CustomMetricParentLink (Maybe Text)-cmplHref = lens _cmplHref (\ s a -> s{_cmplHref = a})---- | Type of the parent link. Set to \"analytics#webproperty\".-cmplType :: Lens' CustomMetricParentLink Text-cmplType = lens _cmplType (\ s a -> s{_cmplType = a})--instance FromJSON CustomMetricParentLink where-        parseJSON-          = withObject "CustomMetricParentLink"-              (\ o ->-                 CustomMetricParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#webproperty"))--instance ToJSON CustomMetricParentLink where-        toJSON CustomMetricParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _cmplHref,-                  Just ("type" .= _cmplType)])---- | JSON template for a metadata column.------ /See:/ 'column' smart constructor.-data Column =-  Column'-    { _ccKind       :: !Text-    , _ccAttributes :: !(Maybe ColumnAttributes)-    , _ccId         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Column' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccKind'------ * 'ccAttributes'------ * 'ccId'-column-    :: Column-column =-  Column'-    {_ccKind = "analytics#column", _ccAttributes = Nothing, _ccId = Nothing}----- | Resource type for Analytics column.-ccKind :: Lens' Column Text-ccKind = lens _ccKind (\ s a -> s{_ccKind = a})---- | Map of attribute name and value for this column.-ccAttributes :: Lens' Column (Maybe ColumnAttributes)-ccAttributes-  = lens _ccAttributes (\ s a -> s{_ccAttributes = a})---- | Column id.-ccId :: Lens' Column (Maybe Text)-ccId = lens _ccId (\ s a -> s{_ccId = a})--instance FromJSON Column where-        parseJSON-          = withObject "Column"-              (\ o ->-                 Column' <$>-                   (o .:? "kind" .!= "analytics#column") <*>-                     (o .:? "attributes")-                     <*> (o .:? "id"))--instance ToJSON Column where-        toJSON Column'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _ccKind),-                  ("attributes" .=) <$> _ccAttributes,-                  ("id" .=) <$> _ccId])---- | The simple audience definition that will cause a user to be added to an--- audience.------ /See:/ 'remarketingAudienceAudienceDefinition' smart constructor.-newtype RemarketingAudienceAudienceDefinition =-  RemarketingAudienceAudienceDefinition'-    { _raadIncludeConditions :: Maybe IncludeConditions-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RemarketingAudienceAudienceDefinition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raadIncludeConditions'-remarketingAudienceAudienceDefinition-    :: RemarketingAudienceAudienceDefinition-remarketingAudienceAudienceDefinition =-  RemarketingAudienceAudienceDefinition' {_raadIncludeConditions = Nothing}----- | Defines the conditions to include users to the audience.-raadIncludeConditions :: Lens' RemarketingAudienceAudienceDefinition (Maybe IncludeConditions)-raadIncludeConditions-  = lens _raadIncludeConditions-      (\ s a -> s{_raadIncludeConditions = a})--instance FromJSON-           RemarketingAudienceAudienceDefinition-         where-        parseJSON-          = withObject "RemarketingAudienceAudienceDefinition"-              (\ o ->-                 RemarketingAudienceAudienceDefinition' <$>-                   (o .:? "includeConditions"))--instance ToJSON RemarketingAudienceAudienceDefinition-         where-        toJSON RemarketingAudienceAudienceDefinition'{..}-          = object-              (catMaybes-                 [("includeConditions" .=) <$>-                    _raadIncludeConditions])------- /See:/ 'gaDataDataTableColsItem' smart constructor.-data GaDataDataTableColsItem =-  GaDataDataTableColsItem'-    { _gddtciId    :: !(Maybe Text)-    , _gddtciType  :: !(Maybe Text)-    , _gddtciLabel :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataDataTableColsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gddtciId'------ * 'gddtciType'------ * 'gddtciLabel'-gaDataDataTableColsItem-    :: GaDataDataTableColsItem-gaDataDataTableColsItem =-  GaDataDataTableColsItem'-    {_gddtciId = Nothing, _gddtciType = Nothing, _gddtciLabel = Nothing}---gddtciId :: Lens' GaDataDataTableColsItem (Maybe Text)-gddtciId = lens _gddtciId (\ s a -> s{_gddtciId = a})--gddtciType :: Lens' GaDataDataTableColsItem (Maybe Text)-gddtciType-  = lens _gddtciType (\ s a -> s{_gddtciType = a})--gddtciLabel :: Lens' GaDataDataTableColsItem (Maybe Text)-gddtciLabel-  = lens _gddtciLabel (\ s a -> s{_gddtciLabel = a})--instance FromJSON GaDataDataTableColsItem where-        parseJSON-          = withObject "GaDataDataTableColsItem"-              (\ o ->-                 GaDataDataTableColsItem' <$>-                   (o .:? "id") <*> (o .:? "type") <*> (o .:? "label"))--instance ToJSON GaDataDataTableColsItem where-        toJSON GaDataDataTableColsItem'{..}-          = object-              (catMaybes-                 [("id" .=) <$> _gddtciId,-                  ("type" .=) <$> _gddtciType,-                  ("label" .=) <$> _gddtciLabel])------- /See:/ 'experimentVariationsItem' smart constructor.-data ExperimentVariationsItem =-  ExperimentVariationsItem'-    { _eviStatus :: !(Maybe Text)-    , _eviWeight :: !(Maybe (Textual Double))-    , _eviURL    :: !(Maybe Text)-    , _eviWon    :: !(Maybe Bool)-    , _eviName   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ExperimentVariationsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eviStatus'------ * 'eviWeight'------ * 'eviURL'------ * 'eviWon'------ * 'eviName'-experimentVariationsItem-    :: ExperimentVariationsItem-experimentVariationsItem =-  ExperimentVariationsItem'-    { _eviStatus = Nothing-    , _eviWeight = Nothing-    , _eviURL = Nothing-    , _eviWon = Nothing-    , _eviName = Nothing-    }----- | Status of the variation. Possible values: \"ACTIVE\", \"INACTIVE\".--- INACTIVE variations are not served. This field may not be changed for an--- experiment whose status is ENDED.-eviStatus :: Lens' ExperimentVariationsItem (Maybe Text)-eviStatus-  = lens _eviStatus (\ s a -> s{_eviStatus = a})---- | Weight that this variation should receive. Only present if the--- experiment is running. This field is read-only.-eviWeight :: Lens' ExperimentVariationsItem (Maybe Double)-eviWeight-  = lens _eviWeight (\ s a -> s{_eviWeight = a}) .-      mapping _Coerce---- | The URL of the variation. This field may not be changed for an--- experiment whose status is RUNNING or ENDED.-eviURL :: Lens' ExperimentVariationsItem (Maybe Text)-eviURL = lens _eviURL (\ s a -> s{_eviURL = a})---- | True if the experiment has ended and this variation performed--- (statistically) significantly better than the original. This field is--- read-only.-eviWon :: Lens' ExperimentVariationsItem (Maybe Bool)-eviWon = lens _eviWon (\ s a -> s{_eviWon = a})---- | The name of the variation. This field is required when creating an--- experiment. This field may not be changed for an experiment whose status--- is ENDED.-eviName :: Lens' ExperimentVariationsItem (Maybe Text)-eviName = lens _eviName (\ s a -> s{_eviName = a})--instance FromJSON ExperimentVariationsItem where-        parseJSON-          = withObject "ExperimentVariationsItem"-              (\ o ->-                 ExperimentVariationsItem' <$>-                   (o .:? "status") <*> (o .:? "weight") <*>-                     (o .:? "url")-                     <*> (o .:? "won")-                     <*> (o .:? "name"))--instance ToJSON ExperimentVariationsItem where-        toJSON ExperimentVariationsItem'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _eviStatus,-                  ("weight" .=) <$> _eviWeight, ("url" .=) <$> _eviURL,-                  ("won" .=) <$> _eviWon, ("name" .=) <$> _eviName])---- | Defines the conditions to exclude users from the audience.------ /See:/ 'remarketingAudienceStateBasedAudienceDefinitionExcludeConditions' smart constructor.-data RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions =-  RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions'-    { _rasbadecExclusionDuration :: !(Maybe Text)-    , _rasbadecSegment           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rasbadecExclusionDuration'------ * 'rasbadecSegment'-remarketingAudienceStateBasedAudienceDefinitionExcludeConditions-    :: RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-remarketingAudienceStateBasedAudienceDefinitionExcludeConditions =-  RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions'-    {_rasbadecExclusionDuration = Nothing, _rasbadecSegment = Nothing}----- | Whether to make the exclusion TEMPORARY or PERMANENT.-rasbadecExclusionDuration :: Lens' RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions (Maybe Text)-rasbadecExclusionDuration-  = lens _rasbadecExclusionDuration-      (\ s a -> s{_rasbadecExclusionDuration = a})---- | The segment condition that will cause a user to be removed from an--- audience.-rasbadecSegment :: Lens' RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions (Maybe Text)-rasbadecSegment-  = lens _rasbadecSegment-      (\ s a -> s{_rasbadecSegment = a})--instance FromJSON-           RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-         where-        parseJSON-          = withObject-              "RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions"-              (\ o ->-                 RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions'-                   <$>-                   (o .:? "exclusionDuration") <*> (o .:? "segment"))--instance ToJSON-           RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions-         where-        toJSON-          RemarketingAudienceStateBasedAudienceDefinitionExcludeConditions'{..}-          = object-              (catMaybes-                 [("exclusionDuration" .=) <$>-                    _rasbadecExclusionDuration,-                  ("segment" .=) <$> _rasbadecSegment])---- | Total values for the requested metrics over all the results, not just--- the results returned in this response. The order of the metric totals is--- same as the metric order specified in the request.------ /See:/ 'mcfDataTotalsForAllResults' smart constructor.-newtype McfDataTotalsForAllResults =-  McfDataTotalsForAllResults'-    { _mdtfarAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'McfDataTotalsForAllResults' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdtfarAddtional'-mcfDataTotalsForAllResults-    :: HashMap Text Text -- ^ 'mdtfarAddtional'-    -> McfDataTotalsForAllResults-mcfDataTotalsForAllResults pMdtfarAddtional_ =-  McfDataTotalsForAllResults' {_mdtfarAddtional = _Coerce # pMdtfarAddtional_}----- | Key-value pair for the total value of a metric. Key is the metric name--- and the value is the total value for that metric.-mdtfarAddtional :: Lens' McfDataTotalsForAllResults (HashMap Text Text)-mdtfarAddtional-  = lens _mdtfarAddtional-      (\ s a -> s{_mdtfarAddtional = a})-      . _Coerce--instance FromJSON McfDataTotalsForAllResults where-        parseJSON-          = withObject "McfDataTotalsForAllResults"-              (\ o ->-                 McfDataTotalsForAllResults' <$> (parseJSONObject o))--instance ToJSON McfDataTotalsForAllResults where-        toJSON = toJSON . _mdtfarAddtional---- | User ID.------ /See:/ 'userDeletionRequestId' smart constructor.-data UserDeletionRequestId =-  UserDeletionRequestId'-    { _udriUserId :: !(Maybe Text)-    , _udriType   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserDeletionRequestId' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udriUserId'------ * 'udriType'-userDeletionRequestId-    :: UserDeletionRequestId-userDeletionRequestId =-  UserDeletionRequestId' {_udriUserId = Nothing, _udriType = Nothing}----- | The User\'s id-udriUserId :: Lens' UserDeletionRequestId (Maybe Text)-udriUserId-  = lens _udriUserId (\ s a -> s{_udriUserId = a})---- | Type of user-udriType :: Lens' UserDeletionRequestId (Maybe Text)-udriType = lens _udriType (\ s a -> s{_udriType = a})--instance FromJSON UserDeletionRequestId where-        parseJSON-          = withObject "UserDeletionRequestId"-              (\ o ->-                 UserDeletionRequestId' <$>-                   (o .:? "userId") <*> (o .:? "type"))--instance ToJSON UserDeletionRequestId where-        toJSON UserDeletionRequestId'{..}-          = object-              (catMaybes-                 [("userId" .=) <$> _udriUserId,-                  ("type" .=) <$> _udriType])---- | Download details for a file stored in Google Cloud Storage.------ /See:/ 'unSampledReportCloudStorageDownloadDetails' smart constructor.-data UnSampledReportCloudStorageDownloadDetails =-  UnSampledReportCloudStorageDownloadDetails'-    { _usrcsddObjectId :: !(Maybe Text)-    , _usrcsddBucketId :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UnSampledReportCloudStorageDownloadDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usrcsddObjectId'------ * 'usrcsddBucketId'-unSampledReportCloudStorageDownloadDetails-    :: UnSampledReportCloudStorageDownloadDetails-unSampledReportCloudStorageDownloadDetails =-  UnSampledReportCloudStorageDownloadDetails'-    {_usrcsddObjectId = Nothing, _usrcsddBucketId = Nothing}----- | Id of the file object containing the report data.-usrcsddObjectId :: Lens' UnSampledReportCloudStorageDownloadDetails (Maybe Text)-usrcsddObjectId-  = lens _usrcsddObjectId-      (\ s a -> s{_usrcsddObjectId = a})---- | Id of the bucket the file object is stored in.-usrcsddBucketId :: Lens' UnSampledReportCloudStorageDownloadDetails (Maybe Text)-usrcsddBucketId-  = lens _usrcsddBucketId-      (\ s a -> s{_usrcsddBucketId = a})--instance FromJSON-           UnSampledReportCloudStorageDownloadDetails-         where-        parseJSON-          = withObject-              "UnSampledReportCloudStorageDownloadDetails"-              (\ o ->-                 UnSampledReportCloudStorageDownloadDetails' <$>-                   (o .:? "objectId") <*> (o .:? "bucketId"))--instance ToJSON-           UnSampledReportCloudStorageDownloadDetails-         where-        toJSON-          UnSampledReportCloudStorageDownloadDetails'{..}-          = object-              (catMaybes-                 [("objectId" .=) <$> _usrcsddObjectId,-                  ("bucketId" .=) <$> _usrcsddBucketId])---- | Child link for this view (profile). Points to the list of goals for this--- view (profile).------ /See:/ 'proFileChildLink' smart constructor.-data ProFileChildLink =-  ProFileChildLink'-    { _pfclHref :: !(Maybe Text)-    , _pfclType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFileChildLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfclHref'------ * 'pfclType'-proFileChildLink-    :: ProFileChildLink-proFileChildLink =-  ProFileChildLink' {_pfclHref = Nothing, _pfclType = "analytics#goals"}----- | Link to the list of goals for this view (profile).-pfclHref :: Lens' ProFileChildLink (Maybe Text)-pfclHref = lens _pfclHref (\ s a -> s{_pfclHref = a})---- | Value is \"analytics#goals\".-pfclType :: Lens' ProFileChildLink Text-pfclType = lens _pfclType (\ s a -> s{_pfclType = a})--instance FromJSON ProFileChildLink where-        parseJSON-          = withObject "ProFileChildLink"-              (\ o ->-                 ProFileChildLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#goals"))--instance ToJSON ProFileChildLink where-        toJSON ProFileChildLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _pfclHref,-                  Just ("type" .= _pfclType)])------- /See:/ 'gaDataColumnHeadersItem' smart constructor.-data GaDataColumnHeadersItem =-  GaDataColumnHeadersItem'-    { _gdchiColumnType :: !(Maybe Text)-    , _gdchiName       :: !(Maybe Text)-    , _gdchiDataType   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GaDataColumnHeadersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdchiColumnType'------ * 'gdchiName'------ * 'gdchiDataType'-gaDataColumnHeadersItem-    :: GaDataColumnHeadersItem-gaDataColumnHeadersItem =-  GaDataColumnHeadersItem'-    {_gdchiColumnType = Nothing, _gdchiName = Nothing, _gdchiDataType = Nothing}----- | Column Type. Either DIMENSION or METRIC.-gdchiColumnType :: Lens' GaDataColumnHeadersItem (Maybe Text)-gdchiColumnType-  = lens _gdchiColumnType-      (\ s a -> s{_gdchiColumnType = a})---- | Column name.-gdchiName :: Lens' GaDataColumnHeadersItem (Maybe Text)-gdchiName-  = lens _gdchiName (\ s a -> s{_gdchiName = a})---- | Data type. Dimension column headers have only STRING as the data type.--- Metric column headers have data types for metric values such as INTEGER,--- DOUBLE, CURRENCY etc.-gdchiDataType :: Lens' GaDataColumnHeadersItem (Maybe Text)-gdchiDataType-  = lens _gdchiDataType-      (\ s a -> s{_gdchiDataType = a})--instance FromJSON GaDataColumnHeadersItem where-        parseJSON-          = withObject "GaDataColumnHeadersItem"-              (\ o ->-                 GaDataColumnHeadersItem' <$>-                   (o .:? "columnType") <*> (o .:? "name") <*>-                     (o .:? "dataType"))--instance ToJSON GaDataColumnHeadersItem where-        toJSON GaDataColumnHeadersItem'{..}-          = object-              (catMaybes-                 [("columnType" .=) <$> _gdchiColumnType,-                  ("name" .=) <$> _gdchiName,-                  ("dataType" .=) <$> _gdchiDataType])---- | Parent link for a goal. Points to the view (profile) to which this goal--- belongs.------ /See:/ 'goalParentLink' smart constructor.-data GoalParentLink =-  GoalParentLink'-    { _gplHref :: !(Maybe Text)-    , _gplType :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoalParentLink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gplHref'------ * 'gplType'-goalParentLink-    :: GoalParentLink-goalParentLink =-  GoalParentLink' {_gplHref = Nothing, _gplType = "analytics#profile"}----- | Link to the view (profile) to which this goal belongs.-gplHref :: Lens' GoalParentLink (Maybe Text)-gplHref = lens _gplHref (\ s a -> s{_gplHref = a})---- | Value is \"analytics#profile\".-gplType :: Lens' GoalParentLink Text-gplType = lens _gplType (\ s a -> s{_gplType = a})--instance FromJSON GoalParentLink where-        parseJSON-          = withObject "GoalParentLink"-              (\ o ->-                 GoalParentLink' <$>-                   (o .:? "href") <*>-                     (o .:? "type" .!= "analytics#profile"))--instance ToJSON GoalParentLink where-        toJSON GoalParentLink'{..}-          = object-              (catMaybes-                 [("href" .=) <$> _gplHref,-                  Just ("type" .= _gplType)])---- | Map of attribute name and value for this column.------ /See:/ 'columnAttributes' smart constructor.-newtype ColumnAttributes =-  ColumnAttributes'-    { _caAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ColumnAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'caAddtional'-columnAttributes-    :: HashMap Text Text -- ^ 'caAddtional'-    -> ColumnAttributes-columnAttributes pCaAddtional_ =-  ColumnAttributes' {_caAddtional = _Coerce # pCaAddtional_}----- | The name of the attribute.-caAddtional :: Lens' ColumnAttributes (HashMap Text Text)-caAddtional-  = lens _caAddtional (\ s a -> s{_caAddtional = a}) .-      _Coerce--instance FromJSON ColumnAttributes where-        parseJSON-          = withObject "ColumnAttributes"-              (\ o -> ColumnAttributes' <$> (parseJSONObject o))--instance ToJSON ColumnAttributes where-        toJSON = toJSON . _caAddtional
− gen/Network/Google/Analytics/Types/Sum.hs 
@@ -1,119 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Analytics.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.Analytics.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | The desired sampling level.-data DataGaGetSamplingLevel-    = Default-      -- ^ @DEFAULT@-      -- Returns response with a sample size that balances speed and accuracy.-    | Faster-      -- ^ @FASTER@-      -- Returns a fast response with a smaller sample size.-    | HigherPrecision-      -- ^ @HIGHER_PRECISION@-      -- Returns a more accurate response using a large sample size, but this may-      -- result in the response being slower.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DataGaGetSamplingLevel--instance FromHttpApiData DataGaGetSamplingLevel where-    parseQueryParam = \case-        "DEFAULT" -> Right Default-        "FASTER" -> Right Faster-        "HIGHER_PRECISION" -> Right HigherPrecision-        x -> Left ("Unable to parse DataGaGetSamplingLevel from: " <> x)--instance ToHttpApiData DataGaGetSamplingLevel where-    toQueryParam = \case-        Default -> "DEFAULT"-        Faster -> "FASTER"-        HigherPrecision -> "HIGHER_PRECISION"--instance FromJSON DataGaGetSamplingLevel where-    parseJSON = parseJSONText "DataGaGetSamplingLevel"--instance ToJSON DataGaGetSamplingLevel where-    toJSON = toJSONText---- | The selected format for the response. Default format is JSON.-data DataGaGetOutput-    = DataTable-      -- ^ @dataTable@-      -- Returns the response in Google Charts Data Table format. This is useful-      -- in creating visualization using Google Charts.-    | JSON-      -- ^ @json@-      -- Returns the response in standard JSON format.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DataGaGetOutput--instance FromHttpApiData DataGaGetOutput where-    parseQueryParam = \case-        "dataTable" -> Right DataTable-        "json" -> Right JSON-        x -> Left ("Unable to parse DataGaGetOutput from: " <> x)--instance ToHttpApiData DataGaGetOutput where-    toQueryParam = \case-        DataTable -> "dataTable"-        JSON -> "json"--instance FromJSON DataGaGetOutput where-    parseJSON = parseJSONText "DataGaGetOutput"--instance ToJSON DataGaGetOutput where-    toJSON = toJSONText---- | The desired sampling level.-data DataMcfGetSamplingLevel-    = DMGSLDefault-      -- ^ @DEFAULT@-      -- Returns response with a sample size that balances speed and accuracy.-    | DMGSLFaster-      -- ^ @FASTER@-      -- Returns a fast response with a smaller sample size.-    | DMGSLHigherPrecision-      -- ^ @HIGHER_PRECISION@-      -- Returns a more accurate response using a large sample size, but this may-      -- result in the response being slower.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DataMcfGetSamplingLevel--instance FromHttpApiData DataMcfGetSamplingLevel where-    parseQueryParam = \case-        "DEFAULT" -> Right DMGSLDefault-        "FASTER" -> Right DMGSLFaster-        "HIGHER_PRECISION" -> Right DMGSLHigherPrecision-        x -> Left ("Unable to parse DataMcfGetSamplingLevel from: " <> x)--instance ToHttpApiData DataMcfGetSamplingLevel where-    toQueryParam = \case-        DMGSLDefault -> "DEFAULT"-        DMGSLFaster -> "FASTER"-        DMGSLHigherPrecision -> "HIGHER_PRECISION"--instance FromJSON DataMcfGetSamplingLevel where-    parseJSON = parseJSONText "DataMcfGetSamplingLevel"--instance ToJSON DataMcfGetSamplingLevel where-    toJSON = toJSONText
− gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs 
@@ -1,255 +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.Analytics.Data.Ga.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)------ Returns Analytics data for a view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.ga.get@.-module Network.Google.Resource.Analytics.Data.Ga.Get-    (-    -- * REST Resource-      DataGaGetResource--    -- * Creating a Request-    , dataGaGet-    , DataGaGet--    -- * Request Lenses-    , dggMetrics-    , dggSamplingLevel-    , dggFilters-    , dggIds-    , dggEndDate-    , dggOutput-    , dggSort-    , dggIncludeEmptyRows-    , dggDimensions-    , dggStartIndex-    , dggMaxResults-    , dggSegment-    , dggStartDate-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.data.ga.get@ method which the--- 'DataGaGet' request conforms to.-type DataGaGetResource =-     "analytics" :>-       "v3" :>-         "data" :>-           "ga" :>-             QueryParam "ids" Text :>-               QueryParam "start-date" Text :>-                 QueryParam "end-date" Text :>-                   QueryParam "metrics" Text :>-                     QueryParam "samplingLevel" DataGaGetSamplingLevel :>-                       QueryParam "filters" Text :>-                         QueryParam "output" DataGaGetOutput :>-                           QueryParam "sort" Text :>-                             QueryParam "include-empty-rows" Bool :>-                               QueryParam "dimensions" Text :>-                                 QueryParam "start-index" (Textual Int32) :>-                                   QueryParam "max-results" (Textual Int32) :>-                                     QueryParam "segment" Text :>-                                       QueryParam "alt" AltJSON :>-                                         Get '[JSON] GaData---- | Returns Analytics data for a view (profile).------ /See:/ 'dataGaGet' smart constructor.-data DataGaGet =-  DataGaGet'-    { _dggMetrics          :: !Text-    , _dggSamplingLevel    :: !(Maybe DataGaGetSamplingLevel)-    , _dggFilters          :: !(Maybe Text)-    , _dggIds              :: !Text-    , _dggEndDate          :: !Text-    , _dggOutput           :: !(Maybe DataGaGetOutput)-    , _dggSort             :: !(Maybe Text)-    , _dggIncludeEmptyRows :: !(Maybe Bool)-    , _dggDimensions       :: !(Maybe Text)-    , _dggStartIndex       :: !(Maybe (Textual Int32))-    , _dggMaxResults       :: !(Maybe (Textual Int32))-    , _dggSegment          :: !(Maybe Text)-    , _dggStartDate        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataGaGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dggMetrics'------ * 'dggSamplingLevel'------ * 'dggFilters'------ * 'dggIds'------ * 'dggEndDate'------ * 'dggOutput'------ * 'dggSort'------ * 'dggIncludeEmptyRows'------ * 'dggDimensions'------ * 'dggStartIndex'------ * 'dggMaxResults'------ * 'dggSegment'------ * 'dggStartDate'-dataGaGet-    :: Text -- ^ 'dggMetrics'-    -> Text -- ^ 'dggIds'-    -> Text -- ^ 'dggEndDate'-    -> Text -- ^ 'dggStartDate'-    -> DataGaGet-dataGaGet pDggMetrics_ pDggIds_ pDggEndDate_ pDggStartDate_ =-  DataGaGet'-    { _dggMetrics = pDggMetrics_-    , _dggSamplingLevel = Nothing-    , _dggFilters = Nothing-    , _dggIds = pDggIds_-    , _dggEndDate = pDggEndDate_-    , _dggOutput = Nothing-    , _dggSort = Nothing-    , _dggIncludeEmptyRows = Nothing-    , _dggDimensions = Nothing-    , _dggStartIndex = Nothing-    , _dggMaxResults = Nothing-    , _dggSegment = Nothing-    , _dggStartDate = pDggStartDate_-    }----- | A comma-separated list of Analytics metrics. E.g.,--- \'ga:sessions,ga:pageviews\'. At least one metric must be specified.-dggMetrics :: Lens' DataGaGet Text-dggMetrics-  = lens _dggMetrics (\ s a -> s{_dggMetrics = a})---- | The desired sampling level.-dggSamplingLevel :: Lens' DataGaGet (Maybe DataGaGetSamplingLevel)-dggSamplingLevel-  = lens _dggSamplingLevel-      (\ s a -> s{_dggSamplingLevel = a})---- | A comma-separated list of dimension or metric filters to be applied to--- Analytics data.-dggFilters :: Lens' DataGaGet (Maybe Text)-dggFilters-  = lens _dggFilters (\ s a -> s{_dggFilters = a})---- | Unique table ID for retrieving Analytics data. Table ID is of the form--- ga:XXXX, where XXXX is the Analytics view (profile) ID.-dggIds :: Lens' DataGaGet Text-dggIds = lens _dggIds (\ s a -> s{_dggIds = a})---- | End date for fetching Analytics data. Request can should specify an end--- date formatted as YYYY-MM-DD, or as a relative date (e.g., today,--- yesterday, or 7daysAgo). The default value is yesterday.-dggEndDate :: Lens' DataGaGet Text-dggEndDate-  = lens _dggEndDate (\ s a -> s{_dggEndDate = a})---- | The selected format for the response. Default format is JSON.-dggOutput :: Lens' DataGaGet (Maybe DataGaGetOutput)-dggOutput-  = lens _dggOutput (\ s a -> s{_dggOutput = a})---- | A comma-separated list of dimensions or metrics that determine the sort--- order for Analytics data.-dggSort :: Lens' DataGaGet (Maybe Text)-dggSort = lens _dggSort (\ s a -> s{_dggSort = a})---- | The response will include empty rows if this parameter is set to true,--- the default is true-dggIncludeEmptyRows :: Lens' DataGaGet (Maybe Bool)-dggIncludeEmptyRows-  = lens _dggIncludeEmptyRows-      (\ s a -> s{_dggIncludeEmptyRows = a})---- | A comma-separated list of Analytics dimensions. E.g.,--- \'ga:browser,ga:city\'.-dggDimensions :: Lens' DataGaGet (Maybe Text)-dggDimensions-  = lens _dggDimensions-      (\ s a -> s{_dggDimensions = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-dggStartIndex :: Lens' DataGaGet (Maybe Int32)-dggStartIndex-  = lens _dggStartIndex-      (\ s a -> s{_dggStartIndex = a})-      . mapping _Coerce---- | The maximum number of entries to include in this feed.-dggMaxResults :: Lens' DataGaGet (Maybe Int32)-dggMaxResults-  = lens _dggMaxResults-      (\ s a -> s{_dggMaxResults = a})-      . mapping _Coerce---- | An Analytics segment to be applied to data.-dggSegment :: Lens' DataGaGet (Maybe Text)-dggSegment-  = lens _dggSegment (\ s a -> s{_dggSegment = a})---- | Start date for fetching Analytics data. Requests can specify a start--- date formatted as YYYY-MM-DD, or as a relative date (e.g., today,--- yesterday, or 7daysAgo). The default value is 7daysAgo.-dggStartDate :: Lens' DataGaGet Text-dggStartDate-  = lens _dggStartDate (\ s a -> s{_dggStartDate = a})--instance GoogleRequest DataGaGet where-        type Rs DataGaGet = GaData-        type Scopes DataGaGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient DataGaGet'{..}-          = go (Just _dggIds) (Just _dggStartDate)-              (Just _dggEndDate)-              (Just _dggMetrics)-              _dggSamplingLevel-              _dggFilters-              _dggOutput-              _dggSort-              _dggIncludeEmptyRows-              _dggDimensions-              _dggStartIndex-              _dggMaxResults-              _dggSegment-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient (Proxy :: Proxy DataGaGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs 
@@ -1,217 +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.Analytics.Data.Mcf.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)------ Returns Analytics Multi-Channel Funnels data for a view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.mcf.get@.-module Network.Google.Resource.Analytics.Data.Mcf.Get-    (-    -- * REST Resource-      DataMcfGetResource--    -- * Creating a Request-    , dataMcfGet-    , DataMcfGet--    -- * Request Lenses-    , dmgMetrics-    , dmgSamplingLevel-    , dmgFilters-    , dmgIds-    , dmgEndDate-    , dmgSort-    , dmgDimensions-    , dmgStartIndex-    , dmgMaxResults-    , dmgStartDate-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.data.mcf.get@ method which the--- 'DataMcfGet' request conforms to.-type DataMcfGetResource =-     "analytics" :>-       "v3" :>-         "data" :>-           "mcf" :>-             QueryParam "ids" Text :>-               QueryParam "start-date" Text :>-                 QueryParam "end-date" Text :>-                   QueryParam "metrics" Text :>-                     QueryParam "samplingLevel" DataMcfGetSamplingLevel :>-                       QueryParam "filters" Text :>-                         QueryParam "sort" Text :>-                           QueryParam "dimensions" Text :>-                             QueryParam "start-index" (Textual Int32) :>-                               QueryParam "max-results" (Textual Int32) :>-                                 QueryParam "alt" AltJSON :> Get '[JSON] McfData---- | Returns Analytics Multi-Channel Funnels data for a view (profile).------ /See:/ 'dataMcfGet' smart constructor.-data DataMcfGet =-  DataMcfGet'-    { _dmgMetrics       :: !Text-    , _dmgSamplingLevel :: !(Maybe DataMcfGetSamplingLevel)-    , _dmgFilters       :: !(Maybe Text)-    , _dmgIds           :: !Text-    , _dmgEndDate       :: !Text-    , _dmgSort          :: !(Maybe Text)-    , _dmgDimensions    :: !(Maybe Text)-    , _dmgStartIndex    :: !(Maybe (Textual Int32))-    , _dmgMaxResults    :: !(Maybe (Textual Int32))-    , _dmgStartDate     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataMcfGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dmgMetrics'------ * 'dmgSamplingLevel'------ * 'dmgFilters'------ * 'dmgIds'------ * 'dmgEndDate'------ * 'dmgSort'------ * 'dmgDimensions'------ * 'dmgStartIndex'------ * 'dmgMaxResults'------ * 'dmgStartDate'-dataMcfGet-    :: Text -- ^ 'dmgMetrics'-    -> Text -- ^ 'dmgIds'-    -> Text -- ^ 'dmgEndDate'-    -> Text -- ^ 'dmgStartDate'-    -> DataMcfGet-dataMcfGet pDmgMetrics_ pDmgIds_ pDmgEndDate_ pDmgStartDate_ =-  DataMcfGet'-    { _dmgMetrics = pDmgMetrics_-    , _dmgSamplingLevel = Nothing-    , _dmgFilters = Nothing-    , _dmgIds = pDmgIds_-    , _dmgEndDate = pDmgEndDate_-    , _dmgSort = Nothing-    , _dmgDimensions = Nothing-    , _dmgStartIndex = Nothing-    , _dmgMaxResults = Nothing-    , _dmgStartDate = pDmgStartDate_-    }----- | A comma-separated list of Multi-Channel Funnels metrics. E.g.,--- \'mcf:totalConversions,mcf:totalConversionValue\'. At least one metric--- must be specified.-dmgMetrics :: Lens' DataMcfGet Text-dmgMetrics-  = lens _dmgMetrics (\ s a -> s{_dmgMetrics = a})---- | The desired sampling level.-dmgSamplingLevel :: Lens' DataMcfGet (Maybe DataMcfGetSamplingLevel)-dmgSamplingLevel-  = lens _dmgSamplingLevel-      (\ s a -> s{_dmgSamplingLevel = a})---- | A comma-separated list of dimension or metric filters to be applied to--- the Analytics data.-dmgFilters :: Lens' DataMcfGet (Maybe Text)-dmgFilters-  = lens _dmgFilters (\ s a -> s{_dmgFilters = a})---- | Unique table ID for retrieving Analytics data. Table ID is of the form--- ga:XXXX, where XXXX is the Analytics view (profile) ID.-dmgIds :: Lens' DataMcfGet Text-dmgIds = lens _dmgIds (\ s a -> s{_dmgIds = a})---- | End date for fetching Analytics data. Requests can specify a start date--- formatted as YYYY-MM-DD, or as a relative date (e.g., today, yesterday,--- or 7daysAgo). The default value is 7daysAgo.-dmgEndDate :: Lens' DataMcfGet Text-dmgEndDate-  = lens _dmgEndDate (\ s a -> s{_dmgEndDate = a})---- | A comma-separated list of dimensions or metrics that determine the sort--- order for the Analytics data.-dmgSort :: Lens' DataMcfGet (Maybe Text)-dmgSort = lens _dmgSort (\ s a -> s{_dmgSort = a})---- | A comma-separated list of Multi-Channel Funnels dimensions. E.g.,--- \'mcf:source,mcf:medium\'.-dmgDimensions :: Lens' DataMcfGet (Maybe Text)-dmgDimensions-  = lens _dmgDimensions-      (\ s a -> s{_dmgDimensions = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-dmgStartIndex :: Lens' DataMcfGet (Maybe Int32)-dmgStartIndex-  = lens _dmgStartIndex-      (\ s a -> s{_dmgStartIndex = a})-      . mapping _Coerce---- | The maximum number of entries to include in this feed.-dmgMaxResults :: Lens' DataMcfGet (Maybe Int32)-dmgMaxResults-  = lens _dmgMaxResults-      (\ s a -> s{_dmgMaxResults = a})-      . mapping _Coerce---- | Start date for fetching Analytics data. Requests can specify a start--- date formatted as YYYY-MM-DD, or as a relative date (e.g., today,--- yesterday, or 7daysAgo). The default value is 7daysAgo.-dmgStartDate :: Lens' DataMcfGet Text-dmgStartDate-  = lens _dmgStartDate (\ s a -> s{_dmgStartDate = a})--instance GoogleRequest DataMcfGet where-        type Rs DataMcfGet = McfData-        type Scopes DataMcfGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient DataMcfGet'{..}-          = go (Just _dmgIds) (Just _dmgStartDate)-              (Just _dmgEndDate)-              (Just _dmgMetrics)-              _dmgSamplingLevel-              _dmgFilters-              _dmgSort-              _dmgDimensions-              _dmgStartIndex-              _dmgMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient (Proxy :: Proxy DataMcfGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs 
@@ -1,158 +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.Analytics.Data.Realtime.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)------ Returns real time data for a view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.data.realtime.get@.-module Network.Google.Resource.Analytics.Data.Realtime.Get-    (-    -- * REST Resource-      DataRealtimeGetResource--    -- * Creating a Request-    , dataRealtimeGet-    , DataRealtimeGet--    -- * Request Lenses-    , drgMetrics-    , drgFilters-    , drgIds-    , drgSort-    , drgDimensions-    , drgMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.data.realtime.get@ method which the--- 'DataRealtimeGet' request conforms to.-type DataRealtimeGetResource =-     "analytics" :>-       "v3" :>-         "data" :>-           "realtime" :>-             QueryParam "ids" Text :>-               QueryParam "metrics" Text :>-                 QueryParam "filters" Text :>-                   QueryParam "sort" Text :>-                     QueryParam "dimensions" Text :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] RealtimeData---- | Returns real time data for a view (profile).------ /See:/ 'dataRealtimeGet' smart constructor.-data DataRealtimeGet =-  DataRealtimeGet'-    { _drgMetrics    :: !Text-    , _drgFilters    :: !(Maybe Text)-    , _drgIds        :: !Text-    , _drgSort       :: !(Maybe Text)-    , _drgDimensions :: !(Maybe Text)-    , _drgMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataRealtimeGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drgMetrics'------ * 'drgFilters'------ * 'drgIds'------ * 'drgSort'------ * 'drgDimensions'------ * 'drgMaxResults'-dataRealtimeGet-    :: Text -- ^ 'drgMetrics'-    -> Text -- ^ 'drgIds'-    -> DataRealtimeGet-dataRealtimeGet pDrgMetrics_ pDrgIds_ =-  DataRealtimeGet'-    { _drgMetrics = pDrgMetrics_-    , _drgFilters = Nothing-    , _drgIds = pDrgIds_-    , _drgSort = Nothing-    , _drgDimensions = Nothing-    , _drgMaxResults = Nothing-    }----- | A comma-separated list of real time metrics. E.g., \'rt:activeUsers\'.--- At least one metric must be specified.-drgMetrics :: Lens' DataRealtimeGet Text-drgMetrics-  = lens _drgMetrics (\ s a -> s{_drgMetrics = a})---- | A comma-separated list of dimension or metric filters to be applied to--- real time data.-drgFilters :: Lens' DataRealtimeGet (Maybe Text)-drgFilters-  = lens _drgFilters (\ s a -> s{_drgFilters = a})---- | Unique table ID for retrieving real time data. Table ID is of the form--- ga:XXXX, where XXXX is the Analytics view (profile) ID.-drgIds :: Lens' DataRealtimeGet Text-drgIds = lens _drgIds (\ s a -> s{_drgIds = a})---- | A comma-separated list of dimensions or metrics that determine the sort--- order for real time data.-drgSort :: Lens' DataRealtimeGet (Maybe Text)-drgSort = lens _drgSort (\ s a -> s{_drgSort = a})---- | A comma-separated list of real time dimensions. E.g.,--- \'rt:medium,rt:city\'.-drgDimensions :: Lens' DataRealtimeGet (Maybe Text)-drgDimensions-  = lens _drgDimensions-      (\ s a -> s{_drgDimensions = a})---- | The maximum number of entries to include in this feed.-drgMaxResults :: Lens' DataRealtimeGet (Maybe Int32)-drgMaxResults-  = lens _drgMaxResults-      (\ s a -> s{_drgMaxResults = a})-      . mapping _Coerce--instance GoogleRequest DataRealtimeGet where-        type Rs DataRealtimeGet = RealtimeData-        type Scopes DataRealtimeGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient DataRealtimeGet'{..}-          = go (Just _drgIds) (Just _drgMetrics) _drgFilters-              _drgSort-              _drgDimensions-              _drgMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy DataRealtimeGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs 
@@ -1,112 +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.Analytics.Management.AccountSummaries.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)------ Lists account summaries (lightweight tree comprised of--- accounts\/properties\/profiles) to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountSummaries.list@.-module Network.Google.Resource.Analytics.Management.AccountSummaries.List-    (-    -- * REST Resource-      ManagementAccountSummariesListResource--    -- * Creating a Request-    , managementAccountSummariesList-    , ManagementAccountSummariesList--    -- * Request Lenses-    , maslStartIndex-    , maslMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accountSummaries.list@ method which the--- 'ManagementAccountSummariesList' request conforms to.-type ManagementAccountSummariesListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accountSummaries" :>-             QueryParam "start-index" (Textual Int32) :>-               QueryParam "max-results" (Textual Int32) :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] AccountSummaries---- | Lists account summaries (lightweight tree comprised of--- accounts\/properties\/profiles) to which the user has access.------ /See:/ 'managementAccountSummariesList' smart constructor.-data ManagementAccountSummariesList =-  ManagementAccountSummariesList'-    { _maslStartIndex :: !(Maybe (Textual Int32))-    , _maslMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountSummariesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'maslStartIndex'------ * 'maslMaxResults'-managementAccountSummariesList-    :: ManagementAccountSummariesList-managementAccountSummariesList =-  ManagementAccountSummariesList'-    {_maslStartIndex = Nothing, _maslMaxResults = Nothing}----- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-maslStartIndex :: Lens' ManagementAccountSummariesList (Maybe Int32)-maslStartIndex-  = lens _maslStartIndex-      (\ s a -> s{_maslStartIndex = a})-      . mapping _Coerce---- | The maximum number of account summaries to include in this response,--- where the largest acceptable value is 1000.-maslMaxResults :: Lens' ManagementAccountSummariesList (Maybe Int32)-maslMaxResults-  = lens _maslMaxResults-      (\ s a -> s{_maslMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementAccountSummariesList-         where-        type Rs ManagementAccountSummariesList =-             AccountSummaries-        type Scopes ManagementAccountSummariesList =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementAccountSummariesList'{..}-          = go _maslStartIndex _maslMaxResults (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementAccountSummariesListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.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.Analytics.Management.AccountUserLinks.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)------ Removes a user from the given account.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.delete@.-module Network.Google.Resource.Analytics.Management.AccountUserLinks.Delete-    (-    -- * REST Resource-      ManagementAccountUserLinksDeleteResource--    -- * Creating a Request-    , managementAccountUserLinksDelete-    , ManagementAccountUserLinksDelete--    -- * Request Lenses-    , mauldAccountId-    , mauldLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accountUserLinks.delete@ method which the--- 'ManagementAccountUserLinksDelete' request conforms to.-type ManagementAccountUserLinksDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "entityUserLinks" :>-                 Capture "linkId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Removes a user from the given account.------ /See:/ 'managementAccountUserLinksDelete' smart constructor.-data ManagementAccountUserLinksDelete =-  ManagementAccountUserLinksDelete'-    { _mauldAccountId :: !Text-    , _mauldLinkId    :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountUserLinksDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mauldAccountId'------ * 'mauldLinkId'-managementAccountUserLinksDelete-    :: Text -- ^ 'mauldAccountId'-    -> Text -- ^ 'mauldLinkId'-    -> ManagementAccountUserLinksDelete-managementAccountUserLinksDelete pMauldAccountId_ pMauldLinkId_ =-  ManagementAccountUserLinksDelete'-    {_mauldAccountId = pMauldAccountId_, _mauldLinkId = pMauldLinkId_}----- | Account ID to delete the user link for.-mauldAccountId :: Lens' ManagementAccountUserLinksDelete Text-mauldAccountId-  = lens _mauldAccountId-      (\ s a -> s{_mauldAccountId = a})---- | Link ID to delete the user link for.-mauldLinkId :: Lens' ManagementAccountUserLinksDelete Text-mauldLinkId-  = lens _mauldLinkId (\ s a -> s{_mauldLinkId = a})--instance GoogleRequest-           ManagementAccountUserLinksDelete-         where-        type Rs ManagementAccountUserLinksDelete = ()-        type Scopes ManagementAccountUserLinksDelete =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementAccountUserLinksDelete'{..}-          = go _mauldAccountId _mauldLinkId (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementAccountUserLinksDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs 
@@ -1,108 +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.Analytics.Management.AccountUserLinks.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)------ Adds a new user to the given account.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.insert@.-module Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert-    (-    -- * REST Resource-      ManagementAccountUserLinksInsertResource--    -- * Creating a Request-    , managementAccountUserLinksInsert-    , ManagementAccountUserLinksInsert--    -- * Request Lenses-    , mauliPayload-    , mauliAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accountUserLinks.insert@ method which the--- 'ManagementAccountUserLinksInsert' request conforms to.-type ManagementAccountUserLinksInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "entityUserLinks" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] EntityUserLink :>-                     Post '[JSON] EntityUserLink---- | Adds a new user to the given account.------ /See:/ 'managementAccountUserLinksInsert' smart constructor.-data ManagementAccountUserLinksInsert =-  ManagementAccountUserLinksInsert'-    { _mauliPayload   :: !EntityUserLink-    , _mauliAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountUserLinksInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mauliPayload'------ * 'mauliAccountId'-managementAccountUserLinksInsert-    :: EntityUserLink -- ^ 'mauliPayload'-    -> Text -- ^ 'mauliAccountId'-    -> ManagementAccountUserLinksInsert-managementAccountUserLinksInsert pMauliPayload_ pMauliAccountId_ =-  ManagementAccountUserLinksInsert'-    {_mauliPayload = pMauliPayload_, _mauliAccountId = pMauliAccountId_}----- | Multipart request metadata.-mauliPayload :: Lens' ManagementAccountUserLinksInsert EntityUserLink-mauliPayload-  = lens _mauliPayload (\ s a -> s{_mauliPayload = a})---- | Account ID to create the user link for.-mauliAccountId :: Lens' ManagementAccountUserLinksInsert Text-mauliAccountId-  = lens _mauliAccountId-      (\ s a -> s{_mauliAccountId = a})--instance GoogleRequest-           ManagementAccountUserLinksInsert-         where-        type Rs ManagementAccountUserLinksInsert =-             EntityUserLink-        type Scopes ManagementAccountUserLinksInsert =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementAccountUserLinksInsert'{..}-          = go _mauliAccountId (Just AltJSON) _mauliPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementAccountUserLinksInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs 
@@ -1,127 +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.Analytics.Management.AccountUserLinks.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)------ Lists account-user links for a given account.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.list@.-module Network.Google.Resource.Analytics.Management.AccountUserLinks.List-    (-    -- * REST Resource-      ManagementAccountUserLinksListResource--    -- * Creating a Request-    , managementAccountUserLinksList-    , ManagementAccountUserLinksList--    -- * Request Lenses-    , maullAccountId-    , maullStartIndex-    , maullMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accountUserLinks.list@ method which the--- 'ManagementAccountUserLinksList' request conforms to.-type ManagementAccountUserLinksListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "entityUserLinks" :>-                 QueryParam "start-index" (Textual Int32) :>-                   QueryParam "max-results" (Textual Int32) :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] EntityUserLinks---- | Lists account-user links for a given account.------ /See:/ 'managementAccountUserLinksList' smart constructor.-data ManagementAccountUserLinksList =-  ManagementAccountUserLinksList'-    { _maullAccountId  :: !Text-    , _maullStartIndex :: !(Maybe (Textual Int32))-    , _maullMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountUserLinksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'maullAccountId'------ * 'maullStartIndex'------ * 'maullMaxResults'-managementAccountUserLinksList-    :: Text -- ^ 'maullAccountId'-    -> ManagementAccountUserLinksList-managementAccountUserLinksList pMaullAccountId_ =-  ManagementAccountUserLinksList'-    { _maullAccountId = pMaullAccountId_-    , _maullStartIndex = Nothing-    , _maullMaxResults = Nothing-    }----- | Account ID to retrieve the user links for.-maullAccountId :: Lens' ManagementAccountUserLinksList Text-maullAccountId-  = lens _maullAccountId-      (\ s a -> s{_maullAccountId = a})---- | An index of the first account-user link to retrieve. Use this parameter--- as a pagination mechanism along with the max-results parameter.-maullStartIndex :: Lens' ManagementAccountUserLinksList (Maybe Int32)-maullStartIndex-  = lens _maullStartIndex-      (\ s a -> s{_maullStartIndex = a})-      . mapping _Coerce---- | The maximum number of account-user links to include in this response.-maullMaxResults :: Lens' ManagementAccountUserLinksList (Maybe Int32)-maullMaxResults-  = lens _maullMaxResults-      (\ s a -> s{_maullMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementAccountUserLinksList-         where-        type Rs ManagementAccountUserLinksList =-             EntityUserLinks-        type Scopes ManagementAccountUserLinksList =-             '["https://www.googleapis.com/auth/analytics.manage.users",-               "https://www.googleapis.com/auth/analytics.manage.users.readonly"]-        requestClient ManagementAccountUserLinksList'{..}-          = go _maullAccountId _maullStartIndex-              _maullMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementAccountUserLinksListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs 
@@ -1,123 +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.Analytics.Management.AccountUserLinks.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)------ Updates permissions for an existing user on the given account.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accountUserLinks.update@.-module Network.Google.Resource.Analytics.Management.AccountUserLinks.Update-    (-    -- * REST Resource-      ManagementAccountUserLinksUpdateResource--    -- * Creating a Request-    , managementAccountUserLinksUpdate-    , ManagementAccountUserLinksUpdate--    -- * Request Lenses-    , mauluPayload-    , mauluAccountId-    , mauluLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accountUserLinks.update@ method which the--- 'ManagementAccountUserLinksUpdate' request conforms to.-type ManagementAccountUserLinksUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "entityUserLinks" :>-                 Capture "linkId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] EntityUserLink :>-                       Put '[JSON] EntityUserLink---- | Updates permissions for an existing user on the given account.------ /See:/ 'managementAccountUserLinksUpdate' smart constructor.-data ManagementAccountUserLinksUpdate =-  ManagementAccountUserLinksUpdate'-    { _mauluPayload   :: !EntityUserLink-    , _mauluAccountId :: !Text-    , _mauluLinkId    :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountUserLinksUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mauluPayload'------ * 'mauluAccountId'------ * 'mauluLinkId'-managementAccountUserLinksUpdate-    :: EntityUserLink -- ^ 'mauluPayload'-    -> Text -- ^ 'mauluAccountId'-    -> Text -- ^ 'mauluLinkId'-    -> ManagementAccountUserLinksUpdate-managementAccountUserLinksUpdate pMauluPayload_ pMauluAccountId_ pMauluLinkId_ =-  ManagementAccountUserLinksUpdate'-    { _mauluPayload = pMauluPayload_-    , _mauluAccountId = pMauluAccountId_-    , _mauluLinkId = pMauluLinkId_-    }----- | Multipart request metadata.-mauluPayload :: Lens' ManagementAccountUserLinksUpdate EntityUserLink-mauluPayload-  = lens _mauluPayload (\ s a -> s{_mauluPayload = a})---- | Account ID to update the account-user link for.-mauluAccountId :: Lens' ManagementAccountUserLinksUpdate Text-mauluAccountId-  = lens _mauluAccountId-      (\ s a -> s{_mauluAccountId = a})---- | Link ID to update the account-user link for.-mauluLinkId :: Lens' ManagementAccountUserLinksUpdate Text-mauluLinkId-  = lens _mauluLinkId (\ s a -> s{_mauluLinkId = a})--instance GoogleRequest-           ManagementAccountUserLinksUpdate-         where-        type Rs ManagementAccountUserLinksUpdate =-             EntityUserLink-        type Scopes ManagementAccountUserLinksUpdate =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementAccountUserLinksUpdate'{..}-          = go _mauluAccountId _mauluLinkId (Just AltJSON)-              _mauluPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementAccountUserLinksUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Accounts/List.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.Analytics.Management.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)------ Lists all accounts to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.accounts.list@.-module Network.Google.Resource.Analytics.Management.Accounts.List-    (-    -- * REST Resource-      ManagementAccountsListResource--    -- * Creating a Request-    , managementAccountsList-    , ManagementAccountsList--    -- * Request Lenses-    , malStartIndex-    , malMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.accounts.list@ method which the--- 'ManagementAccountsList' request conforms to.-type ManagementAccountsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             QueryParam "start-index" (Textual Int32) :>-               QueryParam "max-results" (Textual Int32) :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Accounts---- | Lists all accounts to which the user has access.------ /See:/ 'managementAccountsList' smart constructor.-data ManagementAccountsList =-  ManagementAccountsList'-    { _malStartIndex :: !(Maybe (Textual Int32))-    , _malMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementAccountsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'malStartIndex'------ * 'malMaxResults'-managementAccountsList-    :: ManagementAccountsList-managementAccountsList =-  ManagementAccountsList' {_malStartIndex = Nothing, _malMaxResults = Nothing}----- | An index of the first account to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-malStartIndex :: Lens' ManagementAccountsList (Maybe Int32)-malStartIndex-  = lens _malStartIndex-      (\ s a -> s{_malStartIndex = a})-      . mapping _Coerce---- | The maximum number of accounts to include in this response.-malMaxResults :: Lens' ManagementAccountsList (Maybe Int32)-malMaxResults-  = lens _malMaxResults-      (\ s a -> s{_malMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementAccountsList where-        type Rs ManagementAccountsList = Accounts-        type Scopes ManagementAccountsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementAccountsList'{..}-          = go _malStartIndex _malMaxResults (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementAccountsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ClientId/HashClientId.hs 
@@ -1,94 +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.Analytics.Management.ClientId.HashClientId--- 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)------ Hashes the given Client ID.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.clientId.hashClientId@.-module Network.Google.Resource.Analytics.Management.ClientId.HashClientId-    (-    -- * REST Resource-      ManagementClientIdHashClientIdResource--    -- * Creating a Request-    , managementClientIdHashClientId-    , ManagementClientIdHashClientId--    -- * Request Lenses-    , mcihciPayload-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.clientId.hashClientId@ method which the--- 'ManagementClientIdHashClientId' request conforms to.-type ManagementClientIdHashClientIdResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "clientId:hashClientId" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] HashClientIdRequest :>-                 Post '[JSON] HashClientIdResponse---- | Hashes the given Client ID.------ /See:/ 'managementClientIdHashClientId' smart constructor.-newtype ManagementClientIdHashClientId =-  ManagementClientIdHashClientId'-    { _mcihciPayload :: HashClientIdRequest-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementClientIdHashClientId' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcihciPayload'-managementClientIdHashClientId-    :: HashClientIdRequest -- ^ 'mcihciPayload'-    -> ManagementClientIdHashClientId-managementClientIdHashClientId pMcihciPayload_ =-  ManagementClientIdHashClientId' {_mcihciPayload = pMcihciPayload_}----- | Multipart request metadata.-mcihciPayload :: Lens' ManagementClientIdHashClientId HashClientIdRequest-mcihciPayload-  = lens _mcihciPayload-      (\ s a -> s{_mcihciPayload = a})--instance GoogleRequest ManagementClientIdHashClientId-         where-        type Rs ManagementClientIdHashClientId =-             HashClientIdResponse-        type Scopes ManagementClientIdHashClientId =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementClientIdHashClientId'{..}-          = go (Just AltJSON) _mcihciPayload analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementClientIdHashClientIdResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs 
@@ -1,145 +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.Analytics.Management.CustomDataSources.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 custom data sources to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDataSources.list@.-module Network.Google.Resource.Analytics.Management.CustomDataSources.List-    (-    -- * REST Resource-      ManagementCustomDataSourcesListResource--    -- * Creating a Request-    , managementCustomDataSourcesList-    , ManagementCustomDataSourcesList--    -- * Request Lenses-    , mcdslWebPropertyId-    , mcdslAccountId-    , mcdslStartIndex-    , mcdslMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDataSources.list@ method which the--- 'ManagementCustomDataSourcesList' request conforms to.-type ManagementCustomDataSourcesListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDataSources" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] CustomDataSources---- | List custom data sources to which the user has access.------ /See:/ 'managementCustomDataSourcesList' smart constructor.-data ManagementCustomDataSourcesList =-  ManagementCustomDataSourcesList'-    { _mcdslWebPropertyId :: !Text-    , _mcdslAccountId     :: !Text-    , _mcdslStartIndex    :: !(Maybe (Textual Int32))-    , _mcdslMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDataSourcesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcdslWebPropertyId'------ * 'mcdslAccountId'------ * 'mcdslStartIndex'------ * 'mcdslMaxResults'-managementCustomDataSourcesList-    :: Text -- ^ 'mcdslWebPropertyId'-    -> Text -- ^ 'mcdslAccountId'-    -> ManagementCustomDataSourcesList-managementCustomDataSourcesList pMcdslWebPropertyId_ pMcdslAccountId_ =-  ManagementCustomDataSourcesList'-    { _mcdslWebPropertyId = pMcdslWebPropertyId_-    , _mcdslAccountId = pMcdslAccountId_-    , _mcdslStartIndex = Nothing-    , _mcdslMaxResults = Nothing-    }----- | Web property Id for the custom data sources to retrieve.-mcdslWebPropertyId :: Lens' ManagementCustomDataSourcesList Text-mcdslWebPropertyId-  = lens _mcdslWebPropertyId-      (\ s a -> s{_mcdslWebPropertyId = a})---- | Account Id for the custom data sources to retrieve.-mcdslAccountId :: Lens' ManagementCustomDataSourcesList Text-mcdslAccountId-  = lens _mcdslAccountId-      (\ s a -> s{_mcdslAccountId = a})---- | A 1-based index of the first custom data source to retrieve. Use this--- parameter as a pagination mechanism along with the max-results--- parameter.-mcdslStartIndex :: Lens' ManagementCustomDataSourcesList (Maybe Int32)-mcdslStartIndex-  = lens _mcdslStartIndex-      (\ s a -> s{_mcdslStartIndex = a})-      . mapping _Coerce---- | The maximum number of custom data sources to include in this response.-mcdslMaxResults :: Lens' ManagementCustomDataSourcesList (Maybe Int32)-mcdslMaxResults-  = lens _mcdslMaxResults-      (\ s a -> s{_mcdslMaxResults = a})-      . mapping _Coerce--instance GoogleRequest-           ManagementCustomDataSourcesList-         where-        type Rs ManagementCustomDataSourcesList =-             CustomDataSources-        type Scopes ManagementCustomDataSourcesList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementCustomDataSourcesList'{..}-          = go _mcdslAccountId _mcdslWebPropertyId-              _mcdslStartIndex-              _mcdslMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDataSourcesListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs 
@@ -1,127 +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.Analytics.Management.CustomDimensions.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 custom dimension to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.get@.-module Network.Google.Resource.Analytics.Management.CustomDimensions.Get-    (-    -- * REST Resource-      ManagementCustomDimensionsGetResource--    -- * Creating a Request-    , managementCustomDimensionsGet-    , ManagementCustomDimensionsGet--    -- * Request Lenses-    , mcdgWebPropertyId-    , mcdgAccountId-    , mcdgCustomDimensionId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDimensions.get@ method which the--- 'ManagementCustomDimensionsGet' request conforms to.-type ManagementCustomDimensionsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDimensions" :>-                     Capture "customDimensionId" Text :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] CustomDimension---- | Get a custom dimension to which the user has access.------ /See:/ 'managementCustomDimensionsGet' smart constructor.-data ManagementCustomDimensionsGet =-  ManagementCustomDimensionsGet'-    { _mcdgWebPropertyId     :: !Text-    , _mcdgAccountId         :: !Text-    , _mcdgCustomDimensionId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDimensionsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcdgWebPropertyId'------ * 'mcdgAccountId'------ * 'mcdgCustomDimensionId'-managementCustomDimensionsGet-    :: Text -- ^ 'mcdgWebPropertyId'-    -> Text -- ^ 'mcdgAccountId'-    -> Text -- ^ 'mcdgCustomDimensionId'-    -> ManagementCustomDimensionsGet-managementCustomDimensionsGet pMcdgWebPropertyId_ pMcdgAccountId_ pMcdgCustomDimensionId_ =-  ManagementCustomDimensionsGet'-    { _mcdgWebPropertyId = pMcdgWebPropertyId_-    , _mcdgAccountId = pMcdgAccountId_-    , _mcdgCustomDimensionId = pMcdgCustomDimensionId_-    }----- | Web property ID for the custom dimension to retrieve.-mcdgWebPropertyId :: Lens' ManagementCustomDimensionsGet Text-mcdgWebPropertyId-  = lens _mcdgWebPropertyId-      (\ s a -> s{_mcdgWebPropertyId = a})---- | Account ID for the custom dimension to retrieve.-mcdgAccountId :: Lens' ManagementCustomDimensionsGet Text-mcdgAccountId-  = lens _mcdgAccountId-      (\ s a -> s{_mcdgAccountId = a})---- | The ID of the custom dimension to retrieve.-mcdgCustomDimensionId :: Lens' ManagementCustomDimensionsGet Text-mcdgCustomDimensionId-  = lens _mcdgCustomDimensionId-      (\ s a -> s{_mcdgCustomDimensionId = a})--instance GoogleRequest ManagementCustomDimensionsGet-         where-        type Rs ManagementCustomDimensionsGet =-             CustomDimension-        type Scopes ManagementCustomDimensionsGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementCustomDimensionsGet'{..}-          = go _mcdgAccountId _mcdgWebPropertyId-              _mcdgCustomDimensionId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDimensionsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs 
@@ -1,125 +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.Analytics.Management.CustomDimensions.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)------ Create a new custom dimension.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.insert@.-module Network.Google.Resource.Analytics.Management.CustomDimensions.Insert-    (-    -- * REST Resource-      ManagementCustomDimensionsInsertResource--    -- * Creating a Request-    , managementCustomDimensionsInsert-    , ManagementCustomDimensionsInsert--    -- * Request Lenses-    , mcdiWebPropertyId-    , mcdiPayload-    , mcdiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDimensions.insert@ method which the--- 'ManagementCustomDimensionsInsert' request conforms to.-type ManagementCustomDimensionsInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDimensions" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] CustomDimension :>-                         Post '[JSON] CustomDimension---- | Create a new custom dimension.------ /See:/ 'managementCustomDimensionsInsert' smart constructor.-data ManagementCustomDimensionsInsert =-  ManagementCustomDimensionsInsert'-    { _mcdiWebPropertyId :: !Text-    , _mcdiPayload       :: !CustomDimension-    , _mcdiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDimensionsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcdiWebPropertyId'------ * 'mcdiPayload'------ * 'mcdiAccountId'-managementCustomDimensionsInsert-    :: Text -- ^ 'mcdiWebPropertyId'-    -> CustomDimension -- ^ 'mcdiPayload'-    -> Text -- ^ 'mcdiAccountId'-    -> ManagementCustomDimensionsInsert-managementCustomDimensionsInsert pMcdiWebPropertyId_ pMcdiPayload_ pMcdiAccountId_ =-  ManagementCustomDimensionsInsert'-    { _mcdiWebPropertyId = pMcdiWebPropertyId_-    , _mcdiPayload = pMcdiPayload_-    , _mcdiAccountId = pMcdiAccountId_-    }----- | Web property ID for the custom dimension to create.-mcdiWebPropertyId :: Lens' ManagementCustomDimensionsInsert Text-mcdiWebPropertyId-  = lens _mcdiWebPropertyId-      (\ s a -> s{_mcdiWebPropertyId = a})---- | Multipart request metadata.-mcdiPayload :: Lens' ManagementCustomDimensionsInsert CustomDimension-mcdiPayload-  = lens _mcdiPayload (\ s a -> s{_mcdiPayload = a})---- | Account ID for the custom dimension to create.-mcdiAccountId :: Lens' ManagementCustomDimensionsInsert Text-mcdiAccountId-  = lens _mcdiAccountId-      (\ s a -> s{_mcdiAccountId = a})--instance GoogleRequest-           ManagementCustomDimensionsInsert-         where-        type Rs ManagementCustomDimensionsInsert =-             CustomDimension-        type Scopes ManagementCustomDimensionsInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomDimensionsInsert'{..}-          = go _mcdiAccountId _mcdiWebPropertyId (Just AltJSON)-              _mcdiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDimensionsInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs 
@@ -1,142 +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.Analytics.Management.CustomDimensions.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)------ Lists custom dimensions to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.list@.-module Network.Google.Resource.Analytics.Management.CustomDimensions.List-    (-    -- * REST Resource-      ManagementCustomDimensionsListResource--    -- * Creating a Request-    , managementCustomDimensionsList-    , ManagementCustomDimensionsList--    -- * Request Lenses-    , mcdlWebPropertyId-    , mcdlAccountId-    , mcdlStartIndex-    , mcdlMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDimensions.list@ method which the--- 'ManagementCustomDimensionsList' request conforms to.-type ManagementCustomDimensionsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDimensions" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] CustomDimensions---- | Lists custom dimensions to which the user has access.------ /See:/ 'managementCustomDimensionsList' smart constructor.-data ManagementCustomDimensionsList =-  ManagementCustomDimensionsList'-    { _mcdlWebPropertyId :: !Text-    , _mcdlAccountId     :: !Text-    , _mcdlStartIndex    :: !(Maybe (Textual Int32))-    , _mcdlMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDimensionsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcdlWebPropertyId'------ * 'mcdlAccountId'------ * 'mcdlStartIndex'------ * 'mcdlMaxResults'-managementCustomDimensionsList-    :: Text -- ^ 'mcdlWebPropertyId'-    -> Text -- ^ 'mcdlAccountId'-    -> ManagementCustomDimensionsList-managementCustomDimensionsList pMcdlWebPropertyId_ pMcdlAccountId_ =-  ManagementCustomDimensionsList'-    { _mcdlWebPropertyId = pMcdlWebPropertyId_-    , _mcdlAccountId = pMcdlAccountId_-    , _mcdlStartIndex = Nothing-    , _mcdlMaxResults = Nothing-    }----- | Web property ID for the custom dimensions to retrieve.-mcdlWebPropertyId :: Lens' ManagementCustomDimensionsList Text-mcdlWebPropertyId-  = lens _mcdlWebPropertyId-      (\ s a -> s{_mcdlWebPropertyId = a})---- | Account ID for the custom dimensions to retrieve.-mcdlAccountId :: Lens' ManagementCustomDimensionsList Text-mcdlAccountId-  = lens _mcdlAccountId-      (\ s a -> s{_mcdlAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mcdlStartIndex :: Lens' ManagementCustomDimensionsList (Maybe Int32)-mcdlStartIndex-  = lens _mcdlStartIndex-      (\ s a -> s{_mcdlStartIndex = a})-      . mapping _Coerce---- | The maximum number of custom dimensions to include in this response.-mcdlMaxResults :: Lens' ManagementCustomDimensionsList (Maybe Int32)-mcdlMaxResults-  = lens _mcdlMaxResults-      (\ s a -> s{_mcdlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementCustomDimensionsList-         where-        type Rs ManagementCustomDimensionsList =-             CustomDimensions-        type Scopes ManagementCustomDimensionsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementCustomDimensionsList'{..}-          = go _mcdlAccountId _mcdlWebPropertyId-              _mcdlStartIndex-              _mcdlMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDimensionsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs 
@@ -1,156 +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.Analytics.Management.CustomDimensions.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)------ Updates an existing custom dimension. This method supports patch--- semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.patch@.-module Network.Google.Resource.Analytics.Management.CustomDimensions.Patch-    (-    -- * REST Resource-      ManagementCustomDimensionsPatchResource--    -- * Creating a Request-    , managementCustomDimensionsPatch-    , ManagementCustomDimensionsPatch--    -- * Request Lenses-    , mcdpWebPropertyId-    , mcdpIgnoreCustomDataSourceLinks-    , mcdpPayload-    , mcdpAccountId-    , mcdpCustomDimensionId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDimensions.patch@ method which the--- 'ManagementCustomDimensionsPatch' request conforms to.-type ManagementCustomDimensionsPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDimensions" :>-                     Capture "customDimensionId" Text :>-                       QueryParam "ignoreCustomDataSourceLinks" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] CustomDimension :>-                             Patch '[JSON] CustomDimension---- | Updates an existing custom dimension. This method supports patch--- semantics.------ /See:/ 'managementCustomDimensionsPatch' smart constructor.-data ManagementCustomDimensionsPatch =-  ManagementCustomDimensionsPatch'-    { _mcdpWebPropertyId               :: !Text-    , _mcdpIgnoreCustomDataSourceLinks :: !Bool-    , _mcdpPayload                     :: !CustomDimension-    , _mcdpAccountId                   :: !Text-    , _mcdpCustomDimensionId           :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDimensionsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcdpWebPropertyId'------ * 'mcdpIgnoreCustomDataSourceLinks'------ * 'mcdpPayload'------ * 'mcdpAccountId'------ * 'mcdpCustomDimensionId'-managementCustomDimensionsPatch-    :: Text -- ^ 'mcdpWebPropertyId'-    -> CustomDimension -- ^ 'mcdpPayload'-    -> Text -- ^ 'mcdpAccountId'-    -> Text -- ^ 'mcdpCustomDimensionId'-    -> ManagementCustomDimensionsPatch-managementCustomDimensionsPatch pMcdpWebPropertyId_ pMcdpPayload_ pMcdpAccountId_ pMcdpCustomDimensionId_ =-  ManagementCustomDimensionsPatch'-    { _mcdpWebPropertyId = pMcdpWebPropertyId_-    , _mcdpIgnoreCustomDataSourceLinks = False-    , _mcdpPayload = pMcdpPayload_-    , _mcdpAccountId = pMcdpAccountId_-    , _mcdpCustomDimensionId = pMcdpCustomDimensionId_-    }----- | Web property ID for the custom dimension to update.-mcdpWebPropertyId :: Lens' ManagementCustomDimensionsPatch Text-mcdpWebPropertyId-  = lens _mcdpWebPropertyId-      (\ s a -> s{_mcdpWebPropertyId = a})---- | Force the update and ignore any warnings related to the custom dimension--- being linked to a custom data source \/ data set.-mcdpIgnoreCustomDataSourceLinks :: Lens' ManagementCustomDimensionsPatch Bool-mcdpIgnoreCustomDataSourceLinks-  = lens _mcdpIgnoreCustomDataSourceLinks-      (\ s a -> s{_mcdpIgnoreCustomDataSourceLinks = a})---- | Multipart request metadata.-mcdpPayload :: Lens' ManagementCustomDimensionsPatch CustomDimension-mcdpPayload-  = lens _mcdpPayload (\ s a -> s{_mcdpPayload = a})---- | Account ID for the custom dimension to update.-mcdpAccountId :: Lens' ManagementCustomDimensionsPatch Text-mcdpAccountId-  = lens _mcdpAccountId-      (\ s a -> s{_mcdpAccountId = a})---- | Custom dimension ID for the custom dimension to update.-mcdpCustomDimensionId :: Lens' ManagementCustomDimensionsPatch Text-mcdpCustomDimensionId-  = lens _mcdpCustomDimensionId-      (\ s a -> s{_mcdpCustomDimensionId = a})--instance GoogleRequest-           ManagementCustomDimensionsPatch-         where-        type Rs ManagementCustomDimensionsPatch =-             CustomDimension-        type Scopes ManagementCustomDimensionsPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomDimensionsPatch'{..}-          = go _mcdpAccountId _mcdpWebPropertyId-              _mcdpCustomDimensionId-              (Just _mcdpIgnoreCustomDataSourceLinks)-              (Just AltJSON)-              _mcdpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDimensionsPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs 
@@ -1,154 +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.Analytics.Management.CustomDimensions.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)------ Updates an existing custom dimension.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customDimensions.update@.-module Network.Google.Resource.Analytics.Management.CustomDimensions.Update-    (-    -- * REST Resource-      ManagementCustomDimensionsUpdateResource--    -- * Creating a Request-    , managementCustomDimensionsUpdate-    , ManagementCustomDimensionsUpdate--    -- * Request Lenses-    , mcduWebPropertyId-    , mcduIgnoreCustomDataSourceLinks-    , mcduPayload-    , mcduAccountId-    , mcduCustomDimensionId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customDimensions.update@ method which the--- 'ManagementCustomDimensionsUpdate' request conforms to.-type ManagementCustomDimensionsUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDimensions" :>-                     Capture "customDimensionId" Text :>-                       QueryParam "ignoreCustomDataSourceLinks" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] CustomDimension :>-                             Put '[JSON] CustomDimension---- | Updates an existing custom dimension.------ /See:/ 'managementCustomDimensionsUpdate' smart constructor.-data ManagementCustomDimensionsUpdate =-  ManagementCustomDimensionsUpdate'-    { _mcduWebPropertyId               :: !Text-    , _mcduIgnoreCustomDataSourceLinks :: !Bool-    , _mcduPayload                     :: !CustomDimension-    , _mcduAccountId                   :: !Text-    , _mcduCustomDimensionId           :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomDimensionsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcduWebPropertyId'------ * 'mcduIgnoreCustomDataSourceLinks'------ * 'mcduPayload'------ * 'mcduAccountId'------ * 'mcduCustomDimensionId'-managementCustomDimensionsUpdate-    :: Text -- ^ 'mcduWebPropertyId'-    -> CustomDimension -- ^ 'mcduPayload'-    -> Text -- ^ 'mcduAccountId'-    -> Text -- ^ 'mcduCustomDimensionId'-    -> ManagementCustomDimensionsUpdate-managementCustomDimensionsUpdate pMcduWebPropertyId_ pMcduPayload_ pMcduAccountId_ pMcduCustomDimensionId_ =-  ManagementCustomDimensionsUpdate'-    { _mcduWebPropertyId = pMcduWebPropertyId_-    , _mcduIgnoreCustomDataSourceLinks = False-    , _mcduPayload = pMcduPayload_-    , _mcduAccountId = pMcduAccountId_-    , _mcduCustomDimensionId = pMcduCustomDimensionId_-    }----- | Web property ID for the custom dimension to update.-mcduWebPropertyId :: Lens' ManagementCustomDimensionsUpdate Text-mcduWebPropertyId-  = lens _mcduWebPropertyId-      (\ s a -> s{_mcduWebPropertyId = a})---- | Force the update and ignore any warnings related to the custom dimension--- being linked to a custom data source \/ data set.-mcduIgnoreCustomDataSourceLinks :: Lens' ManagementCustomDimensionsUpdate Bool-mcduIgnoreCustomDataSourceLinks-  = lens _mcduIgnoreCustomDataSourceLinks-      (\ s a -> s{_mcduIgnoreCustomDataSourceLinks = a})---- | Multipart request metadata.-mcduPayload :: Lens' ManagementCustomDimensionsUpdate CustomDimension-mcduPayload-  = lens _mcduPayload (\ s a -> s{_mcduPayload = a})---- | Account ID for the custom dimension to update.-mcduAccountId :: Lens' ManagementCustomDimensionsUpdate Text-mcduAccountId-  = lens _mcduAccountId-      (\ s a -> s{_mcduAccountId = a})---- | Custom dimension ID for the custom dimension to update.-mcduCustomDimensionId :: Lens' ManagementCustomDimensionsUpdate Text-mcduCustomDimensionId-  = lens _mcduCustomDimensionId-      (\ s a -> s{_mcduCustomDimensionId = a})--instance GoogleRequest-           ManagementCustomDimensionsUpdate-         where-        type Rs ManagementCustomDimensionsUpdate =-             CustomDimension-        type Scopes ManagementCustomDimensionsUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomDimensionsUpdate'{..}-          = go _mcduAccountId _mcduWebPropertyId-              _mcduCustomDimensionId-              (Just _mcduIgnoreCustomDataSourceLinks)-              (Just AltJSON)-              _mcduPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomDimensionsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs 
@@ -1,124 +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.Analytics.Management.CustomMetrics.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 custom metric to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.get@.-module Network.Google.Resource.Analytics.Management.CustomMetrics.Get-    (-    -- * REST Resource-      ManagementCustomMetricsGetResource--    -- * Creating a Request-    , managementCustomMetricsGet-    , ManagementCustomMetricsGet--    -- * Request Lenses-    , mcmgCustomMetricId-    , mcmgWebPropertyId-    , mcmgAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customMetrics.get@ method which the--- 'ManagementCustomMetricsGet' request conforms to.-type ManagementCustomMetricsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customMetrics" :>-                     Capture "customMetricId" Text :>-                       QueryParam "alt" AltJSON :> Get '[JSON] CustomMetric---- | Get a custom metric to which the user has access.------ /See:/ 'managementCustomMetricsGet' smart constructor.-data ManagementCustomMetricsGet =-  ManagementCustomMetricsGet'-    { _mcmgCustomMetricId :: !Text-    , _mcmgWebPropertyId  :: !Text-    , _mcmgAccountId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomMetricsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcmgCustomMetricId'------ * 'mcmgWebPropertyId'------ * 'mcmgAccountId'-managementCustomMetricsGet-    :: Text -- ^ 'mcmgCustomMetricId'-    -> Text -- ^ 'mcmgWebPropertyId'-    -> Text -- ^ 'mcmgAccountId'-    -> ManagementCustomMetricsGet-managementCustomMetricsGet pMcmgCustomMetricId_ pMcmgWebPropertyId_ pMcmgAccountId_ =-  ManagementCustomMetricsGet'-    { _mcmgCustomMetricId = pMcmgCustomMetricId_-    , _mcmgWebPropertyId = pMcmgWebPropertyId_-    , _mcmgAccountId = pMcmgAccountId_-    }----- | The ID of the custom metric to retrieve.-mcmgCustomMetricId :: Lens' ManagementCustomMetricsGet Text-mcmgCustomMetricId-  = lens _mcmgCustomMetricId-      (\ s a -> s{_mcmgCustomMetricId = a})---- | Web property ID for the custom metric to retrieve.-mcmgWebPropertyId :: Lens' ManagementCustomMetricsGet Text-mcmgWebPropertyId-  = lens _mcmgWebPropertyId-      (\ s a -> s{_mcmgWebPropertyId = a})---- | Account ID for the custom metric to retrieve.-mcmgAccountId :: Lens' ManagementCustomMetricsGet Text-mcmgAccountId-  = lens _mcmgAccountId-      (\ s a -> s{_mcmgAccountId = a})--instance GoogleRequest ManagementCustomMetricsGet-         where-        type Rs ManagementCustomMetricsGet = CustomMetric-        type Scopes ManagementCustomMetricsGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementCustomMetricsGet'{..}-          = go _mcmgAccountId _mcmgWebPropertyId-              _mcmgCustomMetricId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementCustomMetricsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs 
@@ -1,123 +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.Analytics.Management.CustomMetrics.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)------ Create a new custom metric.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.insert@.-module Network.Google.Resource.Analytics.Management.CustomMetrics.Insert-    (-    -- * REST Resource-      ManagementCustomMetricsInsertResource--    -- * Creating a Request-    , managementCustomMetricsInsert-    , ManagementCustomMetricsInsert--    -- * Request Lenses-    , mcmiWebPropertyId-    , mcmiPayload-    , mcmiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customMetrics.insert@ method which the--- 'ManagementCustomMetricsInsert' request conforms to.-type ManagementCustomMetricsInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customMetrics" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] CustomMetric :>-                         Post '[JSON] CustomMetric---- | Create a new custom metric.------ /See:/ 'managementCustomMetricsInsert' smart constructor.-data ManagementCustomMetricsInsert =-  ManagementCustomMetricsInsert'-    { _mcmiWebPropertyId :: !Text-    , _mcmiPayload       :: !CustomMetric-    , _mcmiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomMetricsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcmiWebPropertyId'------ * 'mcmiPayload'------ * 'mcmiAccountId'-managementCustomMetricsInsert-    :: Text -- ^ 'mcmiWebPropertyId'-    -> CustomMetric -- ^ 'mcmiPayload'-    -> Text -- ^ 'mcmiAccountId'-    -> ManagementCustomMetricsInsert-managementCustomMetricsInsert pMcmiWebPropertyId_ pMcmiPayload_ pMcmiAccountId_ =-  ManagementCustomMetricsInsert'-    { _mcmiWebPropertyId = pMcmiWebPropertyId_-    , _mcmiPayload = pMcmiPayload_-    , _mcmiAccountId = pMcmiAccountId_-    }----- | Web property ID for the custom dimension to create.-mcmiWebPropertyId :: Lens' ManagementCustomMetricsInsert Text-mcmiWebPropertyId-  = lens _mcmiWebPropertyId-      (\ s a -> s{_mcmiWebPropertyId = a})---- | Multipart request metadata.-mcmiPayload :: Lens' ManagementCustomMetricsInsert CustomMetric-mcmiPayload-  = lens _mcmiPayload (\ s a -> s{_mcmiPayload = a})---- | Account ID for the custom metric to create.-mcmiAccountId :: Lens' ManagementCustomMetricsInsert Text-mcmiAccountId-  = lens _mcmiAccountId-      (\ s a -> s{_mcmiAccountId = a})--instance GoogleRequest ManagementCustomMetricsInsert-         where-        type Rs ManagementCustomMetricsInsert = CustomMetric-        type Scopes ManagementCustomMetricsInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomMetricsInsert'{..}-          = go _mcmiAccountId _mcmiWebPropertyId (Just AltJSON)-              _mcmiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomMetricsInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.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.Analytics.Management.CustomMetrics.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)------ Lists custom metrics to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.list@.-module Network.Google.Resource.Analytics.Management.CustomMetrics.List-    (-    -- * REST Resource-      ManagementCustomMetricsListResource--    -- * Creating a Request-    , managementCustomMetricsList-    , ManagementCustomMetricsList--    -- * Request Lenses-    , mcmlWebPropertyId-    , mcmlAccountId-    , mcmlStartIndex-    , mcmlMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customMetrics.list@ method which the--- 'ManagementCustomMetricsList' request conforms to.-type ManagementCustomMetricsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customMetrics" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] CustomMetrics---- | Lists custom metrics to which the user has access.------ /See:/ 'managementCustomMetricsList' smart constructor.-data ManagementCustomMetricsList =-  ManagementCustomMetricsList'-    { _mcmlWebPropertyId :: !Text-    , _mcmlAccountId     :: !Text-    , _mcmlStartIndex    :: !(Maybe (Textual Int32))-    , _mcmlMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomMetricsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcmlWebPropertyId'------ * 'mcmlAccountId'------ * 'mcmlStartIndex'------ * 'mcmlMaxResults'-managementCustomMetricsList-    :: Text -- ^ 'mcmlWebPropertyId'-    -> Text -- ^ 'mcmlAccountId'-    -> ManagementCustomMetricsList-managementCustomMetricsList pMcmlWebPropertyId_ pMcmlAccountId_ =-  ManagementCustomMetricsList'-    { _mcmlWebPropertyId = pMcmlWebPropertyId_-    , _mcmlAccountId = pMcmlAccountId_-    , _mcmlStartIndex = Nothing-    , _mcmlMaxResults = Nothing-    }----- | Web property ID for the custom metrics to retrieve.-mcmlWebPropertyId :: Lens' ManagementCustomMetricsList Text-mcmlWebPropertyId-  = lens _mcmlWebPropertyId-      (\ s a -> s{_mcmlWebPropertyId = a})---- | Account ID for the custom metrics to retrieve.-mcmlAccountId :: Lens' ManagementCustomMetricsList Text-mcmlAccountId-  = lens _mcmlAccountId-      (\ s a -> s{_mcmlAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mcmlStartIndex :: Lens' ManagementCustomMetricsList (Maybe Int32)-mcmlStartIndex-  = lens _mcmlStartIndex-      (\ s a -> s{_mcmlStartIndex = a})-      . mapping _Coerce---- | The maximum number of custom metrics to include in this response.-mcmlMaxResults :: Lens' ManagementCustomMetricsList (Maybe Int32)-mcmlMaxResults-  = lens _mcmlMaxResults-      (\ s a -> s{_mcmlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementCustomMetricsList-         where-        type Rs ManagementCustomMetricsList = CustomMetrics-        type Scopes ManagementCustomMetricsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementCustomMetricsList'{..}-          = go _mcmlAccountId _mcmlWebPropertyId-              _mcmlStartIndex-              _mcmlMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementCustomMetricsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs 
@@ -1,151 +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.Analytics.Management.CustomMetrics.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)------ Updates an existing custom metric. This method supports patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.patch@.-module Network.Google.Resource.Analytics.Management.CustomMetrics.Patch-    (-    -- * REST Resource-      ManagementCustomMetricsPatchResource--    -- * Creating a Request-    , managementCustomMetricsPatch-    , ManagementCustomMetricsPatch--    -- * Request Lenses-    , mcmpCustomMetricId-    , mcmpWebPropertyId-    , mcmpIgnoreCustomDataSourceLinks-    , mcmpPayload-    , mcmpAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customMetrics.patch@ method which the--- 'ManagementCustomMetricsPatch' request conforms to.-type ManagementCustomMetricsPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customMetrics" :>-                     Capture "customMetricId" Text :>-                       QueryParam "ignoreCustomDataSourceLinks" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] CustomMetric :>-                             Patch '[JSON] CustomMetric---- | Updates an existing custom metric. This method supports patch semantics.------ /See:/ 'managementCustomMetricsPatch' smart constructor.-data ManagementCustomMetricsPatch =-  ManagementCustomMetricsPatch'-    { _mcmpCustomMetricId              :: !Text-    , _mcmpWebPropertyId               :: !Text-    , _mcmpIgnoreCustomDataSourceLinks :: !Bool-    , _mcmpPayload                     :: !CustomMetric-    , _mcmpAccountId                   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomMetricsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcmpCustomMetricId'------ * 'mcmpWebPropertyId'------ * 'mcmpIgnoreCustomDataSourceLinks'------ * 'mcmpPayload'------ * 'mcmpAccountId'-managementCustomMetricsPatch-    :: Text -- ^ 'mcmpCustomMetricId'-    -> Text -- ^ 'mcmpWebPropertyId'-    -> CustomMetric -- ^ 'mcmpPayload'-    -> Text -- ^ 'mcmpAccountId'-    -> ManagementCustomMetricsPatch-managementCustomMetricsPatch pMcmpCustomMetricId_ pMcmpWebPropertyId_ pMcmpPayload_ pMcmpAccountId_ =-  ManagementCustomMetricsPatch'-    { _mcmpCustomMetricId = pMcmpCustomMetricId_-    , _mcmpWebPropertyId = pMcmpWebPropertyId_-    , _mcmpIgnoreCustomDataSourceLinks = False-    , _mcmpPayload = pMcmpPayload_-    , _mcmpAccountId = pMcmpAccountId_-    }----- | Custom metric ID for the custom metric to update.-mcmpCustomMetricId :: Lens' ManagementCustomMetricsPatch Text-mcmpCustomMetricId-  = lens _mcmpCustomMetricId-      (\ s a -> s{_mcmpCustomMetricId = a})---- | Web property ID for the custom metric to update.-mcmpWebPropertyId :: Lens' ManagementCustomMetricsPatch Text-mcmpWebPropertyId-  = lens _mcmpWebPropertyId-      (\ s a -> s{_mcmpWebPropertyId = a})---- | Force the update and ignore any warnings related to the custom metric--- being linked to a custom data source \/ data set.-mcmpIgnoreCustomDataSourceLinks :: Lens' ManagementCustomMetricsPatch Bool-mcmpIgnoreCustomDataSourceLinks-  = lens _mcmpIgnoreCustomDataSourceLinks-      (\ s a -> s{_mcmpIgnoreCustomDataSourceLinks = a})---- | Multipart request metadata.-mcmpPayload :: Lens' ManagementCustomMetricsPatch CustomMetric-mcmpPayload-  = lens _mcmpPayload (\ s a -> s{_mcmpPayload = a})---- | Account ID for the custom metric to update.-mcmpAccountId :: Lens' ManagementCustomMetricsPatch Text-mcmpAccountId-  = lens _mcmpAccountId-      (\ s a -> s{_mcmpAccountId = a})--instance GoogleRequest ManagementCustomMetricsPatch-         where-        type Rs ManagementCustomMetricsPatch = CustomMetric-        type Scopes ManagementCustomMetricsPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomMetricsPatch'{..}-          = go _mcmpAccountId _mcmpWebPropertyId-              _mcmpCustomMetricId-              (Just _mcmpIgnoreCustomDataSourceLinks)-              (Just AltJSON)-              _mcmpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementCustomMetricsPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs 
@@ -1,152 +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.Analytics.Management.CustomMetrics.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)------ Updates an existing custom metric.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.customMetrics.update@.-module Network.Google.Resource.Analytics.Management.CustomMetrics.Update-    (-    -- * REST Resource-      ManagementCustomMetricsUpdateResource--    -- * Creating a Request-    , managementCustomMetricsUpdate-    , ManagementCustomMetricsUpdate--    -- * Request Lenses-    , mcmuCustomMetricId-    , mcmuWebPropertyId-    , mcmuIgnoreCustomDataSourceLinks-    , mcmuPayload-    , mcmuAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.customMetrics.update@ method which the--- 'ManagementCustomMetricsUpdate' request conforms to.-type ManagementCustomMetricsUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customMetrics" :>-                     Capture "customMetricId" Text :>-                       QueryParam "ignoreCustomDataSourceLinks" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] CustomMetric :>-                             Put '[JSON] CustomMetric---- | Updates an existing custom metric.------ /See:/ 'managementCustomMetricsUpdate' smart constructor.-data ManagementCustomMetricsUpdate =-  ManagementCustomMetricsUpdate'-    { _mcmuCustomMetricId              :: !Text-    , _mcmuWebPropertyId               :: !Text-    , _mcmuIgnoreCustomDataSourceLinks :: !Bool-    , _mcmuPayload                     :: !CustomMetric-    , _mcmuAccountId                   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementCustomMetricsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcmuCustomMetricId'------ * 'mcmuWebPropertyId'------ * 'mcmuIgnoreCustomDataSourceLinks'------ * 'mcmuPayload'------ * 'mcmuAccountId'-managementCustomMetricsUpdate-    :: Text -- ^ 'mcmuCustomMetricId'-    -> Text -- ^ 'mcmuWebPropertyId'-    -> CustomMetric -- ^ 'mcmuPayload'-    -> Text -- ^ 'mcmuAccountId'-    -> ManagementCustomMetricsUpdate-managementCustomMetricsUpdate pMcmuCustomMetricId_ pMcmuWebPropertyId_ pMcmuPayload_ pMcmuAccountId_ =-  ManagementCustomMetricsUpdate'-    { _mcmuCustomMetricId = pMcmuCustomMetricId_-    , _mcmuWebPropertyId = pMcmuWebPropertyId_-    , _mcmuIgnoreCustomDataSourceLinks = False-    , _mcmuPayload = pMcmuPayload_-    , _mcmuAccountId = pMcmuAccountId_-    }----- | Custom metric ID for the custom metric to update.-mcmuCustomMetricId :: Lens' ManagementCustomMetricsUpdate Text-mcmuCustomMetricId-  = lens _mcmuCustomMetricId-      (\ s a -> s{_mcmuCustomMetricId = a})---- | Web property ID for the custom metric to update.-mcmuWebPropertyId :: Lens' ManagementCustomMetricsUpdate Text-mcmuWebPropertyId-  = lens _mcmuWebPropertyId-      (\ s a -> s{_mcmuWebPropertyId = a})---- | Force the update and ignore any warnings related to the custom metric--- being linked to a custom data source \/ data set.-mcmuIgnoreCustomDataSourceLinks :: Lens' ManagementCustomMetricsUpdate Bool-mcmuIgnoreCustomDataSourceLinks-  = lens _mcmuIgnoreCustomDataSourceLinks-      (\ s a -> s{_mcmuIgnoreCustomDataSourceLinks = a})---- | Multipart request metadata.-mcmuPayload :: Lens' ManagementCustomMetricsUpdate CustomMetric-mcmuPayload-  = lens _mcmuPayload (\ s a -> s{_mcmuPayload = a})---- | Account ID for the custom metric to update.-mcmuAccountId :: Lens' ManagementCustomMetricsUpdate Text-mcmuAccountId-  = lens _mcmuAccountId-      (\ s a -> s{_mcmuAccountId = a})--instance GoogleRequest ManagementCustomMetricsUpdate-         where-        type Rs ManagementCustomMetricsUpdate = CustomMetric-        type Scopes ManagementCustomMetricsUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementCustomMetricsUpdate'{..}-          = go _mcmuAccountId _mcmuWebPropertyId-              _mcmuCustomMetricId-              (Just _mcmuIgnoreCustomDataSourceLinks)-              (Just AltJSON)-              _mcmuPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementCustomMetricsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs 
@@ -1,136 +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.Analytics.Management.Experiments.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 an experiment.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.delete@.-module Network.Google.Resource.Analytics.Management.Experiments.Delete-    (-    -- * REST Resource-      ManagementExperimentsDeleteResource--    -- * Creating a Request-    , managementExperimentsDelete-    , ManagementExperimentsDelete--    -- * Request Lenses-    , medWebPropertyId-    , medProFileId-    , medAccountId-    , medExperimentId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.delete@ method which the--- 'ManagementExperimentsDelete' request conforms to.-type ManagementExperimentsDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         Capture "experimentId" Text :>-                           QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete an experiment.------ /See:/ 'managementExperimentsDelete' smart constructor.-data ManagementExperimentsDelete =-  ManagementExperimentsDelete'-    { _medWebPropertyId :: !Text-    , _medProFileId     :: !Text-    , _medAccountId     :: !Text-    , _medExperimentId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'medWebPropertyId'------ * 'medProFileId'------ * 'medAccountId'------ * 'medExperimentId'-managementExperimentsDelete-    :: Text -- ^ 'medWebPropertyId'-    -> Text -- ^ 'medProFileId'-    -> Text -- ^ 'medAccountId'-    -> Text -- ^ 'medExperimentId'-    -> ManagementExperimentsDelete-managementExperimentsDelete pMedWebPropertyId_ pMedProFileId_ pMedAccountId_ pMedExperimentId_ =-  ManagementExperimentsDelete'-    { _medWebPropertyId = pMedWebPropertyId_-    , _medProFileId = pMedProFileId_-    , _medAccountId = pMedAccountId_-    , _medExperimentId = pMedExperimentId_-    }----- | Web property ID to which the experiment belongs-medWebPropertyId :: Lens' ManagementExperimentsDelete Text-medWebPropertyId-  = lens _medWebPropertyId-      (\ s a -> s{_medWebPropertyId = a})---- | View (Profile) ID to which the experiment belongs-medProFileId :: Lens' ManagementExperimentsDelete Text-medProFileId-  = lens _medProFileId (\ s a -> s{_medProFileId = a})---- | Account ID to which the experiment belongs-medAccountId :: Lens' ManagementExperimentsDelete Text-medAccountId-  = lens _medAccountId (\ s a -> s{_medAccountId = a})---- | ID of the experiment to delete-medExperimentId :: Lens' ManagementExperimentsDelete Text-medExperimentId-  = lens _medExperimentId-      (\ s a -> s{_medExperimentId = a})--instance GoogleRequest ManagementExperimentsDelete-         where-        type Rs ManagementExperimentsDelete = ()-        type Scopes ManagementExperimentsDelete =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementExperimentsDelete'{..}-          = go _medAccountId _medWebPropertyId _medProFileId-              _medExperimentId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs 
@@ -1,136 +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.Analytics.Management.Experiments.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)------ Returns an experiment to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.get@.-module Network.Google.Resource.Analytics.Management.Experiments.Get-    (-    -- * REST Resource-      ManagementExperimentsGetResource--    -- * Creating a Request-    , managementExperimentsGet-    , ManagementExperimentsGet--    -- * Request Lenses-    , megWebPropertyId-    , megProFileId-    , megAccountId-    , megExperimentId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.get@ method which the--- 'ManagementExperimentsGet' request conforms to.-type ManagementExperimentsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         Capture "experimentId" Text :>-                           QueryParam "alt" AltJSON :> Get '[JSON] Experiment---- | Returns an experiment to which the user has access.------ /See:/ 'managementExperimentsGet' smart constructor.-data ManagementExperimentsGet =-  ManagementExperimentsGet'-    { _megWebPropertyId :: !Text-    , _megProFileId     :: !Text-    , _megAccountId     :: !Text-    , _megExperimentId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'megWebPropertyId'------ * 'megProFileId'------ * 'megAccountId'------ * 'megExperimentId'-managementExperimentsGet-    :: Text -- ^ 'megWebPropertyId'-    -> Text -- ^ 'megProFileId'-    -> Text -- ^ 'megAccountId'-    -> Text -- ^ 'megExperimentId'-    -> ManagementExperimentsGet-managementExperimentsGet pMegWebPropertyId_ pMegProFileId_ pMegAccountId_ pMegExperimentId_ =-  ManagementExperimentsGet'-    { _megWebPropertyId = pMegWebPropertyId_-    , _megProFileId = pMegProFileId_-    , _megAccountId = pMegAccountId_-    , _megExperimentId = pMegExperimentId_-    }----- | Web property ID to retrieve the experiment for.-megWebPropertyId :: Lens' ManagementExperimentsGet Text-megWebPropertyId-  = lens _megWebPropertyId-      (\ s a -> s{_megWebPropertyId = a})---- | View (Profile) ID to retrieve the experiment for.-megProFileId :: Lens' ManagementExperimentsGet Text-megProFileId-  = lens _megProFileId (\ s a -> s{_megProFileId = a})---- | Account ID to retrieve the experiment for.-megAccountId :: Lens' ManagementExperimentsGet Text-megAccountId-  = lens _megAccountId (\ s a -> s{_megAccountId = a})---- | Experiment ID to retrieve the experiment for.-megExperimentId :: Lens' ManagementExperimentsGet Text-megExperimentId-  = lens _megExperimentId-      (\ s a -> s{_megExperimentId = a})--instance GoogleRequest ManagementExperimentsGet where-        type Rs ManagementExperimentsGet = Experiment-        type Scopes ManagementExperimentsGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementExperimentsGet'{..}-          = go _megAccountId _megWebPropertyId _megProFileId-              _megExperimentId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.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.Analytics.Management.Experiments.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)------ Create a new experiment.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.insert@.-module Network.Google.Resource.Analytics.Management.Experiments.Insert-    (-    -- * REST Resource-      ManagementExperimentsInsertResource--    -- * Creating a Request-    , managementExperimentsInsert-    , ManagementExperimentsInsert--    -- * Request Lenses-    , meiWebPropertyId-    , meiProFileId-    , meiPayload-    , meiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.insert@ method which the--- 'ManagementExperimentsInsert' request conforms to.-type ManagementExperimentsInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] Experiment :> Post '[JSON] Experiment---- | Create a new experiment.------ /See:/ 'managementExperimentsInsert' smart constructor.-data ManagementExperimentsInsert =-  ManagementExperimentsInsert'-    { _meiWebPropertyId :: !Text-    , _meiProFileId     :: !Text-    , _meiPayload       :: !Experiment-    , _meiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'meiWebPropertyId'------ * 'meiProFileId'------ * 'meiPayload'------ * 'meiAccountId'-managementExperimentsInsert-    :: Text -- ^ 'meiWebPropertyId'-    -> Text -- ^ 'meiProFileId'-    -> Experiment -- ^ 'meiPayload'-    -> Text -- ^ 'meiAccountId'-    -> ManagementExperimentsInsert-managementExperimentsInsert pMeiWebPropertyId_ pMeiProFileId_ pMeiPayload_ pMeiAccountId_ =-  ManagementExperimentsInsert'-    { _meiWebPropertyId = pMeiWebPropertyId_-    , _meiProFileId = pMeiProFileId_-    , _meiPayload = pMeiPayload_-    , _meiAccountId = pMeiAccountId_-    }----- | Web property ID to create the experiment for.-meiWebPropertyId :: Lens' ManagementExperimentsInsert Text-meiWebPropertyId-  = lens _meiWebPropertyId-      (\ s a -> s{_meiWebPropertyId = a})---- | View (Profile) ID to create the experiment for.-meiProFileId :: Lens' ManagementExperimentsInsert Text-meiProFileId-  = lens _meiProFileId (\ s a -> s{_meiProFileId = a})---- | Multipart request metadata.-meiPayload :: Lens' ManagementExperimentsInsert Experiment-meiPayload-  = lens _meiPayload (\ s a -> s{_meiPayload = a})---- | Account ID to create the experiment for.-meiAccountId :: Lens' ManagementExperimentsInsert Text-meiAccountId-  = lens _meiAccountId (\ s a -> s{_meiAccountId = a})--instance GoogleRequest ManagementExperimentsInsert-         where-        type Rs ManagementExperimentsInsert = Experiment-        type Scopes ManagementExperimentsInsert =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementExperimentsInsert'{..}-          = go _meiAccountId _meiWebPropertyId _meiProFileId-              (Just AltJSON)-              _meiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs 
@@ -1,152 +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.Analytics.Management.Experiments.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)------ Lists experiments to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.list@.-module Network.Google.Resource.Analytics.Management.Experiments.List-    (-    -- * REST Resource-      ManagementExperimentsListResource--    -- * Creating a Request-    , managementExperimentsList-    , ManagementExperimentsList--    -- * Request Lenses-    , melWebPropertyId-    , melProFileId-    , melAccountId-    , melStartIndex-    , melMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.list@ method which the--- 'ManagementExperimentsList' request conforms to.-type ManagementExperimentsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :> Get '[JSON] Experiments---- | Lists experiments to which the user has access.------ /See:/ 'managementExperimentsList' smart constructor.-data ManagementExperimentsList =-  ManagementExperimentsList'-    { _melWebPropertyId :: !Text-    , _melProFileId     :: !Text-    , _melAccountId     :: !Text-    , _melStartIndex    :: !(Maybe (Textual Int32))-    , _melMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'melWebPropertyId'------ * 'melProFileId'------ * 'melAccountId'------ * 'melStartIndex'------ * 'melMaxResults'-managementExperimentsList-    :: Text -- ^ 'melWebPropertyId'-    -> Text -- ^ 'melProFileId'-    -> Text -- ^ 'melAccountId'-    -> ManagementExperimentsList-managementExperimentsList pMelWebPropertyId_ pMelProFileId_ pMelAccountId_ =-  ManagementExperimentsList'-    { _melWebPropertyId = pMelWebPropertyId_-    , _melProFileId = pMelProFileId_-    , _melAccountId = pMelAccountId_-    , _melStartIndex = Nothing-    , _melMaxResults = Nothing-    }----- | Web property ID to retrieve experiments for.-melWebPropertyId :: Lens' ManagementExperimentsList Text-melWebPropertyId-  = lens _melWebPropertyId-      (\ s a -> s{_melWebPropertyId = a})---- | View (Profile) ID to retrieve experiments for.-melProFileId :: Lens' ManagementExperimentsList Text-melProFileId-  = lens _melProFileId (\ s a -> s{_melProFileId = a})---- | Account ID to retrieve experiments for.-melAccountId :: Lens' ManagementExperimentsList Text-melAccountId-  = lens _melAccountId (\ s a -> s{_melAccountId = a})---- | An index of the first experiment to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-melStartIndex :: Lens' ManagementExperimentsList (Maybe Int32)-melStartIndex-  = lens _melStartIndex-      (\ s a -> s{_melStartIndex = a})-      . mapping _Coerce---- | The maximum number of experiments to include in this response.-melMaxResults :: Lens' ManagementExperimentsList (Maybe Int32)-melMaxResults-  = lens _melMaxResults-      (\ s a -> s{_melMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementExperimentsList-         where-        type Rs ManagementExperimentsList = Experiments-        type Scopes ManagementExperimentsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementExperimentsList'{..}-          = go _melAccountId _melWebPropertyId _melProFileId-              _melStartIndex-              _melMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.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.Analytics.Management.Experiments.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 an existing experiment. This method supports patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.patch@.-module Network.Google.Resource.Analytics.Management.Experiments.Patch-    (-    -- * REST Resource-      ManagementExperimentsPatchResource--    -- * Creating a Request-    , managementExperimentsPatch-    , ManagementExperimentsPatch--    -- * Request Lenses-    , mepWebPropertyId-    , mepProFileId-    , mepPayload-    , mepAccountId-    , mepExperimentId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.patch@ method which the--- 'ManagementExperimentsPatch' request conforms to.-type ManagementExperimentsPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         Capture "experimentId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Experiment :>-                               Patch '[JSON] Experiment---- | Update an existing experiment. This method supports patch semantics.------ /See:/ 'managementExperimentsPatch' smart constructor.-data ManagementExperimentsPatch =-  ManagementExperimentsPatch'-    { _mepWebPropertyId :: !Text-    , _mepProFileId     :: !Text-    , _mepPayload       :: !Experiment-    , _mepAccountId     :: !Text-    , _mepExperimentId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mepWebPropertyId'------ * 'mepProFileId'------ * 'mepPayload'------ * 'mepAccountId'------ * 'mepExperimentId'-managementExperimentsPatch-    :: Text -- ^ 'mepWebPropertyId'-    -> Text -- ^ 'mepProFileId'-    -> Experiment -- ^ 'mepPayload'-    -> Text -- ^ 'mepAccountId'-    -> Text -- ^ 'mepExperimentId'-    -> ManagementExperimentsPatch-managementExperimentsPatch pMepWebPropertyId_ pMepProFileId_ pMepPayload_ pMepAccountId_ pMepExperimentId_ =-  ManagementExperimentsPatch'-    { _mepWebPropertyId = pMepWebPropertyId_-    , _mepProFileId = pMepProFileId_-    , _mepPayload = pMepPayload_-    , _mepAccountId = pMepAccountId_-    , _mepExperimentId = pMepExperimentId_-    }----- | Web property ID of the experiment to update.-mepWebPropertyId :: Lens' ManagementExperimentsPatch Text-mepWebPropertyId-  = lens _mepWebPropertyId-      (\ s a -> s{_mepWebPropertyId = a})---- | View (Profile) ID of the experiment to update.-mepProFileId :: Lens' ManagementExperimentsPatch Text-mepProFileId-  = lens _mepProFileId (\ s a -> s{_mepProFileId = a})---- | Multipart request metadata.-mepPayload :: Lens' ManagementExperimentsPatch Experiment-mepPayload-  = lens _mepPayload (\ s a -> s{_mepPayload = a})---- | Account ID of the experiment to update.-mepAccountId :: Lens' ManagementExperimentsPatch Text-mepAccountId-  = lens _mepAccountId (\ s a -> s{_mepAccountId = a})---- | Experiment ID of the experiment to update.-mepExperimentId :: Lens' ManagementExperimentsPatch Text-mepExperimentId-  = lens _mepExperimentId-      (\ s a -> s{_mepExperimentId = a})--instance GoogleRequest ManagementExperimentsPatch-         where-        type Rs ManagementExperimentsPatch = Experiment-        type Scopes ManagementExperimentsPatch =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementExperimentsPatch'{..}-          = go _mepAccountId _mepWebPropertyId _mepProFileId-              _mepExperimentId-              (Just AltJSON)-              _mepPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Experiments/Update.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.Analytics.Management.Experiments.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 an existing experiment.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.experiments.update@.-module Network.Google.Resource.Analytics.Management.Experiments.Update-    (-    -- * REST Resource-      ManagementExperimentsUpdateResource--    -- * Creating a Request-    , managementExperimentsUpdate-    , ManagementExperimentsUpdate--    -- * Request Lenses-    , meuWebPropertyId-    , meuProFileId-    , meuPayload-    , meuAccountId-    , meuExperimentId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.experiments.update@ method which the--- 'ManagementExperimentsUpdate' request conforms to.-type ManagementExperimentsUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "experiments" :>-                         Capture "experimentId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Experiment :>-                               Put '[JSON] Experiment---- | Update an existing experiment.------ /See:/ 'managementExperimentsUpdate' smart constructor.-data ManagementExperimentsUpdate =-  ManagementExperimentsUpdate'-    { _meuWebPropertyId :: !Text-    , _meuProFileId     :: !Text-    , _meuPayload       :: !Experiment-    , _meuAccountId     :: !Text-    , _meuExperimentId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementExperimentsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'meuWebPropertyId'------ * 'meuProFileId'------ * 'meuPayload'------ * 'meuAccountId'------ * 'meuExperimentId'-managementExperimentsUpdate-    :: Text -- ^ 'meuWebPropertyId'-    -> Text -- ^ 'meuProFileId'-    -> Experiment -- ^ 'meuPayload'-    -> Text -- ^ 'meuAccountId'-    -> Text -- ^ 'meuExperimentId'-    -> ManagementExperimentsUpdate-managementExperimentsUpdate pMeuWebPropertyId_ pMeuProFileId_ pMeuPayload_ pMeuAccountId_ pMeuExperimentId_ =-  ManagementExperimentsUpdate'-    { _meuWebPropertyId = pMeuWebPropertyId_-    , _meuProFileId = pMeuProFileId_-    , _meuPayload = pMeuPayload_-    , _meuAccountId = pMeuAccountId_-    , _meuExperimentId = pMeuExperimentId_-    }----- | Web property ID of the experiment to update.-meuWebPropertyId :: Lens' ManagementExperimentsUpdate Text-meuWebPropertyId-  = lens _meuWebPropertyId-      (\ s a -> s{_meuWebPropertyId = a})---- | View (Profile) ID of the experiment to update.-meuProFileId :: Lens' ManagementExperimentsUpdate Text-meuProFileId-  = lens _meuProFileId (\ s a -> s{_meuProFileId = a})---- | Multipart request metadata.-meuPayload :: Lens' ManagementExperimentsUpdate Experiment-meuPayload-  = lens _meuPayload (\ s a -> s{_meuPayload = a})---- | Account ID of the experiment to update.-meuAccountId :: Lens' ManagementExperimentsUpdate Text-meuAccountId-  = lens _meuAccountId (\ s a -> s{_meuAccountId = a})---- | Experiment ID of the experiment to update.-meuExperimentId :: Lens' ManagementExperimentsUpdate Text-meuExperimentId-  = lens _meuExperimentId-      (\ s a -> s{_meuExperimentId = a})--instance GoogleRequest ManagementExperimentsUpdate-         where-        type Rs ManagementExperimentsUpdate = Experiment-        type Scopes ManagementExperimentsUpdate =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementExperimentsUpdate'{..}-          = go _meuAccountId _meuWebPropertyId _meuProFileId-              _meuExperimentId-              (Just AltJSON)-              _meuPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementExperimentsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/Delete.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.Analytics.Management.Filters.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 filter.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.delete@.-module Network.Google.Resource.Analytics.Management.Filters.Delete-    (-    -- * REST Resource-      ManagementFiltersDeleteResource--    -- * Creating a Request-    , managementFiltersDelete-    , ManagementFiltersDelete--    -- * Request Lenses-    , mfdFilterId-    , mfdAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.delete@ method which the--- 'ManagementFiltersDelete' request conforms to.-type ManagementFiltersDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 Capture "filterId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Filter---- | Delete a filter.------ /See:/ 'managementFiltersDelete' smart constructor.-data ManagementFiltersDelete =-  ManagementFiltersDelete'-    { _mfdFilterId  :: !Text-    , _mfdAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mfdFilterId'------ * 'mfdAccountId'-managementFiltersDelete-    :: Text -- ^ 'mfdFilterId'-    -> Text -- ^ 'mfdAccountId'-    -> ManagementFiltersDelete-managementFiltersDelete pMfdFilterId_ pMfdAccountId_ =-  ManagementFiltersDelete'-    {_mfdFilterId = pMfdFilterId_, _mfdAccountId = pMfdAccountId_}----- | ID of the filter to be deleted.-mfdFilterId :: Lens' ManagementFiltersDelete Text-mfdFilterId-  = lens _mfdFilterId (\ s a -> s{_mfdFilterId = a})---- | Account ID to delete the filter for.-mfdAccountId :: Lens' ManagementFiltersDelete Text-mfdAccountId-  = lens _mfdAccountId (\ s a -> s{_mfdAccountId = a})--instance GoogleRequest ManagementFiltersDelete where-        type Rs ManagementFiltersDelete = Filter-        type Scopes ManagementFiltersDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementFiltersDelete'{..}-          = go _mfdAccountId _mfdFilterId (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/Get.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.Analytics.Management.Filters.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)------ Returns a filters to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.get@.-module Network.Google.Resource.Analytics.Management.Filters.Get-    (-    -- * REST Resource-      ManagementFiltersGetResource--    -- * Creating a Request-    , managementFiltersGet-    , ManagementFiltersGet--    -- * Request Lenses-    , mfgFilterId-    , mfgAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.get@ method which the--- 'ManagementFiltersGet' request conforms to.-type ManagementFiltersGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 Capture "filterId" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Filter---- | Returns a filters to which the user has access.------ /See:/ 'managementFiltersGet' smart constructor.-data ManagementFiltersGet =-  ManagementFiltersGet'-    { _mfgFilterId  :: !Text-    , _mfgAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mfgFilterId'------ * 'mfgAccountId'-managementFiltersGet-    :: Text -- ^ 'mfgFilterId'-    -> Text -- ^ 'mfgAccountId'-    -> ManagementFiltersGet-managementFiltersGet pMfgFilterId_ pMfgAccountId_ =-  ManagementFiltersGet'-    {_mfgFilterId = pMfgFilterId_, _mfgAccountId = pMfgAccountId_}----- | Filter ID to retrieve filters for.-mfgFilterId :: Lens' ManagementFiltersGet Text-mfgFilterId-  = lens _mfgFilterId (\ s a -> s{_mfgFilterId = a})---- | Account ID to retrieve filters for.-mfgAccountId :: Lens' ManagementFiltersGet Text-mfgAccountId-  = lens _mfgAccountId (\ s a -> s{_mfgAccountId = a})--instance GoogleRequest ManagementFiltersGet where-        type Rs ManagementFiltersGet = Filter-        type Scopes ManagementFiltersGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementFiltersGet'{..}-          = go _mfgAccountId _mfgFilterId (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/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.Analytics.Management.Filters.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)------ Create a new filter.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.insert@.-module Network.Google.Resource.Analytics.Management.Filters.Insert-    (-    -- * REST Resource-      ManagementFiltersInsertResource--    -- * Creating a Request-    , managementFiltersInsert-    , ManagementFiltersInsert--    -- * Request Lenses-    , mfiPayload-    , mfiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.insert@ method which the--- 'ManagementFiltersInsert' request conforms to.-type ManagementFiltersInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Filter :> Post '[JSON] Filter---- | Create a new filter.------ /See:/ 'managementFiltersInsert' smart constructor.-data ManagementFiltersInsert =-  ManagementFiltersInsert'-    { _mfiPayload   :: !Filter-    , _mfiAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mfiPayload'------ * 'mfiAccountId'-managementFiltersInsert-    :: Filter -- ^ 'mfiPayload'-    -> Text -- ^ 'mfiAccountId'-    -> ManagementFiltersInsert-managementFiltersInsert pMfiPayload_ pMfiAccountId_ =-  ManagementFiltersInsert'-    {_mfiPayload = pMfiPayload_, _mfiAccountId = pMfiAccountId_}----- | Multipart request metadata.-mfiPayload :: Lens' ManagementFiltersInsert Filter-mfiPayload-  = lens _mfiPayload (\ s a -> s{_mfiPayload = a})---- | Account ID to create filter for.-mfiAccountId :: Lens' ManagementFiltersInsert Text-mfiAccountId-  = lens _mfiAccountId (\ s a -> s{_mfiAccountId = a})--instance GoogleRequest ManagementFiltersInsert where-        type Rs ManagementFiltersInsert = Filter-        type Scopes ManagementFiltersInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementFiltersInsert'{..}-          = go _mfiAccountId (Just AltJSON) _mfiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/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.Analytics.Management.Filters.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)------ Lists all filters for an account------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.list@.-module Network.Google.Resource.Analytics.Management.Filters.List-    (-    -- * REST Resource-      ManagementFiltersListResource--    -- * Creating a Request-    , managementFiltersList-    , ManagementFiltersList--    -- * Request Lenses-    , mflAccountId-    , mflStartIndex-    , mflMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.list@ method which the--- 'ManagementFiltersList' request conforms to.-type ManagementFiltersListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 QueryParam "start-index" (Textual Int32) :>-                   QueryParam "max-results" (Textual Int32) :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Filters---- | Lists all filters for an account------ /See:/ 'managementFiltersList' smart constructor.-data ManagementFiltersList =-  ManagementFiltersList'-    { _mflAccountId  :: !Text-    , _mflStartIndex :: !(Maybe (Textual Int32))-    , _mflMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mflAccountId'------ * 'mflStartIndex'------ * 'mflMaxResults'-managementFiltersList-    :: Text -- ^ 'mflAccountId'-    -> ManagementFiltersList-managementFiltersList pMflAccountId_ =-  ManagementFiltersList'-    { _mflAccountId = pMflAccountId_-    , _mflStartIndex = Nothing-    , _mflMaxResults = Nothing-    }----- | Account ID to retrieve filters for.-mflAccountId :: Lens' ManagementFiltersList Text-mflAccountId-  = lens _mflAccountId (\ s a -> s{_mflAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mflStartIndex :: Lens' ManagementFiltersList (Maybe Int32)-mflStartIndex-  = lens _mflStartIndex-      (\ s a -> s{_mflStartIndex = a})-      . mapping _Coerce---- | The maximum number of filters to include in this response.-mflMaxResults :: Lens' ManagementFiltersList (Maybe Int32)-mflMaxResults-  = lens _mflMaxResults-      (\ s a -> s{_mflMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementFiltersList where-        type Rs ManagementFiltersList = Filters-        type Scopes ManagementFiltersList =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementFiltersList'{..}-          = go _mflAccountId _mflStartIndex _mflMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs 
@@ -1,117 +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.Analytics.Management.Filters.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)------ Updates an existing filter. This method supports patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.patch@.-module Network.Google.Resource.Analytics.Management.Filters.Patch-    (-    -- * REST Resource-      ManagementFiltersPatchResource--    -- * Creating a Request-    , managementFiltersPatch-    , ManagementFiltersPatch--    -- * Request Lenses-    , mfpFilterId-    , mfpPayload-    , mfpAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.patch@ method which the--- 'ManagementFiltersPatch' request conforms to.-type ManagementFiltersPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 Capture "filterId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Filter :> Patch '[JSON] Filter---- | Updates an existing filter. This method supports patch semantics.------ /See:/ 'managementFiltersPatch' smart constructor.-data ManagementFiltersPatch =-  ManagementFiltersPatch'-    { _mfpFilterId  :: !Text-    , _mfpPayload   :: !Filter-    , _mfpAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mfpFilterId'------ * 'mfpPayload'------ * 'mfpAccountId'-managementFiltersPatch-    :: Text -- ^ 'mfpFilterId'-    -> Filter -- ^ 'mfpPayload'-    -> Text -- ^ 'mfpAccountId'-    -> ManagementFiltersPatch-managementFiltersPatch pMfpFilterId_ pMfpPayload_ pMfpAccountId_ =-  ManagementFiltersPatch'-    { _mfpFilterId = pMfpFilterId_-    , _mfpPayload = pMfpPayload_-    , _mfpAccountId = pMfpAccountId_-    }----- | ID of the filter to be updated.-mfpFilterId :: Lens' ManagementFiltersPatch Text-mfpFilterId-  = lens _mfpFilterId (\ s a -> s{_mfpFilterId = a})---- | Multipart request metadata.-mfpPayload :: Lens' ManagementFiltersPatch Filter-mfpPayload-  = lens _mfpPayload (\ s a -> s{_mfpPayload = a})---- | Account ID to which the filter belongs.-mfpAccountId :: Lens' ManagementFiltersPatch Text-mfpAccountId-  = lens _mfpAccountId (\ s a -> s{_mfpAccountId = a})--instance GoogleRequest ManagementFiltersPatch where-        type Rs ManagementFiltersPatch = Filter-        type Scopes ManagementFiltersPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementFiltersPatch'{..}-          = go _mfpAccountId _mfpFilterId (Just AltJSON)-              _mfpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs 
@@ -1,117 +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.Analytics.Management.Filters.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)------ Updates an existing filter.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.filters.update@.-module Network.Google.Resource.Analytics.Management.Filters.Update-    (-    -- * REST Resource-      ManagementFiltersUpdateResource--    -- * Creating a Request-    , managementFiltersUpdate-    , ManagementFiltersUpdate--    -- * Request Lenses-    , mfuFilterId-    , mfuPayload-    , mfuAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.filters.update@ method which the--- 'ManagementFiltersUpdate' request conforms to.-type ManagementFiltersUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "filters" :>-                 Capture "filterId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Filter :> Put '[JSON] Filter---- | Updates an existing filter.------ /See:/ 'managementFiltersUpdate' smart constructor.-data ManagementFiltersUpdate =-  ManagementFiltersUpdate'-    { _mfuFilterId  :: !Text-    , _mfuPayload   :: !Filter-    , _mfuAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementFiltersUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mfuFilterId'------ * 'mfuPayload'------ * 'mfuAccountId'-managementFiltersUpdate-    :: Text -- ^ 'mfuFilterId'-    -> Filter -- ^ 'mfuPayload'-    -> Text -- ^ 'mfuAccountId'-    -> ManagementFiltersUpdate-managementFiltersUpdate pMfuFilterId_ pMfuPayload_ pMfuAccountId_ =-  ManagementFiltersUpdate'-    { _mfuFilterId = pMfuFilterId_-    , _mfuPayload = pMfuPayload_-    , _mfuAccountId = pMfuAccountId_-    }----- | ID of the filter to be updated.-mfuFilterId :: Lens' ManagementFiltersUpdate Text-mfuFilterId-  = lens _mfuFilterId (\ s a -> s{_mfuFilterId = a})---- | Multipart request metadata.-mfuPayload :: Lens' ManagementFiltersUpdate Filter-mfuPayload-  = lens _mfuPayload (\ s a -> s{_mfuPayload = a})---- | Account ID to which the filter belongs.-mfuAccountId :: Lens' ManagementFiltersUpdate Text-mfuAccountId-  = lens _mfuAccountId (\ s a -> s{_mfuAccountId = a})--instance GoogleRequest ManagementFiltersUpdate where-        type Rs ManagementFiltersUpdate = Filter-        type Scopes ManagementFiltersUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementFiltersUpdate'{..}-          = go _mfuAccountId _mfuFilterId (Just AltJSON)-              _mfuPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementFiltersUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs 
@@ -1,134 +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.Analytics.Management.Goals.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)------ Gets a goal to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.get@.-module Network.Google.Resource.Analytics.Management.Goals.Get-    (-    -- * REST Resource-      ManagementGoalsGetResource--    -- * Creating a Request-    , managementGoalsGet-    , ManagementGoalsGet--    -- * Request Lenses-    , mggWebPropertyId-    , mggGoalId-    , mggProFileId-    , mggAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.goals.get@ method which the--- 'ManagementGoalsGet' request conforms to.-type ManagementGoalsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "goals" :>-                         Capture "goalId" Text :>-                           QueryParam "alt" AltJSON :> Get '[JSON] Goal---- | Gets a goal to which the user has access.------ /See:/ 'managementGoalsGet' smart constructor.-data ManagementGoalsGet =-  ManagementGoalsGet'-    { _mggWebPropertyId :: !Text-    , _mggGoalId        :: !Text-    , _mggProFileId     :: !Text-    , _mggAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementGoalsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mggWebPropertyId'------ * 'mggGoalId'------ * 'mggProFileId'------ * 'mggAccountId'-managementGoalsGet-    :: Text -- ^ 'mggWebPropertyId'-    -> Text -- ^ 'mggGoalId'-    -> Text -- ^ 'mggProFileId'-    -> Text -- ^ 'mggAccountId'-    -> ManagementGoalsGet-managementGoalsGet pMggWebPropertyId_ pMggGoalId_ pMggProFileId_ pMggAccountId_ =-  ManagementGoalsGet'-    { _mggWebPropertyId = pMggWebPropertyId_-    , _mggGoalId = pMggGoalId_-    , _mggProFileId = pMggProFileId_-    , _mggAccountId = pMggAccountId_-    }----- | Web property ID to retrieve the goal for.-mggWebPropertyId :: Lens' ManagementGoalsGet Text-mggWebPropertyId-  = lens _mggWebPropertyId-      (\ s a -> s{_mggWebPropertyId = a})---- | Goal ID to retrieve the goal for.-mggGoalId :: Lens' ManagementGoalsGet Text-mggGoalId-  = lens _mggGoalId (\ s a -> s{_mggGoalId = a})---- | View (Profile) ID to retrieve the goal for.-mggProFileId :: Lens' ManagementGoalsGet Text-mggProFileId-  = lens _mggProFileId (\ s a -> s{_mggProFileId = a})---- | Account ID to retrieve the goal for.-mggAccountId :: Lens' ManagementGoalsGet Text-mggAccountId-  = lens _mggAccountId (\ s a -> s{_mggAccountId = a})--instance GoogleRequest ManagementGoalsGet where-        type Rs ManagementGoalsGet = Goal-        type Scopes ManagementGoalsGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementGoalsGet'{..}-          = go _mggAccountId _mggWebPropertyId _mggProFileId-              _mggGoalId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementGoalsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs 
@@ -1,133 +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.Analytics.Management.Goals.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)------ Create a new goal.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.insert@.-module Network.Google.Resource.Analytics.Management.Goals.Insert-    (-    -- * REST Resource-      ManagementGoalsInsertResource--    -- * Creating a Request-    , managementGoalsInsert-    , ManagementGoalsInsert--    -- * Request Lenses-    , mgiWebPropertyId-    , mgiProFileId-    , mgiPayload-    , mgiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.goals.insert@ method which the--- 'ManagementGoalsInsert' request conforms to.-type ManagementGoalsInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "goals" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] Goal :> Post '[JSON] Goal---- | Create a new goal.------ /See:/ 'managementGoalsInsert' smart constructor.-data ManagementGoalsInsert =-  ManagementGoalsInsert'-    { _mgiWebPropertyId :: !Text-    , _mgiProFileId     :: !Text-    , _mgiPayload       :: !Goal-    , _mgiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementGoalsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mgiWebPropertyId'------ * 'mgiProFileId'------ * 'mgiPayload'------ * 'mgiAccountId'-managementGoalsInsert-    :: Text -- ^ 'mgiWebPropertyId'-    -> Text -- ^ 'mgiProFileId'-    -> Goal -- ^ 'mgiPayload'-    -> Text -- ^ 'mgiAccountId'-    -> ManagementGoalsInsert-managementGoalsInsert pMgiWebPropertyId_ pMgiProFileId_ pMgiPayload_ pMgiAccountId_ =-  ManagementGoalsInsert'-    { _mgiWebPropertyId = pMgiWebPropertyId_-    , _mgiProFileId = pMgiProFileId_-    , _mgiPayload = pMgiPayload_-    , _mgiAccountId = pMgiAccountId_-    }----- | Web property ID to create the goal for.-mgiWebPropertyId :: Lens' ManagementGoalsInsert Text-mgiWebPropertyId-  = lens _mgiWebPropertyId-      (\ s a -> s{_mgiWebPropertyId = a})---- | View (Profile) ID to create the goal for.-mgiProFileId :: Lens' ManagementGoalsInsert Text-mgiProFileId-  = lens _mgiProFileId (\ s a -> s{_mgiProFileId = a})---- | Multipart request metadata.-mgiPayload :: Lens' ManagementGoalsInsert Goal-mgiPayload-  = lens _mgiPayload (\ s a -> s{_mgiPayload = a})---- | Account ID to create the goal for.-mgiAccountId :: Lens' ManagementGoalsInsert Text-mgiAccountId-  = lens _mgiAccountId (\ s a -> s{_mgiAccountId = a})--instance GoogleRequest ManagementGoalsInsert where-        type Rs ManagementGoalsInsert = Goal-        type Scopes ManagementGoalsInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementGoalsInsert'{..}-          = go _mgiAccountId _mgiWebPropertyId _mgiProFileId-              (Just AltJSON)-              _mgiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementGoalsInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Goals/List.hs 
@@ -1,156 +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.Analytics.Management.Goals.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)------ Lists goals to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.list@.-module Network.Google.Resource.Analytics.Management.Goals.List-    (-    -- * REST Resource-      ManagementGoalsListResource--    -- * Creating a Request-    , managementGoalsList-    , ManagementGoalsList--    -- * Request Lenses-    , mglWebPropertyId-    , mglProFileId-    , mglAccountId-    , mglStartIndex-    , mglMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.goals.list@ method which the--- 'ManagementGoalsList' request conforms to.-type ManagementGoalsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "goals" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :> Get '[JSON] Goals---- | Lists goals to which the user has access.------ /See:/ 'managementGoalsList' smart constructor.-data ManagementGoalsList =-  ManagementGoalsList'-    { _mglWebPropertyId :: !Text-    , _mglProFileId     :: !Text-    , _mglAccountId     :: !Text-    , _mglStartIndex    :: !(Maybe (Textual Int32))-    , _mglMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementGoalsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mglWebPropertyId'------ * 'mglProFileId'------ * 'mglAccountId'------ * 'mglStartIndex'------ * 'mglMaxResults'-managementGoalsList-    :: Text -- ^ 'mglWebPropertyId'-    -> Text -- ^ 'mglProFileId'-    -> Text -- ^ 'mglAccountId'-    -> ManagementGoalsList-managementGoalsList pMglWebPropertyId_ pMglProFileId_ pMglAccountId_ =-  ManagementGoalsList'-    { _mglWebPropertyId = pMglWebPropertyId_-    , _mglProFileId = pMglProFileId_-    , _mglAccountId = pMglAccountId_-    , _mglStartIndex = Nothing-    , _mglMaxResults = Nothing-    }----- | Web property ID to retrieve goals for. Can either be a specific web--- property ID or \'~all\', which refers to all the web properties that--- user has access to.-mglWebPropertyId :: Lens' ManagementGoalsList Text-mglWebPropertyId-  = lens _mglWebPropertyId-      (\ s a -> s{_mglWebPropertyId = a})---- | View (Profile) ID to retrieve goals for. Can either be a specific view--- (profile) ID or \'~all\', which refers to all the views (profiles) that--- user has access to.-mglProFileId :: Lens' ManagementGoalsList Text-mglProFileId-  = lens _mglProFileId (\ s a -> s{_mglProFileId = a})---- | Account ID to retrieve goals for. Can either be a specific account ID or--- \'~all\', which refers to all the accounts that user has access to.-mglAccountId :: Lens' ManagementGoalsList Text-mglAccountId-  = lens _mglAccountId (\ s a -> s{_mglAccountId = a})---- | An index of the first goal to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mglStartIndex :: Lens' ManagementGoalsList (Maybe Int32)-mglStartIndex-  = lens _mglStartIndex-      (\ s a -> s{_mglStartIndex = a})-      . mapping _Coerce---- | The maximum number of goals to include in this response.-mglMaxResults :: Lens' ManagementGoalsList (Maybe Int32)-mglMaxResults-  = lens _mglMaxResults-      (\ s a -> s{_mglMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementGoalsList where-        type Rs ManagementGoalsList = Goals-        type Scopes ManagementGoalsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementGoalsList'{..}-          = go _mglAccountId _mglWebPropertyId _mglProFileId-              _mglStartIndex-              _mglMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementGoalsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs 
@@ -1,146 +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.Analytics.Management.Goals.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)------ Updates an existing goal. This method supports patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.patch@.-module Network.Google.Resource.Analytics.Management.Goals.Patch-    (-    -- * REST Resource-      ManagementGoalsPatchResource--    -- * Creating a Request-    , managementGoalsPatch-    , ManagementGoalsPatch--    -- * Request Lenses-    , mgpWebPropertyId-    , mgpGoalId-    , mgpProFileId-    , mgpPayload-    , mgpAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.goals.patch@ method which the--- 'ManagementGoalsPatch' request conforms to.-type ManagementGoalsPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "goals" :>-                         Capture "goalId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Goal :> Patch '[JSON] Goal---- | Updates an existing goal. This method supports patch semantics.------ /See:/ 'managementGoalsPatch' smart constructor.-data ManagementGoalsPatch =-  ManagementGoalsPatch'-    { _mgpWebPropertyId :: !Text-    , _mgpGoalId        :: !Text-    , _mgpProFileId     :: !Text-    , _mgpPayload       :: !Goal-    , _mgpAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementGoalsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mgpWebPropertyId'------ * 'mgpGoalId'------ * 'mgpProFileId'------ * 'mgpPayload'------ * 'mgpAccountId'-managementGoalsPatch-    :: Text -- ^ 'mgpWebPropertyId'-    -> Text -- ^ 'mgpGoalId'-    -> Text -- ^ 'mgpProFileId'-    -> Goal -- ^ 'mgpPayload'-    -> Text -- ^ 'mgpAccountId'-    -> ManagementGoalsPatch-managementGoalsPatch pMgpWebPropertyId_ pMgpGoalId_ pMgpProFileId_ pMgpPayload_ pMgpAccountId_ =-  ManagementGoalsPatch'-    { _mgpWebPropertyId = pMgpWebPropertyId_-    , _mgpGoalId = pMgpGoalId_-    , _mgpProFileId = pMgpProFileId_-    , _mgpPayload = pMgpPayload_-    , _mgpAccountId = pMgpAccountId_-    }----- | Web property ID to update the goal.-mgpWebPropertyId :: Lens' ManagementGoalsPatch Text-mgpWebPropertyId-  = lens _mgpWebPropertyId-      (\ s a -> s{_mgpWebPropertyId = a})---- | Index of the goal to be updated.-mgpGoalId :: Lens' ManagementGoalsPatch Text-mgpGoalId-  = lens _mgpGoalId (\ s a -> s{_mgpGoalId = a})---- | View (Profile) ID to update the goal.-mgpProFileId :: Lens' ManagementGoalsPatch Text-mgpProFileId-  = lens _mgpProFileId (\ s a -> s{_mgpProFileId = a})---- | Multipart request metadata.-mgpPayload :: Lens' ManagementGoalsPatch Goal-mgpPayload-  = lens _mgpPayload (\ s a -> s{_mgpPayload = a})---- | Account ID to update the goal.-mgpAccountId :: Lens' ManagementGoalsPatch Text-mgpAccountId-  = lens _mgpAccountId (\ s a -> s{_mgpAccountId = a})--instance GoogleRequest ManagementGoalsPatch where-        type Rs ManagementGoalsPatch = Goal-        type Scopes ManagementGoalsPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementGoalsPatch'{..}-          = go _mgpAccountId _mgpWebPropertyId _mgpProFileId-              _mgpGoalId-              (Just AltJSON)-              _mgpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementGoalsPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs 
@@ -1,146 +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.Analytics.Management.Goals.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)------ Updates an existing goal.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.goals.update@.-module Network.Google.Resource.Analytics.Management.Goals.Update-    (-    -- * REST Resource-      ManagementGoalsUpdateResource--    -- * Creating a Request-    , managementGoalsUpdate-    , ManagementGoalsUpdate--    -- * Request Lenses-    , mguWebPropertyId-    , mguGoalId-    , mguProFileId-    , mguPayload-    , mguAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.goals.update@ method which the--- 'ManagementGoalsUpdate' request conforms to.-type ManagementGoalsUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "goals" :>-                         Capture "goalId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Goal :> Put '[JSON] Goal---- | Updates an existing goal.------ /See:/ 'managementGoalsUpdate' smart constructor.-data ManagementGoalsUpdate =-  ManagementGoalsUpdate'-    { _mguWebPropertyId :: !Text-    , _mguGoalId        :: !Text-    , _mguProFileId     :: !Text-    , _mguPayload       :: !Goal-    , _mguAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementGoalsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mguWebPropertyId'------ * 'mguGoalId'------ * 'mguProFileId'------ * 'mguPayload'------ * 'mguAccountId'-managementGoalsUpdate-    :: Text -- ^ 'mguWebPropertyId'-    -> Text -- ^ 'mguGoalId'-    -> Text -- ^ 'mguProFileId'-    -> Goal -- ^ 'mguPayload'-    -> Text -- ^ 'mguAccountId'-    -> ManagementGoalsUpdate-managementGoalsUpdate pMguWebPropertyId_ pMguGoalId_ pMguProFileId_ pMguPayload_ pMguAccountId_ =-  ManagementGoalsUpdate'-    { _mguWebPropertyId = pMguWebPropertyId_-    , _mguGoalId = pMguGoalId_-    , _mguProFileId = pMguProFileId_-    , _mguPayload = pMguPayload_-    , _mguAccountId = pMguAccountId_-    }----- | Web property ID to update the goal.-mguWebPropertyId :: Lens' ManagementGoalsUpdate Text-mguWebPropertyId-  = lens _mguWebPropertyId-      (\ s a -> s{_mguWebPropertyId = a})---- | Index of the goal to be updated.-mguGoalId :: Lens' ManagementGoalsUpdate Text-mguGoalId-  = lens _mguGoalId (\ s a -> s{_mguGoalId = a})---- | View (Profile) ID to update the goal.-mguProFileId :: Lens' ManagementGoalsUpdate Text-mguProFileId-  = lens _mguProFileId (\ s a -> s{_mguProFileId = a})---- | Multipart request metadata.-mguPayload :: Lens' ManagementGoalsUpdate Goal-mguPayload-  = lens _mguPayload (\ s a -> s{_mguPayload = a})---- | Account ID to update the goal.-mguAccountId :: Lens' ManagementGoalsUpdate Text-mguAccountId-  = lens _mguAccountId (\ s a -> s{_mguAccountId = a})--instance GoogleRequest ManagementGoalsUpdate where-        type Rs ManagementGoalsUpdate = Goal-        type Scopes ManagementGoalsUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementGoalsUpdate'{..}-          = go _mguAccountId _mguWebPropertyId _mguProFileId-              _mguGoalId-              (Just AltJSON)-              _mguPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementGoalsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.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.Analytics.Management.ProFileFilterLinks.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 profile filter link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.delete@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Delete-    (-    -- * REST Resource-      ManagementProFileFilterLinksDeleteResource--    -- * Creating a Request-    , managementProFileFilterLinksDelete-    , ManagementProFileFilterLinksDelete--    -- * Request Lenses-    , mpffldWebPropertyId-    , mpffldProFileId-    , mpffldAccountId-    , mpffldLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.delete@ method which the--- 'ManagementProFileFilterLinksDelete' request conforms to.-type ManagementProFileFilterLinksDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete a profile filter link.------ /See:/ 'managementProFileFilterLinksDelete' smart constructor.-data ManagementProFileFilterLinksDelete =-  ManagementProFileFilterLinksDelete'-    { _mpffldWebPropertyId :: !Text-    , _mpffldProFileId     :: !Text-    , _mpffldAccountId     :: !Text-    , _mpffldLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpffldWebPropertyId'------ * 'mpffldProFileId'------ * 'mpffldAccountId'------ * 'mpffldLinkId'-managementProFileFilterLinksDelete-    :: Text -- ^ 'mpffldWebPropertyId'-    -> Text -- ^ 'mpffldProFileId'-    -> Text -- ^ 'mpffldAccountId'-    -> Text -- ^ 'mpffldLinkId'-    -> ManagementProFileFilterLinksDelete-managementProFileFilterLinksDelete pMpffldWebPropertyId_ pMpffldProFileId_ pMpffldAccountId_ pMpffldLinkId_ =-  ManagementProFileFilterLinksDelete'-    { _mpffldWebPropertyId = pMpffldWebPropertyId_-    , _mpffldProFileId = pMpffldProFileId_-    , _mpffldAccountId = pMpffldAccountId_-    , _mpffldLinkId = pMpffldLinkId_-    }----- | Web property Id to which the profile filter link belongs.-mpffldWebPropertyId :: Lens' ManagementProFileFilterLinksDelete Text-mpffldWebPropertyId-  = lens _mpffldWebPropertyId-      (\ s a -> s{_mpffldWebPropertyId = a})---- | Profile ID to which the filter link belongs.-mpffldProFileId :: Lens' ManagementProFileFilterLinksDelete Text-mpffldProFileId-  = lens _mpffldProFileId-      (\ s a -> s{_mpffldProFileId = a})---- | Account ID to which the profile filter link belongs.-mpffldAccountId :: Lens' ManagementProFileFilterLinksDelete Text-mpffldAccountId-  = lens _mpffldAccountId-      (\ s a -> s{_mpffldAccountId = a})---- | ID of the profile filter link to delete.-mpffldLinkId :: Lens' ManagementProFileFilterLinksDelete Text-mpffldLinkId-  = lens _mpffldLinkId (\ s a -> s{_mpffldLinkId = a})--instance GoogleRequest-           ManagementProFileFilterLinksDelete-         where-        type Rs ManagementProFileFilterLinksDelete = ()-        type Scopes ManagementProFileFilterLinksDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFileFilterLinksDelete'{..}-          = go _mpffldAccountId _mpffldWebPropertyId-              _mpffldProFileId-              _mpffldLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs 
@@ -1,142 +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.Analytics.Management.ProFileFilterLinks.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)------ Returns a single profile filter link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.get@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Get-    (-    -- * REST Resource-      ManagementProFileFilterLinksGetResource--    -- * Creating a Request-    , managementProFileFilterLinksGet-    , ManagementProFileFilterLinksGet--    -- * Request Lenses-    , mpfflgWebPropertyId-    , mpfflgProFileId-    , mpfflgAccountId-    , mpfflgLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.get@ method which the--- 'ManagementProFileFilterLinksGet' request conforms to.-type ManagementProFileFilterLinksGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] ProFileFilterLink---- | Returns a single profile filter link.------ /See:/ 'managementProFileFilterLinksGet' smart constructor.-data ManagementProFileFilterLinksGet =-  ManagementProFileFilterLinksGet'-    { _mpfflgWebPropertyId :: !Text-    , _mpfflgProFileId     :: !Text-    , _mpfflgAccountId     :: !Text-    , _mpfflgLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfflgWebPropertyId'------ * 'mpfflgProFileId'------ * 'mpfflgAccountId'------ * 'mpfflgLinkId'-managementProFileFilterLinksGet-    :: Text -- ^ 'mpfflgWebPropertyId'-    -> Text -- ^ 'mpfflgProFileId'-    -> Text -- ^ 'mpfflgAccountId'-    -> Text -- ^ 'mpfflgLinkId'-    -> ManagementProFileFilterLinksGet-managementProFileFilterLinksGet pMpfflgWebPropertyId_ pMpfflgProFileId_ pMpfflgAccountId_ pMpfflgLinkId_ =-  ManagementProFileFilterLinksGet'-    { _mpfflgWebPropertyId = pMpfflgWebPropertyId_-    , _mpfflgProFileId = pMpfflgProFileId_-    , _mpfflgAccountId = pMpfflgAccountId_-    , _mpfflgLinkId = pMpfflgLinkId_-    }----- | Web property Id to retrieve profile filter link for.-mpfflgWebPropertyId :: Lens' ManagementProFileFilterLinksGet Text-mpfflgWebPropertyId-  = lens _mpfflgWebPropertyId-      (\ s a -> s{_mpfflgWebPropertyId = a})---- | Profile ID to retrieve filter link for.-mpfflgProFileId :: Lens' ManagementProFileFilterLinksGet Text-mpfflgProFileId-  = lens _mpfflgProFileId-      (\ s a -> s{_mpfflgProFileId = a})---- | Account ID to retrieve profile filter link for.-mpfflgAccountId :: Lens' ManagementProFileFilterLinksGet Text-mpfflgAccountId-  = lens _mpfflgAccountId-      (\ s a -> s{_mpfflgAccountId = a})---- | ID of the profile filter link.-mpfflgLinkId :: Lens' ManagementProFileFilterLinksGet Text-mpfflgLinkId-  = lens _mpfflgLinkId (\ s a -> s{_mpfflgLinkId = a})--instance GoogleRequest-           ManagementProFileFilterLinksGet-         where-        type Rs ManagementProFileFilterLinksGet =-             ProFileFilterLink-        type Scopes ManagementProFileFilterLinksGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementProFileFilterLinksGet'{..}-          = go _mpfflgAccountId _mpfflgWebPropertyId-              _mpfflgProFileId-              _mpfflgLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs 
@@ -1,142 +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.Analytics.Management.ProFileFilterLinks.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)------ Create a new profile filter link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.insert@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert-    (-    -- * REST Resource-      ManagementProFileFilterLinksInsertResource--    -- * Creating a Request-    , managementProFileFilterLinksInsert-    , ManagementProFileFilterLinksInsert--    -- * Request Lenses-    , mpffliWebPropertyId-    , mpffliProFileId-    , mpffliPayload-    , mpffliAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.insert@ method which the--- 'ManagementProFileFilterLinksInsert' request conforms to.-type ManagementProFileFilterLinksInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] ProFileFilterLink :>-                             Post '[JSON] ProFileFilterLink---- | Create a new profile filter link.------ /See:/ 'managementProFileFilterLinksInsert' smart constructor.-data ManagementProFileFilterLinksInsert =-  ManagementProFileFilterLinksInsert'-    { _mpffliWebPropertyId :: !Text-    , _mpffliProFileId     :: !Text-    , _mpffliPayload       :: !ProFileFilterLink-    , _mpffliAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpffliWebPropertyId'------ * 'mpffliProFileId'------ * 'mpffliPayload'------ * 'mpffliAccountId'-managementProFileFilterLinksInsert-    :: Text -- ^ 'mpffliWebPropertyId'-    -> Text -- ^ 'mpffliProFileId'-    -> ProFileFilterLink -- ^ 'mpffliPayload'-    -> Text -- ^ 'mpffliAccountId'-    -> ManagementProFileFilterLinksInsert-managementProFileFilterLinksInsert pMpffliWebPropertyId_ pMpffliProFileId_ pMpffliPayload_ pMpffliAccountId_ =-  ManagementProFileFilterLinksInsert'-    { _mpffliWebPropertyId = pMpffliWebPropertyId_-    , _mpffliProFileId = pMpffliProFileId_-    , _mpffliPayload = pMpffliPayload_-    , _mpffliAccountId = pMpffliAccountId_-    }----- | Web property Id to create profile filter link for.-mpffliWebPropertyId :: Lens' ManagementProFileFilterLinksInsert Text-mpffliWebPropertyId-  = lens _mpffliWebPropertyId-      (\ s a -> s{_mpffliWebPropertyId = a})---- | Profile ID to create filter link for.-mpffliProFileId :: Lens' ManagementProFileFilterLinksInsert Text-mpffliProFileId-  = lens _mpffliProFileId-      (\ s a -> s{_mpffliProFileId = a})---- | Multipart request metadata.-mpffliPayload :: Lens' ManagementProFileFilterLinksInsert ProFileFilterLink-mpffliPayload-  = lens _mpffliPayload-      (\ s a -> s{_mpffliPayload = a})---- | Account ID to create profile filter link for.-mpffliAccountId :: Lens' ManagementProFileFilterLinksInsert Text-mpffliAccountId-  = lens _mpffliAccountId-      (\ s a -> s{_mpffliAccountId = a})--instance GoogleRequest-           ManagementProFileFilterLinksInsert-         where-        type Rs ManagementProFileFilterLinksInsert =-             ProFileFilterLink-        type Scopes ManagementProFileFilterLinksInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFileFilterLinksInsert'{..}-          = go _mpffliAccountId _mpffliWebPropertyId-              _mpffliProFileId-              (Just AltJSON)-              _mpffliPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs 
@@ -1,162 +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.Analytics.Management.ProFileFilterLinks.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)------ Lists all profile filter links for a profile.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.list@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.List-    (-    -- * REST Resource-      ManagementProFileFilterLinksListResource--    -- * Creating a Request-    , managementProFileFilterLinksList-    , ManagementProFileFilterLinksList--    -- * Request Lenses-    , mpffllWebPropertyId-    , mpffllProFileId-    , mpffllAccountId-    , mpffllStartIndex-    , mpffllMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.list@ method which the--- 'ManagementProFileFilterLinksList' request conforms to.-type ManagementProFileFilterLinksListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :>-                               Get '[JSON] ProFileFilterLinks---- | Lists all profile filter links for a profile.------ /See:/ 'managementProFileFilterLinksList' smart constructor.-data ManagementProFileFilterLinksList =-  ManagementProFileFilterLinksList'-    { _mpffllWebPropertyId :: !Text-    , _mpffllProFileId     :: !Text-    , _mpffllAccountId     :: !Text-    , _mpffllStartIndex    :: !(Maybe (Textual Int32))-    , _mpffllMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpffllWebPropertyId'------ * 'mpffllProFileId'------ * 'mpffllAccountId'------ * 'mpffllStartIndex'------ * 'mpffllMaxResults'-managementProFileFilterLinksList-    :: Text -- ^ 'mpffllWebPropertyId'-    -> Text -- ^ 'mpffllProFileId'-    -> Text -- ^ 'mpffllAccountId'-    -> ManagementProFileFilterLinksList-managementProFileFilterLinksList pMpffllWebPropertyId_ pMpffllProFileId_ pMpffllAccountId_ =-  ManagementProFileFilterLinksList'-    { _mpffllWebPropertyId = pMpffllWebPropertyId_-    , _mpffllProFileId = pMpffllProFileId_-    , _mpffllAccountId = pMpffllAccountId_-    , _mpffllStartIndex = Nothing-    , _mpffllMaxResults = Nothing-    }----- | Web property Id for profile filter links for. Can either be a specific--- web property ID or \'~all\', which refers to all the web properties that--- user has access to.-mpffllWebPropertyId :: Lens' ManagementProFileFilterLinksList Text-mpffllWebPropertyId-  = lens _mpffllWebPropertyId-      (\ s a -> s{_mpffllWebPropertyId = a})---- | Profile ID to retrieve filter links for. Can either be a specific--- profile ID or \'~all\', which refers to all the profiles that user has--- access to.-mpffllProFileId :: Lens' ManagementProFileFilterLinksList Text-mpffllProFileId-  = lens _mpffllProFileId-      (\ s a -> s{_mpffllProFileId = a})---- | Account ID to retrieve profile filter links for.-mpffllAccountId :: Lens' ManagementProFileFilterLinksList Text-mpffllAccountId-  = lens _mpffllAccountId-      (\ s a -> s{_mpffllAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mpffllStartIndex :: Lens' ManagementProFileFilterLinksList (Maybe Int32)-mpffllStartIndex-  = lens _mpffllStartIndex-      (\ s a -> s{_mpffllStartIndex = a})-      . mapping _Coerce---- | The maximum number of profile filter links to include in this response.-mpffllMaxResults :: Lens' ManagementProFileFilterLinksList (Maybe Int32)-mpffllMaxResults-  = lens _mpffllMaxResults-      (\ s a -> s{_mpffllMaxResults = a})-      . mapping _Coerce--instance GoogleRequest-           ManagementProFileFilterLinksList-         where-        type Rs ManagementProFileFilterLinksList =-             ProFileFilterLinks-        type Scopes ManagementProFileFilterLinksList =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementProFileFilterLinksList'{..}-          = go _mpffllAccountId _mpffllWebPropertyId-              _mpffllProFileId-              _mpffllStartIndex-              _mpffllMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs 
@@ -1,157 +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.Analytics.Management.ProFileFilterLinks.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 an existing profile filter link. This method supports patch--- semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.patch@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Patch-    (-    -- * REST Resource-      ManagementProFileFilterLinksPatchResource--    -- * Creating a Request-    , managementProFileFilterLinksPatch-    , ManagementProFileFilterLinksPatch--    -- * Request Lenses-    , mpfflpWebPropertyId-    , mpfflpProFileId-    , mpfflpPayload-    , mpfflpAccountId-    , mpfflpLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.patch@ method which the--- 'ManagementProFileFilterLinksPatch' request conforms to.-type ManagementProFileFilterLinksPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] ProFileFilterLink :>-                               Patch '[JSON] ProFileFilterLink---- | Update an existing profile filter link. This method supports patch--- semantics.------ /See:/ 'managementProFileFilterLinksPatch' smart constructor.-data ManagementProFileFilterLinksPatch =-  ManagementProFileFilterLinksPatch'-    { _mpfflpWebPropertyId :: !Text-    , _mpfflpProFileId     :: !Text-    , _mpfflpPayload       :: !ProFileFilterLink-    , _mpfflpAccountId     :: !Text-    , _mpfflpLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfflpWebPropertyId'------ * 'mpfflpProFileId'------ * 'mpfflpPayload'------ * 'mpfflpAccountId'------ * 'mpfflpLinkId'-managementProFileFilterLinksPatch-    :: Text -- ^ 'mpfflpWebPropertyId'-    -> Text -- ^ 'mpfflpProFileId'-    -> ProFileFilterLink -- ^ 'mpfflpPayload'-    -> Text -- ^ 'mpfflpAccountId'-    -> Text -- ^ 'mpfflpLinkId'-    -> ManagementProFileFilterLinksPatch-managementProFileFilterLinksPatch pMpfflpWebPropertyId_ pMpfflpProFileId_ pMpfflpPayload_ pMpfflpAccountId_ pMpfflpLinkId_ =-  ManagementProFileFilterLinksPatch'-    { _mpfflpWebPropertyId = pMpfflpWebPropertyId_-    , _mpfflpProFileId = pMpfflpProFileId_-    , _mpfflpPayload = pMpfflpPayload_-    , _mpfflpAccountId = pMpfflpAccountId_-    , _mpfflpLinkId = pMpfflpLinkId_-    }----- | Web property Id to which profile filter link belongs-mpfflpWebPropertyId :: Lens' ManagementProFileFilterLinksPatch Text-mpfflpWebPropertyId-  = lens _mpfflpWebPropertyId-      (\ s a -> s{_mpfflpWebPropertyId = a})---- | Profile ID to which filter link belongs-mpfflpProFileId :: Lens' ManagementProFileFilterLinksPatch Text-mpfflpProFileId-  = lens _mpfflpProFileId-      (\ s a -> s{_mpfflpProFileId = a})---- | Multipart request metadata.-mpfflpPayload :: Lens' ManagementProFileFilterLinksPatch ProFileFilterLink-mpfflpPayload-  = lens _mpfflpPayload-      (\ s a -> s{_mpfflpPayload = a})---- | Account ID to which profile filter link belongs.-mpfflpAccountId :: Lens' ManagementProFileFilterLinksPatch Text-mpfflpAccountId-  = lens _mpfflpAccountId-      (\ s a -> s{_mpfflpAccountId = a})---- | ID of the profile filter link to be updated.-mpfflpLinkId :: Lens' ManagementProFileFilterLinksPatch Text-mpfflpLinkId-  = lens _mpfflpLinkId (\ s a -> s{_mpfflpLinkId = a})--instance GoogleRequest-           ManagementProFileFilterLinksPatch-         where-        type Rs ManagementProFileFilterLinksPatch =-             ProFileFilterLink-        type Scopes ManagementProFileFilterLinksPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFileFilterLinksPatch'{..}-          = go _mpfflpAccountId _mpfflpWebPropertyId-              _mpfflpProFileId-              _mpfflpLinkId-              (Just AltJSON)-              _mpfflpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs 
@@ -1,155 +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.Analytics.Management.ProFileFilterLinks.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 an existing profile filter link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileFilterLinks.update@.-module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Update-    (-    -- * REST Resource-      ManagementProFileFilterLinksUpdateResource--    -- * Creating a Request-    , managementProFileFilterLinksUpdate-    , ManagementProFileFilterLinksUpdate--    -- * Request Lenses-    , mpffluWebPropertyId-    , mpffluProFileId-    , mpffluPayload-    , mpffluAccountId-    , mpffluLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileFilterLinks.update@ method which the--- 'ManagementProFileFilterLinksUpdate' request conforms to.-type ManagementProFileFilterLinksUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "profileFilterLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] ProFileFilterLink :>-                               Put '[JSON] ProFileFilterLink---- | Update an existing profile filter link.------ /See:/ 'managementProFileFilterLinksUpdate' smart constructor.-data ManagementProFileFilterLinksUpdate =-  ManagementProFileFilterLinksUpdate'-    { _mpffluWebPropertyId :: !Text-    , _mpffluProFileId     :: !Text-    , _mpffluPayload       :: !ProFileFilterLink-    , _mpffluAccountId     :: !Text-    , _mpffluLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileFilterLinksUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpffluWebPropertyId'------ * 'mpffluProFileId'------ * 'mpffluPayload'------ * 'mpffluAccountId'------ * 'mpffluLinkId'-managementProFileFilterLinksUpdate-    :: Text -- ^ 'mpffluWebPropertyId'-    -> Text -- ^ 'mpffluProFileId'-    -> ProFileFilterLink -- ^ 'mpffluPayload'-    -> Text -- ^ 'mpffluAccountId'-    -> Text -- ^ 'mpffluLinkId'-    -> ManagementProFileFilterLinksUpdate-managementProFileFilterLinksUpdate pMpffluWebPropertyId_ pMpffluProFileId_ pMpffluPayload_ pMpffluAccountId_ pMpffluLinkId_ =-  ManagementProFileFilterLinksUpdate'-    { _mpffluWebPropertyId = pMpffluWebPropertyId_-    , _mpffluProFileId = pMpffluProFileId_-    , _mpffluPayload = pMpffluPayload_-    , _mpffluAccountId = pMpffluAccountId_-    , _mpffluLinkId = pMpffluLinkId_-    }----- | Web property Id to which profile filter link belongs-mpffluWebPropertyId :: Lens' ManagementProFileFilterLinksUpdate Text-mpffluWebPropertyId-  = lens _mpffluWebPropertyId-      (\ s a -> s{_mpffluWebPropertyId = a})---- | Profile ID to which filter link belongs-mpffluProFileId :: Lens' ManagementProFileFilterLinksUpdate Text-mpffluProFileId-  = lens _mpffluProFileId-      (\ s a -> s{_mpffluProFileId = a})---- | Multipart request metadata.-mpffluPayload :: Lens' ManagementProFileFilterLinksUpdate ProFileFilterLink-mpffluPayload-  = lens _mpffluPayload-      (\ s a -> s{_mpffluPayload = a})---- | Account ID to which profile filter link belongs.-mpffluAccountId :: Lens' ManagementProFileFilterLinksUpdate Text-mpffluAccountId-  = lens _mpffluAccountId-      (\ s a -> s{_mpffluAccountId = a})---- | ID of the profile filter link to be updated.-mpffluLinkId :: Lens' ManagementProFileFilterLinksUpdate Text-mpffluLinkId-  = lens _mpffluLinkId (\ s a -> s{_mpffluLinkId = a})--instance GoogleRequest-           ManagementProFileFilterLinksUpdate-         where-        type Rs ManagementProFileFilterLinksUpdate =-             ProFileFilterLink-        type Scopes ManagementProFileFilterLinksUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFileFilterLinksUpdate'{..}-          = go _mpffluAccountId _mpffluWebPropertyId-              _mpffluProFileId-              _mpffluLinkId-              (Just AltJSON)-              _mpffluPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileFilterLinksUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.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.Analytics.Management.ProFileUserLinks.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)------ Removes a user from the given view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.delete@.-module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Delete-    (-    -- * REST Resource-      ManagementProFileUserLinksDeleteResource--    -- * Creating a Request-    , managementProFileUserLinksDelete-    , ManagementProFileUserLinksDelete--    -- * Request Lenses-    , mpfuldWebPropertyId-    , mpfuldProFileId-    , mpfuldAccountId-    , mpfuldLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileUserLinks.delete@ method which the--- 'ManagementProFileUserLinksDelete' request conforms to.-type ManagementProFileUserLinksDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "entityUserLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Removes a user from the given view (profile).------ /See:/ 'managementProFileUserLinksDelete' smart constructor.-data ManagementProFileUserLinksDelete =-  ManagementProFileUserLinksDelete'-    { _mpfuldWebPropertyId :: !Text-    , _mpfuldProFileId     :: !Text-    , _mpfuldAccountId     :: !Text-    , _mpfuldLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileUserLinksDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfuldWebPropertyId'------ * 'mpfuldProFileId'------ * 'mpfuldAccountId'------ * 'mpfuldLinkId'-managementProFileUserLinksDelete-    :: Text -- ^ 'mpfuldWebPropertyId'-    -> Text -- ^ 'mpfuldProFileId'-    -> Text -- ^ 'mpfuldAccountId'-    -> Text -- ^ 'mpfuldLinkId'-    -> ManagementProFileUserLinksDelete-managementProFileUserLinksDelete pMpfuldWebPropertyId_ pMpfuldProFileId_ pMpfuldAccountId_ pMpfuldLinkId_ =-  ManagementProFileUserLinksDelete'-    { _mpfuldWebPropertyId = pMpfuldWebPropertyId_-    , _mpfuldProFileId = pMpfuldProFileId_-    , _mpfuldAccountId = pMpfuldAccountId_-    , _mpfuldLinkId = pMpfuldLinkId_-    }----- | Web Property ID to delete the user link for.-mpfuldWebPropertyId :: Lens' ManagementProFileUserLinksDelete Text-mpfuldWebPropertyId-  = lens _mpfuldWebPropertyId-      (\ s a -> s{_mpfuldWebPropertyId = a})---- | View (Profile) ID to delete the user link for.-mpfuldProFileId :: Lens' ManagementProFileUserLinksDelete Text-mpfuldProFileId-  = lens _mpfuldProFileId-      (\ s a -> s{_mpfuldProFileId = a})---- | Account ID to delete the user link for.-mpfuldAccountId :: Lens' ManagementProFileUserLinksDelete Text-mpfuldAccountId-  = lens _mpfuldAccountId-      (\ s a -> s{_mpfuldAccountId = a})---- | Link ID to delete the user link for.-mpfuldLinkId :: Lens' ManagementProFileUserLinksDelete Text-mpfuldLinkId-  = lens _mpfuldLinkId (\ s a -> s{_mpfuldLinkId = a})--instance GoogleRequest-           ManagementProFileUserLinksDelete-         where-        type Rs ManagementProFileUserLinksDelete = ()-        type Scopes ManagementProFileUserLinksDelete =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementProFileUserLinksDelete'{..}-          = go _mpfuldAccountId _mpfuldWebPropertyId-              _mpfuldProFileId-              _mpfuldLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileUserLinksDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs 
@@ -1,142 +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.Analytics.Management.ProFileUserLinks.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)------ Adds a new user to the given view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.insert@.-module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert-    (-    -- * REST Resource-      ManagementProFileUserLinksInsertResource--    -- * Creating a Request-    , managementProFileUserLinksInsert-    , ManagementProFileUserLinksInsert--    -- * Request Lenses-    , mpfuliWebPropertyId-    , mpfuliProFileId-    , mpfuliPayload-    , mpfuliAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileUserLinks.insert@ method which the--- 'ManagementProFileUserLinksInsert' request conforms to.-type ManagementProFileUserLinksInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "entityUserLinks" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] EntityUserLink :>-                             Post '[JSON] EntityUserLink---- | Adds a new user to the given view (profile).------ /See:/ 'managementProFileUserLinksInsert' smart constructor.-data ManagementProFileUserLinksInsert =-  ManagementProFileUserLinksInsert'-    { _mpfuliWebPropertyId :: !Text-    , _mpfuliProFileId     :: !Text-    , _mpfuliPayload       :: !EntityUserLink-    , _mpfuliAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileUserLinksInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfuliWebPropertyId'------ * 'mpfuliProFileId'------ * 'mpfuliPayload'------ * 'mpfuliAccountId'-managementProFileUserLinksInsert-    :: Text -- ^ 'mpfuliWebPropertyId'-    -> Text -- ^ 'mpfuliProFileId'-    -> EntityUserLink -- ^ 'mpfuliPayload'-    -> Text -- ^ 'mpfuliAccountId'-    -> ManagementProFileUserLinksInsert-managementProFileUserLinksInsert pMpfuliWebPropertyId_ pMpfuliProFileId_ pMpfuliPayload_ pMpfuliAccountId_ =-  ManagementProFileUserLinksInsert'-    { _mpfuliWebPropertyId = pMpfuliWebPropertyId_-    , _mpfuliProFileId = pMpfuliProFileId_-    , _mpfuliPayload = pMpfuliPayload_-    , _mpfuliAccountId = pMpfuliAccountId_-    }----- | Web Property ID to create the user link for.-mpfuliWebPropertyId :: Lens' ManagementProFileUserLinksInsert Text-mpfuliWebPropertyId-  = lens _mpfuliWebPropertyId-      (\ s a -> s{_mpfuliWebPropertyId = a})---- | View (Profile) ID to create the user link for.-mpfuliProFileId :: Lens' ManagementProFileUserLinksInsert Text-mpfuliProFileId-  = lens _mpfuliProFileId-      (\ s a -> s{_mpfuliProFileId = a})---- | Multipart request metadata.-mpfuliPayload :: Lens' ManagementProFileUserLinksInsert EntityUserLink-mpfuliPayload-  = lens _mpfuliPayload-      (\ s a -> s{_mpfuliPayload = a})---- | Account ID to create the user link for.-mpfuliAccountId :: Lens' ManagementProFileUserLinksInsert Text-mpfuliAccountId-  = lens _mpfuliAccountId-      (\ s a -> s{_mpfuliAccountId = a})--instance GoogleRequest-           ManagementProFileUserLinksInsert-         where-        type Rs ManagementProFileUserLinksInsert =-             EntityUserLink-        type Scopes ManagementProFileUserLinksInsert =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementProFileUserLinksInsert'{..}-          = go _mpfuliAccountId _mpfuliWebPropertyId-              _mpfuliProFileId-              (Just AltJSON)-              _mpfuliPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileUserLinksInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs 
@@ -1,161 +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.Analytics.Management.ProFileUserLinks.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)------ Lists profile-user links for a given view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.list@.-module Network.Google.Resource.Analytics.Management.ProFileUserLinks.List-    (-    -- * REST Resource-      ManagementProFileUserLinksListResource--    -- * Creating a Request-    , managementProFileUserLinksList-    , ManagementProFileUserLinksList--    -- * Request Lenses-    , mpfullWebPropertyId-    , mpfullProFileId-    , mpfullAccountId-    , mpfullStartIndex-    , mpfullMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileUserLinks.list@ method which the--- 'ManagementProFileUserLinksList' request conforms to.-type ManagementProFileUserLinksListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "entityUserLinks" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :>-                               Get '[JSON] EntityUserLinks---- | Lists profile-user links for a given view (profile).------ /See:/ 'managementProFileUserLinksList' smart constructor.-data ManagementProFileUserLinksList =-  ManagementProFileUserLinksList'-    { _mpfullWebPropertyId :: !Text-    , _mpfullProFileId     :: !Text-    , _mpfullAccountId     :: !Text-    , _mpfullStartIndex    :: !(Maybe (Textual Int32))-    , _mpfullMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileUserLinksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfullWebPropertyId'------ * 'mpfullProFileId'------ * 'mpfullAccountId'------ * 'mpfullStartIndex'------ * 'mpfullMaxResults'-managementProFileUserLinksList-    :: Text -- ^ 'mpfullWebPropertyId'-    -> Text -- ^ 'mpfullProFileId'-    -> Text -- ^ 'mpfullAccountId'-    -> ManagementProFileUserLinksList-managementProFileUserLinksList pMpfullWebPropertyId_ pMpfullProFileId_ pMpfullAccountId_ =-  ManagementProFileUserLinksList'-    { _mpfullWebPropertyId = pMpfullWebPropertyId_-    , _mpfullProFileId = pMpfullProFileId_-    , _mpfullAccountId = pMpfullAccountId_-    , _mpfullStartIndex = Nothing-    , _mpfullMaxResults = Nothing-    }----- | Web Property ID which the given view (profile) belongs to. Can either be--- a specific web property ID or \'~all\', which refers to all the web--- properties that user has access to.-mpfullWebPropertyId :: Lens' ManagementProFileUserLinksList Text-mpfullWebPropertyId-  = lens _mpfullWebPropertyId-      (\ s a -> s{_mpfullWebPropertyId = a})---- | View (Profile) ID to retrieve the profile-user links for. Can either be--- a specific profile ID or \'~all\', which refers to all the profiles that--- user has access to.-mpfullProFileId :: Lens' ManagementProFileUserLinksList Text-mpfullProFileId-  = lens _mpfullProFileId-      (\ s a -> s{_mpfullProFileId = a})---- | Account ID which the given view (profile) belongs to.-mpfullAccountId :: Lens' ManagementProFileUserLinksList Text-mpfullAccountId-  = lens _mpfullAccountId-      (\ s a -> s{_mpfullAccountId = a})---- | An index of the first profile-user link to retrieve. Use this parameter--- as a pagination mechanism along with the max-results parameter.-mpfullStartIndex :: Lens' ManagementProFileUserLinksList (Maybe Int32)-mpfullStartIndex-  = lens _mpfullStartIndex-      (\ s a -> s{_mpfullStartIndex = a})-      . mapping _Coerce---- | The maximum number of profile-user links to include in this response.-mpfullMaxResults :: Lens' ManagementProFileUserLinksList (Maybe Int32)-mpfullMaxResults-  = lens _mpfullMaxResults-      (\ s a -> s{_mpfullMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementProFileUserLinksList-         where-        type Rs ManagementProFileUserLinksList =-             EntityUserLinks-        type Scopes ManagementProFileUserLinksList =-             '["https://www.googleapis.com/auth/analytics.manage.users",-               "https://www.googleapis.com/auth/analytics.manage.users.readonly"]-        requestClient ManagementProFileUserLinksList'{..}-          = go _mpfullAccountId _mpfullWebPropertyId-              _mpfullProFileId-              _mpfullStartIndex-              _mpfullMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileUserLinksListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs 
@@ -1,155 +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.Analytics.Management.ProFileUserLinks.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)------ Updates permissions for an existing user on the given view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profileUserLinks.update@.-module Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update-    (-    -- * REST Resource-      ManagementProFileUserLinksUpdateResource--    -- * Creating a Request-    , managementProFileUserLinksUpdate-    , ManagementProFileUserLinksUpdate--    -- * Request Lenses-    , mpfuluWebPropertyId-    , mpfuluProFileId-    , mpfuluPayload-    , mpfuluAccountId-    , mpfuluLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profileUserLinks.update@ method which the--- 'ManagementProFileUserLinksUpdate' request conforms to.-type ManagementProFileUserLinksUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "entityUserLinks" :>-                         Capture "linkId" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] EntityUserLink :>-                               Put '[JSON] EntityUserLink---- | Updates permissions for an existing user on the given view (profile).------ /See:/ 'managementProFileUserLinksUpdate' smart constructor.-data ManagementProFileUserLinksUpdate =-  ManagementProFileUserLinksUpdate'-    { _mpfuluWebPropertyId :: !Text-    , _mpfuluProFileId     :: !Text-    , _mpfuluPayload       :: !EntityUserLink-    , _mpfuluAccountId     :: !Text-    , _mpfuluLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFileUserLinksUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfuluWebPropertyId'------ * 'mpfuluProFileId'------ * 'mpfuluPayload'------ * 'mpfuluAccountId'------ * 'mpfuluLinkId'-managementProFileUserLinksUpdate-    :: Text -- ^ 'mpfuluWebPropertyId'-    -> Text -- ^ 'mpfuluProFileId'-    -> EntityUserLink -- ^ 'mpfuluPayload'-    -> Text -- ^ 'mpfuluAccountId'-    -> Text -- ^ 'mpfuluLinkId'-    -> ManagementProFileUserLinksUpdate-managementProFileUserLinksUpdate pMpfuluWebPropertyId_ pMpfuluProFileId_ pMpfuluPayload_ pMpfuluAccountId_ pMpfuluLinkId_ =-  ManagementProFileUserLinksUpdate'-    { _mpfuluWebPropertyId = pMpfuluWebPropertyId_-    , _mpfuluProFileId = pMpfuluProFileId_-    , _mpfuluPayload = pMpfuluPayload_-    , _mpfuluAccountId = pMpfuluAccountId_-    , _mpfuluLinkId = pMpfuluLinkId_-    }----- | Web Property ID to update the user link for.-mpfuluWebPropertyId :: Lens' ManagementProFileUserLinksUpdate Text-mpfuluWebPropertyId-  = lens _mpfuluWebPropertyId-      (\ s a -> s{_mpfuluWebPropertyId = a})---- | View (Profile ID) to update the user link for.-mpfuluProFileId :: Lens' ManagementProFileUserLinksUpdate Text-mpfuluProFileId-  = lens _mpfuluProFileId-      (\ s a -> s{_mpfuluProFileId = a})---- | Multipart request metadata.-mpfuluPayload :: Lens' ManagementProFileUserLinksUpdate EntityUserLink-mpfuluPayload-  = lens _mpfuluPayload-      (\ s a -> s{_mpfuluPayload = a})---- | Account ID to update the user link for.-mpfuluAccountId :: Lens' ManagementProFileUserLinksUpdate Text-mpfuluAccountId-  = lens _mpfuluAccountId-      (\ s a -> s{_mpfuluAccountId = a})---- | Link ID to update the user link for.-mpfuluLinkId :: Lens' ManagementProFileUserLinksUpdate Text-mpfuluLinkId-  = lens _mpfuluLinkId (\ s a -> s{_mpfuluLinkId = a})--instance GoogleRequest-           ManagementProFileUserLinksUpdate-         where-        type Rs ManagementProFileUserLinksUpdate =-             EntityUserLink-        type Scopes ManagementProFileUserLinksUpdate =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient ManagementProFileUserLinksUpdate'{..}-          = go _mpfuluAccountId _mpfuluWebPropertyId-              _mpfuluProFileId-              _mpfuluLinkId-              (Just AltJSON)-              _mpfuluPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementProFileUserLinksUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/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.Analytics.Management.ProFiles.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)------ Deletes a view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.delete@.-module Network.Google.Resource.Analytics.Management.ProFiles.Delete-    (-    -- * REST Resource-      ManagementProFilesDeleteResource--    -- * Creating a Request-    , managementProFilesDelete-    , ManagementProFilesDelete--    -- * Request Lenses-    , mpfdWebPropertyId-    , mpfdProFileId-    , mpfdAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.delete@ method which the--- 'ManagementProFilesDelete' request conforms to.-type ManagementProFilesDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a view (profile).------ /See:/ 'managementProFilesDelete' smart constructor.-data ManagementProFilesDelete =-  ManagementProFilesDelete'-    { _mpfdWebPropertyId :: !Text-    , _mpfdProFileId     :: !Text-    , _mpfdAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfdWebPropertyId'------ * 'mpfdProFileId'------ * 'mpfdAccountId'-managementProFilesDelete-    :: Text -- ^ 'mpfdWebPropertyId'-    -> Text -- ^ 'mpfdProFileId'-    -> Text -- ^ 'mpfdAccountId'-    -> ManagementProFilesDelete-managementProFilesDelete pMpfdWebPropertyId_ pMpfdProFileId_ pMpfdAccountId_ =-  ManagementProFilesDelete'-    { _mpfdWebPropertyId = pMpfdWebPropertyId_-    , _mpfdProFileId = pMpfdProFileId_-    , _mpfdAccountId = pMpfdAccountId_-    }----- | Web property ID to delete the view (profile) for.-mpfdWebPropertyId :: Lens' ManagementProFilesDelete Text-mpfdWebPropertyId-  = lens _mpfdWebPropertyId-      (\ s a -> s{_mpfdWebPropertyId = a})---- | ID of the view (profile) to be deleted.-mpfdProFileId :: Lens' ManagementProFilesDelete Text-mpfdProFileId-  = lens _mpfdProFileId-      (\ s a -> s{_mpfdProFileId = a})---- | Account ID to delete the view (profile) for.-mpfdAccountId :: Lens' ManagementProFilesDelete Text-mpfdAccountId-  = lens _mpfdAccountId-      (\ s a -> s{_mpfdAccountId = a})--instance GoogleRequest ManagementProFilesDelete where-        type Rs ManagementProFilesDelete = ()-        type Scopes ManagementProFilesDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFilesDelete'{..}-          = go _mpfdAccountId _mpfdWebPropertyId _mpfdProFileId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.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.Analytics.Management.ProFiles.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)------ Gets a view (profile) to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.get@.-module Network.Google.Resource.Analytics.Management.ProFiles.Get-    (-    -- * REST Resource-      ManagementProFilesGetResource--    -- * Creating a Request-    , managementProFilesGet-    , ManagementProFilesGet--    -- * Request Lenses-    , mpfgWebPropertyId-    , mpfgProFileId-    , mpfgAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.get@ method which the--- 'ManagementProFilesGet' request conforms to.-type ManagementProFilesGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       QueryParam "alt" AltJSON :> Get '[JSON] ProFile---- | Gets a view (profile) to which the user has access.------ /See:/ 'managementProFilesGet' smart constructor.-data ManagementProFilesGet =-  ManagementProFilesGet'-    { _mpfgWebPropertyId :: !Text-    , _mpfgProFileId     :: !Text-    , _mpfgAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfgWebPropertyId'------ * 'mpfgProFileId'------ * 'mpfgAccountId'-managementProFilesGet-    :: Text -- ^ 'mpfgWebPropertyId'-    -> Text -- ^ 'mpfgProFileId'-    -> Text -- ^ 'mpfgAccountId'-    -> ManagementProFilesGet-managementProFilesGet pMpfgWebPropertyId_ pMpfgProFileId_ pMpfgAccountId_ =-  ManagementProFilesGet'-    { _mpfgWebPropertyId = pMpfgWebPropertyId_-    , _mpfgProFileId = pMpfgProFileId_-    , _mpfgAccountId = pMpfgAccountId_-    }----- | Web property ID to retrieve the view (profile) for.-mpfgWebPropertyId :: Lens' ManagementProFilesGet Text-mpfgWebPropertyId-  = lens _mpfgWebPropertyId-      (\ s a -> s{_mpfgWebPropertyId = a})---- | View (Profile) ID to retrieve the view (profile) for.-mpfgProFileId :: Lens' ManagementProFilesGet Text-mpfgProFileId-  = lens _mpfgProFileId-      (\ s a -> s{_mpfgProFileId = a})---- | Account ID to retrieve the view (profile) for.-mpfgAccountId :: Lens' ManagementProFilesGet Text-mpfgAccountId-  = lens _mpfgAccountId-      (\ s a -> s{_mpfgAccountId = a})--instance GoogleRequest ManagementProFilesGet where-        type Rs ManagementProFilesGet = ProFile-        type Scopes ManagementProFilesGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementProFilesGet'{..}-          = go _mpfgAccountId _mpfgWebPropertyId _mpfgProFileId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.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.Analytics.Management.ProFiles.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)------ Create a new view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.insert@.-module Network.Google.Resource.Analytics.Management.ProFiles.Insert-    (-    -- * REST Resource-      ManagementProFilesInsertResource--    -- * Creating a Request-    , managementProFilesInsert-    , ManagementProFilesInsert--    -- * Request Lenses-    , mpfiWebPropertyId-    , mpfiPayload-    , mpfiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.insert@ method which the--- 'ManagementProFilesInsert' request conforms to.-type ManagementProFilesInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] ProFile :> Post '[JSON] ProFile---- | Create a new view (profile).------ /See:/ 'managementProFilesInsert' smart constructor.-data ManagementProFilesInsert =-  ManagementProFilesInsert'-    { _mpfiWebPropertyId :: !Text-    , _mpfiPayload       :: !ProFile-    , _mpfiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfiWebPropertyId'------ * 'mpfiPayload'------ * 'mpfiAccountId'-managementProFilesInsert-    :: Text -- ^ 'mpfiWebPropertyId'-    -> ProFile -- ^ 'mpfiPayload'-    -> Text -- ^ 'mpfiAccountId'-    -> ManagementProFilesInsert-managementProFilesInsert pMpfiWebPropertyId_ pMpfiPayload_ pMpfiAccountId_ =-  ManagementProFilesInsert'-    { _mpfiWebPropertyId = pMpfiWebPropertyId_-    , _mpfiPayload = pMpfiPayload_-    , _mpfiAccountId = pMpfiAccountId_-    }----- | Web property ID to create the view (profile) for.-mpfiWebPropertyId :: Lens' ManagementProFilesInsert Text-mpfiWebPropertyId-  = lens _mpfiWebPropertyId-      (\ s a -> s{_mpfiWebPropertyId = a})---- | Multipart request metadata.-mpfiPayload :: Lens' ManagementProFilesInsert ProFile-mpfiPayload-  = lens _mpfiPayload (\ s a -> s{_mpfiPayload = a})---- | Account ID to create the view (profile) for.-mpfiAccountId :: Lens' ManagementProFilesInsert Text-mpfiAccountId-  = lens _mpfiAccountId-      (\ s a -> s{_mpfiAccountId = a})--instance GoogleRequest ManagementProFilesInsert where-        type Rs ManagementProFilesInsert = ProFile-        type Scopes ManagementProFilesInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFilesInsert'{..}-          = go _mpfiAccountId _mpfiWebPropertyId (Just AltJSON)-              _mpfiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs 
@@ -1,143 +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.Analytics.Management.ProFiles.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)------ Lists views (profiles) to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.list@.-module Network.Google.Resource.Analytics.Management.ProFiles.List-    (-    -- * REST Resource-      ManagementProFilesListResource--    -- * Creating a Request-    , managementProFilesList-    , ManagementProFilesList--    -- * Request Lenses-    , mpflWebPropertyId-    , mpflAccountId-    , mpflStartIndex-    , mpflMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.list@ method which the--- 'ManagementProFilesList' request conforms to.-type ManagementProFilesListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] ProFiles---- | Lists views (profiles) to which the user has access.------ /See:/ 'managementProFilesList' smart constructor.-data ManagementProFilesList =-  ManagementProFilesList'-    { _mpflWebPropertyId :: !Text-    , _mpflAccountId     :: !Text-    , _mpflStartIndex    :: !(Maybe (Textual Int32))-    , _mpflMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpflWebPropertyId'------ * 'mpflAccountId'------ * 'mpflStartIndex'------ * 'mpflMaxResults'-managementProFilesList-    :: Text -- ^ 'mpflWebPropertyId'-    -> Text -- ^ 'mpflAccountId'-    -> ManagementProFilesList-managementProFilesList pMpflWebPropertyId_ pMpflAccountId_ =-  ManagementProFilesList'-    { _mpflWebPropertyId = pMpflWebPropertyId_-    , _mpflAccountId = pMpflAccountId_-    , _mpflStartIndex = Nothing-    , _mpflMaxResults = Nothing-    }----- | Web property ID for the views (profiles) to retrieve. Can either be a--- specific web property ID or \'~all\', which refers to all the web--- properties to which the user has access.-mpflWebPropertyId :: Lens' ManagementProFilesList Text-mpflWebPropertyId-  = lens _mpflWebPropertyId-      (\ s a -> s{_mpflWebPropertyId = a})---- | Account ID for the view (profiles) to retrieve. Can either be a specific--- account ID or \'~all\', which refers to all the accounts to which the--- user has access.-mpflAccountId :: Lens' ManagementProFilesList Text-mpflAccountId-  = lens _mpflAccountId-      (\ s a -> s{_mpflAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mpflStartIndex :: Lens' ManagementProFilesList (Maybe Int32)-mpflStartIndex-  = lens _mpflStartIndex-      (\ s a -> s{_mpflStartIndex = a})-      . mapping _Coerce---- | The maximum number of views (profiles) to include in this response.-mpflMaxResults :: Lens' ManagementProFilesList (Maybe Int32)-mpflMaxResults-  = lens _mpflMaxResults-      (\ s a -> s{_mpflMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementProFilesList where-        type Rs ManagementProFilesList = ProFiles-        type Scopes ManagementProFilesList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementProFilesList'{..}-          = go _mpflAccountId _mpflWebPropertyId-              _mpflStartIndex-              _mpflMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs 
@@ -1,136 +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.Analytics.Management.ProFiles.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)------ Updates an existing view (profile). This method supports patch--- semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.patch@.-module Network.Google.Resource.Analytics.Management.ProFiles.Patch-    (-    -- * REST Resource-      ManagementProFilesPatchResource--    -- * Creating a Request-    , managementProFilesPatch-    , ManagementProFilesPatch--    -- * Request Lenses-    , mpfpWebPropertyId-    , mpfpProFileId-    , mpfpPayload-    , mpfpAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.patch@ method which the--- 'ManagementProFilesPatch' request conforms to.-type ManagementProFilesPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ProFile :> Patch '[JSON] ProFile---- | Updates an existing view (profile). This method supports patch--- semantics.------ /See:/ 'managementProFilesPatch' smart constructor.-data ManagementProFilesPatch =-  ManagementProFilesPatch'-    { _mpfpWebPropertyId :: !Text-    , _mpfpProFileId     :: !Text-    , _mpfpPayload       :: !ProFile-    , _mpfpAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfpWebPropertyId'------ * 'mpfpProFileId'------ * 'mpfpPayload'------ * 'mpfpAccountId'-managementProFilesPatch-    :: Text -- ^ 'mpfpWebPropertyId'-    -> Text -- ^ 'mpfpProFileId'-    -> ProFile -- ^ 'mpfpPayload'-    -> Text -- ^ 'mpfpAccountId'-    -> ManagementProFilesPatch-managementProFilesPatch pMpfpWebPropertyId_ pMpfpProFileId_ pMpfpPayload_ pMpfpAccountId_ =-  ManagementProFilesPatch'-    { _mpfpWebPropertyId = pMpfpWebPropertyId_-    , _mpfpProFileId = pMpfpProFileId_-    , _mpfpPayload = pMpfpPayload_-    , _mpfpAccountId = pMpfpAccountId_-    }----- | Web property ID to which the view (profile) belongs-mpfpWebPropertyId :: Lens' ManagementProFilesPatch Text-mpfpWebPropertyId-  = lens _mpfpWebPropertyId-      (\ s a -> s{_mpfpWebPropertyId = a})---- | ID of the view (profile) to be updated.-mpfpProFileId :: Lens' ManagementProFilesPatch Text-mpfpProFileId-  = lens _mpfpProFileId-      (\ s a -> s{_mpfpProFileId = a})---- | Multipart request metadata.-mpfpPayload :: Lens' ManagementProFilesPatch ProFile-mpfpPayload-  = lens _mpfpPayload (\ s a -> s{_mpfpPayload = a})---- | Account ID to which the view (profile) belongs-mpfpAccountId :: Lens' ManagementProFilesPatch Text-mpfpAccountId-  = lens _mpfpAccountId-      (\ s a -> s{_mpfpAccountId = a})--instance GoogleRequest ManagementProFilesPatch where-        type Rs ManagementProFilesPatch = ProFile-        type Scopes ManagementProFilesPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFilesPatch'{..}-          = go _mpfpAccountId _mpfpWebPropertyId _mpfpProFileId-              (Just AltJSON)-              _mpfpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs 
@@ -1,134 +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.Analytics.Management.ProFiles.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)------ Updates an existing view (profile).------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.profiles.update@.-module Network.Google.Resource.Analytics.Management.ProFiles.Update-    (-    -- * REST Resource-      ManagementProFilesUpdateResource--    -- * Creating a Request-    , managementProFilesUpdate-    , ManagementProFilesUpdate--    -- * Request Lenses-    , mpfuWebPropertyId-    , mpfuProFileId-    , mpfuPayload-    , mpfuAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.profiles.update@ method which the--- 'ManagementProFilesUpdate' request conforms to.-type ManagementProFilesUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ProFile :> Put '[JSON] ProFile---- | Updates an existing view (profile).------ /See:/ 'managementProFilesUpdate' smart constructor.-data ManagementProFilesUpdate =-  ManagementProFilesUpdate'-    { _mpfuWebPropertyId :: !Text-    , _mpfuProFileId     :: !Text-    , _mpfuPayload       :: !ProFile-    , _mpfuAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementProFilesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpfuWebPropertyId'------ * 'mpfuProFileId'------ * 'mpfuPayload'------ * 'mpfuAccountId'-managementProFilesUpdate-    :: Text -- ^ 'mpfuWebPropertyId'-    -> Text -- ^ 'mpfuProFileId'-    -> ProFile -- ^ 'mpfuPayload'-    -> Text -- ^ 'mpfuAccountId'-    -> ManagementProFilesUpdate-managementProFilesUpdate pMpfuWebPropertyId_ pMpfuProFileId_ pMpfuPayload_ pMpfuAccountId_ =-  ManagementProFilesUpdate'-    { _mpfuWebPropertyId = pMpfuWebPropertyId_-    , _mpfuProFileId = pMpfuProFileId_-    , _mpfuPayload = pMpfuPayload_-    , _mpfuAccountId = pMpfuAccountId_-    }----- | Web property ID to which the view (profile) belongs-mpfuWebPropertyId :: Lens' ManagementProFilesUpdate Text-mpfuWebPropertyId-  = lens _mpfuWebPropertyId-      (\ s a -> s{_mpfuWebPropertyId = a})---- | ID of the view (profile) to be updated.-mpfuProFileId :: Lens' ManagementProFilesUpdate Text-mpfuProFileId-  = lens _mpfuProFileId-      (\ s a -> s{_mpfuProFileId = a})---- | Multipart request metadata.-mpfuPayload :: Lens' ManagementProFilesUpdate ProFile-mpfuPayload-  = lens _mpfuPayload (\ s a -> s{_mpfuPayload = a})---- | Account ID to which the view (profile) belongs-mpfuAccountId :: Lens' ManagementProFilesUpdate Text-mpfuAccountId-  = lens _mpfuAccountId-      (\ s a -> s{_mpfuAccountId = a})--instance GoogleRequest ManagementProFilesUpdate where-        type Rs ManagementProFilesUpdate = ProFile-        type Scopes ManagementProFilesUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementProFilesUpdate'{..}-          = go _mpfuAccountId _mpfuWebPropertyId _mpfuProFileId-              (Just AltJSON)-              _mpfuPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementProFilesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Delete.hs 
@@ -1,126 +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.Analytics.Management.RemarketingAudience.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 remarketing audience.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.delete@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete-    (-    -- * REST Resource-      ManagementRemarketingAudienceDeleteResource--    -- * Creating a Request-    , managementRemarketingAudienceDelete-    , ManagementRemarketingAudienceDelete--    -- * Request Lenses-    , mradWebPropertyId-    , mradAccountId-    , mradRemarketingAudienceId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.delete@ method which the--- 'ManagementRemarketingAudienceDelete' request conforms to.-type ManagementRemarketingAudienceDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     Capture "remarketingAudienceId" Text :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete a remarketing audience.------ /See:/ 'managementRemarketingAudienceDelete' smart constructor.-data ManagementRemarketingAudienceDelete =-  ManagementRemarketingAudienceDelete'-    { _mradWebPropertyId         :: !Text-    , _mradAccountId             :: !Text-    , _mradRemarketingAudienceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudienceDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mradWebPropertyId'------ * 'mradAccountId'------ * 'mradRemarketingAudienceId'-managementRemarketingAudienceDelete-    :: Text -- ^ 'mradWebPropertyId'-    -> Text -- ^ 'mradAccountId'-    -> Text -- ^ 'mradRemarketingAudienceId'-    -> ManagementRemarketingAudienceDelete-managementRemarketingAudienceDelete pMradWebPropertyId_ pMradAccountId_ pMradRemarketingAudienceId_ =-  ManagementRemarketingAudienceDelete'-    { _mradWebPropertyId = pMradWebPropertyId_-    , _mradAccountId = pMradAccountId_-    , _mradRemarketingAudienceId = pMradRemarketingAudienceId_-    }----- | Web property ID to which the remarketing audience belongs.-mradWebPropertyId :: Lens' ManagementRemarketingAudienceDelete Text-mradWebPropertyId-  = lens _mradWebPropertyId-      (\ s a -> s{_mradWebPropertyId = a})---- | Account ID to which the remarketing audience belongs.-mradAccountId :: Lens' ManagementRemarketingAudienceDelete Text-mradAccountId-  = lens _mradAccountId-      (\ s a -> s{_mradAccountId = a})---- | The ID of the remarketing audience to delete.-mradRemarketingAudienceId :: Lens' ManagementRemarketingAudienceDelete Text-mradRemarketingAudienceId-  = lens _mradRemarketingAudienceId-      (\ s a -> s{_mradRemarketingAudienceId = a})--instance GoogleRequest-           ManagementRemarketingAudienceDelete-         where-        type Rs ManagementRemarketingAudienceDelete = ()-        type Scopes ManagementRemarketingAudienceDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementRemarketingAudienceDelete'{..}-          = go _mradAccountId _mradWebPropertyId-              _mradRemarketingAudienceId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudienceDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Get.hs 
@@ -1,128 +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.Analytics.Management.RemarketingAudience.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)------ Gets a remarketing audience to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.get@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.Get-    (-    -- * REST Resource-      ManagementRemarketingAudienceGetResource--    -- * Creating a Request-    , managementRemarketingAudienceGet-    , ManagementRemarketingAudienceGet--    -- * Request Lenses-    , mragWebPropertyId-    , mragAccountId-    , mragRemarketingAudienceId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.get@ method which the--- 'ManagementRemarketingAudienceGet' request conforms to.-type ManagementRemarketingAudienceGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     Capture "remarketingAudienceId" Text :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] RemarketingAudience---- | Gets a remarketing audience to which the user has access.------ /See:/ 'managementRemarketingAudienceGet' smart constructor.-data ManagementRemarketingAudienceGet =-  ManagementRemarketingAudienceGet'-    { _mragWebPropertyId         :: !Text-    , _mragAccountId             :: !Text-    , _mragRemarketingAudienceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudienceGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mragWebPropertyId'------ * 'mragAccountId'------ * 'mragRemarketingAudienceId'-managementRemarketingAudienceGet-    :: Text -- ^ 'mragWebPropertyId'-    -> Text -- ^ 'mragAccountId'-    -> Text -- ^ 'mragRemarketingAudienceId'-    -> ManagementRemarketingAudienceGet-managementRemarketingAudienceGet pMragWebPropertyId_ pMragAccountId_ pMragRemarketingAudienceId_ =-  ManagementRemarketingAudienceGet'-    { _mragWebPropertyId = pMragWebPropertyId_-    , _mragAccountId = pMragAccountId_-    , _mragRemarketingAudienceId = pMragRemarketingAudienceId_-    }----- | The web property ID of the remarketing audience to retrieve.-mragWebPropertyId :: Lens' ManagementRemarketingAudienceGet Text-mragWebPropertyId-  = lens _mragWebPropertyId-      (\ s a -> s{_mragWebPropertyId = a})---- | The account ID of the remarketing audience to retrieve.-mragAccountId :: Lens' ManagementRemarketingAudienceGet Text-mragAccountId-  = lens _mragAccountId-      (\ s a -> s{_mragAccountId = a})---- | The ID of the remarketing audience to retrieve.-mragRemarketingAudienceId :: Lens' ManagementRemarketingAudienceGet Text-mragRemarketingAudienceId-  = lens _mragRemarketingAudienceId-      (\ s a -> s{_mragRemarketingAudienceId = a})--instance GoogleRequest-           ManagementRemarketingAudienceGet-         where-        type Rs ManagementRemarketingAudienceGet =-             RemarketingAudience-        type Scopes ManagementRemarketingAudienceGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementRemarketingAudienceGet'{..}-          = go _mragAccountId _mragWebPropertyId-              _mragRemarketingAudienceId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudienceGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Insert.hs 
@@ -1,126 +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.Analytics.Management.RemarketingAudience.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)------ Creates a new remarketing audience.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.insert@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert-    (-    -- * REST Resource-      ManagementRemarketingAudienceInsertResource--    -- * Creating a Request-    , managementRemarketingAudienceInsert-    , ManagementRemarketingAudienceInsert--    -- * Request Lenses-    , mraiWebPropertyId-    , mraiPayload-    , mraiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.insert@ method which the--- 'ManagementRemarketingAudienceInsert' request conforms to.-type ManagementRemarketingAudienceInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] RemarketingAudience :>-                         Post '[JSON] RemarketingAudience---- | Creates a new remarketing audience.------ /See:/ 'managementRemarketingAudienceInsert' smart constructor.-data ManagementRemarketingAudienceInsert =-  ManagementRemarketingAudienceInsert'-    { _mraiWebPropertyId :: !Text-    , _mraiPayload       :: !RemarketingAudience-    , _mraiAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudienceInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mraiWebPropertyId'------ * 'mraiPayload'------ * 'mraiAccountId'-managementRemarketingAudienceInsert-    :: Text -- ^ 'mraiWebPropertyId'-    -> RemarketingAudience -- ^ 'mraiPayload'-    -> Text -- ^ 'mraiAccountId'-    -> ManagementRemarketingAudienceInsert-managementRemarketingAudienceInsert pMraiWebPropertyId_ pMraiPayload_ pMraiAccountId_ =-  ManagementRemarketingAudienceInsert'-    { _mraiWebPropertyId = pMraiWebPropertyId_-    , _mraiPayload = pMraiPayload_-    , _mraiAccountId = pMraiAccountId_-    }----- | Web property ID for which to create the remarketing audience.-mraiWebPropertyId :: Lens' ManagementRemarketingAudienceInsert Text-mraiWebPropertyId-  = lens _mraiWebPropertyId-      (\ s a -> s{_mraiWebPropertyId = a})---- | Multipart request metadata.-mraiPayload :: Lens' ManagementRemarketingAudienceInsert RemarketingAudience-mraiPayload-  = lens _mraiPayload (\ s a -> s{_mraiPayload = a})---- | The account ID for which to create the remarketing audience.-mraiAccountId :: Lens' ManagementRemarketingAudienceInsert Text-mraiAccountId-  = lens _mraiAccountId-      (\ s a -> s{_mraiAccountId = a})--instance GoogleRequest-           ManagementRemarketingAudienceInsert-         where-        type Rs ManagementRemarketingAudienceInsert =-             RemarketingAudience-        type Scopes ManagementRemarketingAudienceInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementRemarketingAudienceInsert'{..}-          = go _mraiAccountId _mraiWebPropertyId (Just AltJSON)-              _mraiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudienceInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/List.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Analytics.Management.RemarketingAudience.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)------ Lists remarketing audiences to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.list@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.List-    (-    -- * REST Resource-      ManagementRemarketingAudienceListResource--    -- * Creating a Request-    , managementRemarketingAudienceList-    , ManagementRemarketingAudienceList--    -- * Request Lenses-    , mralWebPropertyId-    , mralAccountId-    , mralType-    , mralStartIndex-    , mralMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.list@ method which the--- 'ManagementRemarketingAudienceList' request conforms to.-type ManagementRemarketingAudienceListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     QueryParam "type" Text :>-                       QueryParam "start-index" (Textual Int32) :>-                         QueryParam "max-results" (Textual Int32) :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] RemarketingAudiences---- | Lists remarketing audiences to which the user has access.------ /See:/ 'managementRemarketingAudienceList' smart constructor.-data ManagementRemarketingAudienceList =-  ManagementRemarketingAudienceList'-    { _mralWebPropertyId :: !Text-    , _mralAccountId     :: !Text-    , _mralType          :: !Text-    , _mralStartIndex    :: !(Maybe (Textual Int32))-    , _mralMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudienceList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mralWebPropertyId'------ * 'mralAccountId'------ * 'mralType'------ * 'mralStartIndex'------ * 'mralMaxResults'-managementRemarketingAudienceList-    :: Text -- ^ 'mralWebPropertyId'-    -> Text -- ^ 'mralAccountId'-    -> ManagementRemarketingAudienceList-managementRemarketingAudienceList pMralWebPropertyId_ pMralAccountId_ =-  ManagementRemarketingAudienceList'-    { _mralWebPropertyId = pMralWebPropertyId_-    , _mralAccountId = pMralAccountId_-    , _mralType = "all"-    , _mralStartIndex = Nothing-    , _mralMaxResults = Nothing-    }----- | The web property ID of the remarketing audiences to retrieve.-mralWebPropertyId :: Lens' ManagementRemarketingAudienceList Text-mralWebPropertyId-  = lens _mralWebPropertyId-      (\ s a -> s{_mralWebPropertyId = a})---- | The account ID of the remarketing audiences to retrieve.-mralAccountId :: Lens' ManagementRemarketingAudienceList Text-mralAccountId-  = lens _mralAccountId-      (\ s a -> s{_mralAccountId = a})--mralType :: Lens' ManagementRemarketingAudienceList Text-mralType = lens _mralType (\ s a -> s{_mralType = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mralStartIndex :: Lens' ManagementRemarketingAudienceList (Maybe Int32)-mralStartIndex-  = lens _mralStartIndex-      (\ s a -> s{_mralStartIndex = a})-      . mapping _Coerce---- | The maximum number of remarketing audiences to include in this response.-mralMaxResults :: Lens' ManagementRemarketingAudienceList (Maybe Int32)-mralMaxResults-  = lens _mralMaxResults-      (\ s a -> s{_mralMaxResults = a})-      . mapping _Coerce--instance GoogleRequest-           ManagementRemarketingAudienceList-         where-        type Rs ManagementRemarketingAudienceList =-             RemarketingAudiences-        type Scopes ManagementRemarketingAudienceList =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementRemarketingAudienceList'{..}-          = go _mralAccountId _mralWebPropertyId-              (Just _mralType)-              _mralStartIndex-              _mralMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudienceListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Patch.hs 
@@ -1,142 +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.Analytics.Management.RemarketingAudience.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)------ Updates an existing remarketing audience. This method supports patch--- semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.patch@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.Patch-    (-    -- * REST Resource-      ManagementRemarketingAudiencePatchResource--    -- * Creating a Request-    , managementRemarketingAudiencePatch-    , ManagementRemarketingAudiencePatch--    -- * Request Lenses-    , mrapWebPropertyId-    , mrapPayload-    , mrapAccountId-    , mrapRemarketingAudienceId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.patch@ method which the--- 'ManagementRemarketingAudiencePatch' request conforms to.-type ManagementRemarketingAudiencePatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     Capture "remarketingAudienceId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] RemarketingAudience :>-                           Patch '[JSON] RemarketingAudience---- | Updates an existing remarketing audience. This method supports patch--- semantics.------ /See:/ 'managementRemarketingAudiencePatch' smart constructor.-data ManagementRemarketingAudiencePatch =-  ManagementRemarketingAudiencePatch'-    { _mrapWebPropertyId         :: !Text-    , _mrapPayload               :: !RemarketingAudience-    , _mrapAccountId             :: !Text-    , _mrapRemarketingAudienceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudiencePatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mrapWebPropertyId'------ * 'mrapPayload'------ * 'mrapAccountId'------ * 'mrapRemarketingAudienceId'-managementRemarketingAudiencePatch-    :: Text -- ^ 'mrapWebPropertyId'-    -> RemarketingAudience -- ^ 'mrapPayload'-    -> Text -- ^ 'mrapAccountId'-    -> Text -- ^ 'mrapRemarketingAudienceId'-    -> ManagementRemarketingAudiencePatch-managementRemarketingAudiencePatch pMrapWebPropertyId_ pMrapPayload_ pMrapAccountId_ pMrapRemarketingAudienceId_ =-  ManagementRemarketingAudiencePatch'-    { _mrapWebPropertyId = pMrapWebPropertyId_-    , _mrapPayload = pMrapPayload_-    , _mrapAccountId = pMrapAccountId_-    , _mrapRemarketingAudienceId = pMrapRemarketingAudienceId_-    }----- | The web property ID of the remarketing audience to update.-mrapWebPropertyId :: Lens' ManagementRemarketingAudiencePatch Text-mrapWebPropertyId-  = lens _mrapWebPropertyId-      (\ s a -> s{_mrapWebPropertyId = a})---- | Multipart request metadata.-mrapPayload :: Lens' ManagementRemarketingAudiencePatch RemarketingAudience-mrapPayload-  = lens _mrapPayload (\ s a -> s{_mrapPayload = a})---- | The account ID of the remarketing audience to update.-mrapAccountId :: Lens' ManagementRemarketingAudiencePatch Text-mrapAccountId-  = lens _mrapAccountId-      (\ s a -> s{_mrapAccountId = a})---- | The ID of the remarketing audience to update.-mrapRemarketingAudienceId :: Lens' ManagementRemarketingAudiencePatch Text-mrapRemarketingAudienceId-  = lens _mrapRemarketingAudienceId-      (\ s a -> s{_mrapRemarketingAudienceId = a})--instance GoogleRequest-           ManagementRemarketingAudiencePatch-         where-        type Rs ManagementRemarketingAudiencePatch =-             RemarketingAudience-        type Scopes ManagementRemarketingAudiencePatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementRemarketingAudiencePatch'{..}-          = go _mrapAccountId _mrapWebPropertyId-              _mrapRemarketingAudienceId-              (Just AltJSON)-              _mrapPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudiencePatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Update.hs 
@@ -1,141 +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.Analytics.Management.RemarketingAudience.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)------ Updates an existing remarketing audience.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.update@.-module Network.Google.Resource.Analytics.Management.RemarketingAudience.Update-    (-    -- * REST Resource-      ManagementRemarketingAudienceUpdateResource--    -- * Creating a Request-    , managementRemarketingAudienceUpdate-    , ManagementRemarketingAudienceUpdate--    -- * Request Lenses-    , mrauWebPropertyId-    , mrauPayload-    , mrauAccountId-    , mrauRemarketingAudienceId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.remarketingAudience.update@ method which the--- 'ManagementRemarketingAudienceUpdate' request conforms to.-type ManagementRemarketingAudienceUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "remarketingAudiences" :>-                     Capture "remarketingAudienceId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] RemarketingAudience :>-                           Put '[JSON] RemarketingAudience---- | Updates an existing remarketing audience.------ /See:/ 'managementRemarketingAudienceUpdate' smart constructor.-data ManagementRemarketingAudienceUpdate =-  ManagementRemarketingAudienceUpdate'-    { _mrauWebPropertyId         :: !Text-    , _mrauPayload               :: !RemarketingAudience-    , _mrauAccountId             :: !Text-    , _mrauRemarketingAudienceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementRemarketingAudienceUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mrauWebPropertyId'------ * 'mrauPayload'------ * 'mrauAccountId'------ * 'mrauRemarketingAudienceId'-managementRemarketingAudienceUpdate-    :: Text -- ^ 'mrauWebPropertyId'-    -> RemarketingAudience -- ^ 'mrauPayload'-    -> Text -- ^ 'mrauAccountId'-    -> Text -- ^ 'mrauRemarketingAudienceId'-    -> ManagementRemarketingAudienceUpdate-managementRemarketingAudienceUpdate pMrauWebPropertyId_ pMrauPayload_ pMrauAccountId_ pMrauRemarketingAudienceId_ =-  ManagementRemarketingAudienceUpdate'-    { _mrauWebPropertyId = pMrauWebPropertyId_-    , _mrauPayload = pMrauPayload_-    , _mrauAccountId = pMrauAccountId_-    , _mrauRemarketingAudienceId = pMrauRemarketingAudienceId_-    }----- | The web property ID of the remarketing audience to update.-mrauWebPropertyId :: Lens' ManagementRemarketingAudienceUpdate Text-mrauWebPropertyId-  = lens _mrauWebPropertyId-      (\ s a -> s{_mrauWebPropertyId = a})---- | Multipart request metadata.-mrauPayload :: Lens' ManagementRemarketingAudienceUpdate RemarketingAudience-mrauPayload-  = lens _mrauPayload (\ s a -> s{_mrauPayload = a})---- | The account ID of the remarketing audience to update.-mrauAccountId :: Lens' ManagementRemarketingAudienceUpdate Text-mrauAccountId-  = lens _mrauAccountId-      (\ s a -> s{_mrauAccountId = a})---- | The ID of the remarketing audience to update.-mrauRemarketingAudienceId :: Lens' ManagementRemarketingAudienceUpdate Text-mrauRemarketingAudienceId-  = lens _mrauRemarketingAudienceId-      (\ s a -> s{_mrauRemarketingAudienceId = a})--instance GoogleRequest-           ManagementRemarketingAudienceUpdate-         where-        type Rs ManagementRemarketingAudienceUpdate =-             RemarketingAudience-        type Scopes ManagementRemarketingAudienceUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementRemarketingAudienceUpdate'{..}-          = go _mrauAccountId _mrauWebPropertyId-              _mrauRemarketingAudienceId-              (Just AltJSON)-              _mrauPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementRemarketingAudienceUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Segments/List.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.Analytics.Management.Segments.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)------ Lists segments to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.segments.list@.-module Network.Google.Resource.Analytics.Management.Segments.List-    (-    -- * REST Resource-      ManagementSegmentsListResource--    -- * Creating a Request-    , managementSegmentsList-    , ManagementSegmentsList--    -- * Request Lenses-    , mslStartIndex-    , mslMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.segments.list@ method which the--- 'ManagementSegmentsList' request conforms to.-type ManagementSegmentsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "segments" :>-             QueryParam "start-index" (Textual Int32) :>-               QueryParam "max-results" (Textual Int32) :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Segments---- | Lists segments to which the user has access.------ /See:/ 'managementSegmentsList' smart constructor.-data ManagementSegmentsList =-  ManagementSegmentsList'-    { _mslStartIndex :: !(Maybe (Textual Int32))-    , _mslMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementSegmentsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mslStartIndex'------ * 'mslMaxResults'-managementSegmentsList-    :: ManagementSegmentsList-managementSegmentsList =-  ManagementSegmentsList' {_mslStartIndex = Nothing, _mslMaxResults = Nothing}----- | An index of the first segment to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mslStartIndex :: Lens' ManagementSegmentsList (Maybe Int32)-mslStartIndex-  = lens _mslStartIndex-      (\ s a -> s{_mslStartIndex = a})-      . mapping _Coerce---- | The maximum number of segments to include in this response.-mslMaxResults :: Lens' ManagementSegmentsList (Maybe Int32)-mslMaxResults-  = lens _mslMaxResults-      (\ s a -> s{_mslMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementSegmentsList where-        type Rs ManagementSegmentsList = Segments-        type Scopes ManagementSegmentsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementSegmentsList'{..}-          = go _mslStartIndex _mslMaxResults (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementSegmentsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Delete.hs 
@@ -1,140 +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.Analytics.Management.UnSampledReports.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)------ Deletes an unsampled report.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.delete@.-module Network.Google.Resource.Analytics.Management.UnSampledReports.Delete-    (-    -- * REST Resource-      ManagementUnSampledReportsDeleteResource--    -- * Creating a Request-    , managementUnSampledReportsDelete-    , ManagementUnSampledReportsDelete--    -- * Request Lenses-    , musrdWebPropertyId-    , musrdProFileId-    , musrdAccountId-    , musrdUnSampledReportId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.unsampledReports.delete@ method which the--- 'ManagementUnSampledReportsDelete' request conforms to.-type ManagementUnSampledReportsDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "unsampledReports" :>-                         Capture "unsampledReportId" Text :>-                           QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes an unsampled report.------ /See:/ 'managementUnSampledReportsDelete' smart constructor.-data ManagementUnSampledReportsDelete =-  ManagementUnSampledReportsDelete'-    { _musrdWebPropertyId     :: !Text-    , _musrdProFileId         :: !Text-    , _musrdAccountId         :: !Text-    , _musrdUnSampledReportId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUnSampledReportsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'musrdWebPropertyId'------ * 'musrdProFileId'------ * 'musrdAccountId'------ * 'musrdUnSampledReportId'-managementUnSampledReportsDelete-    :: Text -- ^ 'musrdWebPropertyId'-    -> Text -- ^ 'musrdProFileId'-    -> Text -- ^ 'musrdAccountId'-    -> Text -- ^ 'musrdUnSampledReportId'-    -> ManagementUnSampledReportsDelete-managementUnSampledReportsDelete pMusrdWebPropertyId_ pMusrdProFileId_ pMusrdAccountId_ pMusrdUnSampledReportId_ =-  ManagementUnSampledReportsDelete'-    { _musrdWebPropertyId = pMusrdWebPropertyId_-    , _musrdProFileId = pMusrdProFileId_-    , _musrdAccountId = pMusrdAccountId_-    , _musrdUnSampledReportId = pMusrdUnSampledReportId_-    }----- | Web property ID to delete the unsampled reports for.-musrdWebPropertyId :: Lens' ManagementUnSampledReportsDelete Text-musrdWebPropertyId-  = lens _musrdWebPropertyId-      (\ s a -> s{_musrdWebPropertyId = a})---- | View (Profile) ID to delete the unsampled report for.-musrdProFileId :: Lens' ManagementUnSampledReportsDelete Text-musrdProFileId-  = lens _musrdProFileId-      (\ s a -> s{_musrdProFileId = a})---- | Account ID to delete the unsampled report for.-musrdAccountId :: Lens' ManagementUnSampledReportsDelete Text-musrdAccountId-  = lens _musrdAccountId-      (\ s a -> s{_musrdAccountId = a})---- | ID of the unsampled report to be deleted.-musrdUnSampledReportId :: Lens' ManagementUnSampledReportsDelete Text-musrdUnSampledReportId-  = lens _musrdUnSampledReportId-      (\ s a -> s{_musrdUnSampledReportId = a})--instance GoogleRequest-           ManagementUnSampledReportsDelete-         where-        type Rs ManagementUnSampledReportsDelete = ()-        type Scopes ManagementUnSampledReportsDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementUnSampledReportsDelete'{..}-          = go _musrdAccountId _musrdWebPropertyId-              _musrdProFileId-              _musrdUnSampledReportId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementUnSampledReportsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs 
@@ -1,143 +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.Analytics.Management.UnSampledReports.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)------ Returns a single unsampled report.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.get@.-module Network.Google.Resource.Analytics.Management.UnSampledReports.Get-    (-    -- * REST Resource-      ManagementUnSampledReportsGetResource--    -- * Creating a Request-    , managementUnSampledReportsGet-    , ManagementUnSampledReportsGet--    -- * Request Lenses-    , musrgWebPropertyId-    , musrgProFileId-    , musrgAccountId-    , musrgUnSampledReportId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.unsampledReports.get@ method which the--- 'ManagementUnSampledReportsGet' request conforms to.-type ManagementUnSampledReportsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "unsampledReports" :>-                         Capture "unsampledReportId" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] UnSampledReport---- | Returns a single unsampled report.------ /See:/ 'managementUnSampledReportsGet' smart constructor.-data ManagementUnSampledReportsGet =-  ManagementUnSampledReportsGet'-    { _musrgWebPropertyId     :: !Text-    , _musrgProFileId         :: !Text-    , _musrgAccountId         :: !Text-    , _musrgUnSampledReportId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUnSampledReportsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'musrgWebPropertyId'------ * 'musrgProFileId'------ * 'musrgAccountId'------ * 'musrgUnSampledReportId'-managementUnSampledReportsGet-    :: Text -- ^ 'musrgWebPropertyId'-    -> Text -- ^ 'musrgProFileId'-    -> Text -- ^ 'musrgAccountId'-    -> Text -- ^ 'musrgUnSampledReportId'-    -> ManagementUnSampledReportsGet-managementUnSampledReportsGet pMusrgWebPropertyId_ pMusrgProFileId_ pMusrgAccountId_ pMusrgUnSampledReportId_ =-  ManagementUnSampledReportsGet'-    { _musrgWebPropertyId = pMusrgWebPropertyId_-    , _musrgProFileId = pMusrgProFileId_-    , _musrgAccountId = pMusrgAccountId_-    , _musrgUnSampledReportId = pMusrgUnSampledReportId_-    }----- | Web property ID to retrieve unsampled reports for.-musrgWebPropertyId :: Lens' ManagementUnSampledReportsGet Text-musrgWebPropertyId-  = lens _musrgWebPropertyId-      (\ s a -> s{_musrgWebPropertyId = a})---- | View (Profile) ID to retrieve unsampled report for.-musrgProFileId :: Lens' ManagementUnSampledReportsGet Text-musrgProFileId-  = lens _musrgProFileId-      (\ s a -> s{_musrgProFileId = a})---- | Account ID to retrieve unsampled report for.-musrgAccountId :: Lens' ManagementUnSampledReportsGet Text-musrgAccountId-  = lens _musrgAccountId-      (\ s a -> s{_musrgAccountId = a})---- | ID of the unsampled report to retrieve.-musrgUnSampledReportId :: Lens' ManagementUnSampledReportsGet Text-musrgUnSampledReportId-  = lens _musrgUnSampledReportId-      (\ s a -> s{_musrgUnSampledReportId = a})--instance GoogleRequest ManagementUnSampledReportsGet-         where-        type Rs ManagementUnSampledReportsGet =-             UnSampledReport-        type Scopes ManagementUnSampledReportsGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementUnSampledReportsGet'{..}-          = go _musrgAccountId _musrgWebPropertyId-              _musrgProFileId-              _musrgUnSampledReportId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementUnSampledReportsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs 
@@ -1,142 +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.Analytics.Management.UnSampledReports.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)------ Create a new unsampled report.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.insert@.-module Network.Google.Resource.Analytics.Management.UnSampledReports.Insert-    (-    -- * REST Resource-      ManagementUnSampledReportsInsertResource--    -- * Creating a Request-    , managementUnSampledReportsInsert-    , ManagementUnSampledReportsInsert--    -- * Request Lenses-    , musriWebPropertyId-    , musriProFileId-    , musriPayload-    , musriAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.unsampledReports.insert@ method which the--- 'ManagementUnSampledReportsInsert' request conforms to.-type ManagementUnSampledReportsInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "unsampledReports" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] UnSampledReport :>-                             Post '[JSON] UnSampledReport---- | Create a new unsampled report.------ /See:/ 'managementUnSampledReportsInsert' smart constructor.-data ManagementUnSampledReportsInsert =-  ManagementUnSampledReportsInsert'-    { _musriWebPropertyId :: !Text-    , _musriProFileId     :: !Text-    , _musriPayload       :: !UnSampledReport-    , _musriAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUnSampledReportsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'musriWebPropertyId'------ * 'musriProFileId'------ * 'musriPayload'------ * 'musriAccountId'-managementUnSampledReportsInsert-    :: Text -- ^ 'musriWebPropertyId'-    -> Text -- ^ 'musriProFileId'-    -> UnSampledReport -- ^ 'musriPayload'-    -> Text -- ^ 'musriAccountId'-    -> ManagementUnSampledReportsInsert-managementUnSampledReportsInsert pMusriWebPropertyId_ pMusriProFileId_ pMusriPayload_ pMusriAccountId_ =-  ManagementUnSampledReportsInsert'-    { _musriWebPropertyId = pMusriWebPropertyId_-    , _musriProFileId = pMusriProFileId_-    , _musriPayload = pMusriPayload_-    , _musriAccountId = pMusriAccountId_-    }----- | Web property ID to create the unsampled report for.-musriWebPropertyId :: Lens' ManagementUnSampledReportsInsert Text-musriWebPropertyId-  = lens _musriWebPropertyId-      (\ s a -> s{_musriWebPropertyId = a})---- | View (Profile) ID to create the unsampled report for.-musriProFileId :: Lens' ManagementUnSampledReportsInsert Text-musriProFileId-  = lens _musriProFileId-      (\ s a -> s{_musriProFileId = a})---- | Multipart request metadata.-musriPayload :: Lens' ManagementUnSampledReportsInsert UnSampledReport-musriPayload-  = lens _musriPayload (\ s a -> s{_musriPayload = a})---- | Account ID to create the unsampled report for.-musriAccountId :: Lens' ManagementUnSampledReportsInsert Text-musriAccountId-  = lens _musriAccountId-      (\ s a -> s{_musriAccountId = a})--instance GoogleRequest-           ManagementUnSampledReportsInsert-         where-        type Rs ManagementUnSampledReportsInsert =-             UnSampledReport-        type Scopes ManagementUnSampledReportsInsert =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementUnSampledReportsInsert'{..}-          = go _musriAccountId _musriWebPropertyId-              _musriProFileId-              (Just AltJSON)-              _musriPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementUnSampledReportsInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs 
@@ -1,161 +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.Analytics.Management.UnSampledReports.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)------ Lists unsampled reports to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.unsampledReports.list@.-module Network.Google.Resource.Analytics.Management.UnSampledReports.List-    (-    -- * REST Resource-      ManagementUnSampledReportsListResource--    -- * Creating a Request-    , managementUnSampledReportsList-    , ManagementUnSampledReportsList--    -- * Request Lenses-    , musrlWebPropertyId-    , musrlProFileId-    , musrlAccountId-    , musrlStartIndex-    , musrlMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.unsampledReports.list@ method which the--- 'ManagementUnSampledReportsList' request conforms to.-type ManagementUnSampledReportsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "profiles" :>-                     Capture "profileId" Text :>-                       "unsampledReports" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :>-                               Get '[JSON] UnSampledReports---- | Lists unsampled reports to which the user has access.------ /See:/ 'managementUnSampledReportsList' smart constructor.-data ManagementUnSampledReportsList =-  ManagementUnSampledReportsList'-    { _musrlWebPropertyId :: !Text-    , _musrlProFileId     :: !Text-    , _musrlAccountId     :: !Text-    , _musrlStartIndex    :: !(Maybe (Textual Int32))-    , _musrlMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUnSampledReportsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'musrlWebPropertyId'------ * 'musrlProFileId'------ * 'musrlAccountId'------ * 'musrlStartIndex'------ * 'musrlMaxResults'-managementUnSampledReportsList-    :: Text -- ^ 'musrlWebPropertyId'-    -> Text -- ^ 'musrlProFileId'-    -> Text -- ^ 'musrlAccountId'-    -> ManagementUnSampledReportsList-managementUnSampledReportsList pMusrlWebPropertyId_ pMusrlProFileId_ pMusrlAccountId_ =-  ManagementUnSampledReportsList'-    { _musrlWebPropertyId = pMusrlWebPropertyId_-    , _musrlProFileId = pMusrlProFileId_-    , _musrlAccountId = pMusrlAccountId_-    , _musrlStartIndex = Nothing-    , _musrlMaxResults = Nothing-    }----- | Web property ID to retrieve unsampled reports for. Must be a specific--- web property ID, ~all is not supported.-musrlWebPropertyId :: Lens' ManagementUnSampledReportsList Text-musrlWebPropertyId-  = lens _musrlWebPropertyId-      (\ s a -> s{_musrlWebPropertyId = a})---- | View (Profile) ID to retrieve unsampled reports for. Must be a specific--- view (profile) ID, ~all is not supported.-musrlProFileId :: Lens' ManagementUnSampledReportsList Text-musrlProFileId-  = lens _musrlProFileId-      (\ s a -> s{_musrlProFileId = a})---- | Account ID to retrieve unsampled reports for. Must be a specific account--- ID, ~all is not supported.-musrlAccountId :: Lens' ManagementUnSampledReportsList Text-musrlAccountId-  = lens _musrlAccountId-      (\ s a -> s{_musrlAccountId = a})---- | An index of the first unsampled report to retrieve. Use this parameter--- as a pagination mechanism along with the max-results parameter.-musrlStartIndex :: Lens' ManagementUnSampledReportsList (Maybe Int32)-musrlStartIndex-  = lens _musrlStartIndex-      (\ s a -> s{_musrlStartIndex = a})-      . mapping _Coerce---- | The maximum number of unsampled reports to include in this response.-musrlMaxResults :: Lens' ManagementUnSampledReportsList (Maybe Int32)-musrlMaxResults-  = lens _musrlMaxResults-      (\ s a -> s{_musrlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementUnSampledReportsList-         where-        type Rs ManagementUnSampledReportsList =-             UnSampledReports-        type Scopes ManagementUnSampledReportsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementUnSampledReportsList'{..}-          = go _musrlAccountId _musrlWebPropertyId-              _musrlProFileId-              _musrlStartIndex-              _musrlMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementUnSampledReportsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs 
@@ -1,142 +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.Analytics.Management.Uploads.DeleteUploadData--- 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 data associated with a previous upload.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.deleteUploadData@.-module Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData-    (-    -- * REST Resource-      ManagementUploadsDeleteUploadDataResource--    -- * Creating a Request-    , managementUploadsDeleteUploadData-    , ManagementUploadsDeleteUploadData--    -- * Request Lenses-    , mududWebPropertyId-    , mududCustomDataSourceId-    , mududPayload-    , mududAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.uploads.deleteUploadData@ method which the--- 'ManagementUploadsDeleteUploadData' request conforms to.-type ManagementUploadsDeleteUploadDataResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDataSources" :>-                     Capture "customDataSourceId" Text :>-                       "deleteUploadData" :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON]-                             AnalyticsDataimportDeleteUploadDataRequest-                             :> Post '[JSON] ()---- | Delete data associated with a previous upload.------ /See:/ 'managementUploadsDeleteUploadData' smart constructor.-data ManagementUploadsDeleteUploadData =-  ManagementUploadsDeleteUploadData'-    { _mududWebPropertyId      :: !Text-    , _mududCustomDataSourceId :: !Text-    , _mududPayload            :: !AnalyticsDataimportDeleteUploadDataRequest-    , _mududAccountId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUploadsDeleteUploadData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mududWebPropertyId'------ * 'mududCustomDataSourceId'------ * 'mududPayload'------ * 'mududAccountId'-managementUploadsDeleteUploadData-    :: Text -- ^ 'mududWebPropertyId'-    -> Text -- ^ 'mududCustomDataSourceId'-    -> AnalyticsDataimportDeleteUploadDataRequest -- ^ 'mududPayload'-    -> Text -- ^ 'mududAccountId'-    -> ManagementUploadsDeleteUploadData-managementUploadsDeleteUploadData pMududWebPropertyId_ pMududCustomDataSourceId_ pMududPayload_ pMududAccountId_ =-  ManagementUploadsDeleteUploadData'-    { _mududWebPropertyId = pMududWebPropertyId_-    , _mududCustomDataSourceId = pMududCustomDataSourceId_-    , _mududPayload = pMududPayload_-    , _mududAccountId = pMududAccountId_-    }----- | Web property Id for the uploads to be deleted.-mududWebPropertyId :: Lens' ManagementUploadsDeleteUploadData Text-mududWebPropertyId-  = lens _mududWebPropertyId-      (\ s a -> s{_mududWebPropertyId = a})---- | Custom data source Id for the uploads to be deleted.-mududCustomDataSourceId :: Lens' ManagementUploadsDeleteUploadData Text-mududCustomDataSourceId-  = lens _mududCustomDataSourceId-      (\ s a -> s{_mududCustomDataSourceId = a})---- | Multipart request metadata.-mududPayload :: Lens' ManagementUploadsDeleteUploadData AnalyticsDataimportDeleteUploadDataRequest-mududPayload-  = lens _mududPayload (\ s a -> s{_mududPayload = a})---- | Account Id for the uploads to be deleted.-mududAccountId :: Lens' ManagementUploadsDeleteUploadData Text-mududAccountId-  = lens _mududAccountId-      (\ s a -> s{_mududAccountId = a})--instance GoogleRequest-           ManagementUploadsDeleteUploadData-         where-        type Rs ManagementUploadsDeleteUploadData = ()-        type Scopes ManagementUploadsDeleteUploadData =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementUploadsDeleteUploadData'{..}-          = go _mududAccountId _mududWebPropertyId-              _mududCustomDataSourceId-              (Just AltJSON)-              _mududPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementUploadsDeleteUploadDataResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs 
@@ -1,137 +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.Analytics.Management.Uploads.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)------ List uploads to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.get@.-module Network.Google.Resource.Analytics.Management.Uploads.Get-    (-    -- * REST Resource-      ManagementUploadsGetResource--    -- * Creating a Request-    , managementUploadsGet-    , ManagementUploadsGet--    -- * Request Lenses-    , mugWebPropertyId-    , mugCustomDataSourceId-    , mugAccountId-    , mugUploadId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.uploads.get@ method which the--- 'ManagementUploadsGet' request conforms to.-type ManagementUploadsGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDataSources" :>-                     Capture "customDataSourceId" Text :>-                       "uploads" :>-                         Capture "uploadId" Text :>-                           QueryParam "alt" AltJSON :> Get '[JSON] Upload---- | List uploads to which the user has access.------ /See:/ 'managementUploadsGet' smart constructor.-data ManagementUploadsGet =-  ManagementUploadsGet'-    { _mugWebPropertyId      :: !Text-    , _mugCustomDataSourceId :: !Text-    , _mugAccountId          :: !Text-    , _mugUploadId           :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUploadsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mugWebPropertyId'------ * 'mugCustomDataSourceId'------ * 'mugAccountId'------ * 'mugUploadId'-managementUploadsGet-    :: Text -- ^ 'mugWebPropertyId'-    -> Text -- ^ 'mugCustomDataSourceId'-    -> Text -- ^ 'mugAccountId'-    -> Text -- ^ 'mugUploadId'-    -> ManagementUploadsGet-managementUploadsGet pMugWebPropertyId_ pMugCustomDataSourceId_ pMugAccountId_ pMugUploadId_ =-  ManagementUploadsGet'-    { _mugWebPropertyId = pMugWebPropertyId_-    , _mugCustomDataSourceId = pMugCustomDataSourceId_-    , _mugAccountId = pMugAccountId_-    , _mugUploadId = pMugUploadId_-    }----- | Web property Id for the upload to retrieve.-mugWebPropertyId :: Lens' ManagementUploadsGet Text-mugWebPropertyId-  = lens _mugWebPropertyId-      (\ s a -> s{_mugWebPropertyId = a})---- | Custom data source Id for upload to retrieve.-mugCustomDataSourceId :: Lens' ManagementUploadsGet Text-mugCustomDataSourceId-  = lens _mugCustomDataSourceId-      (\ s a -> s{_mugCustomDataSourceId = a})---- | Account Id for the upload to retrieve.-mugAccountId :: Lens' ManagementUploadsGet Text-mugAccountId-  = lens _mugAccountId (\ s a -> s{_mugAccountId = a})---- | Upload Id to retrieve.-mugUploadId :: Lens' ManagementUploadsGet Text-mugUploadId-  = lens _mugUploadId (\ s a -> s{_mugUploadId = a})--instance GoogleRequest ManagementUploadsGet where-        type Rs ManagementUploadsGet = Upload-        type Scopes ManagementUploadsGet =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementUploadsGet'{..}-          = go _mugAccountId _mugWebPropertyId-              _mugCustomDataSourceId-              _mugUploadId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementUploadsGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Analytics.Management.Uploads.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 uploads to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.list@.-module Network.Google.Resource.Analytics.Management.Uploads.List-    (-    -- * REST Resource-      ManagementUploadsListResource--    -- * Creating a Request-    , managementUploadsList-    , ManagementUploadsList--    -- * Request Lenses-    , mulWebPropertyId-    , mulCustomDataSourceId-    , mulAccountId-    , mulStartIndex-    , mulMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.uploads.list@ method which the--- 'ManagementUploadsList' request conforms to.-type ManagementUploadsListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDataSources" :>-                     Capture "customDataSourceId" Text :>-                       "uploads" :>-                         QueryParam "start-index" (Textual Int32) :>-                           QueryParam "max-results" (Textual Int32) :>-                             QueryParam "alt" AltJSON :> Get '[JSON] Uploads---- | List uploads to which the user has access.------ /See:/ 'managementUploadsList' smart constructor.-data ManagementUploadsList =-  ManagementUploadsList'-    { _mulWebPropertyId      :: !Text-    , _mulCustomDataSourceId :: !Text-    , _mulAccountId          :: !Text-    , _mulStartIndex         :: !(Maybe (Textual Int32))-    , _mulMaxResults         :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUploadsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mulWebPropertyId'------ * 'mulCustomDataSourceId'------ * 'mulAccountId'------ * 'mulStartIndex'------ * 'mulMaxResults'-managementUploadsList-    :: Text -- ^ 'mulWebPropertyId'-    -> Text -- ^ 'mulCustomDataSourceId'-    -> Text -- ^ 'mulAccountId'-    -> ManagementUploadsList-managementUploadsList pMulWebPropertyId_ pMulCustomDataSourceId_ pMulAccountId_ =-  ManagementUploadsList'-    { _mulWebPropertyId = pMulWebPropertyId_-    , _mulCustomDataSourceId = pMulCustomDataSourceId_-    , _mulAccountId = pMulAccountId_-    , _mulStartIndex = Nothing-    , _mulMaxResults = Nothing-    }----- | Web property Id for the uploads to retrieve.-mulWebPropertyId :: Lens' ManagementUploadsList Text-mulWebPropertyId-  = lens _mulWebPropertyId-      (\ s a -> s{_mulWebPropertyId = a})---- | Custom data source Id for uploads to retrieve.-mulCustomDataSourceId :: Lens' ManagementUploadsList Text-mulCustomDataSourceId-  = lens _mulCustomDataSourceId-      (\ s a -> s{_mulCustomDataSourceId = a})---- | Account Id for the uploads to retrieve.-mulAccountId :: Lens' ManagementUploadsList Text-mulAccountId-  = lens _mulAccountId (\ s a -> s{_mulAccountId = a})---- | A 1-based index of the first upload to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mulStartIndex :: Lens' ManagementUploadsList (Maybe Int32)-mulStartIndex-  = lens _mulStartIndex-      (\ s a -> s{_mulStartIndex = a})-      . mapping _Coerce---- | The maximum number of uploads to include in this response.-mulMaxResults :: Lens' ManagementUploadsList (Maybe Int32)-mulMaxResults-  = lens _mulMaxResults-      (\ s a -> s{_mulMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementUploadsList where-        type Rs ManagementUploadsList = Uploads-        type Scopes ManagementUploadsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementUploadsList'{..}-          = go _mulAccountId _mulWebPropertyId-              _mulCustomDataSourceId-              _mulStartIndex-              _mulMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementUploadsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs 
@@ -1,160 +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.Analytics.Management.Uploads.UploadData--- 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)------ Upload data for a custom data source.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.uploads.uploadData@.-module Network.Google.Resource.Analytics.Management.Uploads.UploadData-    (-    -- * REST Resource-      ManagementUploadsUploadDataResource--    -- * Creating a Request-    , managementUploadsUploadData-    , ManagementUploadsUploadData--    -- * Request Lenses-    , muudWebPropertyId-    , muudCustomDataSourceId-    , muudAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.uploads.uploadData@ method which the--- 'ManagementUploadsUploadData' request conforms to.-type ManagementUploadsUploadDataResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "customDataSources" :>-                     Capture "customDataSourceId" Text :>-                       "uploads" :>-                         QueryParam "alt" AltJSON :> Post '[JSON] Upload-       :<|>-       "upload" :>-         "analytics" :>-           "v3" :>-             "management" :>-               "accounts" :>-                 Capture "accountId" Text :>-                   "webproperties" :>-                     Capture "webPropertyId" Text :>-                       "customDataSources" :>-                         Capture "customDataSourceId" Text :>-                           "uploads" :>-                             QueryParam "alt" AltJSON :>-                               QueryParam "uploadType" AltMedia :>-                                 AltMedia :> Post '[JSON] Upload---- | Upload data for a custom data source.------ /See:/ 'managementUploadsUploadData' smart constructor.-data ManagementUploadsUploadData =-  ManagementUploadsUploadData'-    { _muudWebPropertyId      :: !Text-    , _muudCustomDataSourceId :: !Text-    , _muudAccountId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementUploadsUploadData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'muudWebPropertyId'------ * 'muudCustomDataSourceId'------ * 'muudAccountId'-managementUploadsUploadData-    :: Text -- ^ 'muudWebPropertyId'-    -> Text -- ^ 'muudCustomDataSourceId'-    -> Text -- ^ 'muudAccountId'-    -> ManagementUploadsUploadData-managementUploadsUploadData pMuudWebPropertyId_ pMuudCustomDataSourceId_ pMuudAccountId_ =-  ManagementUploadsUploadData'-    { _muudWebPropertyId = pMuudWebPropertyId_-    , _muudCustomDataSourceId = pMuudCustomDataSourceId_-    , _muudAccountId = pMuudAccountId_-    }----- | Web property UA-string associated with the upload.-muudWebPropertyId :: Lens' ManagementUploadsUploadData Text-muudWebPropertyId-  = lens _muudWebPropertyId-      (\ s a -> s{_muudWebPropertyId = a})---- | Custom data source Id to which the data being uploaded belongs.-muudCustomDataSourceId :: Lens' ManagementUploadsUploadData Text-muudCustomDataSourceId-  = lens _muudCustomDataSourceId-      (\ s a -> s{_muudCustomDataSourceId = a})---- | Account Id associated with the upload.-muudAccountId :: Lens' ManagementUploadsUploadData Text-muudAccountId-  = lens _muudAccountId-      (\ s a -> s{_muudAccountId = a})--instance GoogleRequest ManagementUploadsUploadData-         where-        type Rs ManagementUploadsUploadData = Upload-        type Scopes ManagementUploadsUploadData =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementUploadsUploadData'{..}-          = go _muudAccountId _muudWebPropertyId-              _muudCustomDataSourceId-              (Just AltJSON)-              analyticsService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy ManagementUploadsUploadDataResource)-                      mempty--instance GoogleRequest-           (MediaUpload ManagementUploadsUploadData)-         where-        type Rs (MediaUpload ManagementUploadsUploadData) =-             Upload-        type Scopes (MediaUpload ManagementUploadsUploadData)-             = Scopes ManagementUploadsUploadData-        requestClient-          (MediaUpload ManagementUploadsUploadData'{..} body)-          = go _muudAccountId _muudWebPropertyId-              _muudCustomDataSourceId-              (Just AltJSON)-              (Just AltMedia)-              body-              analyticsService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy ManagementUploadsUploadDataResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebProperties/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.Analytics.Management.WebProperties.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)------ Gets a web property to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.get@.-module Network.Google.Resource.Analytics.Management.WebProperties.Get-    (-    -- * REST Resource-      ManagementWebPropertiesGetResource--    -- * Creating a Request-    , managementWebPropertiesGet-    , ManagementWebPropertiesGet--    -- * Request Lenses-    , mwpgWebPropertyId-    , mwpgAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webproperties.get@ method which the--- 'ManagementWebPropertiesGet' request conforms to.-type ManagementWebPropertiesGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] WebProperty---- | Gets a web property to which the user has access.------ /See:/ 'managementWebPropertiesGet' smart constructor.-data ManagementWebPropertiesGet =-  ManagementWebPropertiesGet'-    { _mwpgWebPropertyId :: !Text-    , _mwpgAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertiesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpgWebPropertyId'------ * 'mwpgAccountId'-managementWebPropertiesGet-    :: Text -- ^ 'mwpgWebPropertyId'-    -> Text -- ^ 'mwpgAccountId'-    -> ManagementWebPropertiesGet-managementWebPropertiesGet pMwpgWebPropertyId_ pMwpgAccountId_ =-  ManagementWebPropertiesGet'-    {_mwpgWebPropertyId = pMwpgWebPropertyId_, _mwpgAccountId = pMwpgAccountId_}----- | ID to retrieve the web property for.-mwpgWebPropertyId :: Lens' ManagementWebPropertiesGet Text-mwpgWebPropertyId-  = lens _mwpgWebPropertyId-      (\ s a -> s{_mwpgWebPropertyId = a})---- | Account ID to retrieve the web property for.-mwpgAccountId :: Lens' ManagementWebPropertiesGet Text-mwpgAccountId-  = lens _mwpgAccountId-      (\ s a -> s{_mwpgAccountId = a})--instance GoogleRequest ManagementWebPropertiesGet-         where-        type Rs ManagementWebPropertiesGet = WebProperty-        type Scopes ManagementWebPropertiesGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementWebPropertiesGet'{..}-          = go _mwpgAccountId _mwpgWebPropertyId (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementWebPropertiesGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs 
@@ -1,110 +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.Analytics.Management.WebProperties.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)------ Create a new property if the account has fewer than 20 properties. Web--- properties are visible in the Google Analytics interface only if they--- have at least one profile.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.insert@.-module Network.Google.Resource.Analytics.Management.WebProperties.Insert-    (-    -- * REST Resource-      ManagementWebPropertiesInsertResource--    -- * Creating a Request-    , managementWebPropertiesInsert-    , ManagementWebPropertiesInsert--    -- * Request Lenses-    , mwpiPayload-    , mwpiAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webproperties.insert@ method which the--- 'ManagementWebPropertiesInsert' request conforms to.-type ManagementWebPropertiesInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] WebProperty :>-                     Post '[JSON] WebProperty---- | Create a new property if the account has fewer than 20 properties. Web--- properties are visible in the Google Analytics interface only if they--- have at least one profile.------ /See:/ 'managementWebPropertiesInsert' smart constructor.-data ManagementWebPropertiesInsert =-  ManagementWebPropertiesInsert'-    { _mwpiPayload   :: !WebProperty-    , _mwpiAccountId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertiesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpiPayload'------ * 'mwpiAccountId'-managementWebPropertiesInsert-    :: WebProperty -- ^ 'mwpiPayload'-    -> Text -- ^ 'mwpiAccountId'-    -> ManagementWebPropertiesInsert-managementWebPropertiesInsert pMwpiPayload_ pMwpiAccountId_ =-  ManagementWebPropertiesInsert'-    {_mwpiPayload = pMwpiPayload_, _mwpiAccountId = pMwpiAccountId_}----- | Multipart request metadata.-mwpiPayload :: Lens' ManagementWebPropertiesInsert WebProperty-mwpiPayload-  = lens _mwpiPayload (\ s a -> s{_mwpiPayload = a})---- | Account ID to create the web property for.-mwpiAccountId :: Lens' ManagementWebPropertiesInsert Text-mwpiAccountId-  = lens _mwpiAccountId-      (\ s a -> s{_mwpiAccountId = a})--instance GoogleRequest ManagementWebPropertiesInsert-         where-        type Rs ManagementWebPropertiesInsert = WebProperty-        type Scopes ManagementWebPropertiesInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementWebPropertiesInsert'{..}-          = go _mwpiAccountId (Just AltJSON) _mwpiPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertiesInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs 
@@ -1,126 +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.Analytics.Management.WebProperties.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)------ Lists web properties to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.list@.-module Network.Google.Resource.Analytics.Management.WebProperties.List-    (-    -- * REST Resource-      ManagementWebPropertiesListResource--    -- * Creating a Request-    , managementWebPropertiesList-    , ManagementWebPropertiesList--    -- * Request Lenses-    , mwplAccountId-    , mwplStartIndex-    , mwplMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webproperties.list@ method which the--- 'ManagementWebPropertiesList' request conforms to.-type ManagementWebPropertiesListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 QueryParam "start-index" (Textual Int32) :>-                   QueryParam "max-results" (Textual Int32) :>-                     QueryParam "alt" AltJSON :> Get '[JSON] WebProperties---- | Lists web properties to which the user has access.------ /See:/ 'managementWebPropertiesList' smart constructor.-data ManagementWebPropertiesList =-  ManagementWebPropertiesList'-    { _mwplAccountId  :: !Text-    , _mwplStartIndex :: !(Maybe (Textual Int32))-    , _mwplMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertiesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwplAccountId'------ * 'mwplStartIndex'------ * 'mwplMaxResults'-managementWebPropertiesList-    :: Text -- ^ 'mwplAccountId'-    -> ManagementWebPropertiesList-managementWebPropertiesList pMwplAccountId_ =-  ManagementWebPropertiesList'-    { _mwplAccountId = pMwplAccountId_-    , _mwplStartIndex = Nothing-    , _mwplMaxResults = Nothing-    }----- | Account ID to retrieve web properties for. Can either be a specific--- account ID or \'~all\', which refers to all the accounts that user has--- access to.-mwplAccountId :: Lens' ManagementWebPropertiesList Text-mwplAccountId-  = lens _mwplAccountId-      (\ s a -> s{_mwplAccountId = a})---- | An index of the first entity to retrieve. Use this parameter as a--- pagination mechanism along with the max-results parameter.-mwplStartIndex :: Lens' ManagementWebPropertiesList (Maybe Int32)-mwplStartIndex-  = lens _mwplStartIndex-      (\ s a -> s{_mwplStartIndex = a})-      . mapping _Coerce---- | The maximum number of web properties to include in this response.-mwplMaxResults :: Lens' ManagementWebPropertiesList (Maybe Int32)-mwplMaxResults-  = lens _mwplMaxResults-      (\ s a -> s{_mwplMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ManagementWebPropertiesList-         where-        type Rs ManagementWebPropertiesList = WebProperties-        type Scopes ManagementWebPropertiesList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient ManagementWebPropertiesList'{..}-          = go _mwplAccountId _mwplStartIndex _mwplMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementWebPropertiesListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.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.Analytics.Management.WebProperties.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)------ Updates an existing web property. This method supports patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.patch@.-module Network.Google.Resource.Analytics.Management.WebProperties.Patch-    (-    -- * REST Resource-      ManagementWebPropertiesPatchResource--    -- * Creating a Request-    , managementWebPropertiesPatch-    , ManagementWebPropertiesPatch--    -- * Request Lenses-    , mwppWebPropertyId-    , mwppPayload-    , mwppAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webproperties.patch@ method which the--- 'ManagementWebPropertiesPatch' request conforms to.-type ManagementWebPropertiesPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] WebProperty :>-                       Patch '[JSON] WebProperty---- | Updates an existing web property. This method supports patch semantics.------ /See:/ 'managementWebPropertiesPatch' smart constructor.-data ManagementWebPropertiesPatch =-  ManagementWebPropertiesPatch'-    { _mwppWebPropertyId :: !Text-    , _mwppPayload       :: !WebProperty-    , _mwppAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertiesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwppWebPropertyId'------ * 'mwppPayload'------ * 'mwppAccountId'-managementWebPropertiesPatch-    :: Text -- ^ 'mwppWebPropertyId'-    -> WebProperty -- ^ 'mwppPayload'-    -> Text -- ^ 'mwppAccountId'-    -> ManagementWebPropertiesPatch-managementWebPropertiesPatch pMwppWebPropertyId_ pMwppPayload_ pMwppAccountId_ =-  ManagementWebPropertiesPatch'-    { _mwppWebPropertyId = pMwppWebPropertyId_-    , _mwppPayload = pMwppPayload_-    , _mwppAccountId = pMwppAccountId_-    }----- | Web property ID-mwppWebPropertyId :: Lens' ManagementWebPropertiesPatch Text-mwppWebPropertyId-  = lens _mwppWebPropertyId-      (\ s a -> s{_mwppWebPropertyId = a})---- | Multipart request metadata.-mwppPayload :: Lens' ManagementWebPropertiesPatch WebProperty-mwppPayload-  = lens _mwppPayload (\ s a -> s{_mwppPayload = a})---- | Account ID to which the web property belongs-mwppAccountId :: Lens' ManagementWebPropertiesPatch Text-mwppAccountId-  = lens _mwppAccountId-      (\ s a -> s{_mwppAccountId = a})--instance GoogleRequest ManagementWebPropertiesPatch-         where-        type Rs ManagementWebPropertiesPatch = WebProperty-        type Scopes ManagementWebPropertiesPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementWebPropertiesPatch'{..}-          = go _mwppAccountId _mwppWebPropertyId (Just AltJSON)-              _mwppPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy ManagementWebPropertiesPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.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.Analytics.Management.WebProperties.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)------ Updates an existing web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webproperties.update@.-module Network.Google.Resource.Analytics.Management.WebProperties.Update-    (-    -- * REST Resource-      ManagementWebPropertiesUpdateResource--    -- * Creating a Request-    , managementWebPropertiesUpdate-    , ManagementWebPropertiesUpdate--    -- * Request Lenses-    , mwpuWebPropertyId-    , mwpuPayload-    , mwpuAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webproperties.update@ method which the--- 'ManagementWebPropertiesUpdate' request conforms to.-type ManagementWebPropertiesUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] WebProperty :>-                       Put '[JSON] WebProperty---- | Updates an existing web property.------ /See:/ 'managementWebPropertiesUpdate' smart constructor.-data ManagementWebPropertiesUpdate =-  ManagementWebPropertiesUpdate'-    { _mwpuWebPropertyId :: !Text-    , _mwpuPayload       :: !WebProperty-    , _mwpuAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertiesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpuWebPropertyId'------ * 'mwpuPayload'------ * 'mwpuAccountId'-managementWebPropertiesUpdate-    :: Text -- ^ 'mwpuWebPropertyId'-    -> WebProperty -- ^ 'mwpuPayload'-    -> Text -- ^ 'mwpuAccountId'-    -> ManagementWebPropertiesUpdate-managementWebPropertiesUpdate pMwpuWebPropertyId_ pMwpuPayload_ pMwpuAccountId_ =-  ManagementWebPropertiesUpdate'-    { _mwpuWebPropertyId = pMwpuWebPropertyId_-    , _mwpuPayload = pMwpuPayload_-    , _mwpuAccountId = pMwpuAccountId_-    }----- | Web property ID-mwpuWebPropertyId :: Lens' ManagementWebPropertiesUpdate Text-mwpuWebPropertyId-  = lens _mwpuWebPropertyId-      (\ s a -> s{_mwpuWebPropertyId = a})---- | Multipart request metadata.-mwpuPayload :: Lens' ManagementWebPropertiesUpdate WebProperty-mwpuPayload-  = lens _mwpuPayload (\ s a -> s{_mwpuPayload = a})---- | Account ID to which the web property belongs-mwpuAccountId :: Lens' ManagementWebPropertiesUpdate Text-mwpuAccountId-  = lens _mwpuAccountId-      (\ s a -> s{_mwpuAccountId = a})--instance GoogleRequest ManagementWebPropertiesUpdate-         where-        type Rs ManagementWebPropertiesUpdate = WebProperty-        type Scopes ManagementWebPropertiesUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient ManagementWebPropertiesUpdate'{..}-          = go _mwpuAccountId _mwpuWebPropertyId (Just AltJSON)-              _mwpuPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertiesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs 
@@ -1,128 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Deletes a web property-Google Ads link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.delete@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksDeleteResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksDelete-    , ManagementWebPropertyAdWordsLinksDelete--    -- * Request Lenses-    , mwpawldWebPropertyId-    , mwpawldAccountId-    , mwpawldWebPropertyAdWordsLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.delete@ method which the--- 'ManagementWebPropertyAdWordsLinksDelete' request conforms to.-type ManagementWebPropertyAdWordsLinksDeleteResource-     =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     Capture "webPropertyAdWordsLinkId" Text :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a web property-Google Ads link.------ /See:/ 'managementWebPropertyAdWordsLinksDelete' smart constructor.-data ManagementWebPropertyAdWordsLinksDelete =-  ManagementWebPropertyAdWordsLinksDelete'-    { _mwpawldWebPropertyId            :: !Text-    , _mwpawldAccountId                :: !Text-    , _mwpawldWebPropertyAdWordsLinkId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawldWebPropertyId'------ * 'mwpawldAccountId'------ * 'mwpawldWebPropertyAdWordsLinkId'-managementWebPropertyAdWordsLinksDelete-    :: Text -- ^ 'mwpawldWebPropertyId'-    -> Text -- ^ 'mwpawldAccountId'-    -> Text -- ^ 'mwpawldWebPropertyAdWordsLinkId'-    -> ManagementWebPropertyAdWordsLinksDelete-managementWebPropertyAdWordsLinksDelete pMwpawldWebPropertyId_ pMwpawldAccountId_ pMwpawldWebPropertyAdWordsLinkId_ =-  ManagementWebPropertyAdWordsLinksDelete'-    { _mwpawldWebPropertyId = pMwpawldWebPropertyId_-    , _mwpawldAccountId = pMwpawldAccountId_-    , _mwpawldWebPropertyAdWordsLinkId = pMwpawldWebPropertyAdWordsLinkId_-    }----- | Web property ID to delete the Google Ads link for.-mwpawldWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text-mwpawldWebPropertyId-  = lens _mwpawldWebPropertyId-      (\ s a -> s{_mwpawldWebPropertyId = a})---- | ID of the account which the given web property belongs to.-mwpawldAccountId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text-mwpawldAccountId-  = lens _mwpawldAccountId-      (\ s a -> s{_mwpawldAccountId = a})---- | Web property Google Ads link ID.-mwpawldWebPropertyAdWordsLinkId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text-mwpawldWebPropertyAdWordsLinkId-  = lens _mwpawldWebPropertyAdWordsLinkId-      (\ s a -> s{_mwpawldWebPropertyAdWordsLinkId = a})--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksDelete-         where-        type Rs ManagementWebPropertyAdWordsLinksDelete = ()-        type Scopes ManagementWebPropertyAdWordsLinksDelete =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementWebPropertyAdWordsLinksDelete'{..}-          = go _mwpawldAccountId _mwpawldWebPropertyId-              _mwpawldWebPropertyAdWordsLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ManagementWebPropertyAdWordsLinksDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs 
@@ -1,129 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Returns a web property-Google Ads link to which the user has access.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.get@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Get-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksGetResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksGet-    , ManagementWebPropertyAdWordsLinksGet--    -- * Request Lenses-    , mwpawlgWebPropertyId-    , mwpawlgAccountId-    , mwpawlgWebPropertyAdWordsLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.get@ method which the--- 'ManagementWebPropertyAdWordsLinksGet' request conforms to.-type ManagementWebPropertyAdWordsLinksGetResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     Capture "webPropertyAdWordsLinkId" Text :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] EntityAdWordsLink---- | Returns a web property-Google Ads link to which the user has access.------ /See:/ 'managementWebPropertyAdWordsLinksGet' smart constructor.-data ManagementWebPropertyAdWordsLinksGet =-  ManagementWebPropertyAdWordsLinksGet'-    { _mwpawlgWebPropertyId            :: !Text-    , _mwpawlgAccountId                :: !Text-    , _mwpawlgWebPropertyAdWordsLinkId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawlgWebPropertyId'------ * 'mwpawlgAccountId'------ * 'mwpawlgWebPropertyAdWordsLinkId'-managementWebPropertyAdWordsLinksGet-    :: Text -- ^ 'mwpawlgWebPropertyId'-    -> Text -- ^ 'mwpawlgAccountId'-    -> Text -- ^ 'mwpawlgWebPropertyAdWordsLinkId'-    -> ManagementWebPropertyAdWordsLinksGet-managementWebPropertyAdWordsLinksGet pMwpawlgWebPropertyId_ pMwpawlgAccountId_ pMwpawlgWebPropertyAdWordsLinkId_ =-  ManagementWebPropertyAdWordsLinksGet'-    { _mwpawlgWebPropertyId = pMwpawlgWebPropertyId_-    , _mwpawlgAccountId = pMwpawlgAccountId_-    , _mwpawlgWebPropertyAdWordsLinkId = pMwpawlgWebPropertyAdWordsLinkId_-    }----- | Web property ID to retrieve the Google Ads link for.-mwpawlgWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksGet Text-mwpawlgWebPropertyId-  = lens _mwpawlgWebPropertyId-      (\ s a -> s{_mwpawlgWebPropertyId = a})---- | ID of the account which the given web property belongs to.-mwpawlgAccountId :: Lens' ManagementWebPropertyAdWordsLinksGet Text-mwpawlgAccountId-  = lens _mwpawlgAccountId-      (\ s a -> s{_mwpawlgAccountId = a})---- | Web property-Google Ads link ID.-mwpawlgWebPropertyAdWordsLinkId :: Lens' ManagementWebPropertyAdWordsLinksGet Text-mwpawlgWebPropertyAdWordsLinkId-  = lens _mwpawlgWebPropertyAdWordsLinkId-      (\ s a -> s{_mwpawlgWebPropertyAdWordsLinkId = a})--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksGet-         where-        type Rs ManagementWebPropertyAdWordsLinksGet =-             EntityAdWordsLink-        type Scopes ManagementWebPropertyAdWordsLinksGet =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient-          ManagementWebPropertyAdWordsLinksGet'{..}-          = go _mwpawlgAccountId _mwpawlgWebPropertyId-              _mwpawlgWebPropertyAdWordsLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyAdWordsLinksGetResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs 
@@ -1,130 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Creates a webProperty-Google Ads link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.insert@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Insert-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksInsertResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksInsert-    , ManagementWebPropertyAdWordsLinksInsert--    -- * Request Lenses-    , mwpawliWebPropertyId-    , mwpawliPayload-    , mwpawliAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.insert@ method which the--- 'ManagementWebPropertyAdWordsLinksInsert' request conforms to.-type ManagementWebPropertyAdWordsLinksInsertResource-     =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] EntityAdWordsLink :>-                         Post '[JSON] EntityAdWordsLink---- | Creates a webProperty-Google Ads link.------ /See:/ 'managementWebPropertyAdWordsLinksInsert' smart constructor.-data ManagementWebPropertyAdWordsLinksInsert =-  ManagementWebPropertyAdWordsLinksInsert'-    { _mwpawliWebPropertyId :: !Text-    , _mwpawliPayload       :: !EntityAdWordsLink-    , _mwpawliAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawliWebPropertyId'------ * 'mwpawliPayload'------ * 'mwpawliAccountId'-managementWebPropertyAdWordsLinksInsert-    :: Text -- ^ 'mwpawliWebPropertyId'-    -> EntityAdWordsLink -- ^ 'mwpawliPayload'-    -> Text -- ^ 'mwpawliAccountId'-    -> ManagementWebPropertyAdWordsLinksInsert-managementWebPropertyAdWordsLinksInsert pMwpawliWebPropertyId_ pMwpawliPayload_ pMwpawliAccountId_ =-  ManagementWebPropertyAdWordsLinksInsert'-    { _mwpawliWebPropertyId = pMwpawliWebPropertyId_-    , _mwpawliPayload = pMwpawliPayload_-    , _mwpawliAccountId = pMwpawliAccountId_-    }----- | Web property ID to create the link for.-mwpawliWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksInsert Text-mwpawliWebPropertyId-  = lens _mwpawliWebPropertyId-      (\ s a -> s{_mwpawliWebPropertyId = a})---- | Multipart request metadata.-mwpawliPayload :: Lens' ManagementWebPropertyAdWordsLinksInsert EntityAdWordsLink-mwpawliPayload-  = lens _mwpawliPayload-      (\ s a -> s{_mwpawliPayload = a})---- | ID of the Google Analytics account to create the link for.-mwpawliAccountId :: Lens' ManagementWebPropertyAdWordsLinksInsert Text-mwpawliAccountId-  = lens _mwpawliAccountId-      (\ s a -> s{_mwpawliAccountId = a})--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksInsert-         where-        type Rs ManagementWebPropertyAdWordsLinksInsert =-             EntityAdWordsLink-        type Scopes ManagementWebPropertyAdWordsLinksInsert =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementWebPropertyAdWordsLinksInsert'{..}-          = go _mwpawliAccountId _mwpawliWebPropertyId-              (Just AltJSON)-              _mwpawliPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ManagementWebPropertyAdWordsLinksInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs 
@@ -1,146 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Lists webProperty-Google Ads links for a given web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.list@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.List-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksListResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksList-    , ManagementWebPropertyAdWordsLinksList--    -- * Request Lenses-    , mwpawllWebPropertyId-    , mwpawllAccountId-    , mwpawllStartIndex-    , mwpawllMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.list@ method which the--- 'ManagementWebPropertyAdWordsLinksList' request conforms to.-type ManagementWebPropertyAdWordsLinksListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] EntityAdWordsLinks---- | Lists webProperty-Google Ads links for a given web property.------ /See:/ 'managementWebPropertyAdWordsLinksList' smart constructor.-data ManagementWebPropertyAdWordsLinksList =-  ManagementWebPropertyAdWordsLinksList'-    { _mwpawllWebPropertyId :: !Text-    , _mwpawllAccountId     :: !Text-    , _mwpawllStartIndex    :: !(Maybe (Textual Int32))-    , _mwpawllMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawllWebPropertyId'------ * 'mwpawllAccountId'------ * 'mwpawllStartIndex'------ * 'mwpawllMaxResults'-managementWebPropertyAdWordsLinksList-    :: Text -- ^ 'mwpawllWebPropertyId'-    -> Text -- ^ 'mwpawllAccountId'-    -> ManagementWebPropertyAdWordsLinksList-managementWebPropertyAdWordsLinksList pMwpawllWebPropertyId_ pMwpawllAccountId_ =-  ManagementWebPropertyAdWordsLinksList'-    { _mwpawllWebPropertyId = pMwpawllWebPropertyId_-    , _mwpawllAccountId = pMwpawllAccountId_-    , _mwpawllStartIndex = Nothing-    , _mwpawllMaxResults = Nothing-    }----- | Web property ID to retrieve the Google Ads links for.-mwpawllWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksList Text-mwpawllWebPropertyId-  = lens _mwpawllWebPropertyId-      (\ s a -> s{_mwpawllWebPropertyId = a})---- | ID of the account which the given web property belongs to.-mwpawllAccountId :: Lens' ManagementWebPropertyAdWordsLinksList Text-mwpawllAccountId-  = lens _mwpawllAccountId-      (\ s a -> s{_mwpawllAccountId = a})---- | An index of the first webProperty-Google Ads link to retrieve. Use this--- parameter as a pagination mechanism along with the max-results--- parameter.-mwpawllStartIndex :: Lens' ManagementWebPropertyAdWordsLinksList (Maybe Int32)-mwpawllStartIndex-  = lens _mwpawllStartIndex-      (\ s a -> s{_mwpawllStartIndex = a})-      . mapping _Coerce---- | The maximum number of webProperty-Google Ads links to include in this--- response.-mwpawllMaxResults :: Lens' ManagementWebPropertyAdWordsLinksList (Maybe Int32)-mwpawllMaxResults-  = lens _mwpawllMaxResults-      (\ s a -> s{_mwpawllMaxResults = a})-      . mapping _Coerce--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksList-         where-        type Rs ManagementWebPropertyAdWordsLinksList =-             EntityAdWordsLinks-        type Scopes ManagementWebPropertyAdWordsLinksList =-             '["https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient-          ManagementWebPropertyAdWordsLinksList'{..}-          = go _mwpawllAccountId _mwpawllWebPropertyId-              _mwpawllStartIndex-              _mwpawllMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyAdWordsLinksListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs 
@@ -1,144 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Updates an existing webProperty-Google Ads link. This method supports--- patch semantics.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.patch@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Patch-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksPatchResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksPatch-    , ManagementWebPropertyAdWordsLinksPatch--    -- * Request Lenses-    , mwpawlpWebPropertyId-    , mwpawlpPayload-    , mwpawlpAccountId-    , mwpawlpWebPropertyAdWordsLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.patch@ method which the--- 'ManagementWebPropertyAdWordsLinksPatch' request conforms to.-type ManagementWebPropertyAdWordsLinksPatchResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     Capture "webPropertyAdWordsLinkId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] EntityAdWordsLink :>-                           Patch '[JSON] EntityAdWordsLink---- | Updates an existing webProperty-Google Ads link. This method supports--- patch semantics.------ /See:/ 'managementWebPropertyAdWordsLinksPatch' smart constructor.-data ManagementWebPropertyAdWordsLinksPatch =-  ManagementWebPropertyAdWordsLinksPatch'-    { _mwpawlpWebPropertyId            :: !Text-    , _mwpawlpPayload                  :: !EntityAdWordsLink-    , _mwpawlpAccountId                :: !Text-    , _mwpawlpWebPropertyAdWordsLinkId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawlpWebPropertyId'------ * 'mwpawlpPayload'------ * 'mwpawlpAccountId'------ * 'mwpawlpWebPropertyAdWordsLinkId'-managementWebPropertyAdWordsLinksPatch-    :: Text -- ^ 'mwpawlpWebPropertyId'-    -> EntityAdWordsLink -- ^ 'mwpawlpPayload'-    -> Text -- ^ 'mwpawlpAccountId'-    -> Text -- ^ 'mwpawlpWebPropertyAdWordsLinkId'-    -> ManagementWebPropertyAdWordsLinksPatch-managementWebPropertyAdWordsLinksPatch pMwpawlpWebPropertyId_ pMwpawlpPayload_ pMwpawlpAccountId_ pMwpawlpWebPropertyAdWordsLinkId_ =-  ManagementWebPropertyAdWordsLinksPatch'-    { _mwpawlpWebPropertyId = pMwpawlpWebPropertyId_-    , _mwpawlpPayload = pMwpawlpPayload_-    , _mwpawlpAccountId = pMwpawlpAccountId_-    , _mwpawlpWebPropertyAdWordsLinkId = pMwpawlpWebPropertyAdWordsLinkId_-    }----- | Web property ID to retrieve the Google Ads link for.-mwpawlpWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksPatch Text-mwpawlpWebPropertyId-  = lens _mwpawlpWebPropertyId-      (\ s a -> s{_mwpawlpWebPropertyId = a})---- | Multipart request metadata.-mwpawlpPayload :: Lens' ManagementWebPropertyAdWordsLinksPatch EntityAdWordsLink-mwpawlpPayload-  = lens _mwpawlpPayload-      (\ s a -> s{_mwpawlpPayload = a})---- | ID of the account which the given web property belongs to.-mwpawlpAccountId :: Lens' ManagementWebPropertyAdWordsLinksPatch Text-mwpawlpAccountId-  = lens _mwpawlpAccountId-      (\ s a -> s{_mwpawlpAccountId = a})---- | Web property-Google Ads link ID.-mwpawlpWebPropertyAdWordsLinkId :: Lens' ManagementWebPropertyAdWordsLinksPatch Text-mwpawlpWebPropertyAdWordsLinkId-  = lens _mwpawlpWebPropertyAdWordsLinkId-      (\ s a -> s{_mwpawlpWebPropertyAdWordsLinkId = a})--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksPatch-         where-        type Rs ManagementWebPropertyAdWordsLinksPatch =-             EntityAdWordsLink-        type Scopes ManagementWebPropertyAdWordsLinksPatch =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementWebPropertyAdWordsLinksPatch'{..}-          = go _mwpawlpAccountId _mwpawlpWebPropertyId-              _mwpawlpWebPropertyAdWordsLinkId-              (Just AltJSON)-              _mwpawlpPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyAdWordsLinksPatchResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs 
@@ -1,144 +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.Analytics.Management.WebPropertyAdWordsLinks.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)------ Updates an existing webProperty-Google Ads link.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webPropertyAdWordsLinks.update@.-module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Update-    (-    -- * REST Resource-      ManagementWebPropertyAdWordsLinksUpdateResource--    -- * Creating a Request-    , managementWebPropertyAdWordsLinksUpdate-    , ManagementWebPropertyAdWordsLinksUpdate--    -- * Request Lenses-    , mwpawluWebPropertyId-    , mwpawluPayload-    , mwpawluAccountId-    , mwpawluWebPropertyAdWordsLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webPropertyAdWordsLinks.update@ method which the--- 'ManagementWebPropertyAdWordsLinksUpdate' request conforms to.-type ManagementWebPropertyAdWordsLinksUpdateResource-     =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityAdWordsLinks" :>-                     Capture "webPropertyAdWordsLinkId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] EntityAdWordsLink :>-                           Put '[JSON] EntityAdWordsLink---- | Updates an existing webProperty-Google Ads link.------ /See:/ 'managementWebPropertyAdWordsLinksUpdate' smart constructor.-data ManagementWebPropertyAdWordsLinksUpdate =-  ManagementWebPropertyAdWordsLinksUpdate'-    { _mwpawluWebPropertyId            :: !Text-    , _mwpawluPayload                  :: !EntityAdWordsLink-    , _mwpawluAccountId                :: !Text-    , _mwpawluWebPropertyAdWordsLinkId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyAdWordsLinksUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpawluWebPropertyId'------ * 'mwpawluPayload'------ * 'mwpawluAccountId'------ * 'mwpawluWebPropertyAdWordsLinkId'-managementWebPropertyAdWordsLinksUpdate-    :: Text -- ^ 'mwpawluWebPropertyId'-    -> EntityAdWordsLink -- ^ 'mwpawluPayload'-    -> Text -- ^ 'mwpawluAccountId'-    -> Text -- ^ 'mwpawluWebPropertyAdWordsLinkId'-    -> ManagementWebPropertyAdWordsLinksUpdate-managementWebPropertyAdWordsLinksUpdate pMwpawluWebPropertyId_ pMwpawluPayload_ pMwpawluAccountId_ pMwpawluWebPropertyAdWordsLinkId_ =-  ManagementWebPropertyAdWordsLinksUpdate'-    { _mwpawluWebPropertyId = pMwpawluWebPropertyId_-    , _mwpawluPayload = pMwpawluPayload_-    , _mwpawluAccountId = pMwpawluAccountId_-    , _mwpawluWebPropertyAdWordsLinkId = pMwpawluWebPropertyAdWordsLinkId_-    }----- | Web property ID to retrieve the Google Ads link for.-mwpawluWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksUpdate Text-mwpawluWebPropertyId-  = lens _mwpawluWebPropertyId-      (\ s a -> s{_mwpawluWebPropertyId = a})---- | Multipart request metadata.-mwpawluPayload :: Lens' ManagementWebPropertyAdWordsLinksUpdate EntityAdWordsLink-mwpawluPayload-  = lens _mwpawluPayload-      (\ s a -> s{_mwpawluPayload = a})---- | ID of the account which the given web property belongs to.-mwpawluAccountId :: Lens' ManagementWebPropertyAdWordsLinksUpdate Text-mwpawluAccountId-  = lens _mwpawluAccountId-      (\ s a -> s{_mwpawluAccountId = a})---- | Web property-Google Ads link ID.-mwpawluWebPropertyAdWordsLinkId :: Lens' ManagementWebPropertyAdWordsLinksUpdate Text-mwpawluWebPropertyAdWordsLinkId-  = lens _mwpawluWebPropertyAdWordsLinkId-      (\ s a -> s{_mwpawluWebPropertyAdWordsLinkId = a})--instance GoogleRequest-           ManagementWebPropertyAdWordsLinksUpdate-         where-        type Rs ManagementWebPropertyAdWordsLinksUpdate =-             EntityAdWordsLink-        type Scopes ManagementWebPropertyAdWordsLinksUpdate =-             '["https://www.googleapis.com/auth/analytics.edit"]-        requestClient-          ManagementWebPropertyAdWordsLinksUpdate'{..}-          = go _mwpawluAccountId _mwpawluWebPropertyId-              _mwpawluWebPropertyAdWordsLinkId-              (Just AltJSON)-              _mwpawluPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ManagementWebPropertyAdWordsLinksUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs 
@@ -1,125 +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.Analytics.Management.WebPropertyUserLinks.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)------ Removes a user from the given web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.delete@.-module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Delete-    (-    -- * REST Resource-      ManagementWebPropertyUserLinksDeleteResource--    -- * Creating a Request-    , managementWebPropertyUserLinksDelete-    , ManagementWebPropertyUserLinksDelete--    -- * Request Lenses-    , mwpuldWebPropertyId-    , mwpuldAccountId-    , mwpuldLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webpropertyUserLinks.delete@ method which the--- 'ManagementWebPropertyUserLinksDelete' request conforms to.-type ManagementWebPropertyUserLinksDeleteResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityUserLinks" :>-                     Capture "linkId" Text :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Removes a user from the given web property.------ /See:/ 'managementWebPropertyUserLinksDelete' smart constructor.-data ManagementWebPropertyUserLinksDelete =-  ManagementWebPropertyUserLinksDelete'-    { _mwpuldWebPropertyId :: !Text-    , _mwpuldAccountId     :: !Text-    , _mwpuldLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyUserLinksDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpuldWebPropertyId'------ * 'mwpuldAccountId'------ * 'mwpuldLinkId'-managementWebPropertyUserLinksDelete-    :: Text -- ^ 'mwpuldWebPropertyId'-    -> Text -- ^ 'mwpuldAccountId'-    -> Text -- ^ 'mwpuldLinkId'-    -> ManagementWebPropertyUserLinksDelete-managementWebPropertyUserLinksDelete pMwpuldWebPropertyId_ pMwpuldAccountId_ pMwpuldLinkId_ =-  ManagementWebPropertyUserLinksDelete'-    { _mwpuldWebPropertyId = pMwpuldWebPropertyId_-    , _mwpuldAccountId = pMwpuldAccountId_-    , _mwpuldLinkId = pMwpuldLinkId_-    }----- | Web Property ID to delete the user link for.-mwpuldWebPropertyId :: Lens' ManagementWebPropertyUserLinksDelete Text-mwpuldWebPropertyId-  = lens _mwpuldWebPropertyId-      (\ s a -> s{_mwpuldWebPropertyId = a})---- | Account ID to delete the user link for.-mwpuldAccountId :: Lens' ManagementWebPropertyUserLinksDelete Text-mwpuldAccountId-  = lens _mwpuldAccountId-      (\ s a -> s{_mwpuldAccountId = a})---- | Link ID to delete the user link for.-mwpuldLinkId :: Lens' ManagementWebPropertyUserLinksDelete Text-mwpuldLinkId-  = lens _mwpuldLinkId (\ s a -> s{_mwpuldLinkId = a})--instance GoogleRequest-           ManagementWebPropertyUserLinksDelete-         where-        type Rs ManagementWebPropertyUserLinksDelete = ()-        type Scopes ManagementWebPropertyUserLinksDelete =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient-          ManagementWebPropertyUserLinksDelete'{..}-          = go _mwpuldAccountId _mwpuldWebPropertyId-              _mwpuldLinkId-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyUserLinksDeleteResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs 
@@ -1,128 +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.Analytics.Management.WebPropertyUserLinks.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)------ Adds a new user to the given web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.insert@.-module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Insert-    (-    -- * REST Resource-      ManagementWebPropertyUserLinksInsertResource--    -- * Creating a Request-    , managementWebPropertyUserLinksInsert-    , ManagementWebPropertyUserLinksInsert--    -- * Request Lenses-    , mwpuliWebPropertyId-    , mwpuliPayload-    , mwpuliAccountId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webpropertyUserLinks.insert@ method which the--- 'ManagementWebPropertyUserLinksInsert' request conforms to.-type ManagementWebPropertyUserLinksInsertResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityUserLinks" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] EntityUserLink :>-                         Post '[JSON] EntityUserLink---- | Adds a new user to the given web property.------ /See:/ 'managementWebPropertyUserLinksInsert' smart constructor.-data ManagementWebPropertyUserLinksInsert =-  ManagementWebPropertyUserLinksInsert'-    { _mwpuliWebPropertyId :: !Text-    , _mwpuliPayload       :: !EntityUserLink-    , _mwpuliAccountId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyUserLinksInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpuliWebPropertyId'------ * 'mwpuliPayload'------ * 'mwpuliAccountId'-managementWebPropertyUserLinksInsert-    :: Text -- ^ 'mwpuliWebPropertyId'-    -> EntityUserLink -- ^ 'mwpuliPayload'-    -> Text -- ^ 'mwpuliAccountId'-    -> ManagementWebPropertyUserLinksInsert-managementWebPropertyUserLinksInsert pMwpuliWebPropertyId_ pMwpuliPayload_ pMwpuliAccountId_ =-  ManagementWebPropertyUserLinksInsert'-    { _mwpuliWebPropertyId = pMwpuliWebPropertyId_-    , _mwpuliPayload = pMwpuliPayload_-    , _mwpuliAccountId = pMwpuliAccountId_-    }----- | Web Property ID to create the user link for.-mwpuliWebPropertyId :: Lens' ManagementWebPropertyUserLinksInsert Text-mwpuliWebPropertyId-  = lens _mwpuliWebPropertyId-      (\ s a -> s{_mwpuliWebPropertyId = a})---- | Multipart request metadata.-mwpuliPayload :: Lens' ManagementWebPropertyUserLinksInsert EntityUserLink-mwpuliPayload-  = lens _mwpuliPayload-      (\ s a -> s{_mwpuliPayload = a})---- | Account ID to create the user link for.-mwpuliAccountId :: Lens' ManagementWebPropertyUserLinksInsert Text-mwpuliAccountId-  = lens _mwpuliAccountId-      (\ s a -> s{_mwpuliAccountId = a})--instance GoogleRequest-           ManagementWebPropertyUserLinksInsert-         where-        type Rs ManagementWebPropertyUserLinksInsert =-             EntityUserLink-        type Scopes ManagementWebPropertyUserLinksInsert =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient-          ManagementWebPropertyUserLinksInsert'{..}-          = go _mwpuliAccountId _mwpuliWebPropertyId-              (Just AltJSON)-              _mwpuliPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyUserLinksInsertResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs 
@@ -1,147 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.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)------ Lists webProperty-user links for a given web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.list@.-module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.List-    (-    -- * REST Resource-      ManagementWebPropertyUserLinksListResource--    -- * Creating a Request-    , managementWebPropertyUserLinksList-    , ManagementWebPropertyUserLinksList--    -- * Request Lenses-    , mwpullWebPropertyId-    , mwpullAccountId-    , mwpullStartIndex-    , mwpullMaxResults-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webpropertyUserLinks.list@ method which the--- 'ManagementWebPropertyUserLinksList' request conforms to.-type ManagementWebPropertyUserLinksListResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityUserLinks" :>-                     QueryParam "start-index" (Textual Int32) :>-                       QueryParam "max-results" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] EntityUserLinks---- | Lists webProperty-user links for a given web property.------ /See:/ 'managementWebPropertyUserLinksList' smart constructor.-data ManagementWebPropertyUserLinksList =-  ManagementWebPropertyUserLinksList'-    { _mwpullWebPropertyId :: !Text-    , _mwpullAccountId     :: !Text-    , _mwpullStartIndex    :: !(Maybe (Textual Int32))-    , _mwpullMaxResults    :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyUserLinksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpullWebPropertyId'------ * 'mwpullAccountId'------ * 'mwpullStartIndex'------ * 'mwpullMaxResults'-managementWebPropertyUserLinksList-    :: Text -- ^ 'mwpullWebPropertyId'-    -> Text -- ^ 'mwpullAccountId'-    -> ManagementWebPropertyUserLinksList-managementWebPropertyUserLinksList pMwpullWebPropertyId_ pMwpullAccountId_ =-  ManagementWebPropertyUserLinksList'-    { _mwpullWebPropertyId = pMwpullWebPropertyId_-    , _mwpullAccountId = pMwpullAccountId_-    , _mwpullStartIndex = Nothing-    , _mwpullMaxResults = Nothing-    }----- | Web Property ID for the webProperty-user links to retrieve. Can either--- be a specific web property ID or \'~all\', which refers to all the web--- properties that user has access to.-mwpullWebPropertyId :: Lens' ManagementWebPropertyUserLinksList Text-mwpullWebPropertyId-  = lens _mwpullWebPropertyId-      (\ s a -> s{_mwpullWebPropertyId = a})---- | Account ID which the given web property belongs to.-mwpullAccountId :: Lens' ManagementWebPropertyUserLinksList Text-mwpullAccountId-  = lens _mwpullAccountId-      (\ s a -> s{_mwpullAccountId = a})---- | An index of the first webProperty-user link to retrieve. Use this--- parameter as a pagination mechanism along with the max-results--- parameter.-mwpullStartIndex :: Lens' ManagementWebPropertyUserLinksList (Maybe Int32)-mwpullStartIndex-  = lens _mwpullStartIndex-      (\ s a -> s{_mwpullStartIndex = a})-      . mapping _Coerce---- | The maximum number of webProperty-user Links to include in this--- response.-mwpullMaxResults :: Lens' ManagementWebPropertyUserLinksList (Maybe Int32)-mwpullMaxResults-  = lens _mwpullMaxResults-      (\ s a -> s{_mwpullMaxResults = a})-      . mapping _Coerce--instance GoogleRequest-           ManagementWebPropertyUserLinksList-         where-        type Rs ManagementWebPropertyUserLinksList =-             EntityUserLinks-        type Scopes ManagementWebPropertyUserLinksList =-             '["https://www.googleapis.com/auth/analytics.manage.users",-               "https://www.googleapis.com/auth/analytics.manage.users.readonly"]-        requestClient ManagementWebPropertyUserLinksList'{..}-          = go _mwpullAccountId _mwpullWebPropertyId-              _mwpullStartIndex-              _mwpullMaxResults-              (Just AltJSON)-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyUserLinksListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs 
@@ -1,141 +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.Analytics.Management.WebPropertyUserLinks.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)------ Updates permissions for an existing user on the given web property.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.webpropertyUserLinks.update@.-module Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update-    (-    -- * REST Resource-      ManagementWebPropertyUserLinksUpdateResource--    -- * Creating a Request-    , managementWebPropertyUserLinksUpdate-    , ManagementWebPropertyUserLinksUpdate--    -- * Request Lenses-    , mwpuluWebPropertyId-    , mwpuluPayload-    , mwpuluAccountId-    , mwpuluLinkId-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.management.webpropertyUserLinks.update@ method which the--- 'ManagementWebPropertyUserLinksUpdate' request conforms to.-type ManagementWebPropertyUserLinksUpdateResource =-     "analytics" :>-       "v3" :>-         "management" :>-           "accounts" :>-             Capture "accountId" Text :>-               "webproperties" :>-                 Capture "webPropertyId" Text :>-                   "entityUserLinks" :>-                     Capture "linkId" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] EntityUserLink :>-                           Put '[JSON] EntityUserLink---- | Updates permissions for an existing user on the given web property.------ /See:/ 'managementWebPropertyUserLinksUpdate' smart constructor.-data ManagementWebPropertyUserLinksUpdate =-  ManagementWebPropertyUserLinksUpdate'-    { _mwpuluWebPropertyId :: !Text-    , _mwpuluPayload       :: !EntityUserLink-    , _mwpuluAccountId     :: !Text-    , _mwpuluLinkId        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ManagementWebPropertyUserLinksUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mwpuluWebPropertyId'------ * 'mwpuluPayload'------ * 'mwpuluAccountId'------ * 'mwpuluLinkId'-managementWebPropertyUserLinksUpdate-    :: Text -- ^ 'mwpuluWebPropertyId'-    -> EntityUserLink -- ^ 'mwpuluPayload'-    -> Text -- ^ 'mwpuluAccountId'-    -> Text -- ^ 'mwpuluLinkId'-    -> ManagementWebPropertyUserLinksUpdate-managementWebPropertyUserLinksUpdate pMwpuluWebPropertyId_ pMwpuluPayload_ pMwpuluAccountId_ pMwpuluLinkId_ =-  ManagementWebPropertyUserLinksUpdate'-    { _mwpuluWebPropertyId = pMwpuluWebPropertyId_-    , _mwpuluPayload = pMwpuluPayload_-    , _mwpuluAccountId = pMwpuluAccountId_-    , _mwpuluLinkId = pMwpuluLinkId_-    }----- | Web property ID to update the account-user link for.-mwpuluWebPropertyId :: Lens' ManagementWebPropertyUserLinksUpdate Text-mwpuluWebPropertyId-  = lens _mwpuluWebPropertyId-      (\ s a -> s{_mwpuluWebPropertyId = a})---- | Multipart request metadata.-mwpuluPayload :: Lens' ManagementWebPropertyUserLinksUpdate EntityUserLink-mwpuluPayload-  = lens _mwpuluPayload-      (\ s a -> s{_mwpuluPayload = a})---- | Account ID to update the account-user link for.-mwpuluAccountId :: Lens' ManagementWebPropertyUserLinksUpdate Text-mwpuluAccountId-  = lens _mwpuluAccountId-      (\ s a -> s{_mwpuluAccountId = a})---- | Link ID to update the account-user link for.-mwpuluLinkId :: Lens' ManagementWebPropertyUserLinksUpdate Text-mwpuluLinkId-  = lens _mwpuluLinkId (\ s a -> s{_mwpuluLinkId = a})--instance GoogleRequest-           ManagementWebPropertyUserLinksUpdate-         where-        type Rs ManagementWebPropertyUserLinksUpdate =-             EntityUserLink-        type Scopes ManagementWebPropertyUserLinksUpdate =-             '["https://www.googleapis.com/auth/analytics.manage.users"]-        requestClient-          ManagementWebPropertyUserLinksUpdate'{..}-          = go _mwpuluAccountId _mwpuluWebPropertyId-              _mwpuluLinkId-              (Just AltJSON)-              _mwpuluPayload-              analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ManagementWebPropertyUserLinksUpdateResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs 
@@ -1,92 +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.Analytics.Metadata.Columns.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)------ Lists all columns for a report type------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.metadata.columns.list@.-module Network.Google.Resource.Analytics.Metadata.Columns.List-    (-    -- * REST Resource-      MetadataColumnsListResource--    -- * Creating a Request-    , metadataColumnsList-    , MetadataColumnsList--    -- * Request Lenses-    , mclReportType-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.metadata.columns.list@ method which the--- 'MetadataColumnsList' request conforms to.-type MetadataColumnsListResource =-     "analytics" :>-       "v3" :>-         "metadata" :>-           Capture "reportType" Text :>-             "columns" :>-               QueryParam "alt" AltJSON :> Get '[JSON] Columns---- | Lists all columns for a report type------ /See:/ 'metadataColumnsList' smart constructor.-newtype MetadataColumnsList =-  MetadataColumnsList'-    { _mclReportType :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetadataColumnsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mclReportType'-metadataColumnsList-    :: Text -- ^ 'mclReportType'-    -> MetadataColumnsList-metadataColumnsList pMclReportType_ =-  MetadataColumnsList' {_mclReportType = pMclReportType_}----- | Report type. Allowed Values: \'ga\'. Where \'ga\' corresponds to the--- Core Reporting API-mclReportType :: Lens' MetadataColumnsList Text-mclReportType-  = lens _mclReportType-      (\ s a -> s{_mclReportType = a})--instance GoogleRequest MetadataColumnsList where-        type Rs MetadataColumnsList = Columns-        type Scopes MetadataColumnsList =-             '["https://www.googleapis.com/auth/analytics",-               "https://www.googleapis.com/auth/analytics.edit",-               "https://www.googleapis.com/auth/analytics.readonly"]-        requestClient MetadataColumnsList'{..}-          = go _mclReportType (Just AltJSON) analyticsService-          where go-                  = buildClient-                      (Proxy :: Proxy MetadataColumnsListResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs 
@@ -1,92 +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.Analytics.Provisioning.CreateAccountTicket--- 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)------ Creates an account ticket.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.provisioning.createAccountTicket@.-module Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket-    (-    -- * REST Resource-      ProvisioningCreateAccountTicketResource--    -- * Creating a Request-    , provisioningCreateAccountTicket-    , ProvisioningCreateAccountTicket--    -- * Request Lenses-    , pPayload-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.provisioning.createAccountTicket@ method which the--- 'ProvisioningCreateAccountTicket' request conforms to.-type ProvisioningCreateAccountTicketResource =-     "analytics" :>-       "v3" :>-         "provisioning" :>-           "createAccountTicket" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] AccountTicket :>-                 Post '[JSON] AccountTicket---- | Creates an account ticket.------ /See:/ 'provisioningCreateAccountTicket' smart constructor.-newtype ProvisioningCreateAccountTicket =-  ProvisioningCreateAccountTicket'-    { _pPayload :: AccountTicket-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProvisioningCreateAccountTicket' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pPayload'-provisioningCreateAccountTicket-    :: AccountTicket -- ^ 'pPayload'-    -> ProvisioningCreateAccountTicket-provisioningCreateAccountTicket pPPayload_ =-  ProvisioningCreateAccountTicket' {_pPayload = pPPayload_}----- | Multipart request metadata.-pPayload :: Lens' ProvisioningCreateAccountTicket AccountTicket-pPayload = lens _pPayload (\ s a -> s{_pPayload = a})--instance GoogleRequest-           ProvisioningCreateAccountTicket-         where-        type Rs ProvisioningCreateAccountTicket =-             AccountTicket-        type Scopes ProvisioningCreateAccountTicket =-             '["https://www.googleapis.com/auth/analytics.provision"]-        requestClient ProvisioningCreateAccountTicket'{..}-          = go (Just AltJSON) _pPayload analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProvisioningCreateAccountTicketResource)-                      mempty
− gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTree.hs 
@@ -1,92 +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.Analytics.Provisioning.CreateAccountTree--- 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)------ Provision account.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.provisioning.createAccountTree@.-module Network.Google.Resource.Analytics.Provisioning.CreateAccountTree-    (-    -- * REST Resource-      ProvisioningCreateAccountTreeResource--    -- * Creating a Request-    , provisioningCreateAccountTree-    , ProvisioningCreateAccountTree--    -- * Request Lenses-    , pcatPayload-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.provisioning.createAccountTree@ method which the--- 'ProvisioningCreateAccountTree' request conforms to.-type ProvisioningCreateAccountTreeResource =-     "analytics" :>-       "v3" :>-         "provisioning" :>-           "createAccountTree" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] AccountTreeRequest :>-                 Post '[JSON] AccountTreeResponse---- | Provision account.------ /See:/ 'provisioningCreateAccountTree' smart constructor.-newtype ProvisioningCreateAccountTree =-  ProvisioningCreateAccountTree'-    { _pcatPayload :: AccountTreeRequest-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProvisioningCreateAccountTree' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pcatPayload'-provisioningCreateAccountTree-    :: AccountTreeRequest -- ^ 'pcatPayload'-    -> ProvisioningCreateAccountTree-provisioningCreateAccountTree pPcatPayload_ =-  ProvisioningCreateAccountTree' {_pcatPayload = pPcatPayload_}----- | Multipart request metadata.-pcatPayload :: Lens' ProvisioningCreateAccountTree AccountTreeRequest-pcatPayload-  = lens _pcatPayload (\ s a -> s{_pcatPayload = a})--instance GoogleRequest ProvisioningCreateAccountTree-         where-        type Rs ProvisioningCreateAccountTree =-             AccountTreeResponse-        type Scopes ProvisioningCreateAccountTree =-             '["https://www.googleapis.com/auth/analytics.provision"]-        requestClient ProvisioningCreateAccountTree'{..}-          = go (Just AltJSON) _pcatPayload analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProvisioningCreateAccountTreeResource)-                      mempty
− gen/Network/Google/Resource/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs 
@@ -1,95 +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.Analytics.UserDeletion.UserDeletionRequest.Upsert--- 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 or update a user deletion requests.------ /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.userDeletion.userDeletionRequest.upsert@.-module Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert-    (-    -- * REST Resource-      UserDeletionUserDeletionRequestUpsertResource--    -- * Creating a Request-    , userDeletionUserDeletionRequestUpsert-    , UserDeletionUserDeletionRequestUpsert--    -- * Request Lenses-    , ududruPayload-    ) where--import           Network.Google.Analytics.Types-import           Network.Google.Prelude---- | A resource alias for @analytics.userDeletion.userDeletionRequest.upsert@ method which the--- 'UserDeletionUserDeletionRequestUpsert' request conforms to.-type UserDeletionUserDeletionRequestUpsertResource =-     "analytics" :>-       "v3" :>-         "userDeletion" :>-           "userDeletionRequests:upsert" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] UserDeletionRequest :>-                 Post '[JSON] UserDeletionRequest---- | Insert or update a user deletion requests.------ /See:/ 'userDeletionUserDeletionRequestUpsert' smart constructor.-newtype UserDeletionUserDeletionRequestUpsert =-  UserDeletionUserDeletionRequestUpsert'-    { _ududruPayload :: UserDeletionRequest-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserDeletionUserDeletionRequestUpsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ududruPayload'-userDeletionUserDeletionRequestUpsert-    :: UserDeletionRequest -- ^ 'ududruPayload'-    -> UserDeletionUserDeletionRequestUpsert-userDeletionUserDeletionRequestUpsert pUdudruPayload_ =-  UserDeletionUserDeletionRequestUpsert' {_ududruPayload = pUdudruPayload_}----- | Multipart request metadata.-ududruPayload :: Lens' UserDeletionUserDeletionRequestUpsert UserDeletionRequest-ududruPayload-  = lens _ududruPayload-      (\ s a -> s{_ududruPayload = a})--instance GoogleRequest-           UserDeletionUserDeletionRequestUpsert-         where-        type Rs UserDeletionUserDeletionRequestUpsert =-             UserDeletionRequest-        type Scopes UserDeletionUserDeletionRequestUpsert =-             '["https://www.googleapis.com/auth/analytics.user.deletion"]-        requestClient-          UserDeletionUserDeletionRequestUpsert'{..}-          = go (Just AltJSON) _ududruPayload analyticsService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UserDeletionUserDeletionRequestUpsertResource)-                      mempty
gogol-analytics.cabal view
@@ -1,133 +1,148 @@-name:                  gogol-analytics-version:               0.5.0-synopsis:              Google Analytics 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-analytics+version:            1.0.0+synopsis:           Google Analytics 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:-    Views and manages your Google Analytics data.-    .-    /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 @v3@-    of the API.+  Views and manages your Google Analytics data.+  .+  /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 @v3@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-analytics +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.Analytics-        , Network.Google.Analytics.Types-        , Network.Google.Resource.Analytics.Data.Ga.Get-        , Network.Google.Resource.Analytics.Data.Mcf.Get-        , Network.Google.Resource.Analytics.Data.Realtime.Get-        , Network.Google.Resource.Analytics.Management.AccountSummaries.List-        , Network.Google.Resource.Analytics.Management.AccountUserLinks.Delete-        , Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert-        , Network.Google.Resource.Analytics.Management.AccountUserLinks.List-        , Network.Google.Resource.Analytics.Management.AccountUserLinks.Update-        , Network.Google.Resource.Analytics.Management.Accounts.List-        , Network.Google.Resource.Analytics.Management.ClientId.HashClientId-        , Network.Google.Resource.Analytics.Management.CustomDataSources.List-        , Network.Google.Resource.Analytics.Management.CustomDimensions.Get-        , Network.Google.Resource.Analytics.Management.CustomDimensions.Insert-        , Network.Google.Resource.Analytics.Management.CustomDimensions.List-        , Network.Google.Resource.Analytics.Management.CustomDimensions.Patch-        , Network.Google.Resource.Analytics.Management.CustomDimensions.Update-        , Network.Google.Resource.Analytics.Management.CustomMetrics.Get-        , Network.Google.Resource.Analytics.Management.CustomMetrics.Insert-        , Network.Google.Resource.Analytics.Management.CustomMetrics.List-        , Network.Google.Resource.Analytics.Management.CustomMetrics.Patch-        , Network.Google.Resource.Analytics.Management.CustomMetrics.Update-        , Network.Google.Resource.Analytics.Management.Experiments.Delete-        , Network.Google.Resource.Analytics.Management.Experiments.Get-        , Network.Google.Resource.Analytics.Management.Experiments.Insert-        , Network.Google.Resource.Analytics.Management.Experiments.List-        , Network.Google.Resource.Analytics.Management.Experiments.Patch-        , Network.Google.Resource.Analytics.Management.Experiments.Update-        , Network.Google.Resource.Analytics.Management.Filters.Delete-        , Network.Google.Resource.Analytics.Management.Filters.Get-        , Network.Google.Resource.Analytics.Management.Filters.Insert-        , Network.Google.Resource.Analytics.Management.Filters.List-        , Network.Google.Resource.Analytics.Management.Filters.Patch-        , Network.Google.Resource.Analytics.Management.Filters.Update-        , Network.Google.Resource.Analytics.Management.Goals.Get-        , Network.Google.Resource.Analytics.Management.Goals.Insert-        , Network.Google.Resource.Analytics.Management.Goals.List-        , Network.Google.Resource.Analytics.Management.Goals.Patch-        , Network.Google.Resource.Analytics.Management.Goals.Update-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Delete-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Get-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.List-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Patch-        , Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Update-        , Network.Google.Resource.Analytics.Management.ProFileUserLinks.Delete-        , Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert-        , Network.Google.Resource.Analytics.Management.ProFileUserLinks.List-        , Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update-        , Network.Google.Resource.Analytics.Management.ProFiles.Delete-        , Network.Google.Resource.Analytics.Management.ProFiles.Get-        , Network.Google.Resource.Analytics.Management.ProFiles.Insert-        , Network.Google.Resource.Analytics.Management.ProFiles.List-        , Network.Google.Resource.Analytics.Management.ProFiles.Patch-        , Network.Google.Resource.Analytics.Management.ProFiles.Update-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.Get-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.List-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.Patch-        , Network.Google.Resource.Analytics.Management.RemarketingAudience.Update-        , Network.Google.Resource.Analytics.Management.Segments.List-        , Network.Google.Resource.Analytics.Management.UnSampledReports.Delete-        , Network.Google.Resource.Analytics.Management.UnSampledReports.Get-        , Network.Google.Resource.Analytics.Management.UnSampledReports.Insert-        , Network.Google.Resource.Analytics.Management.UnSampledReports.List-        , Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData-        , Network.Google.Resource.Analytics.Management.Uploads.Get-        , Network.Google.Resource.Analytics.Management.Uploads.List-        , Network.Google.Resource.Analytics.Management.Uploads.UploadData-        , Network.Google.Resource.Analytics.Management.WebProperties.Get-        , Network.Google.Resource.Analytics.Management.WebProperties.Insert-        , Network.Google.Resource.Analytics.Management.WebProperties.List-        , Network.Google.Resource.Analytics.Management.WebProperties.Patch-        , Network.Google.Resource.Analytics.Management.WebProperties.Update-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Get-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Insert-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.List-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Patch-        , Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Update-        , Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Delete-        , Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Insert-        , Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.List-        , Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update-        , Network.Google.Resource.Analytics.Metadata.Columns.List-        , Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket-        , Network.Google.Resource.Analytics.Provisioning.CreateAccountTree-        , Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert+  exposed-modules:+    Gogol.Analytics+    Gogol.Analytics.Data.Ga.Get+    Gogol.Analytics.Data.Mcf.Get+    Gogol.Analytics.Data.Realtime.Get+    Gogol.Analytics.Management.Accounts.List+    Gogol.Analytics.Management.AccountSummaries.List+    Gogol.Analytics.Management.AccountUserLinks.Delete+    Gogol.Analytics.Management.AccountUserLinks.Insert+    Gogol.Analytics.Management.AccountUserLinks.List+    Gogol.Analytics.Management.AccountUserLinks.Update+    Gogol.Analytics.Management.ClientId.HashClientId+    Gogol.Analytics.Management.CustomDataSources.List+    Gogol.Analytics.Management.CustomDimensions.Get+    Gogol.Analytics.Management.CustomDimensions.Insert+    Gogol.Analytics.Management.CustomDimensions.List+    Gogol.Analytics.Management.CustomDimensions.Patch+    Gogol.Analytics.Management.CustomDimensions.Update+    Gogol.Analytics.Management.CustomMetrics.Get+    Gogol.Analytics.Management.CustomMetrics.Insert+    Gogol.Analytics.Management.CustomMetrics.List+    Gogol.Analytics.Management.CustomMetrics.Patch+    Gogol.Analytics.Management.CustomMetrics.Update+    Gogol.Analytics.Management.Experiments.Delete+    Gogol.Analytics.Management.Experiments.Get+    Gogol.Analytics.Management.Experiments.Insert+    Gogol.Analytics.Management.Experiments.List+    Gogol.Analytics.Management.Experiments.Patch+    Gogol.Analytics.Management.Experiments.Update+    Gogol.Analytics.Management.Filters.Delete+    Gogol.Analytics.Management.Filters.Get+    Gogol.Analytics.Management.Filters.Insert+    Gogol.Analytics.Management.Filters.List+    Gogol.Analytics.Management.Filters.Patch+    Gogol.Analytics.Management.Filters.Update+    Gogol.Analytics.Management.Goals.Get+    Gogol.Analytics.Management.Goals.Insert+    Gogol.Analytics.Management.Goals.List+    Gogol.Analytics.Management.Goals.Patch+    Gogol.Analytics.Management.Goals.Update+    Gogol.Analytics.Management.ProfileFilterLinks.Delete+    Gogol.Analytics.Management.ProfileFilterLinks.Get+    Gogol.Analytics.Management.ProfileFilterLinks.Insert+    Gogol.Analytics.Management.ProfileFilterLinks.List+    Gogol.Analytics.Management.ProfileFilterLinks.Patch+    Gogol.Analytics.Management.ProfileFilterLinks.Update+    Gogol.Analytics.Management.Profiles.Delete+    Gogol.Analytics.Management.Profiles.Get+    Gogol.Analytics.Management.Profiles.Insert+    Gogol.Analytics.Management.Profiles.List+    Gogol.Analytics.Management.Profiles.Patch+    Gogol.Analytics.Management.Profiles.Update+    Gogol.Analytics.Management.ProfileUserLinks.Delete+    Gogol.Analytics.Management.ProfileUserLinks.Insert+    Gogol.Analytics.Management.ProfileUserLinks.List+    Gogol.Analytics.Management.ProfileUserLinks.Update+    Gogol.Analytics.Management.RemarketingAudience.Delete+    Gogol.Analytics.Management.RemarketingAudience.Get+    Gogol.Analytics.Management.RemarketingAudience.Insert+    Gogol.Analytics.Management.RemarketingAudience.List+    Gogol.Analytics.Management.RemarketingAudience.Patch+    Gogol.Analytics.Management.RemarketingAudience.Update+    Gogol.Analytics.Management.Segments.List+    Gogol.Analytics.Management.UnsampledReports.Delete+    Gogol.Analytics.Management.UnsampledReports.Get+    Gogol.Analytics.Management.UnsampledReports.Insert+    Gogol.Analytics.Management.UnsampledReports.List+    Gogol.Analytics.Management.Uploads.DeleteUploadData+    Gogol.Analytics.Management.Uploads.Get+    Gogol.Analytics.Management.Uploads.List+    Gogol.Analytics.Management.Uploads.UploadData+    Gogol.Analytics.Management.Webproperties.Get+    Gogol.Analytics.Management.Webproperties.Insert+    Gogol.Analytics.Management.Webproperties.List+    Gogol.Analytics.Management.Webproperties.Patch+    Gogol.Analytics.Management.Webproperties.Update+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.Delete+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.Get+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.Insert+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.List+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.Patch+    Gogol.Analytics.Management.WebPropertyAdWordsLinks.Update+    Gogol.Analytics.Management.WebpropertyUserLinks.Delete+    Gogol.Analytics.Management.WebpropertyUserLinks.Insert+    Gogol.Analytics.Management.WebpropertyUserLinks.List+    Gogol.Analytics.Management.WebpropertyUserLinks.Update+    Gogol.Analytics.Metadata.Columns.List+    Gogol.Analytics.Provisioning.CreateAccountTicket+    Gogol.Analytics.Provisioning.CreateAccountTree+    Gogol.Analytics.Types+    Gogol.Analytics.UserDeletion.UserDeletionRequest.Upsert -    other-modules:-          Network.Google.Analytics.Types.Product-        , Network.Google.Analytics.Types.Sum+  other-modules:+    Gogol.Analytics.Internal.Product+    Gogol.Analytics.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0