@@ -20,371 +20,6 @@ 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−
38823-- | An Avail describes the Availability Window of a specific Edit in a given
38924-- country, which means the period Google is allowed to sell or rent the
39025-- Edit. Avails are exposed in EMA format Version 1.6b (available at
@@ -891,70 +526,6 @@ instance ToJSON ListAvailsResponse where
891526 ("avails" .=) <$> _larAvails,
892527 ("totalSize" .=) <$> _larTotalSize])
893528
894−-- | Response to the \'ListExperienceLocales\' method.
895−--
896−-- /See:/ 'listExperienceLocalesResponse' smart constructor.
897−data ListExperienceLocalesResponse = ListExperienceLocalesResponse'
898− { _lelrNextPageToken :: !(Maybe Text)
899− , _lelrTotalSize :: !(Maybe (Textual Int32))
900− , _lelrExperienceLocales :: !(Maybe [ExperienceLocale])
901− } deriving (Eq,Show,Data,Typeable,Generic)
902−
903−-- | Creates a value of 'ListExperienceLocalesResponse' with the minimum fields required to make a request.
904−--
905−-- Use one of the following lenses to modify other fields as desired:
906−--
907−-- * 'lelrNextPageToken'
908−--
909−-- * 'lelrTotalSize'
910−--
911−-- * 'lelrExperienceLocales'
912−listExperienceLocalesResponse
913− :: ListExperienceLocalesResponse
914−listExperienceLocalesResponse =
915− ListExperienceLocalesResponse'
916− { _lelrNextPageToken = Nothing
917− , _lelrTotalSize = Nothing
918− , _lelrExperienceLocales = Nothing
919− }
920−
921−-- | See _List methods rules_ for info about this field.
922−lelrNextPageToken :: Lens' ListExperienceLocalesResponse (Maybe Text)
923−lelrNextPageToken
924− = lens _lelrNextPageToken
925− (\ s a -> s{_lelrNextPageToken = a})
926−
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−
934−-- | List of ExperienceLocales that match the request criteria.
935−lelrExperienceLocales :: Lens' ListExperienceLocalesResponse [ExperienceLocale]
936−lelrExperienceLocales
937− = lens _lelrExperienceLocales
938− (\ s a -> s{_lelrExperienceLocales = a})
939− . _Default
940− . _Coerce
941−
942−instance FromJSON ListExperienceLocalesResponse where
943− parseJSON
944− = withObject "ListExperienceLocalesResponse"
945− (\ o ->
946− ListExperienceLocalesResponse' <$>
947− (o .:? "nextPageToken") <*> (o .:? "totalSize") <*>
948− (o .:? "experienceLocales" .!= mempty))
949−
950−instance ToJSON ListExperienceLocalesResponse where
951− toJSON ListExperienceLocalesResponse'{..}
952− = object
953− (catMaybes
954− [("nextPageToken" .=) <$> _lelrNextPageToken,
955− ("totalSize" .=) <$> _lelrTotalSize,
956− ("experienceLocales" .=) <$> _lelrExperienceLocales])
957−
958529-- | Response to the \'ListOrders\' method.
959530--
960531-- /See:/ 'listOrdersResponse' smart constructor.
@@ -1380,314 +951,6 @@ instance ToJSON Order where
1380951 ("orderId" .=) <$> _oOrderId,
1381952 ("episodeName" .=) <$> _oEpisodeName])
1382953
1383−-- | An ExperienceLocale tracks the fulfillment of a Title in a country using
1384−-- a specific language, when delivered using component-based delivery. For
1385−-- example, a Title in Switzerland might have 3 ExperienceLocales: they
1386−-- both share the same country (\"CH\"), but each has different languages
1387−-- (\"de\", \"fr\", and \"it\"). Each ExperienceLocale is uniquely
1388−-- identified by an \`el_id\`, which is generated by Google. Externally, an
1389−-- ExperienceLocale can also be identified by partners using its EIDR IDs,
1390−-- AltCutID or \`custom_id\` (when provided).
1391−--
1392−-- /See:/ 'experienceLocale' smart constructor.
1393−data ExperienceLocale = ExperienceLocale'
1394− { _elTitleLevelEidr :: !(Maybe Text)
1395− , _elStatus :: !(Maybe Text)
1396− , _elPphNames :: !(Maybe [Text])
1397− , _elInventoryId :: !(Maybe Text)
1398− , _elEarliestAvailStartTime :: !(Maybe Text)
1399− , _elStudioName :: !(Maybe Text)
1400− , _elPriority :: !(Maybe (Textual Double))
1401− , _elCustomIds :: !(Maybe [Text])
1402− , _elCreatedTime :: !(Maybe Text)
1403− , _elCountry :: !(Maybe Text)
1404− , _elTrailerId :: !(Maybe Text)
1405− , _elPresentationId :: !(Maybe Text)
1406− , _elAltCutId :: !(Maybe Text)
1407− , _elChannelId :: !(Maybe Text)
1408− , _elApprovedTime :: !(Maybe Text)
1409− , _elPlayableSequenceId :: !(Maybe Text)
1410− , _elElId :: !(Maybe Text)
1411− , _elVideoId :: !(Maybe Text)
1412− , _elName :: !(Maybe Text)
1413− , _elLanguage :: !(Maybe Text)
1414− , _elEditLevelEidr :: !(Maybe Text)
1415− , _elType :: !(Maybe Text)
1416− , _elNormalizedPriority :: !(Maybe Text)
1417− } deriving (Eq,Show,Data,Typeable,Generic)
1418−
1419−-- | Creates a value of 'ExperienceLocale' with the minimum fields required to make a request.
1420−--
1421−-- Use one of the following lenses to modify other fields as desired:
1422−--
1423−-- * 'elTitleLevelEidr'
1424−--
1425−-- * 'elStatus'
1426−--
1427−-- * 'elPphNames'
1428−--
1429−-- * 'elInventoryId'
1430−--
1431−-- * 'elEarliestAvailStartTime'
1432−--
1433−-- * 'elStudioName'
1434−--
1435−-- * 'elPriority'
1436−--
1437−-- * 'elCustomIds'
1438−--
1439−-- * 'elCreatedTime'
1440−--
1441−-- * 'elCountry'
1442−--
1443−-- * 'elTrailerId'
1444−--
1445−-- * 'elPresentationId'
1446−--
1447−-- * 'elAltCutId'
1448−--
1449−-- * 'elChannelId'
1450−--
1451−-- * 'elApprovedTime'
1452−--
1453−-- * 'elPlayableSequenceId'
1454−--
1455−-- * 'elElId'
1456−--
1457−-- * 'elVideoId'
1458−--
1459−-- * 'elName'
1460−--
1461−-- * 'elLanguage'
1462−--
1463−-- * 'elEditLevelEidr'
1464−--
1465−-- * 'elType'
1466−--
1467−-- * 'elNormalizedPriority'
1468−experienceLocale
1469− :: ExperienceLocale
1470−experienceLocale =
1471− ExperienceLocale'
1472− { _elTitleLevelEidr = Nothing
1473− , _elStatus = Nothing
1474− , _elPphNames = Nothing
1475− , _elInventoryId = Nothing
1476− , _elEarliestAvailStartTime = Nothing
1477− , _elStudioName = Nothing
1478− , _elPriority = Nothing
1479− , _elCustomIds = Nothing
1480− , _elCreatedTime = Nothing
1481− , _elCountry = Nothing
1482− , _elTrailerId = Nothing
1483− , _elPresentationId = Nothing
1484− , _elAltCutId = Nothing
1485− , _elChannelId = Nothing
1486− , _elApprovedTime = Nothing
1487− , _elPlayableSequenceId = Nothing
1488− , _elElId = Nothing
1489− , _elVideoId = Nothing
1490− , _elName = Nothing
1491− , _elLanguage = Nothing
1492− , _elEditLevelEidr = Nothing
1493− , _elType = Nothing
1494− , _elNormalizedPriority = Nothing
1495− }
1496−
1497−-- | Title-level EIDR ID. Example: \"10.5240\/1489-49A2-3956-4B2D-FE16-5\".
1498−elTitleLevelEidr :: Lens' ExperienceLocale (Maybe Text)
1499−elTitleLevelEidr
1500− = lens _elTitleLevelEidr
1501− (\ s a -> s{_elTitleLevelEidr = a})
1502−
1503−-- | High-level status of the ExperienceLocale.
1504−elStatus :: Lens' ExperienceLocale (Maybe Text)
1505−elStatus = lens _elStatus (\ s a -> s{_elStatus = a})
1506−
1507−-- | Name of the post-production houses that manage the ExperienceLocale.
1508−elPphNames :: Lens' ExperienceLocale [Text]
1509−elPphNames
1510− = lens _elPphNames (\ s a -> s{_elPphNames = a}) .
1511− _Default
1512− . _Coerce
1513−
1514−-- | InventoryID as defined in the EMA specs.
1515−elInventoryId :: Lens' ExperienceLocale (Maybe Text)
1516−elInventoryId
1517− = lens _elInventoryId
1518− (\ s a -> s{_elInventoryId = a})
1519−
1520−-- | Timestamp of the earliest start date of the Avails linked to this
1521−-- ExperienceLocale.
1522−elEarliestAvailStartTime :: Lens' ExperienceLocale (Maybe Text)
1523−elEarliestAvailStartTime
1524− = lens _elEarliestAvailStartTime
1525− (\ s a -> s{_elEarliestAvailStartTime = a})
1526−
1527−-- | Name of the studio that owns the ExperienceLocale.
1528−elStudioName :: Lens' ExperienceLocale (Maybe Text)
1529−elStudioName
1530− = lens _elStudioName (\ s a -> s{_elStudioName = a})
1531−
1532−-- | ExperienceLocale priority, as defined by Google. The higher the value,
1533−-- the higher the priority. Example: 90
1534−elPriority :: Lens' ExperienceLocale (Maybe Double)
1535−elPriority
1536− = lens _elPriority (\ s a -> s{_elPriority = a}) .
1537− mapping _Coerce
1538−
1539−-- | List of custom IDs (defined by the partner) linked to this
1540−-- ExperienceLocale. Example: \"R86241\"
1541−elCustomIds :: Lens' ExperienceLocale [Text]
1542−elCustomIds
1543− = lens _elCustomIds (\ s a -> s{_elCustomIds = a}) .
1544− _Default
1545− . _Coerce
1546−
1547−-- | Timestamp when the ExperienceLocale was created.
1548−elCreatedTime :: Lens' ExperienceLocale (Maybe Text)
1549−elCreatedTime
1550− = lens _elCreatedTime
1551− (\ s a -> s{_elCreatedTime = a})
1552−
1553−-- | Country where the ExperienceLocale is available, using the \"ISO 3166-1
1554−-- alpha-2\" format. Example: \"US\".
1555−elCountry :: Lens' ExperienceLocale (Maybe Text)
1556−elCountry
1557− = lens _elCountry (\ s a -> s{_elCountry = a})
1558−
1559−-- | Trailer ID, as defined by Google, linked to the trailer video in the
1560−-- ExperienceLocale. Example: \'gtry457_tr\'.
1561−elTrailerId :: Lens' ExperienceLocale (Maybe Text)
1562−elTrailerId
1563− = lens _elTrailerId (\ s a -> s{_elTrailerId = a})
1564−
1565−-- | PresentationID as defined in the EMA specs.
1566−elPresentationId :: Lens' ExperienceLocale (Maybe Text)
1567−elPresentationId
1568− = lens _elPresentationId
1569− (\ s a -> s{_elPresentationId = a})
1570−
1571−-- | Alternative Cut ID, sometimes available in lieu of the main Edit-level
1572−-- EIDR ID. This is not an EIDR ID, but a Partner-provided ID. Example:
1573−-- \"206346_79838\".
1574−elAltCutId :: Lens' ExperienceLocale (Maybe Text)
1575−elAltCutId
1576− = lens _elAltCutId (\ s a -> s{_elAltCutId = a})
1577−
1578−-- | YouTube Channel ID linked to the ExperienceLocale. Example:
1579−-- \"UCRG64darCZhb\".
1580−elChannelId :: Lens' ExperienceLocale (Maybe Text)
1581−elChannelId
1582− = lens _elChannelId (\ s a -> s{_elChannelId = a})
1583−
1584−-- | Timestamp when the ExperienceLocale was approved.
1585−elApprovedTime :: Lens' ExperienceLocale (Maybe Text)
1586−elApprovedTime
1587− = lens _elApprovedTime
1588− (\ s a -> s{_elApprovedTime = a})
1589−
1590−-- | PlayableSequenceID as defined in the EMA specs.
1591−elPlayableSequenceId :: Lens' ExperienceLocale (Maybe Text)
1592−elPlayableSequenceId
1593− = lens _elPlayableSequenceId
1594− (\ s a -> s{_elPlayableSequenceId = a})
1595−
1596−-- | ID internally generated by Google to uniquely identify a
1597−-- ExperienceLocale. Example: \'KRZiVjY9h7t\'
1598−elElId :: Lens' ExperienceLocale (Maybe Text)
1599−elElId = lens _elElId (\ s a -> s{_elElId = a})
1600−
1601−-- | Video ID, as defined by Google, linked to the feature video in the
1602−-- ExperienceLocale. Example: \'gtry456_xc\'.
1603−elVideoId :: Lens' ExperienceLocale (Maybe Text)
1604−elVideoId
1605− = lens _elVideoId (\ s a -> s{_elVideoId = a})
1606−
1607−-- | Default Edit name, usually in the language of the country of origin.
1608−-- Example: \"Googlers, The\".
1609−elName :: Lens' ExperienceLocale (Maybe Text)
1610−elName = lens _elName (\ s a -> s{_elName = a})
1611−
1612−-- | Language of the ExperienceLocale, using the \"BCP 47\" format. Examples:
1613−-- \"en\", \"en-US\", \"es\", \"es-419\".
1614−elLanguage :: Lens' ExperienceLocale (Maybe Text)
1615−elLanguage
1616− = lens _elLanguage (\ s a -> s{_elLanguage = a})
1617−
1618−-- | Edit-level EIDR ID. Example: \"10.5240\/1489-49A2-3956-4B2D-FE16-6\".
1619−elEditLevelEidr :: Lens' ExperienceLocale (Maybe Text)
1620−elEditLevelEidr
1621− = lens _elEditLevelEidr
1622− (\ s a -> s{_elEditLevelEidr = a})
1623−
1624−-- | Type of the Edit linked to the ExperienceLocale.
1625−elType :: Lens' ExperienceLocale (Maybe Text)
1626−elType = lens _elType (\ s a -> s{_elType = a})
1627−
1628−-- | A simpler representation of the priority.
1629−elNormalizedPriority :: Lens' ExperienceLocale (Maybe Text)
1630−elNormalizedPriority
1631− = lens _elNormalizedPriority
1632− (\ s a -> s{_elNormalizedPriority = a})
1633−
1634−instance FromJSON ExperienceLocale where
1635− parseJSON
1636− = withObject "ExperienceLocale"
1637− (\ o ->
1638− ExperienceLocale' <$>
1639− (o .:? "titleLevelEidr") <*> (o .:? "status") <*>
1640− (o .:? "pphNames" .!= mempty)
1641− <*> (o .:? "inventoryId")
1642− <*> (o .:? "earliestAvailStartTime")
1643− <*> (o .:? "studioName")
1644− <*> (o .:? "priority")
1645− <*> (o .:? "customIds" .!= mempty)
1646− <*> (o .:? "createdTime")
1647− <*> (o .:? "country")
1648− <*> (o .:? "trailerId")
1649− <*> (o .:? "presentationId")
1650− <*> (o .:? "altCutId")
1651− <*> (o .:? "channelId")
1652− <*> (o .:? "approvedTime")
1653− <*> (o .:? "playableSequenceId")
1654− <*> (o .:? "elId")
1655− <*> (o .:? "videoId")
1656− <*> (o .:? "name")
1657− <*> (o .:? "language")
1658− <*> (o .:? "editLevelEidr")
1659− <*> (o .:? "type")
1660− <*> (o .:? "normalizedPriority"))
1661−
1662−instance ToJSON ExperienceLocale where
1663− toJSON ExperienceLocale'{..}
1664− = object
1665− (catMaybes
1666− [("titleLevelEidr" .=) <$> _elTitleLevelEidr,
1667− ("status" .=) <$> _elStatus,
1668− ("pphNames" .=) <$> _elPphNames,
1669− ("inventoryId" .=) <$> _elInventoryId,
1670− ("earliestAvailStartTime" .=) <$>
1671− _elEarliestAvailStartTime,
1672− ("studioName" .=) <$> _elStudioName,
1673− ("priority" .=) <$> _elPriority,
1674− ("customIds" .=) <$> _elCustomIds,
1675− ("createdTime" .=) <$> _elCreatedTime,
1676− ("country" .=) <$> _elCountry,
1677− ("trailerId" .=) <$> _elTrailerId,
1678− ("presentationId" .=) <$> _elPresentationId,
1679− ("altCutId" .=) <$> _elAltCutId,
1680− ("channelId" .=) <$> _elChannelId,
1681− ("approvedTime" .=) <$> _elApprovedTime,
1682− ("playableSequenceId" .=) <$> _elPlayableSequenceId,
1683− ("elId" .=) <$> _elElId,
1684− ("videoId" .=) <$> _elVideoId,
1685− ("name" .=) <$> _elName,
1686− ("language" .=) <$> _elLanguage,
1687− ("editLevelEidr" .=) <$> _elEditLevelEidr,
1688− ("type" .=) <$> _elType,
1689− ("normalizedPriority" .=) <$> _elNormalizedPriority])
1690−
1691954-- | Information about a playable sequence (video) associated with an Edit
1692955-- and available at the Google Play Store. Internally, each StoreInfo is
1693956-- uniquely identified by a \`video_id\` and \`country\`. Externally,