diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/Reports.hs b/gen/Network/Google/Reports.hs --- a/gen/Network/Google/Reports.hs +++ b/gen/Network/Google/Reports.hs @@ -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 -- Stability : auto-generated @@ -21,6 +21,10 @@ ( -- * Service Configuration reportsService + + -- * OAuth Scopes + , adminReportsUsageReadOnlyScope + , adminReportsAuditReadOnlyScope -- * API Declaration , ReportsAPI diff --git a/gen/Network/Google/Reports/Types.hs b/gen/Network/Google/Reports/Types.hs --- a/gen/Network/Google/Reports/Types.hs +++ b/gen/Network/Google/Reports/Types.hs @@ -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 -- 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; diff --git a/gen/Network/Google/Reports/Types/Product.hs b/gen/Network/Google/Reports/Types/Product.hs --- a/gen/Network/Google/Reports/Types/Product.hs +++ b/gen/Network/Google/Reports/Types/Product.hs @@ -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 -- 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, diff --git a/gen/Network/Google/Reports/Types/Sum.hs b/gen/Network/Google/Reports/Types/Sum.hs --- a/gen/Network/Google/Reports/Types/Sum.hs +++ b/gen/Network/Google/Reports/Types/Sum.hs @@ -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 -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/Admin/Channels/Stop.hs b/gen/Network/Google/Resource/Admin/Channels/Stop.hs --- a/gen/Network/Google/Resource/Admin/Channels/Stop.hs +++ b/gen/Network/Google/Resource/Admin/Channels/Stop.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Reports/Activities/List.hs b/gen/Network/Google/Resource/Reports/Activities/List.hs --- a/gen/Network/Google/Resource/Reports/Activities/List.hs +++ b/gen/Network/Google/Resource/Reports/Activities/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reports/Activities/Watch.hs b/gen/Network/Google/Resource/Reports/Activities/Watch.hs --- a/gen/Network/Google/Resource/Reports/Activities/Watch.hs +++ b/gen/Network/Google/Resource/Reports/Activities/Watch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs b/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs --- a/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs +++ b/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs b/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs --- a/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs +++ b/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs @@ -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 -- 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 diff --git a/gogol-admin-reports.cabal b/gogol-admin-reports.cabal --- a/gogol-admin-reports.cabal +++ b/gogol-admin-reports.cabal @@ -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 -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