gogol-bigquery 0.1.1 → 0.2.0

raw patch · 5 files changed

+211/−33 lines, 5 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/BigQuery.hs +15/−0
• gen/Network/Google/BigQuery/Types.hs +15/−0
• gen/Network/Google/BigQuery/Types/Product.hs +178/−30
• gogol-bigquery.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.1.1`+`0.2.0`   ## Description

@@ -149,6 +149,7 @@     , tltiFriendlyName     , tltiKind     , tltiId+    , tltiLabels     , tltiType      -- ** TableSchema@@ -319,6 +320,7 @@     -- ** ExplainQueryStage     , ExplainQueryStage     , explainQueryStage+    , eqsStatus     , eqsWaitRatioMax     , eqsRecordsWritten     , eqsSteps@@ -355,6 +357,7 @@     , jclSourceURIs     , jclEncoding     , jclFieldDelimiter+    , jclNullMarker      -- ** JobsListStateFilter     , JobsListStateFilter (..)@@ -564,6 +567,7 @@     , jBillingTier     , jUndeclaredQueryParameters     , jReferencedTables+    , jStatementType     , jNumDmlAffectedRows     , jQueryPlan     , jCacheHit@@ -576,6 +580,11 @@     , jsErrorResult     , jsErrors +    -- ** TableLabels+    , TableLabels+    , tableLabels+    , tlAddtional+     -- ** DataSetAccessItem     , DataSetAccessItem     , dataSetAccessItem@@ -618,6 +627,7 @@     , tabNumRows     , tabView     , tabId+    , tabLabels     , tabType     , tabNumLongTermBytes     , tabExpirationTime@@ -668,6 +678,11 @@     , DataSetListDataSetsItemLabels     , dataSetListDataSetsItemLabels     , dsldsilAddtional++    -- ** TableListTablesItemLabels+    , TableListTablesItemLabels+    , tableListTablesItemLabels+    , tltilAddtional     ) where  import           Network.Google.BigQuery.Types

@@ -77,6 +77,7 @@     , tltiFriendlyName     , tltiKind     , tltiId+    , tltiLabels     , tltiType      -- * TableSchema@@ -247,6 +248,7 @@     -- * ExplainQueryStage     , ExplainQueryStage     , explainQueryStage+    , eqsStatus     , eqsWaitRatioMax     , eqsRecordsWritten     , eqsSteps@@ -283,6 +285,7 @@     , jclSourceURIs     , jclEncoding     , jclFieldDelimiter+    , jclNullMarker      -- * JobsListStateFilter     , JobsListStateFilter (..)@@ -492,6 +495,7 @@     , jBillingTier     , jUndeclaredQueryParameters     , jReferencedTables+    , jStatementType     , jNumDmlAffectedRows     , jQueryPlan     , jCacheHit@@ -504,6 +508,11 @@     , jsErrorResult     , jsErrors +    -- * TableLabels+    , TableLabels+    , tableLabels+    , tlAddtional+     -- * DataSetAccessItem     , DataSetAccessItem     , dataSetAccessItem@@ -546,6 +555,7 @@     , tabNumRows     , tabView     , tabId+    , tabLabels     , tabType     , tabNumLongTermBytes     , tabExpirationTime@@ -596,6 +606,11 @@     , DataSetListDataSetsItemLabels     , dataSetListDataSetsItemLabels     , dsldsilAddtional++    -- * TableListTablesItemLabels+    , TableListTablesItemLabels+    , tableListTablesItemLabels+    , tltilAddtional     ) where  import           Network.Google.BigQuery.Types.Product

@@ -420,6 +420,7 @@     , _tltiFriendlyName   :: !(Maybe Text)     , _tltiKind           :: !Text     , _tltiId             :: !(Maybe Text)+    , _tltiLabels         :: !(Maybe TableListTablesItemLabels)     , _tltiType           :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -435,6 +436,8 @@ -- -- * 'tltiId' --+-- * 'tltiLabels'+-- -- * 'tltiType' tableListTablesItem     :: TableListTablesItem@@ -444,6 +447,7 @@     , _tltiFriendlyName = Nothing     , _tltiKind = "bigquery#table"     , _tltiId = Nothing+    , _tltiLabels = Nothing     , _tltiType = Nothing     } @@ -467,6 +471,12 @@ tltiId :: Lens' TableListTablesItem (Maybe Text) tltiId = lens _tltiId (\ s a -> s{_tltiId = a}) +-- | [Experimental] The labels associated with this table. You can use these+-- to organize and group your tables.+tltiLabels :: Lens' TableListTablesItem (Maybe TableListTablesItemLabels)+tltiLabels+  = lens _tltiLabels (\ s a -> s{_tltiLabels = a})+ -- | The type of table. Possible values are: TABLE, VIEW. tltiType :: Lens' TableListTablesItem (Maybe Text) tltiType = lens _tltiType (\ s a -> s{_tltiType = a})@@ -479,6 +489,7 @@                    (o .:? "tableReference") <*> (o .:? "friendlyName")                      <*> (o .:? "kind" .!= "bigquery#table")                      <*> (o .:? "id")+                     <*> (o .:? "labels")                      <*> (o .:? "type"))  instance ToJSON TableListTablesItem where@@ -488,6 +499,7 @@                  [("tableReference" .=) <$> _tltiTableReference,                   ("friendlyName" .=) <$> _tltiFriendlyName,                   Just ("kind" .= _tltiKind), ("id" .=) <$> _tltiId,+                  ("labels" .=) <$> _tltiLabels,                   ("type" .=) <$> _tltiType])  --@@ -1523,8 +1535,10 @@ tfsName = lens _tfsName (\ s a -> s{_tfsName = a})  -- | [Required] The field data type. Possible values include STRING, BYTES,--- INTEGER, FLOAT, BOOLEAN, TIMESTAMP, DATE, TIME, DATETIME, or RECORD--- (where RECORD indicates that the field contains a nested schema).+-- INTEGER, INT64 (same as INTEGER), FLOAT, FLOAT64 (same as FLOAT),+-- BOOLEAN, BOOL (same as BOOLEAN), TIMESTAMP, DATE, TIME, DATETIME, RECORD+-- (where RECORD indicates that the field contains a nested schema) or+-- STRUCT (same as RECORD). tfsType :: Lens' TableFieldSchema (Maybe Text) tfsType = lens _tfsType (\ s a -> s{_tfsType = a}) @@ -1910,8 +1924,9 @@ qrQuery :: Lens' QueryRequest (Maybe Text) qrQuery = lens _qrQuery (\ s a -> s{_qrQuery = a}) --- | [Experimental] Standard SQL only. Whether to use positional (?) or named--- (\'myparam) query parameters in this query.+-- | [Experimental] Standard SQL only. Set to POSITIONAL to use positional+-- (?) query parameters or to NAMED to use named (\'myparam) query+-- parameters in this query. qrParameterMode :: Lens' QueryRequest (Maybe Text) qrParameterMode   = lens _qrParameterMode@@ -1929,9 +1944,9 @@   = lens _qrTimeoutMs (\ s a -> s{_qrTimeoutMs = a}) .       mapping _Coerce --- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL dialect--- for this query. The default value is true. If set to false, the query--- will use BigQuery\'s standard SQL:+-- | Specifies whether to use BigQuery\'s legacy SQL dialect for this query.+-- The default value is true. If set to false, the query will use+-- BigQuery\'s standard SQL: -- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ When useLegacySql -- is set to false, the values of allowLargeResults and flattenResults are -- ignored; query will be run as if allowLargeResults is true and@@ -2138,7 +2153,8 @@ -- -- /See:/ 'explainQueryStage' smart constructor. data ExplainQueryStage = ExplainQueryStage'-    { _eqsWaitRatioMax    :: !(Maybe (Textual Double))+    { _eqsStatus          :: !(Maybe Text)+    , _eqsWaitRatioMax    :: !(Maybe (Textual Double))     , _eqsRecordsWritten  :: !(Maybe (Textual Int64))     , _eqsSteps           :: !(Maybe [ExplainQueryStep])     , _eqsWriteRatioAvg   :: !(Maybe (Textual Double))@@ -2157,6 +2173,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'eqsStatus'+-- -- * 'eqsWaitRatioMax' -- -- * 'eqsRecordsWritten'@@ -2186,7 +2204,8 @@     :: ExplainQueryStage explainQueryStage =     ExplainQueryStage'-    { _eqsWaitRatioMax = Nothing+    { _eqsStatus = Nothing+    , _eqsWaitRatioMax = Nothing     , _eqsRecordsWritten = Nothing     , _eqsSteps = Nothing     , _eqsWriteRatioAvg = Nothing@@ -2201,6 +2220,11 @@     , _eqsReadRatioAvg = Nothing     } +-- | Current status for the stage.+eqsStatus :: Lens' ExplainQueryStage (Maybe Text)+eqsStatus+  = lens _eqsStatus (\ s a -> s{_eqsStatus = a})+ -- | Relative amount of time the slowest shard spent waiting to be scheduled. eqsWaitRatioMax :: Lens' ExplainQueryStage (Maybe Double) eqsWaitRatioMax@@ -2294,7 +2318,8 @@           = withObject "ExplainQueryStage"               (\ o ->                  ExplainQueryStage' <$>-                   (o .:? "waitRatioMax") <*> (o .:? "recordsWritten")+                   (o .:? "status") <*> (o .:? "waitRatioMax") <*>+                     (o .:? "recordsWritten")                      <*> (o .:? "steps" .!= mempty)                      <*> (o .:? "writeRatioAvg")                      <*> (o .:? "recordsRead")@@ -2311,7 +2336,8 @@         toJSON ExplainQueryStage'{..}           = object               (catMaybes-                 [("waitRatioMax" .=) <$> _eqsWaitRatioMax,+                 [("status" .=) <$> _eqsStatus,+                  ("waitRatioMax" .=) <$> _eqsWaitRatioMax,                   ("recordsWritten" .=) <$> _eqsRecordsWritten,                   ("steps" .=) <$> _eqsSteps,                   ("writeRatioAvg" .=) <$> _eqsWriteRatioAvg,@@ -2341,12 +2367,13 @@     , _jclAllowQuotedNewlines :: !(Maybe Bool)     , _jclSourceFormat        :: !(Maybe Text)     , _jclSchema              :: !(Maybe TableSchema)-    , _jclQuote               :: !Text+    , _jclQuote               :: !(Maybe Text)     , _jclMaxBadRecords       :: !(Maybe (Textual Int32))     , _jclAutodetect          :: !(Maybe Bool)     , _jclSourceURIs          :: !(Maybe [Text])     , _jclEncoding            :: !(Maybe Text)     , _jclFieldDelimiter      :: !(Maybe Text)+    , _jclNullMarker          :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'JobConfigurationLoad' with the minimum fields required to make a request.@@ -2390,6 +2417,8 @@ -- * 'jclEncoding' -- -- * 'jclFieldDelimiter'+--+-- * 'jclNullMarker' jobConfigurationLoad     :: JobConfigurationLoad jobConfigurationLoad =@@ -2407,12 +2436,13 @@     , _jclAllowQuotedNewlines = Nothing     , _jclSourceFormat = Nothing     , _jclSchema = Nothing-    , _jclQuote = "\""+    , _jclQuote = Nothing     , _jclMaxBadRecords = Nothing     , _jclAutodetect = Nothing     , _jclSourceURIs = Nothing     , _jclEncoding = Nothing     , _jclFieldDelimiter = Nothing+    , _jclNullMarker = Nothing     }  -- | [Optional] The number of rows at the top of a CSV file that BigQuery@@ -2550,7 +2580,7 @@ -- not contain quoted sections, set the property value to an empty string. -- If your data contains quoted newline characters, you must also set the -- allowQuotedNewlines property to true.-jclQuote :: Lens' JobConfigurationLoad Text+jclQuote :: Lens' JobConfigurationLoad (Maybe Text) jclQuote = lens _jclQuote (\ s a -> s{_jclQuote = a})  -- | [Optional] The maximum number of bad records that BigQuery can ignore@@ -2600,6 +2630,18 @@   = lens _jclFieldDelimiter       (\ s a -> s{_jclFieldDelimiter = a}) +-- | [Optional] Specifies a string that represents a null value in a CSV+-- file. For example, if you specify \"\\N\", BigQuery interprets \"\\N\"+-- as a null value when loading a CSV file. The default value is the empty+-- string. If you set this property to a custom value, BigQuery still+-- interprets the empty string as a null value for all data types except+-- for STRING and BYTE. For STRING and BYTE columns, BigQuery interprets+-- the empty string as an empty value.+jclNullMarker :: Lens' JobConfigurationLoad (Maybe Text)+jclNullMarker+  = lens _jclNullMarker+      (\ s a -> s{_jclNullMarker = a})+ instance FromJSON JobConfigurationLoad where         parseJSON           = withObject "JobConfigurationLoad"@@ -2618,12 +2660,13 @@                      <*> (o .:? "allowQuotedNewlines")                      <*> (o .:? "sourceFormat")                      <*> (o .:? "schema")-                     <*> (o .:? "quote" .!= "\"")+                     <*> (o .:? "quote")                      <*> (o .:? "maxBadRecords")                      <*> (o .:? "autodetect")                      <*> (o .:? "sourceUris" .!= mempty)                      <*> (o .:? "encoding")-                     <*> (o .:? "fieldDelimiter"))+                     <*> (o .:? "fieldDelimiter")+                     <*> (o .:? "nullMarker"))  instance ToJSON JobConfigurationLoad where         toJSON JobConfigurationLoad'{..}@@ -2645,12 +2688,13 @@                     _jclAllowQuotedNewlines,                   ("sourceFormat" .=) <$> _jclSourceFormat,                   ("schema" .=) <$> _jclSchema,-                  Just ("quote" .= _jclQuote),+                  ("quote" .=) <$> _jclQuote,                   ("maxBadRecords" .=) <$> _jclMaxBadRecords,                   ("autodetect" .=) <$> _jclAutodetect,                   ("sourceUris" .=) <$> _jclSourceURIs,                   ("encoding" .=) <$> _jclEncoding,-                  ("fieldDelimiter" .=) <$> _jclFieldDelimiter])+                  ("fieldDelimiter" .=) <$> _jclFieldDelimiter,+                  ("nullMarker" .=) <$> _jclNullMarker])  -- -- /See:/ 'dataSetReference' smart constructor.@@ -2881,7 +2925,7 @@ -- -- /See:/ 'bigtableColumn' smart constructor. data BigtableColumn = BigtableColumn'-    { _bcQualifierEncoded :: !(Maybe Base64)+    { _bcQualifierEncoded :: !(Maybe Bytes)     , _bcFieldName        :: !(Maybe Text)     , _bcQualifierString  :: !(Maybe Text)     , _bcOnlyReadLatest   :: !(Maybe Bool)@@ -2928,7 +2972,7 @@ bcQualifierEncoded   = lens _bcQualifierEncoded       (\ s a -> s{_bcQualifierEncoded = a})-      . mapping _Base64+      . mapping _Bytes  -- | [Optional] If the qualifier is not a valid BigQuery field identifier -- i.e. does not match [a-zA-Z][a-zA-Z0-9_]*, a valid identifier must be@@ -4028,16 +4072,17 @@   = lens _jcqFlattenResults       (\ s a -> s{_jcqFlattenResults = a}) --- | [Experimental] Standard SQL only. Whether to use positional (?) or named--- (\'myparam) query parameters in this query.+-- | [Experimental] Standard SQL only. Set to POSITIONAL to use positional+-- (?) query parameters or to NAMED to use named (\'myparam) query+-- parameters in this query. jcqParameterMode :: Lens' JobConfigurationQuery (Maybe Text) jcqParameterMode   = lens _jcqParameterMode       (\ s a -> s{_jcqParameterMode = a}) --- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL dialect--- for this query. The default value is true. If set to false, the query--- will use BigQuery\'s standard SQL:+-- | Specifies whether to use BigQuery\'s legacy SQL dialect for this query.+-- The default value is true. If set to false, the query will use+-- BigQuery\'s standard SQL: -- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ When useLegacySql -- is set to false, the values of allowLargeResults and flattenResults are -- ignored; query will be run as if allowLargeResults is true and@@ -4440,11 +4485,10 @@ vdQuery :: Lens' ViewDefinition (Maybe Text) vdQuery = lens _vdQuery (\ s a -> s{_vdQuery = a}) --- | [Experimental] Specifies whether to use BigQuery\'s legacy SQL for this--- view. The default value is true. If set to false, the view will use--- BigQuery\'s standard SQL:--- https:\/\/cloud.google.com\/bigquery\/sql-reference\/ Queries and views--- that reference this view must use the same flag value.+-- | Specifies whether to use BigQuery\'s legacy SQL for this view. The+-- default value is true. If set to false, the view will use BigQuery\'s+-- standard SQL: https:\/\/cloud.google.com\/bigquery\/sql-reference\/+-- Queries and views that reference this view must use the same flag value. vdUseLegacySQL :: Lens' ViewDefinition (Maybe Bool) vdUseLegacySQL   = lens _vdUseLegacySQL@@ -4527,6 +4571,7 @@     , _jBillingTier               :: !(Maybe (Textual Int32))     , _jUndeclaredQueryParameters :: !(Maybe [QueryParameter])     , _jReferencedTables          :: !(Maybe [TableReference])+    , _jStatementType             :: !(Maybe Text)     , _jNumDmlAffectedRows        :: !(Maybe (Textual Int64))     , _jQueryPlan                 :: !(Maybe [ExplainQueryStage])     , _jCacheHit                  :: !(Maybe Bool)@@ -4547,6 +4592,8 @@ -- -- * 'jReferencedTables' --+-- * 'jStatementType'+-- -- * 'jNumDmlAffectedRows' -- -- * 'jQueryPlan'@@ -4563,6 +4610,7 @@     , _jBillingTier = Nothing     , _jUndeclaredQueryParameters = Nothing     , _jReferencedTables = Nothing+    , _jStatementType = Nothing     , _jNumDmlAffectedRows = Nothing     , _jQueryPlan = Nothing     , _jCacheHit = Nothing@@ -4605,6 +4653,12 @@       . _Default       . _Coerce +-- | [Output-only, Experimental] The type of query statement, if valid.+jStatementType :: Lens' JobStatistics2 (Maybe Text)+jStatementType+  = lens _jStatementType+      (\ s a -> s{_jStatementType = a})+ -- | [Output-only, Experimental] The number of rows affected by a DML -- statement. Present only for DML statements INSERT, UPDATE or DELETE. jNumDmlAffectedRows :: Lens' JobStatistics2 (Maybe Int64)@@ -4641,6 +4695,7 @@                      <*> (o .:? "billingTier")                      <*> (o .:? "undeclaredQueryParameters" .!= mempty)                      <*> (o .:? "referencedTables" .!= mempty)+                     <*> (o .:? "statementType")                      <*> (o .:? "numDmlAffectedRows")                      <*> (o .:? "queryPlan" .!= mempty)                      <*> (o .:? "cacheHit")@@ -4656,6 +4711,7 @@                   ("undeclaredQueryParameters" .=) <$>                     _jUndeclaredQueryParameters,                   ("referencedTables" .=) <$> _jReferencedTables,+                  ("statementType" .=) <$> _jStatementType,                   ("numDmlAffectedRows" .=) <$> _jNumDmlAffectedRows,                   ("queryPlan" .=) <$> _jQueryPlan,                   ("cacheHit" .=) <$> _jCacheHit,@@ -4723,7 +4779,46 @@                   ("errorResult" .=) <$> _jsErrorResult,                   ("errors" .=) <$> _jsErrors]) +-- | [Experimental] The labels associated with this table. You can use these+-- to organize and group your tables. Label keys and values can be no+-- longer than 63 characters, can only contain letters, numeric characters,+-- underscores and dashes. International characters are allowed. Label+-- values are optional. Label keys must start with a letter and must be+-- unique within a dataset. Both keys and values are additionally+-- constrained to be \<= 128 bytes in size. --+-- /See:/ 'tableLabels' smart constructor.+newtype TableLabels = TableLabels'+    { _tlAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'TableLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tlAddtional'+tableLabels+    :: HashMap Text Text -- ^ 'tlAddtional'+    -> TableLabels+tableLabels pTlAddtional_ =+    TableLabels'+    { _tlAddtional = _Coerce # pTlAddtional_+    }++tlAddtional :: Lens' TableLabels (HashMap Text Text)+tlAddtional+  = lens _tlAddtional (\ s a -> s{_tlAddtional = a}) .+      _Coerce++instance FromJSON TableLabels where+        parseJSON+          = withObject "TableLabels"+              (\ o -> TableLabels' <$> (parseJSONObject o))++instance ToJSON TableLabels where+        toJSON = toJSON . _tlAddtional++-- -- /See:/ 'dataSetAccessItem' smart constructor. data DataSetAccessItem = DataSetAccessItem'     { _dsaiGroupByEmail :: !(Maybe Text)@@ -4954,6 +5049,7 @@     , _tabNumRows                   :: !(Maybe (Textual Word64))     , _tabView                      :: !(Maybe ViewDefinition)     , _tabId                        :: !(Maybe Text)+    , _tabLabels                    :: !(Maybe TableLabels)     , _tabType                      :: !(Maybe Text)     , _tabNumLongTermBytes          :: !(Maybe (Textual Int64))     , _tabExpirationTime            :: !(Maybe (Textual Int64))@@ -4996,6 +5092,8 @@ -- -- * 'tabId' --+-- * 'tabLabels'+-- -- * 'tabType' -- -- * 'tabNumLongTermBytes'@@ -5023,6 +5121,7 @@     , _tabNumRows = Nothing     , _tabView = Nothing     , _tabId = Nothing+    , _tabLabels = Nothing     , _tabType = Nothing     , _tabNumLongTermBytes = Nothing     , _tabExpirationTime = Nothing@@ -5126,6 +5225,17 @@ tabId :: Lens' Table (Maybe Text) tabId = lens _tabId (\ s a -> s{_tabId = a}) +-- | [Experimental] The labels associated with this table. You can use these+-- to organize and group your tables. Label keys and values can be no+-- longer than 63 characters, can only contain letters, numeric characters,+-- underscores and dashes. International characters are allowed. Label+-- values are optional. Label keys must start with a letter and must be+-- unique within a dataset. Both keys and values are additionally+-- constrained to be \<= 128 bytes in size.+tabLabels :: Lens' Table (Maybe TableLabels)+tabLabels+  = lens _tabLabels (\ s a -> s{_tabLabels = a})+ -- | [Output-only] Describes the table type. The following values are -- supported: TABLE: A normal BigQuery table. VIEW: A virtual table defined -- by a SQL query. EXTERNAL: A table that references data stored in an@@ -5177,6 +5287,7 @@                      <*> (o .:? "numRows")                      <*> (o .:? "view")                      <*> (o .:? "id")+                     <*> (o .:? "labels")                      <*> (o .:? "type")                      <*> (o .:? "numLongTermBytes")                      <*> (o .:? "expirationTime")@@ -5202,6 +5313,7 @@                   ("timePartitioning" .=) <$> _tabTimePartitioning,                   ("numRows" .=) <$> _tabNumRows,                   ("view" .=) <$> _tabView, ("id" .=) <$> _tabId,+                  ("labels" .=) <$> _tabLabels,                   ("type" .=) <$> _tabType,                   ("numLongTermBytes" .=) <$> _tabNumLongTermBytes,                   ("expirationTime" .=) <$> _tabExpirationTime,@@ -5670,3 +5782,39 @@  instance ToJSON DataSetListDataSetsItemLabels where         toJSON = toJSON . _dsldsilAddtional++-- | [Experimental] The labels associated with this table. You can use these+-- to organize and group your tables.+--+-- /See:/ 'tableListTablesItemLabels' smart constructor.+newtype TableListTablesItemLabels = TableListTablesItemLabels'+    { _tltilAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'TableListTablesItemLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tltilAddtional'+tableListTablesItemLabels+    :: HashMap Text Text -- ^ 'tltilAddtional'+    -> TableListTablesItemLabels+tableListTablesItemLabels pTltilAddtional_ =+    TableListTablesItemLabels'+    { _tltilAddtional = _Coerce # pTltilAddtional_+    }++tltilAddtional :: Lens' TableListTablesItemLabels (HashMap Text Text)+tltilAddtional+  = lens _tltilAddtional+      (\ s a -> s{_tltilAddtional = a})+      . _Coerce++instance FromJSON TableListTablesItemLabels where+        parseJSON+          = withObject "TableListTablesItemLabels"+              (\ o ->+                 TableListTablesItemLabels' <$> (parseJSONObject o))++instance ToJSON TableListTablesItemLabels where+        toJSON = toJSON . _tltilAddtional

@@ -1,5 +1,5 @@ name:                  gogol-bigquery-version:               0.1.1+version:               0.2.0 synopsis:              Google BigQuery SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -62,5 +62,5 @@         , Network.Google.BigQuery.Types.Sum      build-depends:-          gogol-core == 0.1.1.*+          gogol-core == 0.2.0.*         , base       >= 4.7 && < 5