@@ -101,12 +101,13 @@ instance ToJSON Empty where
101101--
102102-- /See:/ 'report' smart constructor.
103103data Report = Report'
104− { _rJobId :: !(Maybe Text)
105− , _rStartTime :: !(Maybe Text)
106− , _rDownloadURL :: !(Maybe Text)
107− , _rEndTime :: !(Maybe Text)
108− , _rId :: !(Maybe Text)
109− , _rCreateTime :: !(Maybe Text)
104+ { _rJobId :: !(Maybe Text)
105+ , _rStartTime :: !(Maybe Text)
106+ , _rDownloadURL :: !(Maybe Text)
107+ , _rEndTime :: !(Maybe Text)
108+ , _rId :: !(Maybe Text)
109+ , _rCreateTime :: !(Maybe Text)
110+ , _rJobExpireTime :: !(Maybe Text)
110111 } deriving (Eq,Show,Data,Typeable,Generic)
111112
112113-- | Creates a value of 'Report' with the minimum fields required to make a request.
@@ -124,6 +125,8 @@ data Report = Report'
124125-- * 'rId'
125126--
126127-- * 'rCreateTime'
128+--
129+-- * 'rJobExpireTime'
127130report
128131 :: Report
129132report =
@@ -134,6 +137,7 @@ report =
134137 , _rEndTime = Nothing
135138 , _rId = Nothing
136139 , _rCreateTime = Nothing
140+ , _rJobExpireTime = Nothing
137141 }
138142
139143-- | The ID of the job that created this report.
@@ -165,6 +169,12 @@ rCreateTime :: Lens' Report (Maybe Text)
165169rCreateTime
166170 = lens _rCreateTime (\ s a -> s{_rCreateTime = a})
167171
172+-- | The date\/time when the job this report belongs to will expire\/expired.
173+rJobExpireTime :: Lens' Report (Maybe Text)
174+rJobExpireTime
175+ = lens _rJobExpireTime
176+ (\ s a -> s{_rJobExpireTime = a})
177+
168178instance FromJSON Report where
169179 parseJSON
170180 = withObject "Report"
@@ -174,7 +184,8 @@ instance FromJSON Report where
174184 (o .:? "downloadUrl")
175185 <*> (o .:? "endTime")
176186 <*> (o .:? "id")
177− <*> (o .:? "createTime"))
187+ <*> (o .:? "createTime")
188+ <*> (o .:? "jobExpireTime"))
178189
179190instance ToJSON Report where
180191 toJSON Report'{..}
@@ -184,7 +195,8 @@ instance ToJSON Report where
184195 ("startTime" .=) <$> _rStartTime,
185196 ("downloadUrl" .=) <$> _rDownloadURL,
186197 ("endTime" .=) <$> _rEndTime, ("id" .=) <$> _rId,
187− ("createTime" .=) <$> _rCreateTime])
198+ ("createTime" .=) <$> _rCreateTime,
199+ ("jobExpireTime" .=) <$> _rJobExpireTime])
188200
189201-- | Response message for ReportingService.ListReportTypes.
190202--
@@ -283,6 +295,7 @@ data Job = Job'
283295 , _jId :: !(Maybe Text)
284296 , _jSystemManaged :: !(Maybe Bool)
285297 , _jReportTypeId :: !(Maybe Text)
298+ , _jExpireTime :: !(Maybe Text)
286299 , _jCreateTime :: !(Maybe Text)
287300 } deriving (Eq,Show,Data,Typeable,Generic)
288301
@@ -298,6 +311,8 @@ data Job = Job'
298311--
299312-- * 'jReportTypeId'
300313--
314+-- * 'jExpireTime'
315+--
301316-- * 'jCreateTime'
302317job
303318 :: Job
@@ -307,6 +322,7 @@ job =
307322 , _jId = Nothing
308323 , _jSystemManaged = Nothing
309324 , _jReportTypeId = Nothing
325+ , _jExpireTime = Nothing
310326 , _jCreateTime = Nothing
311327 }
312328
@@ -332,6 +348,12 @@ jReportTypeId
332348 = lens _jReportTypeId
333349 (\ s a -> s{_jReportTypeId = a})
334350
351+-- | The date\/time when this job will expire\/expired. After a job expired,
352+-- no new reports are generated.
353+jExpireTime :: Lens' Job (Maybe Text)
354+jExpireTime
355+ = lens _jExpireTime (\ s a -> s{_jExpireTime = a})
356+
335357-- | The creation date\/time of the job.
336358jCreateTime :: Lens' Job (Maybe Text)
337359jCreateTime
@@ -345,6 +367,7 @@ instance FromJSON Job where
345367 (o .:? "name") <*> (o .:? "id") <*>
346368 (o .:? "systemManaged")
347369 <*> (o .:? "reportTypeId")
370+ <*> (o .:? "expireTime")
348371 <*> (o .:? "createTime"))
349372
350373instance ToJSON Job where
@@ -354,6 +377,7 @@ instance ToJSON Job where
354377 [("name" .=) <$> _jName, ("id" .=) <$> _jId,
355378 ("systemManaged" .=) <$> _jSystemManaged,
356379 ("reportTypeId" .=) <$> _jReportTypeId,
380+ ("expireTime" .=) <$> _jExpireTime,
357381 ("createTime" .=) <$> _jCreateTime])
358382
359383-- | Response message for ReportingService.ListJobs.
@@ -414,6 +438,7 @@ instance ToJSON ListJobsResponse where
414438data ReportType = ReportType'
415439 { _rtName :: !(Maybe Text)
416440 , _rtId :: !(Maybe Text)
441+ , _rtDeprecateTime :: !(Maybe Text)
417442 , _rtSystemManaged :: !(Maybe Bool)
418443 } deriving (Eq,Show,Data,Typeable,Generic)
419444
@@ -425,6 +450,8 @@ data ReportType = ReportType'
425450--
426451-- * 'rtId'
427452--
453+-- * 'rtDeprecateTime'
454+--
428455-- * 'rtSystemManaged'
429456reportType
430457 :: ReportType
@@ -432,6 +459,7 @@ reportType =
432459 ReportType'
433460 { _rtName = Nothing
434461 , _rtId = Nothing
462+ , _rtDeprecateTime = Nothing
435463 , _rtSystemManaged = Nothing
436464 }
437465
@@ -443,6 +471,12 @@ rtName = lens _rtName (\ s a -> s{_rtName = a})
443471rtId :: Lens' ReportType (Maybe Text)
444472rtId = lens _rtId (\ s a -> s{_rtId = a})
445473
474+-- | The date\/time when this report type was\/will be deprecated.
475+rtDeprecateTime :: Lens' ReportType (Maybe Text)
476+rtDeprecateTime
477+ = lens _rtDeprecateTime
478+ (\ s a -> s{_rtDeprecateTime = a})
479+
446480-- | True if this a system-managed report type; otherwise false. Reporting
447481-- jobs for system-managed report types are created automatically and can
448482-- thus not be used in the \`CreateJob\` method.
@@ -457,11 +491,13 @@ instance FromJSON ReportType where
457491 (\ o ->
458492 ReportType' <$>
459493 (o .:? "name") <*> (o .:? "id") <*>
460− (o .:? "systemManaged"))
494+ (o .:? "deprecateTime")
495+ <*> (o .:? "systemManaged"))
461496
462497instance ToJSON ReportType where
463498 toJSON ReportType'{..}
464499 = object
465500 (catMaybes
466501 [("name" .=) <$> _rtName, ("id" .=) <$> _rtId,
502+ ("deprecateTime" .=) <$> _rtDeprecateTime,
467503 ("systemManaged" .=) <$> _rtSystemManaged])