gogol-analytics 0.0.1 → 0.1.0

raw patch · 85 files changed

+1258/−791 lines, 85 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Analytics.hs +22/−2
• gen/Network/Google/Analytics/Types.hs +24/−16
• gen/Network/Google/Analytics/Types/Product.hs +478/−397
• gen/Network/Google/Analytics/Types/Sum.hs +27/−27
• gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs +39/−22
• gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Goals/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs +8/−8
• gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs +8/−6
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs +10/−7
• gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/Segments/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Delete.hs +135/−0
• gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs +11/−7
• gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs +6/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs +7/−4
• gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs +6/−4
• gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs +8/−4
• gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs +6/−4
• gogol-analytics.cabal +5/−4

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -7,13 +7,13 @@  -- | -- Module      : Network.Google.Analytics--- Copyright   : (c) 2015 Brendan Hay+-- 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) ----- View and manage your Google Analytics data+-- Views and manages your Google Analytics data. -- -- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> module Network.Google.Analytics@@ -21,6 +21,14 @@     -- * Service Configuration       analyticsService +    -- * OAuth Scopes+    , analyticsManageUsersScope+    , analyticsProvisionScope+    , analyticsManageUsersReadOnlyScope+    , analyticsScope+    , analyticsReadOnlyScope+    , analyticsEditScope+     -- * API Declaration     , AnalyticsAPI @@ -188,6 +196,9 @@     -- ** 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 @@ -570,8 +581,10 @@     , pCreated     , pSelfLink     , pAccountId+    , pBotFilteringEnabled     , pName     , pCurrency+    , pStarred     , pInternalWebPropertyId     , pId     , pUpdated@@ -608,6 +621,7 @@     , wpsKind     , wpsProFiles     , wpsName+    , wpsStarred     , wpsInternalWebPropertyId     , wpsId     , wpsWebsiteURL@@ -717,6 +731,7 @@     , accCreated     , accSelfLink     , accName+    , accStarred     , accId     , accUpdated     , accPermissions@@ -885,6 +900,7 @@     , proFileSummary     , pfsKind     , pfsName+    , pfsStarred     , pfsId     , pfsType @@ -905,6 +921,7 @@     , wSelfLink     , wAccountId     , wName+    , wStarred     , wInternalWebPropertyId     , wId     , wUpdated@@ -997,6 +1014,7 @@     , assKind     , assWebProperties     , assName+    , assStarred     , assId      -- ** RealtimeDataQuery@@ -1305,6 +1323,7 @@ import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.List import           Network.Google.Resource.Analytics.Management.ProFileUserLinks.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@@ -1347,6 +1366,7 @@        :<|> ManagementUnSampledReportsInsertResource        :<|> ManagementUnSampledReportsListResource        :<|> ManagementUnSampledReportsGetResource+       :<|> ManagementUnSampledReportsDeleteResource        :<|> ManagementAccountsListResource        :<|> ManagementExperimentsInsertResource        :<|> ManagementExperimentsListResource

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.Analytics.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -21,9 +22,9 @@     -- * OAuth Scopes     , analyticsManageUsersScope     , analyticsProvisionScope-    , analyticsManageUsersReadonlyScope+    , analyticsManageUsersReadOnlyScope     , analyticsScope-    , analyticsReadonlyScope+    , analyticsReadOnlyScope     , analyticsEditScope      -- * UnSampledReports@@ -334,8 +335,10 @@     , pCreated     , pSelfLink     , pAccountId+    , pBotFilteringEnabled     , pName     , pCurrency+    , pStarred     , pInternalWebPropertyId     , pId     , pUpdated@@ -372,6 +375,7 @@     , wpsKind     , wpsProFiles     , wpsName+    , wpsStarred     , wpsInternalWebPropertyId     , wpsId     , wpsWebsiteURL@@ -481,6 +485,7 @@     , accCreated     , accSelfLink     , accName+    , accStarred     , accId     , accUpdated     , accPermissions@@ -649,6 +654,7 @@     , proFileSummary     , pfsKind     , pfsName+    , pfsStarred     , pfsId     , pfsType @@ -669,6 +675,7 @@     , wSelfLink     , wAccountId     , wName+    , wStarred     , wInternalWebPropertyId     , wId     , wUpdated@@ -761,6 +768,7 @@     , assKind     , assWebProperties     , assName+    , assStarred     , assId      -- * RealtimeDataQuery@@ -1018,32 +1026,32 @@ 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 :: Service+analyticsService :: ServiceConfig analyticsService   = defaultService (ServiceId "analytics:v3")       "www.googleapis.com"  -- | Manage Google Analytics Account users by email address-analyticsManageUsersScope :: OAuthScope-analyticsManageUsersScope = "https://www.googleapis.com/auth/analytics.manage.users";+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 :: OAuthScope-analyticsProvisionScope = "https://www.googleapis.com/auth/analytics.provision";+analyticsProvisionScope :: Proxy '["https://www.googleapis.com/auth/analytics.provision"]+analyticsProvisionScope = Proxy;  -- | View Google Analytics user permissions-analyticsManageUsersReadonlyScope :: OAuthScope-analyticsManageUsersReadonlyScope = "https://www.googleapis.com/auth/analytics.manage.users.readonly";+analyticsManageUsersReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/analytics.manage.users.readonly"]+analyticsManageUsersReadOnlyScope = Proxy;  -- | View and manage your Google Analytics data-analyticsScope :: OAuthScope-analyticsScope = "https://www.googleapis.com/auth/analytics";+analyticsScope :: Proxy '["https://www.googleapis.com/auth/analytics"]+analyticsScope = Proxy;  -- | View your Google Analytics data-analyticsReadonlyScope :: OAuthScope-analyticsReadonlyScope = "https://www.googleapis.com/auth/analytics.readonly";+analyticsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/analytics.readonly"]+analyticsReadOnlyScope = Proxy;  -- | Edit Google Analytics management entities-analyticsEditScope :: OAuthScope-analyticsEditScope = "https://www.googleapis.com/auth/analytics.edit";+analyticsEditScope :: Proxy '["https://www.googleapis.com/auth/analytics.edit"]+analyticsEditScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.Analytics.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -26,7 +26,7 @@ -- corresponds to a single Analytics unsampled report. -- -- /See:/ 'unSampledReports' smart constructor.-data UnSampledReports = UnSampledReports+data UnSampledReports = UnSampledReports'     { _usrNextLink     :: !(Maybe Text)     , _usrItemsPerPage :: !(Maybe (Textual Int32))     , _usrKind         :: !Text@@ -59,7 +59,7 @@ unSampledReports     :: UnSampledReports unSampledReports =-    UnSampledReports+    UnSampledReports'     { _usrNextLink = Nothing     , _usrItemsPerPage = Nothing     , _usrKind = "analytics#unsampledReports"@@ -127,7 +127,7 @@         parseJSON           = withObject "UnSampledReports"               (\ o ->-                 UnSampledReports <$>+                 UnSampledReports' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#unsampledReports")                      <*> (o .:? "username")@@ -137,7 +137,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON UnSampledReports where-        toJSON UnSampledReports{..}+        toJSON UnSampledReports'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _usrNextLink,@@ -151,7 +151,7 @@  -- -- /See:/ 'goalURLDestinationDetailsStepsItem' smart constructor.-data GoalURLDestinationDetailsStepsItem = GoalURLDestinationDetailsStepsItem+data GoalURLDestinationDetailsStepsItem = GoalURLDestinationDetailsStepsItem'     { _guddsiURL    :: !(Maybe Text)     , _guddsiName   :: !(Maybe Text)     , _guddsiNumber :: !(Maybe (Textual Int32))@@ -169,7 +169,7 @@ goalURLDestinationDetailsStepsItem     :: GoalURLDestinationDetailsStepsItem goalURLDestinationDetailsStepsItem =-    GoalURLDestinationDetailsStepsItem+    GoalURLDestinationDetailsStepsItem'     { _guddsiURL = Nothing     , _guddsiName = Nothing     , _guddsiNumber = Nothing@@ -196,13 +196,13 @@         parseJSON           = withObject "GoalURLDestinationDetailsStepsItem"               (\ o ->-                 GoalURLDestinationDetailsStepsItem <$>+                 GoalURLDestinationDetailsStepsItem' <$>                    (o .:? "url") <*> (o .:? "name") <*>                      (o .:? "number"))  instance ToJSON GoalURLDestinationDetailsStepsItem          where-        toJSON GoalURLDestinationDetailsStepsItem{..}+        toJSON GoalURLDestinationDetailsStepsItem'{..}           = object               (catMaybes                  [("url" .=) <$> _guddsiURL,@@ -212,7 +212,7 @@ -- | Analytics data request query parameters. -- -- /See:/ 'gaDataQuery' smart constructor.-data GaDataQuery = GaDataQuery+data GaDataQuery = GaDataQuery'     { _gdqMetrics       :: !(Maybe [Text])     , _gdqSamplingLevel :: !(Maybe Text)     , _gdqFilters       :: !(Maybe Text)@@ -254,7 +254,7 @@ gaDataQuery     :: GaDataQuery gaDataQuery =-    GaDataQuery+    GaDataQuery'     { _gdqMetrics = Nothing     , _gdqSamplingLevel = Nothing     , _gdqFilters = Nothing@@ -335,7 +335,7 @@         parseJSON           = withObject "GaDataQuery"               (\ o ->-                 GaDataQuery <$>+                 GaDataQuery' <$>                    (o .:? "metrics" .!= mempty) <*>                      (o .:? "samplingLevel")                      <*> (o .:? "filters")@@ -349,7 +349,7 @@                      <*> (o .:? "start-date"))  instance ToJSON GaDataQuery where-        toJSON GaDataQuery{..}+        toJSON GaDataQuery'{..}           = object               (catMaybes                  [("metrics" .=) <$> _gdqMetrics,@@ -366,7 +366,7 @@  -- -- /See:/ 'gaDataDataTableRowsItem' smart constructor.-newtype GaDataDataTableRowsItem = GaDataDataTableRowsItem+newtype GaDataDataTableRowsItem = GaDataDataTableRowsItem'     { _gddtriC :: Maybe [GaDataDataTableRowsItemCItem]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -378,7 +378,7 @@ gaDataDataTableRowsItem     :: GaDataDataTableRowsItem gaDataDataTableRowsItem =-    GaDataDataTableRowsItem+    GaDataDataTableRowsItem'     { _gddtriC = Nothing     } @@ -391,16 +391,16 @@         parseJSON           = withObject "GaDataDataTableRowsItem"               (\ o ->-                 GaDataDataTableRowsItem <$> (o .:? "c" .!= mempty))+                 GaDataDataTableRowsItem' <$> (o .:? "c" .!= mempty))  instance ToJSON GaDataDataTableRowsItem where-        toJSON GaDataDataTableRowsItem{..}+        toJSON GaDataDataTableRowsItem'{..}           = object (catMaybes [("c" .=) <$> _gddtriC])  -- | JSON template for Analytics unsampled report resource. -- -- /See:/ 'unSampledReport' smart constructor.-data UnSampledReport = UnSampledReport+data UnSampledReport = UnSampledReport'     { _uDownloadType                :: !(Maybe Text)     , _uStatus                      :: !(Maybe Text)     , _uMetrics                     :: !(Maybe Text)@@ -466,7 +466,7 @@ unSampledReport     :: UnSampledReport unSampledReport =-    UnSampledReport+    UnSampledReport'     { _uDownloadType = Nothing     , _uStatus = Nothing     , _uMetrics = Nothing@@ -587,7 +587,7 @@         parseJSON           = withObject "UnSampledReport"               (\ o ->-                 UnSampledReport <$>+                 UnSampledReport' <$>                    (o .:? "downloadType") <*> (o .:? "status") <*>                      (o .:? "metrics")                      <*> (o .:? "driveDownloadDetails")@@ -608,7 +608,7 @@                      <*> (o .:? "start-date"))  instance ToJSON UnSampledReport where-        toJSON UnSampledReport{..}+        toJSON UnSampledReport'{..}           = object               (catMaybes                  [("downloadType" .=) <$> _uDownloadType,@@ -634,7 +634,7 @@  -- -- /See:/ 'mcfDataColumnHeadersItem' smart constructor.-data McfDataColumnHeadersItem = McfDataColumnHeadersItem+data McfDataColumnHeadersItem = McfDataColumnHeadersItem'     { _mdchiColumnType :: !(Maybe Text)     , _mdchiName       :: !(Maybe Text)     , _mdchiDataType   :: !(Maybe Text)@@ -652,7 +652,7 @@ mcfDataColumnHeadersItem     :: McfDataColumnHeadersItem mcfDataColumnHeadersItem =-    McfDataColumnHeadersItem+    McfDataColumnHeadersItem'     { _mdchiColumnType = Nothing     , _mdchiName = Nothing     , _mdchiDataType = Nothing@@ -680,12 +680,12 @@         parseJSON           = withObject "McfDataColumnHeadersItem"               (\ o ->-                 McfDataColumnHeadersItem <$>+                 McfDataColumnHeadersItem' <$>                    (o .:? "columnType") <*> (o .:? "name") <*>                      (o .:? "dataType"))  instance ToJSON McfDataColumnHeadersItem where-        toJSON McfDataColumnHeadersItem{..}+        toJSON McfDataColumnHeadersItem'{..}           = object               (catMaybes                  [("columnType" .=) <$> _mdchiColumnType,@@ -697,7 +697,7 @@ -- same as the metric order specified in the request. -- -- /See:/ 'gaDataTotalsForAllResults' smart constructor.-newtype GaDataTotalsForAllResults = GaDataTotalsForAllResults+newtype GaDataTotalsForAllResults = GaDataTotalsForAllResults'     { _gdtfarAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -710,7 +710,7 @@     :: HashMap Text Text -- ^ 'gdtfarAddtional'     -> GaDataTotalsForAllResults gaDataTotalsForAllResults pGdtfarAddtional_ =-    GaDataTotalsForAllResults+    GaDataTotalsForAllResults'     { _gdtfarAddtional = _Coerce # pGdtfarAddtional_     } @@ -726,7 +726,7 @@         parseJSON           = withObject "GaDataTotalsForAllResults"               (\ o ->-                 GaDataTotalsForAllResults <$> (parseJSONObject o))+                 GaDataTotalsForAllResults' <$> (parseJSONObject o))  instance ToJSON GaDataTotalsForAllResults where         toJSON = toJSON . _gdtfarAddtional@@ -735,7 +735,7 @@ -- this view (profile) belongs. -- -- /See:/ 'proFileParentLink' smart constructor.-data ProFileParentLink = ProFileParentLink+data ProFileParentLink = ProFileParentLink'     { _pfplHref :: !(Maybe Text)     , _pfplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -750,7 +750,7 @@ proFileParentLink     :: ProFileParentLink proFileParentLink =-    ProFileParentLink+    ProFileParentLink'     { _pfplHref = Nothing     , _pfplType = "analytics#webproperty"     }@@ -767,12 +767,12 @@         parseJSON           = withObject "ProFileParentLink"               (\ o ->-                 ProFileParentLink <$>+                 ProFileParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#webproperty"))  instance ToJSON ProFileParentLink where-        toJSON ProFileParentLink{..}+        toJSON ProFileParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _pfplHref,@@ -780,7 +780,7 @@  -- -- /See:/ 'gaDataDataTableRowsItemCItem' smart constructor.-newtype GaDataDataTableRowsItemCItem = GaDataDataTableRowsItemCItem+newtype GaDataDataTableRowsItemCItem = GaDataDataTableRowsItemCItem'     { _gddtriciV :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -792,7 +792,7 @@ gaDataDataTableRowsItemCItem     :: GaDataDataTableRowsItemCItem gaDataDataTableRowsItemCItem =-    GaDataDataTableRowsItemCItem+    GaDataDataTableRowsItemCItem'     { _gddtriciV = Nothing     } @@ -803,16 +803,17 @@ instance FromJSON GaDataDataTableRowsItemCItem where         parseJSON           = withObject "GaDataDataTableRowsItemCItem"-              (\ o -> GaDataDataTableRowsItemCItem <$> (o .:? "v"))+              (\ o ->+                 GaDataDataTableRowsItemCItem' <$> (o .:? "v"))  instance ToJSON GaDataDataTableRowsItemCItem where-        toJSON GaDataDataTableRowsItemCItem{..}+        toJSON GaDataDataTableRowsItemCItem'{..}           = object (catMaybes [("v" .=) <$> _gddtriciV])  -- | Permissions the user has for this entity. -- -- /See:/ 'entityUserLinkPermissions' smart constructor.-data EntityUserLinkPermissions = EntityUserLinkPermissions+data EntityUserLinkPermissions = EntityUserLinkPermissions'     { _eulpLocal     :: !(Maybe [Text])     , _eulpEffective :: !(Maybe [Text])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -827,7 +828,7 @@ entityUserLinkPermissions     :: EntityUserLinkPermissions entityUserLinkPermissions =-    EntityUserLinkPermissions+    EntityUserLinkPermissions'     { _eulpLocal = Nothing     , _eulpEffective = Nothing     }@@ -856,12 +857,12 @@         parseJSON           = withObject "EntityUserLinkPermissions"               (\ o ->-                 EntityUserLinkPermissions <$>+                 EntityUserLinkPermissions' <$>                    (o .:? "local" .!= mempty) <*>                      (o .:? "effective" .!= mempty))  instance ToJSON EntityUserLinkPermissions where-        toJSON EntityUserLinkPermissions{..}+        toJSON EntityUserLinkPermissions'{..}           = object               (catMaybes                  [("local" .=) <$> _eulpLocal,@@ -871,7 +872,7 @@ -- requested. -- -- /See:/ 'realtimeDataProFileInfo' smart constructor.-data RealtimeDataProFileInfo = RealtimeDataProFileInfo+data RealtimeDataProFileInfo = RealtimeDataProFileInfo'     { _rdpfiWebPropertyId         :: !(Maybe Text)     , _rdpfiProFileId             :: !(Maybe Text)     , _rdpfiProFileName           :: !(Maybe Text)@@ -898,7 +899,7 @@ realtimeDataProFileInfo     :: RealtimeDataProFileInfo realtimeDataProFileInfo =-    RealtimeDataProFileInfo+    RealtimeDataProFileInfo'     { _rdpfiWebPropertyId = Nothing     , _rdpfiProFileId = Nothing     , _rdpfiProFileName = Nothing@@ -946,7 +947,7 @@         parseJSON           = withObject "RealtimeDataProFileInfo"               (\ o ->-                 RealtimeDataProFileInfo <$>+                 RealtimeDataProFileInfo' <$>                    (o .:? "webPropertyId") <*> (o .:? "profileId") <*>                      (o .:? "profileName")                      <*> (o .:? "accountId")@@ -954,7 +955,7 @@                      <*> (o .:? "tableId"))  instance ToJSON RealtimeDataProFileInfo where-        toJSON RealtimeDataProFileInfo{..}+        toJSON RealtimeDataProFileInfo'{..}           = object               (catMaybes                  [("webPropertyId" .=) <$> _rdpfiWebPropertyId,@@ -967,7 +968,7 @@  -- -- /See:/ 'mcfDataRowsItemItemConversionPathValueItem' smart constructor.-data McfDataRowsItemItemConversionPathValueItem = McfDataRowsItemItemConversionPathValueItem+data McfDataRowsItemItemConversionPathValueItem = McfDataRowsItemItemConversionPathValueItem'     { _mdriicpviInteractionType :: !(Maybe Text)     , _mdriicpviNodeValue       :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -982,7 +983,7 @@ mcfDataRowsItemItemConversionPathValueItem     :: McfDataRowsItemItemConversionPathValueItem mcfDataRowsItemItemConversionPathValueItem =-    McfDataRowsItemItemConversionPathValueItem+    McfDataRowsItemItemConversionPathValueItem'     { _mdriicpviInteractionType = Nothing     , _mdriicpviNodeValue = Nothing     }@@ -1007,12 +1008,13 @@           = withObject               "McfDataRowsItemItemConversionPathValueItem"               (\ o ->-                 McfDataRowsItemItemConversionPathValueItem <$>+                 McfDataRowsItemItemConversionPathValueItem' <$>                    (o .:? "interactionType") <*> (o .:? "nodeValue"))  instance ToJSON          McfDataRowsItemItemConversionPathValueItem where-        toJSON McfDataRowsItemItemConversionPathValueItem{..}+        toJSON+          McfDataRowsItemItemConversionPathValueItem'{..}           = object               (catMaybes                  [("interactionType" .=) <$>@@ -1022,7 +1024,7 @@ -- | JSON template for an Analytics filter expression. -- -- /See:/ 'filterExpression' smart constructor.-data FilterExpression = FilterExpression+data FilterExpression = FilterExpression'     { _feFieldIndex      :: !(Maybe (Textual Int32))     , _feField           :: !(Maybe Text)     , _feKind            :: !Text@@ -1049,7 +1051,7 @@ filterExpression     :: FilterExpression filterExpression =-    FilterExpression+    FilterExpression'     { _feFieldIndex = Nothing     , _feField = Nothing     , _feKind = "analytics#filterExpression"@@ -1125,7 +1127,7 @@         parseJSON           = withObject "FilterExpression"               (\ o ->-                 FilterExpression <$>+                 FilterExpression' <$>                    (o .:? "fieldIndex") <*> (o .:? "field") <*>                      (o .:? "kind" .!= "analytics#filterExpression")                      <*> (o .:? "matchType")@@ -1133,7 +1135,7 @@                      <*> (o .:? "expressionValue"))  instance ToJSON FilterExpression where-        toJSON FilterExpression{..}+        toJSON FilterExpression'{..}           = object               (catMaybes                  [("fieldIndex" .=) <$> _feFieldIndex,@@ -1145,7 +1147,7 @@ -- | JSON template for a linked view (profile). -- -- /See:/ 'proFileRef' smart constructor.-data ProFileRef = ProFileRef+data ProFileRef = ProFileRef'     { _pfrWebPropertyId         :: !(Maybe Text)     , _pfrKind                  :: !Text     , _pfrHref                  :: !(Maybe Text)@@ -1175,7 +1177,7 @@ proFileRef     :: ProFileRef proFileRef =-    ProFileRef+    ProFileRef'     { _pfrWebPropertyId = Nothing     , _pfrKind = "analytics#profileRef"     , _pfrHref = Nothing@@ -1223,7 +1225,7 @@         parseJSON           = withObject "ProFileRef"               (\ o ->-                 ProFileRef <$>+                 ProFileRef' <$>                    (o .:? "webPropertyId") <*>                      (o .:? "kind" .!= "analytics#profileRef")                      <*> (o .:? "href")@@ -1233,7 +1235,7 @@                      <*> (o .:? "id"))  instance ToJSON ProFileRef where-        toJSON ProFileRef{..}+        toJSON ProFileRef'{..}           = object               (catMaybes                  [("webPropertyId" .=) <$> _pfrWebPropertyId,@@ -1250,7 +1252,7 @@ -- single Analytics account. -- -- /See:/ 'accounts' smart constructor.-data Accounts = Accounts+data Accounts = Accounts'     { _aNextLink     :: !(Maybe Text)     , _aItemsPerPage :: !(Maybe (Textual Int32))     , _aKind         :: !Text@@ -1283,7 +1285,7 @@ accounts     :: Accounts accounts =-    Accounts+    Accounts'     { _aNextLink = Nothing     , _aItemsPerPage = Nothing     , _aKind = "analytics#accounts"@@ -1349,7 +1351,7 @@         parseJSON           = withObject "Accounts"               (\ o ->-                 Accounts <$>+                 Accounts' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#accounts")                      <*> (o .:? "username")@@ -1359,7 +1361,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Accounts where-        toJSON Accounts{..}+        toJSON Accounts'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _aNextLink,@@ -1377,7 +1379,7 @@ -- experiment. -- -- /See:/ 'experiments' smart constructor.-data Experiments = Experiments+data Experiments = Experiments'     { _eNextLink     :: !(Maybe Text)     , _eItemsPerPage :: !(Maybe (Textual Int32))     , _eKind         :: !Text@@ -1410,7 +1412,7 @@ experiments     :: Experiments experiments =-    Experiments+    Experiments'     { _eNextLink = Nothing     , _eItemsPerPage = Nothing     , _eKind = "analytics#experiments"@@ -1476,7 +1478,7 @@         parseJSON           = withObject "Experiments"               (\ o ->-                 Experiments <$>+                 Experiments' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#experiments")                      <*> (o .:? "username")@@ -1486,7 +1488,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Experiments where-        toJSON Experiments{..}+        toJSON Experiments'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _eNextLink,@@ -1502,7 +1504,7 @@ -- this experiment belongs. -- -- /See:/ 'experimentParentLink' smart constructor.-data ExperimentParentLink = ExperimentParentLink+data ExperimentParentLink = ExperimentParentLink'     { _eplHref :: !(Maybe Text)     , _eplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1517,7 +1519,7 @@ experimentParentLink     :: ExperimentParentLink experimentParentLink =-    ExperimentParentLink+    ExperimentParentLink'     { _eplHref = Nothing     , _eplType = "analytics#profile"     }@@ -1535,12 +1537,12 @@         parseJSON           = withObject "ExperimentParentLink"               (\ o ->-                 ExperimentParentLink <$>+                 ExperimentParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#profile"))  instance ToJSON ExperimentParentLink where-        toJSON ExperimentParentLink{..}+        toJSON ExperimentParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _eplHref,@@ -1549,7 +1551,7 @@ -- | Download details for a file stored in Google Drive. -- -- /See:/ 'unSampledReportDriveDownloadDetails' smart constructor.-newtype UnSampledReportDriveDownloadDetails = UnSampledReportDriveDownloadDetails+newtype UnSampledReportDriveDownloadDetails = UnSampledReportDriveDownloadDetails'     { _usrdddDocumentId :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1561,7 +1563,7 @@ unSampledReportDriveDownloadDetails     :: UnSampledReportDriveDownloadDetails unSampledReportDriveDownloadDetails =-    UnSampledReportDriveDownloadDetails+    UnSampledReportDriveDownloadDetails'     { _usrdddDocumentId = Nothing     } @@ -1576,12 +1578,12 @@         parseJSON           = withObject "UnSampledReportDriveDownloadDetails"               (\ o ->-                 UnSampledReportDriveDownloadDetails <$>+                 UnSampledReportDriveDownloadDetails' <$>                    (o .:? "documentId"))  instance ToJSON UnSampledReportDriveDownloadDetails          where-        toJSON UnSampledReportDriveDownloadDetails{..}+        toJSON UnSampledReportDriveDownloadDetails'{..}           = object               (catMaybes [("documentId" .=) <$> _usrdddDocumentId]) @@ -1589,7 +1591,7 @@ -- requested. -- -- /See:/ 'mcfDataProFileInfo' smart constructor.-data McfDataProFileInfo = McfDataProFileInfo+data McfDataProFileInfo = McfDataProFileInfo'     { _mdpfiWebPropertyId         :: !(Maybe Text)     , _mdpfiProFileId             :: !(Maybe Text)     , _mdpfiProFileName           :: !(Maybe Text)@@ -1616,7 +1618,7 @@ mcfDataProFileInfo     :: McfDataProFileInfo mcfDataProFileInfo =-    McfDataProFileInfo+    McfDataProFileInfo'     { _mdpfiWebPropertyId = Nothing     , _mdpfiProFileId = Nothing     , _mdpfiProFileName = Nothing@@ -1664,7 +1666,7 @@         parseJSON           = withObject "McfDataProFileInfo"               (\ o ->-                 McfDataProFileInfo <$>+                 McfDataProFileInfo' <$>                    (o .:? "webPropertyId") <*> (o .:? "profileId") <*>                      (o .:? "profileName")                      <*> (o .:? "accountId")@@ -1672,7 +1674,7 @@                      <*> (o .:? "tableId"))  instance ToJSON McfDataProFileInfo where-        toJSON McfDataProFileInfo{..}+        toJSON McfDataProFileInfo'{..}           = object               (catMaybes                  [("webPropertyId" .=) <$> _mdpfiWebPropertyId,@@ -1688,7 +1690,7 @@ -- source. -- -- /See:/ 'customDataSources' smart constructor.-data CustomDataSources = CustomDataSources+data CustomDataSources = CustomDataSources'     { _cdsNextLink     :: !(Maybe Text)     , _cdsItemsPerPage :: !(Maybe (Textual Int32))     , _cdsKind         :: !Text@@ -1721,7 +1723,7 @@ customDataSources     :: CustomDataSources customDataSources =-    CustomDataSources+    CustomDataSources'     { _cdsNextLink = Nothing     , _cdsItemsPerPage = Nothing     , _cdsKind = "analytics#customDataSources"@@ -1789,7 +1791,7 @@         parseJSON           = withObject "CustomDataSources"               (\ o ->-                 CustomDataSources <$>+                 CustomDataSources' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#customDataSources")                      <*> (o .:? "username")@@ -1799,7 +1801,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON CustomDataSources where-        toJSON CustomDataSources{..}+        toJSON CustomDataSources'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _cdsNextLink,@@ -1815,7 +1817,7 @@ -- for this web property. -- -- /See:/ 'webPropertyChildLink' smart constructor.-data WebPropertyChildLink = WebPropertyChildLink+data WebPropertyChildLink = WebPropertyChildLink'     { _wpclHref :: !(Maybe Text)     , _wpclType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1830,7 +1832,7 @@ webPropertyChildLink     :: WebPropertyChildLink webPropertyChildLink =-    WebPropertyChildLink+    WebPropertyChildLink'     { _wpclHref = Nothing     , _wpclType = "analytics#profiles"     }@@ -1847,12 +1849,12 @@         parseJSON           = withObject "WebPropertyChildLink"               (\ o ->-                 WebPropertyChildLink <$>+                 WebPropertyChildLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#profiles"))  instance ToJSON WebPropertyChildLink where-        toJSON WebPropertyChildLink{..}+        toJSON WebPropertyChildLink'{..}           = object               (catMaybes                  [("href" .=) <$> _wpclHref,@@ -1861,7 +1863,7 @@ -- | Multi-Channel Funnels data for a given view (profile). -- -- /See:/ 'mcfData' smart constructor.-data McfData = McfData+data McfData = McfData'     { _mdNextLink            :: !(Maybe Text)     , _mdSampleSpace         :: !(Maybe (Textual Int64))     , _mdItemsPerPage        :: !(Maybe (Textual Int32))@@ -1915,7 +1917,7 @@ mcfData     :: McfData mcfData =-    McfData+    McfData'     { _mdNextLink = Nothing     , _mdSampleSpace = Nothing     , _mdItemsPerPage = Nothing@@ -2034,7 +2036,7 @@         parseJSON           = withObject "McfData"               (\ o ->-                 McfData <$>+                 McfData' <$>                    (o .:? "nextLink") <*> (o .:? "sampleSpace") <*>                      (o .:? "itemsPerPage")                      <*> (o .:? "profileInfo")@@ -2051,7 +2053,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON McfData where-        toJSON McfData{..}+        toJSON McfData'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _mdNextLink,@@ -2075,7 +2077,7 @@ -- | JSON template for a user reference. -- -- /See:/ 'userRef' smart constructor.-data UserRef = UserRef+data UserRef = UserRef'     { _urEmail :: !(Maybe Text)     , _urKind  :: !Text     , _urId    :: !(Maybe Text)@@ -2093,7 +2095,7 @@ userRef     :: UserRef userRef =-    UserRef+    UserRef'     { _urEmail = Nothing     , _urKind = "analytics#userRef"     , _urId = Nothing@@ -2114,13 +2116,13 @@         parseJSON           = withObject "UserRef"               (\ o ->-                 UserRef <$>+                 UserRef' <$>                    (o .:? "email") <*>                      (o .:? "kind" .!= "analytics#userRef")                      <*> (o .:? "id"))  instance ToJSON UserRef where-        toJSON UserRef{..}+        toJSON UserRef'{..}           = object               (catMaybes                  [("email" .=) <$> _urEmail, Just ("kind" .= _urKind),@@ -2129,7 +2131,7 @@ -- | Details for the goal of the type VISIT_NUM_PAGES. -- -- /See:/ 'goalVisitNumPagesDetails' smart constructor.-data GoalVisitNumPagesDetails = GoalVisitNumPagesDetails+data GoalVisitNumPagesDetails = GoalVisitNumPagesDetails'     { _gvnpdComparisonValue :: !(Maybe (Textual Int64))     , _gvnpdComparisonType  :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -2144,7 +2146,7 @@ goalVisitNumPagesDetails     :: GoalVisitNumPagesDetails goalVisitNumPagesDetails =-    GoalVisitNumPagesDetails+    GoalVisitNumPagesDetails'     { _gvnpdComparisonValue = Nothing     , _gvnpdComparisonType = Nothing     }@@ -2167,12 +2169,12 @@         parseJSON           = withObject "GoalVisitNumPagesDetails"               (\ o ->-                 GoalVisitNumPagesDetails <$>+                 GoalVisitNumPagesDetails' <$>                    (o .:? "comparisonValue") <*>                      (o .:? "comparisonType"))  instance ToJSON GoalVisitNumPagesDetails where-        toJSON GoalVisitNumPagesDetails{..}+        toJSON GoalVisitNumPagesDetails'{..}           = object               (catMaybes                  [("comparisonValue" .=) <$> _gvnpdComparisonValue,@@ -2180,7 +2182,7 @@  -- -- /See:/ 'realtimeDataColumnHeadersItem' smart constructor.-data RealtimeDataColumnHeadersItem = RealtimeDataColumnHeadersItem+data RealtimeDataColumnHeadersItem = RealtimeDataColumnHeadersItem'     { _rdchiColumnType :: !(Maybe Text)     , _rdchiName       :: !(Maybe Text)     , _rdchiDataType   :: !(Maybe Text)@@ -2198,7 +2200,7 @@ realtimeDataColumnHeadersItem     :: RealtimeDataColumnHeadersItem realtimeDataColumnHeadersItem =-    RealtimeDataColumnHeadersItem+    RealtimeDataColumnHeadersItem'     { _rdchiColumnType = Nothing     , _rdchiName = Nothing     , _rdchiDataType = Nothing@@ -2227,12 +2229,12 @@         parseJSON           = withObject "RealtimeDataColumnHeadersItem"               (\ o ->-                 RealtimeDataColumnHeadersItem <$>+                 RealtimeDataColumnHeadersItem' <$>                    (o .:? "columnType") <*> (o .:? "name") <*>                      (o .:? "dataType"))  instance ToJSON RealtimeDataColumnHeadersItem where-        toJSON RealtimeDataColumnHeadersItem{..}+        toJSON RealtimeDataColumnHeadersItem'{..}           = object               (catMaybes                  [("columnType" .=) <$> _rdchiColumnType,@@ -2242,7 +2244,7 @@ -- | JSON template for a linked account. -- -- /See:/ 'accountRef' smart constructor.-data AccountRef = AccountRef+data AccountRef = AccountRef'     { _arKind :: !Text     , _arHref :: !(Maybe Text)     , _arName :: !(Maybe Text)@@ -2263,7 +2265,7 @@ accountRef     :: AccountRef accountRef =-    AccountRef+    AccountRef'     { _arKind = "analytics#accountRef"     , _arHref = Nothing     , _arName = Nothing@@ -2290,14 +2292,14 @@         parseJSON           = withObject "AccountRef"               (\ o ->-                 AccountRef <$>+                 AccountRef' <$>                    (o .:? "kind" .!= "analytics#accountRef") <*>                      (o .:? "href")                      <*> (o .:? "name")                      <*> (o .:? "id"))  instance ToJSON AccountRef where-        toJSON AccountRef{..}+        toJSON AccountRef'{..}           = object               (catMaybes                  [Just ("kind" .= _arKind), ("href" .=) <$> _arHref,@@ -2307,7 +2309,7 @@ -- Each resource in this collection corresponds to a single link. -- -- /See:/ 'entityAdWordsLinks' smart constructor.-data EntityAdWordsLinks = EntityAdWordsLinks+data EntityAdWordsLinks = EntityAdWordsLinks'     { _eawlNextLink     :: !(Maybe Text)     , _eawlItemsPerPage :: !(Maybe (Textual Int32))     , _eawlKind         :: !Text@@ -2337,7 +2339,7 @@ entityAdWordsLinks     :: EntityAdWordsLinks entityAdWordsLinks =-    EntityAdWordsLinks+    EntityAdWordsLinks'     { _eawlNextLink = Nothing     , _eawlItemsPerPage = Nothing     , _eawlKind = "analytics#entityAdWordsLinks"@@ -2399,7 +2401,7 @@         parseJSON           = withObject "EntityAdWordsLinks"               (\ o ->-                 EntityAdWordsLinks <$>+                 EntityAdWordsLinks' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#entityAdWordsLinks")                      <*> (o .:? "items" .!= mempty)@@ -2408,7 +2410,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON EntityAdWordsLinks where-        toJSON EntityAdWordsLinks{..}+        toJSON EntityAdWordsLinks'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _eawlNextLink,@@ -2424,7 +2426,7 @@ -- single Analytics view (profile). -- -- /See:/ 'proFiles' smart constructor.-data ProFiles = ProFiles+data ProFiles = ProFiles'     { _pfNextLink     :: !(Maybe Text)     , _pfItemsPerPage :: !(Maybe (Textual Int32))     , _pfKind         :: !Text@@ -2457,7 +2459,7 @@ proFiles     :: ProFiles proFiles =-    ProFiles+    ProFiles'     { _pfNextLink = Nothing     , _pfItemsPerPage = Nothing     , _pfKind = "analytics#profiles"@@ -2523,7 +2525,7 @@         parseJSON           = withObject "ProFiles"               (\ o ->-                 ProFiles <$>+                 ProFiles' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#profiles")                      <*> (o .:? "username")@@ -2533,7 +2535,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON ProFiles where-        toJSON ProFiles{..}+        toJSON ProFiles'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _pfNextLink,@@ -2548,7 +2550,7 @@ -- | Request template for the delete upload data request. -- -- /See:/ 'analyticsDataimportDeleteUploadDataRequest' smart constructor.-newtype AnalyticsDataimportDeleteUploadDataRequest = AnalyticsDataimportDeleteUploadDataRequest+newtype AnalyticsDataimportDeleteUploadDataRequest = AnalyticsDataimportDeleteUploadDataRequest'     { _addudrCustomDataImportUids :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -2560,7 +2562,7 @@ analyticsDataimportDeleteUploadDataRequest     :: AnalyticsDataimportDeleteUploadDataRequest analyticsDataimportDeleteUploadDataRequest =-    AnalyticsDataimportDeleteUploadDataRequest+    AnalyticsDataimportDeleteUploadDataRequest'     { _addudrCustomDataImportUids = Nothing     } @@ -2578,12 +2580,13 @@           = withObject               "AnalyticsDataimportDeleteUploadDataRequest"               (\ o ->-                 AnalyticsDataimportDeleteUploadDataRequest <$>+                 AnalyticsDataimportDeleteUploadDataRequest' <$>                    (o .:? "customDataImportUids" .!= mempty))  instance ToJSON          AnalyticsDataimportDeleteUploadDataRequest where-        toJSON AnalyticsDataimportDeleteUploadDataRequest{..}+        toJSON+          AnalyticsDataimportDeleteUploadDataRequest'{..}           = object               (catMaybes                  [("customDataImportUids" .=) <$>@@ -2592,7 +2595,7 @@ -- | JSON template for Analytics Entity AdWords Link. -- -- /See:/ 'entityAdWordsLink' smart constructor.-data EntityAdWordsLink = EntityAdWordsLink+data EntityAdWordsLink = EntityAdWordsLink'     { _entAdWordsAccounts :: !(Maybe [AdWordsAccount])     , _entProFileIds      :: !(Maybe [Text])     , _entKind            :: !Text@@ -2622,7 +2625,7 @@ entityAdWordsLink     :: EntityAdWordsLink entityAdWordsLink =-    EntityAdWordsLink+    EntityAdWordsLink'     { _entAdWordsAccounts = Nothing     , _entProFileIds = Nothing     , _entKind = "analytics#entityAdWordsLink"@@ -2675,7 +2678,7 @@         parseJSON           = withObject "EntityAdWordsLink"               (\ o ->-                 EntityAdWordsLink <$>+                 EntityAdWordsLink' <$>                    (o .:? "adWordsAccounts" .!= mempty) <*>                      (o .:? "profileIds" .!= mempty)                      <*> (o .:? "kind" .!= "analytics#entityAdWordsLink")@@ -2685,7 +2688,7 @@                      <*> (o .:? "entity"))  instance ToJSON EntityAdWordsLink where-        toJSON EntityAdWordsLink{..}+        toJSON EntityAdWordsLink'{..}           = object               (catMaybes                  [("adWordsAccounts" .=) <$> _entAdWordsAccounts,@@ -2698,7 +2701,7 @@ -- | Details for the filter of the type SEARCH_AND_REPLACE. -- -- /See:/ 'filterSearchAndReplaceDetails' smart constructor.-data FilterSearchAndReplaceDetails = FilterSearchAndReplaceDetails+data FilterSearchAndReplaceDetails = FilterSearchAndReplaceDetails'     { _fsardFieldIndex    :: !(Maybe (Textual Int32))     , _fsardField         :: !(Maybe Text)     , _fsardSearchString  :: !(Maybe Text)@@ -2722,7 +2725,7 @@ filterSearchAndReplaceDetails     :: FilterSearchAndReplaceDetails filterSearchAndReplaceDetails =-    FilterSearchAndReplaceDetails+    FilterSearchAndReplaceDetails'     { _fsardFieldIndex = Nothing     , _fsardField = Nothing     , _fsardSearchString = Nothing@@ -2765,14 +2768,14 @@         parseJSON           = withObject "FilterSearchAndReplaceDetails"               (\ o ->-                 FilterSearchAndReplaceDetails <$>+                 FilterSearchAndReplaceDetails' <$>                    (o .:? "fieldIndex") <*> (o .:? "field") <*>                      (o .:? "searchString")                      <*> (o .:? "replaceString")                      <*> (o .:? "caseSensitive"))  instance ToJSON FilterSearchAndReplaceDetails where-        toJSON FilterSearchAndReplaceDetails{..}+        toJSON FilterSearchAndReplaceDetails'{..}           = object               (catMaybes                  [("fieldIndex" .=) <$> _fsardFieldIndex,@@ -2784,7 +2787,7 @@ -- | Permissions the user has for this view (profile). -- -- /See:/ 'proFilePermissions' smart constructor.-newtype ProFilePermissions = ProFilePermissions+newtype ProFilePermissions = ProFilePermissions'     { _pfpEffective :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -2796,7 +2799,7 @@ proFilePermissions     :: ProFilePermissions proFilePermissions =-    ProFilePermissions+    ProFilePermissions'     { _pfpEffective = Nothing     } @@ -2813,18 +2816,18 @@         parseJSON           = withObject "ProFilePermissions"               (\ o ->-                 ProFilePermissions <$>+                 ProFilePermissions' <$>                    (o .:? "effective" .!= mempty))  instance ToJSON ProFilePermissions where-        toJSON ProFilePermissions{..}+        toJSON ProFilePermissions'{..}           = object               (catMaybes [("effective" .=) <$> _pfpEffective])  -- | JSON template for an Analytics view (profile). -- -- /See:/ 'proFile' smart constructor.-data ProFile = ProFile+data ProFile = ProFile'     { _pParentLink                        :: !(Maybe ProFileParentLink)     , _pECommerceTracking                 :: !(Maybe Bool)     , _pSiteSearchCategoryParameters      :: !(Maybe Text)@@ -2836,8 +2839,10 @@     , _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')@@ -2877,10 +2882,14 @@ -- -- * 'pAccountId' --+-- * 'pBotFilteringEnabled'+-- -- * 'pName' -- -- * 'pCurrency' --+-- * 'pStarred'+-- -- * 'pInternalWebPropertyId' -- -- * 'pId'@@ -2905,7 +2914,7 @@ proFile     :: ProFile proFile =-    ProFile+    ProFile'     { _pParentLink = Nothing     , _pECommerceTracking = Nothing     , _pSiteSearchCategoryParameters = Nothing@@ -2917,8 +2926,10 @@     , _pCreated = Nothing     , _pSelfLink = Nothing     , _pAccountId = Nothing+    , _pBotFilteringEnabled = Nothing     , _pName = Nothing     , _pCurrency = Nothing+    , _pStarred = Nothing     , _pInternalWebPropertyId = Nothing     , _pId = Nothing     , _pUpdated = Nothing@@ -2994,6 +3005,12 @@ 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})@@ -3006,6 +3023,10 @@ 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@@ -3074,7 +3095,7 @@         parseJSON           = withObject "ProFile"               (\ o ->-                 ProFile <$>+                 ProFile' <$>                    (o .:? "parentLink") <*> (o .:? "eCommerceTracking")                      <*> (o .:? "siteSearchCategoryParameters")                      <*> (o .:? "webPropertyId")@@ -3085,8 +3106,10 @@                      <*> (o .:? "created")                      <*> (o .:? "selfLink")                      <*> (o .:? "accountId")+                     <*> (o .:? "botFilteringEnabled")                      <*> (o .:? "name")                      <*> (o .:? "currency")+                     <*> (o .:? "starred")                      <*> (o .:? "internalWebPropertyId")                      <*> (o .:? "id")                      <*> (o .:? "updated")@@ -3100,7 +3123,7 @@                      <*> (o .:? "stripSiteSearchQueryParameters"))  instance ToJSON ProFile where-        toJSON ProFile{..}+        toJSON ProFile'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _pParentLink,@@ -3116,8 +3139,10 @@                   ("created" .=) <$> _pCreated,                   ("selfLink" .=) <$> _pSelfLink,                   ("accountId" .=) <$> _pAccountId,+                  ("botFilteringEnabled" .=) <$> _pBotFilteringEnabled,                   ("name" .=) <$> _pName,                   ("currency" .=) <$> _pCurrency,+                  ("starred" .=) <$> _pStarred,                   ("internalWebPropertyId" .=) <$>                     _pInternalWebPropertyId,                   ("id" .=) <$> _pId, ("updated" .=) <$> _pUpdated,@@ -3139,7 +3164,7 @@ -- collection corresponds to a single AccountSummary. -- -- /See:/ 'accountSummaries' smart constructor.-data AccountSummaries = AccountSummaries+data AccountSummaries = AccountSummaries'     { _asNextLink     :: !(Maybe Text)     , _asItemsPerPage :: !(Maybe (Textual Int32))     , _asKind         :: !Text@@ -3172,7 +3197,7 @@ accountSummaries     :: AccountSummaries accountSummaries =-    AccountSummaries+    AccountSummaries'     { _asNextLink = Nothing     , _asItemsPerPage = Nothing     , _asKind = "analytics#accountSummaries"@@ -3238,7 +3263,7 @@         parseJSON           = withObject "AccountSummaries"               (\ o ->-                 AccountSummaries <$>+                 AccountSummaries' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#accountSummaries")                      <*> (o .:? "username")@@ -3248,7 +3273,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON AccountSummaries where-        toJSON AccountSummaries{..}+        toJSON AccountSummaries'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _asNextLink,@@ -3263,7 +3288,7 @@ -- | Details for the goal of the type EVENT. -- -- /See:/ 'goalEventDetails' smart constructor.-data GoalEventDetails = GoalEventDetails+data GoalEventDetails = GoalEventDetails'     { _gedUseEventValue   :: !(Maybe Bool)     , _gedEventConditions :: !(Maybe [GoalEventDetailsEventConditionsItem])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -3278,7 +3303,7 @@ goalEventDetails     :: GoalEventDetails goalEventDetails =-    GoalEventDetails+    GoalEventDetails'     { _gedUseEventValue = Nothing     , _gedEventConditions = Nothing     }@@ -3301,12 +3326,12 @@         parseJSON           = withObject "GoalEventDetails"               (\ o ->-                 GoalEventDetails <$>+                 GoalEventDetails' <$>                    (o .:? "useEventValue") <*>                      (o .:? "eventConditions" .!= mempty))  instance ToJSON GoalEventDetails where-        toJSON GoalEventDetails{..}+        toJSON GoalEventDetails'{..}           = object               (catMaybes                  [("useEventValue" .=) <$> _gedUseEventValue,@@ -3316,10 +3341,11 @@ -- returns basic information (i.e., summary) for a web property. -- -- /See:/ 'webPropertySummary' smart constructor.-data WebPropertySummary = WebPropertySummary+data WebPropertySummary = WebPropertySummary'     { _wpsKind                  :: !Text     , _wpsProFiles              :: !(Maybe [ProFileSummary])     , _wpsName                  :: !(Maybe Text)+    , _wpsStarred               :: !(Maybe Bool)     , _wpsInternalWebPropertyId :: !(Maybe Text)     , _wpsId                    :: !(Maybe Text)     , _wpsWebsiteURL            :: !(Maybe Text)@@ -3336,6 +3362,8 @@ -- -- * 'wpsName' --+-- * 'wpsStarred'+-- -- * 'wpsInternalWebPropertyId' -- -- * 'wpsId'@@ -3346,10 +3374,11 @@ webPropertySummary     :: WebPropertySummary webPropertySummary =-    WebPropertySummary+    WebPropertySummary'     { _wpsKind = "analytics#webPropertySummary"     , _wpsProFiles = Nothing     , _wpsName = Nothing+    , _wpsStarred = Nothing     , _wpsInternalWebPropertyId = Nothing     , _wpsId = Nothing     , _wpsWebsiteURL = Nothing@@ -3371,6 +3400,11 @@ 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@@ -3395,22 +3429,24 @@         parseJSON           = withObject "WebPropertySummary"               (\ o ->-                 WebPropertySummary <$>+                 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{..}+        toJSON WebPropertySummary'{..}           = object               (catMaybes                  [Just ("kind" .= _wpsKind),                   ("profiles" .=) <$> _wpsProFiles,                   ("name" .=) <$> _wpsName,+                  ("starred" .=) <$> _wpsStarred,                   ("internalWebPropertyId" .=) <$>                     _wpsInternalWebPropertyId,                   ("id" .=) <$> _wpsId,@@ -3421,7 +3457,7 @@ -- account. Each resource in the collection corresponds to a filter. -- -- /See:/ 'filters' smart constructor.-data Filters = Filters+data Filters = Filters'     { _fNextLink     :: !(Maybe Text)     , _fItemsPerPage :: !(Maybe (Textual Int32))     , _fKind         :: !Text@@ -3454,7 +3490,7 @@ filters     :: Filters filters =-    Filters+    Filters'     { _fNextLink = Nothing     , _fItemsPerPage = Nothing     , _fKind = "analytics#filters"@@ -3520,7 +3556,7 @@         parseJSON           = withObject "Filters"               (\ o ->-                 Filters <$>+                 Filters' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#filters")                      <*> (o .:? "username")@@ -3530,7 +3566,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Filters where-        toJSON Filters{..}+        toJSON Filters'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _fNextLink,@@ -3545,7 +3581,7 @@ -- | Analytics data for a given view (profile). -- -- /See:/ 'gaData' smart constructor.-data GaData = GaData+data GaData = GaData'     { _gdNextLink            :: !(Maybe Text)     , _gdSampleSpace         :: !(Maybe (Textual Int64))     , _gdItemsPerPage        :: !(Maybe (Textual Int32))@@ -3602,7 +3638,7 @@ gaData     :: GaData gaData =-    GaData+    GaData'     { _gdNextLink = Nothing     , _gdSampleSpace = Nothing     , _gdItemsPerPage = Nothing@@ -3726,7 +3762,7 @@         parseJSON           = withObject "GaData"               (\ o ->-                 GaData <$>+                 GaData' <$>                    (o .:? "nextLink") <*> (o .:? "sampleSpace") <*>                      (o .:? "itemsPerPage")                      <*> (o .:? "profileInfo")@@ -3744,7 +3780,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON GaData where-        toJSON GaData{..}+        toJSON GaData'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _gdNextLink,@@ -3771,7 +3807,7 @@ -- same as the metric order specified in the request. -- -- /See:/ 'realtimeDataTotalsForAllResults' smart constructor.-newtype RealtimeDataTotalsForAllResults = RealtimeDataTotalsForAllResults+newtype RealtimeDataTotalsForAllResults = RealtimeDataTotalsForAllResults'     { _rdtfarAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -3784,7 +3820,7 @@     :: HashMap Text Text -- ^ 'rdtfarAddtional'     -> RealtimeDataTotalsForAllResults realtimeDataTotalsForAllResults pRdtfarAddtional_ =-    RealtimeDataTotalsForAllResults+    RealtimeDataTotalsForAllResults'     { _rdtfarAddtional = _Coerce # pRdtfarAddtional_     } @@ -3801,7 +3837,7 @@         parseJSON           = withObject "RealtimeDataTotalsForAllResults"               (\ o ->-                 RealtimeDataTotalsForAllResults <$>+                 RealtimeDataTotalsForAllResults' <$>                    (parseJSONObject o))  instance ToJSON RealtimeDataTotalsForAllResults where@@ -3810,7 +3846,7 @@ -- | JSON template for an Analytics custom data source. -- -- /See:/ 'customDataSource' smart constructor.-data CustomDataSource = CustomDataSource+data CustomDataSource = CustomDataSource'     { _cParentLink     :: !(Maybe CustomDataSourceParentLink)     , _cWebPropertyId  :: !(Maybe Text)     , _cChildLink      :: !(Maybe CustomDataSourceChildLink)@@ -3864,7 +3900,7 @@ customDataSource     :: CustomDataSource customDataSource =-    CustomDataSource+    CustomDataSource'     { _cParentLink = Nothing     , _cWebPropertyId = Nothing     , _cChildLink = Nothing@@ -3963,7 +3999,7 @@         parseJSON           = withObject "CustomDataSource"               (\ o ->-                 CustomDataSource <$>+                 CustomDataSource' <$>                    (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>                      (o .:? "childLink")                      <*> (o .:? "kind" .!= "analytics#customDataSource")@@ -3980,7 +4016,7 @@                      <*> (o .:? "profilesLinked" .!= mempty))  instance ToJSON CustomDataSource where-        toJSON CustomDataSource{..}+        toJSON CustomDataSource'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _cParentLink,@@ -4000,7 +4036,7 @@ -- | JSON template for a web property reference. -- -- /See:/ 'webPropertyRef' smart constructor.-data WebPropertyRef = WebPropertyRef+data WebPropertyRef = WebPropertyRef'     { _wprKind                  :: !Text     , _wprHref                  :: !(Maybe Text)     , _wprAccountId             :: !(Maybe Text)@@ -4027,7 +4063,7 @@ webPropertyRef     :: WebPropertyRef webPropertyRef =-    WebPropertyRef+    WebPropertyRef'     { _wprKind = "analytics#webPropertyRef"     , _wprHref = Nothing     , _wprAccountId = Nothing@@ -4067,7 +4103,7 @@         parseJSON           = withObject "WebPropertyRef"               (\ o ->-                 WebPropertyRef <$>+                 WebPropertyRef' <$>                    (o .:? "kind" .!= "analytics#webPropertyRef") <*>                      (o .:? "href")                      <*> (o .:? "accountId")@@ -4076,7 +4112,7 @@                      <*> (o .:? "id"))  instance ToJSON WebPropertyRef where-        toJSON WebPropertyRef{..}+        toJSON WebPropertyRef'{..}           = object               (catMaybes                  [Just ("kind" .= _wprKind), ("href" .=) <$> _wprHref,@@ -4091,7 +4127,7 @@ -- collection corresponds to a single Analytics goal. -- -- /See:/ 'goals' smart constructor.-data Goals = Goals+data Goals = Goals'     { _gNextLink     :: !(Maybe Text)     , _gItemsPerPage :: !(Maybe (Textual Int32))     , _gKind         :: !Text@@ -4124,7 +4160,7 @@ goals     :: Goals goals =-    Goals+    Goals'     { _gNextLink = Nothing     , _gItemsPerPage = Nothing     , _gKind = "analytics#goals"@@ -4190,7 +4226,7 @@         parseJSON           = withObject "Goals"               (\ o ->-                 Goals <$>+                 Goals' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#goals")                      <*> (o .:? "username")@@ -4200,7 +4236,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Goals where-        toJSON Goals{..}+        toJSON Goals'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _gNextLink,@@ -4217,7 +4253,7 @@ -- populated. -- -- /See:/ 'mcfDataRowsItemItem' smart constructor.-data McfDataRowsItemItem = McfDataRowsItemItem+data McfDataRowsItemItem = McfDataRowsItemItem'     { _mdriiPrimitiveValue      :: !(Maybe Text)     , _mdriiConversionPathValue :: !(Maybe [McfDataRowsItemItemConversionPathValueItem])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -4232,7 +4268,7 @@ mcfDataRowsItemItem     :: McfDataRowsItemItem mcfDataRowsItemItem =-    McfDataRowsItemItem+    McfDataRowsItemItem'     { _mdriiPrimitiveValue = Nothing     , _mdriiConversionPathValue = Nothing     }@@ -4256,12 +4292,12 @@         parseJSON           = withObject "McfDataRowsItemItem"               (\ o ->-                 McfDataRowsItemItem <$>+                 McfDataRowsItemItem' <$>                    (o .:? "primitiveValue") <*>                      (o .:? "conversionPathValue" .!= mempty))  instance ToJSON McfDataRowsItemItem where-        toJSON McfDataRowsItemItem{..}+        toJSON McfDataRowsItemItem'{..}           = object               (catMaybes                  [("primitiveValue" .=) <$> _mdriiPrimitiveValue,@@ -4271,7 +4307,7 @@ -- | Permissions the user has for this account. -- -- /See:/ 'accountPermissions' smart constructor.-newtype AccountPermissions = AccountPermissions+newtype AccountPermissions = AccountPermissions'     { _apEffective :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -4283,7 +4319,7 @@ accountPermissions     :: AccountPermissions accountPermissions =-    AccountPermissions+    AccountPermissions'     { _apEffective = Nothing     } @@ -4299,11 +4335,11 @@         parseJSON           = withObject "AccountPermissions"               (\ o ->-                 AccountPermissions <$>+                 AccountPermissions' <$>                    (o .:? "effective" .!= mempty))  instance ToJSON AccountPermissions where-        toJSON AccountPermissions{..}+        toJSON AccountPermissions'{..}           = object               (catMaybes [("effective" .=) <$> _apEffective]) @@ -4311,7 +4347,7 @@ -- (profile). -- -- /See:/ 'entityUserLinkEntity' smart constructor.-data EntityUserLinkEntity = EntityUserLinkEntity+data EntityUserLinkEntity = EntityUserLinkEntity'     { _euleProFileRef     :: !(Maybe ProFileRef)     , _euleAccountRef     :: !(Maybe AccountRef)     , _euleWebPropertyRef :: !(Maybe WebPropertyRef)@@ -4329,7 +4365,7 @@ entityUserLinkEntity     :: EntityUserLinkEntity entityUserLinkEntity =-    EntityUserLinkEntity+    EntityUserLinkEntity'     { _euleProFileRef = Nothing     , _euleAccountRef = Nothing     , _euleWebPropertyRef = Nothing@@ -4357,12 +4393,12 @@         parseJSON           = withObject "EntityUserLinkEntity"               (\ o ->-                 EntityUserLinkEntity <$>+                 EntityUserLinkEntity' <$>                    (o .:? "profileRef") <*> (o .:? "accountRef") <*>                      (o .:? "webPropertyRef"))  instance ToJSON EntityUserLinkEntity where-        toJSON EntityUserLinkEntity{..}+        toJSON EntityUserLinkEntity'{..}           = object               (catMaybes                  [("profileRef" .=) <$> _euleProFileRef,@@ -4372,12 +4408,13 @@ -- | JSON template for Analytics account entry. -- -- /See:/ 'account' smart constructor.-data Account = Account+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)@@ -4397,6 +4434,8 @@ -- -- * 'accName' --+-- * 'accStarred'+-- -- * 'accId' -- -- * 'accUpdated'@@ -4405,12 +4444,13 @@ account     :: Account account =-    Account+    Account'     { _accChildLink = Nothing     , _accKind = "analytics#account"     , _accCreated = Nothing     , _accSelfLink = Nothing     , _accName = Nothing+    , _accStarred = Nothing     , _accId = Nothing     , _accUpdated = Nothing     , _accPermissions = Nothing@@ -4441,6 +4481,11 @@ 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})@@ -4461,32 +4506,34 @@         parseJSON           = withObject "Account"               (\ o ->-                 Account <$>+                 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{..}+        toJSON Account'{..}           = object               (catMaybes                  [("childLink" .=) <$> _accChildLink,                   Just ("kind" .= _accKind),                   ("created" .=) <$> _accCreated,                   ("selfLink" .=) <$> _accSelfLink,-                  ("name" .=) <$> _accName, ("id" .=) <$> _accId,+                  ("name" .=) <$> _accName,+                  ("starred" .=) <$> _accStarred, ("id" .=) <$> _accId,                   ("updated" .=) <$> _accUpdated,                   ("permissions" .=) <$> _accPermissions])  -- | JSON template for Analytics experiment resource. -- -- /See:/ 'experiment' smart constructor.-data Experiment = Experiment+data Experiment = Experiment'     { _expParentLink                     :: !(Maybe ExperimentParentLink)     , _expEqualWeighting                 :: !(Maybe Bool)     , _expStatus                         :: !(Maybe Text)@@ -4579,7 +4626,7 @@ experiment     :: Experiment experiment =-    Experiment+    Experiment'     { _expParentLink = Nothing     , _expEqualWeighting = Nothing     , _expStatus = Nothing@@ -4828,7 +4875,7 @@         parseJSON           = withObject "Experiment"               (\ o ->-                 Experiment <$>+                 Experiment' <$>                    (o .:? "parentLink") <*> (o .:? "equalWeighting") <*>                      (o .:? "status")                      <*> (o .:? "webPropertyId")@@ -4858,7 +4905,7 @@                      <*> (o .:? "description"))  instance ToJSON Experiment where-        toJSON Experiment{..}+        toJSON Experiment'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _expParentLink,@@ -4898,7 +4945,7 @@ -- Each resource in this collection corresponds to a single link. -- -- /See:/ 'entityUserLinks' smart constructor.-data EntityUserLinks = EntityUserLinks+data EntityUserLinks = EntityUserLinks'     { _eulNextLink     :: !(Maybe Text)     , _eulItemsPerPage :: !(Maybe (Textual Int32))     , _eulKind         :: !Text@@ -4928,7 +4975,7 @@ entityUserLinks     :: EntityUserLinks entityUserLinks =-    EntityUserLinks+    EntityUserLinks'     { _eulNextLink = Nothing     , _eulItemsPerPage = Nothing     , _eulKind = "analytics#entityUserLinks"@@ -4990,7 +5037,7 @@         parseJSON           = withObject "EntityUserLinks"               (\ o ->-                 EntityUserLinks <$>+                 EntityUserLinks' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#entityUserLinks")                      <*> (o .:? "items" .!= mempty)@@ -4999,7 +5046,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON EntityUserLinks where-        toJSON EntityUserLinks{..}+        toJSON EntityUserLinks'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _eulNextLink,@@ -5013,7 +5060,7 @@ -- | JSON template for an AdWords account. -- -- /See:/ 'adWordsAccount' smart constructor.-data AdWordsAccount = AdWordsAccount+data AdWordsAccount = AdWordsAccount'     { _awaAutoTaggingEnabled :: !(Maybe Bool)     , _awaKind               :: !Text     , _awaCustomerId         :: !(Maybe Text)@@ -5031,7 +5078,7 @@ adWordsAccount     :: AdWordsAccount adWordsAccount =-    AdWordsAccount+    AdWordsAccount'     { _awaAutoTaggingEnabled = Nothing     , _awaKind = "analytics#adWordsAccount"     , _awaCustomerId = Nothing@@ -5058,13 +5105,13 @@         parseJSON           = withObject "AdWordsAccount"               (\ o ->-                 AdWordsAccount <$>+                 AdWordsAccount' <$>                    (o .:? "autoTaggingEnabled") <*>                      (o .:? "kind" .!= "analytics#adWordsAccount")                      <*> (o .:? "customerId"))  instance ToJSON AdWordsAccount where-        toJSON AdWordsAccount{..}+        toJSON AdWordsAccount'{..}           = object               (catMaybes                  [("autoTaggingEnabled" .=) <$>@@ -5075,7 +5122,7 @@ -- | JSON template for a profile filter link. -- -- /See:/ 'filterRef' smart constructor.-data FilterRef = FilterRef+data FilterRef = FilterRef'     { _frKind      :: !Text     , _frHref      :: !(Maybe Text)     , _frAccountId :: !(Maybe Text)@@ -5099,7 +5146,7 @@ filterRef     :: FilterRef filterRef =-    FilterRef+    FilterRef'     { _frKind = "analytics#filterRef"     , _frHref = Nothing     , _frAccountId = Nothing@@ -5132,7 +5179,7 @@         parseJSON           = withObject "FilterRef"               (\ o ->-                 FilterRef <$>+                 FilterRef' <$>                    (o .:? "kind" .!= "analytics#filterRef") <*>                      (o .:? "href")                      <*> (o .:? "accountId")@@ -5140,7 +5187,7 @@                      <*> (o .:? "id"))  instance ToJSON FilterRef where-        toJSON FilterRef{..}+        toJSON FilterRef'{..}           = object               (catMaybes                  [Just ("kind" .= _frKind), ("href" .=) <$> _frHref,@@ -5150,7 +5197,7 @@ -- | Details for the goal of the type VISIT_TIME_ON_SITE. -- -- /See:/ 'goalVisitTimeOnSiteDetails' smart constructor.-data GoalVisitTimeOnSiteDetails = GoalVisitTimeOnSiteDetails+data GoalVisitTimeOnSiteDetails = GoalVisitTimeOnSiteDetails'     { _gvtosdComparisonValue :: !(Maybe (Textual Int64))     , _gvtosdComparisonType  :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -5165,7 +5212,7 @@ goalVisitTimeOnSiteDetails     :: GoalVisitTimeOnSiteDetails goalVisitTimeOnSiteDetails =-    GoalVisitTimeOnSiteDetails+    GoalVisitTimeOnSiteDetails'     { _gvtosdComparisonValue = Nothing     , _gvtosdComparisonType = Nothing     }@@ -5187,12 +5234,12 @@         parseJSON           = withObject "GoalVisitTimeOnSiteDetails"               (\ o ->-                 GoalVisitTimeOnSiteDetails <$>+                 GoalVisitTimeOnSiteDetails' <$>                    (o .:? "comparisonValue") <*>                      (o .:? "comparisonType"))  instance ToJSON GoalVisitTimeOnSiteDetails where-        toJSON GoalVisitTimeOnSiteDetails{..}+        toJSON GoalVisitTimeOnSiteDetails'{..}           = object               (catMaybes                  [("comparisonValue" .=) <$> _gvtosdComparisonValue,@@ -5203,7 +5250,7 @@ -- Analytics web property. -- -- /See:/ 'webProperties' smart constructor.-data WebProperties = WebProperties+data WebProperties = WebProperties'     { _wpNextLink     :: !(Maybe Text)     , _wpItemsPerPage :: !(Maybe (Textual Int32))     , _wpKind         :: !Text@@ -5236,7 +5283,7 @@ webProperties     :: WebProperties webProperties =-    WebProperties+    WebProperties'     { _wpNextLink = Nothing     , _wpItemsPerPage = Nothing     , _wpKind = "analytics#webproperties"@@ -5302,7 +5349,7 @@         parseJSON           = withObject "WebProperties"               (\ o ->-                 WebProperties <$>+                 WebProperties' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#webproperties")                      <*> (o .:? "username")@@ -5312,7 +5359,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON WebProperties where-        toJSON WebProperties{..}+        toJSON WebProperties'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _wpNextLink,@@ -5329,7 +5376,7 @@ -- Analytics custom metric. -- -- /See:/ 'customMetrics' smart constructor.-data CustomMetrics = CustomMetrics+data CustomMetrics = CustomMetrics'     { _cmNextLink     :: !(Maybe Text)     , _cmItemsPerPage :: !(Maybe (Textual Int32))     , _cmKind         :: !Text@@ -5362,7 +5409,7 @@ customMetrics     :: CustomMetrics customMetrics =-    CustomMetrics+    CustomMetrics'     { _cmNextLink = Nothing     , _cmItemsPerPage = Nothing     , _cmKind = "analytics#customMetrics"@@ -5428,7 +5475,7 @@         parseJSON           = withObject "CustomMetrics"               (\ o ->-                 CustomMetrics <$>+                 CustomMetrics' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#customMetrics")                      <*> (o .:? "username")@@ -5438,7 +5485,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON CustomMetrics where-        toJSON CustomMetrics{..}+        toJSON CustomMetrics'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _cmNextLink,@@ -5453,7 +5500,7 @@ -- | Details for the filter of the type ADVANCED. -- -- /See:/ 'filterAdvancedDetails' smart constructor.-data FilterAdvancedDetails = FilterAdvancedDetails+data FilterAdvancedDetails = FilterAdvancedDetails'     { _fadExtractA            :: !(Maybe Text)     , _fadFieldARequired      :: !(Maybe Bool)     , _fadFieldA              :: !(Maybe Text)@@ -5501,7 +5548,7 @@ filterAdvancedDetails     :: FilterAdvancedDetails filterAdvancedDetails =-    FilterAdvancedDetails+    FilterAdvancedDetails'     { _fadExtractA = Nothing     , _fadFieldARequired = Nothing     , _fadFieldA = Nothing@@ -5602,7 +5649,7 @@         parseJSON           = withObject "FilterAdvancedDetails"               (\ o ->-                 FilterAdvancedDetails <$>+                 FilterAdvancedDetails' <$>                    (o .:? "extractA") <*> (o .:? "fieldARequired") <*>                      (o .:? "fieldA")                      <*> (o .:? "fieldBIndex")@@ -5617,7 +5664,7 @@                      <*> (o .:? "overrideOutputField"))  instance ToJSON FilterAdvancedDetails where-        toJSON FilterAdvancedDetails{..}+        toJSON FilterAdvancedDetails'{..}           = object               (catMaybes                  [("extractA" .=) <$> _fadExtractA,@@ -5638,7 +5685,7 @@ -- | Details for the filter of the type UPPER. -- -- /See:/ 'filterUppercaseDetails' smart constructor.-data FilterUppercaseDetails = FilterUppercaseDetails+data FilterUppercaseDetails = FilterUppercaseDetails'     { _fudFieldIndex :: !(Maybe (Textual Int32))     , _fudField      :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -5653,7 +5700,7 @@ filterUppercaseDetails     :: FilterUppercaseDetails filterUppercaseDetails =-    FilterUppercaseDetails+    FilterUppercaseDetails'     { _fudFieldIndex = Nothing     , _fudField = Nothing     }@@ -5674,11 +5721,11 @@         parseJSON           = withObject "FilterUppercaseDetails"               (\ o ->-                 FilterUppercaseDetails <$>+                 FilterUppercaseDetails' <$>                    (o .:? "fieldIndex") <*> (o .:? "field"))  instance ToJSON FilterUppercaseDetails where-        toJSON FilterUppercaseDetails{..}+        toJSON FilterUppercaseDetails'{..}           = object               (catMaybes                  [("fieldIndex" .=) <$> _fudFieldIndex,@@ -5686,7 +5733,7 @@  -- -- /See:/ 'customDataSourceChildLink' smart constructor.-data CustomDataSourceChildLink = CustomDataSourceChildLink+data CustomDataSourceChildLink = CustomDataSourceChildLink'     { _cdsclHref :: !(Maybe Text)     , _cdsclType :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -5701,7 +5748,7 @@ customDataSourceChildLink     :: CustomDataSourceChildLink customDataSourceChildLink =-    CustomDataSourceChildLink+    CustomDataSourceChildLink'     { _cdsclHref = Nothing     , _cdsclType = Nothing     }@@ -5721,11 +5768,11 @@         parseJSON           = withObject "CustomDataSourceChildLink"               (\ o ->-                 CustomDataSourceChildLink <$>+                 CustomDataSourceChildLink' <$>                    (o .:? "href") <*> (o .:? "type"))  instance ToJSON CustomDataSourceChildLink where-        toJSON CustomDataSourceChildLink{..}+        toJSON CustomDataSourceChildLink'{..}           = object               (catMaybes                  [("href" .=) <$> _cdsclHref,@@ -5735,7 +5782,7 @@ -- belongs. -- -- /See:/ 'filterParentLink' smart constructor.-data FilterParentLink = FilterParentLink+data FilterParentLink = FilterParentLink'     { _fplHref :: !(Maybe Text)     , _fplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -5750,7 +5797,7 @@ filterParentLink     :: FilterParentLink filterParentLink =-    FilterParentLink+    FilterParentLink'     { _fplHref = Nothing     , _fplType = "analytics#account"     }@@ -5767,12 +5814,12 @@         parseJSON           = withObject "FilterParentLink"               (\ o ->-                 FilterParentLink <$>+                 FilterParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#account"))  instance ToJSON FilterParentLink where-        toJSON FilterParentLink{..}+        toJSON FilterParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _fplHref,@@ -5781,7 +5828,7 @@ -- | Real time data for a given view (profile). -- -- /See:/ 'realtimeData' smart constructor.-data RealtimeData = RealtimeData+data RealtimeData = RealtimeData'     { _rdProFileInfo         :: !(Maybe RealtimeDataProFileInfo)     , _rdKind                :: !Text     , _rdRows                :: !(Maybe [[Text]])@@ -5817,7 +5864,7 @@ realtimeData     :: RealtimeData realtimeData =-    RealtimeData+    RealtimeData'     { _rdProFileInfo = Nothing     , _rdKind = "analytics#realtimeData"     , _rdRows = Nothing@@ -5890,7 +5937,7 @@         parseJSON           = withObject "RealtimeData"               (\ o ->-                 RealtimeData <$>+                 RealtimeData' <$>                    (o .:? "profileInfo") <*>                      (o .:? "kind" .!= "analytics#realtimeData")                      <*> (o .:? "rows" .!= mempty)@@ -5902,7 +5949,7 @@                      <*> (o .:? "totalsForAllResults"))  instance ToJSON RealtimeData where-        toJSON RealtimeData{..}+        toJSON RealtimeData'{..}           = object               (catMaybes                  [("profileInfo" .=) <$> _rdProFileInfo,@@ -5918,7 +5965,7 @@ -- | JSON template for Analytics Custom Metric. -- -- /See:/ 'customMetric' smart constructor.-data CustomMetric = CustomMetric+data CustomMetric = CustomMetric'     { _cusParentLink    :: !(Maybe CustomMetricParentLink)     , _cusWebPropertyId :: !(Maybe Text)     , _cusKind          :: !Text@@ -5972,7 +6019,7 @@ customMetric     :: CustomMetric customMetric =-    CustomMetric+    CustomMetric'     { _cusParentLink = Nothing     , _cusWebPropertyId = Nothing     , _cusKind = "analytics#customMetric"@@ -6071,7 +6118,7 @@         parseJSON           = withObject "CustomMetric"               (\ o ->-                 CustomMetric <$>+                 CustomMetric' <$>                    (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>                      (o .:? "kind" .!= "analytics#customMetric")                      <*> (o .:? "max_value")@@ -6088,7 +6135,7 @@                      <*> (o .:? "index"))  instance ToJSON CustomMetric where-        toJSON CustomMetric{..}+        toJSON CustomMetric'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _cusParentLink,@@ -6109,11 +6156,12 @@ -- basic information (i.e., summary) for a profile. -- -- /See:/ 'proFileSummary' smart constructor.-data ProFileSummary = ProFileSummary-    { _pfsKind :: !Text-    , _pfsName :: !(Maybe Text)-    , _pfsId   :: !(Maybe Text)-    , _pfsType :: !(Maybe Text)+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.@@ -6124,15 +6172,18 @@ -- -- * 'pfsName' --+-- * 'pfsStarred'+-- -- * 'pfsId' -- -- * 'pfsType' proFileSummary     :: ProFileSummary proFileSummary =-    ProFileSummary+    ProFileSummary'     { _pfsKind = "analytics#profileSummary"     , _pfsName = Nothing+    , _pfsStarred = Nothing     , _pfsId = Nothing     , _pfsType = Nothing     }@@ -6145,6 +6196,11 @@ 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})@@ -6157,24 +6213,26 @@         parseJSON           = withObject "ProFileSummary"               (\ o ->-                 ProFileSummary <$>+                 ProFileSummary' <$>                    (o .:? "kind" .!= "analytics#profileSummary") <*>                      (o .:? "name")+                     <*> (o .:? "starred")                      <*> (o .:? "id")                      <*> (o .:? "type"))  instance ToJSON ProFileSummary where-        toJSON ProFileSummary{..}+        toJSON ProFileSummary'{..}           = object               (catMaybes                  [Just ("kind" .= _pfsKind), ("name" .=) <$> _pfsName,-                  ("id" .=) <$> _pfsId, ("type" .=) <$> _pfsType])+                  ("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+data CustomDimensionParentLink = CustomDimensionParentLink'     { _cdplHref :: !(Maybe Text)     , _cdplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -6189,7 +6247,7 @@ customDimensionParentLink     :: CustomDimensionParentLink customDimensionParentLink =-    CustomDimensionParentLink+    CustomDimensionParentLink'     { _cdplHref = Nothing     , _cdplType = "analytics#webproperty"     }@@ -6206,12 +6264,12 @@         parseJSON           = withObject "CustomDimensionParentLink"               (\ o ->-                 CustomDimensionParentLink <$>+                 CustomDimensionParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#webproperty"))  instance ToJSON CustomDimensionParentLink where-        toJSON CustomDimensionParentLink{..}+        toJSON CustomDimensionParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _cdplHref,@@ -6220,7 +6278,7 @@ -- | JSON template for an Analytics web property. -- -- /See:/ 'webProperty' smart constructor.-data WebProperty = WebProperty+data WebProperty = WebProperty'     { _wParentLink            :: !(Maybe WebPropertyParentLink)     , _wChildLink             :: !(Maybe WebPropertyChildLink)     , _wDefaultProFileId      :: !(Maybe (Textual Int64))@@ -6229,6 +6287,7 @@     , _wSelfLink              :: !(Maybe Text)     , _wAccountId             :: !(Maybe Text)     , _wName                  :: !(Maybe Text)+    , _wStarred               :: !(Maybe Bool)     , _wInternalWebPropertyId :: !(Maybe Text)     , _wId                    :: !(Maybe Text)     , _wUpdated               :: !(Maybe DateTime')@@ -6259,6 +6318,8 @@ -- -- * 'wName' --+-- * 'wStarred'+-- -- * 'wInternalWebPropertyId' -- -- * 'wId'@@ -6277,7 +6338,7 @@ webProperty     :: WebProperty webProperty =-    WebProperty+    WebProperty'     { _wParentLink = Nothing     , _wChildLink = Nothing     , _wDefaultProFileId = Nothing@@ -6286,6 +6347,7 @@     , _wSelfLink = Nothing     , _wAccountId = Nothing     , _wName = Nothing+    , _wStarred = Nothing     , _wInternalWebPropertyId = Nothing     , _wId = Nothing     , _wUpdated = Nothing@@ -6339,6 +6401,10 @@ 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@@ -6386,7 +6452,7 @@         parseJSON           = withObject "WebProperty"               (\ o ->-                 WebProperty <$>+                 WebProperty' <$>                    (o .:? "parentLink") <*> (o .:? "childLink") <*>                      (o .:? "defaultProfileId")                      <*> (o .:? "kind" .!= "analytics#webproperty")@@ -6394,6 +6460,7 @@                      <*> (o .:? "selfLink")                      <*> (o .:? "accountId")                      <*> (o .:? "name")+                     <*> (o .:? "starred")                      <*> (o .:? "internalWebPropertyId")                      <*> (o .:? "id")                      <*> (o .:? "updated")@@ -6404,7 +6471,7 @@                      <*> (o .:? "level"))  instance ToJSON WebProperty where-        toJSON WebProperty{..}+        toJSON WebProperty'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _wParentLink,@@ -6414,7 +6481,7 @@                   ("created" .=) <$> _wCreated,                   ("selfLink" .=) <$> _wSelfLink,                   ("accountId" .=) <$> _wAccountId,-                  ("name" .=) <$> _wName,+                  ("name" .=) <$> _wName, ("starred" .=) <$> _wStarred,                   ("internalWebPropertyId" .=) <$>                     _wInternalWebPropertyId,                   ("id" .=) <$> _wId, ("updated" .=) <$> _wUpdated,@@ -6427,7 +6494,7 @@ -- | Permissions the user has for this web property. -- -- /See:/ 'webPropertyPermissions' smart constructor.-newtype WebPropertyPermissions = WebPropertyPermissions+newtype WebPropertyPermissions = WebPropertyPermissions'     { _wppEffective :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -6439,7 +6506,7 @@ webPropertyPermissions     :: WebPropertyPermissions webPropertyPermissions =-    WebPropertyPermissions+    WebPropertyPermissions'     { _wppEffective = Nothing     } @@ -6456,11 +6523,11 @@         parseJSON           = withObject "WebPropertyPermissions"               (\ o ->-                 WebPropertyPermissions <$>+                 WebPropertyPermissions' <$>                    (o .:? "effective" .!= mempty))  instance ToJSON WebPropertyPermissions where-        toJSON WebPropertyPermissions{..}+        toJSON WebPropertyPermissions'{..}           = object               (catMaybes [("effective" .=) <$> _wppEffective]) @@ -6468,7 +6535,7 @@ -- that a user has for an entity. -- -- /See:/ 'entityUserLink' smart constructor.-data EntityUserLink = EntityUserLink+data EntityUserLink = EntityUserLink'     { _euluKind        :: !Text     , _euluUserRef     :: !(Maybe UserRef)     , _euluSelfLink    :: !(Maybe Text)@@ -6495,7 +6562,7 @@ entityUserLink     :: EntityUserLink entityUserLink =-    EntityUserLink+    EntityUserLink'     { _euluKind = "analytics#entityUserLink"     , _euluUserRef = Nothing     , _euluSelfLink = Nothing@@ -6538,7 +6605,7 @@         parseJSON           = withObject "EntityUserLink"               (\ o ->-                 EntityUserLink <$>+                 EntityUserLink' <$>                    (o .:? "kind" .!= "analytics#entityUserLink") <*>                      (o .:? "userRef")                      <*> (o .:? "selfLink")@@ -6547,7 +6614,7 @@                      <*> (o .:? "entity"))  instance ToJSON EntityUserLink where-        toJSON EntityUserLink{..}+        toJSON EntityUserLink'{..}           = object               (catMaybes                  [Just ("kind" .= _euluKind),@@ -6561,7 +6628,7 @@ -- which this custom data source belongs. -- -- /See:/ 'customDataSourceParentLink' smart constructor.-data CustomDataSourceParentLink = CustomDataSourceParentLink+data CustomDataSourceParentLink = CustomDataSourceParentLink'     { _cdsplHref :: !(Maybe Text)     , _cdsplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -6576,7 +6643,7 @@ customDataSourceParentLink     :: CustomDataSourceParentLink customDataSourceParentLink =-    CustomDataSourceParentLink+    CustomDataSourceParentLink'     { _cdsplHref = Nothing     , _cdsplType = "analytics#webproperty"     }@@ -6595,12 +6662,12 @@         parseJSON           = withObject "CustomDataSourceParentLink"               (\ o ->-                 CustomDataSourceParentLink <$>+                 CustomDataSourceParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#webproperty"))  instance ToJSON CustomDataSourceParentLink where-        toJSON CustomDataSourceParentLink{..}+        toJSON CustomDataSourceParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _cdsplHref,@@ -6608,7 +6675,7 @@  -- -- /See:/ 'goalEventDetailsEventConditionsItem' smart constructor.-data GoalEventDetailsEventConditionsItem = GoalEventDetailsEventConditionsItem+data GoalEventDetailsEventConditionsItem = GoalEventDetailsEventConditionsItem'     { _gedeciMatchType       :: !(Maybe Text)     , _gedeciExpression      :: !(Maybe Text)     , _gedeciComparisonValue :: !(Maybe (Textual Int64))@@ -6632,7 +6699,7 @@ goalEventDetailsEventConditionsItem     :: GoalEventDetailsEventConditionsItem goalEventDetailsEventConditionsItem =-    GoalEventDetailsEventConditionsItem+    GoalEventDetailsEventConditionsItem'     { _gedeciMatchType = Nothing     , _gedeciExpression = Nothing     , _gedeciComparisonValue = Nothing@@ -6678,7 +6745,7 @@         parseJSON           = withObject "GoalEventDetailsEventConditionsItem"               (\ o ->-                 GoalEventDetailsEventConditionsItem <$>+                 GoalEventDetailsEventConditionsItem' <$>                    (o .:? "matchType") <*> (o .:? "expression") <*>                      (o .:? "comparisonValue")                      <*> (o .:? "type")@@ -6686,7 +6753,7 @@  instance ToJSON GoalEventDetailsEventConditionsItem          where-        toJSON GoalEventDetailsEventConditionsItem{..}+        toJSON GoalEventDetailsEventConditionsItem'{..}           = object               (catMaybes                  [("matchType" .=) <$> _gedeciMatchType,@@ -6698,7 +6765,7 @@ -- | Analytics data request query parameters. -- -- /See:/ 'mcfDataQuery' smart constructor.-data McfDataQuery = McfDataQuery+data McfDataQuery = McfDataQuery'     { _mdqMetrics       :: !(Maybe [Text])     , _mdqSamplingLevel :: !(Maybe Text)     , _mdqFilters       :: !(Maybe Text)@@ -6740,7 +6807,7 @@ mcfDataQuery     :: McfDataQuery mcfDataQuery =-    McfDataQuery+    McfDataQuery'     { _mdqMetrics = Nothing     , _mdqSamplingLevel = Nothing     , _mdqFilters = Nothing@@ -6821,7 +6888,7 @@         parseJSON           = withObject "McfDataQuery"               (\ o ->-                 McfDataQuery <$>+                 McfDataQuery' <$>                    (o .:? "metrics" .!= mempty) <*>                      (o .:? "samplingLevel")                      <*> (o .:? "filters")@@ -6835,7 +6902,7 @@                      <*> (o .:? "start-date"))  instance ToJSON McfDataQuery where-        toJSON McfDataQuery{..}+        toJSON McfDataQuery'{..}           = object               (catMaybes                  [("metrics" .=) <$> _mdqMetrics,@@ -6853,7 +6920,7 @@ -- | JSON template for Analytics goal resource. -- -- /See:/ 'goal' smart constructor.-data Goal = Goal+data Goal = Goal'     { _goaParentLink             :: !(Maybe GoalParentLink)     , _goaWebPropertyId          :: !(Maybe Text)     , _goaKind                   :: !Text@@ -6916,7 +6983,7 @@ goal     :: Goal goal =-    Goal+    Goal'     { _goaParentLink = Nothing     , _goaWebPropertyId = Nothing     , _goaKind = "analytics#goal"@@ -7040,7 +7107,7 @@         parseJSON           = withObject "Goal"               (\ o ->-                 Goal <$>+                 Goal' <$>                    (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>                      (o .:? "kind" .!= "analytics#goal")                      <*> (o .:? "created")@@ -7060,7 +7127,7 @@                      <*> (o .:? "type"))  instance ToJSON Goal where-        toJSON Goal{..}+        toJSON Goal'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _goaParentLink,@@ -7091,7 +7158,7 @@ -- property and profile. -- -- /See:/ 'accountTicket' smart constructor.-data AccountTicket = AccountTicket+data AccountTicket = AccountTicket'     { _atRedirectURI :: !(Maybe Text)     , _atKind        :: !Text     , _atProFile     :: !(Maybe ProFile)@@ -7118,7 +7185,7 @@ accountTicket     :: AccountTicket accountTicket =-    AccountTicket+    AccountTicket'     { _atRedirectURI = Nothing     , _atKind = "analytics#accountTicket"     , _atProFile = Nothing@@ -7162,7 +7229,7 @@         parseJSON           = withObject "AccountTicket"               (\ o ->-                 AccountTicket <$>+                 AccountTicket' <$>                    (o .:? "redirectUri") <*>                      (o .:? "kind" .!= "analytics#accountTicket")                      <*> (o .:? "profile")@@ -7171,7 +7238,7 @@                      <*> (o .:? "id"))  instance ToJSON AccountTicket where-        toJSON AccountTicket{..}+        toJSON AccountTicket'{..}           = object               (catMaybes                  [("redirectUri" .=) <$> _atRedirectURI,@@ -7185,10 +7252,11 @@ -- lightweight tree comprised of properties\/profiles. -- -- /See:/ 'accountSummary' smart constructor.-data AccountSummary = AccountSummary+data AccountSummary = AccountSummary'     { _assKind          :: !Text     , _assWebProperties :: !(Maybe [WebPropertySummary])     , _assName          :: !(Maybe Text)+    , _assStarred       :: !(Maybe Bool)     , _assId            :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -7202,14 +7270,17 @@ -- -- * 'assName' --+-- * 'assStarred'+-- -- * 'assId' accountSummary     :: AccountSummary accountSummary =-    AccountSummary+    AccountSummary'     { _assKind = "analytics#accountSummary"     , _assWebProperties = Nothing     , _assName = Nothing+    , _assStarred = Nothing     , _assId = Nothing     } @@ -7229,6 +7300,11 @@ 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})@@ -7237,24 +7313,27 @@         parseJSON           = withObject "AccountSummary"               (\ o ->-                 AccountSummary <$>+                 AccountSummary' <$>                    (o .:? "kind" .!= "analytics#accountSummary") <*>                      (o .:? "webProperties" .!= mempty)                      <*> (o .:? "name")+                     <*> (o .:? "starred")                      <*> (o .:? "id"))  instance ToJSON AccountSummary where-        toJSON AccountSummary{..}+        toJSON AccountSummary'{..}           = object               (catMaybes                  [Just ("kind" .= _assKind),                   ("webProperties" .=) <$> _assWebProperties,-                  ("name" .=) <$> _assName, ("id" .=) <$> _assId])+                  ("name" .=) <$> _assName,+                  ("starred" .=) <$> _assStarred,+                  ("id" .=) <$> _assId])  -- | Real time data request query parameters. -- -- /See:/ 'realtimeDataQuery' smart constructor.-data RealtimeDataQuery = RealtimeDataQuery+data RealtimeDataQuery = RealtimeDataQuery'     { _rdqMetrics    :: !(Maybe [Text])     , _rdqFilters    :: !(Maybe Text)     , _rdqIds        :: !(Maybe Text)@@ -7281,7 +7360,7 @@ realtimeDataQuery     :: RealtimeDataQuery realtimeDataQuery =-    RealtimeDataQuery+    RealtimeDataQuery'     { _rdqMetrics = Nothing     , _rdqFilters = Nothing     , _rdqIds = Nothing@@ -7329,7 +7408,7 @@         parseJSON           = withObject "RealtimeDataQuery"               (\ o ->-                 RealtimeDataQuery <$>+                 RealtimeDataQuery' <$>                    (o .:? "metrics" .!= mempty) <*> (o .:? "filters")                      <*> (o .:? "ids")                      <*> (o .:? "sort" .!= mempty)@@ -7337,7 +7416,7 @@                      <*> (o .:? "max-results"))  instance ToJSON RealtimeDataQuery where-        toJSON RealtimeDataQuery{..}+        toJSON RealtimeDataQuery'{..}           = object               (catMaybes                  [("metrics" .=) <$> _rdqMetrics,@@ -7349,7 +7428,7 @@ -- | Lists columns (dimensions and metrics) for a particular report type. -- -- /See:/ 'columns' smart constructor.-data Columns = Columns+data Columns = Columns'     { _colEtag           :: !(Maybe Text)     , _colKind           :: !Text     , _colItems          :: !(Maybe [Column])@@ -7373,7 +7452,7 @@ columns     :: Columns columns =-    Columns+    Columns'     { _colEtag = Nothing     , _colKind = "analytics#columns"     , _colItems = Nothing@@ -7416,7 +7495,7 @@         parseJSON           = withObject "Columns"               (\ o ->-                 Columns <$>+                 Columns' <$>                    (o .:? "etag") <*>                      (o .:? "kind" .!= "analytics#columns")                      <*> (o .:? "items" .!= mempty)@@ -7424,7 +7503,7 @@                      <*> (o .:? "attributeNames" .!= mempty))  instance ToJSON Columns where-        toJSON Columns{..}+        toJSON Columns'{..}           = object               (catMaybes                  [("etag" .=) <$> _colEtag, Just ("kind" .= _colKind),@@ -7435,7 +7514,7 @@ -- | Details for the filter of the type LOWER. -- -- /See:/ 'filterLowercaseDetails' smart constructor.-data FilterLowercaseDetails = FilterLowercaseDetails+data FilterLowercaseDetails = FilterLowercaseDetails'     { _fldFieldIndex :: !(Maybe (Textual Int32))     , _fldField      :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -7450,7 +7529,7 @@ filterLowercaseDetails     :: FilterLowercaseDetails filterLowercaseDetails =-    FilterLowercaseDetails+    FilterLowercaseDetails'     { _fldFieldIndex = Nothing     , _fldField = Nothing     }@@ -7471,11 +7550,11 @@         parseJSON           = withObject "FilterLowercaseDetails"               (\ o ->-                 FilterLowercaseDetails <$>+                 FilterLowercaseDetails' <$>                    (o .:? "fieldIndex") <*> (o .:? "field"))  instance ToJSON FilterLowercaseDetails where-        toJSON FilterLowercaseDetails{..}+        toJSON FilterLowercaseDetails'{..}           = object               (catMaybes                  [("fieldIndex" .=) <$> _fldFieldIndex,@@ -7484,7 +7563,7 @@ -- | JSON template for an Analytics account filter. -- -- /See:/ 'filter'' smart constructor.-data Filter = Filter+data Filter = Filter'     { _filParentLink              :: !(Maybe FilterParentLink)     , _filAdvancedDetails         :: !(Maybe FilterAdvancedDetails)     , _filUppercaseDetails        :: !(Maybe FilterUppercaseDetails)@@ -7538,7 +7617,7 @@ filter'     :: Filter filter' =-    Filter+    Filter'     { _filParentLink = Nothing     , _filAdvancedDetails = Nothing     , _filUppercaseDetails = Nothing@@ -7642,7 +7721,7 @@         parseJSON           = withObject "Filter"               (\ o ->-                 Filter <$>+                 Filter' <$>                    (o .:? "parentLink") <*> (o .:? "advancedDetails")                      <*> (o .:? "uppercaseDetails")                      <*> (o .:? "lowercaseDetails")@@ -7659,7 +7738,7 @@                      <*> (o .:? "searchAndReplaceDetails"))  instance ToJSON Filter where-        toJSON Filter{..}+        toJSON Filter'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _filParentLink,@@ -7683,7 +7762,7 @@ -- upload collection corresponds to a single Analytics data upload. -- -- /See:/ 'uploads' smart constructor.-data Uploads = Uploads+data Uploads = Uploads'     { _uplNextLink     :: !(Maybe Text)     , _uplItemsPerPage :: !(Maybe (Textual Int32))     , _uplKind         :: !Text@@ -7713,7 +7792,7 @@ uploads     :: Uploads uploads =-    Uploads+    Uploads'     { _uplNextLink = Nothing     , _uplItemsPerPage = Nothing     , _uplKind = "analytics#uploads"@@ -7775,7 +7854,7 @@         parseJSON           = withObject "Uploads"               (\ o ->-                 Uploads <$>+                 Uploads' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#uploads")                      <*> (o .:? "items" .!= mempty)@@ -7784,7 +7863,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Uploads where-        toJSON Uploads{..}+        toJSON Uploads'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _uplNextLink,@@ -7800,7 +7879,7 @@ -- single Analytics custom dimension. -- -- /See:/ 'customDimensions' smart constructor.-data CustomDimensions = CustomDimensions+data CustomDimensions = CustomDimensions'     { _cdNextLink     :: !(Maybe Text)     , _cdItemsPerPage :: !(Maybe (Textual Int32))     , _cdKind         :: !Text@@ -7833,7 +7912,7 @@ customDimensions     :: CustomDimensions customDimensions =-    CustomDimensions+    CustomDimensions'     { _cdNextLink = Nothing     , _cdItemsPerPage = Nothing     , _cdKind = "analytics#customDimensions"@@ -7899,7 +7978,7 @@         parseJSON           = withObject "CustomDimensions"               (\ o ->-                 CustomDimensions <$>+                 CustomDimensions' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#customDimensions")                      <*> (o .:? "username")@@ -7909,7 +7988,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON CustomDimensions where-        toJSON CustomDimensions{..}+        toJSON CustomDimensions'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _cdNextLink,@@ -7926,7 +8005,7 @@ -- segment. -- -- /See:/ 'segments' smart constructor.-data Segments = Segments+data Segments = Segments'     { _sNextLink     :: !(Maybe Text)     , _sItemsPerPage :: !(Maybe (Textual Int32))     , _sKind         :: !Text@@ -7959,7 +8038,7 @@ segments     :: Segments segments =-    Segments+    Segments'     { _sNextLink = Nothing     , _sItemsPerPage = Nothing     , _sKind = "analytics#segments"@@ -8025,7 +8104,7 @@         parseJSON           = withObject "Segments"               (\ o ->-                 Segments <$>+                 Segments' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#segments")                      <*> (o .:? "username")@@ -8035,7 +8114,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON Segments where-        toJSON Segments{..}+        toJSON Segments'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _sNextLink,@@ -8049,7 +8128,7 @@  -- -- /See:/ 'gaDataDataTable' smart constructor.-data GaDataDataTable = GaDataDataTable+data GaDataDataTable = GaDataDataTable'     { _gddtCols :: !(Maybe [GaDataDataTableColsItem])     , _gddtRows :: !(Maybe [GaDataDataTableRowsItem])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -8064,7 +8143,7 @@ gaDataDataTable     :: GaDataDataTable gaDataDataTable =-    GaDataDataTable+    GaDataDataTable'     { _gddtCols = Nothing     , _gddtRows = Nothing     }@@ -8085,12 +8164,12 @@         parseJSON           = withObject "GaDataDataTable"               (\ o ->-                 GaDataDataTable <$>+                 GaDataDataTable' <$>                    (o .:? "cols" .!= mempty) <*>                      (o .:? "rows" .!= mempty))  instance ToJSON GaDataDataTable where-        toJSON GaDataDataTable{..}+        toJSON GaDataDataTable'{..}           = object               (catMaybes                  [("cols" .=) <$> _gddtCols,@@ -8099,7 +8178,7 @@ -- | Web property being linked. -- -- /See:/ 'entityAdWordsLinkEntity' smart constructor.-newtype EntityAdWordsLinkEntity = EntityAdWordsLinkEntity+newtype EntityAdWordsLinkEntity = EntityAdWordsLinkEntity'     { _eawleWebPropertyRef :: Maybe WebPropertyRef     } deriving (Eq,Show,Data,Typeable,Generic) @@ -8111,7 +8190,7 @@ entityAdWordsLinkEntity     :: EntityAdWordsLinkEntity entityAdWordsLinkEntity =-    EntityAdWordsLinkEntity+    EntityAdWordsLinkEntity'     { _eawleWebPropertyRef = Nothing     } @@ -8124,10 +8203,11 @@         parseJSON           = withObject "EntityAdWordsLinkEntity"               (\ o ->-                 EntityAdWordsLinkEntity <$> (o .:? "webPropertyRef"))+                 EntityAdWordsLinkEntity' <$>+                   (o .:? "webPropertyRef"))  instance ToJSON EntityAdWordsLinkEntity where-        toJSON EntityAdWordsLinkEntity{..}+        toJSON EntityAdWordsLinkEntity'{..}           = object               (catMaybes                  [("webPropertyRef" .=) <$> _eawleWebPropertyRef])@@ -8135,7 +8215,7 @@ -- | Details for the goal of the type URL_DESTINATION. -- -- /See:/ 'goalURLDestinationDetails' smart constructor.-data GoalURLDestinationDetails = GoalURLDestinationDetails+data GoalURLDestinationDetails = GoalURLDestinationDetails'     { _guddURL               :: !(Maybe Text)     , _guddMatchType         :: !(Maybe Text)     , _guddSteps             :: !(Maybe [GoalURLDestinationDetailsStepsItem])@@ -8159,7 +8239,7 @@ goalURLDestinationDetails     :: GoalURLDestinationDetails goalURLDestinationDetails =-    GoalURLDestinationDetails+    GoalURLDestinationDetails'     { _guddURL = Nothing     , _guddMatchType = Nothing     , _guddSteps = Nothing@@ -8201,14 +8281,14 @@         parseJSON           = withObject "GoalURLDestinationDetails"               (\ o ->-                 GoalURLDestinationDetails <$>+                 GoalURLDestinationDetails' <$>                    (o .:? "url") <*> (o .:? "matchType") <*>                      (o .:? "steps" .!= mempty)                      <*> (o .:? "caseSensitive")                      <*> (o .:? "firstStepRequired"))  instance ToJSON GoalURLDestinationDetails where-        toJSON GoalURLDestinationDetails{..}+        toJSON GoalURLDestinationDetails'{..}           = object               (catMaybes                  [("url" .=) <$> _guddURL,@@ -8222,7 +8302,7 @@ -- profile filter link. -- -- /See:/ 'proFileFilterLinks' smart constructor.-data ProFileFilterLinks = ProFileFilterLinks+data ProFileFilterLinks = ProFileFilterLinks'     { _pfflNextLink     :: !(Maybe Text)     , _pfflItemsPerPage :: !(Maybe (Textual Int32))     , _pfflKind         :: !Text@@ -8255,7 +8335,7 @@ proFileFilterLinks     :: ProFileFilterLinks proFileFilterLinks =-    ProFileFilterLinks+    ProFileFilterLinks'     { _pfflNextLink = Nothing     , _pfflItemsPerPage = Nothing     , _pfflKind = "analytics#profileFilterLinks"@@ -8323,7 +8403,7 @@         parseJSON           = withObject "ProFileFilterLinks"               (\ o ->-                 ProFileFilterLinks <$>+                 ProFileFilterLinks' <$>                    (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>                      (o .:? "kind" .!= "analytics#profileFilterLinks")                      <*> (o .:? "username")@@ -8333,7 +8413,7 @@                      <*> (o .:? "previousLink"))  instance ToJSON ProFileFilterLinks where-        toJSON ProFileFilterLinks{..}+        toJSON ProFileFilterLinks'{..}           = object               (catMaybes                  [("nextLink" .=) <$> _pfflNextLink,@@ -8349,7 +8429,7 @@ -- web property belongs. -- -- /See:/ 'webPropertyParentLink' smart constructor.-data WebPropertyParentLink = WebPropertyParentLink+data WebPropertyParentLink = WebPropertyParentLink'     { _wpplHref :: !(Maybe Text)     , _wpplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -8364,7 +8444,7 @@ webPropertyParentLink     :: WebPropertyParentLink webPropertyParentLink =-    WebPropertyParentLink+    WebPropertyParentLink'     { _wpplHref = Nothing     , _wpplType = "analytics#account"     }@@ -8381,12 +8461,12 @@         parseJSON           = withObject "WebPropertyParentLink"               (\ o ->-                 WebPropertyParentLink <$>+                 WebPropertyParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#account"))  instance ToJSON WebPropertyParentLink where-        toJSON WebPropertyParentLink{..}+        toJSON WebPropertyParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _wpplHref,@@ -8396,7 +8476,7 @@ -- requested. -- -- /See:/ 'gaDataProFileInfo' smart constructor.-data GaDataProFileInfo = GaDataProFileInfo+data GaDataProFileInfo = GaDataProFileInfo'     { _gdpfiWebPropertyId         :: !(Maybe Text)     , _gdpfiProFileId             :: !(Maybe Text)     , _gdpfiProFileName           :: !(Maybe Text)@@ -8423,7 +8503,7 @@ gaDataProFileInfo     :: GaDataProFileInfo gaDataProFileInfo =-    GaDataProFileInfo+    GaDataProFileInfo'     { _gdpfiWebPropertyId = Nothing     , _gdpfiProFileId = Nothing     , _gdpfiProFileName = Nothing@@ -8471,7 +8551,7 @@         parseJSON           = withObject "GaDataProFileInfo"               (\ o ->-                 GaDataProFileInfo <$>+                 GaDataProFileInfo' <$>                    (o .:? "webPropertyId") <*> (o .:? "profileId") <*>                      (o .:? "profileName")                      <*> (o .:? "accountId")@@ -8479,7 +8559,7 @@                      <*> (o .:? "tableId"))  instance ToJSON GaDataProFileInfo where-        toJSON GaDataProFileInfo{..}+        toJSON GaDataProFileInfo'{..}           = object               (catMaybes                  [("webPropertyId" .=) <$> _gdpfiWebPropertyId,@@ -8493,7 +8573,7 @@ -- | Metadata returned for an upload operation. -- -- /See:/ 'upload' smart constructor.-data Upload = Upload+data Upload = Upload'     { _uuStatus             :: !(Maybe Text)     , _uuKind               :: !Text     , _uuCustomDataSourceId :: !(Maybe Text)@@ -8520,7 +8600,7 @@ upload     :: Upload upload =-    Upload+    Upload'     { _uuStatus = Nothing     , _uuKind = "analytics#upload"     , _uuCustomDataSourceId = Nothing@@ -8565,7 +8645,7 @@         parseJSON           = withObject "Upload"               (\ o ->-                 Upload <$>+                 Upload' <$>                    (o .:? "status") <*>                      (o .:? "kind" .!= "analytics#upload")                      <*> (o .:? "customDataSourceId")@@ -8574,7 +8654,7 @@                      <*> (o .:? "errors" .!= mempty))  instance ToJSON Upload where-        toJSON Upload{..}+        toJSON Upload'{..}           = object               (catMaybes                  [("status" .=) <$> _uuStatus,@@ -8586,7 +8666,7 @@ -- | JSON template for Analytics Custom Dimension. -- -- /See:/ 'customDimension' smart constructor.-data CustomDimension = CustomDimension+data CustomDimension = CustomDimension'     { _cddParentLink    :: !(Maybe CustomDimensionParentLink)     , _cddWebPropertyId :: !(Maybe Text)     , _cddKind          :: !Text@@ -8631,7 +8711,7 @@ customDimension     :: CustomDimension customDimension =-    CustomDimension+    CustomDimension'     { _cddParentLink = Nothing     , _cddWebPropertyId = Nothing     , _cddKind = "analytics#customDimension"@@ -8713,7 +8793,7 @@         parseJSON           = withObject "CustomDimension"               (\ o ->-                 CustomDimension <$>+                 CustomDimension' <$>                    (o .:? "parentLink") <*> (o .:? "webPropertyId") <*>                      (o .:? "kind" .!= "analytics#customDimension")                      <*> (o .:? "created")@@ -8727,7 +8807,7 @@                      <*> (o .:? "index"))  instance ToJSON CustomDimension where-        toJSON CustomDimension{..}+        toJSON CustomDimension'{..}           = object               (catMaybes                  [("parentLink" .=) <$> _cddParentLink,@@ -8744,7 +8824,7 @@ -- | JSON template for an Analytics segment. -- -- /See:/ 'segment' smart constructor.-data Segment = Segment+data Segment = Segment'     { _segDefinition :: !(Maybe Text)     , _segKind       :: !Text     , _segCreated    :: !(Maybe DateTime')@@ -8780,7 +8860,7 @@ segment     :: Segment segment =-    Segment+    Segment'     { _segDefinition = Nothing     , _segKind = "analytics#segment"     , _segCreated = Nothing@@ -8841,7 +8921,7 @@         parseJSON           = withObject "Segment"               (\ o ->-                 Segment <$>+                 Segment' <$>                    (o .:? "definition") <*>                      (o .:? "kind" .!= "analytics#segment")                      <*> (o .:? "created")@@ -8853,7 +8933,7 @@                      <*> (o .:? "segmentId"))  instance ToJSON Segment where-        toJSON Segment{..}+        toJSON Segment'{..}           = object               (catMaybes                  [("definition" .=) <$> _segDefinition,@@ -8869,7 +8949,7 @@ -- for this account. -- -- /See:/ 'accountChildLink' smart constructor.-data AccountChildLink = AccountChildLink+data AccountChildLink = AccountChildLink'     { _aclHref :: !(Maybe Text)     , _aclType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -8884,7 +8964,7 @@ accountChildLink     :: AccountChildLink accountChildLink =-    AccountChildLink+    AccountChildLink'     { _aclHref = Nothing     , _aclType = "analytics#webproperties"     }@@ -8901,12 +8981,12 @@         parseJSON           = withObject "AccountChildLink"               (\ o ->-                 AccountChildLink <$>+                 AccountChildLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#webproperties"))  instance ToJSON AccountChildLink where-        toJSON AccountChildLink{..}+        toJSON AccountChildLink'{..}           = object               (catMaybes                  [("href" .=) <$> _aclHref,@@ -8915,7 +8995,7 @@ -- | JSON template for an Analytics profile filter link. -- -- /See:/ 'proFileFilterLink' smart constructor.-data ProFileFilterLink = ProFileFilterLink+data ProFileFilterLink = ProFileFilterLink'     { _proProFileRef :: !(Maybe ProFileRef)     , _proKind       :: !Text     , _proFilterRef  :: !(Maybe FilterRef)@@ -8942,7 +9022,7 @@ proFileFilterLink     :: ProFileFilterLink proFileFilterLink =-    ProFileFilterLink+    ProFileFilterLink'     { _proProFileRef = Nothing     , _proKind = "analytics#profileFilterLink"     , _proFilterRef = Nothing@@ -8995,7 +9075,7 @@         parseJSON           = withObject "ProFileFilterLink"               (\ o ->-                 ProFileFilterLink <$>+                 ProFileFilterLink' <$>                    (o .:? "profileRef") <*>                      (o .:? "kind" .!= "analytics#profileFilterLink")                      <*> (o .:? "filterRef")@@ -9004,7 +9084,7 @@                      <*> (o .:? "rank"))  instance ToJSON ProFileFilterLink where-        toJSON ProFileFilterLink{..}+        toJSON ProFileFilterLink'{..}           = object               (catMaybes                  [("profileRef" .=) <$> _proProFileRef,@@ -9017,7 +9097,7 @@ -- custom metric belongs. -- -- /See:/ 'customMetricParentLink' smart constructor.-data CustomMetricParentLink = CustomMetricParentLink+data CustomMetricParentLink = CustomMetricParentLink'     { _cmplHref :: !(Maybe Text)     , _cmplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -9032,7 +9112,7 @@ customMetricParentLink     :: CustomMetricParentLink customMetricParentLink =-    CustomMetricParentLink+    CustomMetricParentLink'     { _cmplHref = Nothing     , _cmplType = "analytics#webproperty"     }@@ -9049,12 +9129,12 @@         parseJSON           = withObject "CustomMetricParentLink"               (\ o ->-                 CustomMetricParentLink <$>+                 CustomMetricParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#webproperty"))  instance ToJSON CustomMetricParentLink where-        toJSON CustomMetricParentLink{..}+        toJSON CustomMetricParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _cmplHref,@@ -9063,7 +9143,7 @@ -- | JSON template for a metadata column. -- -- /See:/ 'column' smart constructor.-data Column = Column+data Column = Column'     { _ccKind       :: !Text     , _ccAttributes :: !(Maybe ColumnAttributes)     , _ccId         :: !(Maybe Text)@@ -9081,7 +9161,7 @@ column     :: Column column =-    Column+    Column'     { _ccKind = "analytics#column"     , _ccAttributes = Nothing     , _ccId = Nothing@@ -9104,13 +9184,13 @@         parseJSON           = withObject "Column"               (\ o ->-                 Column <$>+                 Column' <$>                    (o .:? "kind" .!= "analytics#column") <*>                      (o .:? "attributes")                      <*> (o .:? "id"))  instance ToJSON Column where-        toJSON Column{..}+        toJSON Column'{..}           = object               (catMaybes                  [Just ("kind" .= _ccKind),@@ -9119,7 +9199,7 @@  -- -- /See:/ 'gaDataDataTableColsItem' smart constructor.-data GaDataDataTableColsItem = GaDataDataTableColsItem+data GaDataDataTableColsItem = GaDataDataTableColsItem'     { _gddtciId    :: !(Maybe Text)     , _gddtciType  :: !(Maybe Text)     , _gddtciLabel :: !(Maybe Text)@@ -9137,7 +9217,7 @@ gaDataDataTableColsItem     :: GaDataDataTableColsItem gaDataDataTableColsItem =-    GaDataDataTableColsItem+    GaDataDataTableColsItem'     { _gddtciId = Nothing     , _gddtciType = Nothing     , _gddtciLabel = Nothing@@ -9158,11 +9238,11 @@         parseJSON           = withObject "GaDataDataTableColsItem"               (\ o ->-                 GaDataDataTableColsItem <$>+                 GaDataDataTableColsItem' <$>                    (o .:? "id") <*> (o .:? "type") <*> (o .:? "label"))  instance ToJSON GaDataDataTableColsItem where-        toJSON GaDataDataTableColsItem{..}+        toJSON GaDataDataTableColsItem'{..}           = object               (catMaybes                  [("id" .=) <$> _gddtciId,@@ -9171,7 +9251,7 @@  -- -- /See:/ 'experimentVariationsItem' smart constructor.-data ExperimentVariationsItem = ExperimentVariationsItem+data ExperimentVariationsItem = ExperimentVariationsItem'     { _eviStatus :: !(Maybe Text)     , _eviWeight :: !(Maybe (Textual Double))     , _eviURL    :: !(Maybe Text)@@ -9195,7 +9275,7 @@ experimentVariationsItem     :: ExperimentVariationsItem experimentVariationsItem =-    ExperimentVariationsItem+    ExperimentVariationsItem'     { _eviStatus = Nothing     , _eviWeight = Nothing     , _eviURL = Nothing@@ -9238,14 +9318,14 @@         parseJSON           = withObject "ExperimentVariationsItem"               (\ o ->-                 ExperimentVariationsItem <$>+                 ExperimentVariationsItem' <$>                    (o .:? "status") <*> (o .:? "weight") <*>                      (o .:? "url")                      <*> (o .:? "won")                      <*> (o .:? "name"))  instance ToJSON ExperimentVariationsItem where-        toJSON ExperimentVariationsItem{..}+        toJSON ExperimentVariationsItem'{..}           = object               (catMaybes                  [("status" .=) <$> _eviStatus,@@ -9257,7 +9337,7 @@ -- same as the metric order specified in the request. -- -- /See:/ 'mcfDataTotalsForAllResults' smart constructor.-newtype McfDataTotalsForAllResults = McfDataTotalsForAllResults+newtype McfDataTotalsForAllResults = McfDataTotalsForAllResults'     { _mdtfarAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -9270,7 +9350,7 @@     :: HashMap Text Text -- ^ 'mdtfarAddtional'     -> McfDataTotalsForAllResults mcfDataTotalsForAllResults pMdtfarAddtional_ =-    McfDataTotalsForAllResults+    McfDataTotalsForAllResults'     { _mdtfarAddtional = _Coerce # pMdtfarAddtional_     } @@ -9286,7 +9366,7 @@         parseJSON           = withObject "McfDataTotalsForAllResults"               (\ o ->-                 McfDataTotalsForAllResults <$> (parseJSONObject o))+                 McfDataTotalsForAllResults' <$> (parseJSONObject o))  instance ToJSON McfDataTotalsForAllResults where         toJSON = toJSON . _mdtfarAddtional@@ -9294,7 +9374,7 @@ -- | Download details for a file stored in Google Cloud Storage. -- -- /See:/ 'unSampledReportCloudStorageDownloadDetails' smart constructor.-data UnSampledReportCloudStorageDownloadDetails = UnSampledReportCloudStorageDownloadDetails+data UnSampledReportCloudStorageDownloadDetails = UnSampledReportCloudStorageDownloadDetails'     { _usrcsddObjectId :: !(Maybe Text)     , _usrcsddBucketId :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -9309,7 +9389,7 @@ unSampledReportCloudStorageDownloadDetails     :: UnSampledReportCloudStorageDownloadDetails unSampledReportCloudStorageDownloadDetails =-    UnSampledReportCloudStorageDownloadDetails+    UnSampledReportCloudStorageDownloadDetails'     { _usrcsddObjectId = Nothing     , _usrcsddBucketId = Nothing     }@@ -9332,12 +9412,13 @@           = withObject               "UnSampledReportCloudStorageDownloadDetails"               (\ o ->-                 UnSampledReportCloudStorageDownloadDetails <$>+                 UnSampledReportCloudStorageDownloadDetails' <$>                    (o .:? "objectId") <*> (o .:? "bucketId"))  instance ToJSON          UnSampledReportCloudStorageDownloadDetails where-        toJSON UnSampledReportCloudStorageDownloadDetails{..}+        toJSON+          UnSampledReportCloudStorageDownloadDetails'{..}           = object               (catMaybes                  [("objectId" .=) <$> _usrcsddObjectId,@@ -9347,7 +9428,7 @@ -- view (profile). -- -- /See:/ 'proFileChildLink' smart constructor.-data ProFileChildLink = ProFileChildLink+data ProFileChildLink = ProFileChildLink'     { _pfclHref :: !(Maybe Text)     , _pfclType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -9362,7 +9443,7 @@ proFileChildLink     :: ProFileChildLink proFileChildLink =-    ProFileChildLink+    ProFileChildLink'     { _pfclHref = Nothing     , _pfclType = "analytics#goals"     }@@ -9379,12 +9460,12 @@         parseJSON           = withObject "ProFileChildLink"               (\ o ->-                 ProFileChildLink <$>+                 ProFileChildLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#goals"))  instance ToJSON ProFileChildLink where-        toJSON ProFileChildLink{..}+        toJSON ProFileChildLink'{..}           = object               (catMaybes                  [("href" .=) <$> _pfclHref,@@ -9392,7 +9473,7 @@  -- -- /See:/ 'gaDataColumnHeadersItem' smart constructor.-data GaDataColumnHeadersItem = GaDataColumnHeadersItem+data GaDataColumnHeadersItem = GaDataColumnHeadersItem'     { _gdchiColumnType :: !(Maybe Text)     , _gdchiName       :: !(Maybe Text)     , _gdchiDataType   :: !(Maybe Text)@@ -9410,7 +9491,7 @@ gaDataColumnHeadersItem     :: GaDataColumnHeadersItem gaDataColumnHeadersItem =-    GaDataColumnHeadersItem+    GaDataColumnHeadersItem'     { _gdchiColumnType = Nothing     , _gdchiName = Nothing     , _gdchiDataType = Nothing@@ -9439,12 +9520,12 @@         parseJSON           = withObject "GaDataColumnHeadersItem"               (\ o ->-                 GaDataColumnHeadersItem <$>+                 GaDataColumnHeadersItem' <$>                    (o .:? "columnType") <*> (o .:? "name") <*>                      (o .:? "dataType"))  instance ToJSON GaDataColumnHeadersItem where-        toJSON GaDataColumnHeadersItem{..}+        toJSON GaDataColumnHeadersItem'{..}           = object               (catMaybes                  [("columnType" .=) <$> _gdchiColumnType,@@ -9455,7 +9536,7 @@ -- belongs. -- -- /See:/ 'goalParentLink' smart constructor.-data GoalParentLink = GoalParentLink+data GoalParentLink = GoalParentLink'     { _gplHref :: !(Maybe Text)     , _gplType :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -9470,7 +9551,7 @@ goalParentLink     :: GoalParentLink goalParentLink =-    GoalParentLink+    GoalParentLink'     { _gplHref = Nothing     , _gplType = "analytics#profile"     }@@ -9487,12 +9568,12 @@         parseJSON           = withObject "GoalParentLink"               (\ o ->-                 GoalParentLink <$>+                 GoalParentLink' <$>                    (o .:? "href") <*>                      (o .:? "type" .!= "analytics#profile"))  instance ToJSON GoalParentLink where-        toJSON GoalParentLink{..}+        toJSON GoalParentLink'{..}           = object               (catMaybes                  [("href" .=) <$> _gplHref,@@ -9501,7 +9582,7 @@ -- | Map of attribute name and value for this column. -- -- /See:/ 'columnAttributes' smart constructor.-newtype ColumnAttributes = ColumnAttributes+newtype ColumnAttributes = ColumnAttributes'     { _caAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -9514,7 +9595,7 @@     :: HashMap Text Text -- ^ 'caAddtional'     -> ColumnAttributes columnAttributes pCaAddtional_ =-    ColumnAttributes+    ColumnAttributes'     { _caAddtional = _Coerce # pCaAddtional_     } @@ -9527,7 +9608,7 @@ instance FromJSON ColumnAttributes where         parseJSON           = withObject "ColumnAttributes"-              (\ o -> ColumnAttributes <$> (parseJSONObject o))+              (\ o -> ColumnAttributes' <$> (parseJSONObject o))  instance ToJSON ColumnAttributes where         toJSON = toJSON . _caAddtional

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.Analytics.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -30,19 +30,19 @@       -- ^ @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)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DataGaGetSamplingLevel -instance FromText DataGaGetSamplingLevel where-    fromText = \case-        "DEFAULT" -> Just Default-        "FASTER" -> Just Faster-        "HIGHER_PRECISION" -> Just HigherPrecision-        _ -> Nothing+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 ToText DataGaGetSamplingLevel where-    toText = \case+instance ToHttpApiData DataGaGetSamplingLevel where+    toQueryParam = \case         Default -> "DEFAULT"         Faster -> "FASTER"         HigherPrecision -> "HIGHER_PRECISION"@@ -62,18 +62,18 @@     | JSON       -- ^ @json@       -- Returns the response in standard JSON format.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DataGaGetOutput -instance FromText DataGaGetOutput where-    fromText = \case-        "dataTable" -> Just DataTable-        "json" -> Just JSON-        _ -> Nothing+instance FromHttpApiData DataGaGetOutput where+    parseQueryParam = \case+        "dataTable" -> Right DataTable+        "json" -> Right JSON+        x -> Left ("Unable to parse DataGaGetOutput from: " <> x) -instance ToText DataGaGetOutput where-    toText = \case+instance ToHttpApiData DataGaGetOutput where+    toQueryParam = \case         DataTable -> "dataTable"         JSON -> "json" @@ -95,19 +95,19 @@       -- ^ @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)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DataMcfGetSamplingLevel -instance FromText DataMcfGetSamplingLevel where-    fromText = \case-        "DEFAULT" -> Just DMGSLDefault-        "FASTER" -> Just DMGSLFaster-        "HIGHER_PRECISION" -> Just DMGSLHigherPrecision-        _ -> Nothing+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 ToText DataMcfGetSamplingLevel where-    toText = \case+instance ToHttpApiData DataMcfGetSamplingLevel where+    toQueryParam = \case         DMGSLDefault -> "DEFAULT"         DMGSLFaster -> "FASTER"         DMGSLHigherPrecision -> "HIGHER_PRECISION"

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Data.Ga.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -40,6 +40,7 @@     , dggEndDate     , dggOutput     , dggSort+    , dggIncludeEmptyRows     , dggDimensions     , dggStartIndex     , dggMaxResults@@ -65,29 +66,31 @@                        QueryParam "filters" Text :>                          QueryParam "output" DataGaGetOutput :>                            QueryParam "sort" Text :>-                             QueryParam "dimensions" Text :>-                               QueryParam "start-index" (Textual Int32) :>-                                 QueryParam "max-results" (Textual Int32) :>-                                   QueryParam "segment" Text :>-                                     QueryParam "alt" AltJSON :>-                                       Get '[JSON] GaData+                             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)-    , _dggDimensions    :: !(Maybe Text)-    , _dggStartIndex    :: !(Maybe (Textual Int32))-    , _dggMaxResults    :: !(Maybe (Textual Int32))-    , _dggSegment       :: !(Maybe Text)-    , _dggStartDate     :: !Text+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.@@ -108,6 +111,8 @@ -- -- * 'dggSort' --+-- * 'dggIncludeEmptyRows'+-- -- * 'dggDimensions' -- -- * 'dggStartIndex'@@ -124,7 +129,7 @@     -> Text -- ^ 'dggStartDate'     -> DataGaGet dataGaGet pDggMetrics_ pDggIds_ pDggEndDate_ pDggStartDate_ =-    DataGaGet+    DataGaGet'     { _dggMetrics = pDggMetrics_     , _dggSamplingLevel = Nothing     , _dggFilters = Nothing@@ -132,6 +137,7 @@     , _dggEndDate = pDggEndDate_     , _dggOutput = Nothing     , _dggSort = Nothing+    , _dggIncludeEmptyRows = Nothing     , _dggDimensions = Nothing     , _dggStartIndex = Nothing     , _dggMaxResults = Nothing@@ -179,6 +185,13 @@ 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)@@ -215,7 +228,10 @@  instance GoogleRequest DataGaGet where         type Rs DataGaGet = GaData-        requestClient DataGaGet{..}+        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)@@ -223,6 +239,7 @@               _dggFilters               _dggOutput               _dggSort+              _dggIncludeEmptyRows               _dggDimensions               _dggStartIndex               _dggMaxResults

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Data.Mcf.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@ -- | Returns Analytics Multi-Channel Funnels data for a view (profile). -- -- /See:/ 'dataMcfGet' smart constructor.-data DataMcfGet = DataMcfGet+data DataMcfGet = DataMcfGet'     { _dmgMetrics       :: !Text     , _dmgSamplingLevel :: !(Maybe DataMcfGetSamplingLevel)     , _dmgFilters       :: !(Maybe Text)@@ -113,7 +113,7 @@     -> Text -- ^ 'dmgStartDate'     -> DataMcfGet dataMcfGet pDmgMetrics_ pDmgIds_ pDmgEndDate_ pDmgStartDate_ =-    DataMcfGet+    DataMcfGet'     { _dmgMetrics = pDmgMetrics_     , _dmgSamplingLevel = Nothing     , _dmgFilters = Nothing@@ -193,7 +193,10 @@  instance GoogleRequest DataMcfGet where         type Rs DataMcfGet = McfData-        requestClient DataMcfGet{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Data.Realtime.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Returns real time data for a view (profile). -- -- /See:/ 'dataRealtimeGet' smart constructor.-data DataRealtimeGet = DataRealtimeGet+data DataRealtimeGet = DataRealtimeGet'     { _drgMetrics    :: !Text     , _drgFilters    :: !(Maybe Text)     , _drgIds        :: !Text@@ -91,7 +91,7 @@     -> Text -- ^ 'drgIds'     -> DataRealtimeGet dataRealtimeGet pDrgMetrics_ pDrgIds_ =-    DataRealtimeGet+    DataRealtimeGet'     { _drgMetrics = pDrgMetrics_     , _drgFilters = Nothing     , _drgIds = pDrgIds_@@ -138,7 +138,10 @@  instance GoogleRequest DataRealtimeGet where         type Rs DataRealtimeGet = RealtimeData-        requestClient DataRealtimeGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.AccountSummaries.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- accounts\/properties\/profiles) to which the user has access. -- -- /See:/ 'managementAccountSummariesList' smart constructor.-data ManagementAccountSummariesList = ManagementAccountSummariesList+data ManagementAccountSummariesList = ManagementAccountSummariesList'     { _maslStartIndex :: !(Maybe (Textual Int32))     , _maslMaxResults :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@ managementAccountSummariesList     :: ManagementAccountSummariesList managementAccountSummariesList =-    ManagementAccountSummariesList+    ManagementAccountSummariesList'     { _maslStartIndex = Nothing     , _maslMaxResults = Nothing     }@@ -97,7 +97,10 @@          where         type Rs ManagementAccountSummariesList =              AccountSummaries-        requestClient ManagementAccountSummariesList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.AccountUserLinks.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Removes a user from the given account. -- -- /See:/ 'managementAccountUserLinksDelete' smart constructor.-data ManagementAccountUserLinksDelete = ManagementAccountUserLinksDelete+data ManagementAccountUserLinksDelete = ManagementAccountUserLinksDelete'     { _mauldAccountId :: !Text     , _mauldLinkId    :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'mauldLinkId'     -> ManagementAccountUserLinksDelete managementAccountUserLinksDelete pMauldAccountId_ pMauldLinkId_ =-    ManagementAccountUserLinksDelete+    ManagementAccountUserLinksDelete'     { _mauldAccountId = pMauldAccountId_     , _mauldLinkId = pMauldLinkId_     }@@ -91,7 +91,9 @@ instance GoogleRequest          ManagementAccountUserLinksDelete where         type Rs ManagementAccountUserLinksDelete = ()-        requestClient ManagementAccountUserLinksDelete{..}+        type Scopes ManagementAccountUserLinksDelete =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementAccountUserLinksDelete'{..}           = go _mauldAccountId _mauldLinkId (Just AltJSON)               analyticsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Adds a new user to the given account. -- -- /See:/ 'managementAccountUserLinksInsert' smart constructor.-data ManagementAccountUserLinksInsert = ManagementAccountUserLinksInsert+data ManagementAccountUserLinksInsert = ManagementAccountUserLinksInsert'     { _mauliPayload   :: !EntityUserLink     , _mauliAccountId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'mauliAccountId'     -> ManagementAccountUserLinksInsert managementAccountUserLinksInsert pMauliPayload_ pMauliAccountId_ =-    ManagementAccountUserLinksInsert+    ManagementAccountUserLinksInsert'     { _mauliPayload = pMauliPayload_     , _mauliAccountId = pMauliAccountId_     }@@ -93,7 +93,9 @@          ManagementAccountUserLinksInsert where         type Rs ManagementAccountUserLinksInsert =              EntityUserLink-        requestClient ManagementAccountUserLinksInsert{..}+        type Scopes ManagementAccountUserLinksInsert =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementAccountUserLinksInsert'{..}           = go _mauliAccountId (Just AltJSON) _mauliPayload               analyticsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.AccountUserLinks.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Lists account-user links for a given account. -- -- /See:/ 'managementAccountUserLinksList' smart constructor.-data ManagementAccountUserLinksList = ManagementAccountUserLinksList+data ManagementAccountUserLinksList = ManagementAccountUserLinksList'     { _maullAccountId  :: !Text     , _maullStartIndex :: !(Maybe (Textual Int32))     , _maullMaxResults :: !(Maybe (Textual Int32))@@ -77,7 +77,7 @@     :: Text -- ^ 'maullAccountId'     -> ManagementAccountUserLinksList managementAccountUserLinksList pMaullAccountId_ =-    ManagementAccountUserLinksList+    ManagementAccountUserLinksList'     { _maullAccountId = pMaullAccountId_     , _maullStartIndex = Nothing     , _maullMaxResults = Nothing@@ -108,7 +108,10 @@          where         type Rs ManagementAccountUserLinksList =              EntityUserLinks-        requestClient ManagementAccountUserLinksList{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.AccountUserLinks.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Updates permissions for an existing user on the given account. -- -- /See:/ 'managementAccountUserLinksUpdate' smart constructor.-data ManagementAccountUserLinksUpdate = ManagementAccountUserLinksUpdate+data ManagementAccountUserLinksUpdate = ManagementAccountUserLinksUpdate'     { _mauluPayload   :: !EntityUserLink     , _mauluAccountId :: !Text     , _mauluLinkId    :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mauluLinkId'     -> ManagementAccountUserLinksUpdate managementAccountUserLinksUpdate pMauluPayload_ pMauluAccountId_ pMauluLinkId_ =-    ManagementAccountUserLinksUpdate+    ManagementAccountUserLinksUpdate'     { _mauluPayload = pMauluPayload_     , _mauluAccountId = pMauluAccountId_     , _mauluLinkId = pMauluLinkId_@@ -105,7 +105,9 @@          ManagementAccountUserLinksUpdate where         type Rs ManagementAccountUserLinksUpdate =              EntityUserLink-        requestClient ManagementAccountUserLinksUpdate{..}+        type Scopes ManagementAccountUserLinksUpdate =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementAccountUserLinksUpdate'{..}           = go _mauluAccountId _mauluLinkId (Just AltJSON)               _mauluPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Accounts.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Lists all accounts to which the user has access. -- -- /See:/ 'managementAccountsList' smart constructor.-data ManagementAccountsList = ManagementAccountsList+data ManagementAccountsList = ManagementAccountsList'     { _malStartIndex :: !(Maybe (Textual Int32))     , _malMaxResults :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -69,7 +69,7 @@ managementAccountsList     :: ManagementAccountsList managementAccountsList =-    ManagementAccountsList+    ManagementAccountsList'     { _malStartIndex = Nothing     , _malMaxResults = Nothing     }@@ -91,7 +91,11 @@  instance GoogleRequest ManagementAccountsList where         type Rs ManagementAccountsList = Accounts-        requestClient ManagementAccountsList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDataSources.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | List custom data sources to which the user has access. -- -- /See:/ 'managementCustomDataSourcesList' smart constructor.-data ManagementCustomDataSourcesList = ManagementCustomDataSourcesList+data ManagementCustomDataSourcesList = ManagementCustomDataSourcesList'     { _mcdslWebPropertyId :: !Text     , _mcdslAccountId     :: !Text     , _mcdslStartIndex    :: !(Maybe (Textual Int32))@@ -84,7 +84,7 @@     -> Text -- ^ 'mcdslAccountId'     -> ManagementCustomDataSourcesList managementCustomDataSourcesList pMcdslWebPropertyId_ pMcdslAccountId_ =-    ManagementCustomDataSourcesList+    ManagementCustomDataSourcesList'     { _mcdslWebPropertyId = pMcdslWebPropertyId_     , _mcdslAccountId = pMcdslAccountId_     , _mcdslStartIndex = Nothing@@ -123,7 +123,11 @@          ManagementCustomDataSourcesList where         type Rs ManagementCustomDataSourcesList =              CustomDataSources-        requestClient ManagementCustomDataSourcesList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDimensions.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Get a custom dimension to which the user has access. -- -- /See:/ 'managementCustomDimensionsGet' smart constructor.-data ManagementCustomDimensionsGet = ManagementCustomDimensionsGet+data ManagementCustomDimensionsGet = ManagementCustomDimensionsGet'     { _mcdgWebPropertyId     :: !Text     , _mcdgAccountId         :: !Text     , _mcdgCustomDimensionId :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'mcdgCustomDimensionId'     -> ManagementCustomDimensionsGet managementCustomDimensionsGet pMcdgWebPropertyId_ pMcdgAccountId_ pMcdgCustomDimensionId_ =-    ManagementCustomDimensionsGet+    ManagementCustomDimensionsGet'     { _mcdgWebPropertyId = pMcdgWebPropertyId_     , _mcdgAccountId = pMcdgAccountId_     , _mcdgCustomDimensionId = pMcdgCustomDimensionId_@@ -108,7 +108,10 @@          where         type Rs ManagementCustomDimensionsGet =              CustomDimension-        requestClient ManagementCustomDimensionsGet{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDimensions.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Create a new custom dimension. -- -- /See:/ 'managementCustomDimensionsInsert' smart constructor.-data ManagementCustomDimensionsInsert = ManagementCustomDimensionsInsert+data ManagementCustomDimensionsInsert = ManagementCustomDimensionsInsert'     { _mcdiWebPropertyId :: !Text     , _mcdiPayload       :: !CustomDimension     , _mcdiAccountId     :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'mcdiAccountId'     -> ManagementCustomDimensionsInsert managementCustomDimensionsInsert pMcdiWebPropertyId_ pMcdiPayload_ pMcdiAccountId_ =-    ManagementCustomDimensionsInsert+    ManagementCustomDimensionsInsert'     { _mcdiWebPropertyId = pMcdiWebPropertyId_     , _mcdiPayload = pMcdiPayload_     , _mcdiAccountId = pMcdiAccountId_@@ -107,7 +107,9 @@          ManagementCustomDimensionsInsert where         type Rs ManagementCustomDimensionsInsert =              CustomDimension-        requestClient ManagementCustomDimensionsInsert{..}+        type Scopes ManagementCustomDimensionsInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomDimensionsInsert'{..}           = go _mcdiAccountId _mcdiWebPropertyId (Just AltJSON)               _mcdiPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDimensions.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Lists custom dimensions to which the user has access. -- -- /See:/ 'managementCustomDimensionsList' smart constructor.-data ManagementCustomDimensionsList = ManagementCustomDimensionsList+data ManagementCustomDimensionsList = ManagementCustomDimensionsList'     { _mcdlWebPropertyId :: !Text     , _mcdlAccountId     :: !Text     , _mcdlStartIndex    :: !(Maybe (Textual Int32))@@ -84,7 +84,7 @@     -> Text -- ^ 'mcdlAccountId'     -> ManagementCustomDimensionsList managementCustomDimensionsList pMcdlWebPropertyId_ pMcdlAccountId_ =-    ManagementCustomDimensionsList+    ManagementCustomDimensionsList'     { _mcdlWebPropertyId = pMcdlWebPropertyId_     , _mcdlAccountId = pMcdlAccountId_     , _mcdlStartIndex = Nothing@@ -122,7 +122,10 @@          where         type Rs ManagementCustomDimensionsList =              CustomDimensions-        requestClient ManagementCustomDimensionsList{..}+        type Scopes ManagementCustomDimensionsList =+             '["https://www.googleapis.com/auth/analytics",+               "https://www.googleapis.com/auth/analytics.readonly"]+        requestClient ManagementCustomDimensionsList'{..}           = go _mcdlAccountId _mcdlWebPropertyId               _mcdlStartIndex               _mcdlMaxResults

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDimensions.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@ -- semantics. -- -- /See:/ 'managementCustomDimensionsPatch' smart constructor.-data ManagementCustomDimensionsPatch = ManagementCustomDimensionsPatch+data ManagementCustomDimensionsPatch = ManagementCustomDimensionsPatch'     { _mcdpWebPropertyId               :: !Text     , _mcdpIgnoreCustomDataSourceLinks :: !Bool     , _mcdpPayload                     :: !CustomDimension@@ -93,7 +93,7 @@     -> Text -- ^ 'mcdpCustomDimensionId'     -> ManagementCustomDimensionsPatch managementCustomDimensionsPatch pMcdpWebPropertyId_ pMcdpPayload_ pMcdpAccountId_ pMcdpCustomDimensionId_ =-    ManagementCustomDimensionsPatch+    ManagementCustomDimensionsPatch'     { _mcdpWebPropertyId = pMcdpWebPropertyId_     , _mcdpIgnoreCustomDataSourceLinks = False     , _mcdpPayload = pMcdpPayload_@@ -135,7 +135,9 @@          ManagementCustomDimensionsPatch where         type Rs ManagementCustomDimensionsPatch =              CustomDimension-        requestClient ManagementCustomDimensionsPatch{..}+        type Scopes ManagementCustomDimensionsPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomDimensionsPatch'{..}           = go _mcdpAccountId _mcdpWebPropertyId               _mcdpCustomDimensionId               (Just _mcdpIgnoreCustomDataSourceLinks)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomDimensions.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Updates an existing custom dimension. -- -- /See:/ 'managementCustomDimensionsUpdate' smart constructor.-data ManagementCustomDimensionsUpdate = ManagementCustomDimensionsUpdate+data ManagementCustomDimensionsUpdate = ManagementCustomDimensionsUpdate'     { _mcduWebPropertyId               :: !Text     , _mcduIgnoreCustomDataSourceLinks :: !Bool     , _mcduPayload                     :: !CustomDimension@@ -91,7 +91,7 @@     -> Text -- ^ 'mcduCustomDimensionId'     -> ManagementCustomDimensionsUpdate managementCustomDimensionsUpdate pMcduWebPropertyId_ pMcduPayload_ pMcduAccountId_ pMcduCustomDimensionId_ =-    ManagementCustomDimensionsUpdate+    ManagementCustomDimensionsUpdate'     { _mcduWebPropertyId = pMcduWebPropertyId_     , _mcduIgnoreCustomDataSourceLinks = False     , _mcduPayload = pMcduPayload_@@ -133,7 +133,9 @@          ManagementCustomDimensionsUpdate where         type Rs ManagementCustomDimensionsUpdate =              CustomDimension-        requestClient ManagementCustomDimensionsUpdate{..}+        type Scopes ManagementCustomDimensionsUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomDimensionsUpdate'{..}           = go _mcduAccountId _mcduWebPropertyId               _mcduCustomDimensionId               (Just _mcduIgnoreCustomDataSourceLinks)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomMetrics.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Get a custom metric to which the user has access. -- -- /See:/ 'managementCustomMetricsGet' smart constructor.-data ManagementCustomMetricsGet = ManagementCustomMetricsGet+data ManagementCustomMetricsGet = ManagementCustomMetricsGet'     { _mcmgCustomMetricId :: !Text     , _mcmgWebPropertyId  :: !Text     , _mcmgAccountId      :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mcmgAccountId'     -> ManagementCustomMetricsGet managementCustomMetricsGet pMcmgCustomMetricId_ pMcmgWebPropertyId_ pMcmgAccountId_ =-    ManagementCustomMetricsGet+    ManagementCustomMetricsGet'     { _mcmgCustomMetricId = pMcmgCustomMetricId_     , _mcmgWebPropertyId = pMcmgWebPropertyId_     , _mcmgAccountId = pMcmgAccountId_@@ -106,7 +106,10 @@ instance GoogleRequest ManagementCustomMetricsGet          where         type Rs ManagementCustomMetricsGet = CustomMetric-        requestClient ManagementCustomMetricsGet{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomMetrics.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Create a new custom metric. -- -- /See:/ 'managementCustomMetricsInsert' smart constructor.-data ManagementCustomMetricsInsert = ManagementCustomMetricsInsert+data ManagementCustomMetricsInsert = ManagementCustomMetricsInsert'     { _mcmiWebPropertyId :: !Text     , _mcmiPayload       :: !CustomMetric     , _mcmiAccountId     :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'mcmiAccountId'     -> ManagementCustomMetricsInsert managementCustomMetricsInsert pMcmiWebPropertyId_ pMcmiPayload_ pMcmiAccountId_ =-    ManagementCustomMetricsInsert+    ManagementCustomMetricsInsert'     { _mcmiWebPropertyId = pMcmiWebPropertyId_     , _mcmiPayload = pMcmiPayload_     , _mcmiAccountId = pMcmiAccountId_@@ -106,7 +106,9 @@ instance GoogleRequest ManagementCustomMetricsInsert          where         type Rs ManagementCustomMetricsInsert = CustomMetric-        requestClient ManagementCustomMetricsInsert{..}+        type Scopes ManagementCustomMetricsInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomMetricsInsert'{..}           = go _mcmiAccountId _mcmiWebPropertyId (Just AltJSON)               _mcmiPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomMetrics.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Lists custom metrics to which the user has access. -- -- /See:/ 'managementCustomMetricsList' smart constructor.-data ManagementCustomMetricsList = ManagementCustomMetricsList+data ManagementCustomMetricsList = ManagementCustomMetricsList'     { _mcmlWebPropertyId :: !Text     , _mcmlAccountId     :: !Text     , _mcmlStartIndex    :: !(Maybe (Textual Int32))@@ -83,7 +83,7 @@     -> Text -- ^ 'mcmlAccountId'     -> ManagementCustomMetricsList managementCustomMetricsList pMcmlWebPropertyId_ pMcmlAccountId_ =-    ManagementCustomMetricsList+    ManagementCustomMetricsList'     { _mcmlWebPropertyId = pMcmlWebPropertyId_     , _mcmlAccountId = pMcmlAccountId_     , _mcmlStartIndex = Nothing@@ -120,7 +120,10 @@ instance GoogleRequest ManagementCustomMetricsList          where         type Rs ManagementCustomMetricsList = CustomMetrics-        requestClient ManagementCustomMetricsList{..}+        type Scopes ManagementCustomMetricsList =+             '["https://www.googleapis.com/auth/analytics",+               "https://www.googleapis.com/auth/analytics.readonly"]+        requestClient ManagementCustomMetricsList'{..}           = go _mcmlAccountId _mcmlWebPropertyId               _mcmlStartIndex               _mcmlMaxResults

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomMetrics.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Updates an existing custom metric. This method supports patch semantics. -- -- /See:/ 'managementCustomMetricsPatch' smart constructor.-data ManagementCustomMetricsPatch = ManagementCustomMetricsPatch+data ManagementCustomMetricsPatch = ManagementCustomMetricsPatch'     { _mcmpCustomMetricId              :: !Text     , _mcmpWebPropertyId               :: !Text     , _mcmpIgnoreCustomDataSourceLinks :: !Bool@@ -91,7 +91,7 @@     -> Text -- ^ 'mcmpAccountId'     -> ManagementCustomMetricsPatch managementCustomMetricsPatch pMcmpCustomMetricId_ pMcmpWebPropertyId_ pMcmpPayload_ pMcmpAccountId_ =-    ManagementCustomMetricsPatch+    ManagementCustomMetricsPatch'     { _mcmpCustomMetricId = pMcmpCustomMetricId_     , _mcmpWebPropertyId = pMcmpWebPropertyId_     , _mcmpIgnoreCustomDataSourceLinks = False@@ -132,7 +132,9 @@ instance GoogleRequest ManagementCustomMetricsPatch          where         type Rs ManagementCustomMetricsPatch = CustomMetric-        requestClient ManagementCustomMetricsPatch{..}+        type Scopes ManagementCustomMetricsPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomMetricsPatch'{..}           = go _mcmpAccountId _mcmpWebPropertyId               _mcmpCustomMetricId               (Just _mcmpIgnoreCustomDataSourceLinks)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.CustomMetrics.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Updates an existing custom metric. -- -- /See:/ 'managementCustomMetricsUpdate' smart constructor.-data ManagementCustomMetricsUpdate = ManagementCustomMetricsUpdate+data ManagementCustomMetricsUpdate = ManagementCustomMetricsUpdate'     { _mcmuCustomMetricId              :: !Text     , _mcmuWebPropertyId               :: !Text     , _mcmuIgnoreCustomDataSourceLinks :: !Bool@@ -91,7 +91,7 @@     -> Text -- ^ 'mcmuAccountId'     -> ManagementCustomMetricsUpdate managementCustomMetricsUpdate pMcmuCustomMetricId_ pMcmuWebPropertyId_ pMcmuPayload_ pMcmuAccountId_ =-    ManagementCustomMetricsUpdate+    ManagementCustomMetricsUpdate'     { _mcmuCustomMetricId = pMcmuCustomMetricId_     , _mcmuWebPropertyId = pMcmuWebPropertyId_     , _mcmuIgnoreCustomDataSourceLinks = False@@ -132,7 +132,9 @@ instance GoogleRequest ManagementCustomMetricsUpdate          where         type Rs ManagementCustomMetricsUpdate = CustomMetric-        requestClient ManagementCustomMetricsUpdate{..}+        type Scopes ManagementCustomMetricsUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementCustomMetricsUpdate'{..}           = go _mcmuAccountId _mcmuWebPropertyId               _mcmuCustomMetricId               (Just _mcmuIgnoreCustomDataSourceLinks)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Delete an experiment. -- -- /See:/ 'managementExperimentsDelete' smart constructor.-data ManagementExperimentsDelete = ManagementExperimentsDelete+data ManagementExperimentsDelete = ManagementExperimentsDelete'     { _medWebPropertyId :: !Text     , _medProFileId     :: !Text     , _medAccountId     :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'medExperimentId'     -> ManagementExperimentsDelete managementExperimentsDelete pMedWebPropertyId_ pMedProFileId_ pMedAccountId_ pMedExperimentId_ =-    ManagementExperimentsDelete+    ManagementExperimentsDelete'     { _medWebPropertyId = pMedWebPropertyId_     , _medProFileId = pMedProFileId_     , _medAccountId = pMedAccountId_@@ -118,7 +118,10 @@ instance GoogleRequest ManagementExperimentsDelete          where         type Rs ManagementExperimentsDelete = ()-        requestClient 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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Returns an experiment to which the user has access. -- -- /See:/ 'managementExperimentsGet' smart constructor.-data ManagementExperimentsGet = ManagementExperimentsGet+data ManagementExperimentsGet = ManagementExperimentsGet'     { _megWebPropertyId :: !Text     , _megProFileId     :: !Text     , _megAccountId     :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'megExperimentId'     -> ManagementExperimentsGet managementExperimentsGet pMegWebPropertyId_ pMegProFileId_ pMegAccountId_ pMegExperimentId_ =-    ManagementExperimentsGet+    ManagementExperimentsGet'     { _megWebPropertyId = pMegWebPropertyId_     , _megProFileId = pMegProFileId_     , _megAccountId = pMegAccountId_@@ -117,7 +117,11 @@  instance GoogleRequest ManagementExperimentsGet where         type Rs ManagementExperimentsGet = Experiment-        requestClient ManagementExperimentsGet{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Create a new experiment. -- -- /See:/ 'managementExperimentsInsert' smart constructor.-data ManagementExperimentsInsert = ManagementExperimentsInsert+data ManagementExperimentsInsert = ManagementExperimentsInsert'     { _meiWebPropertyId :: !Text     , _meiProFileId     :: !Text     , _meiPayload       :: !Experiment@@ -86,7 +86,7 @@     -> Text -- ^ 'meiAccountId'     -> ManagementExperimentsInsert managementExperimentsInsert pMeiWebPropertyId_ pMeiProFileId_ pMeiPayload_ pMeiAccountId_ =-    ManagementExperimentsInsert+    ManagementExperimentsInsert'     { _meiWebPropertyId = pMeiWebPropertyId_     , _meiProFileId = pMeiProFileId_     , _meiPayload = pMeiPayload_@@ -117,7 +117,10 @@ instance GoogleRequest ManagementExperimentsInsert          where         type Rs ManagementExperimentsInsert = Experiment-        requestClient ManagementExperimentsInsert{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Lists experiments to which the user has access. -- -- /See:/ 'managementExperimentsList' smart constructor.-data ManagementExperimentsList = ManagementExperimentsList+data ManagementExperimentsList = ManagementExperimentsList'     { _melWebPropertyId :: !Text     , _melProFileId     :: !Text     , _melAccountId     :: !Text@@ -90,7 +90,7 @@     -> Text -- ^ 'melAccountId'     -> ManagementExperimentsList managementExperimentsList pMelWebPropertyId_ pMelProFileId_ pMelAccountId_ =-    ManagementExperimentsList+    ManagementExperimentsList'     { _melWebPropertyId = pMelWebPropertyId_     , _melProFileId = pMelProFileId_     , _melAccountId = pMelAccountId_@@ -132,7 +132,11 @@ instance GoogleRequest ManagementExperimentsList          where         type Rs ManagementExperimentsList = Experiments-        requestClient ManagementExperimentsList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Update an existing experiment. This method supports patch semantics. -- -- /See:/ 'managementExperimentsPatch' smart constructor.-data ManagementExperimentsPatch = ManagementExperimentsPatch+data ManagementExperimentsPatch = ManagementExperimentsPatch'     { _mepWebPropertyId :: !Text     , _mepProFileId     :: !Text     , _mepPayload       :: !Experiment@@ -93,7 +93,7 @@     -> Text -- ^ 'mepExperimentId'     -> ManagementExperimentsPatch managementExperimentsPatch pMepWebPropertyId_ pMepProFileId_ pMepPayload_ pMepAccountId_ pMepExperimentId_ =-    ManagementExperimentsPatch+    ManagementExperimentsPatch'     { _mepWebPropertyId = pMepWebPropertyId_     , _mepProFileId = pMepProFileId_     , _mepPayload = pMepPayload_@@ -131,7 +131,10 @@ instance GoogleRequest ManagementExperimentsPatch          where         type Rs ManagementExperimentsPatch = Experiment-        requestClient ManagementExperimentsPatch{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Experiments.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Update an existing experiment. -- -- /See:/ 'managementExperimentsUpdate' smart constructor.-data ManagementExperimentsUpdate = ManagementExperimentsUpdate+data ManagementExperimentsUpdate = ManagementExperimentsUpdate'     { _meuWebPropertyId :: !Text     , _meuProFileId     :: !Text     , _meuPayload       :: !Experiment@@ -93,7 +93,7 @@     -> Text -- ^ 'meuExperimentId'     -> ManagementExperimentsUpdate managementExperimentsUpdate pMeuWebPropertyId_ pMeuProFileId_ pMeuPayload_ pMeuAccountId_ pMeuExperimentId_ =-    ManagementExperimentsUpdate+    ManagementExperimentsUpdate'     { _meuWebPropertyId = pMeuWebPropertyId_     , _meuProFileId = pMeuProFileId_     , _meuPayload = pMeuPayload_@@ -131,7 +131,10 @@ instance GoogleRequest ManagementExperimentsUpdate          where         type Rs ManagementExperimentsUpdate = Experiment-        requestClient ManagementExperimentsUpdate{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Delete a filter. -- -- /See:/ 'managementFiltersDelete' smart constructor.-data ManagementFiltersDelete = ManagementFiltersDelete+data ManagementFiltersDelete = ManagementFiltersDelete'     { _mfdFilterId  :: !Text     , _mfdAccountId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'mfdAccountId'     -> ManagementFiltersDelete managementFiltersDelete pMfdFilterId_ pMfdAccountId_ =-    ManagementFiltersDelete+    ManagementFiltersDelete'     { _mfdFilterId = pMfdFilterId_     , _mfdAccountId = pMfdAccountId_     }@@ -89,7 +89,9 @@  instance GoogleRequest ManagementFiltersDelete where         type Rs ManagementFiltersDelete = Filter-        requestClient ManagementFiltersDelete{..}+        type Scopes ManagementFiltersDelete =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementFiltersDelete'{..}           = go _mfdAccountId _mfdFilterId (Just AltJSON)               analyticsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Returns a filters to which the user has access. -- -- /See:/ 'managementFiltersGet' smart constructor.-data ManagementFiltersGet = ManagementFiltersGet+data ManagementFiltersGet = ManagementFiltersGet'     { _mfgFilterId  :: !Text     , _mfgAccountId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'mfgAccountId'     -> ManagementFiltersGet managementFiltersGet pMfgFilterId_ pMfgAccountId_ =-    ManagementFiltersGet+    ManagementFiltersGet'     { _mfgFilterId = pMfgFilterId_     , _mfgAccountId = pMfgAccountId_     }@@ -89,7 +89,10 @@  instance GoogleRequest ManagementFiltersGet where         type Rs ManagementFiltersGet = Filter-        requestClient ManagementFiltersGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Create a new filter. -- -- /See:/ 'managementFiltersInsert' smart constructor.-data ManagementFiltersInsert = ManagementFiltersInsert+data ManagementFiltersInsert = ManagementFiltersInsert'     { _mfiPayload   :: !Filter     , _mfiAccountId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'mfiAccountId'     -> ManagementFiltersInsert managementFiltersInsert pMfiPayload_ pMfiAccountId_ =-    ManagementFiltersInsert+    ManagementFiltersInsert'     { _mfiPayload = pMfiPayload_     , _mfiAccountId = pMfiAccountId_     }@@ -89,7 +89,9 @@  instance GoogleRequest ManagementFiltersInsert where         type Rs ManagementFiltersInsert = Filter-        requestClient ManagementFiltersInsert{..}+        type Scopes ManagementFiltersInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementFiltersInsert'{..}           = go _mfiAccountId (Just AltJSON) _mfiPayload               analyticsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Lists all filters for an account -- -- /See:/ 'managementFiltersList' smart constructor.-data ManagementFiltersList = ManagementFiltersList+data ManagementFiltersList = ManagementFiltersList'     { _mflAccountId  :: !Text     , _mflStartIndex :: !(Maybe (Textual Int32))     , _mflMaxResults :: !(Maybe (Textual Int32))@@ -76,7 +76,7 @@     :: Text -- ^ 'mflAccountId'     -> ManagementFiltersList managementFiltersList pMflAccountId_ =-    ManagementFiltersList+    ManagementFiltersList'     { _mflAccountId = pMflAccountId_     , _mflStartIndex = Nothing     , _mflMaxResults = Nothing@@ -104,7 +104,10 @@  instance GoogleRequest ManagementFiltersList where         type Rs ManagementFiltersList = Filters-        requestClient ManagementFiltersList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Updates an existing filter. This method supports patch semantics. -- -- /See:/ 'managementFiltersPatch' smart constructor.-data ManagementFiltersPatch = ManagementFiltersPatch+data ManagementFiltersPatch = ManagementFiltersPatch'     { _mfpFilterId  :: !Text     , _mfpPayload   :: !Filter     , _mfpAccountId :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'mfpAccountId'     -> ManagementFiltersPatch managementFiltersPatch pMfpFilterId_ pMfpPayload_ pMfpAccountId_ =-    ManagementFiltersPatch+    ManagementFiltersPatch'     { _mfpFilterId = pMfpFilterId_     , _mfpPayload = pMfpPayload_     , _mfpAccountId = pMfpAccountId_@@ -101,7 +101,9 @@  instance GoogleRequest ManagementFiltersPatch where         type Rs ManagementFiltersPatch = Filter-        requestClient ManagementFiltersPatch{..}+        type Scopes ManagementFiltersPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementFiltersPatch'{..}           = go _mfpAccountId _mfpFilterId (Just AltJSON)               _mfpPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Filters.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Updates an existing filter. -- -- /See:/ 'managementFiltersUpdate' smart constructor.-data ManagementFiltersUpdate = ManagementFiltersUpdate+data ManagementFiltersUpdate = ManagementFiltersUpdate'     { _mfuFilterId  :: !Text     , _mfuPayload   :: !Filter     , _mfuAccountId :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'mfuAccountId'     -> ManagementFiltersUpdate managementFiltersUpdate pMfuFilterId_ pMfuPayload_ pMfuAccountId_ =-    ManagementFiltersUpdate+    ManagementFiltersUpdate'     { _mfuFilterId = pMfuFilterId_     , _mfuPayload = pMfuPayload_     , _mfuAccountId = pMfuAccountId_@@ -101,7 +101,9 @@  instance GoogleRequest ManagementFiltersUpdate where         type Rs ManagementFiltersUpdate = Filter-        requestClient ManagementFiltersUpdate{..}+        type Scopes ManagementFiltersUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementFiltersUpdate'{..}           = go _mfuAccountId _mfuFilterId (Just AltJSON)               _mfuPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Goals.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Gets a goal to which the user has access. -- -- /See:/ 'managementGoalsGet' smart constructor.-data ManagementGoalsGet = ManagementGoalsGet+data ManagementGoalsGet = ManagementGoalsGet'     { _mggWebPropertyId :: !Text     , _mggGoalId        :: !Text     , _mggProFileId     :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'mggAccountId'     -> ManagementGoalsGet managementGoalsGet pMggWebPropertyId_ pMggGoalId_ pMggProFileId_ pMggAccountId_ =-    ManagementGoalsGet+    ManagementGoalsGet'     { _mggWebPropertyId = pMggWebPropertyId_     , _mggGoalId = pMggGoalId_     , _mggProFileId = pMggProFileId_@@ -116,7 +116,10 @@  instance GoogleRequest ManagementGoalsGet where         type Rs ManagementGoalsGet = Goal-        requestClient ManagementGoalsGet{..}+        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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Goals.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Create a new goal. -- -- /See:/ 'managementGoalsInsert' smart constructor.-data ManagementGoalsInsert = ManagementGoalsInsert+data ManagementGoalsInsert = ManagementGoalsInsert'     { _mgiWebPropertyId :: !Text     , _mgiProFileId     :: !Text     , _mgiPayload       :: !Goal@@ -86,7 +86,7 @@     -> Text -- ^ 'mgiAccountId'     -> ManagementGoalsInsert managementGoalsInsert pMgiWebPropertyId_ pMgiProFileId_ pMgiPayload_ pMgiAccountId_ =-    ManagementGoalsInsert+    ManagementGoalsInsert'     { _mgiWebPropertyId = pMgiWebPropertyId_     , _mgiProFileId = pMgiProFileId_     , _mgiPayload = pMgiPayload_@@ -116,7 +116,9 @@  instance GoogleRequest ManagementGoalsInsert where         type Rs ManagementGoalsInsert = Goal-        requestClient ManagementGoalsInsert{..}+        type Scopes ManagementGoalsInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementGoalsInsert'{..}           = go _mgiAccountId _mgiWebPropertyId _mgiProFileId               (Just AltJSON)               _mgiPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Goals.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Lists goals to which the user has access. -- -- /See:/ 'managementGoalsList' smart constructor.-data ManagementGoalsList = ManagementGoalsList+data ManagementGoalsList = ManagementGoalsList'     { _mglWebPropertyId :: !Text     , _mglProFileId     :: !Text     , _mglAccountId     :: !Text@@ -90,7 +90,7 @@     -> Text -- ^ 'mglAccountId'     -> ManagementGoalsList managementGoalsList pMglWebPropertyId_ pMglProFileId_ pMglAccountId_ =-    ManagementGoalsList+    ManagementGoalsList'     { _mglWebPropertyId = pMglWebPropertyId_     , _mglProFileId = pMglProFileId_     , _mglAccountId = pMglAccountId_@@ -136,7 +136,11 @@  instance GoogleRequest ManagementGoalsList where         type Rs ManagementGoalsList = Goals-        requestClient ManagementGoalsList{..}+        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

@@ -14,14 +14,13 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Goals.Patch--- Copyright   : (c) 2015 Brendan Hay+-- 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.+-- 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@@ -61,11 +60,10 @@                            QueryParam "alt" AltJSON :>                              ReqBody '[JSON] Goal :> Patch '[JSON] Goal --- | Updates an existing view (profile). This method supports patch--- semantics.+-- | Updates an existing goal. This method supports patch semantics. -- -- /See:/ 'managementGoalsPatch' smart constructor.-data ManagementGoalsPatch = ManagementGoalsPatch+data ManagementGoalsPatch = ManagementGoalsPatch'     { _mgpWebPropertyId :: !Text     , _mgpGoalId        :: !Text     , _mgpProFileId     :: !Text@@ -94,7 +92,7 @@     -> Text -- ^ 'mgpAccountId'     -> ManagementGoalsPatch managementGoalsPatch pMgpWebPropertyId_ pMgpGoalId_ pMgpProFileId_ pMgpPayload_ pMgpAccountId_ =-    ManagementGoalsPatch+    ManagementGoalsPatch'     { _mgpWebPropertyId = pMgpWebPropertyId_     , _mgpGoalId = pMgpGoalId_     , _mgpProFileId = pMgpProFileId_@@ -130,7 +128,9 @@  instance GoogleRequest ManagementGoalsPatch where         type Rs ManagementGoalsPatch = Goal-        requestClient ManagementGoalsPatch{..}+        type Scopes ManagementGoalsPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementGoalsPatch'{..}           = go _mgpAccountId _mgpWebPropertyId _mgpProFileId               _mgpGoalId               (Just AltJSON)

@@ -14,13 +14,13 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Goals.Update--- Copyright   : (c) 2015 Brendan Hay+-- 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).+-- 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@@ -60,10 +60,10 @@                            QueryParam "alt" AltJSON :>                              ReqBody '[JSON] Goal :> Put '[JSON] Goal --- | Updates an existing view (profile).+-- | Updates an existing goal. -- -- /See:/ 'managementGoalsUpdate' smart constructor.-data ManagementGoalsUpdate = ManagementGoalsUpdate+data ManagementGoalsUpdate = ManagementGoalsUpdate'     { _mguWebPropertyId :: !Text     , _mguGoalId        :: !Text     , _mguProFileId     :: !Text@@ -92,7 +92,7 @@     -> Text -- ^ 'mguAccountId'     -> ManagementGoalsUpdate managementGoalsUpdate pMguWebPropertyId_ pMguGoalId_ pMguProFileId_ pMguPayload_ pMguAccountId_ =-    ManagementGoalsUpdate+    ManagementGoalsUpdate'     { _mguWebPropertyId = pMguWebPropertyId_     , _mguGoalId = pMguGoalId_     , _mguProFileId = pMguProFileId_@@ -128,7 +128,9 @@  instance GoogleRequest ManagementGoalsUpdate where         type Rs ManagementGoalsUpdate = Goal-        requestClient ManagementGoalsUpdate{..}+        type Scopes ManagementGoalsUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementGoalsUpdate'{..}           = go _mguAccountId _mguWebPropertyId _mguProFileId               _mguGoalId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Delete a profile filter link. -- -- /See:/ 'managementProFileFilterLinksDelete' smart constructor.-data ManagementProFileFilterLinksDelete = ManagementProFileFilterLinksDelete+data ManagementProFileFilterLinksDelete = ManagementProFileFilterLinksDelete'     { _mpffldWebPropertyId :: !Text     , _mpffldProFileId     :: !Text     , _mpffldAccountId     :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'mpffldLinkId'     -> ManagementProFileFilterLinksDelete managementProFileFilterLinksDelete pMpffldWebPropertyId_ pMpffldProFileId_ pMpffldAccountId_ pMpffldLinkId_ =-    ManagementProFileFilterLinksDelete+    ManagementProFileFilterLinksDelete'     { _mpffldWebPropertyId = pMpffldWebPropertyId_     , _mpffldProFileId = pMpffldProFileId_     , _mpffldAccountId = pMpffldAccountId_@@ -119,7 +119,9 @@ instance GoogleRequest          ManagementProFileFilterLinksDelete where         type Rs ManagementProFileFilterLinksDelete = ()-        requestClient ManagementProFileFilterLinksDelete{..}+        type Scopes ManagementProFileFilterLinksDelete =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFileFilterLinksDelete'{..}           = go _mpffldAccountId _mpffldWebPropertyId               _mpffldProFileId               _mpffldLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Returns a single profile filter link. -- -- /See:/ 'managementProFileFilterLinksGet' smart constructor.-data ManagementProFileFilterLinksGet = ManagementProFileFilterLinksGet+data ManagementProFileFilterLinksGet = ManagementProFileFilterLinksGet'     { _mpfflgWebPropertyId :: !Text     , _mpfflgProFileId     :: !Text     , _mpfflgAccountId     :: !Text@@ -87,7 +87,7 @@     -> Text -- ^ 'mpfflgLinkId'     -> ManagementProFileFilterLinksGet managementProFileFilterLinksGet pMpfflgWebPropertyId_ pMpfflgProFileId_ pMpfflgAccountId_ pMpfflgLinkId_ =-    ManagementProFileFilterLinksGet+    ManagementProFileFilterLinksGet'     { _mpfflgWebPropertyId = pMpfflgWebPropertyId_     , _mpfflgProFileId = pMpfflgProFileId_     , _mpfflgAccountId = pMpfflgAccountId_@@ -121,7 +121,10 @@          ManagementProFileFilterLinksGet where         type Rs ManagementProFileFilterLinksGet =              ProFileFilterLink-        requestClient ManagementProFileFilterLinksGet{..}+        type Scopes ManagementProFileFilterLinksGet =+             '["https://www.googleapis.com/auth/analytics.edit",+               "https://www.googleapis.com/auth/analytics.readonly"]+        requestClient ManagementProFileFilterLinksGet'{..}           = go _mpfflgAccountId _mpfflgWebPropertyId               _mpfflgProFileId               _mpfflgLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Create a new profile filter link. -- -- /See:/ 'managementProFileFilterLinksInsert' smart constructor.-data ManagementProFileFilterLinksInsert = ManagementProFileFilterLinksInsert+data ManagementProFileFilterLinksInsert = ManagementProFileFilterLinksInsert'     { _mpffliWebPropertyId :: !Text     , _mpffliProFileId     :: !Text     , _mpffliPayload       :: !ProFileFilterLink@@ -87,7 +87,7 @@     -> Text -- ^ 'mpffliAccountId'     -> ManagementProFileFilterLinksInsert managementProFileFilterLinksInsert pMpffliWebPropertyId_ pMpffliProFileId_ pMpffliPayload_ pMpffliAccountId_ =-    ManagementProFileFilterLinksInsert+    ManagementProFileFilterLinksInsert'     { _mpffliWebPropertyId = pMpffliWebPropertyId_     , _mpffliProFileId = pMpffliProFileId_     , _mpffliPayload = pMpffliPayload_@@ -122,7 +122,9 @@          ManagementProFileFilterLinksInsert where         type Rs ManagementProFileFilterLinksInsert =              ProFileFilterLink-        requestClient ManagementProFileFilterLinksInsert{..}+        type Scopes ManagementProFileFilterLinksInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFileFilterLinksInsert'{..}           = go _mpffliAccountId _mpffliWebPropertyId               _mpffliProFileId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Lists all profile filter links for a profile. -- -- /See:/ 'managementProFileFilterLinksList' smart constructor.-data ManagementProFileFilterLinksList = ManagementProFileFilterLinksList+data ManagementProFileFilterLinksList = ManagementProFileFilterLinksList'     { _mpffllWebPropertyId :: !Text     , _mpffllProFileId     :: !Text     , _mpffllAccountId     :: !Text@@ -91,7 +91,7 @@     -> Text -- ^ 'mpffllAccountId'     -> ManagementProFileFilterLinksList managementProFileFilterLinksList pMpffllWebPropertyId_ pMpffllProFileId_ pMpffllAccountId_ =-    ManagementProFileFilterLinksList+    ManagementProFileFilterLinksList'     { _mpffllWebPropertyId = pMpffllWebPropertyId_     , _mpffllProFileId = pMpffllProFileId_     , _mpffllAccountId = pMpffllAccountId_@@ -140,7 +140,10 @@          ManagementProFileFilterLinksList where         type Rs ManagementProFileFilterLinksList =              ProFileFilterLinks-        requestClient ManagementProFileFilterLinksList{..}+        type Scopes ManagementProFileFilterLinksList =+             '["https://www.googleapis.com/auth/analytics.edit",+               "https://www.googleapis.com/auth/analytics.readonly"]+        requestClient ManagementProFileFilterLinksList'{..}           = go _mpffllAccountId _mpffllWebPropertyId               _mpffllProFileId               _mpffllStartIndex

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@ -- semantics. -- -- /See:/ 'managementProFileFilterLinksPatch' smart constructor.-data ManagementProFileFilterLinksPatch = ManagementProFileFilterLinksPatch+data ManagementProFileFilterLinksPatch = ManagementProFileFilterLinksPatch'     { _mpfflpWebPropertyId :: !Text     , _mpfflpProFileId     :: !Text     , _mpfflpPayload       :: !ProFileFilterLink@@ -95,7 +95,7 @@     -> Text -- ^ 'mpfflpLinkId'     -> ManagementProFileFilterLinksPatch managementProFileFilterLinksPatch pMpfflpWebPropertyId_ pMpfflpProFileId_ pMpfflpPayload_ pMpfflpAccountId_ pMpfflpLinkId_ =-    ManagementProFileFilterLinksPatch+    ManagementProFileFilterLinksPatch'     { _mpfflpWebPropertyId = pMpfflpWebPropertyId_     , _mpfflpProFileId = pMpfflpProFileId_     , _mpfflpPayload = pMpfflpPayload_@@ -136,7 +136,9 @@          ManagementProFileFilterLinksPatch where         type Rs ManagementProFileFilterLinksPatch =              ProFileFilterLink-        requestClient ManagementProFileFilterLinksPatch{..}+        type Scopes ManagementProFileFilterLinksPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFileFilterLinksPatch'{..}           = go _mpfflpAccountId _mpfflpWebPropertyId               _mpfflpProFileId               _mpfflpLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Update an existing profile filter link. -- -- /See:/ 'managementProFileFilterLinksUpdate' smart constructor.-data ManagementProFileFilterLinksUpdate = ManagementProFileFilterLinksUpdate+data ManagementProFileFilterLinksUpdate = ManagementProFileFilterLinksUpdate'     { _mpffluWebPropertyId :: !Text     , _mpffluProFileId     :: !Text     , _mpffluPayload       :: !ProFileFilterLink@@ -93,7 +93,7 @@     -> Text -- ^ 'mpffluLinkId'     -> ManagementProFileFilterLinksUpdate managementProFileFilterLinksUpdate pMpffluWebPropertyId_ pMpffluProFileId_ pMpffluPayload_ pMpffluAccountId_ pMpffluLinkId_ =-    ManagementProFileFilterLinksUpdate+    ManagementProFileFilterLinksUpdate'     { _mpffluWebPropertyId = pMpffluWebPropertyId_     , _mpffluProFileId = pMpffluProFileId_     , _mpffluPayload = pMpffluPayload_@@ -134,7 +134,9 @@          ManagementProFileFilterLinksUpdate where         type Rs ManagementProFileFilterLinksUpdate =              ProFileFilterLink-        requestClient ManagementProFileFilterLinksUpdate{..}+        type Scopes ManagementProFileFilterLinksUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFileFilterLinksUpdate'{..}           = go _mpffluAccountId _mpffluWebPropertyId               _mpffluProFileId               _mpffluLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileUserLinks.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Removes a user from the given view (profile). -- -- /See:/ 'managementProFileUserLinksDelete' smart constructor.-data ManagementProFileUserLinksDelete = ManagementProFileUserLinksDelete+data ManagementProFileUserLinksDelete = ManagementProFileUserLinksDelete'     { _mpfuldWebPropertyId :: !Text     , _mpfuldProFileId     :: !Text     , _mpfuldAccountId     :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'mpfuldLinkId'     -> ManagementProFileUserLinksDelete managementProFileUserLinksDelete pMpfuldWebPropertyId_ pMpfuldProFileId_ pMpfuldAccountId_ pMpfuldLinkId_ =-    ManagementProFileUserLinksDelete+    ManagementProFileUserLinksDelete'     { _mpfuldWebPropertyId = pMpfuldWebPropertyId_     , _mpfuldProFileId = pMpfuldProFileId_     , _mpfuldAccountId = pMpfuldAccountId_@@ -119,7 +119,9 @@ instance GoogleRequest          ManagementProFileUserLinksDelete where         type Rs ManagementProFileUserLinksDelete = ()-        requestClient ManagementProFileUserLinksDelete{..}+        type Scopes ManagementProFileUserLinksDelete =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementProFileUserLinksDelete'{..}           = go _mpfuldAccountId _mpfuldWebPropertyId               _mpfuldProFileId               _mpfuldLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Adds a new user to the given view (profile). -- -- /See:/ 'managementProFileUserLinksInsert' smart constructor.-data ManagementProFileUserLinksInsert = ManagementProFileUserLinksInsert+data ManagementProFileUserLinksInsert = ManagementProFileUserLinksInsert'     { _mpfuliWebPropertyId :: !Text     , _mpfuliProFileId     :: !Text     , _mpfuliPayload       :: !EntityUserLink@@ -87,7 +87,7 @@     -> Text -- ^ 'mpfuliAccountId'     -> ManagementProFileUserLinksInsert managementProFileUserLinksInsert pMpfuliWebPropertyId_ pMpfuliProFileId_ pMpfuliPayload_ pMpfuliAccountId_ =-    ManagementProFileUserLinksInsert+    ManagementProFileUserLinksInsert'     { _mpfuliWebPropertyId = pMpfuliWebPropertyId_     , _mpfuliProFileId = pMpfuliProFileId_     , _mpfuliPayload = pMpfuliPayload_@@ -122,7 +122,9 @@          ManagementProFileUserLinksInsert where         type Rs ManagementProFileUserLinksInsert =              EntityUserLink-        requestClient ManagementProFileUserLinksInsert{..}+        type Scopes ManagementProFileUserLinksInsert =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementProFileUserLinksInsert'{..}           = go _mpfuliAccountId _mpfuliWebPropertyId               _mpfuliProFileId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileUserLinks.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Lists profile-user links for a given view (profile). -- -- /See:/ 'managementProFileUserLinksList' smart constructor.-data ManagementProFileUserLinksList = ManagementProFileUserLinksList+data ManagementProFileUserLinksList = ManagementProFileUserLinksList'     { _mpfullWebPropertyId :: !Text     , _mpfullProFileId     :: !Text     , _mpfullAccountId     :: !Text@@ -91,7 +91,7 @@     -> Text -- ^ 'mpfullAccountId'     -> ManagementProFileUserLinksList managementProFileUserLinksList pMpfullWebPropertyId_ pMpfullProFileId_ pMpfullAccountId_ =-    ManagementProFileUserLinksList+    ManagementProFileUserLinksList'     { _mpfullWebPropertyId = pMpfullWebPropertyId_     , _mpfullProFileId = pMpfullProFileId_     , _mpfullAccountId = pMpfullAccountId_@@ -140,7 +140,10 @@          where         type Rs ManagementProFileUserLinksList =              EntityUserLinks-        requestClient ManagementProFileUserLinksList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Updates permissions for an existing user on the given view (profile). -- -- /See:/ 'managementProFileUserLinksUpdate' smart constructor.-data ManagementProFileUserLinksUpdate = ManagementProFileUserLinksUpdate+data ManagementProFileUserLinksUpdate = ManagementProFileUserLinksUpdate'     { _mpfuluWebPropertyId :: !Text     , _mpfuluProFileId     :: !Text     , _mpfuluPayload       :: !EntityUserLink@@ -93,7 +93,7 @@     -> Text -- ^ 'mpfuluLinkId'     -> ManagementProFileUserLinksUpdate managementProFileUserLinksUpdate pMpfuluWebPropertyId_ pMpfuluProFileId_ pMpfuluPayload_ pMpfuluAccountId_ pMpfuluLinkId_ =-    ManagementProFileUserLinksUpdate+    ManagementProFileUserLinksUpdate'     { _mpfuluWebPropertyId = pMpfuluWebPropertyId_     , _mpfuluProFileId = pMpfuluProFileId_     , _mpfuluPayload = pMpfuluPayload_@@ -134,7 +134,9 @@          ManagementProFileUserLinksUpdate where         type Rs ManagementProFileUserLinksUpdate =              EntityUserLink-        requestClient ManagementProFileUserLinksUpdate{..}+        type Scopes ManagementProFileUserLinksUpdate =+             '["https://www.googleapis.com/auth/analytics.manage.users"]+        requestClient ManagementProFileUserLinksUpdate'{..}           = go _mpfuluAccountId _mpfuluWebPropertyId               _mpfuluProFileId               _mpfuluLinkId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Deletes a view (profile). -- -- /See:/ 'managementProFilesDelete' smart constructor.-data ManagementProFilesDelete = ManagementProFilesDelete+data ManagementProFilesDelete = ManagementProFilesDelete'     { _mpfdWebPropertyId :: !Text     , _mpfdProFileId     :: !Text     , _mpfdAccountId     :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mpfdAccountId'     -> ManagementProFilesDelete managementProFilesDelete pMpfdWebPropertyId_ pMpfdProFileId_ pMpfdAccountId_ =-    ManagementProFilesDelete+    ManagementProFilesDelete'     { _mpfdWebPropertyId = pMpfdWebPropertyId_     , _mpfdProFileId = pMpfdProFileId_     , _mpfdAccountId = pMpfdAccountId_@@ -105,7 +105,9 @@  instance GoogleRequest ManagementProFilesDelete where         type Rs ManagementProFilesDelete = ()-        requestClient ManagementProFilesDelete{..}+        type Scopes ManagementProFilesDelete =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFilesDelete'{..}           = go _mpfdAccountId _mpfdWebPropertyId _mpfdProFileId               (Just AltJSON)               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Gets a view (profile) to which the user has access. -- -- /See:/ 'managementProFilesGet' smart constructor.-data ManagementProFilesGet = ManagementProFilesGet+data ManagementProFilesGet = ManagementProFilesGet'     { _mpfgWebPropertyId :: !Text     , _mpfgProFileId     :: !Text     , _mpfgAccountId     :: !Text@@ -79,25 +79,25 @@     -> Text -- ^ 'mpfgAccountId'     -> ManagementProFilesGet managementProFilesGet pMpfgWebPropertyId_ pMpfgProFileId_ pMpfgAccountId_ =-    ManagementProFilesGet+    ManagementProFilesGet'     { _mpfgWebPropertyId = pMpfgWebPropertyId_     , _mpfgProFileId = pMpfgProFileId_     , _mpfgAccountId = pMpfgAccountId_     } --- | Web property ID to retrieve the goal for.+-- | 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 goal for.+-- | 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 goal for.+-- | Account ID to retrieve the view (profile) for. mpfgAccountId :: Lens' ManagementProFilesGet Text mpfgAccountId   = lens _mpfgAccountId@@ -105,7 +105,10 @@  instance GoogleRequest ManagementProFilesGet where         type Rs ManagementProFilesGet = ProFile-        requestClient ManagementProFilesGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Create a new view (profile). -- -- /See:/ 'managementProFilesInsert' smart constructor.-data ManagementProFilesInsert = ManagementProFilesInsert+data ManagementProFilesInsert = ManagementProFilesInsert'     { _mpfiWebPropertyId :: !Text     , _mpfiPayload       :: !ProFile     , _mpfiAccountId     :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mpfiAccountId'     -> ManagementProFilesInsert managementProFilesInsert pMpfiWebPropertyId_ pMpfiPayload_ pMpfiAccountId_ =-    ManagementProFilesInsert+    ManagementProFilesInsert'     { _mpfiWebPropertyId = pMpfiWebPropertyId_     , _mpfiPayload = pMpfiPayload_     , _mpfiAccountId = pMpfiAccountId_@@ -104,7 +104,9 @@  instance GoogleRequest ManagementProFilesInsert where         type Rs ManagementProFilesInsert = ProFile-        requestClient ManagementProFilesInsert{..}+        type Scopes ManagementProFilesInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFilesInsert'{..}           = go _mpfiAccountId _mpfiWebPropertyId (Just AltJSON)               _mpfiPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Lists views (profiles) to which the user has access. -- -- /See:/ 'managementProFilesList' smart constructor.-data ManagementProFilesList = ManagementProFilesList+data ManagementProFilesList = ManagementProFilesList'     { _mpflWebPropertyId :: !Text     , _mpflAccountId     :: !Text     , _mpflStartIndex    :: !(Maybe (Textual Int32))@@ -83,7 +83,7 @@     -> Text -- ^ 'mpflAccountId'     -> ManagementProFilesList managementProFilesList pMpflWebPropertyId_ pMpflAccountId_ =-    ManagementProFilesList+    ManagementProFilesList'     { _mpflWebPropertyId = pMpflWebPropertyId_     , _mpflAccountId = pMpflAccountId_     , _mpflStartIndex = Nothing@@ -123,7 +123,11 @@  instance GoogleRequest ManagementProFilesList where         type Rs ManagementProFilesList = ProFiles-        requestClient ManagementProFilesList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- semantics. -- -- /See:/ 'managementProFilesPatch' smart constructor.-data ManagementProFilesPatch = ManagementProFilesPatch+data ManagementProFilesPatch = ManagementProFilesPatch'     { _mpfpWebPropertyId :: !Text     , _mpfpProFileId     :: !Text     , _mpfpPayload       :: !ProFile@@ -87,7 +87,7 @@     -> Text -- ^ 'mpfpAccountId'     -> ManagementProFilesPatch managementProFilesPatch pMpfpWebPropertyId_ pMpfpProFileId_ pMpfpPayload_ pMpfpAccountId_ =-    ManagementProFilesPatch+    ManagementProFilesPatch'     { _mpfpWebPropertyId = pMpfpWebPropertyId_     , _mpfpProFileId = pMpfpProFileId_     , _mpfpPayload = pMpfpPayload_@@ -119,7 +119,9 @@  instance GoogleRequest ManagementProFilesPatch where         type Rs ManagementProFilesPatch = ProFile-        requestClient ManagementProFilesPatch{..}+        type Scopes ManagementProFilesPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFilesPatch'{..}           = go _mpfpAccountId _mpfpWebPropertyId _mpfpProFileId               (Just AltJSON)               _mpfpPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.ProFiles.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Updates an existing view (profile). -- -- /See:/ 'managementProFilesUpdate' smart constructor.-data ManagementProFilesUpdate = ManagementProFilesUpdate+data ManagementProFilesUpdate = ManagementProFilesUpdate'     { _mpfuWebPropertyId :: !Text     , _mpfuProFileId     :: !Text     , _mpfuPayload       :: !ProFile@@ -85,7 +85,7 @@     -> Text -- ^ 'mpfuAccountId'     -> ManagementProFilesUpdate managementProFilesUpdate pMpfuWebPropertyId_ pMpfuProFileId_ pMpfuPayload_ pMpfuAccountId_ =-    ManagementProFilesUpdate+    ManagementProFilesUpdate'     { _mpfuWebPropertyId = pMpfuWebPropertyId_     , _mpfuProFileId = pMpfuProFileId_     , _mpfuPayload = pMpfuPayload_@@ -117,7 +117,9 @@  instance GoogleRequest ManagementProFilesUpdate where         type Rs ManagementProFilesUpdate = ProFile-        requestClient ManagementProFilesUpdate{..}+        type Scopes ManagementProFilesUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementProFilesUpdate'{..}           = go _mpfuAccountId _mpfuWebPropertyId _mpfuProFileId               (Just AltJSON)               _mpfuPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Segments.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Lists segments to which the user has access. -- -- /See:/ 'managementSegmentsList' smart constructor.-data ManagementSegmentsList = ManagementSegmentsList+data ManagementSegmentsList = ManagementSegmentsList'     { _mslStartIndex :: !(Maybe (Textual Int32))     , _mslMaxResults :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -69,7 +69,7 @@ managementSegmentsList     :: ManagementSegmentsList managementSegmentsList =-    ManagementSegmentsList+    ManagementSegmentsList'     { _mslStartIndex = Nothing     , _mslMaxResults = Nothing     }@@ -91,7 +91,11 @@  instance GoogleRequest ManagementSegmentsList where         type Rs ManagementSegmentsList = Segments-        requestClient ManagementSegmentsList{..}+        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

@@ -0,0 +1,135 @@+{-# 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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.UnSampledReports.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Returns a single unsampled report. -- -- /See:/ 'managementUnSampledReportsGet' smart constructor.-data ManagementUnSampledReportsGet = ManagementUnSampledReportsGet+data ManagementUnSampledReportsGet = ManagementUnSampledReportsGet'     { _musrgWebPropertyId     :: !Text     , _musrgProFileId         :: !Text     , _musrgAccountId         :: !Text@@ -87,7 +87,7 @@     -> Text -- ^ 'musrgUnSampledReportId'     -> ManagementUnSampledReportsGet managementUnSampledReportsGet pMusrgWebPropertyId_ pMusrgProFileId_ pMusrgAccountId_ pMusrgUnSampledReportId_ =-    ManagementUnSampledReportsGet+    ManagementUnSampledReportsGet'     { _musrgWebPropertyId = pMusrgWebPropertyId_     , _musrgProFileId = pMusrgProFileId_     , _musrgAccountId = pMusrgAccountId_@@ -122,7 +122,11 @@          where         type Rs ManagementUnSampledReportsGet =              UnSampledReport-        requestClient ManagementUnSampledReportsGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.UnSampledReports.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Create a new unsampled report. -- -- /See:/ 'managementUnSampledReportsInsert' smart constructor.-data ManagementUnSampledReportsInsert = ManagementUnSampledReportsInsert+data ManagementUnSampledReportsInsert = ManagementUnSampledReportsInsert'     { _musriWebPropertyId :: !Text     , _musriProFileId     :: !Text     , _musriPayload       :: !UnSampledReport@@ -87,7 +87,7 @@     -> Text -- ^ 'musriAccountId'     -> ManagementUnSampledReportsInsert managementUnSampledReportsInsert pMusriWebPropertyId_ pMusriProFileId_ pMusriPayload_ pMusriAccountId_ =-    ManagementUnSampledReportsInsert+    ManagementUnSampledReportsInsert'     { _musriWebPropertyId = pMusriWebPropertyId_     , _musriProFileId = pMusriProFileId_     , _musriPayload = pMusriPayload_@@ -121,7 +121,10 @@          ManagementUnSampledReportsInsert where         type Rs ManagementUnSampledReportsInsert =              UnSampledReport-        requestClient ManagementUnSampledReportsInsert{..}+        type Scopes ManagementUnSampledReportsInsert =+             '["https://www.googleapis.com/auth/analytics",+               "https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementUnSampledReportsInsert'{..}           = go _musriAccountId _musriWebPropertyId               _musriProFileId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.UnSampledReports.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Lists unsampled reports to which the user has access. -- -- /See:/ 'managementUnSampledReportsList' smart constructor.-data ManagementUnSampledReportsList = ManagementUnSampledReportsList+data ManagementUnSampledReportsList = ManagementUnSampledReportsList'     { _musrlWebPropertyId :: !Text     , _musrlProFileId     :: !Text     , _musrlAccountId     :: !Text@@ -91,7 +91,7 @@     -> Text -- ^ 'musrlAccountId'     -> ManagementUnSampledReportsList managementUnSampledReportsList pMusrlWebPropertyId_ pMusrlProFileId_ pMusrlAccountId_ =-    ManagementUnSampledReportsList+    ManagementUnSampledReportsList'     { _musrlWebPropertyId = pMusrlWebPropertyId_     , _musrlProFileId = pMusrlProFileId_     , _musrlAccountId = pMusrlAccountId_@@ -139,7 +139,11 @@          where         type Rs ManagementUnSampledReportsList =              UnSampledReports-        requestClient ManagementUnSampledReportsList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | Delete data associated with a previous upload. -- -- /See:/ 'managementUploadsDeleteUploadData' smart constructor.-data ManagementUploadsDeleteUploadData = ManagementUploadsDeleteUploadData+data ManagementUploadsDeleteUploadData = ManagementUploadsDeleteUploadData'     { _mududWebPropertyId      :: !Text     , _mududCustomDataSourceId :: !Text     , _mududPayload            :: !AnalyticsDataimportDeleteUploadDataRequest@@ -88,7 +88,7 @@     -> Text -- ^ 'mududAccountId'     -> ManagementUploadsDeleteUploadData managementUploadsDeleteUploadData pMududWebPropertyId_ pMududCustomDataSourceId_ pMududPayload_ pMududAccountId_ =-    ManagementUploadsDeleteUploadData+    ManagementUploadsDeleteUploadData'     { _mududWebPropertyId = pMududWebPropertyId_     , _mududCustomDataSourceId = pMududCustomDataSourceId_     , _mududPayload = pMududPayload_@@ -121,7 +121,10 @@ instance GoogleRequest          ManagementUploadsDeleteUploadData where         type Rs ManagementUploadsDeleteUploadData = ()-        requestClient 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)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Uploads.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | List uploads to which the user has access. -- -- /See:/ 'managementUploadsGet' smart constructor.-data ManagementUploadsGet = ManagementUploadsGet+data ManagementUploadsGet = ManagementUploadsGet'     { _mugWebPropertyId      :: !Text     , _mugCustomDataSourceId :: !Text     , _mugAccountId          :: !Text@@ -86,7 +86,7 @@     -> Text -- ^ 'mugUploadId'     -> ManagementUploadsGet managementUploadsGet pMugWebPropertyId_ pMugCustomDataSourceId_ pMugAccountId_ pMugUploadId_ =-    ManagementUploadsGet+    ManagementUploadsGet'     { _mugWebPropertyId = pMugWebPropertyId_     , _mugCustomDataSourceId = pMugCustomDataSourceId_     , _mugAccountId = pMugAccountId_@@ -117,7 +117,11 @@  instance GoogleRequest ManagementUploadsGet where         type Rs ManagementUploadsGet = Upload-        requestClient ManagementUploadsGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Uploads.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- | List uploads to which the user has access. -- -- /See:/ 'managementUploadsList' smart constructor.-data ManagementUploadsList = ManagementUploadsList+data ManagementUploadsList = ManagementUploadsList'     { _mulWebPropertyId      :: !Text     , _mulCustomDataSourceId :: !Text     , _mulAccountId          :: !Text@@ -90,7 +90,7 @@     -> Text -- ^ 'mulAccountId'     -> ManagementUploadsList managementUploadsList pMulWebPropertyId_ pMulCustomDataSourceId_ pMulAccountId_ =-    ManagementUploadsList+    ManagementUploadsList'     { _mulWebPropertyId = pMulWebPropertyId_     , _mulCustomDataSourceId = pMulCustomDataSourceId_     , _mulAccountId = pMulAccountId_@@ -132,7 +132,11 @@  instance GoogleRequest ManagementUploadsList where         type Rs ManagementUploadsList = Uploads-        requestClient ManagementUploadsList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.Uploads.UploadData--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -69,13 +69,12 @@                            "uploads" :>                              QueryParam "alt" AltJSON :>                                QueryParam "uploadType" AltMedia :>-                                 ReqBody '[OctetStream] RequestBody :>-                                   Post '[JSON] Upload+                                 AltMedia :> Post '[JSON] Upload  -- | Upload data for a custom data source. -- -- /See:/ 'managementUploadsUploadData' smart constructor.-data ManagementUploadsUploadData = ManagementUploadsUploadData+data ManagementUploadsUploadData = ManagementUploadsUploadData'     { _muudWebPropertyId      :: !Text     , _muudCustomDataSourceId :: !Text     , _muudAccountId          :: !Text@@ -96,7 +95,7 @@     -> Text -- ^ 'muudAccountId'     -> ManagementUploadsUploadData managementUploadsUploadData pMuudWebPropertyId_ pMuudCustomDataSourceId_ pMuudAccountId_ =-    ManagementUploadsUploadData+    ManagementUploadsUploadData'     { _muudWebPropertyId = pMuudWebPropertyId_     , _muudCustomDataSourceId = pMuudCustomDataSourceId_     , _muudAccountId = pMuudAccountId_@@ -123,7 +122,10 @@ instance GoogleRequest ManagementUploadsUploadData          where         type Rs ManagementUploadsUploadData = Upload-        requestClient ManagementUploadsUploadData{..}+        type Scopes ManagementUploadsUploadData =+             '["https://www.googleapis.com/auth/analytics",+               "https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementUploadsUploadData'{..}           = go _muudAccountId _muudWebPropertyId               _muudCustomDataSourceId               (Just AltJSON)@@ -137,8 +139,10 @@          (MediaUpload ManagementUploadsUploadData) where         type Rs (MediaUpload ManagementUploadsUploadData) =              Upload+        type Scopes (MediaUpload ManagementUploadsUploadData)+             = Scopes ManagementUploadsUploadData         requestClient-          (MediaUpload ManagementUploadsUploadData{..} body)+          (MediaUpload ManagementUploadsUploadData'{..} body)           = go _muudAccountId _muudWebPropertyId               _muudCustomDataSourceId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebProperties.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Gets a web property to which the user has access. -- -- /See:/ 'managementWebPropertiesGet' smart constructor.-data ManagementWebPropertiesGet = ManagementWebPropertiesGet+data ManagementWebPropertiesGet = ManagementWebPropertiesGet'     { _mwpgWebPropertyId :: !Text     , _mwpgAccountId     :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'mwpgAccountId'     -> ManagementWebPropertiesGet managementWebPropertiesGet pMwpgWebPropertyId_ pMwpgAccountId_ =-    ManagementWebPropertiesGet+    ManagementWebPropertiesGet'     { _mwpgWebPropertyId = pMwpgWebPropertyId_     , _mwpgAccountId = pMwpgAccountId_     }@@ -92,7 +92,10 @@ instance GoogleRequest ManagementWebPropertiesGet          where         type Rs ManagementWebPropertiesGet = WebProperty-        requestClient ManagementWebPropertiesGet{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebProperties.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- have at least one profile. -- -- /See:/ 'managementWebPropertiesInsert' smart constructor.-data ManagementWebPropertiesInsert = ManagementWebPropertiesInsert+data ManagementWebPropertiesInsert = ManagementWebPropertiesInsert'     { _mwpiPayload   :: !WebProperty     , _mwpiAccountId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -77,7 +77,7 @@     -> Text -- ^ 'mwpiAccountId'     -> ManagementWebPropertiesInsert managementWebPropertiesInsert pMwpiPayload_ pMwpiAccountId_ =-    ManagementWebPropertiesInsert+    ManagementWebPropertiesInsert'     { _mwpiPayload = pMwpiPayload_     , _mwpiAccountId = pMwpiAccountId_     }@@ -96,7 +96,9 @@ instance GoogleRequest ManagementWebPropertiesInsert          where         type Rs ManagementWebPropertiesInsert = WebProperty-        requestClient ManagementWebPropertiesInsert{..}+        type Scopes ManagementWebPropertiesInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementWebPropertiesInsert'{..}           = go _mwpiAccountId (Just AltJSON) _mwpiPayload               analyticsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebProperties.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Lists web properties to which the user has access. -- -- /See:/ 'managementWebPropertiesList' smart constructor.-data ManagementWebPropertiesList = ManagementWebPropertiesList+data ManagementWebPropertiesList = ManagementWebPropertiesList'     { _mwplAccountId  :: !Text     , _mwplStartIndex :: !(Maybe (Textual Int32))     , _mwplMaxResults :: !(Maybe (Textual Int32))@@ -76,7 +76,7 @@     :: Text -- ^ 'mwplAccountId'     -> ManagementWebPropertiesList managementWebPropertiesList pMwplAccountId_ =-    ManagementWebPropertiesList+    ManagementWebPropertiesList'     { _mwplAccountId = pMwplAccountId_     , _mwplStartIndex = Nothing     , _mwplMaxResults = Nothing@@ -108,7 +108,11 @@ instance GoogleRequest ManagementWebPropertiesList          where         type Rs ManagementWebPropertiesList = WebProperties-        requestClient ManagementWebPropertiesList{..}+        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

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebProperties.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Updates an existing web property. This method supports patch semantics. -- -- /See:/ 'managementWebPropertiesPatch' smart constructor.-data ManagementWebPropertiesPatch = ManagementWebPropertiesPatch+data ManagementWebPropertiesPatch = ManagementWebPropertiesPatch'     { _mwppWebPropertyId :: !Text     , _mwppPayload       :: !WebProperty     , _mwppAccountId     :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mwppAccountId'     -> ManagementWebPropertiesPatch managementWebPropertiesPatch pMwppWebPropertyId_ pMwppPayload_ pMwppAccountId_ =-    ManagementWebPropertiesPatch+    ManagementWebPropertiesPatch'     { _mwppWebPropertyId = pMwppWebPropertyId_     , _mwppPayload = pMwppPayload_     , _mwppAccountId = pMwppAccountId_@@ -105,7 +105,9 @@ instance GoogleRequest ManagementWebPropertiesPatch          where         type Rs ManagementWebPropertiesPatch = WebProperty-        requestClient ManagementWebPropertiesPatch{..}+        type Scopes ManagementWebPropertiesPatch =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementWebPropertiesPatch'{..}           = go _mwppAccountId _mwppWebPropertyId (Just AltJSON)               _mwppPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebProperties.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Updates an existing web property. -- -- /See:/ 'managementWebPropertiesUpdate' smart constructor.-data ManagementWebPropertiesUpdate = ManagementWebPropertiesUpdate+data ManagementWebPropertiesUpdate = ManagementWebPropertiesUpdate'     { _mwpuWebPropertyId :: !Text     , _mwpuPayload       :: !WebProperty     , _mwpuAccountId     :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mwpuAccountId'     -> ManagementWebPropertiesUpdate managementWebPropertiesUpdate pMwpuWebPropertyId_ pMwpuPayload_ pMwpuAccountId_ =-    ManagementWebPropertiesUpdate+    ManagementWebPropertiesUpdate'     { _mwpuWebPropertyId = pMwpuWebPropertyId_     , _mwpuPayload = pMwpuPayload_     , _mwpuAccountId = pMwpuAccountId_@@ -105,7 +105,9 @@ instance GoogleRequest ManagementWebPropertiesUpdate          where         type Rs ManagementWebPropertiesUpdate = WebProperty-        requestClient ManagementWebPropertiesUpdate{..}+        type Scopes ManagementWebPropertiesUpdate =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient ManagementWebPropertiesUpdate'{..}           = go _mwpuAccountId _mwpuWebPropertyId (Just AltJSON)               _mwpuPayload               analyticsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Deletes a web property-AdWords link. -- -- /See:/ 'managementWebPropertyAdWordsLinksDelete' smart constructor.-data ManagementWebPropertyAdWordsLinksDelete = ManagementWebPropertyAdWordsLinksDelete+data ManagementWebPropertyAdWordsLinksDelete = ManagementWebPropertyAdWordsLinksDelete'     { _mwpawldWebPropertyId            :: !Text     , _mwpawldAccountId                :: !Text     , _mwpawldWebPropertyAdWordsLinkId :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'mwpawldWebPropertyAdWordsLinkId'     -> ManagementWebPropertyAdWordsLinksDelete managementWebPropertyAdWordsLinksDelete pMwpawldWebPropertyId_ pMwpawldAccountId_ pMwpawldWebPropertyAdWordsLinkId_ =-    ManagementWebPropertyAdWordsLinksDelete+    ManagementWebPropertyAdWordsLinksDelete'     { _mwpawldWebPropertyId = pMwpawldWebPropertyId_     , _mwpawldAccountId = pMwpawldAccountId_     , _mwpawldWebPropertyAdWordsLinkId = pMwpawldWebPropertyAdWordsLinkId_@@ -107,8 +107,10 @@ instance GoogleRequest          ManagementWebPropertyAdWordsLinksDelete where         type Rs ManagementWebPropertyAdWordsLinksDelete = ()+        type Scopes ManagementWebPropertyAdWordsLinksDelete =+             '["https://www.googleapis.com/auth/analytics.edit"]         requestClient-          ManagementWebPropertyAdWordsLinksDelete{..}+          ManagementWebPropertyAdWordsLinksDelete'{..}           = go _mwpawldAccountId _mwpawldWebPropertyId               _mwpawldWebPropertyAdWordsLinkId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Returns a web property-AdWords link to which the user has access. -- -- /See:/ 'managementWebPropertyAdWordsLinksGet' smart constructor.-data ManagementWebPropertyAdWordsLinksGet = ManagementWebPropertyAdWordsLinksGet+data ManagementWebPropertyAdWordsLinksGet = ManagementWebPropertyAdWordsLinksGet'     { _mwpawlgWebPropertyId            :: !Text     , _mwpawlgAccountId                :: !Text     , _mwpawlgWebPropertyAdWordsLinkId :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'mwpawlgWebPropertyAdWordsLinkId'     -> ManagementWebPropertyAdWordsLinksGet managementWebPropertyAdWordsLinksGet pMwpawlgWebPropertyId_ pMwpawlgAccountId_ pMwpawlgWebPropertyAdWordsLinkId_ =-    ManagementWebPropertyAdWordsLinksGet+    ManagementWebPropertyAdWordsLinksGet'     { _mwpawlgWebPropertyId = pMwpawlgWebPropertyId_     , _mwpawlgAccountId = pMwpawlgAccountId_     , _mwpawlgWebPropertyAdWordsLinkId = pMwpawlgWebPropertyAdWordsLinkId_@@ -108,8 +108,11 @@          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{..}+          ManagementWebPropertyAdWordsLinksGet'{..}           = go _mwpawlgAccountId _mwpawlgWebPropertyId               _mwpawlgWebPropertyAdWordsLinkId               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Creates a webProperty-AdWords link. -- -- /See:/ 'managementWebPropertyAdWordsLinksInsert' smart constructor.-data ManagementWebPropertyAdWordsLinksInsert = ManagementWebPropertyAdWordsLinksInsert+data ManagementWebPropertyAdWordsLinksInsert = ManagementWebPropertyAdWordsLinksInsert'     { _mwpawliWebPropertyId :: !Text     , _mwpawliPayload       :: !EntityAdWordsLink     , _mwpawliAccountId     :: !Text@@ -81,7 +81,7 @@     -> Text -- ^ 'mwpawliAccountId'     -> ManagementWebPropertyAdWordsLinksInsert managementWebPropertyAdWordsLinksInsert pMwpawliWebPropertyId_ pMwpawliPayload_ pMwpawliAccountId_ =-    ManagementWebPropertyAdWordsLinksInsert+    ManagementWebPropertyAdWordsLinksInsert'     { _mwpawliWebPropertyId = pMwpawliWebPropertyId_     , _mwpawliPayload = pMwpawliPayload_     , _mwpawliAccountId = pMwpawliAccountId_@@ -109,8 +109,10 @@          ManagementWebPropertyAdWordsLinksInsert where         type Rs ManagementWebPropertyAdWordsLinksInsert =              EntityAdWordsLink+        type Scopes ManagementWebPropertyAdWordsLinksInsert =+             '["https://www.googleapis.com/auth/analytics.edit"]         requestClient-          ManagementWebPropertyAdWordsLinksInsert{..}+          ManagementWebPropertyAdWordsLinksInsert'{..}           = go _mwpawliAccountId _mwpawliWebPropertyId               (Just AltJSON)               _mwpawliPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Lists webProperty-AdWords links for a given web property. -- -- /See:/ 'managementWebPropertyAdWordsLinksList' smart constructor.-data ManagementWebPropertyAdWordsLinksList = ManagementWebPropertyAdWordsLinksList+data ManagementWebPropertyAdWordsLinksList = ManagementWebPropertyAdWordsLinksList'     { _mwpawllWebPropertyId :: !Text     , _mwpawllAccountId     :: !Text     , _mwpawllStartIndex    :: !(Maybe (Textual Int32))@@ -84,7 +84,7 @@     -> Text -- ^ 'mwpawllAccountId'     -> ManagementWebPropertyAdWordsLinksList managementWebPropertyAdWordsLinksList pMwpawllWebPropertyId_ pMwpawllAccountId_ =-    ManagementWebPropertyAdWordsLinksList+    ManagementWebPropertyAdWordsLinksList'     { _mwpawllWebPropertyId = pMwpawllWebPropertyId_     , _mwpawllAccountId = pMwpawllAccountId_     , _mwpawllStartIndex = Nothing@@ -124,8 +124,11 @@          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{..}+          ManagementWebPropertyAdWordsLinksList'{..}           = go _mwpawllAccountId _mwpawllWebPropertyId               _mwpawllStartIndex               _mwpawllMaxResults