diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.0` +`0.1.1` ## Description diff --git a/gen/Network/Google/BigQuery.hs b/gen/Network/Google/BigQuery.hs --- a/gen/Network/Google/BigQuery.hs +++ b/gen/Network/Google/BigQuery.hs @@ -122,6 +122,7 @@ , dsldsiKind , dsldsiDataSetReference , dsldsiId + , dsldsiLabels -- ** TableDataList , TableDataList @@ -170,6 +171,13 @@ , eqsSubsteps , eqsKind + -- ** QueryParameterTypeStructTypesItem + , QueryParameterTypeStructTypesItem + , queryParameterTypeStructTypesItem + , qptstiName + , qptstiType + , qptstiDescription + -- ** BigtableColumnFamily , BigtableColumnFamily , bigtableColumnFamily @@ -190,6 +198,11 @@ , jsQuery , jsExtract + -- ** JobConfigurationLabels + , JobConfigurationLabels + , jobConfigurationLabels + , jclAddtional + -- ** DataSet , DataSet , dataSet @@ -203,12 +216,14 @@ , dsDataSetReference , dsSelfLink , dsId + , dsLabels , dsDefaultTableExpirationMs , dsDescription -- ** BigtableOptions , BigtableOptions , bigtableOptions + , boReadRowkeyAsString , boIgnoreUnspecifiedColumnFamilies , boColumnFamilies @@ -252,6 +267,7 @@ , gqrrTotalBytesProcessed , gqrrRows , gqrrPageToken + , gqrrNumDmlAffectedRows , gqrrTotalRows , gqrrErrors , gqrrJobComplete @@ -271,7 +287,9 @@ , qrUseQueryCache , qrPreserveNulls , qrKind + , qrQueryParameters , qrQuery + , qrParameterMode , qrTimeoutMs , qrUseLegacySQL , qrDryRun @@ -281,6 +299,13 @@ -- ** JobsListProjection , JobsListProjection (..) + -- ** QueryParameter + , QueryParameter + , queryParameter + , qpParameterValue + , qpParameterType + , qpName + -- ** JobStatistics4 , JobStatistics4 , jobStatistics4 @@ -318,6 +343,7 @@ , jclAllowJaggedRows , jclSchemaInline , jclIgnoreUnknownValues + , jclSchemaUpdateOptions , jclCreateDisPosition , jclSchemaInlineFormat , jclAllowQuotedNewlines @@ -398,6 +424,16 @@ , tpExpirationMs , tpType + -- ** QueryParameterValueStructValues + , QueryParameterValueStructValues + , queryParameterValueStructValues + , qpvsvAddtional + + -- ** DataSetLabels + , DataSetLabels + , dataSetLabels + , dslAddtional + -- ** JobConfiguration , JobConfiguration , jobConfiguration @@ -405,6 +441,7 @@ , jcLoad , jcQuery , jcExtract + , jcLabels , jcDryRun -- ** Job @@ -457,12 +494,16 @@ , jcqUseQueryCache , jcqPreserveNulls , jcqTableDefinitions + , jcqQueryParameters + , jcqSchemaUpdateOptions + , jcqMaximumBytesBilled , jcqCreateDisPosition , jcqUserDefinedFunctionResources , jcqAllowLargeResults , jcqMaximumBillingTier , jcqQuery , jcqFlattenResults + , jcqParameterMode , jcqUseLegacySQL , jcqDefaultDataSet @@ -495,11 +536,19 @@ , tableCell , tcV + -- ** QueryParameterValue + , QueryParameterValue + , queryParameterValue + , qpvStructValues + , qpvValue + , qpvArrayValues + -- ** ViewDefinition , ViewDefinition , viewDefinition , vdUserDefinedFunctionResources , vdQuery + , vdUseLegacySQL -- ** UserDefinedFunctionResource , UserDefinedFunctionResource @@ -513,7 +562,9 @@ , jSchema , jTotalBytesProcessed , jBillingTier + , jUndeclaredQueryParameters , jReferencedTables + , jNumDmlAffectedRows , jQueryPlan , jCacheHit , jTotalBytesBilled @@ -541,6 +592,13 @@ , tKind , tInsertErrors + -- ** QueryParameterType + , QueryParameterType + , queryParameterType + , qptStructTypes + , qptType + , qptArrayType + -- ** Table , Table , table @@ -600,10 +658,16 @@ , qTotalBytesProcessed , qRows , qPageToken + , qNumDmlAffectedRows , qTotalRows , qErrors , qJobComplete , qCacheHit + + -- ** DataSetListDataSetsItemLabels + , DataSetListDataSetsItemLabels + , dataSetListDataSetsItemLabels + , dsldsilAddtional ) where import Network.Google.BigQuery.Types diff --git a/gen/Network/Google/BigQuery/Types.hs b/gen/Network/Google/BigQuery/Types.hs --- a/gen/Network/Google/BigQuery/Types.hs +++ b/gen/Network/Google/BigQuery/Types.hs @@ -50,6 +50,7 @@ , dsldsiKind , dsldsiDataSetReference , dsldsiId + , dsldsiLabels -- * TableDataList , TableDataList @@ -98,6 +99,13 @@ , eqsSubsteps , eqsKind + -- * QueryParameterTypeStructTypesItem + , QueryParameterTypeStructTypesItem + , queryParameterTypeStructTypesItem + , qptstiName + , qptstiType + , qptstiDescription + -- * BigtableColumnFamily , BigtableColumnFamily , bigtableColumnFamily @@ -118,6 +126,11 @@ , jsQuery , jsExtract + -- * JobConfigurationLabels + , JobConfigurationLabels + , jobConfigurationLabels + , jclAddtional + -- * DataSet , DataSet , dataSet @@ -131,12 +144,14 @@ , dsDataSetReference , dsSelfLink , dsId + , dsLabels , dsDefaultTableExpirationMs , dsDescription -- * BigtableOptions , BigtableOptions , bigtableOptions + , boReadRowkeyAsString , boIgnoreUnspecifiedColumnFamilies , boColumnFamilies @@ -180,6 +195,7 @@ , gqrrTotalBytesProcessed , gqrrRows , gqrrPageToken + , gqrrNumDmlAffectedRows , gqrrTotalRows , gqrrErrors , gqrrJobComplete @@ -199,7 +215,9 @@ , qrUseQueryCache , qrPreserveNulls , qrKind + , qrQueryParameters , qrQuery + , qrParameterMode , qrTimeoutMs , qrUseLegacySQL , qrDryRun @@ -209,6 +227,13 @@ -- * JobsListProjection , JobsListProjection (..) + -- * QueryParameter + , QueryParameter + , queryParameter + , qpParameterValue + , qpParameterType + , qpName + -- * JobStatistics4 , JobStatistics4 , jobStatistics4 @@ -246,6 +271,7 @@ , jclAllowJaggedRows , jclSchemaInline , jclIgnoreUnknownValues + , jclSchemaUpdateOptions , jclCreateDisPosition , jclSchemaInlineFormat , jclAllowQuotedNewlines @@ -326,6 +352,16 @@ , tpExpirationMs , tpType + -- * QueryParameterValueStructValues + , QueryParameterValueStructValues + , queryParameterValueStructValues + , qpvsvAddtional + + -- * DataSetLabels + , DataSetLabels + , dataSetLabels + , dslAddtional + -- * JobConfiguration , JobConfiguration , jobConfiguration @@ -333,6 +369,7 @@ , jcLoad , jcQuery , jcExtract + , jcLabels , jcDryRun -- * Job @@ -385,12 +422,16 @@ , jcqUseQueryCache , jcqPreserveNulls , jcqTableDefinitions + , jcqQueryParameters + , jcqSchemaUpdateOptions + , jcqMaximumBytesBilled , jcqCreateDisPosition , jcqUserDefinedFunctionResources , jcqAllowLargeResults , jcqMaximumBillingTier , jcqQuery , jcqFlattenResults + , jcqParameterMode , jcqUseLegacySQL , jcqDefaultDataSet @@ -423,11 +464,19 @@ , tableCell , tcV + -- * QueryParameterValue + , QueryParameterValue + , queryParameterValue + , qpvStructValues + , qpvValue + , qpvArrayValues + -- * ViewDefinition , ViewDefinition , viewDefinition , vdUserDefinedFunctionResources , vdQuery + , vdUseLegacySQL -- * UserDefinedFunctionResource , UserDefinedFunctionResource @@ -441,7 +490,9 @@ , jSchema , jTotalBytesProcessed , jBillingTier + , jUndeclaredQueryParameters , jReferencedTables + , jNumDmlAffectedRows , jQueryPlan , jCacheHit , jTotalBytesBilled @@ -469,6 +520,13 @@ , tKind , tInsertErrors + -- * QueryParameterType + , QueryParameterType + , queryParameterType + , qptStructTypes + , qptType + , qptArrayType + -- * Table , Table , table @@ -528,10 +586,16 @@ , qTotalBytesProcessed , qRows , qPageToken + , qNumDmlAffectedRows , qTotalRows , qErrors , qJobComplete , qCacheHit + + -- * DataSetListDataSetsItemLabels + , DataSetListDataSetsItemLabels + , dataSetListDataSetsItemLabels + , dsldsilAddtional ) where import Network.Google.BigQuery.Types.Product diff --git a/gen/Network/Google/BigQuery/Types/Product.hs b/gen/Network/Google/BigQuery/Types/Product.hs --- a/gen/Network/Google/BigQuery/Types/Product.hs +++ b/gen/Network/Google/BigQuery/Types/Product.hs @@ -155,6 +155,7 @@ , _dsldsiKind :: !Text , _dsldsiDataSetReference :: !(Maybe DataSetReference) , _dsldsiId :: !(Maybe Text) + , _dsldsiLabels :: !(Maybe DataSetListDataSetsItemLabels) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DataSetListDataSetsItem' with the minimum fields required to make a request. @@ -168,6 +169,8 @@ -- * 'dsldsiDataSetReference' -- -- * 'dsldsiId' +-- +-- * 'dsldsiLabels' dataSetListDataSetsItem :: DataSetListDataSetsItem dataSetListDataSetsItem = @@ -176,6 +179,7 @@ , _dsldsiKind = "bigquery#dataset" , _dsldsiDataSetReference = Nothing , _dsldsiId = Nothing + , _dsldsiLabels = Nothing } -- | A descriptive name for the dataset, if one exists. @@ -201,6 +205,12 @@ dsldsiId :: Lens' DataSetListDataSetsItem (Maybe Text) dsldsiId = lens _dsldsiId (\ s a -> s{_dsldsiId = a}) +-- | [Experimental] The labels associated with this dataset. You can use +-- these to organize and group your datasets. +dsldsiLabels :: Lens' DataSetListDataSetsItem (Maybe DataSetListDataSetsItemLabels) +dsldsiLabels + = lens _dsldsiLabels (\ s a -> s{_dsldsiLabels = a}) + instance FromJSON DataSetListDataSetsItem where parseJSON = withObject "DataSetListDataSetsItem" @@ -209,7 +219,8 @@ (o .:? "friendlyName") <*> (o .:? "kind" .!= "bigquery#dataset") <*> (o .:? "datasetReference") - <*> (o .:? "id")) + <*> (o .:? "id") + <*> (o .:? "labels")) instance ToJSON DataSetListDataSetsItem where toJSON DataSetListDataSetsItem'{..} @@ -218,7 +229,8 @@ [("friendlyName" .=) <$> _dsldsiFriendlyName, Just ("kind" .= _dsldsiKind), ("datasetReference" .=) <$> _dsldsiDataSetReference, - ("id" .=) <$> _dsldsiId]) + ("id" .=) <$> _dsldsiId, + ("labels" .=) <$> _dsldsiLabels]) -- -- /See:/ 'tableDataList' smart constructor. @@ -641,6 +653,66 @@ ("kind" .=) <$> _eqsKind]) -- +-- /See:/ 'queryParameterTypeStructTypesItem' smart constructor. +data QueryParameterTypeStructTypesItem = QueryParameterTypeStructTypesItem' + { _qptstiName :: !(Maybe Text) + , _qptstiType :: !(Maybe QueryParameterType) + , _qptstiDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryParameterTypeStructTypesItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qptstiName' +-- +-- * 'qptstiType' +-- +-- * 'qptstiDescription' +queryParameterTypeStructTypesItem + :: QueryParameterTypeStructTypesItem +queryParameterTypeStructTypesItem = + QueryParameterTypeStructTypesItem' + { _qptstiName = Nothing + , _qptstiType = Nothing + , _qptstiDescription = Nothing + } + +-- | [Optional] The name of this field. +qptstiName :: Lens' QueryParameterTypeStructTypesItem (Maybe Text) +qptstiName + = lens _qptstiName (\ s a -> s{_qptstiName = a}) + +-- | [Required] The type of this field. +qptstiType :: Lens' QueryParameterTypeStructTypesItem (Maybe QueryParameterType) +qptstiType + = lens _qptstiType (\ s a -> s{_qptstiType = a}) + +-- | [Optional] Human-oriented description of the field. +qptstiDescription :: Lens' QueryParameterTypeStructTypesItem (Maybe Text) +qptstiDescription + = lens _qptstiDescription + (\ s a -> s{_qptstiDescription = a}) + +instance FromJSON QueryParameterTypeStructTypesItem + where + parseJSON + = withObject "QueryParameterTypeStructTypesItem" + (\ o -> + QueryParameterTypeStructTypesItem' <$> + (o .:? "name") <*> (o .:? "type") <*> + (o .:? "description")) + +instance ToJSON QueryParameterTypeStructTypesItem + where + toJSON QueryParameterTypeStructTypesItem'{..} + = object + (catMaybes + [("name" .=) <$> _qptstiName, + ("type" .=) <$> _qptstiType, + ("description" .=) <$> _qptstiDescription]) + +-- -- /See:/ 'bigtableColumnFamily' smart constructor. data BigtableColumnFamily = BigtableColumnFamily' { _bcfFamilyId :: !(Maybe Text) @@ -701,7 +773,7 @@ -- | [Optional] The type to convert the value in cells of this column family. -- The values are expected to be encoded using HBase Bytes.toBytes function -- when using the BINARY encoding value. Following BigQuery types are --- allowed (case-sensitive) - BYTES STRING INTEGER FLOAT BOOLEAN Defaut +-- allowed (case-sensitive) - BYTES STRING INTEGER FLOAT BOOLEAN Default -- type is BYTES. This can be overridden for a specific column by listing -- that column in \'columns\' and specifying a type for it. bcfType :: Lens' BigtableColumnFamily (Maybe Text) @@ -848,7 +920,47 @@ ("query" .=) <$> _jsQuery, ("extract" .=) <$> _jsExtract]) +-- | [Experimental] The labels associated with this job. You can use these to +-- organize and group your jobs. 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:/ 'jobConfigurationLabels' smart constructor. +newtype JobConfigurationLabels = JobConfigurationLabels' + { _jclAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jclAddtional' +jobConfigurationLabels + :: HashMap Text Text -- ^ 'jclAddtional' + -> JobConfigurationLabels +jobConfigurationLabels pJclAddtional_ = + JobConfigurationLabels' + { _jclAddtional = _Coerce # pJclAddtional_ + } + +jclAddtional :: Lens' JobConfigurationLabels (HashMap Text Text) +jclAddtional + = lens _jclAddtional (\ s a -> s{_jclAddtional = a}) + . _Coerce + +instance FromJSON JobConfigurationLabels where + parseJSON + = withObject "JobConfigurationLabels" + (\ o -> + JobConfigurationLabels' <$> (parseJSONObject o)) + +instance ToJSON JobConfigurationLabels where + toJSON = toJSON . _jclAddtional + +-- -- /See:/ 'dataSet' smart constructor. data DataSet = DataSet' { _dsCreationTime :: !(Maybe (Textual Int64)) @@ -861,6 +973,7 @@ , _dsDataSetReference :: !(Maybe DataSetReference) , _dsSelfLink :: !(Maybe Text) , _dsId :: !(Maybe Text) + , _dsLabels :: !(Maybe DataSetLabels) , _dsDefaultTableExpirationMs :: !(Maybe (Textual Int64)) , _dsDescription :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -889,6 +1002,8 @@ -- -- * 'dsId' -- +-- * 'dsLabels' +-- -- * 'dsDefaultTableExpirationMs' -- -- * 'dsDescription' @@ -906,6 +1021,7 @@ , _dsDataSetReference = Nothing , _dsSelfLink = Nothing , _dsId = Nothing + , _dsLabels = Nothing , _dsDefaultTableExpirationMs = Nothing , _dsDescription = Nothing } @@ -979,6 +1095,13 @@ dsId :: Lens' DataSet (Maybe Text) dsId = lens _dsId (\ s a -> s{_dsId = a}) +-- | [Experimental] The labels associated with this dataset. You can use +-- these to organize and group your datasets. You can set this property +-- when inserting or updating a dataset. See Labeling Datasets for more +-- information. +dsLabels :: Lens' DataSet (Maybe DataSetLabels) +dsLabels = lens _dsLabels (\ s a -> s{_dsLabels = a}) + -- | [Optional] The default lifetime of all tables in the dataset, in -- milliseconds. The minimum value is 3600000 milliseconds (one hour). Once -- this property is set, all newly-created tables in the dataset will have @@ -1016,6 +1139,7 @@ <*> (o .:? "datasetReference") <*> (o .:? "selfLink") <*> (o .:? "id") + <*> (o .:? "labels") <*> (o .:? "defaultTableExpirationMs") <*> (o .:? "description")) @@ -1031,6 +1155,7 @@ ("lastModifiedTime" .=) <$> _dsLastModifiedTime, ("datasetReference" .=) <$> _dsDataSetReference, ("selfLink" .=) <$> _dsSelfLink, ("id" .=) <$> _dsId, + ("labels" .=) <$> _dsLabels, ("defaultTableExpirationMs" .=) <$> _dsDefaultTableExpirationMs, ("description" .=) <$> _dsDescription]) @@ -1038,7 +1163,8 @@ -- -- /See:/ 'bigtableOptions' smart constructor. data BigtableOptions = BigtableOptions' - { _boIgnoreUnspecifiedColumnFamilies :: !(Maybe Bool) + { _boReadRowkeyAsString :: !(Maybe Bool) + , _boIgnoreUnspecifiedColumnFamilies :: !(Maybe Bool) , _boColumnFamilies :: !(Maybe [BigtableColumnFamily]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1046,6 +1172,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'boReadRowkeyAsString' +-- -- * 'boIgnoreUnspecifiedColumnFamilies' -- -- * 'boColumnFamilies' @@ -1053,10 +1181,20 @@ :: BigtableOptions bigtableOptions = BigtableOptions' - { _boIgnoreUnspecifiedColumnFamilies = Nothing + { _boReadRowkeyAsString = Nothing + , _boIgnoreUnspecifiedColumnFamilies = Nothing , _boColumnFamilies = Nothing } +-- | [Optional] If field is true, then the rowkey column families will be +-- read and converted to string. Otherwise they are read with BYTES type +-- values and users need to manually cast them with CAST if necessary. The +-- default value is false. +boReadRowkeyAsString :: Lens' BigtableOptions (Maybe Bool) +boReadRowkeyAsString + = lens _boReadRowkeyAsString + (\ s a -> s{_boReadRowkeyAsString = a}) + -- | [Optional] If field is true, then the column families that are not -- specified in columnFamilies list are not exposed in the table schema. -- Otherwise, they are read with BYTES type values. The default value is @@ -1085,14 +1223,16 @@ = withObject "BigtableOptions" (\ o -> BigtableOptions' <$> - (o .:? "ignoreUnspecifiedColumnFamilies") <*> - (o .:? "columnFamilies" .!= mempty)) + (o .:? "readRowkeyAsString") <*> + (o .:? "ignoreUnspecifiedColumnFamilies") + <*> (o .:? "columnFamilies" .!= mempty)) instance ToJSON BigtableOptions where toJSON BigtableOptions'{..} = object (catMaybes - [("ignoreUnspecifiedColumnFamilies" .=) <$> + [("readRowkeyAsString" .=) <$> _boReadRowkeyAsString, + ("ignoreUnspecifiedColumnFamilies" .=) <$> _boIgnoreUnspecifiedColumnFamilies, ("columnFamilies" .=) <$> _boColumnFamilies]) @@ -1383,8 +1523,8 @@ tfsName = lens _tfsName (\ s a -> s{_tfsName = a}) -- | [Required] The field data type. Possible values include STRING, BYTES, --- INTEGER, FLOAT, BOOLEAN, TIMESTAMP or RECORD (where RECORD indicates --- that the field contains a nested schema). +-- INTEGER, FLOAT, BOOLEAN, TIMESTAMP, DATE, TIME, DATETIME, or RECORD +-- (where RECORD indicates that the field contains a nested schema). tfsType :: Lens' TableFieldSchema (Maybe Text) tfsType = lens _tfsType (\ s a -> s{_tfsType = a}) @@ -1430,6 +1570,7 @@ , _gqrrTotalBytesProcessed :: !(Maybe (Textual Int64)) , _gqrrRows :: !(Maybe [TableRow]) , _gqrrPageToken :: !(Maybe Text) + , _gqrrNumDmlAffectedRows :: !(Maybe (Textual Int64)) , _gqrrTotalRows :: !(Maybe (Textual Word64)) , _gqrrErrors :: !(Maybe [ErrorProto]) , _gqrrJobComplete :: !(Maybe Bool) @@ -1454,6 +1595,8 @@ -- -- * 'gqrrPageToken' -- +-- * 'gqrrNumDmlAffectedRows' +-- -- * 'gqrrTotalRows' -- -- * 'gqrrErrors' @@ -1472,6 +1615,7 @@ , _gqrrTotalBytesProcessed = Nothing , _gqrrRows = Nothing , _gqrrPageToken = Nothing + , _gqrrNumDmlAffectedRows = Nothing , _gqrrTotalRows = Nothing , _gqrrErrors = Nothing , _gqrrJobComplete = Nothing @@ -1526,6 +1670,14 @@ = lens _gqrrPageToken (\ s a -> s{_gqrrPageToken = a}) +-- | [Output-only, Experimental] The number of rows affected by a DML +-- statement. Present only for DML statements INSERT, UPDATE or DELETE. +gqrrNumDmlAffectedRows :: Lens' GetQueryResultsResponse (Maybe Int64) +gqrrNumDmlAffectedRows + = lens _gqrrNumDmlAffectedRows + (\ s a -> s{_gqrrNumDmlAffectedRows = a}) + . mapping _Coerce + -- | The total number of rows in the complete query result set, which can be -- more than the number of rows in this single page of results. Present -- only when the query completes successfully. @@ -1568,6 +1720,7 @@ <*> (o .:? "totalBytesProcessed") <*> (o .:? "rows" .!= mempty) <*> (o .:? "pageToken") + <*> (o .:? "numDmlAffectedRows") <*> (o .:? "totalRows") <*> (o .:? "errors" .!= mempty) <*> (o .:? "jobComplete") @@ -1585,6 +1738,8 @@ _gqrrTotalBytesProcessed, ("rows" .=) <$> _gqrrRows, ("pageToken" .=) <$> _gqrrPageToken, + ("numDmlAffectedRows" .=) <$> + _gqrrNumDmlAffectedRows, ("totalRows" .=) <$> _gqrrTotalRows, ("errors" .=) <$> _gqrrErrors, ("jobComplete" .=) <$> _gqrrJobComplete, @@ -1668,15 +1823,17 @@ -- -- /See:/ 'queryRequest' smart constructor. data QueryRequest = QueryRequest' - { _qrUseQueryCache :: !Bool - , _qrPreserveNulls :: !(Maybe Bool) - , _qrKind :: !Text - , _qrQuery :: !(Maybe Text) - , _qrTimeoutMs :: !(Maybe (Textual Word32)) - , _qrUseLegacySQL :: !(Maybe Bool) - , _qrDryRun :: !(Maybe Bool) - , _qrMaxResults :: !(Maybe (Textual Word32)) - , _qrDefaultDataSet :: !(Maybe DataSetReference) + { _qrUseQueryCache :: !Bool + , _qrPreserveNulls :: !(Maybe Bool) + , _qrKind :: !Text + , _qrQueryParameters :: !(Maybe [QueryParameter]) + , _qrQuery :: !(Maybe Text) + , _qrParameterMode :: !(Maybe Text) + , _qrTimeoutMs :: !(Maybe (Textual Word32)) + , _qrUseLegacySQL :: !Bool + , _qrDryRun :: !(Maybe Bool) + , _qrMaxResults :: !(Maybe (Textual Word32)) + , _qrDefaultDataSet :: !(Maybe DataSetReference) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'QueryRequest' with the minimum fields required to make a request. @@ -1689,8 +1846,12 @@ -- -- * 'qrKind' -- +-- * 'qrQueryParameters' +-- -- * 'qrQuery' -- +-- * 'qrParameterMode' +-- -- * 'qrTimeoutMs' -- -- * 'qrUseLegacySQL' @@ -1707,9 +1868,11 @@ { _qrUseQueryCache = True , _qrPreserveNulls = Nothing , _qrKind = "bigquery#queryRequest" + , _qrQueryParameters = Nothing , _qrQuery = Nothing + , _qrParameterMode = Nothing , _qrTimeoutMs = Nothing - , _qrUseLegacySQL = Nothing + , _qrUseLegacySQL = True , _qrDryRun = Nothing , _qrMaxResults = Nothing , _qrDefaultDataSet = Nothing @@ -1733,12 +1896,27 @@ qrKind :: Lens' QueryRequest Text qrKind = lens _qrKind (\ s a -> s{_qrKind = a}) +-- | [Experimental] Query parameters for Standard SQL queries. +qrQueryParameters :: Lens' QueryRequest [QueryParameter] +qrQueryParameters + = lens _qrQueryParameters + (\ s a -> s{_qrQueryParameters = a}) + . _Default + . _Coerce + -- | [Required] A query string, following the BigQuery query syntax, of the -- query to execute. Example: \"SELECT count(f1) FROM -- [myProjectId:myDatasetId.myTableId]\". 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. +qrParameterMode :: Lens' QueryRequest (Maybe Text) +qrParameterMode + = lens _qrParameterMode + (\ s a -> s{_qrParameterMode = a}) + -- | [Optional] How long to wait for the query to complete, in milliseconds, -- before the request times out and returns. Note that this is only a -- timeout for the request, not the query. If the query takes longer to run @@ -1758,7 +1936,7 @@ -- is set to false, the values of allowLargeResults and flattenResults are -- ignored; query will be run as if allowLargeResults is true and -- flattenResults is false. -qrUseLegacySQL :: Lens' QueryRequest (Maybe Bool) +qrUseLegacySQL :: Lens' QueryRequest Bool qrUseLegacySQL = lens _qrUseLegacySQL (\ s a -> s{_qrUseLegacySQL = a}) @@ -1797,9 +1975,11 @@ (o .:? "useQueryCache" .!= True) <*> (o .:? "preserveNulls") <*> (o .:? "kind" .!= "bigquery#queryRequest") + <*> (o .:? "queryParameters" .!= mempty) <*> (o .:? "query") + <*> (o .:? "parameterMode") <*> (o .:? "timeoutMs") - <*> (o .:? "useLegacySql") + <*> (o .:? "useLegacySql" .!= True) <*> (o .:? "dryRun") <*> (o .:? "maxResults") <*> (o .:? "defaultDataset")) @@ -1810,14 +1990,76 @@ (catMaybes [Just ("useQueryCache" .= _qrUseQueryCache), ("preserveNulls" .=) <$> _qrPreserveNulls, - Just ("kind" .= _qrKind), ("query" .=) <$> _qrQuery, + Just ("kind" .= _qrKind), + ("queryParameters" .=) <$> _qrQueryParameters, + ("query" .=) <$> _qrQuery, + ("parameterMode" .=) <$> _qrParameterMode, ("timeoutMs" .=) <$> _qrTimeoutMs, - ("useLegacySql" .=) <$> _qrUseLegacySQL, + Just ("useLegacySql" .= _qrUseLegacySQL), ("dryRun" .=) <$> _qrDryRun, ("maxResults" .=) <$> _qrMaxResults, ("defaultDataset" .=) <$> _qrDefaultDataSet]) -- +-- /See:/ 'queryParameter' smart constructor. +data QueryParameter = QueryParameter' + { _qpParameterValue :: !(Maybe QueryParameterValue) + , _qpParameterType :: !(Maybe QueryParameterType) + , _qpName :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryParameter' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qpParameterValue' +-- +-- * 'qpParameterType' +-- +-- * 'qpName' +queryParameter + :: QueryParameter +queryParameter = + QueryParameter' + { _qpParameterValue = Nothing + , _qpParameterType = Nothing + , _qpName = Nothing + } + +-- | [Required] The value of this parameter. +qpParameterValue :: Lens' QueryParameter (Maybe QueryParameterValue) +qpParameterValue + = lens _qpParameterValue + (\ s a -> s{_qpParameterValue = a}) + +-- | [Required] The type of this parameter. +qpParameterType :: Lens' QueryParameter (Maybe QueryParameterType) +qpParameterType + = lens _qpParameterType + (\ s a -> s{_qpParameterType = a}) + +-- | [Optional] If unset, this is a positional parameter. Otherwise, should +-- be unique within a query. +qpName :: Lens' QueryParameter (Maybe Text) +qpName = lens _qpName (\ s a -> s{_qpName = a}) + +instance FromJSON QueryParameter where + parseJSON + = withObject "QueryParameter" + (\ o -> + QueryParameter' <$> + (o .:? "parameterValue") <*> (o .:? "parameterType") + <*> (o .:? "name")) + +instance ToJSON QueryParameter where + toJSON QueryParameter'{..} + = object + (catMaybes + [("parameterValue" .=) <$> _qpParameterValue, + ("parameterType" .=) <$> _qpParameterType, + ("name" .=) <$> _qpName]) + +-- -- /See:/ 'jobStatistics4' smart constructor. newtype JobStatistics4 = JobStatistics4' { _jsDestinationURIFileCounts :: Maybe [Textual Int64] @@ -2093,6 +2335,7 @@ , _jclAllowJaggedRows :: !(Maybe Bool) , _jclSchemaInline :: !(Maybe Text) , _jclIgnoreUnknownValues :: !(Maybe Bool) + , _jclSchemaUpdateOptions :: !(Maybe [Text]) , _jclCreateDisPosition :: !(Maybe Text) , _jclSchemaInlineFormat :: !(Maybe Text) , _jclAllowQuotedNewlines :: !(Maybe Bool) @@ -2124,6 +2367,8 @@ -- -- * 'jclIgnoreUnknownValues' -- +-- * 'jclSchemaUpdateOptions' +-- -- * 'jclCreateDisPosition' -- -- * 'jclSchemaInlineFormat' @@ -2156,6 +2401,7 @@ , _jclAllowJaggedRows = Nothing , _jclSchemaInline = Nothing , _jclIgnoreUnknownValues = Nothing + , _jclSchemaUpdateOptions = Nothing , _jclCreateDisPosition = Nothing , _jclSchemaInlineFormat = Nothing , _jclAllowQuotedNewlines = Nothing @@ -2241,6 +2487,22 @@ = lens _jclIgnoreUnknownValues (\ s a -> s{_jclIgnoreUnknownValues = a}) +-- | [Experimental] Allows the schema of the desitination table to be updated +-- as a side effect of the load job. Schema update options are supported in +-- two cases: when writeDisposition is WRITE_APPEND; when writeDisposition +-- is WRITE_TRUNCATE and the destination table is a partition of a table, +-- specified by partition decorators. For normal tables, WRITE_TRUNCATE +-- will always overwrite the schema. One or more of the following values +-- are specified: ALLOW_FIELD_ADDITION: allow adding a nullable field to +-- the schema. ALLOW_FIELD_RELAXATION: allow relaxing a required field in +-- the original schema to nullable. +jclSchemaUpdateOptions :: Lens' JobConfigurationLoad [Text] +jclSchemaUpdateOptions + = lens _jclSchemaUpdateOptions + (\ s a -> s{_jclSchemaUpdateOptions = a}) + . _Default + . _Coerce + -- | [Optional] Specifies whether the job is allowed to create new tables. -- The following values are supported: CREATE_IF_NEEDED: If the table does -- not exist, BigQuery creates the table. CREATE_NEVER: The table must @@ -2350,6 +2612,7 @@ <*> (o .:? "allowJaggedRows") <*> (o .:? "schemaInline") <*> (o .:? "ignoreUnknownValues") + <*> (o .:? "schemaUpdateOptions" .!= mempty) <*> (o .:? "createDisposition") <*> (o .:? "schemaInlineFormat") <*> (o .:? "allowQuotedNewlines") @@ -2374,6 +2637,8 @@ ("schemaInline" .=) <$> _jclSchemaInline, ("ignoreUnknownValues" .=) <$> _jclIgnoreUnknownValues, + ("schemaUpdateOptions" .=) <$> + _jclSchemaUpdateOptions, ("createDisposition" .=) <$> _jclCreateDisPosition, ("schemaInlineFormat" .=) <$> _jclSchemaInlineFormat, ("allowQuotedNewlines" .=) <$> @@ -2689,7 +2954,7 @@ -- | [Optional] The type to convert the value in cells of this column. The -- values are expected to be encoded using HBase Bytes.toBytes function -- when using the BINARY encoding value. Following BigQuery types are --- allowed (case-sensitive) - BYTES STRING INTEGER FLOAT BOOLEAN Defaut +-- allowed (case-sensitive) - BYTES STRING INTEGER FLOAT BOOLEAN Default -- type is BYTES. \'type\' can also be set at the column family level. -- However, the setting at this level takes precedence if \'type\' is set -- at both levels. @@ -3007,13 +3272,88 @@ [("expirationMs" .=) <$> _tpExpirationMs, ("type" .=) <$> _tpType]) +-- | [Optional] The struct field values, in order of the struct type\'s +-- declaration. -- +-- /See:/ 'queryParameterValueStructValues' smart constructor. +newtype QueryParameterValueStructValues = QueryParameterValueStructValues' + { _qpvsvAddtional :: HashMap Text QueryParameterValue + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryParameterValueStructValues' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qpvsvAddtional' +queryParameterValueStructValues + :: HashMap Text QueryParameterValue -- ^ 'qpvsvAddtional' + -> QueryParameterValueStructValues +queryParameterValueStructValues pQpvsvAddtional_ = + QueryParameterValueStructValues' + { _qpvsvAddtional = _Coerce # pQpvsvAddtional_ + } + +qpvsvAddtional :: Lens' QueryParameterValueStructValues (HashMap Text QueryParameterValue) +qpvsvAddtional + = lens _qpvsvAddtional + (\ s a -> s{_qpvsvAddtional = a}) + . _Coerce + +instance FromJSON QueryParameterValueStructValues + where + parseJSON + = withObject "QueryParameterValueStructValues" + (\ o -> + QueryParameterValueStructValues' <$> + (parseJSONObject o)) + +instance ToJSON QueryParameterValueStructValues where + toJSON = toJSON . _qpvsvAddtional + +-- | [Experimental] The labels associated with this dataset. You can use +-- these to organize and group your datasets. You can set this property +-- when inserting or updating a dataset. See Labeling Datasets for more +-- information. +-- +-- /See:/ 'dataSetLabels' smart constructor. +newtype DataSetLabels = DataSetLabels' + { _dslAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dslAddtional' +dataSetLabels + :: HashMap Text Text -- ^ 'dslAddtional' + -> DataSetLabels +dataSetLabels pDslAddtional_ = + DataSetLabels' + { _dslAddtional = _Coerce # pDslAddtional_ + } + +dslAddtional :: Lens' DataSetLabels (HashMap Text Text) +dslAddtional + = lens _dslAddtional (\ s a -> s{_dslAddtional = a}) + . _Coerce + +instance FromJSON DataSetLabels where + parseJSON + = withObject "DataSetLabels" + (\ o -> DataSetLabels' <$> (parseJSONObject o)) + +instance ToJSON DataSetLabels where + toJSON = toJSON . _dslAddtional + +-- -- /See:/ 'jobConfiguration' smart constructor. data JobConfiguration = JobConfiguration' { _jcCopy :: !(Maybe JobConfigurationTableCopy) , _jcLoad :: !(Maybe JobConfigurationLoad) , _jcQuery :: !(Maybe JobConfigurationQuery) , _jcExtract :: !(Maybe JobConfigurationExtract) + , _jcLabels :: !(Maybe JobConfigurationLabels) , _jcDryRun :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) @@ -3029,6 +3369,8 @@ -- -- * 'jcExtract' -- +-- * 'jcLabels' +-- -- * 'jcDryRun' jobConfiguration :: JobConfiguration @@ -3038,6 +3380,7 @@ , _jcLoad = Nothing , _jcQuery = Nothing , _jcExtract = Nothing + , _jcLabels = Nothing , _jcDryRun = Nothing } @@ -3058,6 +3401,16 @@ jcExtract = lens _jcExtract (\ s a -> s{_jcExtract = a}) +-- | [Experimental] The labels associated with this job. You can use these to +-- organize and group your jobs. 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. +jcLabels :: Lens' JobConfiguration (Maybe JobConfigurationLabels) +jcLabels = lens _jcLabels (\ s a -> s{_jcLabels = a}) + -- | [Optional] If set, don\'t actually run this job. A valid query will -- return a mostly empty response with some processing statistics, while an -- invalid query will return the same error it would if it wasn\'t a dry @@ -3072,6 +3425,7 @@ JobConfiguration' <$> (o .:? "copy") <*> (o .:? "load") <*> (o .:? "query") <*> (o .:? "extract") + <*> (o .:? "labels") <*> (o .:? "dryRun")) instance ToJSON JobConfiguration where @@ -3081,6 +3435,7 @@ [("copy" .=) <$> _jcCopy, ("load" .=) <$> _jcLoad, ("query" .=) <$> _jcQuery, ("extract" .=) <$> _jcExtract, + ("labels" .=) <$> _jcLabels, ("dryRun" .=) <$> _jcDryRun]) -- @@ -3463,12 +3818,16 @@ , _jcqUseQueryCache :: !Bool , _jcqPreserveNulls :: !(Maybe Bool) , _jcqTableDefinitions :: !(Maybe JobConfigurationQueryTableDefinitions) + , _jcqQueryParameters :: !(Maybe [QueryParameter]) + , _jcqSchemaUpdateOptions :: !(Maybe [Text]) + , _jcqMaximumBytesBilled :: !(Maybe (Textual Int64)) , _jcqCreateDisPosition :: !(Maybe Text) , _jcqUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource]) , _jcqAllowLargeResults :: !(Maybe Bool) , _jcqMaximumBillingTier :: !(Textual Int32) , _jcqQuery :: !(Maybe Text) , _jcqFlattenResults :: !Bool + , _jcqParameterMode :: !(Maybe Text) , _jcqUseLegacySQL :: !(Maybe Bool) , _jcqDefaultDataSet :: !(Maybe DataSetReference) } deriving (Eq,Show,Data,Typeable,Generic) @@ -3489,6 +3848,12 @@ -- -- * 'jcqTableDefinitions' -- +-- * 'jcqQueryParameters' +-- +-- * 'jcqSchemaUpdateOptions' +-- +-- * 'jcqMaximumBytesBilled' +-- -- * 'jcqCreateDisPosition' -- -- * 'jcqUserDefinedFunctionResources' @@ -3501,6 +3866,8 @@ -- -- * 'jcqFlattenResults' -- +-- * 'jcqParameterMode' +-- -- * 'jcqUseLegacySQL' -- -- * 'jcqDefaultDataSet' @@ -3514,12 +3881,16 @@ , _jcqUseQueryCache = True , _jcqPreserveNulls = Nothing , _jcqTableDefinitions = Nothing + , _jcqQueryParameters = Nothing + , _jcqSchemaUpdateOptions = Nothing + , _jcqMaximumBytesBilled = Nothing , _jcqCreateDisPosition = Nothing , _jcqUserDefinedFunctionResources = Nothing , _jcqAllowLargeResults = Nothing , _jcqMaximumBillingTier = 1 , _jcqQuery = Nothing , _jcqFlattenResults = True + , _jcqParameterMode = Nothing , _jcqUseLegacySQL = Nothing , _jcqDefaultDataSet = Nothing } @@ -3576,6 +3947,39 @@ = lens _jcqTableDefinitions (\ s a -> s{_jcqTableDefinitions = a}) +-- | Query parameters for standard SQL queries. +jcqQueryParameters :: Lens' JobConfigurationQuery [QueryParameter] +jcqQueryParameters + = lens _jcqQueryParameters + (\ s a -> s{_jcqQueryParameters = a}) + . _Default + . _Coerce + +-- | [Experimental] Allows the schema of the destination table to be updated +-- as a side effect of the query job. Schema update options are supported +-- in two cases: when writeDisposition is WRITE_APPEND; when +-- writeDisposition is WRITE_TRUNCATE and the destination table is a +-- partition of a table, specified by partition decorators. For normal +-- tables, WRITE_TRUNCATE will always overwrite the schema. One or more of +-- the following values are specified: ALLOW_FIELD_ADDITION: allow adding a +-- nullable field to the schema. ALLOW_FIELD_RELAXATION: allow relaxing a +-- required field in the original schema to nullable. +jcqSchemaUpdateOptions :: Lens' JobConfigurationQuery [Text] +jcqSchemaUpdateOptions + = lens _jcqSchemaUpdateOptions + (\ s a -> s{_jcqSchemaUpdateOptions = a}) + . _Default + . _Coerce + +-- | [Optional] Limits the bytes billed for this job. Queries that will have +-- bytes billed beyond this limit will fail (without incurring a charge). +-- If unspecified, this will be set to your project default. +jcqMaximumBytesBilled :: Lens' JobConfigurationQuery (Maybe Int64) +jcqMaximumBytesBilled + = lens _jcqMaximumBytesBilled + (\ s a -> s{_jcqMaximumBytesBilled = a}) + . mapping _Coerce + -- | [Optional] Specifies whether the job is allowed to create new tables. -- The following values are supported: CREATE_IF_NEEDED: If the table does -- not exist, BigQuery creates the table. CREATE_NEVER: The table must @@ -3624,6 +4028,13 @@ = lens _jcqFlattenResults (\ s a -> s{_jcqFlattenResults = a}) +-- | [Experimental] Standard SQL only. Whether to use positional (?) or 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: @@ -3654,12 +4065,16 @@ <*> (o .:? "useQueryCache" .!= True) <*> (o .:? "preserveNulls") <*> (o .:? "tableDefinitions") + <*> (o .:? "queryParameters" .!= mempty) + <*> (o .:? "schemaUpdateOptions" .!= mempty) + <*> (o .:? "maximumBytesBilled") <*> (o .:? "createDisposition") <*> (o .:? "userDefinedFunctionResources" .!= mempty) <*> (o .:? "allowLargeResults") <*> (o .:? "maximumBillingTier" .!= 1) <*> (o .:? "query") <*> (o .:? "flattenResults" .!= True) + <*> (o .:? "parameterMode") <*> (o .:? "useLegacySql") <*> (o .:? "defaultDataset")) @@ -3673,6 +4088,10 @@ Just ("useQueryCache" .= _jcqUseQueryCache), ("preserveNulls" .=) <$> _jcqPreserveNulls, ("tableDefinitions" .=) <$> _jcqTableDefinitions, + ("queryParameters" .=) <$> _jcqQueryParameters, + ("schemaUpdateOptions" .=) <$> + _jcqSchemaUpdateOptions, + ("maximumBytesBilled" .=) <$> _jcqMaximumBytesBilled, ("createDisposition" .=) <$> _jcqCreateDisPosition, ("userDefinedFunctionResources" .=) <$> _jcqUserDefinedFunctionResources, @@ -3681,6 +4100,7 @@ ("maximumBillingTier" .= _jcqMaximumBillingTier), ("query" .=) <$> _jcqQuery, Just ("flattenResults" .= _jcqFlattenResults), + ("parameterMode" .=) <$> _jcqParameterMode, ("useLegacySql" .=) <$> _jcqUseLegacySQL, ("defaultDataset" .=) <$> _jcqDefaultDataSet]) @@ -3921,10 +4341,72 @@ = object (catMaybes [("v" .=) <$> _tcV]) -- +-- /See:/ 'queryParameterValue' smart constructor. +data QueryParameterValue = QueryParameterValue' + { _qpvStructValues :: !(Maybe QueryParameterValueStructValues) + , _qpvValue :: !(Maybe Text) + , _qpvArrayValues :: !(Maybe [QueryParameterValue]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryParameterValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qpvStructValues' +-- +-- * 'qpvValue' +-- +-- * 'qpvArrayValues' +queryParameterValue + :: QueryParameterValue +queryParameterValue = + QueryParameterValue' + { _qpvStructValues = Nothing + , _qpvValue = Nothing + , _qpvArrayValues = Nothing + } + +-- | [Optional] The struct field values, in order of the struct type\'s +-- declaration. +qpvStructValues :: Lens' QueryParameterValue (Maybe QueryParameterValueStructValues) +qpvStructValues + = lens _qpvStructValues + (\ s a -> s{_qpvStructValues = a}) + +-- | [Optional] The value of this value, if a simple scalar type. +qpvValue :: Lens' QueryParameterValue (Maybe Text) +qpvValue = lens _qpvValue (\ s a -> s{_qpvValue = a}) + +-- | [Optional] The array values, if this is an array type. +qpvArrayValues :: Lens' QueryParameterValue [QueryParameterValue] +qpvArrayValues + = lens _qpvArrayValues + (\ s a -> s{_qpvArrayValues = a}) + . _Default + . _Coerce + +instance FromJSON QueryParameterValue where + parseJSON + = withObject "QueryParameterValue" + (\ o -> + QueryParameterValue' <$> + (o .:? "structValues") <*> (o .:? "value") <*> + (o .:? "arrayValues" .!= mempty)) + +instance ToJSON QueryParameterValue where + toJSON QueryParameterValue'{..} + = object + (catMaybes + [("structValues" .=) <$> _qpvStructValues, + ("value" .=) <$> _qpvValue, + ("arrayValues" .=) <$> _qpvArrayValues]) + +-- -- /See:/ 'viewDefinition' smart constructor. data ViewDefinition = ViewDefinition' { _vdUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource]) , _vdQuery :: !(Maybe Text) + , _vdUseLegacySQL :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ViewDefinition' with the minimum fields required to make a request. @@ -3934,12 +4416,15 @@ -- * 'vdUserDefinedFunctionResources' -- -- * 'vdQuery' +-- +-- * 'vdUseLegacySQL' viewDefinition :: ViewDefinition viewDefinition = ViewDefinition' { _vdUserDefinedFunctionResources = Nothing , _vdQuery = Nothing + , _vdUseLegacySQL = Nothing } -- | [Experimental] Describes user-defined function resources used in the @@ -3955,13 +4440,24 @@ 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. +vdUseLegacySQL :: Lens' ViewDefinition (Maybe Bool) +vdUseLegacySQL + = lens _vdUseLegacySQL + (\ s a -> s{_vdUseLegacySQL = a}) + instance FromJSON ViewDefinition where parseJSON = withObject "ViewDefinition" (\ o -> ViewDefinition' <$> (o .:? "userDefinedFunctionResources" .!= mempty) <*> - (o .:? "query")) + (o .:? "query") + <*> (o .:? "useLegacySql")) instance ToJSON ViewDefinition where toJSON ViewDefinition'{..} @@ -3969,7 +4465,8 @@ (catMaybes [("userDefinedFunctionResources" .=) <$> _vdUserDefinedFunctionResources, - ("query" .=) <$> _vdQuery]) + ("query" .=) <$> _vdQuery, + ("useLegacySql" .=) <$> _vdUseLegacySQL]) -- -- /See:/ 'userDefinedFunctionResource' smart constructor. @@ -4025,13 +4522,15 @@ -- -- /See:/ 'jobStatistics2' smart constructor. data JobStatistics2 = JobStatistics2' - { _jSchema :: !(Maybe TableSchema) - , _jTotalBytesProcessed :: !(Maybe (Textual Int64)) - , _jBillingTier :: !(Maybe (Textual Int32)) - , _jReferencedTables :: !(Maybe [TableReference]) - , _jQueryPlan :: !(Maybe [ExplainQueryStage]) - , _jCacheHit :: !(Maybe Bool) - , _jTotalBytesBilled :: !(Maybe (Textual Int64)) + { _jSchema :: !(Maybe TableSchema) + , _jTotalBytesProcessed :: !(Maybe (Textual Int64)) + , _jBillingTier :: !(Maybe (Textual Int32)) + , _jUndeclaredQueryParameters :: !(Maybe [QueryParameter]) + , _jReferencedTables :: !(Maybe [TableReference]) + , _jNumDmlAffectedRows :: !(Maybe (Textual Int64)) + , _jQueryPlan :: !(Maybe [ExplainQueryStage]) + , _jCacheHit :: !(Maybe Bool) + , _jTotalBytesBilled :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'JobStatistics2' with the minimum fields required to make a request. @@ -4044,8 +4543,12 @@ -- -- * 'jBillingTier' -- +-- * 'jUndeclaredQueryParameters' +-- -- * 'jReferencedTables' -- +-- * 'jNumDmlAffectedRows' +-- -- * 'jQueryPlan' -- -- * 'jCacheHit' @@ -4058,7 +4561,9 @@ { _jSchema = Nothing , _jTotalBytesProcessed = Nothing , _jBillingTier = Nothing + , _jUndeclaredQueryParameters = Nothing , _jReferencedTables = Nothing + , _jNumDmlAffectedRows = Nothing , _jQueryPlan = Nothing , _jCacheHit = Nothing , _jTotalBytesBilled = Nothing @@ -4082,6 +4587,15 @@ = lens _jBillingTier (\ s a -> s{_jBillingTier = a}) . mapping _Coerce +-- | [Output-only, Experimental] Standard SQL only: list of undeclared query +-- parameters detected during a dry run validation. +jUndeclaredQueryParameters :: Lens' JobStatistics2 [QueryParameter] +jUndeclaredQueryParameters + = lens _jUndeclaredQueryParameters + (\ s a -> s{_jUndeclaredQueryParameters = a}) + . _Default + . _Coerce + -- | [Output-only, Experimental] Referenced tables for the job. Queries that -- reference more than 50 tables will not have a complete list. jReferencedTables :: Lens' JobStatistics2 [TableReference] @@ -4091,8 +4605,15 @@ . _Default . _Coerce --- | [Output-only, Experimental] Describes execution plan for the query as a --- list of stages. +-- | [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) +jNumDmlAffectedRows + = lens _jNumDmlAffectedRows + (\ s a -> s{_jNumDmlAffectedRows = a}) + . mapping _Coerce + +-- | [Output-only, Experimental] Describes execution plan for the query. jQueryPlan :: Lens' JobStatistics2 [ExplainQueryStage] jQueryPlan = lens _jQueryPlan (\ s a -> s{_jQueryPlan = a}) . @@ -4118,7 +4639,9 @@ JobStatistics2' <$> (o .:? "schema") <*> (o .:? "totalBytesProcessed") <*> (o .:? "billingTier") + <*> (o .:? "undeclaredQueryParameters" .!= mempty) <*> (o .:? "referencedTables" .!= mempty) + <*> (o .:? "numDmlAffectedRows") <*> (o .:? "queryPlan" .!= mempty) <*> (o .:? "cacheHit") <*> (o .:? "totalBytesBilled")) @@ -4130,7 +4653,10 @@ [("schema" .=) <$> _jSchema, ("totalBytesProcessed" .=) <$> _jTotalBytesProcessed, ("billingTier" .=) <$> _jBillingTier, + ("undeclaredQueryParameters" .=) <$> + _jUndeclaredQueryParameters, ("referencedTables" .=) <$> _jReferencedTables, + ("numDmlAffectedRows" .=) <$> _jNumDmlAffectedRows, ("queryPlan" .=) <$> _jQueryPlan, ("cacheHit" .=) <$> _jCacheHit, ("totalBytesBilled" .=) <$> _jTotalBytesBilled]) @@ -4350,6 +4876,66 @@ ("insertErrors" .=) <$> _tInsertErrors]) -- +-- /See:/ 'queryParameterType' smart constructor. +data QueryParameterType = QueryParameterType' + { _qptStructTypes :: !(Maybe [QueryParameterTypeStructTypesItem]) + , _qptType :: !(Maybe Text) + , _qptArrayType :: !(Maybe QueryParameterType) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryParameterType' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qptStructTypes' +-- +-- * 'qptType' +-- +-- * 'qptArrayType' +queryParameterType + :: QueryParameterType +queryParameterType = + QueryParameterType' + { _qptStructTypes = Nothing + , _qptType = Nothing + , _qptArrayType = Nothing + } + +-- | [Optional] The types of the fields of this struct, in order, if this is +-- a struct. +qptStructTypes :: Lens' QueryParameterType [QueryParameterTypeStructTypesItem] +qptStructTypes + = lens _qptStructTypes + (\ s a -> s{_qptStructTypes = a}) + . _Default + . _Coerce + +-- | [Required] The top level type of this field. +qptType :: Lens' QueryParameterType (Maybe Text) +qptType = lens _qptType (\ s a -> s{_qptType = a}) + +-- | [Optional] The type of the array\'s elements, if this is an array. +qptArrayType :: Lens' QueryParameterType (Maybe QueryParameterType) +qptArrayType + = lens _qptArrayType (\ s a -> s{_qptArrayType = a}) + +instance FromJSON QueryParameterType where + parseJSON + = withObject "QueryParameterType" + (\ o -> + QueryParameterType' <$> + (o .:? "structTypes" .!= mempty) <*> (o .:? "type") + <*> (o .:? "arrayType")) + +instance ToJSON QueryParameterType where + toJSON QueryParameterType'{..} + = object + (catMaybes + [("structTypes" .=) <$> _qptStructTypes, + ("type" .=) <$> _qptType, + ("arrayType" .=) <$> _qptArrayType]) + +-- -- /See:/ 'table' smart constructor. data Table = Table' { _tabCreationTime :: !(Maybe (Textual Int64)) @@ -4890,6 +5476,7 @@ , _qTotalBytesProcessed :: !(Maybe (Textual Int64)) , _qRows :: !(Maybe [TableRow]) , _qPageToken :: !(Maybe Text) + , _qNumDmlAffectedRows :: !(Maybe (Textual Int64)) , _qTotalRows :: !(Maybe (Textual Word64)) , _qErrors :: !(Maybe [ErrorProto]) , _qJobComplete :: !(Maybe Bool) @@ -4912,6 +5499,8 @@ -- -- * 'qPageToken' -- +-- * 'qNumDmlAffectedRows' +-- -- * 'qTotalRows' -- -- * 'qErrors' @@ -4929,6 +5518,7 @@ , _qTotalBytesProcessed = Nothing , _qRows = Nothing , _qPageToken = Nothing + , _qNumDmlAffectedRows = Nothing , _qTotalRows = Nothing , _qErrors = Nothing , _qJobComplete = Nothing @@ -4977,6 +5567,14 @@ qPageToken = lens _qPageToken (\ s a -> s{_qPageToken = a}) +-- | [Output-only, Experimental] The number of rows affected by a DML +-- statement. Present only for DML statements INSERT, UPDATE or DELETE. +qNumDmlAffectedRows :: Lens' QueryResponse (Maybe Int64) +qNumDmlAffectedRows + = lens _qNumDmlAffectedRows + (\ s a -> s{_qNumDmlAffectedRows = a}) + . mapping _Coerce + -- | The total number of rows in the complete query result set, which can be -- more than the number of rows in this single page of results. qTotalRows :: Lens' QueryResponse (Maybe Word64) @@ -5015,6 +5613,7 @@ <*> (o .:? "totalBytesProcessed") <*> (o .:? "rows" .!= mempty) <*> (o .:? "pageToken") + <*> (o .:? "numDmlAffectedRows") <*> (o .:? "totalRows") <*> (o .:? "errors" .!= mempty) <*> (o .:? "jobComplete") @@ -5029,7 +5628,45 @@ ("totalBytesProcessed" .=) <$> _qTotalBytesProcessed, ("rows" .=) <$> _qRows, ("pageToken" .=) <$> _qPageToken, + ("numDmlAffectedRows" .=) <$> _qNumDmlAffectedRows, ("totalRows" .=) <$> _qTotalRows, ("errors" .=) <$> _qErrors, ("jobComplete" .=) <$> _qJobComplete, ("cacheHit" .=) <$> _qCacheHit]) + +-- | [Experimental] The labels associated with this dataset. You can use +-- these to organize and group your datasets. +-- +-- /See:/ 'dataSetListDataSetsItemLabels' smart constructor. +newtype DataSetListDataSetsItemLabels = DataSetListDataSetsItemLabels' + { _dsldsilAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetListDataSetsItemLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsldsilAddtional' +dataSetListDataSetsItemLabels + :: HashMap Text Text -- ^ 'dsldsilAddtional' + -> DataSetListDataSetsItemLabels +dataSetListDataSetsItemLabels pDsldsilAddtional_ = + DataSetListDataSetsItemLabels' + { _dsldsilAddtional = _Coerce # pDsldsilAddtional_ + } + +dsldsilAddtional :: Lens' DataSetListDataSetsItemLabels (HashMap Text Text) +dsldsilAddtional + = lens _dsldsilAddtional + (\ s a -> s{_dsldsilAddtional = a}) + . _Coerce + +instance FromJSON DataSetListDataSetsItemLabels where + parseJSON + = withObject "DataSetListDataSetsItemLabels" + (\ o -> + DataSetListDataSetsItemLabels' <$> + (parseJSONObject o)) + +instance ToJSON DataSetListDataSetsItemLabels where + toJSON = toJSON . _dsldsilAddtional diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/List.hs b/gen/Network/Google/Resource/BigQuery/DataSets/List.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/List.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/List.hs @@ -35,6 +35,7 @@ -- * Request Lenses , dslAll + , dslFilter , dslPageToken , dslProjectId , dslMaxResults @@ -52,9 +53,10 @@ Capture "projectId" Text :> "datasets" :> QueryParam "all" Bool :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> Get '[JSON] DataSetList + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> Get '[JSON] DataSetList -- | Lists all datasets in the specified project to which you have been -- granted the READER dataset role. @@ -62,6 +64,7 @@ -- /See:/ 'dataSetsList' smart constructor. data DataSetsList = DataSetsList' { _dslAll :: !(Maybe Bool) + , _dslFilter :: !(Maybe Text) , _dslPageToken :: !(Maybe Text) , _dslProjectId :: !Text , _dslMaxResults :: !(Maybe (Textual Word32)) @@ -73,6 +76,8 @@ -- -- * 'dslAll' -- +-- * 'dslFilter' +-- -- * 'dslPageToken' -- -- * 'dslProjectId' @@ -84,6 +89,7 @@ dataSetsList pDslProjectId_ = DataSetsList' { _dslAll = Nothing + , _dslFilter = Nothing , _dslPageToken = Nothing , _dslProjectId = pDslProjectId_ , _dslMaxResults = Nothing @@ -93,6 +99,14 @@ dslAll :: Lens' DataSetsList (Maybe Bool) dslAll = lens _dslAll (\ s a -> s{_dslAll = a}) +-- | An expression for filtering the results of the request by label. The +-- syntax is \"labels.[:]\". Multiple filters can be ANDed together by +-- connecting with a space. Example: \"labels.department:receiving +-- labels.active\". See Filtering datasets using labels for details. +dslFilter :: Lens' DataSetsList (Maybe Text) +dslFilter + = lens _dslFilter (\ s a -> s{_dslFilter = a}) + -- | Page token, returned by a previous call, to request the next page of -- results dslPageToken :: Lens' DataSetsList (Maybe Text) @@ -118,7 +132,7 @@ "https://www.googleapis.com/auth/cloud-platform", "https://www.googleapis.com/auth/cloud-platform.read-only"] requestClient DataSetsList'{..} - = go _dslProjectId _dslAll _dslPageToken + = go _dslProjectId _dslAll _dslFilter _dslPageToken _dslMaxResults (Just AltJSON) bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs b/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs @@ -47,7 +47,7 @@ type JobsCancelResource = "bigquery" :> "v2" :> - "project" :> + "projects" :> Capture "projectId" Text :> "jobs" :> Capture "jobId" Text :> diff --git a/gogol-bigquery.cabal b/gogol-bigquery.cabal --- a/gogol-bigquery.cabal +++ b/gogol-bigquery.cabal @@ -1,5 +1,5 @@ name: gogol-bigquery -version: 0.1.0 +version: 0.1.1 synopsis: Google BigQuery SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -11,7 +11,7 @@ category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md +extra-source-files: README.md src/.gitkeep description: A data platform for customers to create, manage, share and query data. @@ -62,5 +62,5 @@ , Network.Google.BigQuery.Types.Sum build-depends: - gogol-core == 0.1.0.* + gogol-core == 0.1.1.* , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep