gogol-analytics 0.3.0 → 0.4.0

raw patch · 10 files changed

+1240/−33 lines, 10 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/Analytics.hs +94/−2
• gen/Network/Google/Analytics/Types.hs +75/−0
• gen/Network/Google/Analytics/Types/Product.hs +660/−18
• gen/Network/Google/Analytics/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/Analytics/Management/ClientId/HashClientId.hs +92/−0
• gen/Network/Google/Resource/Analytics/Management/RemarketingAudience/Delete.hs +121/−0
• gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs +9/−10
• gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTree.hs +90/−0
• gen/Network/Google/Resource/Analytics/UserDeletion/UserDeletionRequest/Upsert.hs +92/−0
• gogol-analytics.cabal +6/−2

@@ -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

@@ -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"]

@@ -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. --

@@ -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

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Hashes the given Client ID.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.clientId.hashClientId@.+module Network.Google.Resource.Analytics.Management.ClientId.HashClientId+    (+    -- * REST Resource+      ManagementClientIdHashClientIdResource++    -- * Creating a Request+    , managementClientIdHashClientId+    , ManagementClientIdHashClientId++    -- * Request Lenses+    , mcihciPayload+    ) where++import           Network.Google.Analytics.Types+import           Network.Google.Prelude++-- | A resource alias for @analytics.management.clientId.hashClientId@ method which the+-- 'ManagementClientIdHashClientId' request conforms to.+type ManagementClientIdHashClientIdResource =+     "analytics" :>+       "v3" :>+         "management" :>+           "clientId:hashClientId" :>+             QueryParam "alt" AltJSON :>+               ReqBody '[JSON] HashClientIdRequest :>+                 Post '[JSON] HashClientIdResponse++-- | Hashes the given Client ID.+--+-- /See:/ 'managementClientIdHashClientId' smart constructor.+newtype ManagementClientIdHashClientId = ManagementClientIdHashClientId'+    { _mcihciPayload :: HashClientIdRequest+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ManagementClientIdHashClientId' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mcihciPayload'+managementClientIdHashClientId+    :: HashClientIdRequest -- ^ 'mcihciPayload'+    -> ManagementClientIdHashClientId+managementClientIdHashClientId pMcihciPayload_ =+    ManagementClientIdHashClientId'+    { _mcihciPayload = pMcihciPayload_+    }++-- | Multipart request metadata.+mcihciPayload :: Lens' ManagementClientIdHashClientId HashClientIdRequest+mcihciPayload+  = lens _mcihciPayload+      (\ s a -> s{_mcihciPayload = a})++instance GoogleRequest ManagementClientIdHashClientId+         where+        type Rs ManagementClientIdHashClientId =+             HashClientIdResponse+        type Scopes ManagementClientIdHashClientId =+             '["https://www.googleapis.com/auth/analytics.edit",+               "https://www.googleapis.com/auth/analytics.readonly"]+        requestClient ManagementClientIdHashClientId'{..}+          = go (Just AltJSON) _mcihciPayload analyticsService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ManagementClientIdHashClientIdResource)+                      mempty

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete a remarketing audience.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.management.remarketingAudience.delete@.+module Network.Google.Resource.Analytics.Management.RemarketingAudience.Delete+    (+    -- * REST Resource+      ManagementRemarketingAudienceDeleteResource++    -- * Creating a Request+    , managementRemarketingAudienceDelete+    , ManagementRemarketingAudienceDelete++    -- * Request Lenses+    , mradWebPropertyId+    , mradAccountId+    , mradRemarketingAudienceId+    ) where++import           Network.Google.Analytics.Types+import           Network.Google.Prelude++-- | A resource alias for @analytics.management.remarketingAudience.delete@ method which the+-- 'ManagementRemarketingAudienceDelete' request conforms to.+type ManagementRemarketingAudienceDeleteResource =+     "analytics" :>+       "v3" :>+         "management" :>+           "accounts" :>+             Capture "accountId" Text :>+               "webproperties" :>+                 Capture "webPropertyId" Text :>+                   "remarketingAudiences" :>+                     Capture "remarketingAudienceId" Text :>+                       QueryParam "alt" AltJSON :> Delete '[JSON] ()++-- | Delete a remarketing audience.+--+-- /See:/ 'managementRemarketingAudienceDelete' smart constructor.+data ManagementRemarketingAudienceDelete = ManagementRemarketingAudienceDelete'+    { _mradWebPropertyId         :: !Text+    , _mradAccountId             :: !Text+    , _mradRemarketingAudienceId :: !Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ManagementRemarketingAudienceDelete' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mradWebPropertyId'+--+-- * 'mradAccountId'+--+-- * 'mradRemarketingAudienceId'+managementRemarketingAudienceDelete+    :: Text -- ^ 'mradWebPropertyId'+    -> Text -- ^ 'mradAccountId'+    -> Text -- ^ 'mradRemarketingAudienceId'+    -> ManagementRemarketingAudienceDelete+managementRemarketingAudienceDelete pMradWebPropertyId_ pMradAccountId_ pMradRemarketingAudienceId_ =+    ManagementRemarketingAudienceDelete'+    { _mradWebPropertyId = pMradWebPropertyId_+    , _mradAccountId = pMradAccountId_+    , _mradRemarketingAudienceId = pMradRemarketingAudienceId_+    }++-- | Web property ID to which the remarketing audience belongs.+mradWebPropertyId :: Lens' ManagementRemarketingAudienceDelete Text+mradWebPropertyId+  = lens _mradWebPropertyId+      (\ s a -> s{_mradWebPropertyId = a})++-- | Account ID to which the remarketing audience belongs.+mradAccountId :: Lens' ManagementRemarketingAudienceDelete Text+mradAccountId+  = lens _mradAccountId+      (\ s a -> s{_mradAccountId = a})++-- | The ID of the remarketing audience to delete.+mradRemarketingAudienceId :: Lens' ManagementRemarketingAudienceDelete Text+mradRemarketingAudienceId+  = lens _mradRemarketingAudienceId+      (\ s a -> s{_mradRemarketingAudienceId = a})++instance GoogleRequest+         ManagementRemarketingAudienceDelete where+        type Rs ManagementRemarketingAudienceDelete = ()+        type Scopes ManagementRemarketingAudienceDelete =+             '["https://www.googleapis.com/auth/analytics.edit"]+        requestClient+          ManagementRemarketingAudienceDelete'{..}+          = go _mradAccountId _mradWebPropertyId+              _mradRemarketingAudienceId+              (Just AltJSON)+              analyticsService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ManagementRemarketingAudienceDeleteResource)+                      mempty

@@ -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 ::

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provision account.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.provisioning.createAccountTree@.+module Network.Google.Resource.Analytics.Provisioning.CreateAccountTree+    (+    -- * REST Resource+      ProvisioningCreateAccountTreeResource++    -- * Creating a Request+    , provisioningCreateAccountTree+    , ProvisioningCreateAccountTree++    -- * Request Lenses+    , pcatPayload+    ) where++import           Network.Google.Analytics.Types+import           Network.Google.Prelude++-- | A resource alias for @analytics.provisioning.createAccountTree@ method which the+-- 'ProvisioningCreateAccountTree' request conforms to.+type ProvisioningCreateAccountTreeResource =+     "analytics" :>+       "v3" :>+         "provisioning" :>+           "createAccountTree" :>+             QueryParam "alt" AltJSON :>+               ReqBody '[JSON] AccountTreeRequest :>+                 Post '[JSON] AccountTreeResponse++-- | Provision account.+--+-- /See:/ 'provisioningCreateAccountTree' smart constructor.+newtype ProvisioningCreateAccountTree = ProvisioningCreateAccountTree'+    { _pcatPayload :: AccountTreeRequest+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ProvisioningCreateAccountTree' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcatPayload'+provisioningCreateAccountTree+    :: AccountTreeRequest -- ^ 'pcatPayload'+    -> ProvisioningCreateAccountTree+provisioningCreateAccountTree pPcatPayload_ =+    ProvisioningCreateAccountTree'+    { _pcatPayload = pPcatPayload_+    }++-- | Multipart request metadata.+pcatPayload :: Lens' ProvisioningCreateAccountTree AccountTreeRequest+pcatPayload+  = lens _pcatPayload (\ s a -> s{_pcatPayload = a})++instance GoogleRequest ProvisioningCreateAccountTree+         where+        type Rs ProvisioningCreateAccountTree =+             AccountTreeResponse+        type Scopes ProvisioningCreateAccountTree =+             '["https://www.googleapis.com/auth/analytics.provision"]+        requestClient ProvisioningCreateAccountTree'{..}+          = go (Just AltJSON) _pcatPayload analyticsService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy ProvisioningCreateAccountTreeResource)+                      mempty

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Insert or update a user deletion requests.+--+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @analytics.userDeletion.userDeletionRequest.upsert@.+module Network.Google.Resource.Analytics.UserDeletion.UserDeletionRequest.Upsert+    (+    -- * REST Resource+      UserDeletionUserDeletionRequestUpsertResource++    -- * Creating a Request+    , userDeletionUserDeletionRequestUpsert+    , UserDeletionUserDeletionRequestUpsert++    -- * Request Lenses+    , ududruPayload+    ) where++import           Network.Google.Analytics.Types+import           Network.Google.Prelude++-- | A resource alias for @analytics.userDeletion.userDeletionRequest.upsert@ method which the+-- 'UserDeletionUserDeletionRequestUpsert' request conforms to.+type UserDeletionUserDeletionRequestUpsertResource =+     "analytics" :>+       "v3" :>+         "userDeletion" :>+           "userDeletionRequests:upsert" :>+             QueryParam "alt" AltJSON :>+               ReqBody '[JSON] UserDeletionRequest :>+                 Post '[JSON] UserDeletionRequest++-- | Insert or update a user deletion requests.+--+-- /See:/ 'userDeletionUserDeletionRequestUpsert' smart constructor.+newtype UserDeletionUserDeletionRequestUpsert = UserDeletionUserDeletionRequestUpsert'+    { _ududruPayload :: UserDeletionRequest+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'UserDeletionUserDeletionRequestUpsert' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ududruPayload'+userDeletionUserDeletionRequestUpsert+    :: UserDeletionRequest -- ^ 'ududruPayload'+    -> UserDeletionUserDeletionRequestUpsert+userDeletionUserDeletionRequestUpsert pUdudruPayload_ =+    UserDeletionUserDeletionRequestUpsert'+    { _ududruPayload = pUdudruPayload_+    }++-- | Multipart request metadata.+ududruPayload :: Lens' UserDeletionUserDeletionRequestUpsert UserDeletionRequest+ududruPayload+  = lens _ududruPayload+      (\ s a -> s{_ududruPayload = a})++instance GoogleRequest+         UserDeletionUserDeletionRequestUpsert where+        type Rs UserDeletionUserDeletionRequestUpsert =+             UserDeletionRequest+        type Scopes UserDeletionUserDeletionRequestUpsert =+             '["https://www.googleapis.com/auth/analytics.user.deletion"]+        requestClient+          UserDeletionUserDeletionRequestUpsert'{..}+          = go (Just AltJSON) _ududruPayload analyticsService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UserDeletionUserDeletionRequestUpsertResource)+                      mempty

@@ -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