git.iko.soy/gogol
on develop help sign in
Regenerating gogol-youtube-reporting from updated service defintions
dcdf083Brendan Hay
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/Create.hs+3−3
compare with develop
unifiedsplit
@@ -52,7 +52,7 @@ import Network.Google.YouTubeReporting.Types
52type JobsCreateResource =
52type JobsCreateResource =
53 "v1" :>
53 "v1" :>
54 "jobs" :>
54 "jobs" :>
55− QueryParam "$.xgafv" Text :>
55+ QueryParam "$.xgafv" Xgafv :>
56 QueryParam "upload_protocol" Text :>
56 QueryParam "upload_protocol" Text :>
57 QueryParam "pp" Bool :>
57 QueryParam "pp" Bool :>
58 QueryParam "access_token" Text :>
58 QueryParam "access_token" Text :>
@@ -67,7 +67,7 @@ type JobsCreateResource =
67--
67--
68-- /See:/ 'jobsCreate' smart constructor.
68-- /See:/ 'jobsCreate' smart constructor.
69data JobsCreate = JobsCreate'
69data JobsCreate = JobsCreate'
70− { _jcXgafv :: !(Maybe Text)
70+ { _jcXgafv :: !(Maybe Xgafv)
71 , _jcUploadProtocol :: !(Maybe Text)
71 , _jcUploadProtocol :: !(Maybe Text)
72 , _jcPp :: !Bool
72 , _jcPp :: !Bool
73 , _jcAccessToken :: !(Maybe Text)
73 , _jcAccessToken :: !(Maybe Text)
@@ -116,7 +116,7 @@ jobsCreate pJcPayload_ =
116 }
116 }
117
117
118-- | V1 error format.
118-- | V1 error format.
119−jcXgafv :: Lens' JobsCreate (Maybe Text)
119+jcXgafv :: Lens' JobsCreate (Maybe Xgafv)
120jcXgafv = lens _jcXgafv (\ s a -> s{_jcXgafv = a})
120jcXgafv = lens _jcXgafv (\ s a -> s{_jcXgafv = a})
121
121
122-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
122-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/Delete.hs+3−3
@@ -53,7 +53,7 @@ type JobsDeleteResource =
53 "v1" :>
53 "v1" :>
54 "jobs" :>
54 "jobs" :>
55 Capture "jobId" Text :>
55 Capture "jobId" Text :>
56− QueryParam "$.xgafv" Text :>
56+ QueryParam "$.xgafv" Xgafv :>
57 QueryParam "upload_protocol" Text :>
57 QueryParam "upload_protocol" Text :>
58 QueryParam "pp" Bool :>
58 QueryParam "pp" Bool :>
59 QueryParam "access_token" Text :>
59 QueryParam "access_token" Text :>
@@ -67,7 +67,7 @@ type JobsDeleteResource =
67--
67--
68-- /See:/ 'jobsDelete' smart constructor.
68-- /See:/ 'jobsDelete' smart constructor.
69data JobsDelete = JobsDelete'
69data JobsDelete = JobsDelete'
70− { _jdXgafv :: !(Maybe Text)
70+ { _jdXgafv :: !(Maybe Xgafv)
71 , _jdJobId :: !Text
71 , _jdJobId :: !Text
72 , _jdUploadProtocol :: !(Maybe Text)
72 , _jdUploadProtocol :: !(Maybe Text)
73 , _jdPp :: !Bool
73 , _jdPp :: !Bool
@@ -116,7 +116,7 @@ jobsDelete pJdJobId_ =
116 }
116 }
117
117
118-- | V1 error format.
118-- | V1 error format.
119−jdXgafv :: Lens' JobsDelete (Maybe Text)
119+jdXgafv :: Lens' JobsDelete (Maybe Xgafv)
120jdXgafv = lens _jdXgafv (\ s a -> s{_jdXgafv = a})
120jdXgafv = lens _jdXgafv (\ s a -> s{_jdXgafv = a})
121
121
122-- | The ID of the job to delete.
122-- | The ID of the job to delete.
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/Get.hs+3−3
@@ -53,7 +53,7 @@ type JobsGetResource =
53 "v1" :>
53 "v1" :>
54 "jobs" :>
54 "jobs" :>
55 Capture "jobId" Text :>
55 Capture "jobId" Text :>
56− QueryParam "$.xgafv" Text :>
56+ QueryParam "$.xgafv" Xgafv :>
57 QueryParam "upload_protocol" Text :>
57 QueryParam "upload_protocol" Text :>
58 QueryParam "pp" Bool :>
58 QueryParam "pp" Bool :>
59 QueryParam "access_token" Text :>
59 QueryParam "access_token" Text :>
@@ -67,7 +67,7 @@ type JobsGetResource =
67--
67--
68-- /See:/ 'jobsGet' smart constructor.
68-- /See:/ 'jobsGet' smart constructor.
69data JobsGet = JobsGet'
69data JobsGet = JobsGet'
70− { _jgXgafv :: !(Maybe Text)
70+ { _jgXgafv :: !(Maybe Xgafv)
71 , _jgJobId :: !Text
71 , _jgJobId :: !Text
72 , _jgUploadProtocol :: !(Maybe Text)
72 , _jgUploadProtocol :: !(Maybe Text)
73 , _jgPp :: !Bool
73 , _jgPp :: !Bool
@@ -116,7 +116,7 @@ jobsGet pJgJobId_ =
116 }
116 }
117
117
118-- | V1 error format.
118-- | V1 error format.
119−jgXgafv :: Lens' JobsGet (Maybe Text)
119+jgXgafv :: Lens' JobsGet (Maybe Xgafv)
120jgXgafv = lens _jgXgafv (\ s a -> s{_jgXgafv = a})
120jgXgafv = lens _jgXgafv (\ s a -> s{_jgXgafv = a})
121
121
122-- | The ID of the job to retrieve.
122-- | The ID of the job to retrieve.
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/List.hs+3−3
@@ -54,7 +54,7 @@ import Network.Google.YouTubeReporting.Types
54type JobsListResource =
54type JobsListResource =
55 "v1" :>
55 "v1" :>
56 "jobs" :>
56 "jobs" :>
57− QueryParam "$.xgafv" Text :>
57+ QueryParam "$.xgafv" Xgafv :>
58 QueryParam "upload_protocol" Text :>
58 QueryParam "upload_protocol" Text :>
59 QueryParam "pp" Bool :>
59 QueryParam "pp" Bool :>
60 QueryParam "access_token" Text :>
60 QueryParam "access_token" Text :>
@@ -72,7 +72,7 @@ type JobsListResource =
72--
72--
73-- /See:/ 'jobsList' smart constructor.
73-- /See:/ 'jobsList' smart constructor.
74data JobsList = JobsList'
74data JobsList = JobsList'
75− { _jlXgafv :: !(Maybe Text)
75+ { _jlXgafv :: !(Maybe Xgafv)
76 , _jlUploadProtocol :: !(Maybe Text)
76 , _jlUploadProtocol :: !(Maybe Text)
77 , _jlPp :: !Bool
77 , _jlPp :: !Bool
78 , _jlAccessToken :: !(Maybe Text)
78 , _jlAccessToken :: !(Maybe Text)
@@ -128,7 +128,7 @@ jobsList =
128 }
128 }
129
129
130-- | V1 error format.
130-- | V1 error format.
131−jlXgafv :: Lens' JobsList (Maybe Text)
131+jlXgafv :: Lens' JobsList (Maybe Xgafv)
132jlXgafv = lens _jlXgafv (\ s a -> s{_jlXgafv = a})
132jlXgafv = lens _jlXgafv (\ s a -> s{_jlXgafv = a})
133
133
134-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
134-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/Get.hs+3−3
@@ -56,7 +56,7 @@ type JobsReportsGetResource =
56 Capture "jobId" Text :>
56 Capture "jobId" Text :>
57 "reports" :>
57 "reports" :>
58 Capture "reportId" Text :>
58 Capture "reportId" Text :>
59− QueryParam "$.xgafv" Text :>
59+ QueryParam "$.xgafv" Xgafv :>
60 QueryParam "upload_protocol" Text :>
60 QueryParam "upload_protocol" Text :>
61 QueryParam "pp" Bool :>
61 QueryParam "pp" Bool :>
62 QueryParam "access_token" Text :>
62 QueryParam "access_token" Text :>
@@ -70,7 +70,7 @@ type JobsReportsGetResource =
70--
70--
71-- /See:/ 'jobsReportsGet' smart constructor.
71-- /See:/ 'jobsReportsGet' smart constructor.
72data JobsReportsGet = JobsReportsGet'
72data JobsReportsGet = JobsReportsGet'
73− { _jrgXgafv :: !(Maybe Text)
73+ { _jrgXgafv :: !(Maybe Xgafv)
74 , _jrgJobId :: !Text
74 , _jrgJobId :: !Text
75 , _jrgUploadProtocol :: !(Maybe Text)
75 , _jrgUploadProtocol :: !(Maybe Text)
76 , _jrgPp :: !Bool
76 , _jrgPp :: !Bool
@@ -124,7 +124,7 @@ jobsReportsGet pJrgJobId_ pJrgReportId_ =
124 }
124 }
125
125
126-- | V1 error format.
126-- | V1 error format.
127−jrgXgafv :: Lens' JobsReportsGet (Maybe Text)
127+jrgXgafv :: Lens' JobsReportsGet (Maybe Xgafv)
128jrgXgafv = lens _jrgXgafv (\ s a -> s{_jrgXgafv = a})
128jrgXgafv = lens _jrgXgafv (\ s a -> s{_jrgXgafv = a})
129
129
130-- | The ID of the job.
130-- | The ID of the job.
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/List.hs+15−12
@@ -60,14 +60,14 @@ type JobsReportsListResource =
60 "jobs" :>
60 "jobs" :>
61 Capture "jobId" Text :>
61 Capture "jobId" Text :>
62 "reports" :>
62 "reports" :>
63− QueryParam "createdAfter" Text :>
63+ QueryParam "createdAfter" DateTime' :>
64− QueryParam "$.xgafv" Text :>
64+ QueryParam "$.xgafv" Xgafv :>
65 QueryParam "upload_protocol" Text :>
65 QueryParam "upload_protocol" Text :>
66 QueryParam "pp" Bool :>
66 QueryParam "pp" Bool :>
67 QueryParam "access_token" Text :>
67 QueryParam "access_token" Text :>
68 QueryParam "uploadType" Text :>
68 QueryParam "uploadType" Text :>
69− QueryParam "startTimeAtOrAfter" Text :>
69+ QueryParam "startTimeAtOrAfter" DateTime' :>
70− QueryParam "startTimeBefore" Text :>
70+ QueryParam "startTimeBefore" DateTime' :>
71 QueryParam "onBehalfOfContentOwner" Text :>
71 QueryParam "onBehalfOfContentOwner" Text :>
72 QueryParam "bearer_token" Text :>
72 QueryParam "bearer_token" Text :>
73 QueryParam "pageToken" Text :>
73 QueryParam "pageToken" Text :>
@@ -81,15 +81,15 @@ type JobsReportsListResource =
81--
81--
82-- /See:/ 'jobsReportsList' smart constructor.
82-- /See:/ 'jobsReportsList' smart constructor.
83data JobsReportsList = JobsReportsList'
83data JobsReportsList = JobsReportsList'
84− { _jrlCreatedAfter :: !(Maybe Text)
84+ { _jrlCreatedAfter :: !(Maybe DateTime')
85− , _jrlXgafv :: !(Maybe Text)
85+ , _jrlXgafv :: !(Maybe Xgafv)
86 , _jrlJobId :: !Text
86 , _jrlJobId :: !Text
87 , _jrlUploadProtocol :: !(Maybe Text)
87 , _jrlUploadProtocol :: !(Maybe Text)
88 , _jrlPp :: !Bool
88 , _jrlPp :: !Bool
89 , _jrlAccessToken :: !(Maybe Text)
89 , _jrlAccessToken :: !(Maybe Text)
90 , _jrlUploadType :: !(Maybe Text)
90 , _jrlUploadType :: !(Maybe Text)
91− , _jrlStartTimeAtOrAfter :: !(Maybe Text)
91+ , _jrlStartTimeAtOrAfter :: !(Maybe DateTime')
92− , _jrlStartTimeBefore :: !(Maybe Text)
92+ , _jrlStartTimeBefore :: !(Maybe DateTime')
93 , _jrlOnBehalfOfContentOwner :: !(Maybe Text)
93 , _jrlOnBehalfOfContentOwner :: !(Maybe Text)
94 , _jrlBearerToken :: !(Maybe Text)
94 , _jrlBearerToken :: !(Maybe Text)
95 , _jrlPageToken :: !(Maybe Text)
95 , _jrlPageToken :: !(Maybe Text)
@@ -151,13 +151,14 @@ jobsReportsList pJrlJobId_ =
151
151
152-- | If set, only reports created after the specified date\/time are
152-- | If set, only reports created after the specified date\/time are
153-- returned.
153-- returned.
154−jrlCreatedAfter :: Lens' JobsReportsList (Maybe Text)
154+jrlCreatedAfter :: Lens' JobsReportsList (Maybe UTCTime)
155jrlCreatedAfter
155jrlCreatedAfter
156 = lens _jrlCreatedAfter
156 = lens _jrlCreatedAfter
157 (\ s a -> s{_jrlCreatedAfter = a})
157 (\ s a -> s{_jrlCreatedAfter = a})
158+ . mapping _DateTime
158
159
159-- | V1 error format.
160-- | V1 error format.
160−jrlXgafv :: Lens' JobsReportsList (Maybe Text)
161+jrlXgafv :: Lens' JobsReportsList (Maybe Xgafv)
161jrlXgafv = lens _jrlXgafv (\ s a -> s{_jrlXgafv = a})
162jrlXgafv = lens _jrlXgafv (\ s a -> s{_jrlXgafv = a})
162
163
163-- | The ID of the job.
164-- | The ID of the job.
@@ -188,17 +189,19 @@ jrlUploadType
188
189
189-- | If set, only reports whose start time is greater than or equal the
190-- | If set, only reports whose start time is greater than or equal the
190-- specified date\/time are returned.
191-- specified date\/time are returned.
191−jrlStartTimeAtOrAfter :: Lens' JobsReportsList (Maybe Text)
192+jrlStartTimeAtOrAfter :: Lens' JobsReportsList (Maybe UTCTime)
192jrlStartTimeAtOrAfter
193jrlStartTimeAtOrAfter
193 = lens _jrlStartTimeAtOrAfter
194 = lens _jrlStartTimeAtOrAfter
194 (\ s a -> s{_jrlStartTimeAtOrAfter = a})
195 (\ s a -> s{_jrlStartTimeAtOrAfter = a})
196+ . mapping _DateTime
195
197
196-- | If set, only reports whose start time is smaller than the specified
198-- | If set, only reports whose start time is smaller than the specified
197-- date\/time are returned.
199-- date\/time are returned.
198−jrlStartTimeBefore :: Lens' JobsReportsList (Maybe Text)
200+jrlStartTimeBefore :: Lens' JobsReportsList (Maybe UTCTime)
199jrlStartTimeBefore
201jrlStartTimeBefore
200 = lens _jrlStartTimeBefore
202 = lens _jrlStartTimeBefore
201 (\ s a -> s{_jrlStartTimeBefore = a})
203 (\ s a -> s{_jrlStartTimeBefore = a})
204+ . mapping _DateTime
202
205
203-- | The content owner\'s external ID on which behalf the user is acting on.
206-- | The content owner\'s external ID on which behalf the user is acting on.
204-- If not set, the user is acting for himself (his own channel).
207-- If not set, the user is acting for himself (his own channel).
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/Media/Download.hs+4−4
@@ -53,7 +53,7 @@ type MediaDownloadResource =
53 "v1" :>
53 "v1" :>
54 "media" :>
54 "media" :>
55 Capture "resourceName" Text :>
55 Capture "resourceName" Text :>
56− QueryParam "$.xgafv" Text :>
56+ QueryParam "$.xgafv" Xgafv :>
57 QueryParam "upload_protocol" Text :>
57 QueryParam "upload_protocol" Text :>
58 QueryParam "pp" Bool :>
58 QueryParam "pp" Bool :>
59 QueryParam "access_token" Text :>
59 QueryParam "access_token" Text :>
@@ -65,7 +65,7 @@ type MediaDownloadResource =
65 "v1" :>
65 "v1" :>
66 "media" :>
66 "media" :>
67 Capture "resourceName" Text :>
67 Capture "resourceName" Text :>
68− QueryParam "$.xgafv" Text :>
68+ QueryParam "$.xgafv" Xgafv :>
69 QueryParam "upload_protocol" Text :>
69 QueryParam "upload_protocol" Text :>
70 QueryParam "pp" Bool :>
70 QueryParam "pp" Bool :>
71 QueryParam "access_token" Text :>
71 QueryParam "access_token" Text :>
@@ -80,7 +80,7 @@ type MediaDownloadResource =
80--
80--
81-- /See:/ 'mediaDownload' smart constructor.
81-- /See:/ 'mediaDownload' smart constructor.
82data MediaDownload' = MediaDownload''
82data MediaDownload' = MediaDownload''
83− { _mdXgafv :: !(Maybe Text)
83+ { _mdXgafv :: !(Maybe Xgafv)
84 , _mdUploadProtocol :: !(Maybe Text)
84 , _mdUploadProtocol :: !(Maybe Text)
85 , _mdResourceName :: !Text
85 , _mdResourceName :: !Text
86 , _mdPp :: !Bool
86 , _mdPp :: !Bool
@@ -125,7 +125,7 @@ mediaDownload pMdResourceName_ =
125 }
125 }
126
126
127-- | V1 error format.
127-- | V1 error format.
128−mdXgafv :: Lens' MediaDownload' (Maybe Text)
128+mdXgafv :: Lens' MediaDownload' (Maybe Xgafv)
129mdXgafv = lens _mdXgafv (\ s a -> s{_mdXgafv = a})
129mdXgafv = lens _mdXgafv (\ s a -> s{_mdXgafv = a})
130
130
131-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
131-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
gogol-youtube-reporting/gen/Network/Google/Resource/YouTubeReporting/ReportTypes/List.hs+3−3
@@ -54,7 +54,7 @@ import Network.Google.YouTubeReporting.Types
54type ReportTypesListResource =
54type ReportTypesListResource =
55 "v1" :>
55 "v1" :>
56 "reportTypes" :>
56 "reportTypes" :>
57− QueryParam "$.xgafv" Text :>
57+ QueryParam "$.xgafv" Xgafv :>
58 QueryParam "upload_protocol" Text :>
58 QueryParam "upload_protocol" Text :>
59 QueryParam "pp" Bool :>
59 QueryParam "pp" Bool :>
60 QueryParam "access_token" Text :>
60 QueryParam "access_token" Text :>
@@ -72,7 +72,7 @@ type ReportTypesListResource =
72--
72--
73-- /See:/ 'reportTypesList' smart constructor.
73-- /See:/ 'reportTypesList' smart constructor.
74data ReportTypesList = ReportTypesList'
74data ReportTypesList = ReportTypesList'
75− { _rtlXgafv :: !(Maybe Text)
75+ { _rtlXgafv :: !(Maybe Xgafv)
76 , _rtlUploadProtocol :: !(Maybe Text)
76 , _rtlUploadProtocol :: !(Maybe Text)
77 , _rtlPp :: !Bool
77 , _rtlPp :: !Bool
78 , _rtlAccessToken :: !(Maybe Text)
78 , _rtlAccessToken :: !(Maybe Text)
@@ -128,7 +128,7 @@ reportTypesList =
128 }
128 }
129
129
130-- | V1 error format.
130-- | V1 error format.
131−rtlXgafv :: Lens' ReportTypesList (Maybe Text)
131+rtlXgafv :: Lens' ReportTypesList (Maybe Xgafv)
132rtlXgafv = lens _rtlXgafv (\ s a -> s{_rtlXgafv = a})
132rtlXgafv = lens _rtlXgafv (\ s a -> s{_rtlXgafv = a})
133
133
134-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
134-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
gogol-youtube-reporting/gen/Network/Google/YouTubeReporting.hs+3
@@ -99,6 +99,9 @@ module Network.Google.YouTubeReporting
99 , jExpireTime
99 , jExpireTime
100 , jCreateTime
100 , jCreateTime
101
101
102+ -- ** Xgafv
103+ , Xgafv (..)
104+
102 -- ** ListJobsResponse
105 -- ** ListJobsResponse
103 , ListJobsResponse
106 , ListJobsResponse
104 , listJobsResponse
107 , listJobsResponse
gogol-youtube-reporting/gen/Network/Google/YouTubeReporting/Types.hs+3
@@ -65,6 +65,9 @@ module Network.Google.YouTubeReporting.Types
65 , jExpireTime
65 , jExpireTime
66 , jCreateTime
66 , jCreateTime
67
67
68+ -- * Xgafv
69+ , Xgafv (..)
70+
68 -- * ListJobsResponse
71 -- * ListJobsResponse
69 , ListJobsResponse
72 , ListJobsResponse
70 , listJobsResponse
73 , listJobsResponse
gogol-youtube-reporting/gen/Network/Google/YouTubeReporting/Types/Product.hs+27−19
@@ -102,12 +102,12 @@ instance ToJSON Empty where
102-- /See:/ 'report' smart constructor.
102-- /See:/ 'report' smart constructor.
103data Report = Report'
103data Report = Report'
104 { _rJobId :: !(Maybe Text)
104 { _rJobId :: !(Maybe Text)
105− , _rStartTime :: !(Maybe Text)
105+ , _rStartTime :: !(Maybe DateTime')
106 , _rDownloadURL :: !(Maybe Text)
106 , _rDownloadURL :: !(Maybe Text)
107− , _rEndTime :: !(Maybe Text)
107+ , _rEndTime :: !(Maybe DateTime')
108 , _rId :: !(Maybe Text)
108 , _rId :: !(Maybe Text)
109− , _rCreateTime :: !(Maybe Text)
109+ , _rCreateTime :: !(Maybe DateTime')
110− , _rJobExpireTime :: !(Maybe Text)
110+ , _rJobExpireTime :: !(Maybe DateTime')
111 } deriving (Eq,Show,Data,Typeable,Generic)
111 } deriving (Eq,Show,Data,Typeable,Generic)
112
112
113-- | Creates a value of 'Report' with the minimum fields required to make a request.
113-- | Creates a value of 'Report' with the minimum fields required to make a request.
@@ -146,9 +146,10 @@ rJobId = lens _rJobId (\ s a -> s{_rJobId = a})
146
146
147-- | The start of the time period that the report instance covers. The value
147-- | The start of the time period that the report instance covers. The value
148-- is inclusive.
148-- is inclusive.
149−rStartTime :: Lens' Report (Maybe Text)
149+rStartTime :: Lens' Report (Maybe UTCTime)
150rStartTime
150rStartTime
151− = lens _rStartTime (\ s a -> s{_rStartTime = a})
151+ = lens _rStartTime (\ s a -> s{_rStartTime = a}) .
152+ mapping _DateTime
152
153
153-- | The URL from which the report can be downloaded (max. 1000 characters).
154-- | The URL from which the report can be downloaded (max. 1000 characters).
154rDownloadURL :: Lens' Report (Maybe Text)
155rDownloadURL :: Lens' Report (Maybe Text)
@@ -157,23 +158,27 @@ rDownloadURL
157
158
158-- | The end of the time period that the report instance covers. The value is
159-- | The end of the time period that the report instance covers. The value is
159-- exclusive.
160-- exclusive.
160−rEndTime :: Lens' Report (Maybe Text)
161+rEndTime :: Lens' Report (Maybe UTCTime)
162+rEndTime
161−rEndTime = lens _rEndTime (\ s a -> s{_rEndTime = a})
163+ = lens _rEndTime (\ s a -> s{_rEndTime = a}) .
164+ mapping _DateTime
162
165
163-- | The server-generated ID of the report.
166-- | The server-generated ID of the report.
164rId :: Lens' Report (Maybe Text)
167rId :: Lens' Report (Maybe Text)
165rId = lens _rId (\ s a -> s{_rId = a})
168rId = lens _rId (\ s a -> s{_rId = a})
166
169
167-- | The date\/time when this report was created.
170-- | The date\/time when this report was created.
168−rCreateTime :: Lens' Report (Maybe Text)
171+rCreateTime :: Lens' Report (Maybe UTCTime)
169rCreateTime
172rCreateTime
170− = lens _rCreateTime (\ s a -> s{_rCreateTime = a})
173+ = lens _rCreateTime (\ s a -> s{_rCreateTime = a}) .
174+ mapping _DateTime
171
175
172-- | The date\/time when the job this report belongs to will expire\/expired.
176-- | The date\/time when the job this report belongs to will expire\/expired.
173−rJobExpireTime :: Lens' Report (Maybe Text)
177+rJobExpireTime :: Lens' Report (Maybe UTCTime)
174rJobExpireTime
178rJobExpireTime
175 = lens _rJobExpireTime
179 = lens _rJobExpireTime
176 (\ s a -> s{_rJobExpireTime = a})
180 (\ s a -> s{_rJobExpireTime = a})
181+ . mapping _DateTime
177
182
178instance FromJSON Report where
183instance FromJSON Report where
179 parseJSON
184 parseJSON
@@ -295,8 +300,8 @@ data Job = Job'
295 , _jId :: !(Maybe Text)
300 , _jId :: !(Maybe Text)
296 , _jSystemManaged :: !(Maybe Bool)
301 , _jSystemManaged :: !(Maybe Bool)
297 , _jReportTypeId :: !(Maybe Text)
302 , _jReportTypeId :: !(Maybe Text)
298− , _jExpireTime :: !(Maybe Text)
303+ , _jExpireTime :: !(Maybe DateTime')
299− , _jCreateTime :: !(Maybe Text)
304+ , _jCreateTime :: !(Maybe DateTime')
300 } deriving (Eq,Show,Data,Typeable,Generic)
305 } deriving (Eq,Show,Data,Typeable,Generic)
301
306
302-- | Creates a value of 'Job' with the minimum fields required to make a request.
307-- | Creates a value of 'Job' with the minimum fields required to make a request.
@@ -350,14 +355,16 @@ jReportTypeId
350
355
351-- | The date\/time when this job will expire\/expired. After a job expired,
356-- | The date\/time when this job will expire\/expired. After a job expired,
352-- no new reports are generated.
357-- no new reports are generated.
353−jExpireTime :: Lens' Job (Maybe Text)
358+jExpireTime :: Lens' Job (Maybe UTCTime)
354jExpireTime
359jExpireTime
355− = lens _jExpireTime (\ s a -> s{_jExpireTime = a})
360+ = lens _jExpireTime (\ s a -> s{_jExpireTime = a}) .
361+ mapping _DateTime
356
362
357-- | The creation date\/time of the job.
363-- | The creation date\/time of the job.
358−jCreateTime :: Lens' Job (Maybe Text)
364+jCreateTime :: Lens' Job (Maybe UTCTime)
359jCreateTime
365jCreateTime
360− = lens _jCreateTime (\ s a -> s{_jCreateTime = a})
366+ = lens _jCreateTime (\ s a -> s{_jCreateTime = a}) .
367+ mapping _DateTime
361
368
362instance FromJSON Job where
369instance FromJSON Job where
363 parseJSON
370 parseJSON
@@ -438,7 +445,7 @@ instance ToJSON ListJobsResponse where
438data ReportType = ReportType'
445data ReportType = ReportType'
439 { _rtName :: !(Maybe Text)
446 { _rtName :: !(Maybe Text)
440 , _rtId :: !(Maybe Text)
447 , _rtId :: !(Maybe Text)
441− , _rtDeprecateTime :: !(Maybe Text)
448+ , _rtDeprecateTime :: !(Maybe DateTime')
442 , _rtSystemManaged :: !(Maybe Bool)
449 , _rtSystemManaged :: !(Maybe Bool)
443 } deriving (Eq,Show,Data,Typeable,Generic)
450 } deriving (Eq,Show,Data,Typeable,Generic)
444
451
@@ -472,10 +479,11 @@ rtId :: Lens' ReportType (Maybe Text)
472rtId = lens _rtId (\ s a -> s{_rtId = a})
479rtId = lens _rtId (\ s a -> s{_rtId = a})
473
480
474-- | The date\/time when this report type was\/will be deprecated.
481-- | The date\/time when this report type was\/will be deprecated.
475−rtDeprecateTime :: Lens' ReportType (Maybe Text)
482+rtDeprecateTime :: Lens' ReportType (Maybe UTCTime)
476rtDeprecateTime
483rtDeprecateTime
477 = lens _rtDeprecateTime
484 = lens _rtDeprecateTime
478 (\ s a -> s{_rtDeprecateTime = a})
485 (\ s a -> s{_rtDeprecateTime = a})
486+ . mapping _DateTime
479
487
480-- | True if this a system-managed report type; otherwise false. Reporting
488-- | True if this a system-managed report type; otherwise false. Reporting
481-- jobs for system-managed report types are created automatically and can
489-- jobs for system-managed report types are created automatically and can
gogol-youtube-reporting/gen/Network/Google/YouTubeReporting/Types/Sum.hs+29
@@ -17,3 +17,32 @@
17module Network.Google.YouTubeReporting.Types.Sum where
17module Network.Google.YouTubeReporting.Types.Sum where
18
18
19import Network.Google.Prelude
19import Network.Google.Prelude
20+
21+-- | V1 error format.
22+data Xgafv
23+ = X1
24+ -- ^ @1@
25+ -- v1 error format
26+ | X2
27+ -- ^ @2@
28+ -- v2 error format
29+ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
30+
31+instance Hashable Xgafv
32+
33+instance FromHttpApiData Xgafv where
34+ parseQueryParam = \case
35+ "1" -> Right X1
36+ "2" -> Right X2
37+ x -> Left ("Unable to parse Xgafv from: " <> x)
38+
39+instance ToHttpApiData Xgafv where
40+ toQueryParam = \case
41+ X1 -> "1"
42+ X2 -> "2"
43+
44+instance FromJSON Xgafv where
45+ parseJSON = parseJSONText "Xgafv"
46+
47+instance ToJSON Xgafv where
48+ toJSON = toJSONText