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 @@ -27,6 +27,7 @@ , analyticsManageUsersReadOnlyScope , analyticsScope , analyticsReadOnlyScope + , analyticsUserDeletionScope , analyticsEditScope -- * API Declaration @@ -61,6 +62,9 @@ -- ** analytics.management.accounts.list , module Network.Google.Resource.Analytics.Management.Accounts.List + -- ** analytics.management.clientId.hashClientId + , module Network.Google.Resource.Analytics.Management.ClientId.HashClientId + -- ** analytics.management.customDataSources.list , module Network.Google.Resource.Analytics.Management.CustomDataSources.List @@ -193,6 +197,9 @@ -- ** analytics.management.profiles.update , module Network.Google.Resource.Analytics.Management.ProFiles.Update + -- ** analytics.management.remarketingAudience.delete + , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete + -- ** analytics.management.remarketingAudience.get , module Network.Google.Resource.Analytics.Management.RemarketingAudience.Get @@ -286,8 +293,23 @@ -- ** analytics.provisioning.createAccountTicket , module Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket + -- ** analytics.provisioning.createAccountTree + , module Network.Google.Resource.Analytics.Provisioning.CreateAccountTree + + -- ** analytics.userDeletion.userDeletionRequest.upsert + , module Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert + -- * Types + -- ** UserDeletionRequest + , UserDeletionRequest + , userDeletionRequest + , udrWebPropertyId + , udrKind + , udrId + , udrFirebaseProjectId + , udrDeletionRequestTime + -- ** UnSampledReports , UnSampledReports , unSampledReports @@ -512,6 +534,14 @@ -- ** DataGaGetSamplingLevel , DataGaGetSamplingLevel (..) + -- ** HashClientIdResponse + , HashClientIdResponse + , hashClientIdResponse + , hcirClientId + , hcirWebPropertyId + , hcirKind + , hcirHashedClientId + -- ** McfData , McfData , mcfData @@ -719,6 +749,7 @@ , cKind , cCreated , cUploadType + , cSchema , cImportBehavior , cSelfLink , cAccountId @@ -729,6 +760,17 @@ , cDescription , cProFilesLinked + -- ** AccountTreeRequest + , AccountTreeRequest + , accountTreeRequest + , atrAccountSettings + , atrWebPropertyName + , atrKind + , atrAccountName + , atrProFileName + , atrWebsiteURL + , atrTimezone + -- ** WebPropertyRef , WebPropertyRef , webPropertyRef @@ -902,6 +944,15 @@ , fadFieldBRequired , fadOverrideOutputField + -- ** AccountTreeResponse + , AccountTreeResponse + , accountTreeResponse + , atrtAccountSettings + , atrtKind + , atrtProFile + , atrtAccount + , atrtWebProperty + -- ** FilterUppercaseDetails , FilterUppercaseDetails , filterUppercaseDetails @@ -932,6 +983,13 @@ -- ** DataGaGetOutput , DataGaGetOutput (..) + -- ** HashClientIdRequest + , HashClientIdRequest + , hashClientIdRequest + , hClientId + , hWebPropertyId + , hKind + -- ** RealtimeData , RealtimeData , realtimeData @@ -987,6 +1045,8 @@ , wDefaultProFileId , wKind , wCreated + , wDataRetentionTtl + , wDataRetentionResetOnNewActivity , wSelfLink , wAccountId , wName @@ -1030,6 +1090,14 @@ , gedeciType , gedeciComparisonType + -- ** AccountTreeRequestAccountSettings + , AccountTreeRequestAccountSettings + , accountTreeRequestAccountSettings + , atrasShareWithSpeciaLists + , atrasShareWithSupport + , atrasShareAnonymouslyWithOthers + , atrasShareWithGoogleProducts + -- ** McfDataQuery , McfDataQuery , mcfDataQuery @@ -1182,6 +1250,14 @@ , rasbadExcludeConditions , rasbadIncludeConditions + -- ** AccountTreeResponseAccountSettings + , AccountTreeResponseAccountSettings + , accountTreeResponseAccountSettings + , aShareWithSpeciaLists + , aShareWithSupport + , aShareAnonymouslyWithOthers + , aShareWithGoogleProducts + -- ** GoalURLDestinationDetails , GoalURLDestinationDetails , goalURLDestinationDetails @@ -1225,6 +1301,7 @@ , uuStatus , uuKind , uuCustomDataSourceId + , uuUploadTime , uuAccountId , uuId , uuErrors @@ -1322,6 +1399,12 @@ , mcfDataTotalsForAllResults , mdtfarAddtional + -- ** UserDeletionRequestId + , UserDeletionRequestId + , userDeletionRequestId + , udriUserId + , udriType + -- ** UnSampledReportCloudStorageDownloadDetails , UnSampledReportCloudStorageDownloadDetails , unSampledReportCloudStorageDownloadDetails @@ -1364,6 +1447,7 @@ import Network.Google.Resource.Analytics.Management.AccountUserLinks.Insert import Network.Google.Resource.Analytics.Management.AccountUserLinks.List import Network.Google.Resource.Analytics.Management.AccountUserLinks.Update +import Network.Google.Resource.Analytics.Management.ClientId.HashClientId import Network.Google.Resource.Analytics.Management.CustomDataSources.List import Network.Google.Resource.Analytics.Management.CustomDimensions.Get import Network.Google.Resource.Analytics.Management.CustomDimensions.Insert @@ -1408,6 +1492,7 @@ import Network.Google.Resource.Analytics.Management.ProFileUserLinks.Insert import Network.Google.Resource.Analytics.Management.ProFileUserLinks.List import Network.Google.Resource.Analytics.Management.ProFileUserLinks.Update +import Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete import Network.Google.Resource.Analytics.Management.RemarketingAudience.Get import Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert import Network.Google.Resource.Analytics.Management.RemarketingAudience.List @@ -1439,6 +1524,8 @@ import Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update import Network.Google.Resource.Analytics.Metadata.Columns.List import Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket +import Network.Google.Resource.Analytics.Provisioning.CreateAccountTree +import Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert {- $resources TODO @@ -1446,8 +1533,11 @@ -- | Represents the entirety of the methods and resources available for the Google Analytics API service. type AnalyticsAPI = - DataMcfGetResource :<|> DataGaGetResource :<|> - DataRealtimeGetResource + UserDeletionUserDeletionRequestUpsertResource :<|> + DataMcfGetResource + :<|> DataGaGetResource + :<|> DataRealtimeGetResource + :<|> ManagementClientIdHashClientIdResource :<|> ManagementWebPropertyAdWordsLinksInsertResource :<|> ManagementWebPropertyAdWordsLinksListResource :<|> ManagementWebPropertyAdWordsLinksPatchResource @@ -1462,6 +1552,7 @@ :<|> ManagementRemarketingAudienceListResource :<|> ManagementRemarketingAudiencePatchResource :<|> ManagementRemarketingAudienceGetResource + :<|> ManagementRemarketingAudienceDeleteResource :<|> ManagementRemarketingAudienceUpdateResource :<|> ManagementAccountsListResource :<|> ManagementExperimentsInsertResource @@ -1527,5 +1618,6 @@ :<|> ManagementProFileUserLinksListResource :<|> ManagementProFileUserLinksDeleteResource :<|> ManagementProFileUserLinksUpdateResource + :<|> ProvisioningCreateAccountTreeResource :<|> ProvisioningCreateAccountTicketResource :<|> MetadataColumnsListResource 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 @@ -25,8 +25,18 @@ , analyticsManageUsersReadOnlyScope , analyticsScope , analyticsReadOnlyScope + , analyticsUserDeletionScope , analyticsEditScope + -- * UserDeletionRequest + , UserDeletionRequest + , userDeletionRequest + , udrWebPropertyId + , udrKind + , udrId + , udrFirebaseProjectId + , udrDeletionRequestTime + -- * UnSampledReports , UnSampledReports , unSampledReports @@ -251,6 +261,14 @@ -- * DataGaGetSamplingLevel , DataGaGetSamplingLevel (..) + -- * HashClientIdResponse + , HashClientIdResponse + , hashClientIdResponse + , hcirClientId + , hcirWebPropertyId + , hcirKind + , hcirHashedClientId + -- * McfData , McfData , mcfData @@ -458,6 +476,7 @@ , cKind , cCreated , cUploadType + , cSchema , cImportBehavior , cSelfLink , cAccountId @@ -468,6 +487,17 @@ , cDescription , cProFilesLinked + -- * AccountTreeRequest + , AccountTreeRequest + , accountTreeRequest + , atrAccountSettings + , atrWebPropertyName + , atrKind + , atrAccountName + , atrProFileName + , atrWebsiteURL + , atrTimezone + -- * WebPropertyRef , WebPropertyRef , webPropertyRef @@ -641,6 +671,15 @@ , fadFieldBRequired , fadOverrideOutputField + -- * AccountTreeResponse + , AccountTreeResponse + , accountTreeResponse + , atrtAccountSettings + , atrtKind + , atrtProFile + , atrtAccount + , atrtWebProperty + -- * FilterUppercaseDetails , FilterUppercaseDetails , filterUppercaseDetails @@ -671,6 +710,13 @@ -- * DataGaGetOutput , DataGaGetOutput (..) + -- * HashClientIdRequest + , HashClientIdRequest + , hashClientIdRequest + , hClientId + , hWebPropertyId + , hKind + -- * RealtimeData , RealtimeData , realtimeData @@ -726,6 +772,8 @@ , wDefaultProFileId , wKind , wCreated + , wDataRetentionTtl + , wDataRetentionResetOnNewActivity , wSelfLink , wAccountId , wName @@ -769,6 +817,14 @@ , gedeciType , gedeciComparisonType + -- * AccountTreeRequestAccountSettings + , AccountTreeRequestAccountSettings + , accountTreeRequestAccountSettings + , atrasShareWithSpeciaLists + , atrasShareWithSupport + , atrasShareAnonymouslyWithOthers + , atrasShareWithGoogleProducts + -- * McfDataQuery , McfDataQuery , mcfDataQuery @@ -921,6 +977,14 @@ , rasbadExcludeConditions , rasbadIncludeConditions + -- * AccountTreeResponseAccountSettings + , AccountTreeResponseAccountSettings + , accountTreeResponseAccountSettings + , aShareWithSpeciaLists + , aShareWithSupport + , aShareAnonymouslyWithOthers + , aShareWithGoogleProducts + -- * GoalURLDestinationDetails , GoalURLDestinationDetails , goalURLDestinationDetails @@ -964,6 +1028,7 @@ , uuStatus , uuKind , uuCustomDataSourceId + , uuUploadTime , uuAccountId , uuId , uuErrors @@ -1061,6 +1126,12 @@ , mcfDataTotalsForAllResults , mdtfarAddtional + -- * UserDeletionRequestId + , UserDeletionRequestId + , userDeletionRequestId + , udriUserId + , udriType + -- * UnSampledReportCloudStorageDownloadDetails , UnSampledReportCloudStorageDownloadDetails , unSampledReportCloudStorageDownloadDetails @@ -1122,6 +1193,10 @@ -- | View your Google Analytics data analyticsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/analytics.readonly"] analyticsReadOnlyScope = Proxy; + +-- | Manage Google Analytics user deletion requests +analyticsUserDeletionScope :: Proxy '["https://www.googleapis.com/auth/analytics.user.deletion"] +analyticsUserDeletionScope = Proxy; -- | Edit Google Analytics management entities analyticsEditScope :: Proxy '["https://www.googleapis.com/auth/analytics.edit"] 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 @@ -20,6 +20,90 @@ import Network.Google.Analytics.Types.Sum import Network.Google.Prelude +-- | JSON template for a user deletion request resource. +-- +-- /See:/ 'userDeletionRequest' smart constructor. +data UserDeletionRequest = UserDeletionRequest' + { _udrWebPropertyId :: !(Maybe Text) + , _udrKind :: !Text + , _udrId :: !(Maybe UserDeletionRequestId) + , _udrFirebaseProjectId :: !(Maybe Text) + , _udrDeletionRequestTime :: !(Maybe DateTime') + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UserDeletionRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'udrWebPropertyId' +-- +-- * 'udrKind' +-- +-- * 'udrId' +-- +-- * 'udrFirebaseProjectId' +-- +-- * 'udrDeletionRequestTime' +userDeletionRequest + :: UserDeletionRequest +userDeletionRequest = + UserDeletionRequest' + { _udrWebPropertyId = Nothing + , _udrKind = "analytics#userDeletionRequest" + , _udrId = Nothing + , _udrFirebaseProjectId = Nothing + , _udrDeletionRequestTime = Nothing + } + +-- | Web property ID of the form UA-XXXXX-YY. +udrWebPropertyId :: Lens' UserDeletionRequest (Maybe Text) +udrWebPropertyId + = lens _udrWebPropertyId + (\ s a -> s{_udrWebPropertyId = a}) + +-- | Value is \"analytics#userDeletionRequest\". +udrKind :: Lens' UserDeletionRequest Text +udrKind = lens _udrKind (\ s a -> s{_udrKind = a}) + +-- | User ID. +udrId :: Lens' UserDeletionRequest (Maybe UserDeletionRequestId) +udrId = lens _udrId (\ s a -> s{_udrId = a}) + +-- | Firebase Project Id +udrFirebaseProjectId :: Lens' UserDeletionRequest (Maybe Text) +udrFirebaseProjectId + = lens _udrFirebaseProjectId + (\ s a -> s{_udrFirebaseProjectId = a}) + +-- | This marks the point in time for which all user data before should be +-- deleted +udrDeletionRequestTime :: Lens' UserDeletionRequest (Maybe UTCTime) +udrDeletionRequestTime + = lens _udrDeletionRequestTime + (\ s a -> s{_udrDeletionRequestTime = a}) + . mapping _DateTime + +instance FromJSON UserDeletionRequest where + parseJSON + = withObject "UserDeletionRequest" + (\ o -> + UserDeletionRequest' <$> + (o .:? "webPropertyId") <*> + (o .:? "kind" .!= "analytics#userDeletionRequest") + <*> (o .:? "id") + <*> (o .:? "firebaseProjectId") + <*> (o .:? "deletionRequestTime")) + +instance ToJSON UserDeletionRequest where + toJSON UserDeletionRequest'{..} + = object + (catMaybes + [("webPropertyId" .=) <$> _udrWebPropertyId, + Just ("kind" .= _udrKind), ("id" .=) <$> _udrId, + ("firebaseProjectId" .=) <$> _udrFirebaseProjectId, + ("deletionRequestTime" .=) <$> + _udrDeletionRequestTime]) + -- | An unsampled report collection lists Analytics unsampled reports to -- which the user has access. Each view (profile) can have a set of -- unsampled reports. Each resource in the unsampled report collection @@ -2185,6 +2269,72 @@ [("href" .=) <$> _wpclHref, Just ("type" .= _wpclType)]) +-- | JSON template for a hash Client Id response resource. +-- +-- /See:/ 'hashClientIdResponse' smart constructor. +data HashClientIdResponse = HashClientIdResponse' + { _hcirClientId :: !(Maybe Text) + , _hcirWebPropertyId :: !(Maybe Text) + , _hcirKind :: !Text + , _hcirHashedClientId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'HashClientIdResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hcirClientId' +-- +-- * 'hcirWebPropertyId' +-- +-- * 'hcirKind' +-- +-- * 'hcirHashedClientId' +hashClientIdResponse + :: HashClientIdResponse +hashClientIdResponse = + HashClientIdResponse' + { _hcirClientId = Nothing + , _hcirWebPropertyId = Nothing + , _hcirKind = "analytics#hashClientIdResponse" + , _hcirHashedClientId = Nothing + } + +hcirClientId :: Lens' HashClientIdResponse (Maybe Text) +hcirClientId + = lens _hcirClientId (\ s a -> s{_hcirClientId = a}) + +hcirWebPropertyId :: Lens' HashClientIdResponse (Maybe Text) +hcirWebPropertyId + = lens _hcirWebPropertyId + (\ s a -> s{_hcirWebPropertyId = a}) + +hcirKind :: Lens' HashClientIdResponse Text +hcirKind = lens _hcirKind (\ s a -> s{_hcirKind = a}) + +hcirHashedClientId :: Lens' HashClientIdResponse (Maybe Text) +hcirHashedClientId + = lens _hcirHashedClientId + (\ s a -> s{_hcirHashedClientId = a}) + +instance FromJSON HashClientIdResponse where + parseJSON + = withObject "HashClientIdResponse" + (\ o -> + HashClientIdResponse' <$> + (o .:? "clientId") <*> (o .:? "webPropertyId") <*> + (o .:? "kind" .!= "analytics#hashClientIdResponse") + <*> (o .:? "hashedClientId")) + +instance ToJSON HashClientIdResponse where + toJSON HashClientIdResponse'{..} + = object + (catMaybes + [("clientId" .=) <$> _hcirClientId, + ("webPropertyId" .=) <$> _hcirWebPropertyId, + Just ("kind" .= _hcirKind), + ("hashedClientId" .=) <$> _hcirHashedClientId]) + -- | Multi-Channel Funnels data for a given view (profile). -- -- /See:/ 'mcfData' smart constructor. @@ -4192,6 +4342,7 @@ , _cKind :: !Text , _cCreated :: !(Maybe DateTime') , _cUploadType :: !(Maybe Text) + , _cSchema :: !(Maybe [Text]) , _cImportBehavior :: !(Maybe Text) , _cSelfLink :: !(Maybe Text) , _cAccountId :: !(Maybe Text) @@ -4219,6 +4370,8 @@ -- -- * 'cUploadType' -- +-- * 'cSchema' +-- -- * 'cImportBehavior' -- -- * 'cSelfLink' @@ -4246,6 +4399,7 @@ , _cKind = "analytics#customDataSource" , _cCreated = Nothing , _cUploadType = Nothing + , _cSchema = Nothing , _cImportBehavior = Nothing , _cSelfLink = Nothing , _cAccountId = Nothing @@ -4284,10 +4438,17 @@ = lens _cCreated (\ s a -> s{_cCreated = a}) . mapping _DateTime +-- | Upload type of the custom data source. cUploadType :: Lens' CustomDataSource (Maybe Text) cUploadType = lens _cUploadType (\ s a -> s{_cUploadType = a}) +-- | Collection of schema headers of the custom data source. +cSchema :: Lens' CustomDataSource [Text] +cSchema + = lens _cSchema (\ s a -> s{_cSchema = a}) . _Default + . _Coerce + cImportBehavior :: Lens' CustomDataSource (Maybe Text) cImportBehavior = lens _cImportBehavior @@ -4344,6 +4505,7 @@ <*> (o .:? "kind" .!= "analytics#customDataSource") <*> (o .:? "created") <*> (o .:? "uploadType") + <*> (o .:? "schema" .!= mempty) <*> (o .:? "importBehavior") <*> (o .:? "selfLink") <*> (o .:? "accountId") @@ -4364,6 +4526,7 @@ Just ("kind" .= _cKind), ("created" .=) <$> _cCreated, ("uploadType" .=) <$> _cUploadType, + ("schema" .=) <$> _cSchema, ("importBehavior" .=) <$> _cImportBehavior, ("selfLink" .=) <$> _cSelfLink, ("accountId" .=) <$> _cAccountId, @@ -4372,6 +4535,110 @@ ("description" .=) <$> _cDescription, ("profilesLinked" .=) <$> _cProFilesLinked]) +-- | JSON template for an Analytics account tree requests. The account tree +-- request is used in the provisioning api to create an account, property, +-- and view (profile). It contains the basic information required to make +-- these fields. +-- +-- /See:/ 'accountTreeRequest' smart constructor. +data AccountTreeRequest = AccountTreeRequest' + { _atrAccountSettings :: !(Maybe AccountTreeRequestAccountSettings) + , _atrWebPropertyName :: !(Maybe Text) + , _atrKind :: !Text + , _atrAccountName :: !(Maybe Text) + , _atrProFileName :: !(Maybe Text) + , _atrWebsiteURL :: !(Maybe Text) + , _atrTimezone :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountTreeRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'atrAccountSettings' +-- +-- * 'atrWebPropertyName' +-- +-- * 'atrKind' +-- +-- * 'atrAccountName' +-- +-- * 'atrProFileName' +-- +-- * 'atrWebsiteURL' +-- +-- * 'atrTimezone' +accountTreeRequest + :: AccountTreeRequest +accountTreeRequest = + AccountTreeRequest' + { _atrAccountSettings = Nothing + , _atrWebPropertyName = Nothing + , _atrKind = "analytics#accountTreeRequest" + , _atrAccountName = Nothing + , _atrProFileName = Nothing + , _atrWebsiteURL = Nothing + , _atrTimezone = Nothing + } + +atrAccountSettings :: Lens' AccountTreeRequest (Maybe AccountTreeRequestAccountSettings) +atrAccountSettings + = lens _atrAccountSettings + (\ s a -> s{_atrAccountSettings = a}) + +atrWebPropertyName :: Lens' AccountTreeRequest (Maybe Text) +atrWebPropertyName + = lens _atrWebPropertyName + (\ s a -> s{_atrWebPropertyName = a}) + +-- | Resource type for account ticket. +atrKind :: Lens' AccountTreeRequest Text +atrKind = lens _atrKind (\ s a -> s{_atrKind = a}) + +atrAccountName :: Lens' AccountTreeRequest (Maybe Text) +atrAccountName + = lens _atrAccountName + (\ s a -> s{_atrAccountName = a}) + +atrProFileName :: Lens' AccountTreeRequest (Maybe Text) +atrProFileName + = lens _atrProFileName + (\ s a -> s{_atrProFileName = a}) + +atrWebsiteURL :: Lens' AccountTreeRequest (Maybe Text) +atrWebsiteURL + = lens _atrWebsiteURL + (\ s a -> s{_atrWebsiteURL = a}) + +atrTimezone :: Lens' AccountTreeRequest (Maybe Text) +atrTimezone + = lens _atrTimezone (\ s a -> s{_atrTimezone = a}) + +instance FromJSON AccountTreeRequest where + parseJSON + = withObject "AccountTreeRequest" + (\ o -> + AccountTreeRequest' <$> + (o .:? "accountSettings") <*> + (o .:? "webpropertyName") + <*> (o .:? "kind" .!= "analytics#accountTreeRequest") + <*> (o .:? "accountName") + <*> (o .:? "profileName") + <*> (o .:? "websiteUrl") + <*> (o .:? "timezone")) + +instance ToJSON AccountTreeRequest where + toJSON AccountTreeRequest'{..} + = object + (catMaybes + [("accountSettings" .=) <$> _atrAccountSettings, + ("webpropertyName" .=) <$> _atrWebPropertyName, + Just ("kind" .= _atrKind), + ("accountName" .=) <$> _atrAccountName, + ("profileName" .=) <$> _atrProFileName, + ("websiteUrl" .=) <$> _atrWebsiteURL, + ("timezone" .=) <$> _atrTimezone]) + -- | JSON template for a web property reference. -- -- /See:/ 'webPropertyRef' smart constructor. @@ -4567,7 +4834,8 @@ lfaId :: Lens' LinkedForeignAccount (Maybe Text) lfaId = lens _lfaId (\ s a -> s{_lfaId = a}) --- | The type of the foreign account. For example \`ADWORDS_LINKS\`. +-- | The type of the foreign account. For example, \`ADWORDS_LINKS\`, +-- \`DBM_LINKS\`, \`MCC_LINKS\` or \`OPTIMIZE\`. lfaType :: Lens' LinkedForeignAccount (Maybe Text) lfaType = lens _lfaType (\ s a -> s{_lfaType = a}) @@ -6162,6 +6430,89 @@ ("overrideOutputField" .=) <$> _fadOverrideOutputField]) +-- | JSON template for an Analytics account tree response. The account tree +-- response is used in the provisioning api to return the result of +-- creating an account, property, and view (profile). +-- +-- /See:/ 'accountTreeResponse' smart constructor. +data AccountTreeResponse = AccountTreeResponse' + { _atrtAccountSettings :: !(Maybe AccountTreeResponseAccountSettings) + , _atrtKind :: !Text + , _atrtProFile :: !(Maybe ProFile) + , _atrtAccount :: !(Maybe Account) + , _atrtWebProperty :: !(Maybe WebProperty) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountTreeResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'atrtAccountSettings' +-- +-- * 'atrtKind' +-- +-- * 'atrtProFile' +-- +-- * 'atrtAccount' +-- +-- * 'atrtWebProperty' +accountTreeResponse + :: AccountTreeResponse +accountTreeResponse = + AccountTreeResponse' + { _atrtAccountSettings = Nothing + , _atrtKind = "analytics#accountTreeResponse" + , _atrtProFile = Nothing + , _atrtAccount = Nothing + , _atrtWebProperty = Nothing + } + +atrtAccountSettings :: Lens' AccountTreeResponse (Maybe AccountTreeResponseAccountSettings) +atrtAccountSettings + = lens _atrtAccountSettings + (\ s a -> s{_atrtAccountSettings = a}) + +-- | Resource type for account ticket. +atrtKind :: Lens' AccountTreeResponse Text +atrtKind = lens _atrtKind (\ s a -> s{_atrtKind = a}) + +-- | View (Profile) for the account. +atrtProFile :: Lens' AccountTreeResponse (Maybe ProFile) +atrtProFile + = lens _atrtProFile (\ s a -> s{_atrtProFile = a}) + +-- | The account created. +atrtAccount :: Lens' AccountTreeResponse (Maybe Account) +atrtAccount + = lens _atrtAccount (\ s a -> s{_atrtAccount = a}) + +-- | Web property for the account. +atrtWebProperty :: Lens' AccountTreeResponse (Maybe WebProperty) +atrtWebProperty + = lens _atrtWebProperty + (\ s a -> s{_atrtWebProperty = a}) + +instance FromJSON AccountTreeResponse where + parseJSON + = withObject "AccountTreeResponse" + (\ o -> + AccountTreeResponse' <$> + (o .:? "accountSettings") <*> + (o .:? "kind" .!= "analytics#accountTreeResponse") + <*> (o .:? "profile") + <*> (o .:? "account") + <*> (o .:? "webproperty")) + +instance ToJSON AccountTreeResponse where + toJSON AccountTreeResponse'{..} + = object + (catMaybes + [("accountSettings" .=) <$> _atrtAccountSettings, + Just ("kind" .= _atrtKind), + ("profile" .=) <$> _atrtProFile, + ("account" .=) <$> _atrtAccount, + ("webproperty" .=) <$> _atrtWebProperty]) + -- | Details for the filter of the type UPPER. -- -- /See:/ 'filterUppercaseDetails' smart constructor. @@ -6397,6 +6748,61 @@ [("href" .=) <$> _fplHref, Just ("type" .= _fplType)]) +-- | JSON template for a hash Client Id request resource. +-- +-- /See:/ 'hashClientIdRequest' smart constructor. +data HashClientIdRequest = HashClientIdRequest' + { _hClientId :: !(Maybe Text) + , _hWebPropertyId :: !(Maybe Text) + , _hKind :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'HashClientIdRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hClientId' +-- +-- * 'hWebPropertyId' +-- +-- * 'hKind' +hashClientIdRequest + :: HashClientIdRequest +hashClientIdRequest = + HashClientIdRequest' + { _hClientId = Nothing + , _hWebPropertyId = Nothing + , _hKind = "analytics#hashClientIdRequest" + } + +hClientId :: Lens' HashClientIdRequest (Maybe Text) +hClientId + = lens _hClientId (\ s a -> s{_hClientId = a}) + +hWebPropertyId :: Lens' HashClientIdRequest (Maybe Text) +hWebPropertyId + = lens _hWebPropertyId + (\ s a -> s{_hWebPropertyId = a}) + +hKind :: Lens' HashClientIdRequest Text +hKind = lens _hKind (\ s a -> s{_hKind = a}) + +instance FromJSON HashClientIdRequest where + parseJSON + = withObject "HashClientIdRequest" + (\ o -> + HashClientIdRequest' <$> + (o .:? "clientId") <*> (o .:? "webPropertyId") <*> + (o .:? "kind" .!= "analytics#hashClientIdRequest")) + +instance ToJSON HashClientIdRequest where + toJSON HashClientIdRequest'{..} + = object + (catMaybes + [("clientId" .=) <$> _hClientId, + ("webPropertyId" .=) <$> _hWebPropertyId, + Just ("kind" .= _hKind)]) + -- | Real time data for a given view (profile). -- -- /See:/ 'realtimeData' smart constructor. @@ -6851,23 +7257,25 @@ -- -- /See:/ 'webProperty' smart constructor. data WebProperty = WebProperty' - { _wParentLink :: !(Maybe WebPropertyParentLink) - , _wChildLink :: !(Maybe WebPropertyChildLink) - , _wDefaultProFileId :: !(Maybe (Textual Int64)) - , _wKind :: !Text - , _wCreated :: !(Maybe DateTime') - , _wSelfLink :: !(Maybe Text) - , _wAccountId :: !(Maybe Text) - , _wName :: !(Maybe Text) - , _wStarred :: !(Maybe Bool) - , _wInternalWebPropertyId :: !(Maybe Text) - , _wId :: !(Maybe Text) - , _wUpdated :: !(Maybe DateTime') - , _wProFileCount :: !(Maybe (Textual Int32)) - , _wPermissions :: !(Maybe WebPropertyPermissions) - , _wWebsiteURL :: !(Maybe Text) - , _wIndustryVertical :: !(Maybe Text) - , _wLevel :: !(Maybe Text) + { _wParentLink :: !(Maybe WebPropertyParentLink) + , _wChildLink :: !(Maybe WebPropertyChildLink) + , _wDefaultProFileId :: !(Maybe (Textual Int64)) + , _wKind :: !Text + , _wCreated :: !(Maybe DateTime') + , _wDataRetentionTtl :: !(Maybe Text) + , _wDataRetentionResetOnNewActivity :: !(Maybe Bool) + , _wSelfLink :: !(Maybe Text) + , _wAccountId :: !(Maybe Text) + , _wName :: !(Maybe Text) + , _wStarred :: !(Maybe Bool) + , _wInternalWebPropertyId :: !(Maybe Text) + , _wId :: !(Maybe Text) + , _wUpdated :: !(Maybe DateTime') + , _wProFileCount :: !(Maybe (Textual Int32)) + , _wPermissions :: !(Maybe WebPropertyPermissions) + , _wWebsiteURL :: !(Maybe Text) + , _wIndustryVertical :: !(Maybe Text) + , _wLevel :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'WebProperty' with the minimum fields required to make a request. @@ -6884,6 +7292,10 @@ -- -- * 'wCreated' -- +-- * 'wDataRetentionTtl' +-- +-- * 'wDataRetentionResetOnNewActivity' +-- -- * 'wSelfLink' -- -- * 'wAccountId' @@ -6916,6 +7328,8 @@ , _wDefaultProFileId = Nothing , _wKind = "analytics#webproperty" , _wCreated = Nothing + , _wDataRetentionTtl = Nothing + , _wDataRetentionResetOnNewActivity = Nothing , _wSelfLink = Nothing , _wAccountId = Nothing , _wName = Nothing @@ -6959,6 +7373,23 @@ = lens _wCreated (\ s a -> s{_wCreated = a}) . mapping _DateTime +-- | The length of time for which user and event data is retained. This +-- property cannot be set on insert. +wDataRetentionTtl :: Lens' WebProperty (Maybe Text) +wDataRetentionTtl + = lens _wDataRetentionTtl + (\ s a -> s{_wDataRetentionTtl = a}) + +-- | Set to true to reset the retention period of the user identifier with +-- each new event from that user (thus setting the expiration date to +-- current time plus retention period). Set to false to delete data +-- associated with the user identifer automatically after the rentention +-- period. This property cannot be set on insert. +wDataRetentionResetOnNewActivity :: Lens' WebProperty (Maybe Bool) +wDataRetentionResetOnNewActivity + = lens _wDataRetentionResetOnNewActivity + (\ s a -> s{_wDataRetentionResetOnNewActivity = a}) + -- | Link for this web property. wSelfLink :: Lens' WebProperty (Maybe Text) wSelfLink @@ -7029,6 +7460,8 @@ (o .:? "defaultProfileId") <*> (o .:? "kind" .!= "analytics#webproperty") <*> (o .:? "created") + <*> (o .:? "dataRetentionTtl") + <*> (o .:? "dataRetentionResetOnNewActivity") <*> (o .:? "selfLink") <*> (o .:? "accountId") <*> (o .:? "name") @@ -7051,6 +7484,9 @@ ("defaultProfileId" .=) <$> _wDefaultProFileId, Just ("kind" .= _wKind), ("created" .=) <$> _wCreated, + ("dataRetentionTtl" .=) <$> _wDataRetentionTtl, + ("dataRetentionResetOnNewActivity" .=) <$> + _wDataRetentionResetOnNewActivity, ("selfLink" .=) <$> _wSelfLink, ("accountId" .=) <$> _wAccountId, ("name" .=) <$> _wName, ("starred" .=) <$> _wStarred, @@ -7334,6 +7770,80 @@ ("type" .=) <$> _gedeciType, ("comparisonType" .=) <$> _gedeciComparisonType]) +-- +-- /See:/ 'accountTreeRequestAccountSettings' smart constructor. +data AccountTreeRequestAccountSettings = AccountTreeRequestAccountSettings' + { _atrasShareWithSpeciaLists :: !(Maybe Bool) + , _atrasShareWithSupport :: !(Maybe Bool) + , _atrasShareAnonymouslyWithOthers :: !(Maybe Bool) + , _atrasShareWithGoogleProducts :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountTreeRequestAccountSettings' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'atrasShareWithSpeciaLists' +-- +-- * 'atrasShareWithSupport' +-- +-- * 'atrasShareAnonymouslyWithOthers' +-- +-- * 'atrasShareWithGoogleProducts' +accountTreeRequestAccountSettings + :: AccountTreeRequestAccountSettings +accountTreeRequestAccountSettings = + AccountTreeRequestAccountSettings' + { _atrasShareWithSpeciaLists = Nothing + , _atrasShareWithSupport = Nothing + , _atrasShareAnonymouslyWithOthers = Nothing + , _atrasShareWithGoogleProducts = Nothing + } + +atrasShareWithSpeciaLists :: Lens' AccountTreeRequestAccountSettings (Maybe Bool) +atrasShareWithSpeciaLists + = lens _atrasShareWithSpeciaLists + (\ s a -> s{_atrasShareWithSpeciaLists = a}) + +atrasShareWithSupport :: Lens' AccountTreeRequestAccountSettings (Maybe Bool) +atrasShareWithSupport + = lens _atrasShareWithSupport + (\ s a -> s{_atrasShareWithSupport = a}) + +atrasShareAnonymouslyWithOthers :: Lens' AccountTreeRequestAccountSettings (Maybe Bool) +atrasShareAnonymouslyWithOthers + = lens _atrasShareAnonymouslyWithOthers + (\ s a -> s{_atrasShareAnonymouslyWithOthers = a}) + +atrasShareWithGoogleProducts :: Lens' AccountTreeRequestAccountSettings (Maybe Bool) +atrasShareWithGoogleProducts + = lens _atrasShareWithGoogleProducts + (\ s a -> s{_atrasShareWithGoogleProducts = a}) + +instance FromJSON AccountTreeRequestAccountSettings + where + parseJSON + = withObject "AccountTreeRequestAccountSettings" + (\ o -> + AccountTreeRequestAccountSettings' <$> + (o .:? "shareWithSpecialists") <*> + (o .:? "shareWithSupport") + <*> (o .:? "shareAnonymouslyWithOthers") + <*> (o .:? "shareWithGoogleProducts")) + +instance ToJSON AccountTreeRequestAccountSettings + where + toJSON AccountTreeRequestAccountSettings'{..} + = object + (catMaybes + [("shareWithSpecialists" .=) <$> + _atrasShareWithSpeciaLists, + ("shareWithSupport" .=) <$> _atrasShareWithSupport, + ("shareAnonymouslyWithOthers" .=) <$> + _atrasShareAnonymouslyWithOthers, + ("shareWithGoogleProducts" .=) <$> + _atrasShareWithGoogleProducts]) + -- | Analytics data request query parameters. -- -- /See:/ 'mcfDataQuery' smart constructor. @@ -8841,6 +9351,80 @@ ("includeConditions" .=) <$> _rasbadIncludeConditions]) +-- +-- /See:/ 'accountTreeResponseAccountSettings' smart constructor. +data AccountTreeResponseAccountSettings = AccountTreeResponseAccountSettings' + { _aShareWithSpeciaLists :: !(Maybe Bool) + , _aShareWithSupport :: !(Maybe Bool) + , _aShareAnonymouslyWithOthers :: !(Maybe Bool) + , _aShareWithGoogleProducts :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountTreeResponseAccountSettings' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aShareWithSpeciaLists' +-- +-- * 'aShareWithSupport' +-- +-- * 'aShareAnonymouslyWithOthers' +-- +-- * 'aShareWithGoogleProducts' +accountTreeResponseAccountSettings + :: AccountTreeResponseAccountSettings +accountTreeResponseAccountSettings = + AccountTreeResponseAccountSettings' + { _aShareWithSpeciaLists = Nothing + , _aShareWithSupport = Nothing + , _aShareAnonymouslyWithOthers = Nothing + , _aShareWithGoogleProducts = Nothing + } + +aShareWithSpeciaLists :: Lens' AccountTreeResponseAccountSettings (Maybe Bool) +aShareWithSpeciaLists + = lens _aShareWithSpeciaLists + (\ s a -> s{_aShareWithSpeciaLists = a}) + +aShareWithSupport :: Lens' AccountTreeResponseAccountSettings (Maybe Bool) +aShareWithSupport + = lens _aShareWithSupport + (\ s a -> s{_aShareWithSupport = a}) + +aShareAnonymouslyWithOthers :: Lens' AccountTreeResponseAccountSettings (Maybe Bool) +aShareAnonymouslyWithOthers + = lens _aShareAnonymouslyWithOthers + (\ s a -> s{_aShareAnonymouslyWithOthers = a}) + +aShareWithGoogleProducts :: Lens' AccountTreeResponseAccountSettings (Maybe Bool) +aShareWithGoogleProducts + = lens _aShareWithGoogleProducts + (\ s a -> s{_aShareWithGoogleProducts = a}) + +instance FromJSON AccountTreeResponseAccountSettings + where + parseJSON + = withObject "AccountTreeResponseAccountSettings" + (\ o -> + AccountTreeResponseAccountSettings' <$> + (o .:? "shareWithSpecialists") <*> + (o .:? "shareWithSupport") + <*> (o .:? "shareAnonymouslyWithOthers") + <*> (o .:? "shareWithGoogleProducts")) + +instance ToJSON AccountTreeResponseAccountSettings + where + toJSON AccountTreeResponseAccountSettings'{..} + = object + (catMaybes + [("shareWithSpecialists" .=) <$> + _aShareWithSpeciaLists, + ("shareWithSupport" .=) <$> _aShareWithSupport, + ("shareAnonymouslyWithOthers" .=) <$> + _aShareAnonymouslyWithOthers, + ("shareWithGoogleProducts" .=) <$> + _aShareWithGoogleProducts]) + -- | Details for the goal of the type URL_DESTINATION. -- -- /See:/ 'goalURLDestinationDetails' smart constructor. @@ -9206,6 +9790,7 @@ { _uuStatus :: !(Maybe Text) , _uuKind :: !Text , _uuCustomDataSourceId :: !(Maybe Text) + , _uuUploadTime :: !(Maybe DateTime') , _uuAccountId :: !(Maybe (Textual Int64)) , _uuId :: !(Maybe Text) , _uuErrors :: !(Maybe [Text]) @@ -9221,6 +9806,8 @@ -- -- * 'uuCustomDataSourceId' -- +-- * 'uuUploadTime' +-- -- * 'uuAccountId' -- -- * 'uuId' @@ -9233,6 +9820,7 @@ { _uuStatus = Nothing , _uuKind = "analytics#upload" , _uuCustomDataSourceId = Nothing + , _uuUploadTime = Nothing , _uuAccountId = Nothing , _uuId = Nothing , _uuErrors = Nothing @@ -9253,6 +9841,12 @@ = lens _uuCustomDataSourceId (\ s a -> s{_uuCustomDataSourceId = a}) +-- | Time this file is uploaded. +uuUploadTime :: Lens' Upload (Maybe UTCTime) +uuUploadTime + = lens _uuUploadTime (\ s a -> s{_uuUploadTime = a}) + . mapping _DateTime + -- | Account Id to which this upload belongs. uuAccountId :: Lens' Upload (Maybe Int64) uuAccountId @@ -9278,6 +9872,7 @@ (o .:? "status") <*> (o .:? "kind" .!= "analytics#upload") <*> (o .:? "customDataSourceId") + <*> (o .:? "uploadTime") <*> (o .:? "accountId") <*> (o .:? "id") <*> (o .:? "errors" .!= mempty)) @@ -9289,6 +9884,7 @@ [("status" .=) <$> _uuStatus, Just ("kind" .= _uuKind), ("customDataSourceId" .=) <$> _uuCustomDataSourceId, + ("uploadTime" .=) <$> _uuUploadTime, ("accountId" .=) <$> _uuAccountId, ("id" .=) <$> _uuId, ("errors" .=) <$> _uuErrors]) @@ -10099,6 +10695,52 @@ instance ToJSON McfDataTotalsForAllResults where toJSON = toJSON . _mdtfarAddtional + +-- | User ID. +-- +-- /See:/ 'userDeletionRequestId' smart constructor. +data UserDeletionRequestId = UserDeletionRequestId' + { _udriUserId :: !(Maybe Text) + , _udriType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UserDeletionRequestId' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'udriUserId' +-- +-- * 'udriType' +userDeletionRequestId + :: UserDeletionRequestId +userDeletionRequestId = + UserDeletionRequestId' + { _udriUserId = Nothing + , _udriType = Nothing + } + +-- | The User\'s id +udriUserId :: Lens' UserDeletionRequestId (Maybe Text) +udriUserId + = lens _udriUserId (\ s a -> s{_udriUserId = a}) + +-- | Type of user +udriType :: Lens' UserDeletionRequestId (Maybe Text) +udriType = lens _udriType (\ s a -> s{_udriType = a}) + +instance FromJSON UserDeletionRequestId where + parseJSON + = withObject "UserDeletionRequestId" + (\ o -> + UserDeletionRequestId' <$> + (o .:? "userId") <*> (o .:? "type")) + +instance ToJSON UserDeletionRequestId where + toJSON UserDeletionRequestId'{..} + = object + (catMaybes + [("userId" .=) <$> _udriUserId, + ("type" .=) <$> _udriType]) -- | Download details for a file stored in Google Cloud Storage. -- 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 @@ -16,7 +16,7 @@ -- module Network.Google.Analytics.Types.Sum where -import Network.Google.Prelude +import Network.Google.Prelude hiding (Bytes) -- | The desired sampling level. data DataGaGetSamplingLevel diff --git a/gen/Network/Google/Resource/Analytics/Management/ClientId/HashClientId.hs b/gen/Network/Google/Resource/Analytics/Management/ClientId/HashClientId.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Analytics/Management/ClientId/HashClientId.hs @@ -0,0 +1,92 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Analytics.Management.ClientId.HashClientId +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Hashes the given Client ID. +-- +-- /See:/ for @analytics.management.clientId.hashClientId@. +module Network.Google.Resource.Analytics.Management.ClientId.HashClientId + ( + -- * REST Resource + ManagementClientIdHashClientIdResource + + -- * Creating a Request + , managementClientIdHashClientId + , ManagementClientIdHashClientId + + -- * Request Lenses + , mcihciPayload + ) where + +import Network.Google.Analytics.Types +import Network.Google.Prelude + +-- | A resource alias for @analytics.management.clientId.hashClientId@ method which the +-- 'ManagementClientIdHashClientId' request conforms to. +type ManagementClientIdHashClientIdResource = + "analytics" :> + "v3" :> + "management" :> + "clientId:hashClientId" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] HashClientIdRequest :> + Post '[JSON] HashClientIdResponse + +-- | Hashes the given Client ID. +-- +-- /See:/ 'managementClientIdHashClientId' smart constructor. +newtype ManagementClientIdHashClientId = ManagementClientIdHashClientId' + { _mcihciPayload :: HashClientIdRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ManagementClientIdHashClientId' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mcihciPayload' +managementClientIdHashClientId + :: HashClientIdRequest -- ^ 'mcihciPayload' + -> ManagementClientIdHashClientId +managementClientIdHashClientId pMcihciPayload_ = + ManagementClientIdHashClientId' + { _mcihciPayload = pMcihciPayload_ + } + +-- | Multipart request metadata. +mcihciPayload :: Lens' ManagementClientIdHashClientId HashClientIdRequest +mcihciPayload + = lens _mcihciPayload + (\ s a -> s{_mcihciPayload = a}) + +instance GoogleRequest ManagementClientIdHashClientId + where + type Rs ManagementClientIdHashClientId = + HashClientIdResponse + type Scopes ManagementClientIdHashClientId = + '["https://www.googleapis.com/auth/analytics.edit", + "https://www.googleapis.com/auth/analytics.readonly"] + requestClient ManagementClientIdHashClientId'{..} + = go (Just AltJSON) _mcihciPayload analyticsService + where go + = buildClient + (Proxy :: + Proxy ManagementClientIdHashClientIdResource) + mempty diff --git a/gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Delete.hs b/gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Delete.hs @@ -0,0 +1,121 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Delete a remarketing audience. +-- +-- /See:/ for @analytics.management.remarketingAudience.delete@. +module Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete + ( + -- * REST Resource + ManagementRemarketingAudienceDeleteResource + + -- * Creating a Request + , managementRemarketingAudienceDelete + , ManagementRemarketingAudienceDelete + + -- * Request Lenses + , mradWebPropertyId + , mradAccountId + , mradRemarketingAudienceId + ) where + +import Network.Google.Analytics.Types +import Network.Google.Prelude + +-- | A resource alias for @analytics.management.remarketingAudience.delete@ method which the +-- 'ManagementRemarketingAudienceDelete' request conforms to. +type ManagementRemarketingAudienceDeleteResource = + "analytics" :> + "v3" :> + "management" :> + "accounts" :> + Capture "accountId" Text :> + "webproperties" :> + Capture "webPropertyId" Text :> + "remarketingAudiences" :> + Capture "remarketingAudienceId" Text :> + QueryParam "alt" AltJSON :> Delete '[JSON] () + +-- | Delete a remarketing audience. +-- +-- /See:/ 'managementRemarketingAudienceDelete' smart constructor. +data ManagementRemarketingAudienceDelete = ManagementRemarketingAudienceDelete' + { _mradWebPropertyId :: !Text + , _mradAccountId :: !Text + , _mradRemarketingAudienceId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ManagementRemarketingAudienceDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mradWebPropertyId' +-- +-- * 'mradAccountId' +-- +-- * 'mradRemarketingAudienceId' +managementRemarketingAudienceDelete + :: Text -- ^ 'mradWebPropertyId' + -> Text -- ^ 'mradAccountId' + -> Text -- ^ 'mradRemarketingAudienceId' + -> ManagementRemarketingAudienceDelete +managementRemarketingAudienceDelete pMradWebPropertyId_ pMradAccountId_ pMradRemarketingAudienceId_ = + ManagementRemarketingAudienceDelete' + { _mradWebPropertyId = pMradWebPropertyId_ + , _mradAccountId = pMradAccountId_ + , _mradRemarketingAudienceId = pMradRemarketingAudienceId_ + } + +-- | Web property ID to which the remarketing audience belongs. +mradWebPropertyId :: Lens' ManagementRemarketingAudienceDelete Text +mradWebPropertyId + = lens _mradWebPropertyId + (\ s a -> s{_mradWebPropertyId = a}) + +-- | Account ID to which the remarketing audience belongs. +mradAccountId :: Lens' ManagementRemarketingAudienceDelete Text +mradAccountId + = lens _mradAccountId + (\ s a -> s{_mradAccountId = a}) + +-- | The ID of the remarketing audience to delete. +mradRemarketingAudienceId :: Lens' ManagementRemarketingAudienceDelete Text +mradRemarketingAudienceId + = lens _mradRemarketingAudienceId + (\ s a -> s{_mradRemarketingAudienceId = a}) + +instance GoogleRequest + ManagementRemarketingAudienceDelete where + type Rs ManagementRemarketingAudienceDelete = () + type Scopes ManagementRemarketingAudienceDelete = + '["https://www.googleapis.com/auth/analytics.edit"] + requestClient + ManagementRemarketingAudienceDelete'{..} + = go _mradAccountId _mradWebPropertyId + _mradRemarketingAudienceId + (Just AltJSON) + analyticsService + where go + = buildClient + (Proxy :: + Proxy ManagementRemarketingAudienceDeleteResource) + mempty 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 @@ -33,7 +33,7 @@ , ProvisioningCreateAccountTicket -- * Request Lenses - , pcatPayload + , pPayload ) where import Network.Google.Analytics.Types @@ -54,26 +54,25 @@ -- -- /See:/ 'provisioningCreateAccountTicket' smart constructor. newtype ProvisioningCreateAccountTicket = ProvisioningCreateAccountTicket' - { _pcatPayload :: AccountTicket + { _pPayload :: AccountTicket } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ProvisioningCreateAccountTicket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'pcatPayload' +-- * 'pPayload' provisioningCreateAccountTicket - :: AccountTicket -- ^ 'pcatPayload' + :: AccountTicket -- ^ 'pPayload' -> ProvisioningCreateAccountTicket -provisioningCreateAccountTicket pPcatPayload_ = +provisioningCreateAccountTicket pPPayload_ = ProvisioningCreateAccountTicket' - { _pcatPayload = pPcatPayload_ + { _pPayload = pPPayload_ } -- | Multipart request metadata. -pcatPayload :: Lens' ProvisioningCreateAccountTicket AccountTicket -pcatPayload - = lens _pcatPayload (\ s a -> s{_pcatPayload = a}) +pPayload :: Lens' ProvisioningCreateAccountTicket AccountTicket +pPayload = lens _pPayload (\ s a -> s{_pPayload = a}) instance GoogleRequest ProvisioningCreateAccountTicket where @@ -82,7 +81,7 @@ type Scopes ProvisioningCreateAccountTicket = '["https://www.googleapis.com/auth/analytics.provision"] requestClient ProvisioningCreateAccountTicket'{..} - = go (Just AltJSON) _pcatPayload analyticsService + = go (Just AltJSON) _pPayload analyticsService where go = buildClient (Proxy :: diff --git a/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTree.hs b/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTree.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTree.hs @@ -0,0 +1,90 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Analytics.Provisioning.CreateAccountTree +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Provision account. +-- +-- /See:/ for @analytics.provisioning.createAccountTree@. +module Network.Google.Resource.Analytics.Provisioning.CreateAccountTree + ( + -- * REST Resource + ProvisioningCreateAccountTreeResource + + -- * Creating a Request + , provisioningCreateAccountTree + , ProvisioningCreateAccountTree + + -- * Request Lenses + , pcatPayload + ) where + +import Network.Google.Analytics.Types +import Network.Google.Prelude + +-- | A resource alias for @analytics.provisioning.createAccountTree@ method which the +-- 'ProvisioningCreateAccountTree' request conforms to. +type ProvisioningCreateAccountTreeResource = + "analytics" :> + "v3" :> + "provisioning" :> + "createAccountTree" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] AccountTreeRequest :> + Post '[JSON] AccountTreeResponse + +-- | Provision account. +-- +-- /See:/ 'provisioningCreateAccountTree' smart constructor. +newtype ProvisioningCreateAccountTree = ProvisioningCreateAccountTree' + { _pcatPayload :: AccountTreeRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProvisioningCreateAccountTree' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcatPayload' +provisioningCreateAccountTree + :: AccountTreeRequest -- ^ 'pcatPayload' + -> ProvisioningCreateAccountTree +provisioningCreateAccountTree pPcatPayload_ = + ProvisioningCreateAccountTree' + { _pcatPayload = pPcatPayload_ + } + +-- | Multipart request metadata. +pcatPayload :: Lens' ProvisioningCreateAccountTree AccountTreeRequest +pcatPayload + = lens _pcatPayload (\ s a -> s{_pcatPayload = a}) + +instance GoogleRequest ProvisioningCreateAccountTree + where + type Rs ProvisioningCreateAccountTree = + AccountTreeResponse + type Scopes ProvisioningCreateAccountTree = + '["https://www.googleapis.com/auth/analytics.provision"] + requestClient ProvisioningCreateAccountTree'{..} + = go (Just AltJSON) _pcatPayload analyticsService + where go + = buildClient + (Proxy :: + Proxy ProvisioningCreateAccountTreeResource) + mempty diff --git a/gen/Network/Google/Resource/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs b/gen/Network/Google/Resource/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs @@ -0,0 +1,92 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Insert or update a user deletion requests. +-- +-- /See:/ for @analytics.userDeletion.userDeletionRequest.upsert@. +module Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert + ( + -- * REST Resource + UserDeletionUserDeletionRequestUpsertResource + + -- * Creating a Request + , userDeletionUserDeletionRequestUpsert + , UserDeletionUserDeletionRequestUpsert + + -- * Request Lenses + , ududruPayload + ) where + +import Network.Google.Analytics.Types +import Network.Google.Prelude + +-- | A resource alias for @analytics.userDeletion.userDeletionRequest.upsert@ method which the +-- 'UserDeletionUserDeletionRequestUpsert' request conforms to. +type UserDeletionUserDeletionRequestUpsertResource = + "analytics" :> + "v3" :> + "userDeletion" :> + "userDeletionRequests:upsert" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] UserDeletionRequest :> + Post '[JSON] UserDeletionRequest + +-- | Insert or update a user deletion requests. +-- +-- /See:/ 'userDeletionUserDeletionRequestUpsert' smart constructor. +newtype UserDeletionUserDeletionRequestUpsert = UserDeletionUserDeletionRequestUpsert' + { _ududruPayload :: UserDeletionRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UserDeletionUserDeletionRequestUpsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ududruPayload' +userDeletionUserDeletionRequestUpsert + :: UserDeletionRequest -- ^ 'ududruPayload' + -> UserDeletionUserDeletionRequestUpsert +userDeletionUserDeletionRequestUpsert pUdudruPayload_ = + UserDeletionUserDeletionRequestUpsert' + { _ududruPayload = pUdudruPayload_ + } + +-- | Multipart request metadata. +ududruPayload :: Lens' UserDeletionUserDeletionRequestUpsert UserDeletionRequest +ududruPayload + = lens _ududruPayload + (\ s a -> s{_ududruPayload = a}) + +instance GoogleRequest + UserDeletionUserDeletionRequestUpsert where + type Rs UserDeletionUserDeletionRequestUpsert = + UserDeletionRequest + type Scopes UserDeletionUserDeletionRequestUpsert = + '["https://www.googleapis.com/auth/analytics.user.deletion"] + requestClient + UserDeletionUserDeletionRequestUpsert'{..} + = go (Just AltJSON) _ududruPayload analyticsService + where go + = buildClient + (Proxy :: + Proxy UserDeletionUserDeletionRequestUpsertResource) + mempty 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.3.0 +version: 0.4.0 synopsis: Google Analytics SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -44,6 +44,7 @@ , Network.Google.Resource.Analytics.Management.AccountUserLinks.List , Network.Google.Resource.Analytics.Management.AccountUserLinks.Update , Network.Google.Resource.Analytics.Management.Accounts.List + , Network.Google.Resource.Analytics.Management.ClientId.HashClientId , Network.Google.Resource.Analytics.Management.CustomDataSources.List , Network.Google.Resource.Analytics.Management.CustomDimensions.Get , Network.Google.Resource.Analytics.Management.CustomDimensions.Insert @@ -88,6 +89,7 @@ , Network.Google.Resource.Analytics.Management.ProFiles.List , Network.Google.Resource.Analytics.Management.ProFiles.Patch , Network.Google.Resource.Analytics.Management.ProFiles.Update + , Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete , Network.Google.Resource.Analytics.Management.RemarketingAudience.Get , Network.Google.Resource.Analytics.Management.RemarketingAudience.Insert , Network.Google.Resource.Analytics.Management.RemarketingAudience.List @@ -119,11 +121,13 @@ , Network.Google.Resource.Analytics.Management.WebPropertyUserLinks.Update , Network.Google.Resource.Analytics.Metadata.Columns.List , Network.Google.Resource.Analytics.Provisioning.CreateAccountTicket + , Network.Google.Resource.Analytics.Provisioning.CreateAccountTree + , Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert other-modules: Network.Google.Analytics.Types.Product , Network.Google.Analytics.Types.Sum build-depends: - gogol-core == 0.3.0.* + gogol-core == 0.4.0.* , base >= 4.7 && < 5