diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 diff --git a/gen/Network/Google/Analytics.hs b/gen/Network/Google/Analytics.hs --- a/gen/Network/Google/Analytics.hs +++ b/gen/Network/Google/Analytics.hs @@ -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 -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- View and manage your Google Analytics data +-- Views and manages your Google Analytics data. -- -- /See:/ 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 diff --git a/gen/Network/Google/Analytics/Types.hs b/gen/Network/Google/Analytics/Types.hs --- a/gen/Network/Google/Analytics/Types.hs +++ b/gen/Network/Google/Analytics/Types.hs @@ -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 -- 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; diff --git a/gen/Network/Google/Analytics/Types/Product.hs b/gen/Network/Google/Analytics/Types/Product.hs --- a/gen/Network/Google/Analytics/Types/Product.hs +++ b/gen/Network/Google/Analytics/Types/Product.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Analytics/Types/Sum.hs b/gen/Network/Google/Analytics/Types/Sum.hs --- a/gen/Network/Google/Analytics/Types/Sum.hs +++ b/gen/Network/Google/Analytics/Types/Sum.hs @@ -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 -- 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" diff --git a/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs b/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs --- a/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs b/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs --- a/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs b/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs --- a/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs b/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs b/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs b/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs b/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs b/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs b/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs @@ -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 -- 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:/ 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs b/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs @@ -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 -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates an existing view (profile). +-- Updates an existing goal. -- -- /See:/ 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs b/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Delete.hs @@ -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 +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes an unsampled report. +-- +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs b/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs --- a/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs b/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs b/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs b/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs --- a/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs +++ b/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs b/gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- semantics. -- -- /See:/ 'managementWebPropertyAdWordsLinksPatch' smart constructor. -data ManagementWebPropertyAdWordsLinksPatch = ManagementWebPropertyAdWordsLinksPatch +data ManagementWebPropertyAdWordsLinksPatch = ManagementWebPropertyAdWordsLinksPatch' { _mwpawlpWebPropertyId :: !Text , _mwpawlpPayload :: !EntityAdWordsLink , _mwpawlpAccountId :: !Text @@ -88,7 +88,7 @@ -> Text -- ^ 'mwpawlpWebPropertyAdWordsLinkId' -> ManagementWebPropertyAdWordsLinksPatch managementWebPropertyAdWordsLinksPatch pMwpawlpWebPropertyId_ pMwpawlpPayload_ pMwpawlpAccountId_ pMwpawlpWebPropertyAdWordsLinkId_ = - ManagementWebPropertyAdWordsLinksPatch + ManagementWebPropertyAdWordsLinksPatch' { _mwpawlpWebPropertyId = pMwpawlpWebPropertyId_ , _mwpawlpPayload = pMwpawlpPayload_ , _mwpawlpAccountId = pMwpawlpAccountId_ @@ -123,8 +123,10 @@ ManagementWebPropertyAdWordsLinksPatch where type Rs ManagementWebPropertyAdWordsLinksPatch = EntityAdWordsLink + type Scopes ManagementWebPropertyAdWordsLinksPatch = + '["https://www.googleapis.com/auth/analytics.edit"] requestClient - ManagementWebPropertyAdWordsLinksPatch{..} + ManagementWebPropertyAdWordsLinksPatch'{..} = go _mwpawlpAccountId _mwpawlpWebPropertyId _mwpawlpWebPropertyAdWordsLinkId (Just AltJSON) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- | Updates an existing webProperty-AdWords link. -- -- /See:/ 'managementWebPropertyAdWordsLinksUpdate' smart constructor. -data ManagementWebPropertyAdWordsLinksUpdate = ManagementWebPropertyAdWordsLinksUpdate +data ManagementWebPropertyAdWordsLinksUpdate = ManagementWebPropertyAdWordsLinksUpdate' { _mwpawluWebPropertyId :: !Text , _mwpawluPayload :: !EntityAdWordsLink , _mwpawluAccountId :: !Text @@ -87,7 +87,7 @@ -> Text -- ^ 'mwpawluWebPropertyAdWordsLinkId' -> ManagementWebPropertyAdWordsLinksUpdate managementWebPropertyAdWordsLinksUpdate pMwpawluWebPropertyId_ pMwpawluPayload_ pMwpawluAccountId_ pMwpawluWebPropertyAdWordsLinkId_ = - ManagementWebPropertyAdWordsLinksUpdate + ManagementWebPropertyAdWordsLinksUpdate' { _mwpawluWebPropertyId = pMwpawluWebPropertyId_ , _mwpawluPayload = pMwpawluPayload_ , _mwpawluAccountId = pMwpawluAccountId_ @@ -122,8 +122,10 @@ ManagementWebPropertyAdWordsLinksUpdate where type Rs ManagementWebPropertyAdWordsLinksUpdate = EntityAdWordsLink + type Scopes ManagementWebPropertyAdWordsLinksUpdate = + '["https://www.googleapis.com/auth/analytics.edit"] requestClient - ManagementWebPropertyAdWordsLinksUpdate{..} + ManagementWebPropertyAdWordsLinksUpdate'{..} = go _mwpawluAccountId _mwpawluWebPropertyId _mwpawluWebPropertyAdWordsLinkId (Just AltJSON) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- | Removes a user from the given web property. -- -- /See:/ 'managementWebPropertyUserLinksDelete' smart constructor. -data ManagementWebPropertyUserLinksDelete = ManagementWebPropertyUserLinksDelete +data ManagementWebPropertyUserLinksDelete = ManagementWebPropertyUserLinksDelete' { _mwpuldWebPropertyId :: !Text , _mwpuldAccountId :: !Text , _mwpuldLinkId :: !Text @@ -79,7 +79,7 @@ -> Text -- ^ 'mwpuldLinkId' -> ManagementWebPropertyUserLinksDelete managementWebPropertyUserLinksDelete pMwpuldWebPropertyId_ pMwpuldAccountId_ pMwpuldLinkId_ = - ManagementWebPropertyUserLinksDelete + ManagementWebPropertyUserLinksDelete' { _mwpuldWebPropertyId = pMwpuldWebPropertyId_ , _mwpuldAccountId = pMwpuldAccountId_ , _mwpuldLinkId = pMwpuldLinkId_ @@ -105,8 +105,10 @@ instance GoogleRequest ManagementWebPropertyUserLinksDelete where type Rs ManagementWebPropertyUserLinksDelete = () + type Scopes ManagementWebPropertyUserLinksDelete = + '["https://www.googleapis.com/auth/analytics.manage.users"] requestClient - ManagementWebPropertyUserLinksDelete{..} + ManagementWebPropertyUserLinksDelete'{..} = go _mwpuldAccountId _mwpuldWebPropertyId _mwpuldLinkId (Just AltJSON) diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- | Adds a new user to the given web property. -- -- /See:/ 'managementWebPropertyUserLinksInsert' smart constructor. -data ManagementWebPropertyUserLinksInsert = ManagementWebPropertyUserLinksInsert +data ManagementWebPropertyUserLinksInsert = ManagementWebPropertyUserLinksInsert' { _mwpuliWebPropertyId :: !Text , _mwpuliPayload :: !EntityUserLink , _mwpuliAccountId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'mwpuliAccountId' -> ManagementWebPropertyUserLinksInsert managementWebPropertyUserLinksInsert pMwpuliWebPropertyId_ pMwpuliPayload_ pMwpuliAccountId_ = - ManagementWebPropertyUserLinksInsert + ManagementWebPropertyUserLinksInsert' { _mwpuliWebPropertyId = pMwpuliWebPropertyId_ , _mwpuliPayload = pMwpuliPayload_ , _mwpuliAccountId = pMwpuliAccountId_ @@ -108,8 +108,10 @@ ManagementWebPropertyUserLinksInsert where type Rs ManagementWebPropertyUserLinksInsert = EntityUserLink + type Scopes ManagementWebPropertyUserLinksInsert = + '["https://www.googleapis.com/auth/analytics.manage.users"] requestClient - ManagementWebPropertyUserLinksInsert{..} + ManagementWebPropertyUserLinksInsert'{..} = go _mwpuliAccountId _mwpuliWebPropertyId (Just AltJSON) _mwpuliPayload diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Lists webProperty-user links for a given web property. -- -- /See:/ 'managementWebPropertyUserLinksList' smart constructor. -data ManagementWebPropertyUserLinksList = ManagementWebPropertyUserLinksList +data ManagementWebPropertyUserLinksList = ManagementWebPropertyUserLinksList' { _mwpullWebPropertyId :: !Text , _mwpullAccountId :: !Text , _mwpullStartIndex :: !(Maybe (Textual Int32)) @@ -84,7 +84,7 @@ -> Text -- ^ 'mwpullAccountId' -> ManagementWebPropertyUserLinksList managementWebPropertyUserLinksList pMwpullWebPropertyId_ pMwpullAccountId_ = - ManagementWebPropertyUserLinksList + ManagementWebPropertyUserLinksList' { _mwpullWebPropertyId = pMwpullWebPropertyId_ , _mwpullAccountId = pMwpullAccountId_ , _mwpullStartIndex = Nothing @@ -126,7 +126,10 @@ ManagementWebPropertyUserLinksList where type Rs ManagementWebPropertyUserLinksList = EntityUserLinks - requestClient ManagementWebPropertyUserLinksList{..} + type Scopes ManagementWebPropertyUserLinksList = + '["https://www.googleapis.com/auth/analytics.manage.users", + "https://www.googleapis.com/auth/analytics.manage.users.readonly"] + requestClient ManagementWebPropertyUserLinksList'{..} = go _mwpullAccountId _mwpullWebPropertyId _mwpullStartIndex _mwpullMaxResults diff --git a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs --- a/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs +++ b/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Updates permissions for an existing user on the given web property. -- -- /See:/ 'managementWebPropertyUserLinksUpdate' smart constructor. -data ManagementWebPropertyUserLinksUpdate = ManagementWebPropertyUserLinksUpdate +data ManagementWebPropertyUserLinksUpdate = ManagementWebPropertyUserLinksUpdate' { _mwpuluWebPropertyId :: !Text , _mwpuluPayload :: !EntityUserLink , _mwpuluAccountId :: !Text @@ -86,7 +86,7 @@ -> Text -- ^ 'mwpuluLinkId' -> ManagementWebPropertyUserLinksUpdate managementWebPropertyUserLinksUpdate pMwpuluWebPropertyId_ pMwpuluPayload_ pMwpuluAccountId_ pMwpuluLinkId_ = - ManagementWebPropertyUserLinksUpdate + ManagementWebPropertyUserLinksUpdate' { _mwpuluWebPropertyId = pMwpuluWebPropertyId_ , _mwpuluPayload = pMwpuluPayload_ , _mwpuluAccountId = pMwpuluAccountId_ @@ -120,8 +120,10 @@ ManagementWebPropertyUserLinksUpdate where type Rs ManagementWebPropertyUserLinksUpdate = EntityUserLink + type Scopes ManagementWebPropertyUserLinksUpdate = + '["https://www.googleapis.com/auth/analytics.manage.users"] requestClient - ManagementWebPropertyUserLinksUpdate{..} + ManagementWebPropertyUserLinksUpdate'{..} = go _mwpuluAccountId _mwpuluWebPropertyId _mwpuluLinkId (Just AltJSON) diff --git a/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs b/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs --- a/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs +++ b/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Metadata.Columns.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | Lists all columns for a report type -- -- /See:/ 'metadataColumnsList' smart constructor. -newtype MetadataColumnsList = MetadataColumnsList +newtype MetadataColumnsList = MetadataColumnsList' { _mclReportType :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: Text -- ^ 'mclReportType' -> MetadataColumnsList metadataColumnsList pMclReportType_ = - MetadataColumnsList + MetadataColumnsList' { _mclReportType = pMclReportType_ } @@ -78,7 +78,11 @@ instance GoogleRequest MetadataColumnsList where type Rs MetadataColumnsList = Columns - requestClient MetadataColumnsList{..} + type Scopes MetadataColumnsList = + '["https://www.googleapis.com/auth/analytics", + "https://www.googleapis.com/auth/analytics.edit", + "https://www.googleapis.com/auth/analytics.readonly"] + requestClient MetadataColumnsList'{..} = go _mclReportType (Just AltJSON) analyticsService where go = buildClient diff --git a/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs b/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs --- a/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs +++ b/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Creates an account ticket. -- -- /See:/ 'provisioningCreateAccountTicket' smart constructor. -newtype ProvisioningCreateAccountTicket = ProvisioningCreateAccountTicket +newtype ProvisioningCreateAccountTicket = ProvisioningCreateAccountTicket' { _pcatPayload :: AccountTicket } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: AccountTicket -- ^ 'pcatPayload' -> ProvisioningCreateAccountTicket provisioningCreateAccountTicket pPcatPayload_ = - ProvisioningCreateAccountTicket + ProvisioningCreateAccountTicket' { _pcatPayload = pPcatPayload_ } @@ -79,7 +79,9 @@ ProvisioningCreateAccountTicket where type Rs ProvisioningCreateAccountTicket = AccountTicket - requestClient ProvisioningCreateAccountTicket{..} + type Scopes ProvisioningCreateAccountTicket = + '["https://www.googleapis.com/auth/analytics.provision"] + requestClient ProvisioningCreateAccountTicket'{..} = go (Just AltJSON) _pcatPayload analyticsService where go = buildClient diff --git a/gogol-analytics.cabal b/gogol-analytics.cabal --- a/gogol-analytics.cabal +++ b/gogol-analytics.cabal @@ -1,5 +1,5 @@ name: gogol-analytics -version: 0.0.1 +version: 0.1.0 synopsis: Google Analytics SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,14 +7,14 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 extra-source-files: README.md description: - View and manage your Google Analytics data + Views and manages your Google Analytics data. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -89,6 +89,7 @@ , Network.Google.Resource.Analytics.Management.ProFiles.Patch , Network.Google.Resource.Analytics.Management.ProFiles.Update , Network.Google.Resource.Analytics.Management.Segments.List + , Network.Google.Resource.Analytics.Management.UnSampledReports.Delete , Network.Google.Resource.Analytics.Management.UnSampledReports.Get , Network.Google.Resource.Analytics.Management.UnSampledReports.Insert , Network.Google.Resource.Analytics.Management.UnSampledReports.List @@ -119,5 +120,5 @@ , Network.Google.Analytics.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5