gogol-admin-reports 0.0.1 → 0.1.0

raw patch · 11 files changed

+110/−95 lines, 11 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Reports.hs +5/−1
• gen/Network/Google/Reports/Types.hs +9/−8
• gen/Network/Google/Reports/Types/Product.hs +59/−59
• gen/Network/Google/Reports/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/Admin/Channels/Stop.hs +6/−4
• gen/Network/Google/Resource/Reports/Activities/List.hs +6/−4
• gen/Network/Google/Resource/Reports/Activities/Watch.hs +6/−4
• gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs +6/−4
• gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs +6/−4
• gogol-admin-reports.cabal +3/−3

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

@@ -7,7 +7,7 @@  -- | -- Module      : Network.Google.Reports--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,10 @@     (     -- * Service Configuration       reportsService++    -- * OAuth Scopes+    , adminReportsUsageReadOnlyScope+    , adminReportsAuditReadOnlyScope      -- * API Declaration     , ReportsAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.Reports.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -19,8 +20,8 @@       reportsService      -- * OAuth Scopes-    , adminReportsUsageReadonlyScope-    , adminReportsAuditReadonlyScope+    , adminReportsUsageReadOnlyScope+    , adminReportsAuditReadOnlyScope      -- * UsageReportParametersItem     , UsageReportParametersItem@@ -153,15 +154,15 @@ import           Network.Google.Reports.Types.Sum  -- | Default request referring to version 'reports_v1' of the Admin Reports API. This contains the host and root path used as a starting point for constructing service requests.-reportsService :: Service+reportsService :: ServiceConfig reportsService   = defaultService (ServiceId "admin:reports_v1")       "www.googleapis.com"  -- | View usage reports of Google Apps for your domain-adminReportsUsageReadonlyScope :: OAuthScope-adminReportsUsageReadonlyScope = "https://www.googleapis.com/auth/admin.reports.usage.readonly";+adminReportsUsageReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.reports.usage.readonly"]+adminReportsUsageReadOnlyScope = Proxy;  -- | View audit reports of Google Apps for your domain-adminReportsAuditReadonlyScope :: OAuthScope-adminReportsAuditReadonlyScope = "https://www.googleapis.com/auth/admin.reports.audit.readonly";+adminReportsAuditReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.reports.audit.readonly"]+adminReportsAuditReadOnlyScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.Reports.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -22,7 +22,7 @@  -- -- /See:/ 'usageReportParametersItem' smart constructor.-data UsageReportParametersItem = UsageReportParametersItem+data UsageReportParametersItem = UsageReportParametersItem'     { _urpiDatetimeValue :: !(Maybe DateTime')     , _urpiBoolValue     :: !(Maybe Bool)     , _urpiIntValue      :: !(Maybe (Textual Int64))@@ -49,7 +49,7 @@ usageReportParametersItem     :: UsageReportParametersItem usageReportParametersItem =-    UsageReportParametersItem+    UsageReportParametersItem'     { _urpiDatetimeValue = Nothing     , _urpiBoolValue = Nothing     , _urpiIntValue = Nothing@@ -98,7 +98,7 @@         parseJSON           = withObject "UsageReportParametersItem"               (\ o ->-                 UsageReportParametersItem <$>+                 UsageReportParametersItem' <$>                    (o .:? "datetimeValue") <*> (o .:? "boolValue") <*>                      (o .:? "intValue")                      <*> (o .:? "stringValue")@@ -106,7 +106,7 @@                      <*> (o .:? "msgValue" .!= mempty))  instance ToJSON UsageReportParametersItem where-        toJSON UsageReportParametersItem{..}+        toJSON UsageReportParametersItem'{..}           = object               (catMaybes                  [("datetimeValue" .=) <$> _urpiDatetimeValue,@@ -119,7 +119,7 @@ -- | Unique identifier for each activity record. -- -- /See:/ 'activityId' smart constructor.-data ActivityId = ActivityId+data ActivityId = ActivityId'     { _aiTime            :: !(Maybe DateTime')     , _aiUniqueQualifier :: !(Maybe (Textual Int64))     , _aiCustomerId      :: !(Maybe Text)@@ -140,7 +140,7 @@ activityId     :: ActivityId activityId =-    ActivityId+    ActivityId'     { _aiTime = Nothing     , _aiUniqueQualifier = Nothing     , _aiCustomerId = Nothing@@ -175,13 +175,13 @@         parseJSON           = withObject "ActivityId"               (\ o ->-                 ActivityId <$>+                 ActivityId' <$>                    (o .:? "time") <*> (o .:? "uniqueQualifier") <*>                      (o .:? "customerId")                      <*> (o .:? "applicationName"))  instance ToJSON ActivityId where-        toJSON ActivityId{..}+        toJSON ActivityId'{..}           = object               (catMaybes                  [("time" .=) <$> _aiTime,@@ -192,7 +192,7 @@ -- | JSON template for a collection of usage reports. -- -- /See:/ 'usageReports' smart constructor.-data UsageReports = UsageReports+data UsageReports = UsageReports'     { _urEtag          :: !(Maybe Text)     , _urNextPageToken :: !(Maybe Text)     , _urUsageReports  :: !(Maybe [UsageReport])@@ -216,7 +216,7 @@ usageReports     :: UsageReports usageReports =-    UsageReports+    UsageReports'     { _urEtag = Nothing     , _urNextPageToken = Nothing     , _urUsageReports = Nothing@@ -257,14 +257,14 @@         parseJSON           = withObject "UsageReports"               (\ o ->-                 UsageReports <$>+                 UsageReports' <$>                    (o .:? "etag") <*> (o .:? "nextPageToken") <*>                      (o .:? "usageReports" .!= mempty)                      <*> (o .:? "kind" .!= "admin#reports#usageReports")                      <*> (o .:? "warnings" .!= mempty))  instance ToJSON UsageReports where-        toJSON UsageReports{..}+        toJSON UsageReports'{..}           = object               (catMaybes                  [("etag" .=) <$> _urEtag,@@ -275,7 +275,7 @@  -- -- /See:/ 'usageReportParametersItemMsgValueItem' smart constructor.-newtype UsageReportParametersItemMsgValueItem = UsageReportParametersItemMsgValueItem+newtype UsageReportParametersItemMsgValueItem = UsageReportParametersItemMsgValueItem'     { _urpimviAddtional :: HashMap Text JSONValue     } deriving (Eq,Show,Data,Typeable,Generic) @@ -288,7 +288,7 @@     :: HashMap Text JSONValue -- ^ 'urpimviAddtional'     -> UsageReportParametersItemMsgValueItem usageReportParametersItemMsgValueItem pUrpimviAddtional_ =-    UsageReportParametersItemMsgValueItem+    UsageReportParametersItemMsgValueItem'     { _urpimviAddtional = _Coerce # pUrpimviAddtional_     } @@ -303,7 +303,7 @@         parseJSON           = withObject "UsageReportParametersItemMsgValueItem"               (\ o ->-                 UsageReportParametersItemMsgValueItem <$>+                 UsageReportParametersItemMsgValueItem' <$>                    (parseJSONObject o))  instance ToJSON UsageReportParametersItemMsgValueItem@@ -313,7 +313,7 @@ -- | JSON template for a collection of activites. -- -- /See:/ 'activities' smart constructor.-data Activities = Activities+data Activities = Activities'     { _aEtag          :: !(Maybe Text)     , _aNextPageToken :: !(Maybe Text)     , _aKind          :: !Text@@ -334,7 +334,7 @@ activities     :: Activities activities =-    Activities+    Activities'     { _aEtag = Nothing     , _aNextPageToken = Nothing     , _aKind = "admin#reports#activities"@@ -365,13 +365,13 @@         parseJSON           = withObject "Activities"               (\ o ->-                 Activities <$>+                 Activities' <$>                    (o .:? "etag") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "admin#reports#activities")                      <*> (o .:? "items" .!= mempty))  instance ToJSON Activities where-        toJSON Activities{..}+        toJSON Activities'{..}           = object               (catMaybes                  [("etag" .=) <$> _aEtag,@@ -381,7 +381,7 @@ -- | An notification channel used to watch for resource changes. -- -- /See:/ 'channel' smart constructor.-data Channel = Channel+data Channel = Channel'     { _cResourceURI :: !(Maybe Text)     , _cResourceId  :: !(Maybe Text)     , _cKind        :: !Text@@ -420,7 +420,7 @@ channel     :: Channel channel =-    Channel+    Channel'     { _cResourceURI = Nothing     , _cResourceId = Nothing     , _cKind = "api#channel"@@ -485,7 +485,7 @@         parseJSON           = withObject "Channel"               (\ o ->-                 Channel <$>+                 Channel' <$>                    (o .:? "resourceUri") <*> (o .:? "resourceId") <*>                      (o .:? "kind" .!= "api#channel")                      <*> (o .:? "expiration")@@ -497,7 +497,7 @@                      <*> (o .:? "type"))  instance ToJSON Channel where-        toJSON Channel{..}+        toJSON Channel'{..}           = object               (catMaybes                  [("resourceUri" .=) <$> _cResourceURI,@@ -513,7 +513,7 @@ -- | JSON template for a usage report. -- -- /See:/ 'usageReport' smart constructor.-data UsageReport = UsageReport+data UsageReport = UsageReport'     { _uEtag       :: !(Maybe Text)     , _uKind       :: !Text     , _uDate       :: !(Maybe Text)@@ -537,7 +537,7 @@ usageReport     :: UsageReport usageReport =-    UsageReport+    UsageReport'     { _uEtag = Nothing     , _uKind = "admin#reports#usageReport"     , _uDate = Nothing@@ -572,7 +572,7 @@         parseJSON           = withObject "UsageReport"               (\ o ->-                 UsageReport <$>+                 UsageReport' <$>                    (o .:? "etag") <*>                      (o .:? "kind" .!= "admin#reports#usageReport")                      <*> (o .:? "date")@@ -580,7 +580,7 @@                      <*> (o .:? "entity"))  instance ToJSON UsageReport where-        toJSON UsageReport{..}+        toJSON UsageReport'{..}           = object               (catMaybes                  [("etag" .=) <$> _uEtag, Just ("kind" .= _uKind),@@ -590,7 +590,7 @@  -- -- /See:/ 'usageReportsWarningsItemDataItem' smart constructor.-data UsageReportsWarningsItemDataItem = UsageReportsWarningsItemDataItem+data UsageReportsWarningsItemDataItem = UsageReportsWarningsItemDataItem'     { _urwidiValue :: !(Maybe Text)     , _urwidiKey   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -605,7 +605,7 @@ usageReportsWarningsItemDataItem     :: UsageReportsWarningsItemDataItem usageReportsWarningsItemDataItem =-    UsageReportsWarningsItemDataItem+    UsageReportsWarningsItemDataItem'     { _urwidiValue = Nothing     , _urwidiKey = Nothing     }@@ -627,12 +627,12 @@         parseJSON           = withObject "UsageReportsWarningsItemDataItem"               (\ o ->-                 UsageReportsWarningsItemDataItem <$>+                 UsageReportsWarningsItemDataItem' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON UsageReportsWarningsItemDataItem          where-        toJSON UsageReportsWarningsItemDataItem{..}+        toJSON UsageReportsWarningsItemDataItem'{..}           = object               (catMaybes                  [("value" .=) <$> _urwidiValue,@@ -640,7 +640,7 @@  -- -- /See:/ 'usageReportsWarningsItem' smart constructor.-data UsageReportsWarningsItem = UsageReportsWarningsItem+data UsageReportsWarningsItem = UsageReportsWarningsItem'     { _urwiData    :: !(Maybe [UsageReportsWarningsItemDataItem])     , _urwiCode    :: !(Maybe Text)     , _urwiMessage :: !(Maybe Text)@@ -658,7 +658,7 @@ usageReportsWarningsItem     :: UsageReportsWarningsItem usageReportsWarningsItem =-    UsageReportsWarningsItem+    UsageReportsWarningsItem'     { _urwiData = Nothing     , _urwiCode = Nothing     , _urwiMessage = Nothing@@ -684,12 +684,12 @@         parseJSON           = withObject "UsageReportsWarningsItem"               (\ o ->-                 UsageReportsWarningsItem <$>+                 UsageReportsWarningsItem' <$>                    (o .:? "data" .!= mempty) <*> (o .:? "code") <*>                      (o .:? "message"))  instance ToJSON UsageReportsWarningsItem where-        toJSON UsageReportsWarningsItem{..}+        toJSON UsageReportsWarningsItem'{..}           = object               (catMaybes                  [("data" .=) <$> _urwiData,@@ -698,7 +698,7 @@  -- -- /See:/ 'activityEventsItem' smart constructor.-data ActivityEventsItem = ActivityEventsItem+data ActivityEventsItem = ActivityEventsItem'     { _aeiName       :: !(Maybe Text)     , _aeiParameters :: !(Maybe [ActivityEventsItemParametersItem])     , _aeiType       :: !(Maybe Text)@@ -716,7 +716,7 @@ activityEventsItem     :: ActivityEventsItem activityEventsItem =-    ActivityEventsItem+    ActivityEventsItem'     { _aeiName = Nothing     , _aeiParameters = Nothing     , _aeiType = Nothing@@ -742,12 +742,12 @@         parseJSON           = withObject "ActivityEventsItem"               (\ o ->-                 ActivityEventsItem <$>+                 ActivityEventsItem' <$>                    (o .:? "name") <*> (o .:? "parameters" .!= mempty)                      <*> (o .:? "type"))  instance ToJSON ActivityEventsItem where-        toJSON ActivityEventsItem{..}+        toJSON ActivityEventsItem'{..}           = object               (catMaybes                  [("name" .=) <$> _aeiName,@@ -757,7 +757,7 @@ -- | Additional parameters controlling delivery channel behavior. Optional. -- -- /See:/ 'channelParams' smart constructor.-newtype ChannelParams = ChannelParams+newtype ChannelParams = ChannelParams'     { _cpAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -770,7 +770,7 @@     :: HashMap Text Text -- ^ 'cpAddtional'     -> ChannelParams channelParams pCpAddtional_ =-    ChannelParams+    ChannelParams'     { _cpAddtional = _Coerce # pCpAddtional_     } @@ -783,7 +783,7 @@ instance FromJSON ChannelParams where         parseJSON           = withObject "ChannelParams"-              (\ o -> ChannelParams <$> (parseJSONObject o))+              (\ o -> ChannelParams' <$> (parseJSONObject o))  instance ToJSON ChannelParams where         toJSON = toJSON . _cpAddtional@@ -791,7 +791,7 @@ -- | JSON template for the activity resource. -- -- /See:/ 'activity' smart constructor.-data Activity = Activity+data Activity = Activity'     { _actEtag        :: !(Maybe Text)     , _actIPAddress   :: !(Maybe Text)     , _actKind        :: !Text@@ -821,7 +821,7 @@ activity     :: Activity activity =-    Activity+    Activity'     { _actEtag = Nothing     , _actIPAddress = Nothing     , _actKind = "admin#reports#activity"@@ -869,7 +869,7 @@         parseJSON           = withObject "Activity"               (\ o ->-                 Activity <$>+                 Activity' <$>                    (o .:? "etag") <*> (o .:? "ipAddress") <*>                      (o .:? "kind" .!= "admin#reports#activity")                      <*> (o .:? "actor")@@ -878,7 +878,7 @@                      <*> (o .:? "id"))  instance ToJSON Activity where-        toJSON Activity{..}+        toJSON Activity'{..}           = object               (catMaybes                  [("etag" .=) <$> _actEtag,@@ -891,7 +891,7 @@ -- | Information about the type of the item. -- -- /See:/ 'usageReportEntity' smart constructor.-data UsageReportEntity = UsageReportEntity+data UsageReportEntity = UsageReportEntity'     { _ureProFileId  :: !(Maybe Text)     , _ureCustomerId :: !(Maybe Text)     , _ureUserEmail  :: !(Maybe Text)@@ -912,7 +912,7 @@ usageReportEntity     :: UsageReportEntity usageReportEntity =-    UsageReportEntity+    UsageReportEntity'     { _ureProFileId = Nothing     , _ureCustomerId = Nothing     , _ureUserEmail = Nothing@@ -943,13 +943,13 @@         parseJSON           = withObject "UsageReportEntity"               (\ o ->-                 UsageReportEntity <$>+                 UsageReportEntity' <$>                    (o .:? "profileId") <*> (o .:? "customerId") <*>                      (o .:? "userEmail")                      <*> (o .:? "type"))  instance ToJSON UsageReportEntity where-        toJSON UsageReportEntity{..}+        toJSON UsageReportEntity'{..}           = object               (catMaybes                  [("profileId" .=) <$> _ureProFileId,@@ -959,7 +959,7 @@  -- -- /See:/ 'activityEventsItemParametersItem' smart constructor.-data ActivityEventsItemParametersItem = ActivityEventsItemParametersItem+data ActivityEventsItemParametersItem = ActivityEventsItemParametersItem'     { _aeipiBoolValue     :: !(Maybe Bool)     , _aeipiIntValue      :: !(Maybe (Textual Int64))     , _aeipiValue         :: !(Maybe Text)@@ -986,7 +986,7 @@ activityEventsItemParametersItem     :: ActivityEventsItemParametersItem activityEventsItemParametersItem =-    ActivityEventsItemParametersItem+    ActivityEventsItemParametersItem'     { _aeipiBoolValue = Nothing     , _aeipiIntValue = Nothing     , _aeipiValue = Nothing@@ -1039,7 +1039,7 @@         parseJSON           = withObject "ActivityEventsItemParametersItem"               (\ o ->-                 ActivityEventsItemParametersItem <$>+                 ActivityEventsItemParametersItem' <$>                    (o .:? "boolValue") <*> (o .:? "intValue") <*>                      (o .:? "value")                      <*> (o .:? "multiIntValue" .!= mempty)@@ -1048,7 +1048,7 @@  instance ToJSON ActivityEventsItemParametersItem          where-        toJSON ActivityEventsItemParametersItem{..}+        toJSON ActivityEventsItemParametersItem'{..}           = object               (catMaybes                  [("boolValue" .=) <$> _aeipiBoolValue,@@ -1061,7 +1061,7 @@ -- | User doing the action. -- -- /See:/ 'activityActor' smart constructor.-data ActivityActor = ActivityActor+data ActivityActor = ActivityActor'     { _aaEmail      :: !(Maybe Text)     , _aaCallerType :: !(Maybe Text)     , _aaProFileId  :: !(Maybe Text)@@ -1082,7 +1082,7 @@ activityActor     :: ActivityActor activityActor =-    ActivityActor+    ActivityActor'     { _aaEmail = Nothing     , _aaCallerType = Nothing     , _aaProFileId = Nothing@@ -1111,13 +1111,13 @@         parseJSON           = withObject "ActivityActor"               (\ o ->-                 ActivityActor <$>+                 ActivityActor' <$>                    (o .:? "email") <*> (o .:? "callerType") <*>                      (o .:? "profileId")                      <*> (o .:? "key"))  instance ToJSON ActivityActor where-        toJSON ActivityActor{..}+        toJSON ActivityActor'{..}           = object               (catMaybes                  [("email" .=) <$> _aaEmail,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.Reports.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Admin.Channels.Stop--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Stop watching resources through this channel -- -- /See:/ 'channelsStop' smart constructor.-newtype ChannelsStop = ChannelsStop+newtype ChannelsStop = ChannelsStop'     { _csPayload :: Channel     } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@     :: Channel -- ^ 'csPayload'     -> ChannelsStop channelsStop pCsPayload_ =-    ChannelsStop+    ChannelsStop'     { _csPayload = pCsPayload_     } @@ -79,7 +79,9 @@  instance GoogleRequest ChannelsStop where         type Rs ChannelsStop = ()-        requestClient ChannelsStop{..}+        type Scopes ChannelsStop =+             '["https://www.googleapis.com/auth/admin.reports.audit.readonly"]+        requestClient ChannelsStop'{..}           = go (Just AltJSON) _csPayload reportsService           where go                   = buildClient (Proxy :: Proxy ChannelsStopResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reports.Activities.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@ -- | Retrieves a list of activities for a specific customer and application. -- -- /See:/ 'activitiesList' smart constructor.-data ActivitiesList = ActivitiesList+data ActivitiesList = ActivitiesList'     { _alStartTime       :: !(Maybe Text)     , _alFilters         :: !(Maybe Text)     , _alCustomerId      :: !(Maybe Text)@@ -114,7 +114,7 @@     -> Text -- ^ 'alUserKey'     -> ActivitiesList activitiesList pAlApplicationName_ pAlUserKey_ =-    ActivitiesList+    ActivitiesList'     { _alStartTime = Nothing     , _alFilters = Nothing     , _alCustomerId = Nothing@@ -186,7 +186,9 @@  instance GoogleRequest ActivitiesList where         type Rs ActivitiesList = Activities-        requestClient ActivitiesList{..}+        type Scopes ActivitiesList =+             '["https://www.googleapis.com/auth/admin.reports.audit.readonly"]+        requestClient ActivitiesList'{..}           = go _alUserKey _alApplicationName _alStartTime               _alFilters               _alCustomerId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reports.Activities.Watch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -76,7 +76,7 @@ -- | Push changes to activities -- -- /See:/ 'activitiesWatch' smart constructor.-data ActivitiesWatch = ActivitiesWatch+data ActivitiesWatch = ActivitiesWatch'     { _awStartTime       :: !(Maybe Text)     , _awFilters         :: !(Maybe Text)     , _awPayload         :: !Channel@@ -121,7 +121,7 @@     -> Text -- ^ 'awUserKey'     -> ActivitiesWatch activitiesWatch pAwPayload_ pAwApplicationName_ pAwUserKey_ =-    ActivitiesWatch+    ActivitiesWatch'     { _awStartTime = Nothing     , _awFilters = Nothing     , _awPayload = pAwPayload_@@ -199,7 +199,9 @@  instance GoogleRequest ActivitiesWatch where         type Rs ActivitiesWatch = Channel-        requestClient ActivitiesWatch{..}+        type Scopes ActivitiesWatch =+             '["https://www.googleapis.com/auth/admin.reports.audit.readonly"]+        requestClient ActivitiesWatch'{..}           = go _awUserKey _awApplicationName _awStartTime               _awFilters               _awCustomerId

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reports.CustomerUsageReports.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- a specific customer. -- -- /See:/ 'customerUsageReportsGet' smart constructor.-data CustomerUsageReportsGet = CustomerUsageReportsGet+data CustomerUsageReportsGet = CustomerUsageReportsGet'     { _curgCustomerId :: !(Maybe Text)     , _curgDate       :: !Text     , _curgParameters :: !(Maybe Text)@@ -83,7 +83,7 @@     :: Text -- ^ 'curgDate'     -> CustomerUsageReportsGet customerUsageReportsGet pCurgDate_ =-    CustomerUsageReportsGet+    CustomerUsageReportsGet'     { _curgCustomerId = Nothing     , _curgDate = pCurgDate_     , _curgParameters = Nothing@@ -116,7 +116,9 @@  instance GoogleRequest CustomerUsageReportsGet where         type Rs CustomerUsageReportsGet = UsageReports-        requestClient CustomerUsageReportsGet{..}+        type Scopes CustomerUsageReportsGet =+             '["https://www.googleapis.com/auth/admin.reports.usage.readonly"]+        requestClient CustomerUsageReportsGet'{..}           = go _curgDate _curgCustomerId _curgParameters               _curgPageToken               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reports.UserUsageReport.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@ -- a set of users. -- -- /See:/ 'userUsageReportGet' smart constructor.-data UserUsageReportGet = UserUsageReportGet+data UserUsageReportGet = UserUsageReportGet'     { _uurgFilters    :: !(Maybe Text)     , _uurgCustomerId :: !(Maybe Text)     , _uurgDate       :: !Text@@ -101,7 +101,7 @@     -> Text -- ^ 'uurgUserKey'     -> UserUsageReportGet userUsageReportGet pUurgDate_ pUurgUserKey_ =-    UserUsageReportGet+    UserUsageReportGet'     { _uurgFilters = Nothing     , _uurgCustomerId = Nothing     , _uurgDate = pUurgDate_@@ -155,7 +155,9 @@  instance GoogleRequest UserUsageReportGet where         type Rs UserUsageReportGet = UsageReports-        requestClient UserUsageReportGet{..}+        type Scopes UserUsageReportGet =+             '["https://www.googleapis.com/auth/admin.reports.usage.readonly"]+        requestClient UserUsageReportGet'{..}           = go _uurgUserKey _uurgDate _uurgFilters               _uurgCustomerId               _uurgParameters

@@ -1,5 +1,5 @@ name:                  gogol-admin-reports-version:               0.0.1+version:               0.1.0 synopsis:              Google Admin Reports SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10@@ -47,5 +47,5 @@         , Network.Google.Reports.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5