@@ -20,6 +20,371 @@ module Network.Google.PlayMoviesPartner.Types.Product where
2020import Network.Google.PlayMoviesPartner.Types.Sum
2121import Network.Google.Prelude
2222
23+-- | A Component is an element (audio, video, subtitle, artwork, trailer,
24+-- etc...) that is used in a set of ExperienceLocales. A Component is owned
25+-- by a Studio and managed either by the Studio itself or by one
26+-- Post-Production House. Each Component is identified by a
27+-- \`component_id\` and its \`type\`.
28+--
29+-- /See:/ 'component' smart constructor.
30+data Component = Component'
31+ { _cStatus :: !(Maybe Text)
32+ , _cPphName :: !(Maybe Text)
33+ , _cStudioName :: !(Maybe Text)
34+ , _cElIds :: !(Maybe [Text])
35+ , _cReceivedTime :: !(Maybe Text)
36+ , _cPriority :: !(Maybe (Textual Double))
37+ , _cCustomIds :: !(Maybe [Text])
38+ , _cAltCutIds :: !(Maybe [Text])
39+ , _cProcessingErrors :: !(Maybe [Text])
40+ , _cPlayableUnitType :: !(Maybe Text)
41+ , _cEditLevelEidrs :: !(Maybe [Text])
42+ , _cApprovedTime :: !(Maybe Text)
43+ , _cName :: !(Maybe Text)
44+ , _cTitleLevelEidrs :: !(Maybe [Text])
45+ , _cRejectionNote :: !(Maybe Text)
46+ , _cComponentId :: !(Maybe Text)
47+ , _cLanguage :: !(Maybe Text)
48+ , _cStatusDetail :: !(Maybe Text)
49+ , _cType :: !(Maybe Text)
50+ , _cNormalizedPriority :: !(Maybe Text)
51+ , _cComponentDetailType :: !(Maybe Text)
52+ , _cFilename :: !(Maybe Text)
53+ } deriving (Eq,Show,Data,Typeable,Generic)
54+
55+-- | Creates a value of 'Component' with the minimum fields required to make a request.
56+--
57+-- Use one of the following lenses to modify other fields as desired:
58+--
59+-- * 'cStatus'
60+--
61+-- * 'cPphName'
62+--
63+-- * 'cStudioName'
64+--
65+-- * 'cElIds'
66+--
67+-- * 'cReceivedTime'
68+--
69+-- * 'cPriority'
70+--
71+-- * 'cCustomIds'
72+--
73+-- * 'cAltCutIds'
74+--
75+-- * 'cProcessingErrors'
76+--
77+-- * 'cPlayableUnitType'
78+--
79+-- * 'cEditLevelEidrs'
80+--
81+-- * 'cApprovedTime'
82+--
83+-- * 'cName'
84+--
85+-- * 'cTitleLevelEidrs'
86+--
87+-- * 'cRejectionNote'
88+--
89+-- * 'cComponentId'
90+--
91+-- * 'cLanguage'
92+--
93+-- * 'cStatusDetail'
94+--
95+-- * 'cType'
96+--
97+-- * 'cNormalizedPriority'
98+--
99+-- * 'cComponentDetailType'
100+--
101+-- * 'cFilename'
102+component
103+ :: Component
104+component =
105+ Component'
106+ { _cStatus = Nothing
107+ , _cPphName = Nothing
108+ , _cStudioName = Nothing
109+ , _cElIds = Nothing
110+ , _cReceivedTime = Nothing
111+ , _cPriority = Nothing
112+ , _cCustomIds = Nothing
113+ , _cAltCutIds = Nothing
114+ , _cProcessingErrors = Nothing
115+ , _cPlayableUnitType = Nothing
116+ , _cEditLevelEidrs = Nothing
117+ , _cApprovedTime = Nothing
118+ , _cName = Nothing
119+ , _cTitleLevelEidrs = Nothing
120+ , _cRejectionNote = Nothing
121+ , _cComponentId = Nothing
122+ , _cLanguage = Nothing
123+ , _cStatusDetail = Nothing
124+ , _cType = Nothing
125+ , _cNormalizedPriority = Nothing
126+ , _cComponentDetailType = Nothing
127+ , _cFilename = Nothing
128+ }
129+
130+-- | High-level status of the Component.
131+cStatus :: Lens' Component (Maybe Text)
132+cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
133+
134+-- | Name of the post-production house that manages the Component.
135+cPphName :: Lens' Component (Maybe Text)
136+cPphName = lens _cPphName (\ s a -> s{_cPphName = a})
137+
138+-- | Name of the studio that owns the Component.
139+cStudioName :: Lens' Component (Maybe Text)
140+cStudioName
141+ = lens _cStudioName (\ s a -> s{_cStudioName = a})
142+
143+-- | IDs internally generated by Google to uniquely identify the
144+-- ExperienceLocales for which the Component is used. Example:
145+-- \'KRZiVjY9h7t\'
146+cElIds :: Lens' Component [Text]
147+cElIds
148+ = lens _cElIds (\ s a -> s{_cElIds = a}) . _Default .
149+ _Coerce
150+
151+-- | Timestamp when the Component was received.
152+cReceivedTime :: Lens' Component (Maybe Text)
153+cReceivedTime
154+ = lens _cReceivedTime
155+ (\ s a -> s{_cReceivedTime = a})
156+
157+-- | Component priority, as defined by Google. The higher the value, the
158+-- higher the priority.
159+cPriority :: Lens' Component (Maybe Double)
160+cPriority
161+ = lens _cPriority (\ s a -> s{_cPriority = a}) .
162+ mapping _Coerce
163+
164+-- | List of custom IDs (defined by the partner) linked to the
165+-- ExperienceLocale using this Component. Example: \"R86241\"
166+cCustomIds :: Lens' Component [Text]
167+cCustomIds
168+ = lens _cCustomIds (\ s a -> s{_cCustomIds = a}) .
169+ _Default
170+ . _Coerce
171+
172+-- | List of Alternative Cut IDs, sometimes available in lieu of the main
173+-- Edit-level EIDR IDs. This is not an EIDR ID, but a Partner-provided ID.
174+-- Example: \"206346_79838\".
175+cAltCutIds :: Lens' Component [Text]
176+cAltCutIds
177+ = lens _cAltCutIds (\ s a -> s{_cAltCutIds = a}) .
178+ _Default
179+ . _Coerce
180+
181+-- | Processing errors during XML file parsing. Example: \'Invalid input
182+-- file\'
183+cProcessingErrors :: Lens' Component [Text]
184+cProcessingErrors
185+ = lens _cProcessingErrors
186+ (\ s a -> s{_cProcessingErrors = a})
187+ . _Default
188+ . _Coerce
189+
190+-- | Type of the playable unit for which the Component is intended.
191+cPlayableUnitType :: Lens' Component (Maybe Text)
192+cPlayableUnitType
193+ = lens _cPlayableUnitType
194+ (\ s a -> s{_cPlayableUnitType = a})
195+
196+-- | List of Edit-level EIDR IDs. Example:
197+-- \"10.5240\/1489-49A2-3956-4B2D-FE16-6\".
198+cEditLevelEidrs :: Lens' Component [Text]
199+cEditLevelEidrs
200+ = lens _cEditLevelEidrs
201+ (\ s a -> s{_cEditLevelEidrs = a})
202+ . _Default
203+ . _Coerce
204+
205+-- | Timestamp when the Component was approved.
206+cApprovedTime :: Lens' Component (Maybe Text)
207+cApprovedTime
208+ = lens _cApprovedTime
209+ (\ s a -> s{_cApprovedTime = a})
210+
211+-- | Default Edit name, usually in the language of the country of origin.
212+-- Example: \"Googlers, The\".
213+cName :: Lens' Component (Maybe Text)
214+cName = lens _cName (\ s a -> s{_cName = a})
215+
216+-- | List of Title-level EIDR IDs. Example:
217+-- \"10.5240\/1489-49A2-3956-4B2D-FE16-5\".
218+cTitleLevelEidrs :: Lens' Component [Text]
219+cTitleLevelEidrs
220+ = lens _cTitleLevelEidrs
221+ (\ s a -> s{_cTitleLevelEidrs = a})
222+ . _Default
223+ . _Coerce
224+
225+-- | Notes explaining why a Component has been rejected.
226+cRejectionNote :: Lens' Component (Maybe Text)
227+cRejectionNote
228+ = lens _cRejectionNote
229+ (\ s a -> s{_cRejectionNote = a})
230+
231+-- | ID internally generated by Google to uniquely identify the Component.
232+-- Example: \'wteyrc_647xc\'
233+cComponentId :: Lens' Component (Maybe Text)
234+cComponentId
235+ = lens _cComponentId (\ s a -> s{_cComponentId = a})
236+
237+-- | Language of the component, using the \"BCP 47\" format. Examples:
238+-- \"en\", \"en-US\", \"es\", \"es-419\".
239+cLanguage :: Lens' Component (Maybe Text)
240+cLanguage
241+ = lens _cLanguage (\ s a -> s{_cLanguage = a})
242+
243+-- | Detailed status of the Component
244+cStatusDetail :: Lens' Component (Maybe Text)
245+cStatusDetail
246+ = lens _cStatusDetail
247+ (\ s a -> s{_cStatusDetail = a})
248+
249+-- | Type of the Component. Example: AUDIO_51
250+cType :: Lens' Component (Maybe Text)
251+cType = lens _cType (\ s a -> s{_cType = a})
252+
253+-- | A simpler representation of the priority.
254+cNormalizedPriority :: Lens' Component (Maybe Text)
255+cNormalizedPriority
256+ = lens _cNormalizedPriority
257+ (\ s a -> s{_cNormalizedPriority = a})
258+
259+-- | Detail about the type of the Component.
260+cComponentDetailType :: Lens' Component (Maybe Text)
261+cComponentDetailType
262+ = lens _cComponentDetailType
263+ (\ s a -> s{_cComponentDetailType = a})
264+
265+-- | File name of the Component when delivered.
266+cFilename :: Lens' Component (Maybe Text)
267+cFilename
268+ = lens _cFilename (\ s a -> s{_cFilename = a})
269+
270+instance FromJSON Component where
271+ parseJSON
272+ = withObject "Component"
273+ (\ o ->
274+ Component' <$>
275+ (o .:? "status") <*> (o .:? "pphName") <*>
276+ (o .:? "studioName")
277+ <*> (o .:? "elIds" .!= mempty)
278+ <*> (o .:? "receivedTime")
279+ <*> (o .:? "priority")
280+ <*> (o .:? "customIds" .!= mempty)
281+ <*> (o .:? "altCutIds" .!= mempty)
282+ <*> (o .:? "processingErrors" .!= mempty)
283+ <*> (o .:? "playableUnitType")
284+ <*> (o .:? "editLevelEidrs" .!= mempty)
285+ <*> (o .:? "approvedTime")
286+ <*> (o .:? "name")
287+ <*> (o .:? "titleLevelEidrs" .!= mempty)
288+ <*> (o .:? "rejectionNote")
289+ <*> (o .:? "componentId")
290+ <*> (o .:? "language")
291+ <*> (o .:? "statusDetail")
292+ <*> (o .:? "type")
293+ <*> (o .:? "normalizedPriority")
294+ <*> (o .:? "componentDetailType")
295+ <*> (o .:? "filename"))
296+
297+instance ToJSON Component where
298+ toJSON Component'{..}
299+ = object
300+ (catMaybes
301+ [("status" .=) <$> _cStatus,
302+ ("pphName" .=) <$> _cPphName,
303+ ("studioName" .=) <$> _cStudioName,
304+ ("elIds" .=) <$> _cElIds,
305+ ("receivedTime" .=) <$> _cReceivedTime,
306+ ("priority" .=) <$> _cPriority,
307+ ("customIds" .=) <$> _cCustomIds,
308+ ("altCutIds" .=) <$> _cAltCutIds,
309+ ("processingErrors" .=) <$> _cProcessingErrors,
310+ ("playableUnitType" .=) <$> _cPlayableUnitType,
311+ ("editLevelEidrs" .=) <$> _cEditLevelEidrs,
312+ ("approvedTime" .=) <$> _cApprovedTime,
313+ ("name" .=) <$> _cName,
314+ ("titleLevelEidrs" .=) <$> _cTitleLevelEidrs,
315+ ("rejectionNote" .=) <$> _cRejectionNote,
316+ ("componentId" .=) <$> _cComponentId,
317+ ("language" .=) <$> _cLanguage,
318+ ("statusDetail" .=) <$> _cStatusDetail,
319+ ("type" .=) <$> _cType,
320+ ("normalizedPriority" .=) <$> _cNormalizedPriority,
321+ ("componentDetailType" .=) <$> _cComponentDetailType,
322+ ("filename" .=) <$> _cFilename])
323+
324+-- | Response to the \'ListComponents\' method.
325+--
326+-- /See:/ 'listComponentsResponse' smart constructor.
327+data ListComponentsResponse = ListComponentsResponse'
328+ { _lcrComponents :: !(Maybe [Component])
329+ , _lcrNextPageToken :: !(Maybe Text)
330+ , _lcrTotalSize :: !(Maybe (Textual Int32))
331+ } deriving (Eq,Show,Data,Typeable,Generic)
332+
333+-- | Creates a value of 'ListComponentsResponse' with the minimum fields required to make a request.
334+--
335+-- Use one of the following lenses to modify other fields as desired:
336+--
337+-- * 'lcrComponents'
338+--
339+-- * 'lcrNextPageToken'
340+--
341+-- * 'lcrTotalSize'
342+listComponentsResponse
343+ :: ListComponentsResponse
344+listComponentsResponse =
345+ ListComponentsResponse'
346+ { _lcrComponents = Nothing
347+ , _lcrNextPageToken = Nothing
348+ , _lcrTotalSize = Nothing
349+ }
350+
351+-- | List of Components that match the request criteria.
352+lcrComponents :: Lens' ListComponentsResponse [Component]
353+lcrComponents
354+ = lens _lcrComponents
355+ (\ s a -> s{_lcrComponents = a})
356+ . _Default
357+ . _Coerce
358+
359+-- | See _List methods rules_ for info about this field.
360+lcrNextPageToken :: Lens' ListComponentsResponse (Maybe Text)
361+lcrNextPageToken
362+ = lens _lcrNextPageToken
363+ (\ s a -> s{_lcrNextPageToken = a})
364+
365+-- | See _List methods rules_ for more information about this field.
366+lcrTotalSize :: Lens' ListComponentsResponse (Maybe Int32)
367+lcrTotalSize
368+ = lens _lcrTotalSize (\ s a -> s{_lcrTotalSize = a})
369+ . mapping _Coerce
370+
371+instance FromJSON ListComponentsResponse where
372+ parseJSON
373+ = withObject "ListComponentsResponse"
374+ (\ o ->
375+ ListComponentsResponse' <$>
376+ (o .:? "components" .!= mempty) <*>
377+ (o .:? "nextPageToken")
378+ <*> (o .:? "totalSize"))
379+
380+instance ToJSON ListComponentsResponse where
381+ toJSON ListComponentsResponse'{..}
382+ = object
383+ (catMaybes
384+ [("components" .=) <$> _lcrComponents,
385+ ("nextPageToken" .=) <$> _lcrNextPageToken,
386+ ("totalSize" .=) <$> _lcrTotalSize])
387+
23388-- | An Avail describes the Availability Window of a specific Edit in a given
24389-- country, which means the period Google is allowed to sell or rent the
25390-- Edit. Avails are exposed in EMA format Version 1.6b (available at
@@ -41,6 +406,7 @@ data Avail = Avail'
41406 , _aTerritory :: !(Maybe Text)
42407 , _aEpisodeTitleInternalAlias :: !(Maybe Text)
43408 , _aLicenseType :: !(Maybe Text)
409+ , _aAvailId :: !(Maybe Text)
44410 , _aSeasonNumber :: !(Maybe Text)
45411 , _aWorkType :: !(Maybe Text)
46412 , _aRatingValue :: !(Maybe Text)
@@ -92,6 +458,8 @@ data Avail = Avail'
92458--
93459-- * 'aLicenseType'
94460--
461+-- * 'aAvailId'
462+--
95463-- * 'aSeasonNumber'
96464--
97465-- * 'aWorkType'
@@ -146,6 +514,7 @@ avail =
146514 , _aTerritory = Nothing
147515 , _aEpisodeTitleInternalAlias = Nothing
148516 , _aLicenseType = Nothing
517+ , _aAvailId = Nothing
149518 , _aSeasonNumber = Nothing
150519 , _aWorkType = Nothing
151520 , _aRatingValue = Nothing
@@ -257,6 +626,11 @@ aLicenseType :: Lens' Avail (Maybe Text)
257626aLicenseType
258627 = lens _aLicenseType (\ s a -> s{_aLicenseType = a})
259628
629+-- | ID internally generated by Google to uniquely identify an Avail. Not
630+-- part of EMA Specs.
631+aAvailId :: Lens' Avail (Maybe Text)
632+aAvailId = lens _aAvailId (\ s a -> s{_aAvailId = a})
633+
260634-- | The number assigned to the season within a series. Only available on TV
261635-- Avails. Example: \"1\".
262636aSeasonNumber :: Lens' Avail (Maybe Text)
@@ -392,6 +766,7 @@ instance FromJSON Avail where
392766 <*> (o .:? "territory")
393767 <*> (o .:? "episodeTitleInternalAlias")
394768 <*> (o .:? "licenseType")
769+ <*> (o .:? "availId")
395770 <*> (o .:? "seasonNumber")
396771 <*> (o .:? "workType")
397772 <*> (o .:? "ratingValue")
@@ -430,6 +805,7 @@ instance ToJSON Avail where
430805 ("episodeTitleInternalAlias" .=) <$>
431806 _aEpisodeTitleInternalAlias,
432807 ("licenseType" .=) <$> _aLicenseType,
808+ ("availId" .=) <$> _aAvailId,
433809 ("seasonNumber" .=) <$> _aSeasonNumber,
434810 ("workType" .=) <$> _aWorkType,
435811 ("ratingValue" .=) <$> _aRatingValue,
@@ -458,6 +834,7 @@ instance ToJSON Avail where
458834data ListAvailsResponse = ListAvailsResponse'
459835 { _larNextPageToken :: !(Maybe Text)
460836 , _larAvails :: !(Maybe [Avail])
837+ , _larTotalSize :: !(Maybe (Textual Int32))
461838 } deriving (Eq,Show,Data,Typeable,Generic)
462839
463840-- | Creates a value of 'ListAvailsResponse' with the minimum fields required to make a request.
@@ -467,12 +844,15 @@ data ListAvailsResponse = ListAvailsResponse'
467844-- * 'larNextPageToken'
468845--
469846-- * 'larAvails'
847+--
848+-- * 'larTotalSize'
470849listAvailsResponse
471850 :: ListAvailsResponse
472851listAvailsResponse =
473852 ListAvailsResponse'
474853 { _larNextPageToken = Nothing
475854 , _larAvails = Nothing
855+ , _larTotalSize = Nothing
476856 }
477857
478858-- | See _List methods rules_ for info about this field.
@@ -488,26 +868,35 @@ larAvails
488868 _Default
489869 . _Coerce
490870
871+-- | See _List methods rules_ for more information about this field.
872+larTotalSize :: Lens' ListAvailsResponse (Maybe Int32)
873+larTotalSize
874+ = lens _larTotalSize (\ s a -> s{_larTotalSize = a})
875+ . mapping _Coerce
876+
491877instance FromJSON ListAvailsResponse where
492878 parseJSON
493879 = withObject "ListAvailsResponse"
494880 (\ o ->
495881 ListAvailsResponse' <$>
496882 (o .:? "nextPageToken") <*>
497− (o .:? "avails" .!= mempty))
883+ (o .:? "avails" .!= mempty)
884+ <*> (o .:? "totalSize"))
498885
499886instance ToJSON ListAvailsResponse where
500887 toJSON ListAvailsResponse'{..}
501888 = object
502889 (catMaybes
503890 [("nextPageToken" .=) <$> _larNextPageToken,
504− ("avails" .=) <$> _larAvails])
891+ ("avails" .=) <$> _larAvails,
892+ ("totalSize" .=) <$> _larTotalSize])
505893
506894-- | Response to the \'ListExperienceLocales\' method.
507895--
508896-- /See:/ 'listExperienceLocalesResponse' smart constructor.
509897data ListExperienceLocalesResponse = ListExperienceLocalesResponse'
510898 { _lelrNextPageToken :: !(Maybe Text)
899+ , _lelrTotalSize :: !(Maybe (Textual Int32))
511900 , _lelrExperienceLocales :: !(Maybe [ExperienceLocale])
512901 } deriving (Eq,Show,Data,Typeable,Generic)
513902
@@ -517,12 +906,15 @@ data ListExperienceLocalesResponse = ListExperienceLocalesResponse'
517906--
518907-- * 'lelrNextPageToken'
519908--
909+-- * 'lelrTotalSize'
910+--
520911-- * 'lelrExperienceLocales'
521912listExperienceLocalesResponse
522913 :: ListExperienceLocalesResponse
523914listExperienceLocalesResponse =
524915 ListExperienceLocalesResponse'
525916 { _lelrNextPageToken = Nothing
917+ , _lelrTotalSize = Nothing
526918 , _lelrExperienceLocales = Nothing
527919 }
528920
@@ -532,6 +924,13 @@ lelrNextPageToken
532924 = lens _lelrNextPageToken
533925 (\ s a -> s{_lelrNextPageToken = a})
534926
927+-- | See _List methods rules_ for more information about this field.
928+lelrTotalSize :: Lens' ListExperienceLocalesResponse (Maybe Int32)
929+lelrTotalSize
930+ = lens _lelrTotalSize
931+ (\ s a -> s{_lelrTotalSize = a})
932+ . mapping _Coerce
933+
535934-- | List of ExperienceLocales that match the request criteria.
536935lelrExperienceLocales :: Lens' ListExperienceLocalesResponse [ExperienceLocale]
537936lelrExperienceLocales
@@ -545,7 +944,7 @@ instance FromJSON ListExperienceLocalesResponse where
545944 = withObject "ListExperienceLocalesResponse"
546945 (\ o ->
547946 ListExperienceLocalesResponse' <$>
548− (o .:? "nextPageToken") <*>
947+ (o .:? "nextPageToken") <*> (o .:? "totalSize") <*>
549948 (o .:? "experienceLocales" .!= mempty))
550949
551950instance ToJSON ListExperienceLocalesResponse where
@@ -553,6 +952,7 @@ instance ToJSON ListExperienceLocalesResponse where
553952 = object
554953 (catMaybes
555954 [("nextPageToken" .=) <$> _lelrNextPageToken,
955+ ("totalSize" .=) <$> _lelrTotalSize,
556956 ("experienceLocales" .=) <$> _lelrExperienceLocales])
557957
558958-- | Response to the \'ListOrders\' method.
@@ -560,6 +960,7 @@ instance ToJSON ListExperienceLocalesResponse where
560960-- /See:/ 'listOrdersResponse' smart constructor.
561961data ListOrdersResponse = ListOrdersResponse'
562962 { _lorNextPageToken :: !(Maybe Text)
963+ , _lorTotalSize :: !(Maybe (Textual Int32))
563964 , _lorOrders :: !(Maybe [Order])
564965 } deriving (Eq,Show,Data,Typeable,Generic)
565966
@@ -569,12 +970,15 @@ data ListOrdersResponse = ListOrdersResponse'
569970--
570971-- * 'lorNextPageToken'
571972--
973+-- * 'lorTotalSize'
974+--
572975-- * 'lorOrders'
573976listOrdersResponse
574977 :: ListOrdersResponse
575978listOrdersResponse =
576979 ListOrdersResponse'
577980 { _lorNextPageToken = Nothing
981+ , _lorTotalSize = Nothing
578982 , _lorOrders = Nothing
579983 }
580984
@@ -584,6 +988,12 @@ lorNextPageToken
584988 = lens _lorNextPageToken
585989 (\ s a -> s{_lorNextPageToken = a})
586990
991+-- | See _List methods rules_ for more information about this field.
992+lorTotalSize :: Lens' ListOrdersResponse (Maybe Int32)
993+lorTotalSize
994+ = lens _lorTotalSize (\ s a -> s{_lorTotalSize = a})
995+ . mapping _Coerce
996+
587997-- | List of Orders that match the request criteria.
588998lorOrders :: Lens' ListOrdersResponse [Order]
589999lorOrders
@@ -596,7 +1006,7 @@ instance FromJSON ListOrdersResponse where
5961006 = withObject "ListOrdersResponse"
5971007 (\ o ->
5981008 ListOrdersResponse' <$>
599− (o .:? "nextPageToken") <*>
1009+ (o .:? "nextPageToken") <*> (o .:? "totalSize") <*>
6001010 (o .:? "orders" .!= mempty))
6011011
6021012instance ToJSON ListOrdersResponse where
@@ -604,6 +1014,7 @@ instance ToJSON ListOrdersResponse where
6041014 = object
6051015 (catMaybes
6061016 [("nextPageToken" .=) <$> _lorNextPageToken,
1017+ ("totalSize" .=) <$> _lorTotalSize,
6071018 ("orders" .=) <$> _lorOrders])
6081019
6091020-- | Response to the \'ListStoreInfos\' method.
@@ -611,6 +1022,7 @@ instance ToJSON ListOrdersResponse where
6111022-- /See:/ 'listStoreInfosResponse' smart constructor.
6121023data ListStoreInfosResponse = ListStoreInfosResponse'
6131024 { _lsirNextPageToken :: !(Maybe Text)
1025+ , _lsirTotalSize :: !(Maybe (Textual Int32))
6141026 , _lsirStoreInfos :: !(Maybe [StoreInfo])
6151027 } deriving (Eq,Show,Data,Typeable,Generic)
6161028
@@ -620,12 +1032,15 @@ data ListStoreInfosResponse = ListStoreInfosResponse'
6201032--
6211033-- * 'lsirNextPageToken'
6221034--
1035+-- * 'lsirTotalSize'
1036+--
6231037-- * 'lsirStoreInfos'
6241038listStoreInfosResponse
6251039 :: ListStoreInfosResponse
6261040listStoreInfosResponse =
6271041 ListStoreInfosResponse'
6281042 { _lsirNextPageToken = Nothing
1043+ , _lsirTotalSize = Nothing
6291044 , _lsirStoreInfos = Nothing
6301045 }
6311046
@@ -635,6 +1050,13 @@ lsirNextPageToken
6351050 = lens _lsirNextPageToken
6361051 (\ s a -> s{_lsirNextPageToken = a})
6371052
1053+-- | See _List methods rules_ for more information about this field.
1054+lsirTotalSize :: Lens' ListStoreInfosResponse (Maybe Int32)
1055+lsirTotalSize
1056+ = lens _lsirTotalSize
1057+ (\ s a -> s{_lsirTotalSize = a})
1058+ . mapping _Coerce
1059+
6381060-- | List of StoreInfos that match the request criteria.
6391061lsirStoreInfos :: Lens' ListStoreInfosResponse [StoreInfo]
6401062lsirStoreInfos
@@ -648,7 +1070,7 @@ instance FromJSON ListStoreInfosResponse where
6481070 = withObject "ListStoreInfosResponse"
6491071 (\ o ->
6501072 ListStoreInfosResponse' <$>
651− (o .:? "nextPageToken") <*>
1073+ (o .:? "nextPageToken") <*> (o .:? "totalSize") <*>
6521074 (o .:? "storeInfos" .!= mempty))
6531075
6541076instance ToJSON ListStoreInfosResponse where
@@ -656,6 +1078,7 @@ instance ToJSON ListStoreInfosResponse where
6561078 = object
6571079 (catMaybes
6581080 [("nextPageToken" .=) <$> _lsirNextPageToken,
1081+ ("totalSize" .=) <$> _lsirTotalSize,
6591082 ("storeInfos" .=) <$> _lsirStoreInfos])
6601083
6611084-- | An Order tracks the fulfillment of an Edit when delivered using the