@@ -420,6 +420,7 @@ data TableListTablesItem = TableListTablesItem'
420420 , _tltiFriendlyName :: !(Maybe Text)
421421 , _tltiKind :: !Text
422422 , _tltiId :: !(Maybe Text)
423+ , _tltiLabels :: !(Maybe TableListTablesItemLabels)
423424 , _tltiType :: !(Maybe Text)
424425 } deriving (Eq,Show,Data,Typeable,Generic)
425426
@@ -435,6 +436,8 @@ data TableListTablesItem = TableListTablesItem'
435436--
436437-- * 'tltiId'
437438--
439+-- * 'tltiLabels'
440+--
438441-- * 'tltiType'
439442tableListTablesItem
440443 :: TableListTablesItem
@@ -444,6 +447,7 @@ tableListTablesItem =
444447 , _tltiFriendlyName = Nothing
445448 , _tltiKind = "bigquery#table"
446449 , _tltiId = Nothing
450+ , _tltiLabels = Nothing
447451 , _tltiType = Nothing
448452 }
449453
@@ -467,6 +471,12 @@ tltiKind = lens _tltiKind (\ s a -> s{_tltiKind = a})
467471tltiId :: Lens' TableListTablesItem (Maybe Text)
468472tltiId = lens _tltiId (\ s a -> s{_tltiId = a})
469473
474+-- | [Experimental] The labels associated with this table. You can use these
475+-- to organize and group your tables.
476+tltiLabels :: Lens' TableListTablesItem (Maybe TableListTablesItemLabels)
477+tltiLabels
478+ = lens _tltiLabels (\ s a -> s{_tltiLabels = a})
479+
470480-- | The type of table. Possible values are: TABLE, VIEW.
471481tltiType :: Lens' TableListTablesItem (Maybe Text)
472482tltiType = lens _tltiType (\ s a -> s{_tltiType = a})
@@ -479,6 +489,7 @@ instance FromJSON TableListTablesItem where
479489 (o .:? "tableReference") <*> (o .:? "friendlyName")
480490 <*> (o .:? "kind" .!= "bigquery#table")
481491 <*> (o .:? "id")
492+ <*> (o .:? "labels")
482493 <*> (o .:? "type"))
483494
484495instance ToJSON TableListTablesItem where
@@ -488,6 +499,7 @@ instance ToJSON TableListTablesItem where
488499 [("tableReference" .=) <$> _tltiTableReference,
489500 ("friendlyName" .=) <$> _tltiFriendlyName,
490501 Just ("kind" .= _tltiKind), ("id" .=) <$> _tltiId,
502+ ("labels" .=) <$> _tltiLabels,
491503 ("type" .=) <$> _tltiType])
492504
493505--
@@ -1523,8 +1535,10 @@ tfsName :: Lens' TableFieldSchema (Maybe Text)
15231535tfsName = lens _tfsName (\ s a -> s{_tfsName = a})
15241536
15251537-- | [Required] The field data type. Possible values include STRING, BYTES,
1526−-- INTEGER, FLOAT, BOOLEAN, TIMESTAMP, DATE, TIME, DATETIME, or RECORD
1527−-- (where RECORD indicates that the field contains a nested schema).
1538+-- INTEGER, INT64 (same as INTEGER), FLOAT, FLOAT64 (same as FLOAT),
1539+-- BOOLEAN, BOOL (same as BOOLEAN), TIMESTAMP, DATE, TIME, DATETIME, RECORD
1540+-- (where RECORD indicates that the field contains a nested schema) or
1541+-- STRUCT (same as RECORD).
15281542tfsType :: Lens' TableFieldSchema (Maybe Text)
15291543tfsType = lens _tfsType (\ s a -> s{_tfsType = a})
15301544
@@ -1910,8 +1924,9 @@ qrQueryParameters
19101924qrQuery :: Lens' QueryRequest (Maybe Text)
19111925qrQuery = lens _qrQuery (\ s a -> s{_qrQuery = a})
19121926
1913−-- | [Experimental] Standard SQL only. Whether to use positional (?) or named
1914−-- (\'myparam) query parameters in this query.
1927+-- | [Experimental] Standard SQL only. Set to POSITIONAL to use positional
1928+-- (?) query parameters or to NAMED to use named (\'myparam) query
1929+-- parameters in this query.
19151930qrParameterMode :: Lens' QueryRequest (Maybe Text)
19161931qrParameterMode
19171932 = lens _qrParameterMode
@@ -1929,9 +1944,9 @@ qrTimeoutMs
19291944 = lens _qrTimeoutMs (\ s a -> s{_qrTimeoutMs = a}) .
19301945 mapping _Coerce
19311946
1932−-- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL dialect
1933−-- for this query. The default value is true. If set to false, the query
1934−-- will use BigQuery\'s standard SQL:
1947+-- | Specifies whether to use BigQuery\'s legacy SQL dialect for this query.
1948+-- The default value is true. If set to false, the query will use
1949+-- BigQuery\'s standard SQL:
19351950-- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ When useLegacySql
19361951-- is set to false, the values of allowLargeResults and flattenResults are
19371952-- ignored; query will be run as if allowLargeResults is true and
@@ -2138,7 +2153,8 @@ instance ToJSON ProjectReference where
21382153--
21392154-- /See:/ 'explainQueryStage' smart constructor.
21402155data ExplainQueryStage = ExplainQueryStage'
2141− { _eqsWaitRatioMax :: !(Maybe (Textual Double))
2156+ { _eqsStatus :: !(Maybe Text)
2157+ , _eqsWaitRatioMax :: !(Maybe (Textual Double))
21422158 , _eqsRecordsWritten :: !(Maybe (Textual Int64))
21432159 , _eqsSteps :: !(Maybe [ExplainQueryStep])
21442160 , _eqsWriteRatioAvg :: !(Maybe (Textual Double))
@@ -2157,6 +2173,8 @@ data ExplainQueryStage = ExplainQueryStage'
21572173--
21582174-- Use one of the following lenses to modify other fields as desired:
21592175--
2176+-- * 'eqsStatus'
2177+--
21602178-- * 'eqsWaitRatioMax'
21612179--
21622180-- * 'eqsRecordsWritten'
@@ -2186,7 +2204,8 @@ explainQueryStage
21862204 :: ExplainQueryStage
21872205explainQueryStage =
21882206 ExplainQueryStage'
2189− { _eqsWaitRatioMax = Nothing
2207+ { _eqsStatus = Nothing
2208+ , _eqsWaitRatioMax = Nothing
21902209 , _eqsRecordsWritten = Nothing
21912210 , _eqsSteps = Nothing
21922211 , _eqsWriteRatioAvg = Nothing
@@ -2201,6 +2220,11 @@ explainQueryStage =
22012220 , _eqsReadRatioAvg = Nothing
22022221 }
22032222
2223+-- | Current status for the stage.
2224+eqsStatus :: Lens' ExplainQueryStage (Maybe Text)
2225+eqsStatus
2226+ = lens _eqsStatus (\ s a -> s{_eqsStatus = a})
2227+
22042228-- | Relative amount of time the slowest shard spent waiting to be scheduled.
22052229eqsWaitRatioMax :: Lens' ExplainQueryStage (Maybe Double)
22062230eqsWaitRatioMax
@@ -2294,7 +2318,8 @@ instance FromJSON ExplainQueryStage where
22942318 = withObject "ExplainQueryStage"
22952319 (\ o ->
22962320 ExplainQueryStage' <$>
2297− (o .:? "waitRatioMax") <*> (o .:? "recordsWritten")
2321+ (o .:? "status") <*> (o .:? "waitRatioMax") <*>
2322+ (o .:? "recordsWritten")
22982323 <*> (o .:? "steps" .!= mempty)
22992324 <*> (o .:? "writeRatioAvg")
23002325 <*> (o .:? "recordsRead")
@@ -2311,7 +2336,8 @@ instance ToJSON ExplainQueryStage where
23112336 toJSON ExplainQueryStage'{..}
23122337 = object
23132338 (catMaybes
2314− [("waitRatioMax" .=) <$> _eqsWaitRatioMax,
2339+ [("status" .=) <$> _eqsStatus,
2340+ ("waitRatioMax" .=) <$> _eqsWaitRatioMax,
23152341 ("recordsWritten" .=) <$> _eqsRecordsWritten,
23162342 ("steps" .=) <$> _eqsSteps,
23172343 ("writeRatioAvg" .=) <$> _eqsWriteRatioAvg,
@@ -2347,6 +2373,7 @@ data JobConfigurationLoad = JobConfigurationLoad'
23472373 , _jclSourceURIs :: !(Maybe [Text])
23482374 , _jclEncoding :: !(Maybe Text)
23492375 , _jclFieldDelimiter :: !(Maybe Text)
2376+ , _jclNullMarker :: !(Maybe Text)
23502377 } deriving (Eq,Show,Data,Typeable,Generic)
23512378
23522379-- | Creates a value of 'JobConfigurationLoad' with the minimum fields required to make a request.
@@ -2390,6 +2417,8 @@ data JobConfigurationLoad = JobConfigurationLoad'
23902417-- * 'jclEncoding'
23912418--
23922419-- * 'jclFieldDelimiter'
2420+--
2421+-- * 'jclNullMarker'
23932422jobConfigurationLoad
23942423 :: JobConfigurationLoad
23952424jobConfigurationLoad =
@@ -2413,6 +2442,7 @@ jobConfigurationLoad =
24132442 , _jclSourceURIs = Nothing
24142443 , _jclEncoding = Nothing
24152444 , _jclFieldDelimiter = Nothing
2445+ , _jclNullMarker = Nothing
24162446 }
24172447
24182448-- | [Optional] The number of rows at the top of a CSV file that BigQuery
@@ -2600,6 +2630,18 @@ jclFieldDelimiter
26002630 = lens _jclFieldDelimiter
26012631 (\ s a -> s{_jclFieldDelimiter = a})
26022632
2633+-- | [Optional] Specifies a string that represents a null value in a CSV
2634+-- file. For example, if you specify \"\\N\", BigQuery interprets \"\\N\"
2635+-- as a null value when loading a CSV file. The default value is the empty
2636+-- string. If you set this property to a custom value, BigQuery still
2637+-- interprets the empty string as a null value for all data types except
2638+-- for STRING and BYTE. For STRING and BYTE columns, BigQuery interprets
2639+-- the empty string as an empty value.
2640+jclNullMarker :: Lens' JobConfigurationLoad (Maybe Text)
2641+jclNullMarker
2642+ = lens _jclNullMarker
2643+ (\ s a -> s{_jclNullMarker = a})
2644+
26032645instance FromJSON JobConfigurationLoad where
26042646 parseJSON
26052647 = withObject "JobConfigurationLoad"
@@ -2623,7 +2665,8 @@ instance FromJSON JobConfigurationLoad where
26232665 <*> (o .:? "autodetect")
26242666 <*> (o .:? "sourceUris" .!= mempty)
26252667 <*> (o .:? "encoding")
2626− <*> (o .:? "fieldDelimiter"))
2668+ <*> (o .:? "fieldDelimiter")
2669+ <*> (o .:? "nullMarker"))
26272670
26282671instance ToJSON JobConfigurationLoad where
26292672 toJSON JobConfigurationLoad'{..}
@@ -2650,7 +2693,8 @@ instance ToJSON JobConfigurationLoad where
26502693 ("autodetect" .=) <$> _jclAutodetect,
26512694 ("sourceUris" .=) <$> _jclSourceURIs,
26522695 ("encoding" .=) <$> _jclEncoding,
2653− ("fieldDelimiter" .=) <$> _jclFieldDelimiter])
2696+ ("fieldDelimiter" .=) <$> _jclFieldDelimiter,
2697+ ("nullMarker" .=) <$> _jclNullMarker])
26542698
26552699--
26562700-- /See:/ 'dataSetReference' smart constructor.
@@ -2881,7 +2925,7 @@ instance ToJSON ProjectListProjectsItem where
28812925--
28822926-- /See:/ 'bigtableColumn' smart constructor.
28832927data BigtableColumn = BigtableColumn'
2884− { _bcQualifierEncoded :: !(Maybe Base64)
2928+ { _bcQualifierEncoded :: !(Maybe Bytes)
28852929 , _bcFieldName :: !(Maybe Text)
28862930 , _bcQualifierString :: !(Maybe Text)
28872931 , _bcOnlyReadLatest :: !(Maybe Bool)
@@ -2928,7 +2972,7 @@ bcQualifierEncoded :: Lens' BigtableColumn (Maybe ByteString)
29282972bcQualifierEncoded
29292973 = lens _bcQualifierEncoded
29302974 (\ s a -> s{_bcQualifierEncoded = a})
2931− . mapping _Base64
2975+ . mapping _Bytes
29322976
29332977-- | [Optional] If the qualifier is not a valid BigQuery field identifier
29342978-- i.e. does not match [a-zA-Z][a-zA-Z0-9_]*, a valid identifier must be
@@ -4028,16 +4072,17 @@ jcqFlattenResults
40284072 = lens _jcqFlattenResults
40294073 (\ s a -> s{_jcqFlattenResults = a})
40304074
4031−-- | [Experimental] Standard SQL only. Whether to use positional (?) or named
4032−-- (\'myparam) query parameters in this query.
4075+-- | [Experimental] Standard SQL only. Set to POSITIONAL to use positional
4076+-- (?) query parameters or to NAMED to use named (\'myparam) query
4077+-- parameters in this query.
40334078jcqParameterMode :: Lens' JobConfigurationQuery (Maybe Text)
40344079jcqParameterMode
40354080 = lens _jcqParameterMode
40364081 (\ s a -> s{_jcqParameterMode = a})
40374082
4038−-- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL dialect
4039−-- for this query. The default value is true. If set to false, the query
4040−-- will use BigQuery\'s standard SQL:
4083+-- | Specifies whether to use BigQuery\'s legacy SQL dialect for this query.
4084+-- The default value is true. If set to false, the query will use
4085+-- BigQuery\'s standard SQL:
40414086-- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ When useLegacySql
40424087-- is set to false, the values of allowLargeResults and flattenResults are
40434088-- ignored; query will be run as if allowLargeResults is true and
@@ -4440,11 +4485,10 @@ vdUserDefinedFunctionResources
44404485vdQuery :: Lens' ViewDefinition (Maybe Text)
44414486vdQuery = lens _vdQuery (\ s a -> s{_vdQuery = a})
44424487
4443−-- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL for this
4444−-- view. The default value is true. If set to false, the view will use
4445−-- BigQuery\'s standard SQL:
4446−-- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ Queries and views
4447−-- that reference this view must use the same flag value.
4488+-- | Specifies whether to use BigQuery\'s legacy SQL for this view. The
4489+-- default value is true. If set to false, the view will use BigQuery\'s
4490+-- standard SQL: https:\/\/cloud.google.com\/bigquery\/sql-reference\/
4491+-- Queries and views that reference this view must use the same flag value.
44484492vdUseLegacySQL :: Lens' ViewDefinition (Maybe Bool)
44494493vdUseLegacySQL
44504494 = lens _vdUseLegacySQL
@@ -4527,6 +4571,7 @@ data JobStatistics2 = JobStatistics2'
45274571 , _jBillingTier :: !(Maybe (Textual Int32))
45284572 , _jUndeclaredQueryParameters :: !(Maybe [QueryParameter])
45294573 , _jReferencedTables :: !(Maybe [TableReference])
4574+ , _jStatementType :: !(Maybe Text)
45304575 , _jNumDmlAffectedRows :: !(Maybe (Textual Int64))
45314576 , _jQueryPlan :: !(Maybe [ExplainQueryStage])
45324577 , _jCacheHit :: !(Maybe Bool)
@@ -4547,6 +4592,8 @@ data JobStatistics2 = JobStatistics2'
45474592--
45484593-- * 'jReferencedTables'
45494594--
4595+-- * 'jStatementType'
4596+--
45504597-- * 'jNumDmlAffectedRows'
45514598--
45524599-- * 'jQueryPlan'
@@ -4563,6 +4610,7 @@ jobStatistics2 =
45634610 , _jBillingTier = Nothing
45644611 , _jUndeclaredQueryParameters = Nothing
45654612 , _jReferencedTables = Nothing
4613+ , _jStatementType = Nothing
45664614 , _jNumDmlAffectedRows = Nothing
45674615 , _jQueryPlan = Nothing
45684616 , _jCacheHit = Nothing
@@ -4605,6 +4653,12 @@ jReferencedTables
46054653 . _Default
46064654 . _Coerce
46074655
4656+-- | [Output-only, Experimental] The type of query statement, if valid.
4657+jStatementType :: Lens' JobStatistics2 (Maybe Text)
4658+jStatementType
4659+ = lens _jStatementType
4660+ (\ s a -> s{_jStatementType = a})
4661+
46084662-- | [Output-only, Experimental] The number of rows affected by a DML
46094663-- statement. Present only for DML statements INSERT, UPDATE or DELETE.
46104664jNumDmlAffectedRows :: Lens' JobStatistics2 (Maybe Int64)
@@ -4641,6 +4695,7 @@ instance FromJSON JobStatistics2 where
46414695 <*> (o .:? "billingTier")
46424696 <*> (o .:? "undeclaredQueryParameters" .!= mempty)
46434697 <*> (o .:? "referencedTables" .!= mempty)
4698+ <*> (o .:? "statementType")
46444699 <*> (o .:? "numDmlAffectedRows")
46454700 <*> (o .:? "queryPlan" .!= mempty)
46464701 <*> (o .:? "cacheHit")
@@ -4656,6 +4711,7 @@ instance ToJSON JobStatistics2 where
46564711 ("undeclaredQueryParameters" .=) <$>
46574712 _jUndeclaredQueryParameters,
46584713 ("referencedTables" .=) <$> _jReferencedTables,
4714+ ("statementType" .=) <$> _jStatementType,
46594715 ("numDmlAffectedRows" .=) <$> _jNumDmlAffectedRows,
46604716 ("queryPlan" .=) <$> _jQueryPlan,
46614717 ("cacheHit" .=) <$> _jCacheHit,
@@ -4723,6 +4779,45 @@ instance ToJSON JobStatus where
47234779 ("errorResult" .=) <$> _jsErrorResult,
47244780 ("errors" .=) <$> _jsErrors])
47254781
4782+-- | [Experimental] The labels associated with this table. You can use these
4783+-- to organize and group your tables. Label keys and values can be no
4784+-- longer than 63 characters, can only contain letters, numeric characters,
4785+-- underscores and dashes. International characters are allowed. Label
4786+-- values are optional. Label keys must start with a letter and must be
4787+-- unique within a dataset. Both keys and values are additionally
4788+-- constrained to be \<= 128 bytes in size.
4789+--
4790+-- /See:/ 'tableLabels' smart constructor.
4791+newtype TableLabels = TableLabels'
4792+ { _tlAddtional :: HashMap Text Text
4793+ } deriving (Eq,Show,Data,Typeable,Generic)
4794+
4795+-- | Creates a value of 'TableLabels' with the minimum fields required to make a request.
4796+--
4797+-- Use one of the following lenses to modify other fields as desired:
4798+--
4799+-- * 'tlAddtional'
4800+tableLabels
4801+ :: HashMap Text Text -- ^ 'tlAddtional'
4802+ -> TableLabels
4803+tableLabels pTlAddtional_ =
4804+ TableLabels'
4805+ { _tlAddtional = _Coerce # pTlAddtional_
4806+ }
4807+
4808+tlAddtional :: Lens' TableLabels (HashMap Text Text)
4809+tlAddtional
4810+ = lens _tlAddtional (\ s a -> s{_tlAddtional = a}) .
4811+ _Coerce
4812+
4813+instance FromJSON TableLabels where
4814+ parseJSON
4815+ = withObject "TableLabels"
4816+ (\ o -> TableLabels' <$> (parseJSONObject o))
4817+
4818+instance ToJSON TableLabels where
4819+ toJSON = toJSON . _tlAddtional
4820+
47264821--
47274822-- /See:/ 'dataSetAccessItem' smart constructor.
47284823data DataSetAccessItem = DataSetAccessItem'
@@ -4954,6 +5049,7 @@ data Table = Table'
49545049 , _tabNumRows :: !(Maybe (Textual Word64))
49555050 , _tabView :: !(Maybe ViewDefinition)
49565051 , _tabId :: !(Maybe Text)
5052+ , _tabLabels :: !(Maybe TableLabels)
49575053 , _tabType :: !(Maybe Text)
49585054 , _tabNumLongTermBytes :: !(Maybe (Textual Int64))
49595055 , _tabExpirationTime :: !(Maybe (Textual Int64))
@@ -4996,6 +5092,8 @@ data Table = Table'
49965092--
49975093-- * 'tabId'
49985094--
5095+-- * 'tabLabels'
5096+--
49995097-- * 'tabType'
50005098--
50015099-- * 'tabNumLongTermBytes'
@@ -5023,6 +5121,7 @@ table =
50235121 , _tabNumRows = Nothing
50245122 , _tabView = Nothing
50255123 , _tabId = Nothing
5124+ , _tabLabels = Nothing
50265125 , _tabType = Nothing
50275126 , _tabNumLongTermBytes = Nothing
50285127 , _tabExpirationTime = Nothing
@@ -5126,6 +5225,17 @@ tabView = lens _tabView (\ s a -> s{_tabView = a})
51265225tabId :: Lens' Table (Maybe Text)
51275226tabId = lens _tabId (\ s a -> s{_tabId = a})
51285227
5228+-- | [Experimental] The labels associated with this table. You can use these
5229+-- to organize and group your tables. Label keys and values can be no
5230+-- longer than 63 characters, can only contain letters, numeric characters,
5231+-- underscores and dashes. International characters are allowed. Label
5232+-- values are optional. Label keys must start with a letter and must be
5233+-- unique within a dataset. Both keys and values are additionally
5234+-- constrained to be \<= 128 bytes in size.
5235+tabLabels :: Lens' Table (Maybe TableLabels)
5236+tabLabels
5237+ = lens _tabLabels (\ s a -> s{_tabLabels = a})
5238+
51295239-- | [Output-only] Describes the table type. The following values are
51305240-- supported: TABLE: A normal BigQuery table. VIEW: A virtual table defined
51315241-- by a SQL query. EXTERNAL: A table that references data stored in an
@@ -5177,6 +5287,7 @@ instance FromJSON Table where
51775287 <*> (o .:? "numRows")
51785288 <*> (o .:? "view")
51795289 <*> (o .:? "id")
5290+ <*> (o .:? "labels")
51805291 <*> (o .:? "type")
51815292 <*> (o .:? "numLongTermBytes")
51825293 <*> (o .:? "expirationTime")
@@ -5202,6 +5313,7 @@ instance ToJSON Table where
52025313 ("timePartitioning" .=) <$> _tabTimePartitioning,
52035314 ("numRows" .=) <$> _tabNumRows,
52045315 ("view" .=) <$> _tabView, ("id" .=) <$> _tabId,
5316+ ("labels" .=) <$> _tabLabels,
52055317 ("type" .=) <$> _tabType,
52065318 ("numLongTermBytes" .=) <$> _tabNumLongTermBytes,
52075319 ("expirationTime" .=) <$> _tabExpirationTime,
@@ -5670,3 +5782,39 @@ instance FromJSON DataSetListDataSetsItemLabels where
56705782
56715783instance ToJSON DataSetListDataSetsItemLabels where
56725784 toJSON = toJSON . _dsldsilAddtional
5785+
5786+-- | [Experimental] The labels associated with this table. You can use these
5787+-- to organize and group your tables.
5788+--
5789+-- /See:/ 'tableListTablesItemLabels' smart constructor.
5790+newtype TableListTablesItemLabels = TableListTablesItemLabels'
5791+ { _tltilAddtional :: HashMap Text Text
5792+ } deriving (Eq,Show,Data,Typeable,Generic)
5793+
5794+-- | Creates a value of 'TableListTablesItemLabels' with the minimum fields required to make a request.
5795+--
5796+-- Use one of the following lenses to modify other fields as desired:
5797+--
5798+-- * 'tltilAddtional'
5799+tableListTablesItemLabels
5800+ :: HashMap Text Text -- ^ 'tltilAddtional'
5801+ -> TableListTablesItemLabels
5802+tableListTablesItemLabels pTltilAddtional_ =
5803+ TableListTablesItemLabels'
5804+ { _tltilAddtional = _Coerce # pTltilAddtional_
5805+ }
5806+
5807+tltilAddtional :: Lens' TableListTablesItemLabels (HashMap Text Text)
5808+tltilAddtional
5809+ = lens _tltilAddtional
5810+ (\ s a -> s{_tltilAddtional = a})
5811+ . _Coerce
5812+
5813+instance FromJSON TableListTablesItemLabels where
5814+ parseJSON
5815+ = withObject "TableListTablesItemLabels"
5816+ (\ o ->
5817+ TableListTablesItemLabels' <$> (parseJSONObject o))
5818+
5819+instance ToJSON TableListTablesItemLabels where
5820+ toJSON = toJSON . _tltilAddtional