Hello community, here is the log from the commit of package ghc-gogol-youtube-analytics for openSUSE:Factory checked in at 2017-08-31 20:55:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-youtube-analytics (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-analytics.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-youtube-analytics" Thu Aug 31 20:55:29 2017 rev:2 rq:513356 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-youtube-analytics/ghc-gogol-youtube-analytics.changes 2017-05-10 20:44:37.512733591 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-analytics.new/ghc-gogol-youtube-analytics.changes 2017-08-31 20:55:29.975542435 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:08 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-youtube-analytics-0.1.1.tar.gz New: ---- gogol-youtube-analytics-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-youtube-analytics.spec ++++++ --- /var/tmp/diff_new_pack.K5jtjO/_old 2017-08-31 20:55:31.251363178 +0200 +++ /var/tmp/diff_new_pack.K5jtjO/_new 2017-08-31 20:55:31.275359807 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-youtube-analytics Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google YouTube Analytics SDK License: MPL-2.0 ++++++ gogol-youtube-analytics-0.1.1.tar.gz -> gogol-youtube-analytics-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/README.md new/gogol-youtube-analytics-0.3.0/README.md --- old/gogol-youtube-analytics-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/README.md 2017-07-12 16:51:30.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs 1970-01-01 01:00:00.000000000 +0100 @@ -1,94 +0,0 @@ -{-# 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.YouTubeAnalytics.BatchReportDefinitions.List --- 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) --- --- Retrieves a list of available batch report definitions. --- --- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference> for @youtubeAnalytics.batchReportDefinitions.list@. -module Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - ( - -- * REST Resource - BatchReportDefinitionsListResource - - -- * Creating a Request - , batchReportDefinitionsList - , BatchReportDefinitionsList - - -- * Request Lenses - , brdlOnBehalfOfContentOwner - ) where - -import Network.Google.Prelude -import Network.Google.YouTubeAnalytics.Types - --- | A resource alias for @youtubeAnalytics.batchReportDefinitions.list@ method which the --- 'BatchReportDefinitionsList' request conforms to. -type BatchReportDefinitionsListResource = - "youtube" :> - "analytics" :> - "v1" :> - "batchReportDefinitions" :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] BatchReportDefinitionList - --- | Retrieves a list of available batch report definitions. --- --- /See:/ 'batchReportDefinitionsList' smart constructor. -newtype BatchReportDefinitionsList = BatchReportDefinitionsList' - { _brdlOnBehalfOfContentOwner :: Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinitionsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdlOnBehalfOfContentOwner' -batchReportDefinitionsList - :: Text -- ^ 'brdlOnBehalfOfContentOwner' - -> BatchReportDefinitionsList -batchReportDefinitionsList pBrdlOnBehalfOfContentOwner_ = - BatchReportDefinitionsList' - { _brdlOnBehalfOfContentOwner = pBrdlOnBehalfOfContentOwner_ - } - --- | The onBehalfOfContentOwner parameter identifies the content owner that --- the user is acting on behalf of. -brdlOnBehalfOfContentOwner :: Lens' BatchReportDefinitionsList Text -brdlOnBehalfOfContentOwner - = lens _brdlOnBehalfOfContentOwner - (\ s a -> s{_brdlOnBehalfOfContentOwner = a}) - -instance GoogleRequest BatchReportDefinitionsList - where - type Rs BatchReportDefinitionsList = - BatchReportDefinitionList - type Scopes BatchReportDefinitionsList = - '["https://www.googleapis.com/auth/yt-analytics-monetary.readonly", - "https://www.googleapis.com/auth/yt-analytics.readonly"] - requestClient BatchReportDefinitionsList'{..} - = go (Just _brdlOnBehalfOfContentOwner) - (Just AltJSON) - youTubeAnalyticsService - where go - = buildClient - (Proxy :: Proxy BatchReportDefinitionsListResource) - mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs 1970-01-01 01:00:00.000000000 +0100 @@ -1,107 +0,0 @@ -{-# 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.YouTubeAnalytics.BatchReports.List --- 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) --- --- Retrieves a list of processed batch reports. --- --- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference> for @youtubeAnalytics.batchReports.list@. -module Network.Google.Resource.YouTubeAnalytics.BatchReports.List - ( - -- * REST Resource - BatchReportsListResource - - -- * Creating a Request - , batchReportsList - , BatchReportsList - - -- * Request Lenses - , brlBatchReportDefinitionId - , brlOnBehalfOfContentOwner - ) where - -import Network.Google.Prelude -import Network.Google.YouTubeAnalytics.Types - --- | A resource alias for @youtubeAnalytics.batchReports.list@ method which the --- 'BatchReportsList' request conforms to. -type BatchReportsListResource = - "youtube" :> - "analytics" :> - "v1" :> - "batchReports" :> - QueryParam "batchReportDefinitionId" Text :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] BatchReportList - --- | Retrieves a list of processed batch reports. --- --- /See:/ 'batchReportsList' smart constructor. -data BatchReportsList = BatchReportsList' - { _brlBatchReportDefinitionId :: !Text - , _brlOnBehalfOfContentOwner :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brlBatchReportDefinitionId' --- --- * 'brlOnBehalfOfContentOwner' -batchReportsList - :: Text -- ^ 'brlBatchReportDefinitionId' - -> Text -- ^ 'brlOnBehalfOfContentOwner' - -> BatchReportsList -batchReportsList pBrlBatchReportDefinitionId_ pBrlOnBehalfOfContentOwner_ = - BatchReportsList' - { _brlBatchReportDefinitionId = pBrlBatchReportDefinitionId_ - , _brlOnBehalfOfContentOwner = pBrlOnBehalfOfContentOwner_ - } - --- | The batchReportDefinitionId parameter specifies the ID of the batch --- reportort definition for which you are retrieving reports. -brlBatchReportDefinitionId :: Lens' BatchReportsList Text -brlBatchReportDefinitionId - = lens _brlBatchReportDefinitionId - (\ s a -> s{_brlBatchReportDefinitionId = a}) - --- | The onBehalfOfContentOwner parameter identifies the content owner that --- the user is acting on behalf of. -brlOnBehalfOfContentOwner :: Lens' BatchReportsList Text -brlOnBehalfOfContentOwner - = lens _brlOnBehalfOfContentOwner - (\ s a -> s{_brlOnBehalfOfContentOwner = a}) - -instance GoogleRequest BatchReportsList where - type Rs BatchReportsList = BatchReportList - type Scopes BatchReportsList = - '["https://www.googleapis.com/auth/yt-analytics-monetary.readonly", - "https://www.googleapis.com/auth/yt-analytics.readonly"] - requestClient BatchReportsList'{..} - = go (Just _brlBatchReportDefinitionId) - (Just _brlOnBehalfOfContentOwner) - (Just AltJSON) - youTubeAnalyticsService - where go - = buildClient - (Proxy :: Proxy BatchReportsListResource) - mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types/Product.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types/Product.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types/Product.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -317,180 +317,6 @@ [Just ("kind" .= _rtKind), ("rows" .=) <$> _rtRows, ("columnHeaders" .=) <$> _rtColumnHeaders]) --- | Contains single batchReportDefinition resource. --- --- /See:/ 'batchReportDefinition' smart constructor. -data BatchReportDefinition = BatchReportDefinition' - { _brdStatus :: !(Maybe Text) - , _brdKind :: !Text - , _brdName :: !(Maybe Text) - , _brdId :: !(Maybe Text) - , _brdType :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinition' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdStatus' --- --- * 'brdKind' --- --- * 'brdName' --- --- * 'brdId' --- --- * 'brdType' -batchReportDefinition - :: BatchReportDefinition -batchReportDefinition = - BatchReportDefinition' - { _brdStatus = Nothing - , _brdKind = "youtubeAnalytics#batchReportDefinition" - , _brdName = Nothing - , _brdId = Nothing - , _brdType = Nothing - } - --- | Status of the report definition. -brdStatus :: Lens' BatchReportDefinition (Maybe Text) -brdStatus - = lens _brdStatus (\ s a -> s{_brdStatus = a}) - --- | This value specifies the type of data of this item. For batch report --- definition the kind property value is --- youtubeAnalytics#batchReportDefinition. -brdKind :: Lens' BatchReportDefinition Text -brdKind = lens _brdKind (\ s a -> s{_brdKind = a}) - --- | Name of the report definition. -brdName :: Lens' BatchReportDefinition (Maybe Text) -brdName = lens _brdName (\ s a -> s{_brdName = a}) - --- | The ID that YouTube assigns and uses to uniquely identify the report --- definition. -brdId :: Lens' BatchReportDefinition (Maybe Text) -brdId = lens _brdId (\ s a -> s{_brdId = a}) - --- | Type of the report definition. -brdType :: Lens' BatchReportDefinition (Maybe Text) -brdType = lens _brdType (\ s a -> s{_brdType = a}) - -instance FromJSON BatchReportDefinition where - parseJSON - = withObject "BatchReportDefinition" - (\ o -> - BatchReportDefinition' <$> - (o .:? "status") <*> - (o .:? "kind" .!= - "youtubeAnalytics#batchReportDefinition") - <*> (o .:? "name") - <*> (o .:? "id") - <*> (o .:? "type")) - -instance ToJSON BatchReportDefinition where - toJSON BatchReportDefinition'{..} - = object - (catMaybes - [("status" .=) <$> _brdStatus, - Just ("kind" .= _brdKind), ("name" .=) <$> _brdName, - ("id" .=) <$> _brdId, ("type" .=) <$> _brdType]) - --- | Contains single batchReport resource. --- --- /See:/ 'batchReport' smart constructor. -data BatchReport = BatchReport' - { _brTimeUpdated :: !(Maybe DateTime') - , _brKind :: !Text - , _brReportId :: !(Maybe Text) - , _brTimeSpan :: !(Maybe BatchReportTimeSpan) - , _brOutputs :: !(Maybe [BatchReportOutputsItem]) - , _brId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReport' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brTimeUpdated' --- --- * 'brKind' --- --- * 'brReportId' --- --- * 'brTimeSpan' --- --- * 'brOutputs' --- --- * 'brId' -batchReport - :: BatchReport -batchReport = - BatchReport' - { _brTimeUpdated = Nothing - , _brKind = "youtubeAnalytics#batchReport" - , _brReportId = Nothing - , _brTimeSpan = Nothing - , _brOutputs = Nothing - , _brId = Nothing - } - --- | The time when the report was updated. -brTimeUpdated :: Lens' BatchReport (Maybe UTCTime) -brTimeUpdated - = lens _brTimeUpdated - (\ s a -> s{_brTimeUpdated = a}) - . mapping _DateTime - --- | This value specifies the type of data of this item. For batch report the --- kind property value is youtubeAnalytics#batchReport. -brKind :: Lens' BatchReport Text -brKind = lens _brKind (\ s a -> s{_brKind = a}) - --- | The ID of the the report definition. -brReportId :: Lens' BatchReport (Maybe Text) -brReportId - = lens _brReportId (\ s a -> s{_brReportId = a}) - --- | Period included in the report. For reports containing all entities --- endTime is not set. Both startTime and endTime are inclusive. -brTimeSpan :: Lens' BatchReport (Maybe BatchReportTimeSpan) -brTimeSpan - = lens _brTimeSpan (\ s a -> s{_brTimeSpan = a}) - --- | Report outputs. -brOutputs :: Lens' BatchReport [BatchReportOutputsItem] -brOutputs - = lens _brOutputs (\ s a -> s{_brOutputs = a}) . - _Default - . _Coerce - --- | The ID that YouTube assigns and uses to uniquely identify the report. -brId :: Lens' BatchReport (Maybe Text) -brId = lens _brId (\ s a -> s{_brId = a}) - -instance FromJSON BatchReport where - parseJSON - = withObject "BatchReport" - (\ o -> - BatchReport' <$> - (o .:? "timeUpdated") <*> - (o .:? "kind" .!= "youtubeAnalytics#batchReport") - <*> (o .:? "reportId") - <*> (o .:? "timeSpan") - <*> (o .:? "outputs" .!= mempty) - <*> (o .:? "id")) - -instance ToJSON BatchReport where - toJSON BatchReport'{..} - = object - (catMaybes - [("timeUpdated" .=) <$> _brTimeUpdated, - Just ("kind" .= _brKind), - ("reportId" .=) <$> _brReportId, - ("timeSpan" .=) <$> _brTimeSpan, - ("outputs" .=) <$> _brOutputs, ("id" .=) <$> _brId]) - -- -- /See:/ 'groupSnippet' smart constructor. data GroupSnippet = GroupSnippet' @@ -606,222 +432,6 @@ ("resource" .=) <$> _giResource, ("groupId" .=) <$> _giGroupId, ("id" .=) <$> _giId]) --- | A paginated list of batchReportDefinition resources returned in response --- to a youtubeAnalytics.batchReportDefinitions.list request. --- --- /See:/ 'batchReportDefinitionList' smart constructor. -data BatchReportDefinitionList = BatchReportDefinitionList' - { _brdlKind :: !Text - , _brdlItems :: !(Maybe [BatchReportDefinition]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinitionList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdlKind' --- --- * 'brdlItems' -batchReportDefinitionList - :: BatchReportDefinitionList -batchReportDefinitionList = - BatchReportDefinitionList' - { _brdlKind = "youtubeAnalytics#batchReportDefinitionList" - , _brdlItems = Nothing - } - --- | This value specifies the type of data included in the API response. For --- the list method, the kind property value is --- youtubeAnalytics#batchReportDefinitionList. -brdlKind :: Lens' BatchReportDefinitionList Text -brdlKind = lens _brdlKind (\ s a -> s{_brdlKind = a}) - --- | A list of batchReportDefinition resources that match the request --- criteria. -brdlItems :: Lens' BatchReportDefinitionList [BatchReportDefinition] -brdlItems - = lens _brdlItems (\ s a -> s{_brdlItems = a}) . - _Default - . _Coerce - -instance FromJSON BatchReportDefinitionList where - parseJSON - = withObject "BatchReportDefinitionList" - (\ o -> - BatchReportDefinitionList' <$> - (o .:? "kind" .!= - "youtubeAnalytics#batchReportDefinitionList") - <*> (o .:? "items" .!= mempty)) - -instance ToJSON BatchReportDefinitionList where - toJSON BatchReportDefinitionList'{..} - = object - (catMaybes - [Just ("kind" .= _brdlKind), - ("items" .=) <$> _brdlItems]) - --- | A paginated list of batchReport resources returned in response to a --- youtubeAnalytics.batchReport.list request. --- --- /See:/ 'batchReportList' smart constructor. -data BatchReportList = BatchReportList' - { _brlKind :: !Text - , _brlItems :: !(Maybe [BatchReport]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brlKind' --- --- * 'brlItems' -batchReportList - :: BatchReportList -batchReportList = - BatchReportList' - { _brlKind = "youtubeAnalytics#batchReportList" - , _brlItems = Nothing - } - --- | This value specifies the type of data included in the API response. For --- the list method, the kind property value is --- youtubeAnalytics#batchReportList. -brlKind :: Lens' BatchReportList Text -brlKind = lens _brlKind (\ s a -> s{_brlKind = a}) - --- | A list of batchReport resources that match the request criteria. -brlItems :: Lens' BatchReportList [BatchReport] -brlItems - = lens _brlItems (\ s a -> s{_brlItems = a}) . - _Default - . _Coerce - -instance FromJSON BatchReportList where - parseJSON - = withObject "BatchReportList" - (\ o -> - BatchReportList' <$> - (o .:? "kind" .!= "youtubeAnalytics#batchReportList") - <*> (o .:? "items" .!= mempty)) - -instance ToJSON BatchReportList where - toJSON BatchReportList'{..} - = object - (catMaybes - [Just ("kind" .= _brlKind), - ("items" .=) <$> _brlItems]) - --- --- /See:/ 'batchReportOutputsItem' smart constructor. -data BatchReportOutputsItem = BatchReportOutputsItem' - { _broiFormat :: !(Maybe Text) - , _broiDownloadURL :: !(Maybe Text) - , _broiType :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportOutputsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'broiFormat' --- --- * 'broiDownloadURL' --- --- * 'broiType' -batchReportOutputsItem - :: BatchReportOutputsItem -batchReportOutputsItem = - BatchReportOutputsItem' - { _broiFormat = Nothing - , _broiDownloadURL = Nothing - , _broiType = "cloudStorageOutput" - } - --- | Format of the output. -broiFormat :: Lens' BatchReportOutputsItem (Maybe Text) -broiFormat - = lens _broiFormat (\ s a -> s{_broiFormat = a}) - --- | Cloud storage URL to download this report. This URL is valid for 30 --- minutes. -broiDownloadURL :: Lens' BatchReportOutputsItem (Maybe Text) -broiDownloadURL - = lens _broiDownloadURL - (\ s a -> s{_broiDownloadURL = a}) - --- | Type of the output. -broiType :: Lens' BatchReportOutputsItem Text -broiType = lens _broiType (\ s a -> s{_broiType = a}) - -instance FromJSON BatchReportOutputsItem where - parseJSON - = withObject "BatchReportOutputsItem" - (\ o -> - BatchReportOutputsItem' <$> - (o .:? "format") <*> (o .:? "downloadUrl") <*> - (o .:? "type" .!= "cloudStorageOutput")) - -instance ToJSON BatchReportOutputsItem where - toJSON BatchReportOutputsItem'{..} - = object - (catMaybes - [("format" .=) <$> _broiFormat, - ("downloadUrl" .=) <$> _broiDownloadURL, - Just ("type" .= _broiType)]) - --- | Period included in the report. For reports containing all entities --- endTime is not set. Both startTime and endTime are inclusive. --- --- /See:/ 'batchReportTimeSpan' smart constructor. -data BatchReportTimeSpan = BatchReportTimeSpan' - { _brtsStartTime :: !(Maybe DateTime') - , _brtsEndTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportTimeSpan' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brtsStartTime' --- --- * 'brtsEndTime' -batchReportTimeSpan - :: BatchReportTimeSpan -batchReportTimeSpan = - BatchReportTimeSpan' - { _brtsStartTime = Nothing - , _brtsEndTime = Nothing - } - --- | Start of the period included in the report. Inclusive. -brtsStartTime :: Lens' BatchReportTimeSpan (Maybe UTCTime) -brtsStartTime - = lens _brtsStartTime - (\ s a -> s{_brtsStartTime = a}) - . mapping _DateTime - --- | End of the period included in the report. Inclusive. For reports --- containing all entities endTime is not set. -brtsEndTime :: Lens' BatchReportTimeSpan (Maybe UTCTime) -brtsEndTime - = lens _brtsEndTime (\ s a -> s{_brtsEndTime = a}) . - mapping _DateTime - -instance FromJSON BatchReportTimeSpan where - parseJSON - = withObject "BatchReportTimeSpan" - (\ o -> - BatchReportTimeSpan' <$> - (o .:? "startTime") <*> (o .:? "endTime")) - -instance ToJSON BatchReportTimeSpan where - toJSON BatchReportTimeSpan'{..} - = object - (catMaybes - [("startTime" .=) <$> _brtsStartTime, - ("endTime" .=) <$> _brtsEndTime]) - -- | A paginated list of grouList resources returned in response to a -- youtubeAnalytics.groupApi.list request. -- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -61,25 +61,6 @@ , rtRows , rtColumnHeaders - -- * BatchReportDefinition - , BatchReportDefinition - , batchReportDefinition - , brdStatus - , brdKind - , brdName - , brdId - , brdType - - -- * BatchReport - , BatchReport - , batchReport - , brTimeUpdated - , brKind - , brReportId - , brTimeSpan - , brOutputs - , brId - -- * GroupSnippet , GroupSnippet , groupSnippet @@ -95,31 +76,6 @@ , giGroupId , giId - -- * BatchReportDefinitionList - , BatchReportDefinitionList - , batchReportDefinitionList - , brdlKind - , brdlItems - - -- * BatchReportList - , BatchReportList - , batchReportList - , brlKind - , brlItems - - -- * BatchReportOutputsItem - , BatchReportOutputsItem - , batchReportOutputsItem - , broiFormat - , broiDownloadURL - , broiType - - -- * BatchReportTimeSpan - , BatchReportTimeSpan - , batchReportTimeSpan - , brtsStartTime - , brtsEndTime - -- * GroupItemListResponse , GroupItemListResponse , groupItemListResponse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,12 +33,6 @@ -- * Resources - -- ** youtubeAnalytics.batchReportDefinitions.list - , module Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - - -- ** youtubeAnalytics.batchReports.list - , module Network.Google.Resource.YouTubeAnalytics.BatchReports.List - -- ** youtubeAnalytics.groupItems.delete , module Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete @@ -100,25 +94,6 @@ , rtRows , rtColumnHeaders - -- ** BatchReportDefinition - , BatchReportDefinition - , batchReportDefinition - , brdStatus - , brdKind - , brdName - , brdId - , brdType - - -- ** BatchReport - , BatchReport - , batchReport - , brTimeUpdated - , brKind - , brReportId - , brTimeSpan - , brOutputs - , brId - -- ** GroupSnippet , GroupSnippet , groupSnippet @@ -134,31 +109,6 @@ , giGroupId , giId - -- ** BatchReportDefinitionList - , BatchReportDefinitionList - , batchReportDefinitionList - , brdlKind - , brdlItems - - -- ** BatchReportList - , BatchReportList - , batchReportList - , brlKind - , brlItems - - -- ** BatchReportOutputsItem - , BatchReportOutputsItem - , batchReportOutputsItem - , broiFormat - , broiDownloadURL - , broiType - - -- ** BatchReportTimeSpan - , BatchReportTimeSpan - , batchReportTimeSpan - , brtsStartTime - , brtsEndTime - -- ** GroupItemListResponse , GroupItemListResponse , groupItemListResponse @@ -176,8 +126,6 @@ ) where import Network.Google.Prelude -import Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List -import Network.Google.Resource.YouTubeAnalytics.BatchReports.List import Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete import Network.Google.Resource.YouTubeAnalytics.GroupItems.Insert import Network.Google.Resource.YouTubeAnalytics.GroupItems.List @@ -198,8 +146,6 @@ GroupsDeleteResource :<|> GroupsUpdateResource :<|> ReportsQueryResource - :<|> BatchReportsListResource :<|> GroupItemsInsertResource :<|> GroupItemsListResource :<|> GroupItemsDeleteResource - :<|> BatchReportDefinitionsListResource diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gogol-youtube-analytics.cabal new/gogol-youtube-analytics-0.3.0/gogol-youtube-analytics.cabal --- old/gogol-youtube-analytics-0.1.1/gogol-youtube-analytics.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gogol-youtube-analytics.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-youtube-analytics -version: 0.1.1 +version: 0.3.0 synopsis: Google YouTube Analytics SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -33,9 +33,7 @@ ghc-options: -Wall exposed-modules: - Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - , Network.Google.Resource.YouTubeAnalytics.BatchReports.List - , Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete + Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete , Network.Google.Resource.YouTubeAnalytics.GroupItems.Insert , Network.Google.Resource.YouTubeAnalytics.GroupItems.List , Network.Google.Resource.YouTubeAnalytics.Groups.Delete @@ -51,5 +49,5 @@ , Network.Google.YouTubeAnalytics.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5