diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence 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 @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.BigQuery --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,15 @@ -- * Service Configuration bigQueryService + -- * OAuth Scopes + , cloudPlatformReadOnlyScope + , cloudPlatformScope + , storageReadOnlyScope + , bigQueryInsertDataScope + , storageReadWriteScope + , bigQueryScope + , storageFullControlScope + -- * API Declaration , BigQueryAPI @@ -155,6 +164,21 @@ , plKind , plProjects + -- ** ExplainQueryStep + , ExplainQueryStep + , explainQueryStep + , eqsSubsteps + , eqsKind + + -- ** BigtableColumnFamily + , BigtableColumnFamily + , bigtableColumnFamily + , bcfFamilyId + , bcfColumns + , bcfOnlyReadLatest + , bcfType + , bcfEncoding + -- ** JobStatistics , JobStatistics , jobStatistics @@ -182,14 +206,23 @@ , dsDefaultTableExpirationMs , dsDescription + -- ** BigtableOptions + , BigtableOptions + , bigtableOptions + , boIgnoreUnspecifiedColumnFamilies + , boColumnFamilies + -- ** ExternalDataConfiguration , ExternalDataConfiguration , externalDataConfiguration + , edcBigtableOptions , edcIgnoreUnknownValues , edcCompression , edcSourceFormat , edcSchema , edcMaxBadRecords + , edcGoogleSheetsOptions + , edcAutodetect , edcSourceURIs , edcCSVOptions @@ -240,6 +273,7 @@ , qrKind , qrQuery , qrTimeoutMs + , qrUseLegacySQL , qrDryRun , qrMaxResults , qrDefaultDataSet @@ -257,6 +291,23 @@ , projectReference , prProjectId + -- ** ExplainQueryStage + , ExplainQueryStage + , explainQueryStage + , eqsWaitRatioMax + , eqsRecordsWritten + , eqsSteps + , eqsWriteRatioAvg + , eqsRecordsRead + , eqsComputeRatioAvg + , eqsName + , eqsReadRatioMax + , eqsWaitRatioAvg + , eqsId + , eqsComputeRatioMax + , eqsWriteRatioMax + , eqsReadRatioAvg + -- ** JobConfigurationLoad , JobConfigurationLoad , jobConfigurationLoad @@ -274,6 +325,7 @@ , jclSchema , jclQuote , jclMaxBadRecords + , jclAutodetect , jclSourceURIs , jclEncoding , jclFieldDelimiter @@ -293,6 +345,7 @@ , tdiarKind , tdiarIgnoreUnknownValues , tdiarRows + , tdiarTemplateSuffix , tdiarSkipInvalidRows -- ** ProjectListProjectsItem @@ -304,6 +357,16 @@ , plpiId , plpiNumericId + -- ** BigtableColumn + , BigtableColumn + , bigtableColumn + , bcQualifierEncoded + , bcFieldName + , bcQualifierString + , bcOnlyReadLatest + , bcType + , bcEncoding + -- ** Streamingbuffer , Streamingbuffer , streamingbuffer @@ -329,11 +392,16 @@ , jljiStatistics , jljiConfiguration + -- ** TimePartitioning + , TimePartitioning + , timePartitioning + , tpExpirationMs + , tpType + -- ** JobConfiguration , JobConfiguration , jobConfiguration , jcCopy - , jcLink , jcLoad , jcQuery , jcExtract @@ -352,14 +420,6 @@ , jStatistics , jConfiguration - -- ** JobConfigurationLink - , JobConfigurationLink - , jobConfigurationLink - , jDestinationTable - , jWriteDisPosition - , jCreateDisPosition - , jSourceURI - -- ** TableDataInsertAllResponseInsertErrorsItem , TableDataInsertAllResponseInsertErrorsItem , tableDataInsertAllResponseInsertErrorsItem @@ -400,10 +460,17 @@ , jcqCreateDisPosition , jcqUserDefinedFunctionResources , jcqAllowLargeResults + , jcqMaximumBillingTier , jcqQuery , jcqFlattenResults + , jcqUseLegacySQL , jcqDefaultDataSet + -- ** GoogleSheetsOptions + , GoogleSheetsOptions + , googleSheetsOptions + , gsoSkipLeadingRows + -- ** TableDataInsertAllRequestRowsItem , TableDataInsertAllRequestRowsItem , tableDataInsertAllRequestRowsItem @@ -431,6 +498,7 @@ -- ** ViewDefinition , ViewDefinition , viewDefinition + , vdUserDefinedFunctionResources , vdQuery -- ** UserDefinedFunctionResource @@ -442,8 +510,11 @@ -- ** JobStatistics2 , JobStatistics2 , jobStatistics2 + , jSchema , jTotalBytesProcessed , jBillingTier + , jReferencedTables + , jQueryPlan , jCacheHit , jTotalBytesBilled @@ -485,10 +556,12 @@ , tabSchema , tabStreamingBuffer , tabSelfLink + , tabTimePartitioning , tabNumRows , tabView , tabId , tabType + , tabNumLongTermBytes , tabExpirationTime , tabDescription 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 @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.BigQuery.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,11 +22,11 @@ -- * OAuth Scopes , cloudPlatformReadOnlyScope , cloudPlatformScope - , devstorageReadOnlyScope - , bigqueryInsertdataScope - , devstorageReadWriteScope - , bigqueryScope - , devstorageFullControlScope + , storageReadOnlyScope + , bigQueryInsertDataScope + , storageReadWriteScope + , bigQueryScope + , storageFullControlScope -- * JobReference , JobReference @@ -91,6 +92,21 @@ , plKind , plProjects + -- * ExplainQueryStep + , ExplainQueryStep + , explainQueryStep + , eqsSubsteps + , eqsKind + + -- * BigtableColumnFamily + , BigtableColumnFamily + , bigtableColumnFamily + , bcfFamilyId + , bcfColumns + , bcfOnlyReadLatest + , bcfType + , bcfEncoding + -- * JobStatistics , JobStatistics , jobStatistics @@ -118,14 +134,23 @@ , dsDefaultTableExpirationMs , dsDescription + -- * BigtableOptions + , BigtableOptions + , bigtableOptions + , boIgnoreUnspecifiedColumnFamilies + , boColumnFamilies + -- * ExternalDataConfiguration , ExternalDataConfiguration , externalDataConfiguration + , edcBigtableOptions , edcIgnoreUnknownValues , edcCompression , edcSourceFormat , edcSchema , edcMaxBadRecords + , edcGoogleSheetsOptions + , edcAutodetect , edcSourceURIs , edcCSVOptions @@ -176,6 +201,7 @@ , qrKind , qrQuery , qrTimeoutMs + , qrUseLegacySQL , qrDryRun , qrMaxResults , qrDefaultDataSet @@ -193,6 +219,23 @@ , projectReference , prProjectId + -- * ExplainQueryStage + , ExplainQueryStage + , explainQueryStage + , eqsWaitRatioMax + , eqsRecordsWritten + , eqsSteps + , eqsWriteRatioAvg + , eqsRecordsRead + , eqsComputeRatioAvg + , eqsName + , eqsReadRatioMax + , eqsWaitRatioAvg + , eqsId + , eqsComputeRatioMax + , eqsWriteRatioMax + , eqsReadRatioAvg + -- * JobConfigurationLoad , JobConfigurationLoad , jobConfigurationLoad @@ -210,6 +253,7 @@ , jclSchema , jclQuote , jclMaxBadRecords + , jclAutodetect , jclSourceURIs , jclEncoding , jclFieldDelimiter @@ -229,6 +273,7 @@ , tdiarKind , tdiarIgnoreUnknownValues , tdiarRows + , tdiarTemplateSuffix , tdiarSkipInvalidRows -- * ProjectListProjectsItem @@ -240,6 +285,16 @@ , plpiId , plpiNumericId + -- * BigtableColumn + , BigtableColumn + , bigtableColumn + , bcQualifierEncoded + , bcFieldName + , bcQualifierString + , bcOnlyReadLatest + , bcType + , bcEncoding + -- * Streamingbuffer , Streamingbuffer , streamingbuffer @@ -265,11 +320,16 @@ , jljiStatistics , jljiConfiguration + -- * TimePartitioning + , TimePartitioning + , timePartitioning + , tpExpirationMs + , tpType + -- * JobConfiguration , JobConfiguration , jobConfiguration , jcCopy - , jcLink , jcLoad , jcQuery , jcExtract @@ -288,14 +348,6 @@ , jStatistics , jConfiguration - -- * JobConfigurationLink - , JobConfigurationLink - , jobConfigurationLink - , jDestinationTable - , jWriteDisPosition - , jCreateDisPosition - , jSourceURI - -- * TableDataInsertAllResponseInsertErrorsItem , TableDataInsertAllResponseInsertErrorsItem , tableDataInsertAllResponseInsertErrorsItem @@ -336,10 +388,17 @@ , jcqCreateDisPosition , jcqUserDefinedFunctionResources , jcqAllowLargeResults + , jcqMaximumBillingTier , jcqQuery , jcqFlattenResults + , jcqUseLegacySQL , jcqDefaultDataSet + -- * GoogleSheetsOptions + , GoogleSheetsOptions + , googleSheetsOptions + , gsoSkipLeadingRows + -- * TableDataInsertAllRequestRowsItem , TableDataInsertAllRequestRowsItem , tableDataInsertAllRequestRowsItem @@ -367,6 +426,7 @@ -- * ViewDefinition , ViewDefinition , viewDefinition + , vdUserDefinedFunctionResources , vdQuery -- * UserDefinedFunctionResource @@ -378,8 +438,11 @@ -- * JobStatistics2 , JobStatistics2 , jobStatistics2 + , jSchema , jTotalBytesProcessed , jBillingTier + , jReferencedTables + , jQueryPlan , jCacheHit , jTotalBytesBilled @@ -421,10 +484,12 @@ , tabSchema , tabStreamingBuffer , tabSelfLink + , tabTimePartitioning , tabNumRows , tabView , tabId , tabType + , tabNumLongTermBytes , tabExpirationTime , tabDescription @@ -474,35 +539,35 @@ import Network.Google.Prelude -- | Default request referring to version 'v2' of the BigQuery API. This contains the host and root path used as a starting point for constructing service requests. -bigQueryService :: Service +bigQueryService :: ServiceConfig bigQueryService = defaultService (ServiceId "bigquery:v2") "www.googleapis.com" -- | View your data across Google Cloud Platform services -cloudPlatformReadOnlyScope :: OAuthScope -cloudPlatformReadOnlyScope = "https://www.googleapis.com/auth/cloud-platform.read-only"; +cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] +cloudPlatformReadOnlyScope = Proxy; -- | View and manage your data across Google Cloud Platform services -cloudPlatformScope :: OAuthScope -cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform"; +cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] +cloudPlatformScope = Proxy; -- | View your data in Google Cloud Storage -devstorageReadOnlyScope :: OAuthScope -devstorageReadOnlyScope = "https://www.googleapis.com/auth/devstorage.read_only"; +storageReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/devstorage.read_only"] +storageReadOnlyScope = Proxy; -- | Insert data into Google BigQuery -bigqueryInsertdataScope :: OAuthScope -bigqueryInsertdataScope = "https://www.googleapis.com/auth/bigquery.insertdata"; +bigQueryInsertDataScope :: Proxy '["https://www.googleapis.com/auth/bigquery.insertdata"] +bigQueryInsertDataScope = Proxy; -- | Manage your data in Google Cloud Storage -devstorageReadWriteScope :: OAuthScope -devstorageReadWriteScope = "https://www.googleapis.com/auth/devstorage.read_write"; +storageReadWriteScope :: Proxy '["https://www.googleapis.com/auth/devstorage.read_write"] +storageReadWriteScope = Proxy; -- | View and manage your data in Google BigQuery -bigqueryScope :: OAuthScope -bigqueryScope = "https://www.googleapis.com/auth/bigquery"; +bigQueryScope :: Proxy '["https://www.googleapis.com/auth/bigquery"] +bigQueryScope = Proxy; -- | Manage your data and permissions in Google Cloud Storage -devstorageFullControlScope :: OAuthScope -devstorageFullControlScope = "https://www.googleapis.com/auth/devstorage.full_control"; +storageFullControlScope :: Proxy '["https://www.googleapis.com/auth/devstorage.full_control"] +storageFullControlScope = Proxy; 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 @@ -9,4282 +9,5019 @@ -- | -- Module : Network.Google.BigQuery.Types.Product --- Copyright : (c) 2015 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.BigQuery.Types.Product where - -import Network.Google.BigQuery.Types.Sum -import Network.Google.Prelude - --- --- /See:/ 'jobReference' smart constructor. -data JobReference = JobReference - { _jrJobId :: !(Maybe Text) - , _jrProjectId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobReference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jrJobId' --- --- * 'jrProjectId' -jobReference - :: JobReference -jobReference = - JobReference - { _jrJobId = Nothing - , _jrProjectId = Nothing - } - --- | [Required] The ID of the job. The ID must contain only letters (a-z, --- A-Z), numbers (0-9), underscores (_), or dashes (-). The maximum length --- is 1,024 characters. -jrJobId :: Lens' JobReference (Maybe Text) -jrJobId = lens _jrJobId (\ s a -> s{_jrJobId = a}) - --- | [Required] The ID of the project containing this job. -jrProjectId :: Lens' JobReference (Maybe Text) -jrProjectId - = lens _jrProjectId (\ s a -> s{_jrProjectId = a}) - -instance FromJSON JobReference where - parseJSON - = withObject "JobReference" - (\ o -> - JobReference <$> - (o .:? "jobId") <*> (o .:? "projectId")) - -instance ToJSON JobReference where - toJSON JobReference{..} - = object - (catMaybes - [("jobId" .=) <$> _jrJobId, - ("projectId" .=) <$> _jrProjectId]) - --- --- /See:/ 'tableList' smart constructor. -data TableList = TableList - { _tlTotalItems :: !(Maybe (Textual Int32)) - , _tlEtag :: !(Maybe Text) - , _tlNextPageToken :: !(Maybe Text) - , _tlKind :: !Text - , _tlTables :: !(Maybe [TableListTablesItem]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tlTotalItems' --- --- * 'tlEtag' --- --- * 'tlNextPageToken' --- --- * 'tlKind' --- --- * 'tlTables' -tableList - :: TableList -tableList = - TableList - { _tlTotalItems = Nothing - , _tlEtag = Nothing - , _tlNextPageToken = Nothing - , _tlKind = "bigquery#tableList" - , _tlTables = Nothing - } - --- | The total number of tables in the dataset. -tlTotalItems :: Lens' TableList (Maybe Int32) -tlTotalItems - = lens _tlTotalItems (\ s a -> s{_tlTotalItems = a}) - . mapping _Coerce - --- | A hash of this page of results. -tlEtag :: Lens' TableList (Maybe Text) -tlEtag = lens _tlEtag (\ s a -> s{_tlEtag = a}) - --- | A token to request the next page of results. -tlNextPageToken :: Lens' TableList (Maybe Text) -tlNextPageToken - = lens _tlNextPageToken - (\ s a -> s{_tlNextPageToken = a}) - --- | The type of list. -tlKind :: Lens' TableList Text -tlKind = lens _tlKind (\ s a -> s{_tlKind = a}) - --- | Tables in the requested dataset. -tlTables :: Lens' TableList [TableListTablesItem] -tlTables - = lens _tlTables (\ s a -> s{_tlTables = a}) . - _Default - . _Coerce - -instance FromJSON TableList where - parseJSON - = withObject "TableList" - (\ o -> - TableList <$> - (o .:? "totalItems") <*> (o .:? "etag") <*> - (o .:? "nextPageToken") - <*> (o .:? "kind" .!= "bigquery#tableList") - <*> (o .:? "tables" .!= mempty)) - -instance ToJSON TableList where - toJSON TableList{..} - = object - (catMaybes - [("totalItems" .=) <$> _tlTotalItems, - ("etag" .=) <$> _tlEtag, - ("nextPageToken" .=) <$> _tlNextPageToken, - Just ("kind" .= _tlKind), - ("tables" .=) <$> _tlTables]) - --- --- /See:/ 'dataSetListDataSetsItem' smart constructor. -data DataSetListDataSetsItem = DataSetListDataSetsItem - { _dsldsiFriendlyName :: !(Maybe Text) - , _dsldsiKind :: !Text - , _dsldsiDataSetReference :: !(Maybe DataSetReference) - , _dsldsiId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'DataSetListDataSetsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsldsiFriendlyName' --- --- * 'dsldsiKind' --- --- * 'dsldsiDataSetReference' --- --- * 'dsldsiId' -dataSetListDataSetsItem - :: DataSetListDataSetsItem -dataSetListDataSetsItem = - DataSetListDataSetsItem - { _dsldsiFriendlyName = Nothing - , _dsldsiKind = "bigquery#dataset" - , _dsldsiDataSetReference = Nothing - , _dsldsiId = Nothing - } - --- | A descriptive name for the dataset, if one exists. -dsldsiFriendlyName :: Lens' DataSetListDataSetsItem (Maybe Text) -dsldsiFriendlyName - = lens _dsldsiFriendlyName - (\ s a -> s{_dsldsiFriendlyName = a}) - --- | The resource type. This property always returns the value --- \"bigquery#dataset\". -dsldsiKind :: Lens' DataSetListDataSetsItem Text -dsldsiKind - = lens _dsldsiKind (\ s a -> s{_dsldsiKind = a}) - --- | The dataset reference. Use this property to access specific parts of the --- dataset\'s ID, such as project ID or dataset ID. -dsldsiDataSetReference :: Lens' DataSetListDataSetsItem (Maybe DataSetReference) -dsldsiDataSetReference - = lens _dsldsiDataSetReference - (\ s a -> s{_dsldsiDataSetReference = a}) - --- | The fully-qualified, unique, opaque ID of the dataset. -dsldsiId :: Lens' DataSetListDataSetsItem (Maybe Text) -dsldsiId = lens _dsldsiId (\ s a -> s{_dsldsiId = a}) - -instance FromJSON DataSetListDataSetsItem where - parseJSON - = withObject "DataSetListDataSetsItem" - (\ o -> - DataSetListDataSetsItem <$> - (o .:? "friendlyName") <*> - (o .:? "kind" .!= "bigquery#dataset") - <*> (o .:? "datasetReference") - <*> (o .:? "id")) - -instance ToJSON DataSetListDataSetsItem where - toJSON DataSetListDataSetsItem{..} - = object - (catMaybes - [("friendlyName" .=) <$> _dsldsiFriendlyName, - Just ("kind" .= _dsldsiKind), - ("datasetReference" .=) <$> _dsldsiDataSetReference, - ("id" .=) <$> _dsldsiId]) - --- --- /See:/ 'tableDataList' smart constructor. -data TableDataList = TableDataList - { _tdlEtag :: !(Maybe Text) - , _tdlKind :: !Text - , _tdlRows :: !(Maybe [TableRow]) - , _tdlPageToken :: !(Maybe Text) - , _tdlTotalRows :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableDataList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tdlEtag' --- --- * 'tdlKind' --- --- * 'tdlRows' --- --- * 'tdlPageToken' --- --- * 'tdlTotalRows' -tableDataList - :: TableDataList -tableDataList = - TableDataList - { _tdlEtag = Nothing - , _tdlKind = "bigquery#tableDataList" - , _tdlRows = Nothing - , _tdlPageToken = Nothing - , _tdlTotalRows = Nothing - } - --- | A hash of this page of results. -tdlEtag :: Lens' TableDataList (Maybe Text) -tdlEtag = lens _tdlEtag (\ s a -> s{_tdlEtag = a}) - --- | The resource type of the response. -tdlKind :: Lens' TableDataList Text -tdlKind = lens _tdlKind (\ s a -> s{_tdlKind = a}) - --- | Rows of results. -tdlRows :: Lens' TableDataList [TableRow] -tdlRows - = lens _tdlRows (\ s a -> s{_tdlRows = a}) . _Default - . _Coerce - --- | A token used for paging results. Providing this token instead of the --- startIndex parameter can help you retrieve stable results when an --- underlying table is changing. -tdlPageToken :: Lens' TableDataList (Maybe Text) -tdlPageToken - = lens _tdlPageToken (\ s a -> s{_tdlPageToken = a}) - --- | The total number of rows in the complete table. -tdlTotalRows :: Lens' TableDataList (Maybe Int64) -tdlTotalRows - = lens _tdlTotalRows (\ s a -> s{_tdlTotalRows = a}) - . mapping _Coerce - -instance FromJSON TableDataList where - parseJSON - = withObject "TableDataList" - (\ o -> - TableDataList <$> - (o .:? "etag") <*> - (o .:? "kind" .!= "bigquery#tableDataList") - <*> (o .:? "rows" .!= mempty) - <*> (o .:? "pageToken") - <*> (o .:? "totalRows")) - -instance ToJSON TableDataList where - toJSON TableDataList{..} - = object - (catMaybes - [("etag" .=) <$> _tdlEtag, Just ("kind" .= _tdlKind), - ("rows" .=) <$> _tdlRows, - ("pageToken" .=) <$> _tdlPageToken, - ("totalRows" .=) <$> _tdlTotalRows]) - --- --- /See:/ 'jobConfigurationTableCopy' smart constructor. -data JobConfigurationTableCopy = JobConfigurationTableCopy - { _jctcDestinationTable :: !(Maybe TableReference) - , _jctcWriteDisPosition :: !(Maybe Text) - , _jctcSourceTables :: !(Maybe [TableReference]) - , _jctcCreateDisPosition :: !(Maybe Text) - , _jctcSourceTable :: !(Maybe TableReference) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationTableCopy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jctcDestinationTable' --- --- * 'jctcWriteDisPosition' --- --- * 'jctcSourceTables' --- --- * 'jctcCreateDisPosition' --- --- * 'jctcSourceTable' -jobConfigurationTableCopy - :: JobConfigurationTableCopy -jobConfigurationTableCopy = - JobConfigurationTableCopy - { _jctcDestinationTable = Nothing - , _jctcWriteDisPosition = Nothing - , _jctcSourceTables = Nothing - , _jctcCreateDisPosition = Nothing - , _jctcSourceTable = Nothing - } - --- | [Required] The destination table -jctcDestinationTable :: Lens' JobConfigurationTableCopy (Maybe TableReference) -jctcDestinationTable - = lens _jctcDestinationTable - (\ s a -> s{_jctcDestinationTable = a}) - --- | [Optional] Specifies the action that occurs if the destination table --- already exists. The following values are supported: WRITE_TRUNCATE: If --- the table already exists, BigQuery overwrites the table data. --- WRITE_APPEND: If the table already exists, BigQuery appends the data to --- the table. WRITE_EMPTY: If the table already exists and contains data, a --- \'duplicate\' error is returned in the job result. The default value is --- WRITE_EMPTY. Each action is atomic and only occurs if BigQuery is able --- to complete the job successfully. Creation, truncation and append --- actions occur as one atomic update upon job completion. -jctcWriteDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text) -jctcWriteDisPosition - = lens _jctcWriteDisPosition - (\ s a -> s{_jctcWriteDisPosition = a}) - --- | [Pick one] Source tables to copy. -jctcSourceTables :: Lens' JobConfigurationTableCopy [TableReference] -jctcSourceTables - = lens _jctcSourceTables - (\ s a -> s{_jctcSourceTables = 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 --- already exist. If it does not, a \'notFound\' error is returned in the --- job result. The default value is CREATE_IF_NEEDED. Creation, truncation --- and append actions occur as one atomic update upon job completion. -jctcCreateDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text) -jctcCreateDisPosition - = lens _jctcCreateDisPosition - (\ s a -> s{_jctcCreateDisPosition = a}) - --- | [Pick one] Source table to copy. -jctcSourceTable :: Lens' JobConfigurationTableCopy (Maybe TableReference) -jctcSourceTable - = lens _jctcSourceTable - (\ s a -> s{_jctcSourceTable = a}) - -instance FromJSON JobConfigurationTableCopy where - parseJSON - = withObject "JobConfigurationTableCopy" - (\ o -> - JobConfigurationTableCopy <$> - (o .:? "destinationTable") <*> - (o .:? "writeDisposition") - <*> (o .:? "sourceTables" .!= mempty) - <*> (o .:? "createDisposition") - <*> (o .:? "sourceTable")) - -instance ToJSON JobConfigurationTableCopy where - toJSON JobConfigurationTableCopy{..} - = object - (catMaybes - [("destinationTable" .=) <$> _jctcDestinationTable, - ("writeDisposition" .=) <$> _jctcWriteDisPosition, - ("sourceTables" .=) <$> _jctcSourceTables, - ("createDisposition" .=) <$> _jctcCreateDisPosition, - ("sourceTable" .=) <$> _jctcSourceTable]) - --- --- /See:/ 'tableListTablesItem' smart constructor. -data TableListTablesItem = TableListTablesItem - { _tltiTableReference :: !(Maybe TableReference) - , _tltiFriendlyName :: !(Maybe Text) - , _tltiKind :: !Text - , _tltiId :: !(Maybe Text) - , _tltiType :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableListTablesItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tltiTableReference' --- --- * 'tltiFriendlyName' --- --- * 'tltiKind' --- --- * 'tltiId' --- --- * 'tltiType' -tableListTablesItem - :: TableListTablesItem -tableListTablesItem = - TableListTablesItem - { _tltiTableReference = Nothing - , _tltiFriendlyName = Nothing - , _tltiKind = "bigquery#table" - , _tltiId = Nothing - , _tltiType = Nothing - } - --- | A reference uniquely identifying the table. -tltiTableReference :: Lens' TableListTablesItem (Maybe TableReference) -tltiTableReference - = lens _tltiTableReference - (\ s a -> s{_tltiTableReference = a}) - --- | The user-friendly name for this table. -tltiFriendlyName :: Lens' TableListTablesItem (Maybe Text) -tltiFriendlyName - = lens _tltiFriendlyName - (\ s a -> s{_tltiFriendlyName = a}) - --- | The resource type. -tltiKind :: Lens' TableListTablesItem Text -tltiKind = lens _tltiKind (\ s a -> s{_tltiKind = a}) - --- | An opaque ID of the table -tltiId :: Lens' TableListTablesItem (Maybe Text) -tltiId = lens _tltiId (\ s a -> s{_tltiId = a}) - --- | The type of table. Possible values are: TABLE, VIEW. -tltiType :: Lens' TableListTablesItem (Maybe Text) -tltiType = lens _tltiType (\ s a -> s{_tltiType = a}) - -instance FromJSON TableListTablesItem where - parseJSON - = withObject "TableListTablesItem" - (\ o -> - TableListTablesItem <$> - (o .:? "tableReference") <*> (o .:? "friendlyName") - <*> (o .:? "kind" .!= "bigquery#table") - <*> (o .:? "id") - <*> (o .:? "type")) - -instance ToJSON TableListTablesItem where - toJSON TableListTablesItem{..} - = object - (catMaybes - [("tableReference" .=) <$> _tltiTableReference, - ("friendlyName" .=) <$> _tltiFriendlyName, - Just ("kind" .= _tltiKind), ("id" .=) <$> _tltiId, - ("type" .=) <$> _tltiType]) - --- --- /See:/ 'tableSchema' smart constructor. -newtype TableSchema = TableSchema - { _tsFields :: Maybe [TableFieldSchema] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableSchema' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tsFields' -tableSchema - :: TableSchema -tableSchema = - TableSchema - { _tsFields = Nothing - } - --- | Describes the fields in a table. -tsFields :: Lens' TableSchema [TableFieldSchema] -tsFields - = lens _tsFields (\ s a -> s{_tsFields = a}) . - _Default - . _Coerce - -instance FromJSON TableSchema where - parseJSON - = withObject "TableSchema" - (\ o -> TableSchema <$> (o .:? "fields" .!= mempty)) - -instance ToJSON TableSchema where - toJSON TableSchema{..} - = object (catMaybes [("fields" .=) <$> _tsFields]) - --- --- /See:/ 'projectList' smart constructor. -data ProjectList = ProjectList - { _plTotalItems :: !(Maybe (Textual Int32)) - , _plEtag :: !(Maybe Text) - , _plNextPageToken :: !(Maybe Text) - , _plKind :: !Text - , _plProjects :: !(Maybe [ProjectListProjectsItem]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ProjectList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plTotalItems' --- --- * 'plEtag' --- --- * 'plNextPageToken' --- --- * 'plKind' --- --- * 'plProjects' -projectList - :: ProjectList -projectList = - ProjectList - { _plTotalItems = Nothing - , _plEtag = Nothing - , _plNextPageToken = Nothing - , _plKind = "bigquery#projectList" - , _plProjects = Nothing - } - --- | The total number of projects in the list. -plTotalItems :: Lens' ProjectList (Maybe Int32) -plTotalItems - = lens _plTotalItems (\ s a -> s{_plTotalItems = a}) - . mapping _Coerce - --- | A hash of the page of results -plEtag :: Lens' ProjectList (Maybe Text) -plEtag = lens _plEtag (\ s a -> s{_plEtag = a}) - --- | A token to request the next page of results. -plNextPageToken :: Lens' ProjectList (Maybe Text) -plNextPageToken - = lens _plNextPageToken - (\ s a -> s{_plNextPageToken = a}) - --- | The type of list. -plKind :: Lens' ProjectList Text -plKind = lens _plKind (\ s a -> s{_plKind = a}) - --- | Projects to which you have at least READ access. -plProjects :: Lens' ProjectList [ProjectListProjectsItem] -plProjects - = lens _plProjects (\ s a -> s{_plProjects = a}) . - _Default - . _Coerce - -instance FromJSON ProjectList where - parseJSON - = withObject "ProjectList" - (\ o -> - ProjectList <$> - (o .:? "totalItems") <*> (o .:? "etag") <*> - (o .:? "nextPageToken") - <*> (o .:? "kind" .!= "bigquery#projectList") - <*> (o .:? "projects" .!= mempty)) - -instance ToJSON ProjectList where - toJSON ProjectList{..} - = object - (catMaybes - [("totalItems" .=) <$> _plTotalItems, - ("etag" .=) <$> _plEtag, - ("nextPageToken" .=) <$> _plNextPageToken, - Just ("kind" .= _plKind), - ("projects" .=) <$> _plProjects]) - --- --- /See:/ 'jobStatistics' smart constructor. -data JobStatistics = JobStatistics - { _jsCreationTime :: !(Maybe (Textual Int64)) - , _jsStartTime :: !(Maybe (Textual Int64)) - , _jsLoad :: !(Maybe JobStatistics3) - , _jsTotalBytesProcessed :: !(Maybe (Textual Int64)) - , _jsEndTime :: !(Maybe (Textual Int64)) - , _jsQuery :: !(Maybe JobStatistics2) - , _jsExtract :: !(Maybe JobStatistics4) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobStatistics' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jsCreationTime' --- --- * 'jsStartTime' --- --- * 'jsLoad' --- --- * 'jsTotalBytesProcessed' --- --- * 'jsEndTime' --- --- * 'jsQuery' --- --- * 'jsExtract' -jobStatistics - :: JobStatistics -jobStatistics = - JobStatistics - { _jsCreationTime = Nothing - , _jsStartTime = Nothing - , _jsLoad = Nothing - , _jsTotalBytesProcessed = Nothing - , _jsEndTime = Nothing - , _jsQuery = Nothing - , _jsExtract = Nothing - } - --- | [Output-only] Creation time of this job, in milliseconds since the --- epoch. This field will be present on all jobs. -jsCreationTime :: Lens' JobStatistics (Maybe Int64) -jsCreationTime - = lens _jsCreationTime - (\ s a -> s{_jsCreationTime = a}) - . mapping _Coerce - --- | [Output-only] Start time of this job, in milliseconds since the epoch. --- This field will be present when the job transitions from the PENDING --- state to either RUNNING or DONE. -jsStartTime :: Lens' JobStatistics (Maybe Int64) -jsStartTime - = lens _jsStartTime (\ s a -> s{_jsStartTime = a}) . - mapping _Coerce - --- | [Output-only] Statistics for a load job. -jsLoad :: Lens' JobStatistics (Maybe JobStatistics3) -jsLoad = lens _jsLoad (\ s a -> s{_jsLoad = a}) - --- | [Output-only] [Deprecated] Use the bytes processed in the query --- statistics instead. -jsTotalBytesProcessed :: Lens' JobStatistics (Maybe Int64) -jsTotalBytesProcessed - = lens _jsTotalBytesProcessed - (\ s a -> s{_jsTotalBytesProcessed = a}) - . mapping _Coerce - --- | [Output-only] End time of this job, in milliseconds since the epoch. --- This field will be present whenever a job is in the DONE state. -jsEndTime :: Lens' JobStatistics (Maybe Int64) -jsEndTime - = lens _jsEndTime (\ s a -> s{_jsEndTime = a}) . - mapping _Coerce - --- | [Output-only] Statistics for a query job. -jsQuery :: Lens' JobStatistics (Maybe JobStatistics2) -jsQuery = lens _jsQuery (\ s a -> s{_jsQuery = a}) - --- | [Output-only] Statistics for an extract job. -jsExtract :: Lens' JobStatistics (Maybe JobStatistics4) -jsExtract - = lens _jsExtract (\ s a -> s{_jsExtract = a}) - -instance FromJSON JobStatistics where - parseJSON - = withObject "JobStatistics" - (\ o -> - JobStatistics <$> - (o .:? "creationTime") <*> (o .:? "startTime") <*> - (o .:? "load") - <*> (o .:? "totalBytesProcessed") - <*> (o .:? "endTime") - <*> (o .:? "query") - <*> (o .:? "extract")) - -instance ToJSON JobStatistics where - toJSON JobStatistics{..} - = object - (catMaybes - [("creationTime" .=) <$> _jsCreationTime, - ("startTime" .=) <$> _jsStartTime, - ("load" .=) <$> _jsLoad, - ("totalBytesProcessed" .=) <$> - _jsTotalBytesProcessed, - ("endTime" .=) <$> _jsEndTime, - ("query" .=) <$> _jsQuery, - ("extract" .=) <$> _jsExtract]) - --- --- /See:/ 'dataSet' smart constructor. -data DataSet = DataSet - { _dsCreationTime :: !(Maybe (Textual Int64)) - , _dsAccess :: !(Maybe [DataSetAccessItem]) - , _dsEtag :: !(Maybe Text) - , _dsLocation :: !(Maybe Text) - , _dsFriendlyName :: !(Maybe Text) - , _dsKind :: !Text - , _dsLastModifiedTime :: !(Maybe (Textual Int64)) - , _dsDataSetReference :: !(Maybe DataSetReference) - , _dsSelfLink :: !(Maybe Text) - , _dsId :: !(Maybe Text) - , _dsDefaultTableExpirationMs :: !(Maybe (Textual Int64)) - , _dsDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'DataSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsCreationTime' --- --- * 'dsAccess' --- --- * 'dsEtag' --- --- * 'dsLocation' --- --- * 'dsFriendlyName' --- --- * 'dsKind' --- --- * 'dsLastModifiedTime' --- --- * 'dsDataSetReference' --- --- * 'dsSelfLink' --- --- * 'dsId' --- --- * 'dsDefaultTableExpirationMs' --- --- * 'dsDescription' -dataSet - :: DataSet -dataSet = - DataSet - { _dsCreationTime = Nothing - , _dsAccess = Nothing - , _dsEtag = Nothing - , _dsLocation = Nothing - , _dsFriendlyName = Nothing - , _dsKind = "bigquery#dataset" - , _dsLastModifiedTime = Nothing - , _dsDataSetReference = Nothing - , _dsSelfLink = Nothing - , _dsId = Nothing - , _dsDefaultTableExpirationMs = Nothing - , _dsDescription = Nothing - } - --- | [Output-only] The time when this dataset was created, in milliseconds --- since the epoch. -dsCreationTime :: Lens' DataSet (Maybe Int64) -dsCreationTime - = lens _dsCreationTime - (\ s a -> s{_dsCreationTime = a}) - . mapping _Coerce - --- | [Optional] An array of objects that define dataset access for one or --- more entities. You can set this property when inserting or updating a --- dataset in order to control who is allowed to access the data. If --- unspecified at dataset creation time, BigQuery adds default dataset --- access for the following entities: access.specialGroup: projectReaders; --- access.role: READER; access.specialGroup: projectWriters; access.role: --- WRITER; access.specialGroup: projectOwners; access.role: OWNER; --- access.userByEmail: [dataset creator email]; access.role: OWNER; -dsAccess :: Lens' DataSet [DataSetAccessItem] -dsAccess - = lens _dsAccess (\ s a -> s{_dsAccess = a}) . - _Default - . _Coerce - --- | [Output-only] A hash of the resource. -dsEtag :: Lens' DataSet (Maybe Text) -dsEtag = lens _dsEtag (\ s a -> s{_dsEtag = a}) - --- | [Experimental] The geographic location where the dataset should reside. --- Possible values include EU and US. The default value is US. -dsLocation :: Lens' DataSet (Maybe Text) -dsLocation - = lens _dsLocation (\ s a -> s{_dsLocation = a}) - --- | [Optional] A descriptive name for the dataset. -dsFriendlyName :: Lens' DataSet (Maybe Text) -dsFriendlyName - = lens _dsFriendlyName - (\ s a -> s{_dsFriendlyName = a}) - --- | [Output-only] The resource type. -dsKind :: Lens' DataSet Text -dsKind = lens _dsKind (\ s a -> s{_dsKind = a}) - --- | [Output-only] The date when this dataset or any of its tables was last --- modified, in milliseconds since the epoch. -dsLastModifiedTime :: Lens' DataSet (Maybe Int64) -dsLastModifiedTime - = lens _dsLastModifiedTime - (\ s a -> s{_dsLastModifiedTime = a}) - . mapping _Coerce - --- | [Required] A reference that identifies the dataset. -dsDataSetReference :: Lens' DataSet (Maybe DataSetReference) -dsDataSetReference - = lens _dsDataSetReference - (\ s a -> s{_dsDataSetReference = a}) - --- | [Output-only] A URL that can be used to access the resource again. You --- can use this URL in Get or Update requests to the resource. -dsSelfLink :: Lens' DataSet (Maybe Text) -dsSelfLink - = lens _dsSelfLink (\ s a -> s{_dsSelfLink = a}) - --- | [Output-only] The fully-qualified unique name of the dataset in the --- format projectId:datasetId. The dataset name without the project name is --- given in the datasetId field. When creating a new dataset, leave this --- field blank, and instead specify the datasetId field. -dsId :: Lens' DataSet (Maybe Text) -dsId = lens _dsId (\ s a -> s{_dsId = a}) - --- | [Experimental] 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 --- an expirationTime property set to the creation time plus the value in --- this property, and changing the value will only affect new tables, not --- existing ones. When the expirationTime for a given table is reached, --- that table will be deleted automatically. If a table\'s expirationTime --- is modified or removed before the table expires, or if you provide an --- explicit expirationTime when creating a table, that value takes --- precedence over the default expiration time indicated by this property. -dsDefaultTableExpirationMs :: Lens' DataSet (Maybe Int64) -dsDefaultTableExpirationMs - = lens _dsDefaultTableExpirationMs - (\ s a -> s{_dsDefaultTableExpirationMs = a}) - . mapping _Coerce - --- | [Optional] A user-friendly description of the dataset. -dsDescription :: Lens' DataSet (Maybe Text) -dsDescription - = lens _dsDescription - (\ s a -> s{_dsDescription = a}) - -instance FromJSON DataSet where - parseJSON - = withObject "DataSet" - (\ o -> - DataSet <$> - (o .:? "creationTime") <*> - (o .:? "access" .!= mempty) - <*> (o .:? "etag") - <*> (o .:? "location") - <*> (o .:? "friendlyName") - <*> (o .:? "kind" .!= "bigquery#dataset") - <*> (o .:? "lastModifiedTime") - <*> (o .:? "datasetReference") - <*> (o .:? "selfLink") - <*> (o .:? "id") - <*> (o .:? "defaultTableExpirationMs") - <*> (o .:? "description")) - -instance ToJSON DataSet where - toJSON DataSet{..} - = object - (catMaybes - [("creationTime" .=) <$> _dsCreationTime, - ("access" .=) <$> _dsAccess, ("etag" .=) <$> _dsEtag, - ("location" .=) <$> _dsLocation, - ("friendlyName" .=) <$> _dsFriendlyName, - Just ("kind" .= _dsKind), - ("lastModifiedTime" .=) <$> _dsLastModifiedTime, - ("datasetReference" .=) <$> _dsDataSetReference, - ("selfLink" .=) <$> _dsSelfLink, ("id" .=) <$> _dsId, - ("defaultTableExpirationMs" .=) <$> - _dsDefaultTableExpirationMs, - ("description" .=) <$> _dsDescription]) - --- --- /See:/ 'externalDataConfiguration' smart constructor. -data ExternalDataConfiguration = ExternalDataConfiguration - { _edcIgnoreUnknownValues :: !(Maybe Bool) - , _edcCompression :: !(Maybe Text) - , _edcSourceFormat :: !(Maybe Text) - , _edcSchema :: !(Maybe TableSchema) - , _edcMaxBadRecords :: !(Maybe (Textual Int32)) - , _edcSourceURIs :: !(Maybe [Text]) - , _edcCSVOptions :: !(Maybe CSVOptions) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ExternalDataConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'edcIgnoreUnknownValues' --- --- * 'edcCompression' --- --- * 'edcSourceFormat' --- --- * 'edcSchema' --- --- * 'edcMaxBadRecords' --- --- * 'edcSourceURIs' --- --- * 'edcCSVOptions' -externalDataConfiguration - :: ExternalDataConfiguration -externalDataConfiguration = - ExternalDataConfiguration - { _edcIgnoreUnknownValues = Nothing - , _edcCompression = Nothing - , _edcSourceFormat = Nothing - , _edcSchema = Nothing - , _edcMaxBadRecords = Nothing - , _edcSourceURIs = Nothing - , _edcCSVOptions = Nothing - } - --- | [Optional] Indicates if BigQuery should allow extra values that are not --- represented in the table schema. If true, the extra values are ignored. --- If false, records with extra columns are treated as bad records, and if --- there are too many bad records, an invalid error is returned in the job --- result. The default value is false. The sourceFormat property determines --- what BigQuery treats as an extra value: CSV: Trailing columns JSON: --- Named values that don\'t match any column names -edcIgnoreUnknownValues :: Lens' ExternalDataConfiguration (Maybe Bool) -edcIgnoreUnknownValues - = lens _edcIgnoreUnknownValues - (\ s a -> s{_edcIgnoreUnknownValues = a}) - --- | [Optional] The compression type of the data source. Possible values --- include GZIP and NONE. The default value is NONE. -edcCompression :: Lens' ExternalDataConfiguration (Maybe Text) -edcCompression - = lens _edcCompression - (\ s a -> s{_edcCompression = a}) - --- | [Required] The data format. For CSV files, specify \"CSV\". For --- newline-delimited JSON, specify \"NEWLINE_DELIMITED_JSON\". -edcSourceFormat :: Lens' ExternalDataConfiguration (Maybe Text) -edcSourceFormat - = lens _edcSourceFormat - (\ s a -> s{_edcSourceFormat = a}) - --- | [Required] The schema for the data. -edcSchema :: Lens' ExternalDataConfiguration (Maybe TableSchema) -edcSchema - = lens _edcSchema (\ s a -> s{_edcSchema = a}) - --- | [Optional] The maximum number of bad records that BigQuery can ignore --- when reading data. If the number of bad records exceeds this value, an --- invalid error is returned in the job result. The default value is 0, --- which requires that all records are valid. -edcMaxBadRecords :: Lens' ExternalDataConfiguration (Maybe Int32) -edcMaxBadRecords - = lens _edcMaxBadRecords - (\ s a -> s{_edcMaxBadRecords = a}) - . mapping _Coerce - --- | [Required] The fully-qualified URIs that point to your data in Google --- Cloud Storage. Each URI can contain one \'*\' wildcard character and it --- must come after the \'bucket\' name. Size limits related to load jobs --- apply to external data sources, plus an additional limit of 10 GB --- maximum size across all URIs. -edcSourceURIs :: Lens' ExternalDataConfiguration [Text] -edcSourceURIs - = lens _edcSourceURIs - (\ s a -> s{_edcSourceURIs = a}) - . _Default - . _Coerce - --- | Additional properties to set if sourceFormat is set to CSV. -edcCSVOptions :: Lens' ExternalDataConfiguration (Maybe CSVOptions) -edcCSVOptions - = lens _edcCSVOptions - (\ s a -> s{_edcCSVOptions = a}) - -instance FromJSON ExternalDataConfiguration where - parseJSON - = withObject "ExternalDataConfiguration" - (\ o -> - ExternalDataConfiguration <$> - (o .:? "ignoreUnknownValues") <*> - (o .:? "compression") - <*> (o .:? "sourceFormat") - <*> (o .:? "schema") - <*> (o .:? "maxBadRecords") - <*> (o .:? "sourceUris" .!= mempty) - <*> (o .:? "csvOptions")) - -instance ToJSON ExternalDataConfiguration where - toJSON ExternalDataConfiguration{..} - = object - (catMaybes - [("ignoreUnknownValues" .=) <$> - _edcIgnoreUnknownValues, - ("compression" .=) <$> _edcCompression, - ("sourceFormat" .=) <$> _edcSourceFormat, - ("schema" .=) <$> _edcSchema, - ("maxBadRecords" .=) <$> _edcMaxBadRecords, - ("sourceUris" .=) <$> _edcSourceURIs, - ("csvOptions" .=) <$> _edcCSVOptions]) - --- --- /See:/ 'tableReference' smart constructor. -data TableReference = TableReference - { _trDataSetId :: !(Maybe Text) - , _trProjectId :: !(Maybe Text) - , _trTableId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableReference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'trDataSetId' --- --- * 'trProjectId' --- --- * 'trTableId' -tableReference - :: TableReference -tableReference = - TableReference - { _trDataSetId = Nothing - , _trProjectId = Nothing - , _trTableId = Nothing - } - --- | [Required] The ID of the dataset containing this table. -trDataSetId :: Lens' TableReference (Maybe Text) -trDataSetId - = lens _trDataSetId (\ s a -> s{_trDataSetId = a}) - --- | [Required] The ID of the project containing this table. -trProjectId :: Lens' TableReference (Maybe Text) -trProjectId - = lens _trProjectId (\ s a -> s{_trProjectId = a}) - --- | [Required] The ID of the table. The ID must contain only letters (a-z, --- A-Z), numbers (0-9), or underscores (_). The maximum length is 1,024 --- characters. -trTableId :: Lens' TableReference (Maybe Text) -trTableId - = lens _trTableId (\ s a -> s{_trTableId = a}) - -instance FromJSON TableReference where - parseJSON - = withObject "TableReference" - (\ o -> - TableReference <$> - (o .:? "datasetId") <*> (o .:? "projectId") <*> - (o .:? "tableId")) - -instance ToJSON TableReference where - toJSON TableReference{..} - = object - (catMaybes - [("datasetId" .=) <$> _trDataSetId, - ("projectId" .=) <$> _trProjectId, - ("tableId" .=) <$> _trTableId]) - --- --- /See:/ 'tableFieldSchema' smart constructor. -data TableFieldSchema = TableFieldSchema - { _tfsMode :: !(Maybe Text) - , _tfsName :: !(Maybe Text) - , _tfsType :: !(Maybe Text) - , _tfsDescription :: !(Maybe Text) - , _tfsFields :: !(Maybe [TableFieldSchema]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableFieldSchema' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tfsMode' --- --- * 'tfsName' --- --- * 'tfsType' --- --- * 'tfsDescription' --- --- * 'tfsFields' -tableFieldSchema - :: TableFieldSchema -tableFieldSchema = - TableFieldSchema - { _tfsMode = Nothing - , _tfsName = Nothing - , _tfsType = Nothing - , _tfsDescription = Nothing - , _tfsFields = Nothing - } - --- | [Optional] The field mode. Possible values include NULLABLE, REQUIRED --- and REPEATED. The default value is NULLABLE. -tfsMode :: Lens' TableFieldSchema (Maybe Text) -tfsMode = lens _tfsMode (\ s a -> s{_tfsMode = a}) - --- | [Required] The field name. The name must contain only letters (a-z, --- A-Z), numbers (0-9), or underscores (_), and must start with a letter or --- underscore. The maximum length is 128 characters. -tfsName :: Lens' TableFieldSchema (Maybe Text) -tfsName = lens _tfsName (\ s a -> s{_tfsName = a}) - --- | [Required] The field data type. Possible values include STRING, INTEGER, --- FLOAT, BOOLEAN, TIMESTAMP 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}) - --- | [Optional] The field description. The maximum length is 16K characters. -tfsDescription :: Lens' TableFieldSchema (Maybe Text) -tfsDescription - = lens _tfsDescription - (\ s a -> s{_tfsDescription = a}) - --- | [Optional] Describes the nested schema fields if the type property is --- set to RECORD. -tfsFields :: Lens' TableFieldSchema [TableFieldSchema] -tfsFields - = lens _tfsFields (\ s a -> s{_tfsFields = a}) . - _Default - . _Coerce - -instance FromJSON TableFieldSchema where - parseJSON - = withObject "TableFieldSchema" - (\ o -> - TableFieldSchema <$> - (o .:? "mode") <*> (o .:? "name") <*> (o .:? "type") - <*> (o .:? "description") - <*> (o .:? "fields" .!= mempty)) - -instance ToJSON TableFieldSchema where - toJSON TableFieldSchema{..} - = object - (catMaybes - [("mode" .=) <$> _tfsMode, ("name" .=) <$> _tfsName, - ("type" .=) <$> _tfsType, - ("description" .=) <$> _tfsDescription, - ("fields" .=) <$> _tfsFields]) - --- --- /See:/ 'getQueryResultsResponse' smart constructor. -data GetQueryResultsResponse = GetQueryResultsResponse - { _gqrrJobReference :: !(Maybe JobReference) - , _gqrrEtag :: !(Maybe Text) - , _gqrrKind :: !Text - , _gqrrSchema :: !(Maybe TableSchema) - , _gqrrTotalBytesProcessed :: !(Maybe (Textual Int64)) - , _gqrrRows :: !(Maybe [TableRow]) - , _gqrrPageToken :: !(Maybe Text) - , _gqrrTotalRows :: !(Maybe (Textual Word64)) - , _gqrrErrors :: !(Maybe [ErrorProto]) - , _gqrrJobComplete :: !(Maybe Bool) - , _gqrrCacheHit :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'GetQueryResultsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gqrrJobReference' --- --- * 'gqrrEtag' --- --- * 'gqrrKind' --- --- * 'gqrrSchema' --- --- * 'gqrrTotalBytesProcessed' --- --- * 'gqrrRows' --- --- * 'gqrrPageToken' --- --- * 'gqrrTotalRows' --- --- * 'gqrrErrors' --- --- * 'gqrrJobComplete' --- --- * 'gqrrCacheHit' -getQueryResultsResponse - :: GetQueryResultsResponse -getQueryResultsResponse = - GetQueryResultsResponse - { _gqrrJobReference = Nothing - , _gqrrEtag = Nothing - , _gqrrKind = "bigquery#getQueryResultsResponse" - , _gqrrSchema = Nothing - , _gqrrTotalBytesProcessed = Nothing - , _gqrrRows = Nothing - , _gqrrPageToken = Nothing - , _gqrrTotalRows = Nothing - , _gqrrErrors = Nothing - , _gqrrJobComplete = Nothing - , _gqrrCacheHit = Nothing - } - --- | Reference to the BigQuery Job that was created to run the query. This --- field will be present even if the original request timed out, in which --- case GetQueryResults can be used to read the results once the query has --- completed. Since this API only returns the first page of results, --- subsequent pages can be fetched via the same mechanism --- (GetQueryResults). -gqrrJobReference :: Lens' GetQueryResultsResponse (Maybe JobReference) -gqrrJobReference - = lens _gqrrJobReference - (\ s a -> s{_gqrrJobReference = a}) - --- | A hash of this response. -gqrrEtag :: Lens' GetQueryResultsResponse (Maybe Text) -gqrrEtag = lens _gqrrEtag (\ s a -> s{_gqrrEtag = a}) - --- | The resource type of the response. -gqrrKind :: Lens' GetQueryResultsResponse Text -gqrrKind = lens _gqrrKind (\ s a -> s{_gqrrKind = a}) - --- | The schema of the results. Present only when the query completes --- successfully. -gqrrSchema :: Lens' GetQueryResultsResponse (Maybe TableSchema) -gqrrSchema - = lens _gqrrSchema (\ s a -> s{_gqrrSchema = a}) - --- | The total number of bytes processed for this query. -gqrrTotalBytesProcessed :: Lens' GetQueryResultsResponse (Maybe Int64) -gqrrTotalBytesProcessed - = lens _gqrrTotalBytesProcessed - (\ s a -> s{_gqrrTotalBytesProcessed = a}) - . mapping _Coerce - --- | An object with as many results as can be contained within the maximum --- permitted reply size. To get any additional rows, you can call --- GetQueryResults and specify the jobReference returned above. Present --- only when the query completes successfully. -gqrrRows :: Lens' GetQueryResultsResponse [TableRow] -gqrrRows - = lens _gqrrRows (\ s a -> s{_gqrrRows = a}) . - _Default - . _Coerce - --- | A token used for paging results. -gqrrPageToken :: Lens' GetQueryResultsResponse (Maybe Text) -gqrrPageToken - = lens _gqrrPageToken - (\ s a -> s{_gqrrPageToken = a}) - --- | 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. -gqrrTotalRows :: Lens' GetQueryResultsResponse (Maybe Word64) -gqrrTotalRows - = lens _gqrrTotalRows - (\ s a -> s{_gqrrTotalRows = a}) - . mapping _Coerce - --- | [Output-only] All errors and warnings encountered during the running of --- the job. Errors here do not necessarily mean that the job has completed --- or was unsuccessful. -gqrrErrors :: Lens' GetQueryResultsResponse [ErrorProto] -gqrrErrors - = lens _gqrrErrors (\ s a -> s{_gqrrErrors = a}) . - _Default - . _Coerce - --- | Whether the query has completed or not. If rows or totalRows are --- present, this will always be true. If this is false, totalRows will not --- be available. -gqrrJobComplete :: Lens' GetQueryResultsResponse (Maybe Bool) -gqrrJobComplete - = lens _gqrrJobComplete - (\ s a -> s{_gqrrJobComplete = a}) - --- | Whether the query result was fetched from the query cache. -gqrrCacheHit :: Lens' GetQueryResultsResponse (Maybe Bool) -gqrrCacheHit - = lens _gqrrCacheHit (\ s a -> s{_gqrrCacheHit = a}) - -instance FromJSON GetQueryResultsResponse where - parseJSON - = withObject "GetQueryResultsResponse" - (\ o -> - GetQueryResultsResponse <$> - (o .:? "jobReference") <*> (o .:? "etag") <*> - (o .:? "kind" .!= "bigquery#getQueryResultsResponse") - <*> (o .:? "schema") - <*> (o .:? "totalBytesProcessed") - <*> (o .:? "rows" .!= mempty) - <*> (o .:? "pageToken") - <*> (o .:? "totalRows") - <*> (o .:? "errors" .!= mempty) - <*> (o .:? "jobComplete") - <*> (o .:? "cacheHit")) - -instance ToJSON GetQueryResultsResponse where - toJSON GetQueryResultsResponse{..} - = object - (catMaybes - [("jobReference" .=) <$> _gqrrJobReference, - ("etag" .=) <$> _gqrrEtag, - Just ("kind" .= _gqrrKind), - ("schema" .=) <$> _gqrrSchema, - ("totalBytesProcessed" .=) <$> - _gqrrTotalBytesProcessed, - ("rows" .=) <$> _gqrrRows, - ("pageToken" .=) <$> _gqrrPageToken, - ("totalRows" .=) <$> _gqrrTotalRows, - ("errors" .=) <$> _gqrrErrors, - ("jobComplete" .=) <$> _gqrrJobComplete, - ("cacheHit" .=) <$> _gqrrCacheHit]) - --- --- /See:/ 'dataSetList' smart constructor. -data DataSetList = DataSetList - { _dslEtag :: !(Maybe Text) - , _dslNextPageToken :: !(Maybe Text) - , _dslKind :: !Text - , _dslDataSets :: !(Maybe [DataSetListDataSetsItem]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'DataSetList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dslEtag' --- --- * 'dslNextPageToken' --- --- * 'dslKind' --- --- * 'dslDataSets' -dataSetList - :: DataSetList -dataSetList = - DataSetList - { _dslEtag = Nothing - , _dslNextPageToken = Nothing - , _dslKind = "bigquery#datasetList" - , _dslDataSets = Nothing - } - --- | A hash value of the results page. You can use this property to determine --- if the page has changed since the last request. -dslEtag :: Lens' DataSetList (Maybe Text) -dslEtag = lens _dslEtag (\ s a -> s{_dslEtag = a}) - --- | A token that can be used to request the next results page. This property --- is omitted on the final results page. -dslNextPageToken :: Lens' DataSetList (Maybe Text) -dslNextPageToken - = lens _dslNextPageToken - (\ s a -> s{_dslNextPageToken = a}) - --- | The list type. This property always returns the value --- \"bigquery#datasetList\". -dslKind :: Lens' DataSetList Text -dslKind = lens _dslKind (\ s a -> s{_dslKind = a}) - --- | An array of the dataset resources in the project. Each resource contains --- basic information. For full information about a particular dataset --- resource, use the Datasets: get method. This property is omitted when --- there are no datasets in the project. -dslDataSets :: Lens' DataSetList [DataSetListDataSetsItem] -dslDataSets - = lens _dslDataSets (\ s a -> s{_dslDataSets = a}) . - _Default - . _Coerce - -instance FromJSON DataSetList where - parseJSON - = withObject "DataSetList" - (\ o -> - DataSetList <$> - (o .:? "etag") <*> (o .:? "nextPageToken") <*> - (o .:? "kind" .!= "bigquery#datasetList") - <*> (o .:? "datasets" .!= mempty)) - -instance ToJSON DataSetList where - toJSON DataSetList{..} - = object - (catMaybes - [("etag" .=) <$> _dslEtag, - ("nextPageToken" .=) <$> _dslNextPageToken, - Just ("kind" .= _dslKind), - ("datasets" .=) <$> _dslDataSets]) - --- --- /See:/ 'queryRequest' smart constructor. -data QueryRequest = QueryRequest - { _qrUseQueryCache :: !Bool - , _qrPreserveNulls :: !(Maybe Bool) - , _qrKind :: !Text - , _qrQuery :: !(Maybe Text) - , _qrTimeoutMs :: !(Maybe (Textual Word32)) - , _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. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'qrUseQueryCache' --- --- * 'qrPreserveNulls' --- --- * 'qrKind' --- --- * 'qrQuery' --- --- * 'qrTimeoutMs' --- --- * 'qrDryRun' --- --- * 'qrMaxResults' --- --- * 'qrDefaultDataSet' -queryRequest - :: QueryRequest -queryRequest = - QueryRequest - { _qrUseQueryCache = True - , _qrPreserveNulls = Nothing - , _qrKind = "bigquery#queryRequest" - , _qrQuery = Nothing - , _qrTimeoutMs = Nothing - , _qrDryRun = Nothing - , _qrMaxResults = Nothing - , _qrDefaultDataSet = Nothing - } - --- | [Optional] Whether to look for the result in the query cache. The query --- cache is a best-effort cache that will be flushed whenever tables in the --- query are modified. The default value is true. -qrUseQueryCache :: Lens' QueryRequest Bool -qrUseQueryCache - = lens _qrUseQueryCache - (\ s a -> s{_qrUseQueryCache = a}) - --- | [Deprecated] This property is deprecated. -qrPreserveNulls :: Lens' QueryRequest (Maybe Bool) -qrPreserveNulls - = lens _qrPreserveNulls - (\ s a -> s{_qrPreserveNulls = a}) - --- | The resource type of the request. -qrKind :: Lens' QueryRequest Text -qrKind = lens _qrKind (\ s a -> s{_qrKind = a}) - --- | [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}) - --- | [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 --- than the timeout value, the call returns without any results and with --- the \'jobComplete\' flag set to false. You can call GetQueryResults() to --- wait for the query to complete and read the results. The default value --- is 10000 milliseconds (10 seconds). -qrTimeoutMs :: Lens' QueryRequest (Maybe Word32) -qrTimeoutMs - = lens _qrTimeoutMs (\ s a -> s{_qrTimeoutMs = a}) . - mapping _Coerce - --- | [Optional] If set to true, BigQuery doesn\'t run the job. Instead, if --- the query is valid, BigQuery returns statistics about the job such as --- how many bytes would be processed. If the query is invalid, an error --- returns. The default value is false. -qrDryRun :: Lens' QueryRequest (Maybe Bool) -qrDryRun = lens _qrDryRun (\ s a -> s{_qrDryRun = a}) - --- | [Optional] The maximum number of rows of data to return per page of --- results. Setting this flag to a small value such as 1000 and then paging --- through results might improve reliability when the query result set is --- large. In addition to this limit, responses are also limited to 10 MB. --- By default, there is no maximum row count, and only the byte limit --- applies. -qrMaxResults :: Lens' QueryRequest (Maybe Word32) -qrMaxResults - = lens _qrMaxResults (\ s a -> s{_qrMaxResults = a}) - . mapping _Coerce - --- | [Optional] Specifies the default datasetId and projectId to assume for --- any unqualified table names in the query. If not set, all table names in --- the query string must be qualified in the format \'datasetId.tableId\'. -qrDefaultDataSet :: Lens' QueryRequest (Maybe DataSetReference) -qrDefaultDataSet - = lens _qrDefaultDataSet - (\ s a -> s{_qrDefaultDataSet = a}) - -instance FromJSON QueryRequest where - parseJSON - = withObject "QueryRequest" - (\ o -> - QueryRequest <$> - (o .:? "useQueryCache" .!= True) <*> - (o .:? "preserveNulls") - <*> (o .:? "kind" .!= "bigquery#queryRequest") - <*> (o .:? "query") - <*> (o .:? "timeoutMs") - <*> (o .:? "dryRun") - <*> (o .:? "maxResults") - <*> (o .:? "defaultDataset")) - -instance ToJSON QueryRequest where - toJSON QueryRequest{..} - = object - (catMaybes - [Just ("useQueryCache" .= _qrUseQueryCache), - ("preserveNulls" .=) <$> _qrPreserveNulls, - Just ("kind" .= _qrKind), ("query" .=) <$> _qrQuery, - ("timeoutMs" .=) <$> _qrTimeoutMs, - ("dryRun" .=) <$> _qrDryRun, - ("maxResults" .=) <$> _qrMaxResults, - ("defaultDataset" .=) <$> _qrDefaultDataSet]) - --- --- /See:/ 'jobStatistics4' smart constructor. -newtype JobStatistics4 = JobStatistics4 - { _jsDestinationURIFileCounts :: Maybe [Textual Int64] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobStatistics4' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jsDestinationURIFileCounts' -jobStatistics4 - :: JobStatistics4 -jobStatistics4 = - JobStatistics4 - { _jsDestinationURIFileCounts = Nothing - } - --- | [Output-only] Number of files per destination URI or URI pattern --- specified in the extract configuration. These values will be in the same --- order as the URIs specified in the \'destinationUris\' field. -jsDestinationURIFileCounts :: Lens' JobStatistics4 [Int64] -jsDestinationURIFileCounts - = lens _jsDestinationURIFileCounts - (\ s a -> s{_jsDestinationURIFileCounts = a}) - . _Default - . _Coerce - -instance FromJSON JobStatistics4 where - parseJSON - = withObject "JobStatistics4" - (\ o -> - JobStatistics4 <$> - (o .:? "destinationUriFileCounts" .!= mempty)) - -instance ToJSON JobStatistics4 where - toJSON JobStatistics4{..} - = object - (catMaybes - [("destinationUriFileCounts" .=) <$> - _jsDestinationURIFileCounts]) - --- --- /See:/ 'projectReference' smart constructor. -newtype ProjectReference = ProjectReference - { _prProjectId :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ProjectReference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'prProjectId' -projectReference - :: ProjectReference -projectReference = - ProjectReference - { _prProjectId = Nothing - } - --- | [Required] ID of the project. Can be either the numeric ID or the --- assigned ID of the project. -prProjectId :: Lens' ProjectReference (Maybe Text) -prProjectId - = lens _prProjectId (\ s a -> s{_prProjectId = a}) - -instance FromJSON ProjectReference where - parseJSON - = withObject "ProjectReference" - (\ o -> ProjectReference <$> (o .:? "projectId")) - -instance ToJSON ProjectReference where - toJSON ProjectReference{..} - = object - (catMaybes [("projectId" .=) <$> _prProjectId]) - --- --- /See:/ 'jobConfigurationLoad' smart constructor. -data JobConfigurationLoad = JobConfigurationLoad - { _jclSkipLeadingRows :: !(Maybe (Textual Int32)) - , _jclProjectionFields :: !(Maybe [Text]) - , _jclDestinationTable :: !(Maybe TableReference) - , _jclWriteDisPosition :: !(Maybe Text) - , _jclAllowJaggedRows :: !(Maybe Bool) - , _jclSchemaInline :: !(Maybe Text) - , _jclIgnoreUnknownValues :: !(Maybe Bool) - , _jclCreateDisPosition :: !(Maybe Text) - , _jclSchemaInlineFormat :: !(Maybe Text) - , _jclAllowQuotedNewlines :: !(Maybe Bool) - , _jclSourceFormat :: !(Maybe Text) - , _jclSchema :: !(Maybe TableSchema) - , _jclQuote :: !Text - , _jclMaxBadRecords :: !(Maybe (Textual Int32)) - , _jclSourceURIs :: !(Maybe [Text]) - , _jclEncoding :: !(Maybe Text) - , _jclFieldDelimiter :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationLoad' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jclSkipLeadingRows' --- --- * 'jclProjectionFields' --- --- * 'jclDestinationTable' --- --- * 'jclWriteDisPosition' --- --- * 'jclAllowJaggedRows' --- --- * 'jclSchemaInline' --- --- * 'jclIgnoreUnknownValues' --- --- * 'jclCreateDisPosition' --- --- * 'jclSchemaInlineFormat' --- --- * 'jclAllowQuotedNewlines' --- --- * 'jclSourceFormat' --- --- * 'jclSchema' --- --- * 'jclQuote' --- --- * 'jclMaxBadRecords' --- --- * 'jclSourceURIs' --- --- * 'jclEncoding' --- --- * 'jclFieldDelimiter' -jobConfigurationLoad - :: JobConfigurationLoad -jobConfigurationLoad = - JobConfigurationLoad - { _jclSkipLeadingRows = Nothing - , _jclProjectionFields = Nothing - , _jclDestinationTable = Nothing - , _jclWriteDisPosition = Nothing - , _jclAllowJaggedRows = Nothing - , _jclSchemaInline = Nothing - , _jclIgnoreUnknownValues = Nothing - , _jclCreateDisPosition = Nothing - , _jclSchemaInlineFormat = Nothing - , _jclAllowQuotedNewlines = Nothing - , _jclSourceFormat = Nothing - , _jclSchema = Nothing - , _jclQuote = "\"" - , _jclMaxBadRecords = Nothing - , _jclSourceURIs = Nothing - , _jclEncoding = Nothing - , _jclFieldDelimiter = Nothing - } - --- | [Optional] The number of rows at the top of a CSV file that BigQuery --- will skip when loading the data. The default value is 0. This property --- is useful if you have header rows in the file that should be skipped. -jclSkipLeadingRows :: Lens' JobConfigurationLoad (Maybe Int32) -jclSkipLeadingRows - = lens _jclSkipLeadingRows - (\ s a -> s{_jclSkipLeadingRows = a}) - . mapping _Coerce - --- | [Experimental] If sourceFormat is set to \"DATASTORE_BACKUP\", indicates --- which entity properties to load into BigQuery from a Cloud Datastore --- backup. Property names are case sensitive and must be top-level --- properties. If no properties are specified, BigQuery loads all --- properties. If any named property isn\'t found in the Cloud Datastore --- backup, an invalid error is returned in the job result. -jclProjectionFields :: Lens' JobConfigurationLoad [Text] -jclProjectionFields - = lens _jclProjectionFields - (\ s a -> s{_jclProjectionFields = a}) - . _Default - . _Coerce - --- | [Required] The destination table to load the data into. -jclDestinationTable :: Lens' JobConfigurationLoad (Maybe TableReference) -jclDestinationTable - = lens _jclDestinationTable - (\ s a -> s{_jclDestinationTable = a}) - --- | [Optional] Specifies the action that occurs if the destination table --- already exists. The following values are supported: WRITE_TRUNCATE: If --- the table already exists, BigQuery overwrites the table data. --- WRITE_APPEND: If the table already exists, BigQuery appends the data to --- the table. WRITE_EMPTY: If the table already exists and contains data, a --- \'duplicate\' error is returned in the job result. The default value is --- WRITE_APPEND. Each action is atomic and only occurs if BigQuery is able --- to complete the job successfully. Creation, truncation and append --- actions occur as one atomic update upon job completion. -jclWriteDisPosition :: Lens' JobConfigurationLoad (Maybe Text) -jclWriteDisPosition - = lens _jclWriteDisPosition - (\ s a -> s{_jclWriteDisPosition = a}) - --- | [Optional] Accept rows that are missing trailing optional columns. The --- missing values are treated as nulls. If false, records with missing --- trailing columns are treated as bad records, and if there are too many --- bad records, an invalid error is returned in the job result. The default --- value is false. Only applicable to CSV, ignored for other formats. -jclAllowJaggedRows :: Lens' JobConfigurationLoad (Maybe Bool) -jclAllowJaggedRows - = lens _jclAllowJaggedRows - (\ s a -> s{_jclAllowJaggedRows = a}) - --- | [Deprecated] The inline schema. For CSV schemas, specify as --- \"Field1:Type1[,Field2:Type2]*\". For example, \"foo:STRING, --- bar:INTEGER, baz:FLOAT\". -jclSchemaInline :: Lens' JobConfigurationLoad (Maybe Text) -jclSchemaInline - = lens _jclSchemaInline - (\ s a -> s{_jclSchemaInline = a}) - --- | [Optional] Indicates if BigQuery should allow extra values that are not --- represented in the table schema. If true, the extra values are ignored. --- If false, records with extra columns are treated as bad records, and if --- there are too many bad records, an invalid error is returned in the job --- result. The default value is false. The sourceFormat property determines --- what BigQuery treats as an extra value: CSV: Trailing columns JSON: --- Named values that don\'t match any column names -jclIgnoreUnknownValues :: Lens' JobConfigurationLoad (Maybe Bool) -jclIgnoreUnknownValues - = lens _jclIgnoreUnknownValues - (\ s a -> s{_jclIgnoreUnknownValues = a}) - --- | [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 --- already exist. If it does not, a \'notFound\' error is returned in the --- job result. The default value is CREATE_IF_NEEDED. Creation, truncation --- and append actions occur as one atomic update upon job completion. -jclCreateDisPosition :: Lens' JobConfigurationLoad (Maybe Text) -jclCreateDisPosition - = lens _jclCreateDisPosition - (\ s a -> s{_jclCreateDisPosition = a}) - --- | [Deprecated] The format of the schemaInline property. -jclSchemaInlineFormat :: Lens' JobConfigurationLoad (Maybe Text) -jclSchemaInlineFormat - = lens _jclSchemaInlineFormat - (\ s a -> s{_jclSchemaInlineFormat = a}) - --- | Indicates if BigQuery should allow quoted data sections that contain --- newline characters in a CSV file. The default value is false. -jclAllowQuotedNewlines :: Lens' JobConfigurationLoad (Maybe Bool) -jclAllowQuotedNewlines - = lens _jclAllowQuotedNewlines - (\ s a -> s{_jclAllowQuotedNewlines = a}) - --- | [Optional] The format of the data files. For CSV files, specify \"CSV\". --- For datastore backups, specify \"DATASTORE_BACKUP\". For --- newline-delimited JSON, specify \"NEWLINE_DELIMITED_JSON\". The default --- value is CSV. -jclSourceFormat :: Lens' JobConfigurationLoad (Maybe Text) -jclSourceFormat - = lens _jclSourceFormat - (\ s a -> s{_jclSourceFormat = a}) - --- | [Optional] The schema for the destination table. The schema can be --- omitted if the destination table already exists or if the schema can be --- inferred from the loaded data. -jclSchema :: Lens' JobConfigurationLoad (Maybe TableSchema) -jclSchema - = lens _jclSchema (\ s a -> s{_jclSchema = a}) - --- | [Optional] The value that is used to quote data sections in a CSV file. --- BigQuery converts the string to ISO-8859-1 encoding, and then uses the --- first byte of the encoded string to split the data in its raw, binary --- state. The default value is a double-quote (\'\"\'). If your data does --- 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 _jclQuote (\ s a -> s{_jclQuote = a}) - --- | [Optional] The maximum number of bad records that BigQuery can ignore --- when running the job. If the number of bad records exceeds this value, --- an invalid error is returned in the job result. The default value is 0, --- which requires that all records are valid. -jclMaxBadRecords :: Lens' JobConfigurationLoad (Maybe Int32) -jclMaxBadRecords - = lens _jclMaxBadRecords - (\ s a -> s{_jclMaxBadRecords = a}) - . mapping _Coerce - --- | [Required] The fully-qualified URIs that point to your data in Google --- Cloud Storage. Each URI can contain one \'*\' wildcard character and it --- must come after the \'bucket\' name. -jclSourceURIs :: Lens' JobConfigurationLoad [Text] -jclSourceURIs - = lens _jclSourceURIs - (\ s a -> s{_jclSourceURIs = a}) - . _Default - . _Coerce - --- | [Optional] The character encoding of the data. The supported values are --- UTF-8 or ISO-8859-1. The default value is UTF-8. BigQuery decodes the --- data after the raw, binary data has been split using the values of the --- quote and fieldDelimiter properties. -jclEncoding :: Lens' JobConfigurationLoad (Maybe Text) -jclEncoding - = lens _jclEncoding (\ s a -> s{_jclEncoding = a}) - --- | [Optional] The separator for fields in a CSV file. BigQuery converts the --- string to ISO-8859-1 encoding, and then uses the first byte of the --- encoded string to split the data in its raw, binary state. BigQuery also --- supports the escape sequence \"\\t\" to specify a tab separator. The --- default value is a comma (\',\'). -jclFieldDelimiter :: Lens' JobConfigurationLoad (Maybe Text) -jclFieldDelimiter - = lens _jclFieldDelimiter - (\ s a -> s{_jclFieldDelimiter = a}) - -instance FromJSON JobConfigurationLoad where - parseJSON - = withObject "JobConfigurationLoad" - (\ o -> - JobConfigurationLoad <$> - (o .:? "skipLeadingRows") <*> - (o .:? "projectionFields" .!= mempty) - <*> (o .:? "destinationTable") - <*> (o .:? "writeDisposition") - <*> (o .:? "allowJaggedRows") - <*> (o .:? "schemaInline") - <*> (o .:? "ignoreUnknownValues") - <*> (o .:? "createDisposition") - <*> (o .:? "schemaInlineFormat") - <*> (o .:? "allowQuotedNewlines") - <*> (o .:? "sourceFormat") - <*> (o .:? "schema") - <*> (o .:? "quote" .!= "\"") - <*> (o .:? "maxBadRecords") - <*> (o .:? "sourceUris" .!= mempty) - <*> (o .:? "encoding") - <*> (o .:? "fieldDelimiter")) - -instance ToJSON JobConfigurationLoad where - toJSON JobConfigurationLoad{..} - = object - (catMaybes - [("skipLeadingRows" .=) <$> _jclSkipLeadingRows, - ("projectionFields" .=) <$> _jclProjectionFields, - ("destinationTable" .=) <$> _jclDestinationTable, - ("writeDisposition" .=) <$> _jclWriteDisPosition, - ("allowJaggedRows" .=) <$> _jclAllowJaggedRows, - ("schemaInline" .=) <$> _jclSchemaInline, - ("ignoreUnknownValues" .=) <$> - _jclIgnoreUnknownValues, - ("createDisposition" .=) <$> _jclCreateDisPosition, - ("schemaInlineFormat" .=) <$> _jclSchemaInlineFormat, - ("allowQuotedNewlines" .=) <$> - _jclAllowQuotedNewlines, - ("sourceFormat" .=) <$> _jclSourceFormat, - ("schema" .=) <$> _jclSchema, - Just ("quote" .= _jclQuote), - ("maxBadRecords" .=) <$> _jclMaxBadRecords, - ("sourceUris" .=) <$> _jclSourceURIs, - ("encoding" .=) <$> _jclEncoding, - ("fieldDelimiter" .=) <$> _jclFieldDelimiter]) - --- --- /See:/ 'dataSetReference' smart constructor. -data DataSetReference = DataSetReference - { _dsrDataSetId :: !(Maybe Text) - , _dsrProjectId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'DataSetReference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrDataSetId' --- --- * 'dsrProjectId' -dataSetReference - :: DataSetReference -dataSetReference = - DataSetReference - { _dsrDataSetId = Nothing - , _dsrProjectId = Nothing - } - --- | [Required] A unique ID for this dataset, without the project name. The --- ID must contain only letters (a-z, A-Z), numbers (0-9), or underscores --- (_). The maximum length is 1,024 characters. -dsrDataSetId :: Lens' DataSetReference (Maybe Text) -dsrDataSetId - = lens _dsrDataSetId (\ s a -> s{_dsrDataSetId = a}) - --- | [Optional] The ID of the project containing this dataset. -dsrProjectId :: Lens' DataSetReference (Maybe Text) -dsrProjectId - = lens _dsrProjectId (\ s a -> s{_dsrProjectId = a}) - -instance FromJSON DataSetReference where - parseJSON - = withObject "DataSetReference" - (\ o -> - DataSetReference <$> - (o .:? "datasetId") <*> (o .:? "projectId")) - -instance ToJSON DataSetReference where - toJSON DataSetReference{..} - = object - (catMaybes - [("datasetId" .=) <$> _dsrDataSetId, - ("projectId" .=) <$> _dsrProjectId]) - --- --- /See:/ 'tableDataInsertAllRequest' smart constructor. -data TableDataInsertAllRequest = TableDataInsertAllRequest - { _tdiarKind :: !Text - , _tdiarIgnoreUnknownValues :: !(Maybe Bool) - , _tdiarRows :: !(Maybe [TableDataInsertAllRequestRowsItem]) - , _tdiarSkipInvalidRows :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableDataInsertAllRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tdiarKind' --- --- * 'tdiarIgnoreUnknownValues' --- --- * 'tdiarRows' --- --- * 'tdiarSkipInvalidRows' -tableDataInsertAllRequest - :: TableDataInsertAllRequest -tableDataInsertAllRequest = - TableDataInsertAllRequest - { _tdiarKind = "bigquery#tableDataInsertAllRequest" - , _tdiarIgnoreUnknownValues = Nothing - , _tdiarRows = Nothing - , _tdiarSkipInvalidRows = Nothing - } - --- | The resource type of the response. -tdiarKind :: Lens' TableDataInsertAllRequest Text -tdiarKind - = lens _tdiarKind (\ s a -> s{_tdiarKind = a}) - --- | [Optional] Accept rows that contain values that do not match the schema. --- The unknown values are ignored. Default is false, which treats unknown --- values as errors. -tdiarIgnoreUnknownValues :: Lens' TableDataInsertAllRequest (Maybe Bool) -tdiarIgnoreUnknownValues - = lens _tdiarIgnoreUnknownValues - (\ s a -> s{_tdiarIgnoreUnknownValues = a}) - --- | The rows to insert. -tdiarRows :: Lens' TableDataInsertAllRequest [TableDataInsertAllRequestRowsItem] -tdiarRows - = lens _tdiarRows (\ s a -> s{_tdiarRows = a}) . - _Default - . _Coerce - --- | [Optional] Insert all valid rows of a request, even if invalid rows --- exist. The default value is false, which causes the entire request to --- fail if any invalid rows exist. -tdiarSkipInvalidRows :: Lens' TableDataInsertAllRequest (Maybe Bool) -tdiarSkipInvalidRows - = lens _tdiarSkipInvalidRows - (\ s a -> s{_tdiarSkipInvalidRows = a}) - -instance FromJSON TableDataInsertAllRequest where - parseJSON - = withObject "TableDataInsertAllRequest" - (\ o -> - TableDataInsertAllRequest <$> - (o .:? "kind" .!= - "bigquery#tableDataInsertAllRequest") - <*> (o .:? "ignoreUnknownValues") - <*> (o .:? "rows" .!= mempty) - <*> (o .:? "skipInvalidRows")) - -instance ToJSON TableDataInsertAllRequest where - toJSON TableDataInsertAllRequest{..} - = object - (catMaybes - [Just ("kind" .= _tdiarKind), - ("ignoreUnknownValues" .=) <$> - _tdiarIgnoreUnknownValues, - ("rows" .=) <$> _tdiarRows, - ("skipInvalidRows" .=) <$> _tdiarSkipInvalidRows]) - --- --- /See:/ 'projectListProjectsItem' smart constructor. -data ProjectListProjectsItem = ProjectListProjectsItem - { _plpiFriendlyName :: !(Maybe Text) - , _plpiKind :: !Text - , _plpiProjectReference :: !(Maybe ProjectReference) - , _plpiId :: !(Maybe Text) - , _plpiNumericId :: !(Maybe (Textual Word64)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ProjectListProjectsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plpiFriendlyName' --- --- * 'plpiKind' --- --- * 'plpiProjectReference' --- --- * 'plpiId' --- --- * 'plpiNumericId' -projectListProjectsItem - :: ProjectListProjectsItem -projectListProjectsItem = - ProjectListProjectsItem - { _plpiFriendlyName = Nothing - , _plpiKind = "bigquery#project" - , _plpiProjectReference = Nothing - , _plpiId = Nothing - , _plpiNumericId = Nothing - } - --- | A descriptive name for this project. -plpiFriendlyName :: Lens' ProjectListProjectsItem (Maybe Text) -plpiFriendlyName - = lens _plpiFriendlyName - (\ s a -> s{_plpiFriendlyName = a}) - --- | The resource type. -plpiKind :: Lens' ProjectListProjectsItem Text -plpiKind = lens _plpiKind (\ s a -> s{_plpiKind = a}) - --- | A unique reference to this project. -plpiProjectReference :: Lens' ProjectListProjectsItem (Maybe ProjectReference) -plpiProjectReference - = lens _plpiProjectReference - (\ s a -> s{_plpiProjectReference = a}) - --- | An opaque ID of this project. -plpiId :: Lens' ProjectListProjectsItem (Maybe Text) -plpiId = lens _plpiId (\ s a -> s{_plpiId = a}) - --- | The numeric ID of this project. -plpiNumericId :: Lens' ProjectListProjectsItem (Maybe Word64) -plpiNumericId - = lens _plpiNumericId - (\ s a -> s{_plpiNumericId = a}) - . mapping _Coerce - -instance FromJSON ProjectListProjectsItem where - parseJSON - = withObject "ProjectListProjectsItem" - (\ o -> - ProjectListProjectsItem <$> - (o .:? "friendlyName") <*> - (o .:? "kind" .!= "bigquery#project") - <*> (o .:? "projectReference") - <*> (o .:? "id") - <*> (o .:? "numericId")) - -instance ToJSON ProjectListProjectsItem where - toJSON ProjectListProjectsItem{..} - = object - (catMaybes - [("friendlyName" .=) <$> _plpiFriendlyName, - Just ("kind" .= _plpiKind), - ("projectReference" .=) <$> _plpiProjectReference, - ("id" .=) <$> _plpiId, - ("numericId" .=) <$> _plpiNumericId]) - --- --- /See:/ 'streamingbuffer' smart constructor. -data Streamingbuffer = Streamingbuffer - { _sEstimatedBytes :: !(Maybe (Textual Word64)) - , _sOldestEntryTime :: !(Maybe (Textual Word64)) - , _sEstimatedRows :: !(Maybe (Textual Word64)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'Streamingbuffer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sEstimatedBytes' --- --- * 'sOldestEntryTime' --- --- * 'sEstimatedRows' -streamingbuffer - :: Streamingbuffer -streamingbuffer = - Streamingbuffer - { _sEstimatedBytes = Nothing - , _sOldestEntryTime = Nothing - , _sEstimatedRows = Nothing - } - --- | [Output-only] A lower-bound estimate of the number of bytes currently in --- the streaming buffer. -sEstimatedBytes :: Lens' Streamingbuffer (Maybe Word64) -sEstimatedBytes - = lens _sEstimatedBytes - (\ s a -> s{_sEstimatedBytes = a}) - . mapping _Coerce - --- | [Output-only] Contains the timestamp of the oldest entry in the --- streaming buffer, in milliseconds since the epoch, if the streaming --- buffer is available. -sOldestEntryTime :: Lens' Streamingbuffer (Maybe Word64) -sOldestEntryTime - = lens _sOldestEntryTime - (\ s a -> s{_sOldestEntryTime = a}) - . mapping _Coerce - --- | [Output-only] A lower-bound estimate of the number of rows currently in --- the streaming buffer. -sEstimatedRows :: Lens' Streamingbuffer (Maybe Word64) -sEstimatedRows - = lens _sEstimatedRows - (\ s a -> s{_sEstimatedRows = a}) - . mapping _Coerce - -instance FromJSON Streamingbuffer where - parseJSON - = withObject "Streamingbuffer" - (\ o -> - Streamingbuffer <$> - (o .:? "estimatedBytes") <*> - (o .:? "oldestEntryTime") - <*> (o .:? "estimatedRows")) - -instance ToJSON Streamingbuffer where - toJSON Streamingbuffer{..} - = object - (catMaybes - [("estimatedBytes" .=) <$> _sEstimatedBytes, - ("oldestEntryTime" .=) <$> _sOldestEntryTime, - ("estimatedRows" .=) <$> _sEstimatedRows]) - --- --- /See:/ 'tableRow' smart constructor. -newtype TableRow = TableRow - { _trF :: Maybe [TableCell] - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableRow' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'trF' -tableRow - :: TableRow -tableRow = - TableRow - { _trF = Nothing - } - --- | Represents a single row in the result set, consisting of one or more --- fields. -trF :: Lens' TableRow [TableCell] -trF - = lens _trF (\ s a -> s{_trF = a}) . _Default . - _Coerce - -instance FromJSON TableRow where - parseJSON - = withObject "TableRow" - (\ o -> TableRow <$> (o .:? "f" .!= mempty)) - -instance ToJSON TableRow where - toJSON TableRow{..} - = object (catMaybes [("f" .=) <$> _trF]) - --- --- /See:/ 'jobListJobsItem' smart constructor. -data JobListJobsItem = JobListJobsItem - { _jljiJobReference :: !(Maybe JobReference) - , _jljiStatus :: !(Maybe JobStatus) - , _jljiState :: !(Maybe Text) - , _jljiUserEmail :: !(Maybe Text) - , _jljiKind :: !Text - , _jljiErrorResult :: !(Maybe ErrorProto) - , _jljiId :: !(Maybe Text) - , _jljiStatistics :: !(Maybe JobStatistics) - , _jljiConfiguration :: !(Maybe JobConfiguration) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobListJobsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jljiJobReference' --- --- * 'jljiStatus' --- --- * 'jljiState' --- --- * 'jljiUserEmail' --- --- * 'jljiKind' --- --- * 'jljiErrorResult' --- --- * 'jljiId' --- --- * 'jljiStatistics' --- --- * 'jljiConfiguration' -jobListJobsItem - :: JobListJobsItem -jobListJobsItem = - JobListJobsItem - { _jljiJobReference = Nothing - , _jljiStatus = Nothing - , _jljiState = Nothing - , _jljiUserEmail = Nothing - , _jljiKind = "bigquery#job" - , _jljiErrorResult = Nothing - , _jljiId = Nothing - , _jljiStatistics = Nothing - , _jljiConfiguration = Nothing - } - --- | Job reference uniquely identifying the job. -jljiJobReference :: Lens' JobListJobsItem (Maybe JobReference) -jljiJobReference - = lens _jljiJobReference - (\ s a -> s{_jljiJobReference = a}) - --- | [Full-projection-only] Describes the state of the job. -jljiStatus :: Lens' JobListJobsItem (Maybe JobStatus) -jljiStatus - = lens _jljiStatus (\ s a -> s{_jljiStatus = a}) - --- | Running state of the job. When the state is DONE, errorResult can be --- checked to determine whether the job succeeded or failed. -jljiState :: Lens' JobListJobsItem (Maybe Text) -jljiState - = lens _jljiState (\ s a -> s{_jljiState = a}) - --- | [Full-projection-only] Email address of the user who ran the job. -jljiUserEmail :: Lens' JobListJobsItem (Maybe Text) -jljiUserEmail - = lens _jljiUserEmail - (\ s a -> s{_jljiUserEmail = a}) - --- | The resource type. -jljiKind :: Lens' JobListJobsItem Text -jljiKind = lens _jljiKind (\ s a -> s{_jljiKind = a}) - --- | A result object that will be present only if the job has failed. -jljiErrorResult :: Lens' JobListJobsItem (Maybe ErrorProto) -jljiErrorResult - = lens _jljiErrorResult - (\ s a -> s{_jljiErrorResult = a}) - --- | Unique opaque ID of the job. -jljiId :: Lens' JobListJobsItem (Maybe Text) -jljiId = lens _jljiId (\ s a -> s{_jljiId = a}) - --- | [Output-only] Information about the job, including starting time and --- ending time of the job. -jljiStatistics :: Lens' JobListJobsItem (Maybe JobStatistics) -jljiStatistics - = lens _jljiStatistics - (\ s a -> s{_jljiStatistics = a}) - --- | [Full-projection-only] Specifies the job configuration. -jljiConfiguration :: Lens' JobListJobsItem (Maybe JobConfiguration) -jljiConfiguration - = lens _jljiConfiguration - (\ s a -> s{_jljiConfiguration = a}) - -instance FromJSON JobListJobsItem where - parseJSON - = withObject "JobListJobsItem" - (\ o -> - JobListJobsItem <$> - (o .:? "jobReference") <*> (o .:? "status") <*> - (o .:? "state") - <*> (o .:? "user_email") - <*> (o .:? "kind" .!= "bigquery#job") - <*> (o .:? "errorResult") - <*> (o .:? "id") - <*> (o .:? "statistics") - <*> (o .:? "configuration")) - -instance ToJSON JobListJobsItem where - toJSON JobListJobsItem{..} - = object - (catMaybes - [("jobReference" .=) <$> _jljiJobReference, - ("status" .=) <$> _jljiStatus, - ("state" .=) <$> _jljiState, - ("user_email" .=) <$> _jljiUserEmail, - Just ("kind" .= _jljiKind), - ("errorResult" .=) <$> _jljiErrorResult, - ("id" .=) <$> _jljiId, - ("statistics" .=) <$> _jljiStatistics, - ("configuration" .=) <$> _jljiConfiguration]) - --- --- /See:/ 'jobConfiguration' smart constructor. -data JobConfiguration = JobConfiguration - { _jcCopy :: !(Maybe JobConfigurationTableCopy) - , _jcLink :: !(Maybe JobConfigurationLink) - , _jcLoad :: !(Maybe JobConfigurationLoad) - , _jcQuery :: !(Maybe JobConfigurationQuery) - , _jcExtract :: !(Maybe JobConfigurationExtract) - , _jcDryRun :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jcCopy' --- --- * 'jcLink' --- --- * 'jcLoad' --- --- * 'jcQuery' --- --- * 'jcExtract' --- --- * 'jcDryRun' -jobConfiguration - :: JobConfiguration -jobConfiguration = - JobConfiguration - { _jcCopy = Nothing - , _jcLink = Nothing - , _jcLoad = Nothing - , _jcQuery = Nothing - , _jcExtract = Nothing - , _jcDryRun = Nothing - } - --- | [Pick one] Copies a table. -jcCopy :: Lens' JobConfiguration (Maybe JobConfigurationTableCopy) -jcCopy = lens _jcCopy (\ s a -> s{_jcCopy = a}) - --- | [Pick one] Configures a link job. -jcLink :: Lens' JobConfiguration (Maybe JobConfigurationLink) -jcLink = lens _jcLink (\ s a -> s{_jcLink = a}) - --- | [Pick one] Configures a load job. -jcLoad :: Lens' JobConfiguration (Maybe JobConfigurationLoad) -jcLoad = lens _jcLoad (\ s a -> s{_jcLoad = a}) - --- | [Pick one] Configures a query job. -jcQuery :: Lens' JobConfiguration (Maybe JobConfigurationQuery) -jcQuery = lens _jcQuery (\ s a -> s{_jcQuery = a}) - --- | [Pick one] Configures an extract job. -jcExtract :: Lens' JobConfiguration (Maybe JobConfigurationExtract) -jcExtract - = lens _jcExtract (\ s a -> s{_jcExtract = 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 --- run. Behavior of non-query jobs is undefined. -jcDryRun :: Lens' JobConfiguration (Maybe Bool) -jcDryRun = lens _jcDryRun (\ s a -> s{_jcDryRun = a}) - -instance FromJSON JobConfiguration where - parseJSON - = withObject "JobConfiguration" - (\ o -> - JobConfiguration <$> - (o .:? "copy") <*> (o .:? "link") <*> (o .:? "load") - <*> (o .:? "query") - <*> (o .:? "extract") - <*> (o .:? "dryRun")) - -instance ToJSON JobConfiguration where - toJSON JobConfiguration{..} - = object - (catMaybes - [("copy" .=) <$> _jcCopy, ("link" .=) <$> _jcLink, - ("load" .=) <$> _jcLoad, ("query" .=) <$> _jcQuery, - ("extract" .=) <$> _jcExtract, - ("dryRun" .=) <$> _jcDryRun]) - --- --- /See:/ 'job' smart constructor. -data Job = Job - { _jJobReference :: !(Maybe JobReference) - , _jStatus :: !(Maybe JobStatus) - , _jEtag :: !(Maybe Text) - , _jUserEmail :: !(Maybe Text) - , _jKind :: !Text - , _jSelfLink :: !(Maybe Text) - , _jId :: !(Maybe Text) - , _jStatistics :: !(Maybe JobStatistics) - , _jConfiguration :: !(Maybe JobConfiguration) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'Job' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jJobReference' --- --- * 'jStatus' --- --- * 'jEtag' --- --- * 'jUserEmail' --- --- * 'jKind' --- --- * 'jSelfLink' --- --- * 'jId' --- --- * 'jStatistics' --- --- * 'jConfiguration' -job - :: Job -job = - Job - { _jJobReference = Nothing - , _jStatus = Nothing - , _jEtag = Nothing - , _jUserEmail = Nothing - , _jKind = "bigquery#job" - , _jSelfLink = Nothing - , _jId = Nothing - , _jStatistics = Nothing - , _jConfiguration = Nothing - } - --- | [Optional] Reference describing the unique-per-user name of the job. -jJobReference :: Lens' Job (Maybe JobReference) -jJobReference - = lens _jJobReference - (\ s a -> s{_jJobReference = a}) - --- | [Output-only] The status of this job. Examine this value when polling an --- asynchronous job to see if the job is complete. -jStatus :: Lens' Job (Maybe JobStatus) -jStatus = lens _jStatus (\ s a -> s{_jStatus = a}) - --- | [Output-only] A hash of this resource. -jEtag :: Lens' Job (Maybe Text) -jEtag = lens _jEtag (\ s a -> s{_jEtag = a}) - --- | [Output-only] Email address of the user who ran the job. -jUserEmail :: Lens' Job (Maybe Text) -jUserEmail - = lens _jUserEmail (\ s a -> s{_jUserEmail = a}) - --- | [Output-only] The type of the resource. -jKind :: Lens' Job Text -jKind = lens _jKind (\ s a -> s{_jKind = a}) - --- | [Output-only] A URL that can be used to access this resource again. -jSelfLink :: Lens' Job (Maybe Text) -jSelfLink - = lens _jSelfLink (\ s a -> s{_jSelfLink = a}) - --- | [Output-only] Opaque ID field of the job -jId :: Lens' Job (Maybe Text) -jId = lens _jId (\ s a -> s{_jId = a}) - --- | [Output-only] Information about the job, including starting time and --- ending time of the job. -jStatistics :: Lens' Job (Maybe JobStatistics) -jStatistics - = lens _jStatistics (\ s a -> s{_jStatistics = a}) - --- | [Required] Describes the job configuration. -jConfiguration :: Lens' Job (Maybe JobConfiguration) -jConfiguration - = lens _jConfiguration - (\ s a -> s{_jConfiguration = a}) - -instance FromJSON Job where - parseJSON - = withObject "Job" - (\ o -> - Job <$> - (o .:? "jobReference") <*> (o .:? "status") <*> - (o .:? "etag") - <*> (o .:? "user_email") - <*> (o .:? "kind" .!= "bigquery#job") - <*> (o .:? "selfLink") - <*> (o .:? "id") - <*> (o .:? "statistics") - <*> (o .:? "configuration")) - -instance ToJSON Job where - toJSON Job{..} - = object - (catMaybes - [("jobReference" .=) <$> _jJobReference, - ("status" .=) <$> _jStatus, ("etag" .=) <$> _jEtag, - ("user_email" .=) <$> _jUserEmail, - Just ("kind" .= _jKind), - ("selfLink" .=) <$> _jSelfLink, ("id" .=) <$> _jId, - ("statistics" .=) <$> _jStatistics, - ("configuration" .=) <$> _jConfiguration]) - --- --- /See:/ 'jobConfigurationLink' smart constructor. -data JobConfigurationLink = JobConfigurationLink - { _jDestinationTable :: !(Maybe TableReference) - , _jWriteDisPosition :: !(Maybe Text) - , _jCreateDisPosition :: !(Maybe Text) - , _jSourceURI :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationLink' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jDestinationTable' --- --- * 'jWriteDisPosition' --- --- * 'jCreateDisPosition' --- --- * 'jSourceURI' -jobConfigurationLink - :: JobConfigurationLink -jobConfigurationLink = - JobConfigurationLink - { _jDestinationTable = Nothing - , _jWriteDisPosition = Nothing - , _jCreateDisPosition = Nothing - , _jSourceURI = Nothing - } - --- | [Required] The destination table of the link job. -jDestinationTable :: Lens' JobConfigurationLink (Maybe TableReference) -jDestinationTable - = lens _jDestinationTable - (\ s a -> s{_jDestinationTable = a}) - --- | [Optional] Specifies the action that occurs if the destination table --- already exists. The following values are supported: WRITE_TRUNCATE: If --- the table already exists, BigQuery overwrites the table data. --- WRITE_APPEND: If the table already exists, BigQuery appends the data to --- the table. WRITE_EMPTY: If the table already exists and contains data, a --- \'duplicate\' error is returned in the job result. The default value is --- WRITE_EMPTY. Each action is atomic and only occurs if BigQuery is able --- to complete the job successfully. Creation, truncation and append --- actions occur as one atomic update upon job completion. -jWriteDisPosition :: Lens' JobConfigurationLink (Maybe Text) -jWriteDisPosition - = lens _jWriteDisPosition - (\ s a -> s{_jWriteDisPosition = a}) - --- | [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 --- already exist. If it does not, a \'notFound\' error is returned in the --- job result. The default value is CREATE_IF_NEEDED. Creation, truncation --- and append actions occur as one atomic update upon job completion. -jCreateDisPosition :: Lens' JobConfigurationLink (Maybe Text) -jCreateDisPosition - = lens _jCreateDisPosition - (\ s a -> s{_jCreateDisPosition = a}) - --- | [Required] URI of source table to link. -jSourceURI :: Lens' JobConfigurationLink [Text] -jSourceURI - = lens _jSourceURI (\ s a -> s{_jSourceURI = a}) . - _Default - . _Coerce - -instance FromJSON JobConfigurationLink where - parseJSON - = withObject "JobConfigurationLink" - (\ o -> - JobConfigurationLink <$> - (o .:? "destinationTable") <*> - (o .:? "writeDisposition") - <*> (o .:? "createDisposition") - <*> (o .:? "sourceUri" .!= mempty)) - -instance ToJSON JobConfigurationLink where - toJSON JobConfigurationLink{..} - = object - (catMaybes - [("destinationTable" .=) <$> _jDestinationTable, - ("writeDisposition" .=) <$> _jWriteDisPosition, - ("createDisposition" .=) <$> _jCreateDisPosition, - ("sourceUri" .=) <$> _jSourceURI]) - --- --- /See:/ 'tableDataInsertAllResponseInsertErrorsItem' smart constructor. -data TableDataInsertAllResponseInsertErrorsItem = TableDataInsertAllResponseInsertErrorsItem - { _tdiarieiErrors :: !(Maybe [ErrorProto]) - , _tdiarieiIndex :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableDataInsertAllResponseInsertErrorsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tdiarieiErrors' --- --- * 'tdiarieiIndex' -tableDataInsertAllResponseInsertErrorsItem - :: TableDataInsertAllResponseInsertErrorsItem -tableDataInsertAllResponseInsertErrorsItem = - TableDataInsertAllResponseInsertErrorsItem - { _tdiarieiErrors = Nothing - , _tdiarieiIndex = Nothing - } - --- | Error information for the row indicated by the index property. -tdiarieiErrors :: Lens' TableDataInsertAllResponseInsertErrorsItem [ErrorProto] -tdiarieiErrors - = lens _tdiarieiErrors - (\ s a -> s{_tdiarieiErrors = a}) - . _Default - . _Coerce - --- | The index of the row that error applies to. -tdiarieiIndex :: Lens' TableDataInsertAllResponseInsertErrorsItem (Maybe Word32) -tdiarieiIndex - = lens _tdiarieiIndex - (\ s a -> s{_tdiarieiIndex = a}) - . mapping _Coerce - -instance FromJSON - TableDataInsertAllResponseInsertErrorsItem where - parseJSON - = withObject - "TableDataInsertAllResponseInsertErrorsItem" - (\ o -> - TableDataInsertAllResponseInsertErrorsItem <$> - (o .:? "errors" .!= mempty) <*> (o .:? "index")) - -instance ToJSON - TableDataInsertAllResponseInsertErrorsItem where - toJSON TableDataInsertAllResponseInsertErrorsItem{..} - = object - (catMaybes - [("errors" .=) <$> _tdiarieiErrors, - ("index" .=) <$> _tdiarieiIndex]) - --- --- /See:/ 'jobConfigurationExtract' smart constructor. -data JobConfigurationExtract = JobConfigurationExtract - { _jceDestinationFormat :: !(Maybe Text) - , _jceSourceTable :: !(Maybe TableReference) - , _jcePrintHeader :: !Bool - , _jceCompression :: !(Maybe Text) - , _jceDestinationURIs :: !(Maybe [Text]) - , _jceDestinationURI :: !(Maybe Text) - , _jceFieldDelimiter :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationExtract' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jceDestinationFormat' --- --- * 'jceSourceTable' --- --- * 'jcePrintHeader' --- --- * 'jceCompression' --- --- * 'jceDestinationURIs' --- --- * 'jceDestinationURI' --- --- * 'jceFieldDelimiter' -jobConfigurationExtract - :: JobConfigurationExtract -jobConfigurationExtract = - JobConfigurationExtract - { _jceDestinationFormat = Nothing - , _jceSourceTable = Nothing - , _jcePrintHeader = True - , _jceCompression = Nothing - , _jceDestinationURIs = Nothing - , _jceDestinationURI = Nothing - , _jceFieldDelimiter = Nothing - } - --- | [Optional] The exported file format. Possible values include CSV, --- NEWLINE_DELIMITED_JSON and AVRO. The default value is CSV. Tables with --- nested or repeated fields cannot be exported as CSV. -jceDestinationFormat :: Lens' JobConfigurationExtract (Maybe Text) -jceDestinationFormat - = lens _jceDestinationFormat - (\ s a -> s{_jceDestinationFormat = a}) - --- | [Required] A reference to the table being exported. -jceSourceTable :: Lens' JobConfigurationExtract (Maybe TableReference) -jceSourceTable - = lens _jceSourceTable - (\ s a -> s{_jceSourceTable = a}) - --- | [Optional] Whether to print out a header row in the results. Default is --- true. -jcePrintHeader :: Lens' JobConfigurationExtract Bool -jcePrintHeader - = lens _jcePrintHeader - (\ s a -> s{_jcePrintHeader = a}) - --- | [Optional] The compression type to use for exported files. Possible --- values include GZIP and NONE. The default value is NONE. -jceCompression :: Lens' JobConfigurationExtract (Maybe Text) -jceCompression - = lens _jceCompression - (\ s a -> s{_jceCompression = a}) - --- | [Pick one] A list of fully-qualified Google Cloud Storage URIs where the --- extracted table should be written. -jceDestinationURIs :: Lens' JobConfigurationExtract [Text] -jceDestinationURIs - = lens _jceDestinationURIs - (\ s a -> s{_jceDestinationURIs = a}) - . _Default - . _Coerce - --- | [Pick one] DEPRECATED: Use destinationUris instead, passing only one URI --- as necessary. The fully-qualified Google Cloud Storage URI where the --- extracted table should be written. -jceDestinationURI :: Lens' JobConfigurationExtract (Maybe Text) -jceDestinationURI - = lens _jceDestinationURI - (\ s a -> s{_jceDestinationURI = a}) - --- | [Optional] Delimiter to use between fields in the exported data. Default --- is \',\' -jceFieldDelimiter :: Lens' JobConfigurationExtract (Maybe Text) -jceFieldDelimiter - = lens _jceFieldDelimiter - (\ s a -> s{_jceFieldDelimiter = a}) - -instance FromJSON JobConfigurationExtract where - parseJSON - = withObject "JobConfigurationExtract" - (\ o -> - JobConfigurationExtract <$> - (o .:? "destinationFormat") <*> (o .:? "sourceTable") - <*> (o .:? "printHeader" .!= True) - <*> (o .:? "compression") - <*> (o .:? "destinationUris" .!= mempty) - <*> (o .:? "destinationUri") - <*> (o .:? "fieldDelimiter")) - -instance ToJSON JobConfigurationExtract where - toJSON JobConfigurationExtract{..} - = object - (catMaybes - [("destinationFormat" .=) <$> _jceDestinationFormat, - ("sourceTable" .=) <$> _jceSourceTable, - Just ("printHeader" .= _jcePrintHeader), - ("compression" .=) <$> _jceCompression, - ("destinationUris" .=) <$> _jceDestinationURIs, - ("destinationUri" .=) <$> _jceDestinationURI, - ("fieldDelimiter" .=) <$> _jceFieldDelimiter]) - --- --- /See:/ 'jobCancelResponse' smart constructor. -data JobCancelResponse = JobCancelResponse - { _jcrKind :: !Text - , _jcrJob :: !(Maybe Job) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobCancelResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jcrKind' --- --- * 'jcrJob' -jobCancelResponse - :: JobCancelResponse -jobCancelResponse = - JobCancelResponse - { _jcrKind = "bigquery#jobCancelResponse" - , _jcrJob = Nothing - } - --- | The resource type of the response. -jcrKind :: Lens' JobCancelResponse Text -jcrKind = lens _jcrKind (\ s a -> s{_jcrKind = a}) - --- | The final state of the job. -jcrJob :: Lens' JobCancelResponse (Maybe Job) -jcrJob = lens _jcrJob (\ s a -> s{_jcrJob = a}) - -instance FromJSON JobCancelResponse where - parseJSON - = withObject "JobCancelResponse" - (\ o -> - JobCancelResponse <$> - (o .:? "kind" .!= "bigquery#jobCancelResponse") <*> - (o .:? "job")) - -instance ToJSON JobCancelResponse where - toJSON JobCancelResponse{..} - = object - (catMaybes - [Just ("kind" .= _jcrKind), ("job" .=) <$> _jcrJob]) - --- | Represents a single JSON object. --- --- /See:/ 'jsonObject' smart constructor. -newtype JSONObject = JSONObject - { _joAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JSONObject' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'joAddtional' -jsonObject - :: HashMap Text JSONValue -- ^ 'joAddtional' - -> JSONObject -jsonObject pJoAddtional_ = - JSONObject - { _joAddtional = _Coerce # pJoAddtional_ - } - -joAddtional :: Lens' JSONObject (HashMap Text JSONValue) -joAddtional - = lens _joAddtional (\ s a -> s{_joAddtional = a}) . - _Coerce - -instance FromJSON JSONObject where - parseJSON - = withObject "JSONObject" - (\ o -> JSONObject <$> (parseJSONObject o)) - -instance ToJSON JSONObject where - toJSON = toJSON . _joAddtional - --- --- /See:/ 'jobConfigurationQuery' smart constructor. -data JobConfigurationQuery = JobConfigurationQuery - { _jcqDestinationTable :: !(Maybe TableReference) - , _jcqWriteDisPosition :: !(Maybe Text) - , _jcqPriority :: !(Maybe Text) - , _jcqUseQueryCache :: !Bool - , _jcqPreserveNulls :: !(Maybe Bool) - , _jcqTableDefinitions :: !(Maybe JobConfigurationQueryTableDefinitions) - , _jcqCreateDisPosition :: !(Maybe Text) - , _jcqUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource]) - , _jcqAllowLargeResults :: !(Maybe Bool) - , _jcqQuery :: !(Maybe Text) - , _jcqFlattenResults :: !Bool - , _jcqDefaultDataSet :: !(Maybe DataSetReference) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationQuery' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jcqDestinationTable' --- --- * 'jcqWriteDisPosition' --- --- * 'jcqPriority' --- --- * 'jcqUseQueryCache' --- --- * 'jcqPreserveNulls' --- --- * 'jcqTableDefinitions' --- --- * 'jcqCreateDisPosition' --- --- * 'jcqUserDefinedFunctionResources' --- --- * 'jcqAllowLargeResults' --- --- * 'jcqQuery' --- --- * 'jcqFlattenResults' --- --- * 'jcqDefaultDataSet' -jobConfigurationQuery - :: JobConfigurationQuery -jobConfigurationQuery = - JobConfigurationQuery - { _jcqDestinationTable = Nothing - , _jcqWriteDisPosition = Nothing - , _jcqPriority = Nothing - , _jcqUseQueryCache = True - , _jcqPreserveNulls = Nothing - , _jcqTableDefinitions = Nothing - , _jcqCreateDisPosition = Nothing - , _jcqUserDefinedFunctionResources = Nothing - , _jcqAllowLargeResults = Nothing - , _jcqQuery = Nothing - , _jcqFlattenResults = True - , _jcqDefaultDataSet = Nothing - } - --- | [Optional] Describes the table where the query results should be stored. --- If not present, a new table will be created to store the results. -jcqDestinationTable :: Lens' JobConfigurationQuery (Maybe TableReference) -jcqDestinationTable - = lens _jcqDestinationTable - (\ s a -> s{_jcqDestinationTable = a}) - --- | [Optional] Specifies the action that occurs if the destination table --- already exists. The following values are supported: WRITE_TRUNCATE: If --- the table already exists, BigQuery overwrites the table data. --- WRITE_APPEND: If the table already exists, BigQuery appends the data to --- the table. WRITE_EMPTY: If the table already exists and contains data, a --- \'duplicate\' error is returned in the job result. The default value is --- WRITE_EMPTY. Each action is atomic and only occurs if BigQuery is able --- to complete the job successfully. Creation, truncation and append --- actions occur as one atomic update upon job completion. -jcqWriteDisPosition :: Lens' JobConfigurationQuery (Maybe Text) -jcqWriteDisPosition - = lens _jcqWriteDisPosition - (\ s a -> s{_jcqWriteDisPosition = a}) - --- | [Optional] Specifies a priority for the query. Possible values include --- INTERACTIVE and BATCH. The default value is INTERACTIVE. -jcqPriority :: Lens' JobConfigurationQuery (Maybe Text) -jcqPriority - = lens _jcqPriority (\ s a -> s{_jcqPriority = a}) - --- | [Optional] Whether to look for the result in the query cache. The query --- cache is a best-effort cache that will be flushed whenever tables in the --- query are modified. Moreover, the query cache is only available when a --- query does not have a destination table specified. The default value is --- true. -jcqUseQueryCache :: Lens' JobConfigurationQuery Bool -jcqUseQueryCache - = lens _jcqUseQueryCache - (\ s a -> s{_jcqUseQueryCache = a}) - --- | [Deprecated] This property is deprecated. -jcqPreserveNulls :: Lens' JobConfigurationQuery (Maybe Bool) -jcqPreserveNulls - = lens _jcqPreserveNulls - (\ s a -> s{_jcqPreserveNulls = a}) - --- | [Experimental] If querying an external data source outside of BigQuery, --- describes the data format, location and other properties of the data --- source. By defining these properties, the data source can then be --- queried as if it were a standard BigQuery table. -jcqTableDefinitions :: Lens' JobConfigurationQuery (Maybe JobConfigurationQueryTableDefinitions) -jcqTableDefinitions - = lens _jcqTableDefinitions - (\ s a -> s{_jcqTableDefinitions = a}) - --- | [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 --- already exist. If it does not, a \'notFound\' error is returned in the --- job result. The default value is CREATE_IF_NEEDED. Creation, truncation --- and append actions occur as one atomic update upon job completion. -jcqCreateDisPosition :: Lens' JobConfigurationQuery (Maybe Text) -jcqCreateDisPosition - = lens _jcqCreateDisPosition - (\ s a -> s{_jcqCreateDisPosition = a}) - --- | [Experimental] Describes user-defined function resources used in the --- query. -jcqUserDefinedFunctionResources :: Lens' JobConfigurationQuery [UserDefinedFunctionResource] -jcqUserDefinedFunctionResources - = lens _jcqUserDefinedFunctionResources - (\ s a -> s{_jcqUserDefinedFunctionResources = a}) - . _Default - . _Coerce - --- | If true, allows the query to produce arbitrarily large result tables at --- a slight cost in performance. Requires destinationTable to be set. -jcqAllowLargeResults :: Lens' JobConfigurationQuery (Maybe Bool) -jcqAllowLargeResults - = lens _jcqAllowLargeResults - (\ s a -> s{_jcqAllowLargeResults = a}) - --- | [Required] BigQuery SQL query to execute. -jcqQuery :: Lens' JobConfigurationQuery (Maybe Text) -jcqQuery = lens _jcqQuery (\ s a -> s{_jcqQuery = a}) - --- | [Optional] Flattens all nested and repeated fields in the query results. --- The default value is true. allowLargeResults must be true if this is set --- to false. -jcqFlattenResults :: Lens' JobConfigurationQuery Bool -jcqFlattenResults - = lens _jcqFlattenResults - (\ s a -> s{_jcqFlattenResults = a}) - --- | [Optional] Specifies the default dataset to use for unqualified table --- names in the query. -jcqDefaultDataSet :: Lens' JobConfigurationQuery (Maybe DataSetReference) -jcqDefaultDataSet - = lens _jcqDefaultDataSet - (\ s a -> s{_jcqDefaultDataSet = a}) - -instance FromJSON JobConfigurationQuery where - parseJSON - = withObject "JobConfigurationQuery" - (\ o -> - JobConfigurationQuery <$> - (o .:? "destinationTable") <*> - (o .:? "writeDisposition") - <*> (o .:? "priority") - <*> (o .:? "useQueryCache" .!= True) - <*> (o .:? "preserveNulls") - <*> (o .:? "tableDefinitions") - <*> (o .:? "createDisposition") - <*> (o .:? "userDefinedFunctionResources" .!= mempty) - <*> (o .:? "allowLargeResults") - <*> (o .:? "query") - <*> (o .:? "flattenResults" .!= True) - <*> (o .:? "defaultDataset")) - -instance ToJSON JobConfigurationQuery where - toJSON JobConfigurationQuery{..} - = object - (catMaybes - [("destinationTable" .=) <$> _jcqDestinationTable, - ("writeDisposition" .=) <$> _jcqWriteDisPosition, - ("priority" .=) <$> _jcqPriority, - Just ("useQueryCache" .= _jcqUseQueryCache), - ("preserveNulls" .=) <$> _jcqPreserveNulls, - ("tableDefinitions" .=) <$> _jcqTableDefinitions, - ("createDisposition" .=) <$> _jcqCreateDisPosition, - ("userDefinedFunctionResources" .=) <$> - _jcqUserDefinedFunctionResources, - ("allowLargeResults" .=) <$> _jcqAllowLargeResults, - ("query" .=) <$> _jcqQuery, - Just ("flattenResults" .= _jcqFlattenResults), - ("defaultDataset" .=) <$> _jcqDefaultDataSet]) - --- --- /See:/ 'tableDataInsertAllRequestRowsItem' smart constructor. -data TableDataInsertAllRequestRowsItem = TableDataInsertAllRequestRowsItem - { _tdiarriJSON :: !(Maybe JSONObject) - , _tdiarriInsertId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableDataInsertAllRequestRowsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tdiarriJSON' --- --- * 'tdiarriInsertId' -tableDataInsertAllRequestRowsItem - :: TableDataInsertAllRequestRowsItem -tableDataInsertAllRequestRowsItem = - TableDataInsertAllRequestRowsItem - { _tdiarriJSON = Nothing - , _tdiarriInsertId = Nothing - } - --- | [Required] A JSON object that contains a row of data. The object\'s --- properties and values must match the destination table\'s schema. -tdiarriJSON :: Lens' TableDataInsertAllRequestRowsItem (Maybe JSONObject) -tdiarriJSON - = lens _tdiarriJSON (\ s a -> s{_tdiarriJSON = a}) - --- | [Optional] A unique ID for each row. BigQuery uses this property to --- detect duplicate insertion requests on a best-effort basis. -tdiarriInsertId :: Lens' TableDataInsertAllRequestRowsItem (Maybe Text) -tdiarriInsertId - = lens _tdiarriInsertId - (\ s a -> s{_tdiarriInsertId = a}) - -instance FromJSON TableDataInsertAllRequestRowsItem - where - parseJSON - = withObject "TableDataInsertAllRequestRowsItem" - (\ o -> - TableDataInsertAllRequestRowsItem <$> - (o .:? "json") <*> (o .:? "insertId")) - -instance ToJSON TableDataInsertAllRequestRowsItem - where - toJSON TableDataInsertAllRequestRowsItem{..} - = object - (catMaybes - [("json" .=) <$> _tdiarriJSON, - ("insertId" .=) <$> _tdiarriInsertId]) - --- --- /See:/ 'jobList' smart constructor. -data JobList = JobList - { _jlEtag :: !(Maybe Text) - , _jlNextPageToken :: !(Maybe Text) - , _jlKind :: !Text - , _jlJobs :: !(Maybe [JobListJobsItem]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jlEtag' --- --- * 'jlNextPageToken' --- --- * 'jlKind' --- --- * 'jlJobs' -jobList - :: JobList -jobList = - JobList - { _jlEtag = Nothing - , _jlNextPageToken = Nothing - , _jlKind = "bigquery#jobList" - , _jlJobs = Nothing - } - --- | A hash of this page of results. -jlEtag :: Lens' JobList (Maybe Text) -jlEtag = lens _jlEtag (\ s a -> s{_jlEtag = a}) - --- | A token to request the next page of results. -jlNextPageToken :: Lens' JobList (Maybe Text) -jlNextPageToken - = lens _jlNextPageToken - (\ s a -> s{_jlNextPageToken = a}) - --- | The resource type of the response. -jlKind :: Lens' JobList Text -jlKind = lens _jlKind (\ s a -> s{_jlKind = a}) - --- | List of jobs that were requested. -jlJobs :: Lens' JobList [JobListJobsItem] -jlJobs - = lens _jlJobs (\ s a -> s{_jlJobs = a}) . _Default . - _Coerce - -instance FromJSON JobList where - parseJSON - = withObject "JobList" - (\ o -> - JobList <$> - (o .:? "etag") <*> (o .:? "nextPageToken") <*> - (o .:? "kind" .!= "bigquery#jobList") - <*> (o .:? "jobs" .!= mempty)) - -instance ToJSON JobList where - toJSON JobList{..} - = object - (catMaybes - [("etag" .=) <$> _jlEtag, - ("nextPageToken" .=) <$> _jlNextPageToken, - Just ("kind" .= _jlKind), ("jobs" .=) <$> _jlJobs]) - --- | [Experimental] If querying an external data source outside of BigQuery, --- describes the data format, location and other properties of the data --- source. By defining these properties, the data source can then be --- queried as if it were a standard BigQuery table. --- --- /See:/ 'jobConfigurationQueryTableDefinitions' smart constructor. -newtype JobConfigurationQueryTableDefinitions = JobConfigurationQueryTableDefinitions - { _jcqtdAddtional :: HashMap Text ExternalDataConfiguration - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobConfigurationQueryTableDefinitions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jcqtdAddtional' -jobConfigurationQueryTableDefinitions - :: HashMap Text ExternalDataConfiguration -- ^ 'jcqtdAddtional' - -> JobConfigurationQueryTableDefinitions -jobConfigurationQueryTableDefinitions pJcqtdAddtional_ = - JobConfigurationQueryTableDefinitions - { _jcqtdAddtional = _Coerce # pJcqtdAddtional_ - } - -jcqtdAddtional :: Lens' JobConfigurationQueryTableDefinitions (HashMap Text ExternalDataConfiguration) -jcqtdAddtional - = lens _jcqtdAddtional - (\ s a -> s{_jcqtdAddtional = a}) - . _Coerce - -instance FromJSON - JobConfigurationQueryTableDefinitions where - parseJSON - = withObject "JobConfigurationQueryTableDefinitions" - (\ o -> - JobConfigurationQueryTableDefinitions <$> - (parseJSONObject o)) - -instance ToJSON JobConfigurationQueryTableDefinitions - where - toJSON = toJSON . _jcqtdAddtional - --- --- /See:/ 'tableCell' smart constructor. -newtype TableCell = TableCell - { _tcV :: Maybe JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableCell' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tcV' -tableCell - :: TableCell -tableCell = - TableCell - { _tcV = Nothing - } - -tcV :: Lens' TableCell (Maybe JSONValue) -tcV = lens _tcV (\ s a -> s{_tcV = a}) - -instance FromJSON TableCell where - parseJSON - = withObject "TableCell" - (\ o -> TableCell <$> (o .:? "v")) - -instance ToJSON TableCell where - toJSON TableCell{..} - = object (catMaybes [("v" .=) <$> _tcV]) - --- --- /See:/ 'viewDefinition' smart constructor. -newtype ViewDefinition = ViewDefinition - { _vdQuery :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ViewDefinition' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vdQuery' -viewDefinition - :: ViewDefinition -viewDefinition = - ViewDefinition - { _vdQuery = Nothing - } - --- | [Required] A query that BigQuery executes when the view is referenced. -vdQuery :: Lens' ViewDefinition (Maybe Text) -vdQuery = lens _vdQuery (\ s a -> s{_vdQuery = a}) - -instance FromJSON ViewDefinition where - parseJSON - = withObject "ViewDefinition" - (\ o -> ViewDefinition <$> (o .:? "query")) - -instance ToJSON ViewDefinition where - toJSON ViewDefinition{..} - = object (catMaybes [("query" .=) <$> _vdQuery]) - --- --- /See:/ 'userDefinedFunctionResource' smart constructor. -data UserDefinedFunctionResource = UserDefinedFunctionResource - { _udfrResourceURI :: !(Maybe Text) - , _udfrInlineCode :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'UserDefinedFunctionResource' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'udfrResourceURI' --- --- * 'udfrInlineCode' -userDefinedFunctionResource - :: UserDefinedFunctionResource -userDefinedFunctionResource = - UserDefinedFunctionResource - { _udfrResourceURI = Nothing - , _udfrInlineCode = Nothing - } - --- | [Pick one] A code resource to load from a Google Cloud Storage URI --- (gs:\/\/bucket\/path). -udfrResourceURI :: Lens' UserDefinedFunctionResource (Maybe Text) -udfrResourceURI - = lens _udfrResourceURI - (\ s a -> s{_udfrResourceURI = a}) - --- | [Pick one] An inline resource that contains code for a user-defined --- function (UDF). Providing a inline code resource is equivalent to --- providing a URI for a file containing the same code. -udfrInlineCode :: Lens' UserDefinedFunctionResource (Maybe Text) -udfrInlineCode - = lens _udfrInlineCode - (\ s a -> s{_udfrInlineCode = a}) - -instance FromJSON UserDefinedFunctionResource where - parseJSON - = withObject "UserDefinedFunctionResource" - (\ o -> - UserDefinedFunctionResource <$> - (o .:? "resourceUri") <*> (o .:? "inlineCode")) - -instance ToJSON UserDefinedFunctionResource where - toJSON UserDefinedFunctionResource{..} - = object - (catMaybes - [("resourceUri" .=) <$> _udfrResourceURI, - ("inlineCode" .=) <$> _udfrInlineCode]) - --- --- /See:/ 'jobStatistics2' smart constructor. -data JobStatistics2 = JobStatistics2 - { _jTotalBytesProcessed :: !(Maybe (Textual Int64)) - , _jBillingTier :: !(Maybe (Textual Int32)) - , _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. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jTotalBytesProcessed' --- --- * 'jBillingTier' --- --- * 'jCacheHit' --- --- * 'jTotalBytesBilled' -jobStatistics2 - :: JobStatistics2 -jobStatistics2 = - JobStatistics2 - { _jTotalBytesProcessed = Nothing - , _jBillingTier = Nothing - , _jCacheHit = Nothing - , _jTotalBytesBilled = Nothing - } - --- | [Output-only] Total bytes processed for the job. -jTotalBytesProcessed :: Lens' JobStatistics2 (Maybe Int64) -jTotalBytesProcessed - = lens _jTotalBytesProcessed - (\ s a -> s{_jTotalBytesProcessed = a}) - . mapping _Coerce - --- | [Output-only] Billing tier for the job. -jBillingTier :: Lens' JobStatistics2 (Maybe Int32) -jBillingTier - = lens _jBillingTier (\ s a -> s{_jBillingTier = a}) - . mapping _Coerce - --- | [Output-only] Whether the query result was fetched from the query cache. -jCacheHit :: Lens' JobStatistics2 (Maybe Bool) -jCacheHit - = lens _jCacheHit (\ s a -> s{_jCacheHit = a}) - --- | [Output-only] Total bytes billed for the job. -jTotalBytesBilled :: Lens' JobStatistics2 (Maybe Int64) -jTotalBytesBilled - = lens _jTotalBytesBilled - (\ s a -> s{_jTotalBytesBilled = a}) - . mapping _Coerce - -instance FromJSON JobStatistics2 where - parseJSON - = withObject "JobStatistics2" - (\ o -> - JobStatistics2 <$> - (o .:? "totalBytesProcessed") <*> - (o .:? "billingTier") - <*> (o .:? "cacheHit") - <*> (o .:? "totalBytesBilled")) - -instance ToJSON JobStatistics2 where - toJSON JobStatistics2{..} - = object - (catMaybes - [("totalBytesProcessed" .=) <$> - _jTotalBytesProcessed, - ("billingTier" .=) <$> _jBillingTier, - ("cacheHit" .=) <$> _jCacheHit, - ("totalBytesBilled" .=) <$> _jTotalBytesBilled]) - --- --- /See:/ 'jobStatus' smart constructor. -data JobStatus = JobStatus - { _jsState :: !(Maybe Text) - , _jsErrorResult :: !(Maybe ErrorProto) - , _jsErrors :: !(Maybe [ErrorProto]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobStatus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jsState' --- --- * 'jsErrorResult' --- --- * 'jsErrors' -jobStatus - :: JobStatus -jobStatus = - JobStatus - { _jsState = Nothing - , _jsErrorResult = Nothing - , _jsErrors = Nothing - } - --- | [Output-only] Running state of the job. -jsState :: Lens' JobStatus (Maybe Text) -jsState = lens _jsState (\ s a -> s{_jsState = a}) - --- | [Output-only] Final error result of the job. If present, indicates that --- the job has completed and was unsuccessful. -jsErrorResult :: Lens' JobStatus (Maybe ErrorProto) -jsErrorResult - = lens _jsErrorResult - (\ s a -> s{_jsErrorResult = a}) - --- | [Output-only] All errors encountered during the running of the job. --- Errors here do not necessarily mean that the job has completed or was --- unsuccessful. -jsErrors :: Lens' JobStatus [ErrorProto] -jsErrors - = lens _jsErrors (\ s a -> s{_jsErrors = a}) . - _Default - . _Coerce - -instance FromJSON JobStatus where - parseJSON - = withObject "JobStatus" - (\ o -> - JobStatus <$> - (o .:? "state") <*> (o .:? "errorResult") <*> - (o .:? "errors" .!= mempty)) - -instance ToJSON JobStatus where - toJSON JobStatus{..} - = object - (catMaybes - [("state" .=) <$> _jsState, - ("errorResult" .=) <$> _jsErrorResult, - ("errors" .=) <$> _jsErrors]) - --- --- /See:/ 'dataSetAccessItem' smart constructor. -data DataSetAccessItem = DataSetAccessItem - { _dsaiGroupByEmail :: !(Maybe Text) - , _dsaiDomain :: !(Maybe Text) - , _dsaiSpecialGroup :: !(Maybe Text) - , _dsaiRole :: !(Maybe Text) - , _dsaiView :: !(Maybe TableReference) - , _dsaiUserByEmail :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'DataSetAccessItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsaiGroupByEmail' --- --- * 'dsaiDomain' --- --- * 'dsaiSpecialGroup' --- --- * 'dsaiRole' --- --- * 'dsaiView' --- --- * 'dsaiUserByEmail' -dataSetAccessItem - :: DataSetAccessItem -dataSetAccessItem = - DataSetAccessItem - { _dsaiGroupByEmail = Nothing - , _dsaiDomain = Nothing - , _dsaiSpecialGroup = Nothing - , _dsaiRole = Nothing - , _dsaiView = Nothing - , _dsaiUserByEmail = Nothing - } - --- | [Pick one] An email address of a Google Group to grant access to. -dsaiGroupByEmail :: Lens' DataSetAccessItem (Maybe Text) -dsaiGroupByEmail - = lens _dsaiGroupByEmail - (\ s a -> s{_dsaiGroupByEmail = a}) - --- | [Pick one] A domain to grant access to. Any users signed in with the --- domain specified will be granted the specified access. Example: --- \"example.com\". -dsaiDomain :: Lens' DataSetAccessItem (Maybe Text) -dsaiDomain - = lens _dsaiDomain (\ s a -> s{_dsaiDomain = a}) - --- | [Pick one] A special group to grant access to. Possible values include: --- projectOwners: Owners of the enclosing project. projectReaders: Readers --- of the enclosing project. projectWriters: Writers of the enclosing --- project. allAuthenticatedUsers: All authenticated BigQuery users. -dsaiSpecialGroup :: Lens' DataSetAccessItem (Maybe Text) -dsaiSpecialGroup - = lens _dsaiSpecialGroup - (\ s a -> s{_dsaiSpecialGroup = a}) - --- | [Required] Describes the rights granted to the user specified by the --- other member of the access object. The following string values are --- supported: READER, WRITER, OWNER. -dsaiRole :: Lens' DataSetAccessItem (Maybe Text) -dsaiRole = lens _dsaiRole (\ s a -> s{_dsaiRole = a}) - --- | [Pick one] A view from a different dataset to grant access to. Queries --- executed against that view will have read access to tables in this --- dataset. The role field is not required when this field is set. If that --- view is updated by any user, access to the view needs to be granted --- again via an update operation. -dsaiView :: Lens' DataSetAccessItem (Maybe TableReference) -dsaiView = lens _dsaiView (\ s a -> s{_dsaiView = a}) - --- | [Pick one] An email address of a user to grant access to. For example: --- fred\'example.com. -dsaiUserByEmail :: Lens' DataSetAccessItem (Maybe Text) -dsaiUserByEmail - = lens _dsaiUserByEmail - (\ s a -> s{_dsaiUserByEmail = a}) - -instance FromJSON DataSetAccessItem where - parseJSON - = withObject "DataSetAccessItem" - (\ o -> - DataSetAccessItem <$> - (o .:? "groupByEmail") <*> (o .:? "domain") <*> - (o .:? "specialGroup") - <*> (o .:? "role") - <*> (o .:? "view") - <*> (o .:? "userByEmail")) - -instance ToJSON DataSetAccessItem where - toJSON DataSetAccessItem{..} - = object - (catMaybes - [("groupByEmail" .=) <$> _dsaiGroupByEmail, - ("domain" .=) <$> _dsaiDomain, - ("specialGroup" .=) <$> _dsaiSpecialGroup, - ("role" .=) <$> _dsaiRole, ("view" .=) <$> _dsaiView, - ("userByEmail" .=) <$> _dsaiUserByEmail]) - --- --- /See:/ 'tableDataInsertAllResponse' smart constructor. -data TableDataInsertAllResponse = TableDataInsertAllResponse - { _tKind :: !Text - , _tInsertErrors :: !(Maybe [TableDataInsertAllResponseInsertErrorsItem]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'TableDataInsertAllResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tKind' --- --- * 'tInsertErrors' -tableDataInsertAllResponse - :: TableDataInsertAllResponse -tableDataInsertAllResponse = - TableDataInsertAllResponse - { _tKind = "bigquery#tableDataInsertAllResponse" - , _tInsertErrors = Nothing - } - --- | The resource type of the response. -tKind :: Lens' TableDataInsertAllResponse Text -tKind = lens _tKind (\ s a -> s{_tKind = a}) - --- | An array of errors for rows that were not inserted. -tInsertErrors :: Lens' TableDataInsertAllResponse [TableDataInsertAllResponseInsertErrorsItem] -tInsertErrors - = lens _tInsertErrors - (\ s a -> s{_tInsertErrors = a}) - . _Default - . _Coerce - -instance FromJSON TableDataInsertAllResponse where - parseJSON - = withObject "TableDataInsertAllResponse" - (\ o -> - TableDataInsertAllResponse <$> - (o .:? "kind" .!= - "bigquery#tableDataInsertAllResponse") - <*> (o .:? "insertErrors" .!= mempty)) - -instance ToJSON TableDataInsertAllResponse where - toJSON TableDataInsertAllResponse{..} - = object - (catMaybes - [Just ("kind" .= _tKind), - ("insertErrors" .=) <$> _tInsertErrors]) - --- --- /See:/ 'table' smart constructor. -data Table = Table - { _tabCreationTime :: !(Maybe (Textual Int64)) - , _tabEtag :: !(Maybe Text) - , _tabNumBytes :: !(Maybe (Textual Int64)) - , _tabExternalDataConfiguration :: !(Maybe ExternalDataConfiguration) - , _tabLocation :: !(Maybe Text) - , _tabTableReference :: !(Maybe TableReference) - , _tabFriendlyName :: !(Maybe Text) - , _tabKind :: !Text - , _tabLastModifiedTime :: !(Maybe (Textual Word64)) - , _tabSchema :: !(Maybe TableSchema) - , _tabStreamingBuffer :: !(Maybe Streamingbuffer) - , _tabSelfLink :: !(Maybe Text) - , _tabNumRows :: !(Maybe (Textual Word64)) - , _tabView :: !(Maybe ViewDefinition) - , _tabId :: !(Maybe Text) - , _tabType :: !(Maybe Text) - , _tabExpirationTime :: !(Maybe (Textual Int64)) - , _tabDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'Table' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tabCreationTime' --- --- * 'tabEtag' --- --- * 'tabNumBytes' --- --- * 'tabExternalDataConfiguration' --- --- * 'tabLocation' --- --- * 'tabTableReference' --- --- * 'tabFriendlyName' --- --- * 'tabKind' --- --- * 'tabLastModifiedTime' --- --- * 'tabSchema' --- --- * 'tabStreamingBuffer' --- --- * 'tabSelfLink' --- --- * 'tabNumRows' --- --- * 'tabView' --- --- * 'tabId' --- --- * 'tabType' --- --- * 'tabExpirationTime' --- --- * 'tabDescription' -table - :: Table -table = - Table - { _tabCreationTime = Nothing - , _tabEtag = Nothing - , _tabNumBytes = Nothing - , _tabExternalDataConfiguration = Nothing - , _tabLocation = Nothing - , _tabTableReference = Nothing - , _tabFriendlyName = Nothing - , _tabKind = "bigquery#table" - , _tabLastModifiedTime = Nothing - , _tabSchema = Nothing - , _tabStreamingBuffer = Nothing - , _tabSelfLink = Nothing - , _tabNumRows = Nothing - , _tabView = Nothing - , _tabId = Nothing - , _tabType = Nothing - , _tabExpirationTime = Nothing - , _tabDescription = Nothing - } - --- | [Output-only] The time when this table was created, in milliseconds --- since the epoch. -tabCreationTime :: Lens' Table (Maybe Int64) -tabCreationTime - = lens _tabCreationTime - (\ s a -> s{_tabCreationTime = a}) - . mapping _Coerce - --- | [Output-only] A hash of this resource. -tabEtag :: Lens' Table (Maybe Text) -tabEtag = lens _tabEtag (\ s a -> s{_tabEtag = a}) - --- | [Output-only] The size of this table in bytes, excluding any data in the --- streaming buffer. -tabNumBytes :: Lens' Table (Maybe Int64) -tabNumBytes - = lens _tabNumBytes (\ s a -> s{_tabNumBytes = a}) . - mapping _Coerce - --- | [Experimental] Describes the data format, location, and other properties --- of a table stored outside of BigQuery. By defining these properties, the --- data source can then be queried as if it were a standard BigQuery table. -tabExternalDataConfiguration :: Lens' Table (Maybe ExternalDataConfiguration) -tabExternalDataConfiguration - = lens _tabExternalDataConfiguration - (\ s a -> s{_tabExternalDataConfiguration = a}) - --- | [Output-only] The geographic location where the table resides. This --- value is inherited from the dataset. -tabLocation :: Lens' Table (Maybe Text) -tabLocation - = lens _tabLocation (\ s a -> s{_tabLocation = a}) - --- | [Required] Reference describing the ID of this table. -tabTableReference :: Lens' Table (Maybe TableReference) -tabTableReference - = lens _tabTableReference - (\ s a -> s{_tabTableReference = a}) - --- | [Optional] A descriptive name for this table. -tabFriendlyName :: Lens' Table (Maybe Text) -tabFriendlyName - = lens _tabFriendlyName - (\ s a -> s{_tabFriendlyName = a}) - --- | [Output-only] The type of the resource. -tabKind :: Lens' Table Text -tabKind = lens _tabKind (\ s a -> s{_tabKind = a}) - --- | [Output-only] The time when this table was last modified, in --- milliseconds since the epoch. -tabLastModifiedTime :: Lens' Table (Maybe Word64) -tabLastModifiedTime - = lens _tabLastModifiedTime - (\ s a -> s{_tabLastModifiedTime = a}) - . mapping _Coerce - --- | [Optional] Describes the schema of this table. -tabSchema :: Lens' Table (Maybe TableSchema) -tabSchema - = lens _tabSchema (\ s a -> s{_tabSchema = a}) - --- | [Output-only] Contains information regarding this table\'s streaming --- buffer, if one is present. This field will be absent if the table is not --- being streamed to or if there is no data in the streaming buffer. -tabStreamingBuffer :: Lens' Table (Maybe Streamingbuffer) -tabStreamingBuffer - = lens _tabStreamingBuffer - (\ s a -> s{_tabStreamingBuffer = a}) - --- | [Output-only] A URL that can be used to access this resource again. -tabSelfLink :: Lens' Table (Maybe Text) -tabSelfLink - = lens _tabSelfLink (\ s a -> s{_tabSelfLink = a}) - --- | [Output-only] The number of rows of data in this table, excluding any --- data in the streaming buffer. -tabNumRows :: Lens' Table (Maybe Word64) -tabNumRows - = lens _tabNumRows (\ s a -> s{_tabNumRows = a}) . - mapping _Coerce - --- | [Optional] The view definition. -tabView :: Lens' Table (Maybe ViewDefinition) -tabView = lens _tabView (\ s a -> s{_tabView = a}) - --- | [Output-only] An opaque ID uniquely identifying the table. -tabId :: Lens' Table (Maybe Text) -tabId = lens _tabId (\ s a -> s{_tabId = 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. The default value is TABLE. -tabType :: Lens' Table (Maybe Text) -tabType = lens _tabType (\ s a -> s{_tabType = a}) - --- | [Optional] The time when this table expires, in milliseconds since the --- epoch. If not present, the table will persist indefinitely. Expired --- tables will be deleted and their storage reclaimed. -tabExpirationTime :: Lens' Table (Maybe Int64) -tabExpirationTime - = lens _tabExpirationTime - (\ s a -> s{_tabExpirationTime = a}) - . mapping _Coerce - --- | [Optional] A user-friendly description of this table. -tabDescription :: Lens' Table (Maybe Text) -tabDescription - = lens _tabDescription - (\ s a -> s{_tabDescription = a}) - -instance FromJSON Table where - parseJSON - = withObject "Table" - (\ o -> - Table <$> - (o .:? "creationTime") <*> (o .:? "etag") <*> - (o .:? "numBytes") - <*> (o .:? "externalDataConfiguration") - <*> (o .:? "location") - <*> (o .:? "tableReference") - <*> (o .:? "friendlyName") - <*> (o .:? "kind" .!= "bigquery#table") - <*> (o .:? "lastModifiedTime") - <*> (o .:? "schema") - <*> (o .:? "streamingBuffer") - <*> (o .:? "selfLink") - <*> (o .:? "numRows") - <*> (o .:? "view") - <*> (o .:? "id") - <*> (o .:? "type") - <*> (o .:? "expirationTime") - <*> (o .:? "description")) - -instance ToJSON Table where - toJSON Table{..} - = object - (catMaybes - [("creationTime" .=) <$> _tabCreationTime, - ("etag" .=) <$> _tabEtag, - ("numBytes" .=) <$> _tabNumBytes, - ("externalDataConfiguration" .=) <$> - _tabExternalDataConfiguration, - ("location" .=) <$> _tabLocation, - ("tableReference" .=) <$> _tabTableReference, - ("friendlyName" .=) <$> _tabFriendlyName, - Just ("kind" .= _tabKind), - ("lastModifiedTime" .=) <$> _tabLastModifiedTime, - ("schema" .=) <$> _tabSchema, - ("streamingBuffer" .=) <$> _tabStreamingBuffer, - ("selfLink" .=) <$> _tabSelfLink, - ("numRows" .=) <$> _tabNumRows, - ("view" .=) <$> _tabView, ("id" .=) <$> _tabId, - ("type" .=) <$> _tabType, - ("expirationTime" .=) <$> _tabExpirationTime, - ("description" .=) <$> _tabDescription]) - --- --- /See:/ 'errorProto' smart constructor. -data ErrorProto = ErrorProto - { _epDebugInfo :: !(Maybe Text) - , _epLocation :: !(Maybe Text) - , _epReason :: !(Maybe Text) - , _epMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ErrorProto' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'epDebugInfo' --- --- * 'epLocation' --- --- * 'epReason' --- --- * 'epMessage' -errorProto - :: ErrorProto -errorProto = - ErrorProto - { _epDebugInfo = Nothing - , _epLocation = Nothing - , _epReason = Nothing - , _epMessage = Nothing - } - --- | Debugging information. This property is internal to Google and should --- not be used. -epDebugInfo :: Lens' ErrorProto (Maybe Text) -epDebugInfo - = lens _epDebugInfo (\ s a -> s{_epDebugInfo = a}) - --- | Specifies where the error occurred, if present. -epLocation :: Lens' ErrorProto (Maybe Text) -epLocation - = lens _epLocation (\ s a -> s{_epLocation = a}) - --- | A short error code that summarizes the error. -epReason :: Lens' ErrorProto (Maybe Text) -epReason = lens _epReason (\ s a -> s{_epReason = a}) - --- | A human-readable description of the error. -epMessage :: Lens' ErrorProto (Maybe Text) -epMessage - = lens _epMessage (\ s a -> s{_epMessage = a}) - -instance FromJSON ErrorProto where - parseJSON - = withObject "ErrorProto" - (\ o -> - ErrorProto <$> - (o .:? "debugInfo") <*> (o .:? "location") <*> - (o .:? "reason") - <*> (o .:? "message")) - -instance ToJSON ErrorProto where - toJSON ErrorProto{..} - = object - (catMaybes - [("debugInfo" .=) <$> _epDebugInfo, - ("location" .=) <$> _epLocation, - ("reason" .=) <$> _epReason, - ("message" .=) <$> _epMessage]) - --- --- /See:/ 'csvOptions' smart constructor. -data CSVOptions = CSVOptions - { _coSkipLeadingRows :: !(Maybe (Textual Int32)) - , _coAllowJaggedRows :: !(Maybe Bool) - , _coAllowQuotedNewlines :: !(Maybe Bool) - , _coQuote :: !Text - , _coEncoding :: !(Maybe Text) - , _coFieldDelimiter :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'CSVOptions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'coSkipLeadingRows' --- --- * 'coAllowJaggedRows' --- --- * 'coAllowQuotedNewlines' --- --- * 'coQuote' --- --- * 'coEncoding' --- --- * 'coFieldDelimiter' -csvOptions - :: CSVOptions -csvOptions = - CSVOptions - { _coSkipLeadingRows = Nothing - , _coAllowJaggedRows = Nothing - , _coAllowQuotedNewlines = Nothing - , _coQuote = "\"" - , _coEncoding = Nothing - , _coFieldDelimiter = Nothing - } - --- | [Optional] The number of rows at the top of a CSV file that BigQuery --- will skip when reading the data. The default value is 0. This property --- is useful if you have header rows in the file that should be skipped. -coSkipLeadingRows :: Lens' CSVOptions (Maybe Int32) -coSkipLeadingRows - = lens _coSkipLeadingRows - (\ s a -> s{_coSkipLeadingRows = a}) - . mapping _Coerce - --- | [Optional] Indicates if BigQuery should accept rows that are missing --- trailing optional columns. If true, BigQuery treats missing trailing --- columns as null values. If false, records with missing trailing columns --- are treated as bad records, and if there are too many bad records, an --- invalid error is returned in the job result. The default value is false. -coAllowJaggedRows :: Lens' CSVOptions (Maybe Bool) -coAllowJaggedRows - = lens _coAllowJaggedRows - (\ s a -> s{_coAllowJaggedRows = a}) - --- | [Optional] Indicates if BigQuery should allow quoted data sections that --- contain newline characters in a CSV file. The default value is false. -coAllowQuotedNewlines :: Lens' CSVOptions (Maybe Bool) -coAllowQuotedNewlines - = lens _coAllowQuotedNewlines - (\ s a -> s{_coAllowQuotedNewlines = a}) - --- | [Optional] The value that is used to quote data sections in a CSV file. --- BigQuery converts the string to ISO-8859-1 encoding, and then uses the --- first byte of the encoded string to split the data in its raw, binary --- state. The default value is a double-quote (\'\"\'). If your data does --- 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. -coQuote :: Lens' CSVOptions Text -coQuote = lens _coQuote (\ s a -> s{_coQuote = a}) - --- | [Optional] The character encoding of the data. The supported values are --- UTF-8 or ISO-8859-1. The default value is UTF-8. BigQuery decodes the --- data after the raw, binary data has been split using the values of the --- quote and fieldDelimiter properties. -coEncoding :: Lens' CSVOptions (Maybe Text) -coEncoding - = lens _coEncoding (\ s a -> s{_coEncoding = a}) - --- | [Optional] The separator for fields in a CSV file. BigQuery converts the --- string to ISO-8859-1 encoding, and then uses the first byte of the --- encoded string to split the data in its raw, binary state. BigQuery also --- supports the escape sequence \"\\t\" to specify a tab separator. The --- default value is a comma (\',\'). -coFieldDelimiter :: Lens' CSVOptions (Maybe Text) -coFieldDelimiter - = lens _coFieldDelimiter - (\ s a -> s{_coFieldDelimiter = a}) - -instance FromJSON CSVOptions where - parseJSON - = withObject "CSVOptions" - (\ o -> - CSVOptions <$> - (o .:? "skipLeadingRows") <*> - (o .:? "allowJaggedRows") - <*> (o .:? "allowQuotedNewlines") - <*> (o .:? "quote" .!= "\"") - <*> (o .:? "encoding") - <*> (o .:? "fieldDelimiter")) - -instance ToJSON CSVOptions where - toJSON CSVOptions{..} - = object - (catMaybes - [("skipLeadingRows" .=) <$> _coSkipLeadingRows, - ("allowJaggedRows" .=) <$> _coAllowJaggedRows, - ("allowQuotedNewlines" .=) <$> - _coAllowQuotedNewlines, - Just ("quote" .= _coQuote), - ("encoding" .=) <$> _coEncoding, - ("fieldDelimiter" .=) <$> _coFieldDelimiter]) - --- --- /See:/ 'jobStatistics3' smart constructor. -data JobStatistics3 = JobStatistics3 - { _jsInputFiles :: !(Maybe (Textual Int64)) - , _jsOutputRows :: !(Maybe (Textual Int64)) - , _jsOutputBytes :: !(Maybe (Textual Int64)) - , _jsInputFileBytes :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'JobStatistics3' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'jsInputFiles' --- --- * 'jsOutputRows' --- --- * 'jsOutputBytes' --- --- * 'jsInputFileBytes' -jobStatistics3 - :: JobStatistics3 -jobStatistics3 = - JobStatistics3 - { _jsInputFiles = Nothing - , _jsOutputRows = Nothing - , _jsOutputBytes = Nothing - , _jsInputFileBytes = Nothing - } - --- | [Output-only] Number of source files in a load job. -jsInputFiles :: Lens' JobStatistics3 (Maybe Int64) -jsInputFiles - = lens _jsInputFiles (\ s a -> s{_jsInputFiles = a}) - . mapping _Coerce - --- | [Output-only] Number of rows imported in a load job. Note that while an --- import job is in the running state, this value may change. -jsOutputRows :: Lens' JobStatistics3 (Maybe Int64) -jsOutputRows - = lens _jsOutputRows (\ s a -> s{_jsOutputRows = a}) - . mapping _Coerce - --- | [Output-only] Size of the loaded data in bytes. Note that while a load --- job is in the running state, this value may change. -jsOutputBytes :: Lens' JobStatistics3 (Maybe Int64) -jsOutputBytes - = lens _jsOutputBytes - (\ s a -> s{_jsOutputBytes = a}) - . mapping _Coerce - --- | [Output-only] Number of bytes of source data in a load job. -jsInputFileBytes :: Lens' JobStatistics3 (Maybe Int64) -jsInputFileBytes - = lens _jsInputFileBytes - (\ s a -> s{_jsInputFileBytes = a}) - . mapping _Coerce - -instance FromJSON JobStatistics3 where - parseJSON - = withObject "JobStatistics3" - (\ o -> - JobStatistics3 <$> - (o .:? "inputFiles") <*> (o .:? "outputRows") <*> - (o .:? "outputBytes") - <*> (o .:? "inputFileBytes")) - -instance ToJSON JobStatistics3 where - toJSON JobStatistics3{..} - = object - (catMaybes - [("inputFiles" .=) <$> _jsInputFiles, - ("outputRows" .=) <$> _jsOutputRows, - ("outputBytes" .=) <$> _jsOutputBytes, - ("inputFileBytes" .=) <$> _jsInputFileBytes]) - --- --- /See:/ 'queryResponse' smart constructor. -data QueryResponse = QueryResponse - { _qJobReference :: !(Maybe JobReference) - , _qKind :: !Text - , _qSchema :: !(Maybe TableSchema) - , _qTotalBytesProcessed :: !(Maybe (Textual Int64)) - , _qRows :: !(Maybe [TableRow]) - , _qPageToken :: !(Maybe Text) - , _qTotalRows :: !(Maybe (Textual Word64)) - , _qErrors :: !(Maybe [ErrorProto]) - , _qJobComplete :: !(Maybe Bool) - , _qCacheHit :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'QueryResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'qJobReference' --- --- * 'qKind' --- --- * 'qSchema' --- --- * 'qTotalBytesProcessed' --- --- * 'qRows' --- --- * 'qPageToken' --- --- * 'qTotalRows' --- --- * 'qErrors' --- --- * 'qJobComplete' --- --- * 'qCacheHit' -queryResponse - :: QueryResponse -queryResponse = - QueryResponse - { _qJobReference = Nothing - , _qKind = "bigquery#queryResponse" - , _qSchema = Nothing - , _qTotalBytesProcessed = Nothing - , _qRows = Nothing - , _qPageToken = Nothing - , _qTotalRows = Nothing - , _qErrors = Nothing - , _qJobComplete = Nothing - , _qCacheHit = Nothing - } - --- | Reference to the Job that was created to run the query. This field will --- be present even if the original request timed out, in which case --- GetQueryResults can be used to read the results once the query has --- completed. Since this API only returns the first page of results, --- subsequent pages can be fetched via the same mechanism --- (GetQueryResults). -qJobReference :: Lens' QueryResponse (Maybe JobReference) -qJobReference - = lens _qJobReference - (\ s a -> s{_qJobReference = a}) - --- | The resource type. -qKind :: Lens' QueryResponse Text -qKind = lens _qKind (\ s a -> s{_qKind = a}) - --- | The schema of the results. Present only when the query completes --- successfully. -qSchema :: Lens' QueryResponse (Maybe TableSchema) -qSchema = lens _qSchema (\ s a -> s{_qSchema = a}) - --- | The total number of bytes processed for this query. If this query was a --- dry run, this is the number of bytes that would be processed if the --- query were run. -qTotalBytesProcessed :: Lens' QueryResponse (Maybe Int64) -qTotalBytesProcessed - = lens _qTotalBytesProcessed - (\ s a -> s{_qTotalBytesProcessed = a}) - . mapping _Coerce - --- | An object with as many results as can be contained within the maximum --- permitted reply size. To get any additional rows, you can call --- GetQueryResults and specify the jobReference returned above. -qRows :: Lens' QueryResponse [TableRow] -qRows - = lens _qRows (\ s a -> s{_qRows = a}) . _Default . - _Coerce - --- | A token used for paging results. -qPageToken :: Lens' QueryResponse (Maybe Text) -qPageToken - = lens _qPageToken (\ s a -> s{_qPageToken = a}) - --- | 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) -qTotalRows - = lens _qTotalRows (\ s a -> s{_qTotalRows = a}) . - mapping _Coerce - --- | [Output-only] All errors and warnings encountered during the running of --- the job. Errors here do not necessarily mean that the job has completed --- or was unsuccessful. -qErrors :: Lens' QueryResponse [ErrorProto] -qErrors - = lens _qErrors (\ s a -> s{_qErrors = a}) . _Default - . _Coerce - --- | Whether the query has completed or not. If rows or totalRows are --- present, this will always be true. If this is false, totalRows will not --- be available. -qJobComplete :: Lens' QueryResponse (Maybe Bool) -qJobComplete - = lens _qJobComplete (\ s a -> s{_qJobComplete = a}) - --- | Whether the query result was fetched from the query cache. -qCacheHit :: Lens' QueryResponse (Maybe Bool) -qCacheHit - = lens _qCacheHit (\ s a -> s{_qCacheHit = a}) - -instance FromJSON QueryResponse where - parseJSON - = withObject "QueryResponse" - (\ o -> - QueryResponse <$> - (o .:? "jobReference") <*> - (o .:? "kind" .!= "bigquery#queryResponse") - <*> (o .:? "schema") - <*> (o .:? "totalBytesProcessed") - <*> (o .:? "rows" .!= mempty) - <*> (o .:? "pageToken") - <*> (o .:? "totalRows") - <*> (o .:? "errors" .!= mempty) - <*> (o .:? "jobComplete") - <*> (o .:? "cacheHit")) - -instance ToJSON QueryResponse where - toJSON QueryResponse{..} +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.BigQuery.Types.Product where + +import Network.Google.BigQuery.Types.Sum +import Network.Google.Prelude + +-- +-- /See:/ 'jobReference' smart constructor. +data JobReference = JobReference' + { _jrJobId :: !(Maybe Text) + , _jrProjectId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobReference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jrJobId' +-- +-- * 'jrProjectId' +jobReference + :: JobReference +jobReference = + JobReference' + { _jrJobId = Nothing + , _jrProjectId = Nothing + } + +-- | [Required] The ID of the job. The ID must contain only letters (a-z, +-- A-Z), numbers (0-9), underscores (_), or dashes (-). The maximum length +-- is 1,024 characters. +jrJobId :: Lens' JobReference (Maybe Text) +jrJobId = lens _jrJobId (\ s a -> s{_jrJobId = a}) + +-- | [Required] The ID of the project containing this job. +jrProjectId :: Lens' JobReference (Maybe Text) +jrProjectId + = lens _jrProjectId (\ s a -> s{_jrProjectId = a}) + +instance FromJSON JobReference where + parseJSON + = withObject "JobReference" + (\ o -> + JobReference' <$> + (o .:? "jobId") <*> (o .:? "projectId")) + +instance ToJSON JobReference where + toJSON JobReference'{..} + = object + (catMaybes + [("jobId" .=) <$> _jrJobId, + ("projectId" .=) <$> _jrProjectId]) + +-- +-- /See:/ 'tableList' smart constructor. +data TableList = TableList' + { _tlTotalItems :: !(Maybe (Textual Int32)) + , _tlEtag :: !(Maybe Text) + , _tlNextPageToken :: !(Maybe Text) + , _tlKind :: !Text + , _tlTables :: !(Maybe [TableListTablesItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tlTotalItems' +-- +-- * 'tlEtag' +-- +-- * 'tlNextPageToken' +-- +-- * 'tlKind' +-- +-- * 'tlTables' +tableList + :: TableList +tableList = + TableList' + { _tlTotalItems = Nothing + , _tlEtag = Nothing + , _tlNextPageToken = Nothing + , _tlKind = "bigquery#tableList" + , _tlTables = Nothing + } + +-- | The total number of tables in the dataset. +tlTotalItems :: Lens' TableList (Maybe Int32) +tlTotalItems + = lens _tlTotalItems (\ s a -> s{_tlTotalItems = a}) + . mapping _Coerce + +-- | A hash of this page of results. +tlEtag :: Lens' TableList (Maybe Text) +tlEtag = lens _tlEtag (\ s a -> s{_tlEtag = a}) + +-- | A token to request the next page of results. +tlNextPageToken :: Lens' TableList (Maybe Text) +tlNextPageToken + = lens _tlNextPageToken + (\ s a -> s{_tlNextPageToken = a}) + +-- | The type of list. +tlKind :: Lens' TableList Text +tlKind = lens _tlKind (\ s a -> s{_tlKind = a}) + +-- | Tables in the requested dataset. +tlTables :: Lens' TableList [TableListTablesItem] +tlTables + = lens _tlTables (\ s a -> s{_tlTables = a}) . + _Default + . _Coerce + +instance FromJSON TableList where + parseJSON + = withObject "TableList" + (\ o -> + TableList' <$> + (o .:? "totalItems") <*> (o .:? "etag") <*> + (o .:? "nextPageToken") + <*> (o .:? "kind" .!= "bigquery#tableList") + <*> (o .:? "tables" .!= mempty)) + +instance ToJSON TableList where + toJSON TableList'{..} + = object + (catMaybes + [("totalItems" .=) <$> _tlTotalItems, + ("etag" .=) <$> _tlEtag, + ("nextPageToken" .=) <$> _tlNextPageToken, + Just ("kind" .= _tlKind), + ("tables" .=) <$> _tlTables]) + +-- +-- /See:/ 'dataSetListDataSetsItem' smart constructor. +data DataSetListDataSetsItem = DataSetListDataSetsItem' + { _dsldsiFriendlyName :: !(Maybe Text) + , _dsldsiKind :: !Text + , _dsldsiDataSetReference :: !(Maybe DataSetReference) + , _dsldsiId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetListDataSetsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsldsiFriendlyName' +-- +-- * 'dsldsiKind' +-- +-- * 'dsldsiDataSetReference' +-- +-- * 'dsldsiId' +dataSetListDataSetsItem + :: DataSetListDataSetsItem +dataSetListDataSetsItem = + DataSetListDataSetsItem' + { _dsldsiFriendlyName = Nothing + , _dsldsiKind = "bigquery#dataset" + , _dsldsiDataSetReference = Nothing + , _dsldsiId = Nothing + } + +-- | A descriptive name for the dataset, if one exists. +dsldsiFriendlyName :: Lens' DataSetListDataSetsItem (Maybe Text) +dsldsiFriendlyName + = lens _dsldsiFriendlyName + (\ s a -> s{_dsldsiFriendlyName = a}) + +-- | The resource type. This property always returns the value +-- \"bigquery#dataset\". +dsldsiKind :: Lens' DataSetListDataSetsItem Text +dsldsiKind + = lens _dsldsiKind (\ s a -> s{_dsldsiKind = a}) + +-- | The dataset reference. Use this property to access specific parts of the +-- dataset\'s ID, such as project ID or dataset ID. +dsldsiDataSetReference :: Lens' DataSetListDataSetsItem (Maybe DataSetReference) +dsldsiDataSetReference + = lens _dsldsiDataSetReference + (\ s a -> s{_dsldsiDataSetReference = a}) + +-- | The fully-qualified, unique, opaque ID of the dataset. +dsldsiId :: Lens' DataSetListDataSetsItem (Maybe Text) +dsldsiId = lens _dsldsiId (\ s a -> s{_dsldsiId = a}) + +instance FromJSON DataSetListDataSetsItem where + parseJSON + = withObject "DataSetListDataSetsItem" + (\ o -> + DataSetListDataSetsItem' <$> + (o .:? "friendlyName") <*> + (o .:? "kind" .!= "bigquery#dataset") + <*> (o .:? "datasetReference") + <*> (o .:? "id")) + +instance ToJSON DataSetListDataSetsItem where + toJSON DataSetListDataSetsItem'{..} + = object + (catMaybes + [("friendlyName" .=) <$> _dsldsiFriendlyName, + Just ("kind" .= _dsldsiKind), + ("datasetReference" .=) <$> _dsldsiDataSetReference, + ("id" .=) <$> _dsldsiId]) + +-- +-- /See:/ 'tableDataList' smart constructor. +data TableDataList = TableDataList' + { _tdlEtag :: !(Maybe Text) + , _tdlKind :: !Text + , _tdlRows :: !(Maybe [TableRow]) + , _tdlPageToken :: !(Maybe Text) + , _tdlTotalRows :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableDataList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdlEtag' +-- +-- * 'tdlKind' +-- +-- * 'tdlRows' +-- +-- * 'tdlPageToken' +-- +-- * 'tdlTotalRows' +tableDataList + :: TableDataList +tableDataList = + TableDataList' + { _tdlEtag = Nothing + , _tdlKind = "bigquery#tableDataList" + , _tdlRows = Nothing + , _tdlPageToken = Nothing + , _tdlTotalRows = Nothing + } + +-- | A hash of this page of results. +tdlEtag :: Lens' TableDataList (Maybe Text) +tdlEtag = lens _tdlEtag (\ s a -> s{_tdlEtag = a}) + +-- | The resource type of the response. +tdlKind :: Lens' TableDataList Text +tdlKind = lens _tdlKind (\ s a -> s{_tdlKind = a}) + +-- | Rows of results. +tdlRows :: Lens' TableDataList [TableRow] +tdlRows + = lens _tdlRows (\ s a -> s{_tdlRows = a}) . _Default + . _Coerce + +-- | A token used for paging results. Providing this token instead of the +-- startIndex parameter can help you retrieve stable results when an +-- underlying table is changing. +tdlPageToken :: Lens' TableDataList (Maybe Text) +tdlPageToken + = lens _tdlPageToken (\ s a -> s{_tdlPageToken = a}) + +-- | The total number of rows in the complete table. +tdlTotalRows :: Lens' TableDataList (Maybe Int64) +tdlTotalRows + = lens _tdlTotalRows (\ s a -> s{_tdlTotalRows = a}) + . mapping _Coerce + +instance FromJSON TableDataList where + parseJSON + = withObject "TableDataList" + (\ o -> + TableDataList' <$> + (o .:? "etag") <*> + (o .:? "kind" .!= "bigquery#tableDataList") + <*> (o .:? "rows" .!= mempty) + <*> (o .:? "pageToken") + <*> (o .:? "totalRows")) + +instance ToJSON TableDataList where + toJSON TableDataList'{..} + = object + (catMaybes + [("etag" .=) <$> _tdlEtag, Just ("kind" .= _tdlKind), + ("rows" .=) <$> _tdlRows, + ("pageToken" .=) <$> _tdlPageToken, + ("totalRows" .=) <$> _tdlTotalRows]) + +-- +-- /See:/ 'jobConfigurationTableCopy' smart constructor. +data JobConfigurationTableCopy = JobConfigurationTableCopy' + { _jctcDestinationTable :: !(Maybe TableReference) + , _jctcWriteDisPosition :: !(Maybe Text) + , _jctcSourceTables :: !(Maybe [TableReference]) + , _jctcCreateDisPosition :: !(Maybe Text) + , _jctcSourceTable :: !(Maybe TableReference) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationTableCopy' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jctcDestinationTable' +-- +-- * 'jctcWriteDisPosition' +-- +-- * 'jctcSourceTables' +-- +-- * 'jctcCreateDisPosition' +-- +-- * 'jctcSourceTable' +jobConfigurationTableCopy + :: JobConfigurationTableCopy +jobConfigurationTableCopy = + JobConfigurationTableCopy' + { _jctcDestinationTable = Nothing + , _jctcWriteDisPosition = Nothing + , _jctcSourceTables = Nothing + , _jctcCreateDisPosition = Nothing + , _jctcSourceTable = Nothing + } + +-- | [Required] The destination table +jctcDestinationTable :: Lens' JobConfigurationTableCopy (Maybe TableReference) +jctcDestinationTable + = lens _jctcDestinationTable + (\ s a -> s{_jctcDestinationTable = a}) + +-- | [Optional] Specifies the action that occurs if the destination table +-- already exists. The following values are supported: WRITE_TRUNCATE: If +-- the table already exists, BigQuery overwrites the table data. +-- WRITE_APPEND: If the table already exists, BigQuery appends the data to +-- the table. WRITE_EMPTY: If the table already exists and contains data, a +-- \'duplicate\' error is returned in the job result. The default value is +-- WRITE_EMPTY. Each action is atomic and only occurs if BigQuery is able +-- to complete the job successfully. Creation, truncation and append +-- actions occur as one atomic update upon job completion. +jctcWriteDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text) +jctcWriteDisPosition + = lens _jctcWriteDisPosition + (\ s a -> s{_jctcWriteDisPosition = a}) + +-- | [Pick one] Source tables to copy. +jctcSourceTables :: Lens' JobConfigurationTableCopy [TableReference] +jctcSourceTables + = lens _jctcSourceTables + (\ s a -> s{_jctcSourceTables = 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 +-- already exist. If it does not, a \'notFound\' error is returned in the +-- job result. The default value is CREATE_IF_NEEDED. Creation, truncation +-- and append actions occur as one atomic update upon job completion. +jctcCreateDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text) +jctcCreateDisPosition + = lens _jctcCreateDisPosition + (\ s a -> s{_jctcCreateDisPosition = a}) + +-- | [Pick one] Source table to copy. +jctcSourceTable :: Lens' JobConfigurationTableCopy (Maybe TableReference) +jctcSourceTable + = lens _jctcSourceTable + (\ s a -> s{_jctcSourceTable = a}) + +instance FromJSON JobConfigurationTableCopy where + parseJSON + = withObject "JobConfigurationTableCopy" + (\ o -> + JobConfigurationTableCopy' <$> + (o .:? "destinationTable") <*> + (o .:? "writeDisposition") + <*> (o .:? "sourceTables" .!= mempty) + <*> (o .:? "createDisposition") + <*> (o .:? "sourceTable")) + +instance ToJSON JobConfigurationTableCopy where + toJSON JobConfigurationTableCopy'{..} + = object + (catMaybes + [("destinationTable" .=) <$> _jctcDestinationTable, + ("writeDisposition" .=) <$> _jctcWriteDisPosition, + ("sourceTables" .=) <$> _jctcSourceTables, + ("createDisposition" .=) <$> _jctcCreateDisPosition, + ("sourceTable" .=) <$> _jctcSourceTable]) + +-- +-- /See:/ 'tableListTablesItem' smart constructor. +data TableListTablesItem = TableListTablesItem' + { _tltiTableReference :: !(Maybe TableReference) + , _tltiFriendlyName :: !(Maybe Text) + , _tltiKind :: !Text + , _tltiId :: !(Maybe Text) + , _tltiType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableListTablesItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tltiTableReference' +-- +-- * 'tltiFriendlyName' +-- +-- * 'tltiKind' +-- +-- * 'tltiId' +-- +-- * 'tltiType' +tableListTablesItem + :: TableListTablesItem +tableListTablesItem = + TableListTablesItem' + { _tltiTableReference = Nothing + , _tltiFriendlyName = Nothing + , _tltiKind = "bigquery#table" + , _tltiId = Nothing + , _tltiType = Nothing + } + +-- | A reference uniquely identifying the table. +tltiTableReference :: Lens' TableListTablesItem (Maybe TableReference) +tltiTableReference + = lens _tltiTableReference + (\ s a -> s{_tltiTableReference = a}) + +-- | The user-friendly name for this table. +tltiFriendlyName :: Lens' TableListTablesItem (Maybe Text) +tltiFriendlyName + = lens _tltiFriendlyName + (\ s a -> s{_tltiFriendlyName = a}) + +-- | The resource type. +tltiKind :: Lens' TableListTablesItem Text +tltiKind = lens _tltiKind (\ s a -> s{_tltiKind = a}) + +-- | An opaque ID of the table +tltiId :: Lens' TableListTablesItem (Maybe Text) +tltiId = lens _tltiId (\ s a -> s{_tltiId = a}) + +-- | The type of table. Possible values are: TABLE, VIEW. +tltiType :: Lens' TableListTablesItem (Maybe Text) +tltiType = lens _tltiType (\ s a -> s{_tltiType = a}) + +instance FromJSON TableListTablesItem where + parseJSON + = withObject "TableListTablesItem" + (\ o -> + TableListTablesItem' <$> + (o .:? "tableReference") <*> (o .:? "friendlyName") + <*> (o .:? "kind" .!= "bigquery#table") + <*> (o .:? "id") + <*> (o .:? "type")) + +instance ToJSON TableListTablesItem where + toJSON TableListTablesItem'{..} + = object + (catMaybes + [("tableReference" .=) <$> _tltiTableReference, + ("friendlyName" .=) <$> _tltiFriendlyName, + Just ("kind" .= _tltiKind), ("id" .=) <$> _tltiId, + ("type" .=) <$> _tltiType]) + +-- +-- /See:/ 'tableSchema' smart constructor. +newtype TableSchema = TableSchema' + { _tsFields :: Maybe [TableFieldSchema] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableSchema' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tsFields' +tableSchema + :: TableSchema +tableSchema = + TableSchema' + { _tsFields = Nothing + } + +-- | Describes the fields in a table. +tsFields :: Lens' TableSchema [TableFieldSchema] +tsFields + = lens _tsFields (\ s a -> s{_tsFields = a}) . + _Default + . _Coerce + +instance FromJSON TableSchema where + parseJSON + = withObject "TableSchema" + (\ o -> TableSchema' <$> (o .:? "fields" .!= mempty)) + +instance ToJSON TableSchema where + toJSON TableSchema'{..} + = object (catMaybes [("fields" .=) <$> _tsFields]) + +-- +-- /See:/ 'projectList' smart constructor. +data ProjectList = ProjectList' + { _plTotalItems :: !(Maybe (Textual Int32)) + , _plEtag :: !(Maybe Text) + , _plNextPageToken :: !(Maybe Text) + , _plKind :: !Text + , _plProjects :: !(Maybe [ProjectListProjectsItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plTotalItems' +-- +-- * 'plEtag' +-- +-- * 'plNextPageToken' +-- +-- * 'plKind' +-- +-- * 'plProjects' +projectList + :: ProjectList +projectList = + ProjectList' + { _plTotalItems = Nothing + , _plEtag = Nothing + , _plNextPageToken = Nothing + , _plKind = "bigquery#projectList" + , _plProjects = Nothing + } + +-- | The total number of projects in the list. +plTotalItems :: Lens' ProjectList (Maybe Int32) +plTotalItems + = lens _plTotalItems (\ s a -> s{_plTotalItems = a}) + . mapping _Coerce + +-- | A hash of the page of results +plEtag :: Lens' ProjectList (Maybe Text) +plEtag = lens _plEtag (\ s a -> s{_plEtag = a}) + +-- | A token to request the next page of results. +plNextPageToken :: Lens' ProjectList (Maybe Text) +plNextPageToken + = lens _plNextPageToken + (\ s a -> s{_plNextPageToken = a}) + +-- | The type of list. +plKind :: Lens' ProjectList Text +plKind = lens _plKind (\ s a -> s{_plKind = a}) + +-- | Projects to which you have at least READ access. +plProjects :: Lens' ProjectList [ProjectListProjectsItem] +plProjects + = lens _plProjects (\ s a -> s{_plProjects = a}) . + _Default + . _Coerce + +instance FromJSON ProjectList where + parseJSON + = withObject "ProjectList" + (\ o -> + ProjectList' <$> + (o .:? "totalItems") <*> (o .:? "etag") <*> + (o .:? "nextPageToken") + <*> (o .:? "kind" .!= "bigquery#projectList") + <*> (o .:? "projects" .!= mempty)) + +instance ToJSON ProjectList where + toJSON ProjectList'{..} + = object + (catMaybes + [("totalItems" .=) <$> _plTotalItems, + ("etag" .=) <$> _plEtag, + ("nextPageToken" .=) <$> _plNextPageToken, + Just ("kind" .= _plKind), + ("projects" .=) <$> _plProjects]) + +-- +-- /See:/ 'explainQueryStep' smart constructor. +data ExplainQueryStep = ExplainQueryStep' + { _eqsSubsteps :: !(Maybe [Text]) + , _eqsKind :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ExplainQueryStep' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eqsSubsteps' +-- +-- * 'eqsKind' +explainQueryStep + :: ExplainQueryStep +explainQueryStep = + ExplainQueryStep' + { _eqsSubsteps = Nothing + , _eqsKind = Nothing + } + +-- | Human-readable stage descriptions. +eqsSubsteps :: Lens' ExplainQueryStep [Text] +eqsSubsteps + = lens _eqsSubsteps (\ s a -> s{_eqsSubsteps = a}) . + _Default + . _Coerce + +-- | Machine-readable operation type. +eqsKind :: Lens' ExplainQueryStep (Maybe Text) +eqsKind = lens _eqsKind (\ s a -> s{_eqsKind = a}) + +instance FromJSON ExplainQueryStep where + parseJSON + = withObject "ExplainQueryStep" + (\ o -> + ExplainQueryStep' <$> + (o .:? "substeps" .!= mempty) <*> (o .:? "kind")) + +instance ToJSON ExplainQueryStep where + toJSON ExplainQueryStep'{..} + = object + (catMaybes + [("substeps" .=) <$> _eqsSubsteps, + ("kind" .=) <$> _eqsKind]) + +-- +-- /See:/ 'bigtableColumnFamily' smart constructor. +data BigtableColumnFamily = BigtableColumnFamily' + { _bcfFamilyId :: !(Maybe Text) + , _bcfColumns :: !(Maybe [BigtableColumn]) + , _bcfOnlyReadLatest :: !(Maybe Bool) + , _bcfType :: !(Maybe Text) + , _bcfEncoding :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BigtableColumnFamily' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bcfFamilyId' +-- +-- * 'bcfColumns' +-- +-- * 'bcfOnlyReadLatest' +-- +-- * 'bcfType' +-- +-- * 'bcfEncoding' +bigtableColumnFamily + :: BigtableColumnFamily +bigtableColumnFamily = + BigtableColumnFamily' + { _bcfFamilyId = Nothing + , _bcfColumns = Nothing + , _bcfOnlyReadLatest = Nothing + , _bcfType = Nothing + , _bcfEncoding = Nothing + } + +-- | Identifier of the column family. +bcfFamilyId :: Lens' BigtableColumnFamily (Maybe Text) +bcfFamilyId + = lens _bcfFamilyId (\ s a -> s{_bcfFamilyId = a}) + +-- | [Optional] Lists of columns that should be exposed as individual fields +-- as opposed to a list of (column name, value) pairs. All columns whose +-- qualifier matches a qualifier in this list can be accessed as .. Other +-- columns can be accessed as a list through .Column field. +bcfColumns :: Lens' BigtableColumnFamily [BigtableColumn] +bcfColumns + = lens _bcfColumns (\ s a -> s{_bcfColumns = a}) . + _Default + . _Coerce + +-- | [Optional] If this is set only the latest version of value are exposed +-- for all columns in this column family. This can be overridden for a +-- specific column by listing that column in \'columns\' and specifying a +-- different setting for that column. +bcfOnlyReadLatest :: Lens' BigtableColumnFamily (Maybe Bool) +bcfOnlyReadLatest + = lens _bcfOnlyReadLatest + (\ s a -> s{_bcfOnlyReadLatest = a}) + +-- | [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 +-- 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) +bcfType = lens _bcfType (\ s a -> s{_bcfType = a}) + +-- | [Optional] The encoding of the values when the type is not STRING. +-- Acceptable encoding values are: TEXT - indicates values are alphanumeric +-- text strings. BINARY - indicates values are encoded using HBase +-- Bytes.toBytes family of functions. This can be overridden for a specific +-- column by listing that column in \'columns\' and specifying an encoding +-- for it. +bcfEncoding :: Lens' BigtableColumnFamily (Maybe Text) +bcfEncoding + = lens _bcfEncoding (\ s a -> s{_bcfEncoding = a}) + +instance FromJSON BigtableColumnFamily where + parseJSON + = withObject "BigtableColumnFamily" + (\ o -> + BigtableColumnFamily' <$> + (o .:? "familyId") <*> (o .:? "columns" .!= mempty) + <*> (o .:? "onlyReadLatest") + <*> (o .:? "type") + <*> (o .:? "encoding")) + +instance ToJSON BigtableColumnFamily where + toJSON BigtableColumnFamily'{..} + = object + (catMaybes + [("familyId" .=) <$> _bcfFamilyId, + ("columns" .=) <$> _bcfColumns, + ("onlyReadLatest" .=) <$> _bcfOnlyReadLatest, + ("type" .=) <$> _bcfType, + ("encoding" .=) <$> _bcfEncoding]) + +-- +-- /See:/ 'jobStatistics' smart constructor. +data JobStatistics = JobStatistics' + { _jsCreationTime :: !(Maybe (Textual Int64)) + , _jsStartTime :: !(Maybe (Textual Int64)) + , _jsLoad :: !(Maybe JobStatistics3) + , _jsTotalBytesProcessed :: !(Maybe (Textual Int64)) + , _jsEndTime :: !(Maybe (Textual Int64)) + , _jsQuery :: !(Maybe JobStatistics2) + , _jsExtract :: !(Maybe JobStatistics4) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobStatistics' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jsCreationTime' +-- +-- * 'jsStartTime' +-- +-- * 'jsLoad' +-- +-- * 'jsTotalBytesProcessed' +-- +-- * 'jsEndTime' +-- +-- * 'jsQuery' +-- +-- * 'jsExtract' +jobStatistics + :: JobStatistics +jobStatistics = + JobStatistics' + { _jsCreationTime = Nothing + , _jsStartTime = Nothing + , _jsLoad = Nothing + , _jsTotalBytesProcessed = Nothing + , _jsEndTime = Nothing + , _jsQuery = Nothing + , _jsExtract = Nothing + } + +-- | [Output-only] Creation time of this job, in milliseconds since the +-- epoch. This field will be present on all jobs. +jsCreationTime :: Lens' JobStatistics (Maybe Int64) +jsCreationTime + = lens _jsCreationTime + (\ s a -> s{_jsCreationTime = a}) + . mapping _Coerce + +-- | [Output-only] Start time of this job, in milliseconds since the epoch. +-- This field will be present when the job transitions from the PENDING +-- state to either RUNNING or DONE. +jsStartTime :: Lens' JobStatistics (Maybe Int64) +jsStartTime + = lens _jsStartTime (\ s a -> s{_jsStartTime = a}) . + mapping _Coerce + +-- | [Output-only] Statistics for a load job. +jsLoad :: Lens' JobStatistics (Maybe JobStatistics3) +jsLoad = lens _jsLoad (\ s a -> s{_jsLoad = a}) + +-- | [Output-only] [Deprecated] Use the bytes processed in the query +-- statistics instead. +jsTotalBytesProcessed :: Lens' JobStatistics (Maybe Int64) +jsTotalBytesProcessed + = lens _jsTotalBytesProcessed + (\ s a -> s{_jsTotalBytesProcessed = a}) + . mapping _Coerce + +-- | [Output-only] End time of this job, in milliseconds since the epoch. +-- This field will be present whenever a job is in the DONE state. +jsEndTime :: Lens' JobStatistics (Maybe Int64) +jsEndTime + = lens _jsEndTime (\ s a -> s{_jsEndTime = a}) . + mapping _Coerce + +-- | [Output-only] Statistics for a query job. +jsQuery :: Lens' JobStatistics (Maybe JobStatistics2) +jsQuery = lens _jsQuery (\ s a -> s{_jsQuery = a}) + +-- | [Output-only] Statistics for an extract job. +jsExtract :: Lens' JobStatistics (Maybe JobStatistics4) +jsExtract + = lens _jsExtract (\ s a -> s{_jsExtract = a}) + +instance FromJSON JobStatistics where + parseJSON + = withObject "JobStatistics" + (\ o -> + JobStatistics' <$> + (o .:? "creationTime") <*> (o .:? "startTime") <*> + (o .:? "load") + <*> (o .:? "totalBytesProcessed") + <*> (o .:? "endTime") + <*> (o .:? "query") + <*> (o .:? "extract")) + +instance ToJSON JobStatistics where + toJSON JobStatistics'{..} + = object + (catMaybes + [("creationTime" .=) <$> _jsCreationTime, + ("startTime" .=) <$> _jsStartTime, + ("load" .=) <$> _jsLoad, + ("totalBytesProcessed" .=) <$> + _jsTotalBytesProcessed, + ("endTime" .=) <$> _jsEndTime, + ("query" .=) <$> _jsQuery, + ("extract" .=) <$> _jsExtract]) + +-- +-- /See:/ 'dataSet' smart constructor. +data DataSet = DataSet' + { _dsCreationTime :: !(Maybe (Textual Int64)) + , _dsAccess :: !(Maybe [DataSetAccessItem]) + , _dsEtag :: !(Maybe Text) + , _dsLocation :: !(Maybe Text) + , _dsFriendlyName :: !(Maybe Text) + , _dsKind :: !Text + , _dsLastModifiedTime :: !(Maybe (Textual Int64)) + , _dsDataSetReference :: !(Maybe DataSetReference) + , _dsSelfLink :: !(Maybe Text) + , _dsId :: !(Maybe Text) + , _dsDefaultTableExpirationMs :: !(Maybe (Textual Int64)) + , _dsDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsCreationTime' +-- +-- * 'dsAccess' +-- +-- * 'dsEtag' +-- +-- * 'dsLocation' +-- +-- * 'dsFriendlyName' +-- +-- * 'dsKind' +-- +-- * 'dsLastModifiedTime' +-- +-- * 'dsDataSetReference' +-- +-- * 'dsSelfLink' +-- +-- * 'dsId' +-- +-- * 'dsDefaultTableExpirationMs' +-- +-- * 'dsDescription' +dataSet + :: DataSet +dataSet = + DataSet' + { _dsCreationTime = Nothing + , _dsAccess = Nothing + , _dsEtag = Nothing + , _dsLocation = Nothing + , _dsFriendlyName = Nothing + , _dsKind = "bigquery#dataset" + , _dsLastModifiedTime = Nothing + , _dsDataSetReference = Nothing + , _dsSelfLink = Nothing + , _dsId = Nothing + , _dsDefaultTableExpirationMs = Nothing + , _dsDescription = Nothing + } + +-- | [Output-only] The time when this dataset was created, in milliseconds +-- since the epoch. +dsCreationTime :: Lens' DataSet (Maybe Int64) +dsCreationTime + = lens _dsCreationTime + (\ s a -> s{_dsCreationTime = a}) + . mapping _Coerce + +-- | [Optional] An array of objects that define dataset access for one or +-- more entities. You can set this property when inserting or updating a +-- dataset in order to control who is allowed to access the data. If +-- unspecified at dataset creation time, BigQuery adds default dataset +-- access for the following entities: access.specialGroup: projectReaders; +-- access.role: READER; access.specialGroup: projectWriters; access.role: +-- WRITER; access.specialGroup: projectOwners; access.role: OWNER; +-- access.userByEmail: [dataset creator email]; access.role: OWNER; +dsAccess :: Lens' DataSet [DataSetAccessItem] +dsAccess + = lens _dsAccess (\ s a -> s{_dsAccess = a}) . + _Default + . _Coerce + +-- | [Output-only] A hash of the resource. +dsEtag :: Lens' DataSet (Maybe Text) +dsEtag = lens _dsEtag (\ s a -> s{_dsEtag = a}) + +-- | [Experimental] The geographic location where the dataset should reside. +-- Possible values include EU and US. The default value is US. +dsLocation :: Lens' DataSet (Maybe Text) +dsLocation + = lens _dsLocation (\ s a -> s{_dsLocation = a}) + +-- | [Optional] A descriptive name for the dataset. +dsFriendlyName :: Lens' DataSet (Maybe Text) +dsFriendlyName + = lens _dsFriendlyName + (\ s a -> s{_dsFriendlyName = a}) + +-- | [Output-only] The resource type. +dsKind :: Lens' DataSet Text +dsKind = lens _dsKind (\ s a -> s{_dsKind = a}) + +-- | [Output-only] The date when this dataset or any of its tables was last +-- modified, in milliseconds since the epoch. +dsLastModifiedTime :: Lens' DataSet (Maybe Int64) +dsLastModifiedTime + = lens _dsLastModifiedTime + (\ s a -> s{_dsLastModifiedTime = a}) + . mapping _Coerce + +-- | [Required] A reference that identifies the dataset. +dsDataSetReference :: Lens' DataSet (Maybe DataSetReference) +dsDataSetReference + = lens _dsDataSetReference + (\ s a -> s{_dsDataSetReference = a}) + +-- | [Output-only] A URL that can be used to access the resource again. You +-- can use this URL in Get or Update requests to the resource. +dsSelfLink :: Lens' DataSet (Maybe Text) +dsSelfLink + = lens _dsSelfLink (\ s a -> s{_dsSelfLink = a}) + +-- | [Output-only] The fully-qualified unique name of the dataset in the +-- format projectId:datasetId. The dataset name without the project name is +-- given in the datasetId field. When creating a new dataset, leave this +-- field blank, and instead specify the datasetId field. +dsId :: Lens' DataSet (Maybe Text) +dsId = lens _dsId (\ s a -> s{_dsId = 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 +-- an expirationTime property set to the creation time plus the value in +-- this property, and changing the value will only affect new tables, not +-- existing ones. When the expirationTime for a given table is reached, +-- that table will be deleted automatically. If a table\'s expirationTime +-- is modified or removed before the table expires, or if you provide an +-- explicit expirationTime when creating a table, that value takes +-- precedence over the default expiration time indicated by this property. +dsDefaultTableExpirationMs :: Lens' DataSet (Maybe Int64) +dsDefaultTableExpirationMs + = lens _dsDefaultTableExpirationMs + (\ s a -> s{_dsDefaultTableExpirationMs = a}) + . mapping _Coerce + +-- | [Optional] A user-friendly description of the dataset. +dsDescription :: Lens' DataSet (Maybe Text) +dsDescription + = lens _dsDescription + (\ s a -> s{_dsDescription = a}) + +instance FromJSON DataSet where + parseJSON + = withObject "DataSet" + (\ o -> + DataSet' <$> + (o .:? "creationTime") <*> + (o .:? "access" .!= mempty) + <*> (o .:? "etag") + <*> (o .:? "location") + <*> (o .:? "friendlyName") + <*> (o .:? "kind" .!= "bigquery#dataset") + <*> (o .:? "lastModifiedTime") + <*> (o .:? "datasetReference") + <*> (o .:? "selfLink") + <*> (o .:? "id") + <*> (o .:? "defaultTableExpirationMs") + <*> (o .:? "description")) + +instance ToJSON DataSet where + toJSON DataSet'{..} + = object + (catMaybes + [("creationTime" .=) <$> _dsCreationTime, + ("access" .=) <$> _dsAccess, ("etag" .=) <$> _dsEtag, + ("location" .=) <$> _dsLocation, + ("friendlyName" .=) <$> _dsFriendlyName, + Just ("kind" .= _dsKind), + ("lastModifiedTime" .=) <$> _dsLastModifiedTime, + ("datasetReference" .=) <$> _dsDataSetReference, + ("selfLink" .=) <$> _dsSelfLink, ("id" .=) <$> _dsId, + ("defaultTableExpirationMs" .=) <$> + _dsDefaultTableExpirationMs, + ("description" .=) <$> _dsDescription]) + +-- +-- /See:/ 'bigtableOptions' smart constructor. +data BigtableOptions = BigtableOptions' + { _boIgnoreUnspecifiedColumnFamilies :: !(Maybe Bool) + , _boColumnFamilies :: !(Maybe [BigtableColumnFamily]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BigtableOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'boIgnoreUnspecifiedColumnFamilies' +-- +-- * 'boColumnFamilies' +bigtableOptions + :: BigtableOptions +bigtableOptions = + BigtableOptions' + { _boIgnoreUnspecifiedColumnFamilies = Nothing + , _boColumnFamilies = Nothing + } + +-- | [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 +-- false. +boIgnoreUnspecifiedColumnFamilies :: Lens' BigtableOptions (Maybe Bool) +boIgnoreUnspecifiedColumnFamilies + = lens _boIgnoreUnspecifiedColumnFamilies + (\ s a -> s{_boIgnoreUnspecifiedColumnFamilies = a}) + +-- | [Optional] List of column families to expose in the table schema along +-- with their types. This list restricts the column families that can be +-- referenced in queries and specifies their value types. You can use this +-- list to do type conversions - see the \'type\' field for more details. +-- If you leave this list empty, all column families are present in the +-- table schema and their values are read as BYTES. During a query only the +-- column families referenced in that query are read from Bigtable. +boColumnFamilies :: Lens' BigtableOptions [BigtableColumnFamily] +boColumnFamilies + = lens _boColumnFamilies + (\ s a -> s{_boColumnFamilies = a}) + . _Default + . _Coerce + +instance FromJSON BigtableOptions where + parseJSON + = withObject "BigtableOptions" + (\ o -> + BigtableOptions' <$> + (o .:? "ignoreUnspecifiedColumnFamilies") <*> + (o .:? "columnFamilies" .!= mempty)) + +instance ToJSON BigtableOptions where + toJSON BigtableOptions'{..} + = object + (catMaybes + [("ignoreUnspecifiedColumnFamilies" .=) <$> + _boIgnoreUnspecifiedColumnFamilies, + ("columnFamilies" .=) <$> _boColumnFamilies]) + +-- +-- /See:/ 'externalDataConfiguration' smart constructor. +data ExternalDataConfiguration = ExternalDataConfiguration' + { _edcBigtableOptions :: !(Maybe BigtableOptions) + , _edcIgnoreUnknownValues :: !(Maybe Bool) + , _edcCompression :: !(Maybe Text) + , _edcSourceFormat :: !(Maybe Text) + , _edcSchema :: !(Maybe TableSchema) + , _edcMaxBadRecords :: !(Maybe (Textual Int32)) + , _edcGoogleSheetsOptions :: !(Maybe GoogleSheetsOptions) + , _edcAutodetect :: !(Maybe Bool) + , _edcSourceURIs :: !(Maybe [Text]) + , _edcCSVOptions :: !(Maybe CSVOptions) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ExternalDataConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'edcBigtableOptions' +-- +-- * 'edcIgnoreUnknownValues' +-- +-- * 'edcCompression' +-- +-- * 'edcSourceFormat' +-- +-- * 'edcSchema' +-- +-- * 'edcMaxBadRecords' +-- +-- * 'edcGoogleSheetsOptions' +-- +-- * 'edcAutodetect' +-- +-- * 'edcSourceURIs' +-- +-- * 'edcCSVOptions' +externalDataConfiguration + :: ExternalDataConfiguration +externalDataConfiguration = + ExternalDataConfiguration' + { _edcBigtableOptions = Nothing + , _edcIgnoreUnknownValues = Nothing + , _edcCompression = Nothing + , _edcSourceFormat = Nothing + , _edcSchema = Nothing + , _edcMaxBadRecords = Nothing + , _edcGoogleSheetsOptions = Nothing + , _edcAutodetect = Nothing + , _edcSourceURIs = Nothing + , _edcCSVOptions = Nothing + } + +-- | [Optional] Additional options if sourceFormat is set to BIGTABLE. +edcBigtableOptions :: Lens' ExternalDataConfiguration (Maybe BigtableOptions) +edcBigtableOptions + = lens _edcBigtableOptions + (\ s a -> s{_edcBigtableOptions = a}) + +-- | [Optional] Indicates if BigQuery should allow extra values that are not +-- represented in the table schema. If true, the extra values are ignored. +-- If false, records with extra columns are treated as bad records, and if +-- there are too many bad records, an invalid error is returned in the job +-- result. The default value is false. The sourceFormat property determines +-- what BigQuery treats as an extra value: CSV: Trailing columns JSON: +-- Named values that don\'t match any column names Google Cloud Bigtable: +-- This setting is ignored. Google Cloud Datastore backups: This setting is +-- ignored. Avro: This setting is ignored. +edcIgnoreUnknownValues :: Lens' ExternalDataConfiguration (Maybe Bool) +edcIgnoreUnknownValues + = lens _edcIgnoreUnknownValues + (\ s a -> s{_edcIgnoreUnknownValues = a}) + +-- | [Optional] The compression type of the data source. Possible values +-- include GZIP and NONE. The default value is NONE. This setting is +-- ignored for Google Cloud Bigtable, Google Cloud Datastore backups and +-- Avro formats. +edcCompression :: Lens' ExternalDataConfiguration (Maybe Text) +edcCompression + = lens _edcCompression + (\ s a -> s{_edcCompression = a}) + +-- | [Required] The data format. For CSV files, specify \"CSV\". For Google +-- sheets, specify \"GOOGLE_SHEETS\". For newline-delimited JSON, specify +-- \"NEWLINE_DELIMITED_JSON\". For Avro files, specify \"AVRO\". For Google +-- Cloud Datastore backups, specify \"DATASTORE_BACKUP\". [Experimental] +-- For Google Cloud Bigtable, specify \"BIGTABLE\". Please note that +-- reading from Google Cloud Bigtable is experimental and has to be enabled +-- for your project. Please contact Google Cloud Support to enable this for +-- your project. +edcSourceFormat :: Lens' ExternalDataConfiguration (Maybe Text) +edcSourceFormat + = lens _edcSourceFormat + (\ s a -> s{_edcSourceFormat = a}) + +-- | [Optional] The schema for the data. Schema is required for CSV and JSON +-- formats. Schema is disallowed for Google Cloud Bigtable, Cloud Datastore +-- backups, and Avro formats. +edcSchema :: Lens' ExternalDataConfiguration (Maybe TableSchema) +edcSchema + = lens _edcSchema (\ s a -> s{_edcSchema = a}) + +-- | [Optional] The maximum number of bad records that BigQuery can ignore +-- when reading data. If the number of bad records exceeds this value, an +-- invalid error is returned in the job result. The default value is 0, +-- which requires that all records are valid. This setting is ignored for +-- Google Cloud Bigtable, Google Cloud Datastore backups and Avro formats. +edcMaxBadRecords :: Lens' ExternalDataConfiguration (Maybe Int32) +edcMaxBadRecords + = lens _edcMaxBadRecords + (\ s a -> s{_edcMaxBadRecords = a}) + . mapping _Coerce + +-- | [Optional] Additional options if sourceFormat is set to GOOGLE_SHEETS. +edcGoogleSheetsOptions :: Lens' ExternalDataConfiguration (Maybe GoogleSheetsOptions) +edcGoogleSheetsOptions + = lens _edcGoogleSheetsOptions + (\ s a -> s{_edcGoogleSheetsOptions = a}) + +-- | [Experimental] Try to detect schema and format options automatically. +-- Any option specified explicitly will be honored. +edcAutodetect :: Lens' ExternalDataConfiguration (Maybe Bool) +edcAutodetect + = lens _edcAutodetect + (\ s a -> s{_edcAutodetect = a}) + +-- | [Required] The fully-qualified URIs that point to your data in Google +-- Cloud. For Google Cloud Storage URIs: Each URI can contain one \'*\' +-- wildcard character and it must come after the \'bucket\' name. Size +-- limits related to load jobs apply to external data sources. For Google +-- Cloud Bigtable URIs: Exactly one URI can be specified and it has be a +-- fully specified and valid HTTPS URL for a Google Cloud Bigtable table. +-- For Google Cloud Datastore backups, exactly one URI can be specified, +-- and it must end with \'.backup_info\'. Also, the \'*\' wildcard +-- character is not allowed. +edcSourceURIs :: Lens' ExternalDataConfiguration [Text] +edcSourceURIs + = lens _edcSourceURIs + (\ s a -> s{_edcSourceURIs = a}) + . _Default + . _Coerce + +-- | Additional properties to set if sourceFormat is set to CSV. +edcCSVOptions :: Lens' ExternalDataConfiguration (Maybe CSVOptions) +edcCSVOptions + = lens _edcCSVOptions + (\ s a -> s{_edcCSVOptions = a}) + +instance FromJSON ExternalDataConfiguration where + parseJSON + = withObject "ExternalDataConfiguration" + (\ o -> + ExternalDataConfiguration' <$> + (o .:? "bigtableOptions") <*> + (o .:? "ignoreUnknownValues") + <*> (o .:? "compression") + <*> (o .:? "sourceFormat") + <*> (o .:? "schema") + <*> (o .:? "maxBadRecords") + <*> (o .:? "googleSheetsOptions") + <*> (o .:? "autodetect") + <*> (o .:? "sourceUris" .!= mempty) + <*> (o .:? "csvOptions")) + +instance ToJSON ExternalDataConfiguration where + toJSON ExternalDataConfiguration'{..} + = object + (catMaybes + [("bigtableOptions" .=) <$> _edcBigtableOptions, + ("ignoreUnknownValues" .=) <$> + _edcIgnoreUnknownValues, + ("compression" .=) <$> _edcCompression, + ("sourceFormat" .=) <$> _edcSourceFormat, + ("schema" .=) <$> _edcSchema, + ("maxBadRecords" .=) <$> _edcMaxBadRecords, + ("googleSheetsOptions" .=) <$> + _edcGoogleSheetsOptions, + ("autodetect" .=) <$> _edcAutodetect, + ("sourceUris" .=) <$> _edcSourceURIs, + ("csvOptions" .=) <$> _edcCSVOptions]) + +-- +-- /See:/ 'tableReference' smart constructor. +data TableReference = TableReference' + { _trDataSetId :: !(Maybe Text) + , _trProjectId :: !(Maybe Text) + , _trTableId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableReference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'trDataSetId' +-- +-- * 'trProjectId' +-- +-- * 'trTableId' +tableReference + :: TableReference +tableReference = + TableReference' + { _trDataSetId = Nothing + , _trProjectId = Nothing + , _trTableId = Nothing + } + +-- | [Required] The ID of the dataset containing this table. +trDataSetId :: Lens' TableReference (Maybe Text) +trDataSetId + = lens _trDataSetId (\ s a -> s{_trDataSetId = a}) + +-- | [Required] The ID of the project containing this table. +trProjectId :: Lens' TableReference (Maybe Text) +trProjectId + = lens _trProjectId (\ s a -> s{_trProjectId = a}) + +-- | [Required] The ID of the table. The ID must contain only letters (a-z, +-- A-Z), numbers (0-9), or underscores (_). The maximum length is 1,024 +-- characters. +trTableId :: Lens' TableReference (Maybe Text) +trTableId + = lens _trTableId (\ s a -> s{_trTableId = a}) + +instance FromJSON TableReference where + parseJSON + = withObject "TableReference" + (\ o -> + TableReference' <$> + (o .:? "datasetId") <*> (o .:? "projectId") <*> + (o .:? "tableId")) + +instance ToJSON TableReference where + toJSON TableReference'{..} + = object + (catMaybes + [("datasetId" .=) <$> _trDataSetId, + ("projectId" .=) <$> _trProjectId, + ("tableId" .=) <$> _trTableId]) + +-- +-- /See:/ 'tableFieldSchema' smart constructor. +data TableFieldSchema = TableFieldSchema' + { _tfsMode :: !(Maybe Text) + , _tfsName :: !(Maybe Text) + , _tfsType :: !(Maybe Text) + , _tfsDescription :: !(Maybe Text) + , _tfsFields :: !(Maybe [TableFieldSchema]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableFieldSchema' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tfsMode' +-- +-- * 'tfsName' +-- +-- * 'tfsType' +-- +-- * 'tfsDescription' +-- +-- * 'tfsFields' +tableFieldSchema + :: TableFieldSchema +tableFieldSchema = + TableFieldSchema' + { _tfsMode = Nothing + , _tfsName = Nothing + , _tfsType = Nothing + , _tfsDescription = Nothing + , _tfsFields = Nothing + } + +-- | [Optional] The field mode. Possible values include NULLABLE, REQUIRED +-- and REPEATED. The default value is NULLABLE. +tfsMode :: Lens' TableFieldSchema (Maybe Text) +tfsMode = lens _tfsMode (\ s a -> s{_tfsMode = a}) + +-- | [Required] The field name. The name must contain only letters (a-z, +-- A-Z), numbers (0-9), or underscores (_), and must start with a letter or +-- underscore. The maximum length is 128 characters. +tfsName :: Lens' TableFieldSchema (Maybe Text) +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). +tfsType :: Lens' TableFieldSchema (Maybe Text) +tfsType = lens _tfsType (\ s a -> s{_tfsType = a}) + +-- | [Optional] The field description. The maximum length is 16K characters. +tfsDescription :: Lens' TableFieldSchema (Maybe Text) +tfsDescription + = lens _tfsDescription + (\ s a -> s{_tfsDescription = a}) + +-- | [Optional] Describes the nested schema fields if the type property is +-- set to RECORD. +tfsFields :: Lens' TableFieldSchema [TableFieldSchema] +tfsFields + = lens _tfsFields (\ s a -> s{_tfsFields = a}) . + _Default + . _Coerce + +instance FromJSON TableFieldSchema where + parseJSON + = withObject "TableFieldSchema" + (\ o -> + TableFieldSchema' <$> + (o .:? "mode") <*> (o .:? "name") <*> (o .:? "type") + <*> (o .:? "description") + <*> (o .:? "fields" .!= mempty)) + +instance ToJSON TableFieldSchema where + toJSON TableFieldSchema'{..} + = object + (catMaybes + [("mode" .=) <$> _tfsMode, ("name" .=) <$> _tfsName, + ("type" .=) <$> _tfsType, + ("description" .=) <$> _tfsDescription, + ("fields" .=) <$> _tfsFields]) + +-- +-- /See:/ 'getQueryResultsResponse' smart constructor. +data GetQueryResultsResponse = GetQueryResultsResponse' + { _gqrrJobReference :: !(Maybe JobReference) + , _gqrrEtag :: !(Maybe Text) + , _gqrrKind :: !Text + , _gqrrSchema :: !(Maybe TableSchema) + , _gqrrTotalBytesProcessed :: !(Maybe (Textual Int64)) + , _gqrrRows :: !(Maybe [TableRow]) + , _gqrrPageToken :: !(Maybe Text) + , _gqrrTotalRows :: !(Maybe (Textual Word64)) + , _gqrrErrors :: !(Maybe [ErrorProto]) + , _gqrrJobComplete :: !(Maybe Bool) + , _gqrrCacheHit :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetQueryResultsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gqrrJobReference' +-- +-- * 'gqrrEtag' +-- +-- * 'gqrrKind' +-- +-- * 'gqrrSchema' +-- +-- * 'gqrrTotalBytesProcessed' +-- +-- * 'gqrrRows' +-- +-- * 'gqrrPageToken' +-- +-- * 'gqrrTotalRows' +-- +-- * 'gqrrErrors' +-- +-- * 'gqrrJobComplete' +-- +-- * 'gqrrCacheHit' +getQueryResultsResponse + :: GetQueryResultsResponse +getQueryResultsResponse = + GetQueryResultsResponse' + { _gqrrJobReference = Nothing + , _gqrrEtag = Nothing + , _gqrrKind = "bigquery#getQueryResultsResponse" + , _gqrrSchema = Nothing + , _gqrrTotalBytesProcessed = Nothing + , _gqrrRows = Nothing + , _gqrrPageToken = Nothing + , _gqrrTotalRows = Nothing + , _gqrrErrors = Nothing + , _gqrrJobComplete = Nothing + , _gqrrCacheHit = Nothing + } + +-- | Reference to the BigQuery Job that was created to run the query. This +-- field will be present even if the original request timed out, in which +-- case GetQueryResults can be used to read the results once the query has +-- completed. Since this API only returns the first page of results, +-- subsequent pages can be fetched via the same mechanism +-- (GetQueryResults). +gqrrJobReference :: Lens' GetQueryResultsResponse (Maybe JobReference) +gqrrJobReference + = lens _gqrrJobReference + (\ s a -> s{_gqrrJobReference = a}) + +-- | A hash of this response. +gqrrEtag :: Lens' GetQueryResultsResponse (Maybe Text) +gqrrEtag = lens _gqrrEtag (\ s a -> s{_gqrrEtag = a}) + +-- | The resource type of the response. +gqrrKind :: Lens' GetQueryResultsResponse Text +gqrrKind = lens _gqrrKind (\ s a -> s{_gqrrKind = a}) + +-- | The schema of the results. Present only when the query completes +-- successfully. +gqrrSchema :: Lens' GetQueryResultsResponse (Maybe TableSchema) +gqrrSchema + = lens _gqrrSchema (\ s a -> s{_gqrrSchema = a}) + +-- | The total number of bytes processed for this query. +gqrrTotalBytesProcessed :: Lens' GetQueryResultsResponse (Maybe Int64) +gqrrTotalBytesProcessed + = lens _gqrrTotalBytesProcessed + (\ s a -> s{_gqrrTotalBytesProcessed = a}) + . mapping _Coerce + +-- | An object with as many results as can be contained within the maximum +-- permitted reply size. To get any additional rows, you can call +-- GetQueryResults and specify the jobReference returned above. Present +-- only when the query completes successfully. +gqrrRows :: Lens' GetQueryResultsResponse [TableRow] +gqrrRows + = lens _gqrrRows (\ s a -> s{_gqrrRows = a}) . + _Default + . _Coerce + +-- | A token used for paging results. +gqrrPageToken :: Lens' GetQueryResultsResponse (Maybe Text) +gqrrPageToken + = lens _gqrrPageToken + (\ s a -> s{_gqrrPageToken = a}) + +-- | 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. +gqrrTotalRows :: Lens' GetQueryResultsResponse (Maybe Word64) +gqrrTotalRows + = lens _gqrrTotalRows + (\ s a -> s{_gqrrTotalRows = a}) + . mapping _Coerce + +-- | [Output-only] All errors and warnings encountered during the running of +-- the job. Errors here do not necessarily mean that the job has completed +-- or was unsuccessful. +gqrrErrors :: Lens' GetQueryResultsResponse [ErrorProto] +gqrrErrors + = lens _gqrrErrors (\ s a -> s{_gqrrErrors = a}) . + _Default + . _Coerce + +-- | Whether the query has completed or not. If rows or totalRows are +-- present, this will always be true. If this is false, totalRows will not +-- be available. +gqrrJobComplete :: Lens' GetQueryResultsResponse (Maybe Bool) +gqrrJobComplete + = lens _gqrrJobComplete + (\ s a -> s{_gqrrJobComplete = a}) + +-- | Whether the query result was fetched from the query cache. +gqrrCacheHit :: Lens' GetQueryResultsResponse (Maybe Bool) +gqrrCacheHit + = lens _gqrrCacheHit (\ s a -> s{_gqrrCacheHit = a}) + +instance FromJSON GetQueryResultsResponse where + parseJSON + = withObject "GetQueryResultsResponse" + (\ o -> + GetQueryResultsResponse' <$> + (o .:? "jobReference") <*> (o .:? "etag") <*> + (o .:? "kind" .!= "bigquery#getQueryResultsResponse") + <*> (o .:? "schema") + <*> (o .:? "totalBytesProcessed") + <*> (o .:? "rows" .!= mempty) + <*> (o .:? "pageToken") + <*> (o .:? "totalRows") + <*> (o .:? "errors" .!= mempty) + <*> (o .:? "jobComplete") + <*> (o .:? "cacheHit")) + +instance ToJSON GetQueryResultsResponse where + toJSON GetQueryResultsResponse'{..} + = object + (catMaybes + [("jobReference" .=) <$> _gqrrJobReference, + ("etag" .=) <$> _gqrrEtag, + Just ("kind" .= _gqrrKind), + ("schema" .=) <$> _gqrrSchema, + ("totalBytesProcessed" .=) <$> + _gqrrTotalBytesProcessed, + ("rows" .=) <$> _gqrrRows, + ("pageToken" .=) <$> _gqrrPageToken, + ("totalRows" .=) <$> _gqrrTotalRows, + ("errors" .=) <$> _gqrrErrors, + ("jobComplete" .=) <$> _gqrrJobComplete, + ("cacheHit" .=) <$> _gqrrCacheHit]) + +-- +-- /See:/ 'dataSetList' smart constructor. +data DataSetList = DataSetList' + { _dslEtag :: !(Maybe Text) + , _dslNextPageToken :: !(Maybe Text) + , _dslKind :: !Text + , _dslDataSets :: !(Maybe [DataSetListDataSetsItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dslEtag' +-- +-- * 'dslNextPageToken' +-- +-- * 'dslKind' +-- +-- * 'dslDataSets' +dataSetList + :: DataSetList +dataSetList = + DataSetList' + { _dslEtag = Nothing + , _dslNextPageToken = Nothing + , _dslKind = "bigquery#datasetList" + , _dslDataSets = Nothing + } + +-- | A hash value of the results page. You can use this property to determine +-- if the page has changed since the last request. +dslEtag :: Lens' DataSetList (Maybe Text) +dslEtag = lens _dslEtag (\ s a -> s{_dslEtag = a}) + +-- | A token that can be used to request the next results page. This property +-- is omitted on the final results page. +dslNextPageToken :: Lens' DataSetList (Maybe Text) +dslNextPageToken + = lens _dslNextPageToken + (\ s a -> s{_dslNextPageToken = a}) + +-- | The list type. This property always returns the value +-- \"bigquery#datasetList\". +dslKind :: Lens' DataSetList Text +dslKind = lens _dslKind (\ s a -> s{_dslKind = a}) + +-- | An array of the dataset resources in the project. Each resource contains +-- basic information. For full information about a particular dataset +-- resource, use the Datasets: get method. This property is omitted when +-- there are no datasets in the project. +dslDataSets :: Lens' DataSetList [DataSetListDataSetsItem] +dslDataSets + = lens _dslDataSets (\ s a -> s{_dslDataSets = a}) . + _Default + . _Coerce + +instance FromJSON DataSetList where + parseJSON + = withObject "DataSetList" + (\ o -> + DataSetList' <$> + (o .:? "etag") <*> (o .:? "nextPageToken") <*> + (o .:? "kind" .!= "bigquery#datasetList") + <*> (o .:? "datasets" .!= mempty)) + +instance ToJSON DataSetList where + toJSON DataSetList'{..} + = object + (catMaybes + [("etag" .=) <$> _dslEtag, + ("nextPageToken" .=) <$> _dslNextPageToken, + Just ("kind" .= _dslKind), + ("datasets" .=) <$> _dslDataSets]) + +-- +-- /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) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qrUseQueryCache' +-- +-- * 'qrPreserveNulls' +-- +-- * 'qrKind' +-- +-- * 'qrQuery' +-- +-- * 'qrTimeoutMs' +-- +-- * 'qrUseLegacySQL' +-- +-- * 'qrDryRun' +-- +-- * 'qrMaxResults' +-- +-- * 'qrDefaultDataSet' +queryRequest + :: QueryRequest +queryRequest = + QueryRequest' + { _qrUseQueryCache = True + , _qrPreserveNulls = Nothing + , _qrKind = "bigquery#queryRequest" + , _qrQuery = Nothing + , _qrTimeoutMs = Nothing + , _qrUseLegacySQL = Nothing + , _qrDryRun = Nothing + , _qrMaxResults = Nothing + , _qrDefaultDataSet = Nothing + } + +-- | [Optional] Whether to look for the result in the query cache. The query +-- cache is a best-effort cache that will be flushed whenever tables in the +-- query are modified. The default value is true. +qrUseQueryCache :: Lens' QueryRequest Bool +qrUseQueryCache + = lens _qrUseQueryCache + (\ s a -> s{_qrUseQueryCache = a}) + +-- | [Deprecated] This property is deprecated. +qrPreserveNulls :: Lens' QueryRequest (Maybe Bool) +qrPreserveNulls + = lens _qrPreserveNulls + (\ s a -> s{_qrPreserveNulls = a}) + +-- | The resource type of the request. +qrKind :: Lens' QueryRequest Text +qrKind = lens _qrKind (\ s a -> s{_qrKind = a}) + +-- | [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}) + +-- | [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 +-- than the timeout value, the call returns without any results and with +-- the \'jobComplete\' flag set to false. You can call GetQueryResults() to +-- wait for the query to complete and read the results. The default value +-- is 10000 milliseconds (10 seconds). +qrTimeoutMs :: Lens' QueryRequest (Maybe Word32) +qrTimeoutMs + = 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: +-- 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 +-- flattenResults is false. +qrUseLegacySQL :: Lens' QueryRequest (Maybe Bool) +qrUseLegacySQL + = lens _qrUseLegacySQL + (\ s a -> s{_qrUseLegacySQL = a}) + +-- | [Optional] If set to true, BigQuery doesn\'t run the job. Instead, if +-- the query is valid, BigQuery returns statistics about the job such as +-- how many bytes would be processed. If the query is invalid, an error +-- returns. The default value is false. +qrDryRun :: Lens' QueryRequest (Maybe Bool) +qrDryRun = lens _qrDryRun (\ s a -> s{_qrDryRun = a}) + +-- | [Optional] The maximum number of rows of data to return per page of +-- results. Setting this flag to a small value such as 1000 and then paging +-- through results might improve reliability when the query result set is +-- large. In addition to this limit, responses are also limited to 10 MB. +-- By default, there is no maximum row count, and only the byte limit +-- applies. +qrMaxResults :: Lens' QueryRequest (Maybe Word32) +qrMaxResults + = lens _qrMaxResults (\ s a -> s{_qrMaxResults = a}) + . mapping _Coerce + +-- | [Optional] Specifies the default datasetId and projectId to assume for +-- any unqualified table names in the query. If not set, all table names in +-- the query string must be qualified in the format \'datasetId.tableId\'. +qrDefaultDataSet :: Lens' QueryRequest (Maybe DataSetReference) +qrDefaultDataSet + = lens _qrDefaultDataSet + (\ s a -> s{_qrDefaultDataSet = a}) + +instance FromJSON QueryRequest where + parseJSON + = withObject "QueryRequest" + (\ o -> + QueryRequest' <$> + (o .:? "useQueryCache" .!= True) <*> + (o .:? "preserveNulls") + <*> (o .:? "kind" .!= "bigquery#queryRequest") + <*> (o .:? "query") + <*> (o .:? "timeoutMs") + <*> (o .:? "useLegacySql") + <*> (o .:? "dryRun") + <*> (o .:? "maxResults") + <*> (o .:? "defaultDataset")) + +instance ToJSON QueryRequest where + toJSON QueryRequest'{..} + = object + (catMaybes + [Just ("useQueryCache" .= _qrUseQueryCache), + ("preserveNulls" .=) <$> _qrPreserveNulls, + Just ("kind" .= _qrKind), ("query" .=) <$> _qrQuery, + ("timeoutMs" .=) <$> _qrTimeoutMs, + ("useLegacySql" .=) <$> _qrUseLegacySQL, + ("dryRun" .=) <$> _qrDryRun, + ("maxResults" .=) <$> _qrMaxResults, + ("defaultDataset" .=) <$> _qrDefaultDataSet]) + +-- +-- /See:/ 'jobStatistics4' smart constructor. +newtype JobStatistics4 = JobStatistics4' + { _jsDestinationURIFileCounts :: Maybe [Textual Int64] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobStatistics4' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jsDestinationURIFileCounts' +jobStatistics4 + :: JobStatistics4 +jobStatistics4 = + JobStatistics4' + { _jsDestinationURIFileCounts = Nothing + } + +-- | [Output-only] Number of files per destination URI or URI pattern +-- specified in the extract configuration. These values will be in the same +-- order as the URIs specified in the \'destinationUris\' field. +jsDestinationURIFileCounts :: Lens' JobStatistics4 [Int64] +jsDestinationURIFileCounts + = lens _jsDestinationURIFileCounts + (\ s a -> s{_jsDestinationURIFileCounts = a}) + . _Default + . _Coerce + +instance FromJSON JobStatistics4 where + parseJSON + = withObject "JobStatistics4" + (\ o -> + JobStatistics4' <$> + (o .:? "destinationUriFileCounts" .!= mempty)) + +instance ToJSON JobStatistics4 where + toJSON JobStatistics4'{..} + = object + (catMaybes + [("destinationUriFileCounts" .=) <$> + _jsDestinationURIFileCounts]) + +-- +-- /See:/ 'projectReference' smart constructor. +newtype ProjectReference = ProjectReference' + { _prProjectId :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectReference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prProjectId' +projectReference + :: ProjectReference +projectReference = + ProjectReference' + { _prProjectId = Nothing + } + +-- | [Required] ID of the project. Can be either the numeric ID or the +-- assigned ID of the project. +prProjectId :: Lens' ProjectReference (Maybe Text) +prProjectId + = lens _prProjectId (\ s a -> s{_prProjectId = a}) + +instance FromJSON ProjectReference where + parseJSON + = withObject "ProjectReference" + (\ o -> ProjectReference' <$> (o .:? "projectId")) + +instance ToJSON ProjectReference where + toJSON ProjectReference'{..} + = object + (catMaybes [("projectId" .=) <$> _prProjectId]) + +-- +-- /See:/ 'explainQueryStage' smart constructor. +data ExplainQueryStage = ExplainQueryStage' + { _eqsWaitRatioMax :: !(Maybe (Textual Double)) + , _eqsRecordsWritten :: !(Maybe (Textual Int64)) + , _eqsSteps :: !(Maybe [ExplainQueryStep]) + , _eqsWriteRatioAvg :: !(Maybe (Textual Double)) + , _eqsRecordsRead :: !(Maybe (Textual Int64)) + , _eqsComputeRatioAvg :: !(Maybe (Textual Double)) + , _eqsName :: !(Maybe Text) + , _eqsReadRatioMax :: !(Maybe (Textual Double)) + , _eqsWaitRatioAvg :: !(Maybe (Textual Double)) + , _eqsId :: !(Maybe (Textual Int64)) + , _eqsComputeRatioMax :: !(Maybe (Textual Double)) + , _eqsWriteRatioMax :: !(Maybe (Textual Double)) + , _eqsReadRatioAvg :: !(Maybe (Textual Double)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ExplainQueryStage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eqsWaitRatioMax' +-- +-- * 'eqsRecordsWritten' +-- +-- * 'eqsSteps' +-- +-- * 'eqsWriteRatioAvg' +-- +-- * 'eqsRecordsRead' +-- +-- * 'eqsComputeRatioAvg' +-- +-- * 'eqsName' +-- +-- * 'eqsReadRatioMax' +-- +-- * 'eqsWaitRatioAvg' +-- +-- * 'eqsId' +-- +-- * 'eqsComputeRatioMax' +-- +-- * 'eqsWriteRatioMax' +-- +-- * 'eqsReadRatioAvg' +explainQueryStage + :: ExplainQueryStage +explainQueryStage = + ExplainQueryStage' + { _eqsWaitRatioMax = Nothing + , _eqsRecordsWritten = Nothing + , _eqsSteps = Nothing + , _eqsWriteRatioAvg = Nothing + , _eqsRecordsRead = Nothing + , _eqsComputeRatioAvg = Nothing + , _eqsName = Nothing + , _eqsReadRatioMax = Nothing + , _eqsWaitRatioAvg = Nothing + , _eqsId = Nothing + , _eqsComputeRatioMax = Nothing + , _eqsWriteRatioMax = Nothing + , _eqsReadRatioAvg = Nothing + } + +-- | Relative amount of time the slowest shard spent waiting to be scheduled. +eqsWaitRatioMax :: Lens' ExplainQueryStage (Maybe Double) +eqsWaitRatioMax + = lens _eqsWaitRatioMax + (\ s a -> s{_eqsWaitRatioMax = a}) + . mapping _Coerce + +-- | Number of records written by the stage. +eqsRecordsWritten :: Lens' ExplainQueryStage (Maybe Int64) +eqsRecordsWritten + = lens _eqsRecordsWritten + (\ s a -> s{_eqsRecordsWritten = a}) + . mapping _Coerce + +-- | List of operations within the stage in dependency order (approximately +-- chronological). +eqsSteps :: Lens' ExplainQueryStage [ExplainQueryStep] +eqsSteps + = lens _eqsSteps (\ s a -> s{_eqsSteps = a}) . + _Default + . _Coerce + +-- | Relative amount of time the average shard spent on writing output. +eqsWriteRatioAvg :: Lens' ExplainQueryStage (Maybe Double) +eqsWriteRatioAvg + = lens _eqsWriteRatioAvg + (\ s a -> s{_eqsWriteRatioAvg = a}) + . mapping _Coerce + +-- | Number of records read into the stage. +eqsRecordsRead :: Lens' ExplainQueryStage (Maybe Int64) +eqsRecordsRead + = lens _eqsRecordsRead + (\ s a -> s{_eqsRecordsRead = a}) + . mapping _Coerce + +-- | Relative amount of time the average shard spent on CPU-bound tasks. +eqsComputeRatioAvg :: Lens' ExplainQueryStage (Maybe Double) +eqsComputeRatioAvg + = lens _eqsComputeRatioAvg + (\ s a -> s{_eqsComputeRatioAvg = a}) + . mapping _Coerce + +-- | Human-readable name for stage. +eqsName :: Lens' ExplainQueryStage (Maybe Text) +eqsName = lens _eqsName (\ s a -> s{_eqsName = a}) + +-- | Relative amount of time the slowest shard spent reading input. +eqsReadRatioMax :: Lens' ExplainQueryStage (Maybe Double) +eqsReadRatioMax + = lens _eqsReadRatioMax + (\ s a -> s{_eqsReadRatioMax = a}) + . mapping _Coerce + +-- | Relative amount of time the average shard spent waiting to be scheduled. +eqsWaitRatioAvg :: Lens' ExplainQueryStage (Maybe Double) +eqsWaitRatioAvg + = lens _eqsWaitRatioAvg + (\ s a -> s{_eqsWaitRatioAvg = a}) + . mapping _Coerce + +-- | Unique ID for stage within plan. +eqsId :: Lens' ExplainQueryStage (Maybe Int64) +eqsId + = lens _eqsId (\ s a -> s{_eqsId = a}) . + mapping _Coerce + +-- | Relative amount of time the slowest shard spent on CPU-bound tasks. +eqsComputeRatioMax :: Lens' ExplainQueryStage (Maybe Double) +eqsComputeRatioMax + = lens _eqsComputeRatioMax + (\ s a -> s{_eqsComputeRatioMax = a}) + . mapping _Coerce + +-- | Relative amount of time the slowest shard spent on writing output. +eqsWriteRatioMax :: Lens' ExplainQueryStage (Maybe Double) +eqsWriteRatioMax + = lens _eqsWriteRatioMax + (\ s a -> s{_eqsWriteRatioMax = a}) + . mapping _Coerce + +-- | Relative amount of time the average shard spent reading input. +eqsReadRatioAvg :: Lens' ExplainQueryStage (Maybe Double) +eqsReadRatioAvg + = lens _eqsReadRatioAvg + (\ s a -> s{_eqsReadRatioAvg = a}) + . mapping _Coerce + +instance FromJSON ExplainQueryStage where + parseJSON + = withObject "ExplainQueryStage" + (\ o -> + ExplainQueryStage' <$> + (o .:? "waitRatioMax") <*> (o .:? "recordsWritten") + <*> (o .:? "steps" .!= mempty) + <*> (o .:? "writeRatioAvg") + <*> (o .:? "recordsRead") + <*> (o .:? "computeRatioAvg") + <*> (o .:? "name") + <*> (o .:? "readRatioMax") + <*> (o .:? "waitRatioAvg") + <*> (o .:? "id") + <*> (o .:? "computeRatioMax") + <*> (o .:? "writeRatioMax") + <*> (o .:? "readRatioAvg")) + +instance ToJSON ExplainQueryStage where + toJSON ExplainQueryStage'{..} + = object + (catMaybes + [("waitRatioMax" .=) <$> _eqsWaitRatioMax, + ("recordsWritten" .=) <$> _eqsRecordsWritten, + ("steps" .=) <$> _eqsSteps, + ("writeRatioAvg" .=) <$> _eqsWriteRatioAvg, + ("recordsRead" .=) <$> _eqsRecordsRead, + ("computeRatioAvg" .=) <$> _eqsComputeRatioAvg, + ("name" .=) <$> _eqsName, + ("readRatioMax" .=) <$> _eqsReadRatioMax, + ("waitRatioAvg" .=) <$> _eqsWaitRatioAvg, + ("id" .=) <$> _eqsId, + ("computeRatioMax" .=) <$> _eqsComputeRatioMax, + ("writeRatioMax" .=) <$> _eqsWriteRatioMax, + ("readRatioAvg" .=) <$> _eqsReadRatioAvg]) + +-- +-- /See:/ 'jobConfigurationLoad' smart constructor. +data JobConfigurationLoad = JobConfigurationLoad' + { _jclSkipLeadingRows :: !(Maybe (Textual Int32)) + , _jclProjectionFields :: !(Maybe [Text]) + , _jclDestinationTable :: !(Maybe TableReference) + , _jclWriteDisPosition :: !(Maybe Text) + , _jclAllowJaggedRows :: !(Maybe Bool) + , _jclSchemaInline :: !(Maybe Text) + , _jclIgnoreUnknownValues :: !(Maybe Bool) + , _jclCreateDisPosition :: !(Maybe Text) + , _jclSchemaInlineFormat :: !(Maybe Text) + , _jclAllowQuotedNewlines :: !(Maybe Bool) + , _jclSourceFormat :: !(Maybe Text) + , _jclSchema :: !(Maybe TableSchema) + , _jclQuote :: !Text + , _jclMaxBadRecords :: !(Maybe (Textual Int32)) + , _jclAutodetect :: !(Maybe Bool) + , _jclSourceURIs :: !(Maybe [Text]) + , _jclEncoding :: !(Maybe Text) + , _jclFieldDelimiter :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationLoad' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jclSkipLeadingRows' +-- +-- * 'jclProjectionFields' +-- +-- * 'jclDestinationTable' +-- +-- * 'jclWriteDisPosition' +-- +-- * 'jclAllowJaggedRows' +-- +-- * 'jclSchemaInline' +-- +-- * 'jclIgnoreUnknownValues' +-- +-- * 'jclCreateDisPosition' +-- +-- * 'jclSchemaInlineFormat' +-- +-- * 'jclAllowQuotedNewlines' +-- +-- * 'jclSourceFormat' +-- +-- * 'jclSchema' +-- +-- * 'jclQuote' +-- +-- * 'jclMaxBadRecords' +-- +-- * 'jclAutodetect' +-- +-- * 'jclSourceURIs' +-- +-- * 'jclEncoding' +-- +-- * 'jclFieldDelimiter' +jobConfigurationLoad + :: JobConfigurationLoad +jobConfigurationLoad = + JobConfigurationLoad' + { _jclSkipLeadingRows = Nothing + , _jclProjectionFields = Nothing + , _jclDestinationTable = Nothing + , _jclWriteDisPosition = Nothing + , _jclAllowJaggedRows = Nothing + , _jclSchemaInline = Nothing + , _jclIgnoreUnknownValues = Nothing + , _jclCreateDisPosition = Nothing + , _jclSchemaInlineFormat = Nothing + , _jclAllowQuotedNewlines = Nothing + , _jclSourceFormat = Nothing + , _jclSchema = Nothing + , _jclQuote = "\"" + , _jclMaxBadRecords = Nothing + , _jclAutodetect = Nothing + , _jclSourceURIs = Nothing + , _jclEncoding = Nothing + , _jclFieldDelimiter = Nothing + } + +-- | [Optional] The number of rows at the top of a CSV file that BigQuery +-- will skip when loading the data. The default value is 0. This property +-- is useful if you have header rows in the file that should be skipped. +jclSkipLeadingRows :: Lens' JobConfigurationLoad (Maybe Int32) +jclSkipLeadingRows + = lens _jclSkipLeadingRows + (\ s a -> s{_jclSkipLeadingRows = a}) + . mapping _Coerce + +-- | [Experimental] If sourceFormat is set to \"DATASTORE_BACKUP\", indicates +-- which entity properties to load into BigQuery from a Cloud Datastore +-- backup. Property names are case sensitive and must be top-level +-- properties. If no properties are specified, BigQuery loads all +-- properties. If any named property isn\'t found in the Cloud Datastore +-- backup, an invalid error is returned in the job result. +jclProjectionFields :: Lens' JobConfigurationLoad [Text] +jclProjectionFields + = lens _jclProjectionFields + (\ s a -> s{_jclProjectionFields = a}) + . _Default + . _Coerce + +-- | [Required] The destination table to load the data into. +jclDestinationTable :: Lens' JobConfigurationLoad (Maybe TableReference) +jclDestinationTable + = lens _jclDestinationTable + (\ s a -> s{_jclDestinationTable = a}) + +-- | [Optional] Specifies the action that occurs if the destination table +-- already exists. The following values are supported: WRITE_TRUNCATE: If +-- the table already exists, BigQuery overwrites the table data. +-- WRITE_APPEND: If the table already exists, BigQuery appends the data to +-- the table. WRITE_EMPTY: If the table already exists and contains data, a +-- \'duplicate\' error is returned in the job result. The default value is +-- WRITE_APPEND. Each action is atomic and only occurs if BigQuery is able +-- to complete the job successfully. Creation, truncation and append +-- actions occur as one atomic update upon job completion. +jclWriteDisPosition :: Lens' JobConfigurationLoad (Maybe Text) +jclWriteDisPosition + = lens _jclWriteDisPosition + (\ s a -> s{_jclWriteDisPosition = a}) + +-- | [Optional] Accept rows that are missing trailing optional columns. The +-- missing values are treated as nulls. If false, records with missing +-- trailing columns are treated as bad records, and if there are too many +-- bad records, an invalid error is returned in the job result. The default +-- value is false. Only applicable to CSV, ignored for other formats. +jclAllowJaggedRows :: Lens' JobConfigurationLoad (Maybe Bool) +jclAllowJaggedRows + = lens _jclAllowJaggedRows + (\ s a -> s{_jclAllowJaggedRows = a}) + +-- | [Deprecated] The inline schema. For CSV schemas, specify as +-- \"Field1:Type1[,Field2:Type2]*\". For example, \"foo:STRING, +-- bar:INTEGER, baz:FLOAT\". +jclSchemaInline :: Lens' JobConfigurationLoad (Maybe Text) +jclSchemaInline + = lens _jclSchemaInline + (\ s a -> s{_jclSchemaInline = a}) + +-- | [Optional] Indicates if BigQuery should allow extra values that are not +-- represented in the table schema. If true, the extra values are ignored. +-- If false, records with extra columns are treated as bad records, and if +-- there are too many bad records, an invalid error is returned in the job +-- result. The default value is false. The sourceFormat property determines +-- what BigQuery treats as an extra value: CSV: Trailing columns JSON: +-- Named values that don\'t match any column names +jclIgnoreUnknownValues :: Lens' JobConfigurationLoad (Maybe Bool) +jclIgnoreUnknownValues + = lens _jclIgnoreUnknownValues + (\ s a -> s{_jclIgnoreUnknownValues = a}) + +-- | [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 +-- already exist. If it does not, a \'notFound\' error is returned in the +-- job result. The default value is CREATE_IF_NEEDED. Creation, truncation +-- and append actions occur as one atomic update upon job completion. +jclCreateDisPosition :: Lens' JobConfigurationLoad (Maybe Text) +jclCreateDisPosition + = lens _jclCreateDisPosition + (\ s a -> s{_jclCreateDisPosition = a}) + +-- | [Deprecated] The format of the schemaInline property. +jclSchemaInlineFormat :: Lens' JobConfigurationLoad (Maybe Text) +jclSchemaInlineFormat + = lens _jclSchemaInlineFormat + (\ s a -> s{_jclSchemaInlineFormat = a}) + +-- | Indicates if BigQuery should allow quoted data sections that contain +-- newline characters in a CSV file. The default value is false. +jclAllowQuotedNewlines :: Lens' JobConfigurationLoad (Maybe Bool) +jclAllowQuotedNewlines + = lens _jclAllowQuotedNewlines + (\ s a -> s{_jclAllowQuotedNewlines = a}) + +-- | [Optional] The format of the data files. For CSV files, specify \"CSV\". +-- For datastore backups, specify \"DATASTORE_BACKUP\". For +-- newline-delimited JSON, specify \"NEWLINE_DELIMITED_JSON\". For Avro, +-- specify \"AVRO\". The default value is CSV. +jclSourceFormat :: Lens' JobConfigurationLoad (Maybe Text) +jclSourceFormat + = lens _jclSourceFormat + (\ s a -> s{_jclSourceFormat = a}) + +-- | [Optional] The schema for the destination table. The schema can be +-- omitted if the destination table already exists, or if you\'re loading +-- data from Google Cloud Datastore. +jclSchema :: Lens' JobConfigurationLoad (Maybe TableSchema) +jclSchema + = lens _jclSchema (\ s a -> s{_jclSchema = a}) + +-- | [Optional] The value that is used to quote data sections in a CSV file. +-- BigQuery converts the string to ISO-8859-1 encoding, and then uses the +-- first byte of the encoded string to split the data in its raw, binary +-- state. The default value is a double-quote (\'\"\'). If your data does +-- 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 _jclQuote (\ s a -> s{_jclQuote = a}) + +-- | [Optional] The maximum number of bad records that BigQuery can ignore +-- when running the job. If the number of bad records exceeds this value, +-- an invalid error is returned in the job result. The default value is 0, +-- which requires that all records are valid. +jclMaxBadRecords :: Lens' JobConfigurationLoad (Maybe Int32) +jclMaxBadRecords + = lens _jclMaxBadRecords + (\ s a -> s{_jclMaxBadRecords = a}) + . mapping _Coerce + +-- | [Experimental] Indicates if we should automatically infer the options +-- and schema for CSV and JSON sources. +jclAutodetect :: Lens' JobConfigurationLoad (Maybe Bool) +jclAutodetect + = lens _jclAutodetect + (\ s a -> s{_jclAutodetect = a}) + +-- | [Required] The fully-qualified URIs that point to your data in Google +-- Cloud Storage. Each URI can contain one \'*\' wildcard character and it +-- must come after the \'bucket\' name. +jclSourceURIs :: Lens' JobConfigurationLoad [Text] +jclSourceURIs + = lens _jclSourceURIs + (\ s a -> s{_jclSourceURIs = a}) + . _Default + . _Coerce + +-- | [Optional] The character encoding of the data. The supported values are +-- UTF-8 or ISO-8859-1. The default value is UTF-8. BigQuery decodes the +-- data after the raw, binary data has been split using the values of the +-- quote and fieldDelimiter properties. +jclEncoding :: Lens' JobConfigurationLoad (Maybe Text) +jclEncoding + = lens _jclEncoding (\ s a -> s{_jclEncoding = a}) + +-- | [Optional] The separator for fields in a CSV file. The separator can be +-- any ISO-8859-1 single-byte character. To use a character in the range +-- 128-255, you must encode the character as UTF8. BigQuery converts the +-- string to ISO-8859-1 encoding, and then uses the first byte of the +-- encoded string to split the data in its raw, binary state. BigQuery also +-- supports the escape sequence \"\\t\" to specify a tab separator. The +-- default value is a comma (\',\'). +jclFieldDelimiter :: Lens' JobConfigurationLoad (Maybe Text) +jclFieldDelimiter + = lens _jclFieldDelimiter + (\ s a -> s{_jclFieldDelimiter = a}) + +instance FromJSON JobConfigurationLoad where + parseJSON + = withObject "JobConfigurationLoad" + (\ o -> + JobConfigurationLoad' <$> + (o .:? "skipLeadingRows") <*> + (o .:? "projectionFields" .!= mempty) + <*> (o .:? "destinationTable") + <*> (o .:? "writeDisposition") + <*> (o .:? "allowJaggedRows") + <*> (o .:? "schemaInline") + <*> (o .:? "ignoreUnknownValues") + <*> (o .:? "createDisposition") + <*> (o .:? "schemaInlineFormat") + <*> (o .:? "allowQuotedNewlines") + <*> (o .:? "sourceFormat") + <*> (o .:? "schema") + <*> (o .:? "quote" .!= "\"") + <*> (o .:? "maxBadRecords") + <*> (o .:? "autodetect") + <*> (o .:? "sourceUris" .!= mempty) + <*> (o .:? "encoding") + <*> (o .:? "fieldDelimiter")) + +instance ToJSON JobConfigurationLoad where + toJSON JobConfigurationLoad'{..} + = object + (catMaybes + [("skipLeadingRows" .=) <$> _jclSkipLeadingRows, + ("projectionFields" .=) <$> _jclProjectionFields, + ("destinationTable" .=) <$> _jclDestinationTable, + ("writeDisposition" .=) <$> _jclWriteDisPosition, + ("allowJaggedRows" .=) <$> _jclAllowJaggedRows, + ("schemaInline" .=) <$> _jclSchemaInline, + ("ignoreUnknownValues" .=) <$> + _jclIgnoreUnknownValues, + ("createDisposition" .=) <$> _jclCreateDisPosition, + ("schemaInlineFormat" .=) <$> _jclSchemaInlineFormat, + ("allowQuotedNewlines" .=) <$> + _jclAllowQuotedNewlines, + ("sourceFormat" .=) <$> _jclSourceFormat, + ("schema" .=) <$> _jclSchema, + Just ("quote" .= _jclQuote), + ("maxBadRecords" .=) <$> _jclMaxBadRecords, + ("autodetect" .=) <$> _jclAutodetect, + ("sourceUris" .=) <$> _jclSourceURIs, + ("encoding" .=) <$> _jclEncoding, + ("fieldDelimiter" .=) <$> _jclFieldDelimiter]) + +-- +-- /See:/ 'dataSetReference' smart constructor. +data DataSetReference = DataSetReference' + { _dsrDataSetId :: !(Maybe Text) + , _dsrProjectId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetReference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsrDataSetId' +-- +-- * 'dsrProjectId' +dataSetReference + :: DataSetReference +dataSetReference = + DataSetReference' + { _dsrDataSetId = Nothing + , _dsrProjectId = Nothing + } + +-- | [Required] A unique ID for this dataset, without the project name. The +-- ID must contain only letters (a-z, A-Z), numbers (0-9), or underscores +-- (_). The maximum length is 1,024 characters. +dsrDataSetId :: Lens' DataSetReference (Maybe Text) +dsrDataSetId + = lens _dsrDataSetId (\ s a -> s{_dsrDataSetId = a}) + +-- | [Optional] The ID of the project containing this dataset. +dsrProjectId :: Lens' DataSetReference (Maybe Text) +dsrProjectId + = lens _dsrProjectId (\ s a -> s{_dsrProjectId = a}) + +instance FromJSON DataSetReference where + parseJSON + = withObject "DataSetReference" + (\ o -> + DataSetReference' <$> + (o .:? "datasetId") <*> (o .:? "projectId")) + +instance ToJSON DataSetReference where + toJSON DataSetReference'{..} + = object + (catMaybes + [("datasetId" .=) <$> _dsrDataSetId, + ("projectId" .=) <$> _dsrProjectId]) + +-- +-- /See:/ 'tableDataInsertAllRequest' smart constructor. +data TableDataInsertAllRequest = TableDataInsertAllRequest' + { _tdiarKind :: !Text + , _tdiarIgnoreUnknownValues :: !(Maybe Bool) + , _tdiarRows :: !(Maybe [TableDataInsertAllRequestRowsItem]) + , _tdiarTemplateSuffix :: !(Maybe Text) + , _tdiarSkipInvalidRows :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableDataInsertAllRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdiarKind' +-- +-- * 'tdiarIgnoreUnknownValues' +-- +-- * 'tdiarRows' +-- +-- * 'tdiarTemplateSuffix' +-- +-- * 'tdiarSkipInvalidRows' +tableDataInsertAllRequest + :: TableDataInsertAllRequest +tableDataInsertAllRequest = + TableDataInsertAllRequest' + { _tdiarKind = "bigquery#tableDataInsertAllRequest" + , _tdiarIgnoreUnknownValues = Nothing + , _tdiarRows = Nothing + , _tdiarTemplateSuffix = Nothing + , _tdiarSkipInvalidRows = Nothing + } + +-- | The resource type of the response. +tdiarKind :: Lens' TableDataInsertAllRequest Text +tdiarKind + = lens _tdiarKind (\ s a -> s{_tdiarKind = a}) + +-- | [Optional] Accept rows that contain values that do not match the schema. +-- The unknown values are ignored. Default is false, which treats unknown +-- values as errors. +tdiarIgnoreUnknownValues :: Lens' TableDataInsertAllRequest (Maybe Bool) +tdiarIgnoreUnknownValues + = lens _tdiarIgnoreUnknownValues + (\ s a -> s{_tdiarIgnoreUnknownValues = a}) + +-- | The rows to insert. +tdiarRows :: Lens' TableDataInsertAllRequest [TableDataInsertAllRequestRowsItem] +tdiarRows + = lens _tdiarRows (\ s a -> s{_tdiarRows = a}) . + _Default + . _Coerce + +-- | [Experimental] If specified, treats the destination table as a base +-- template, and inserts the rows into an instance table named +-- \"{destination}{templateSuffix}\". BigQuery will manage creation of the +-- instance table, using the schema of the base template table. See +-- https:\/\/cloud.google.com\/bigquery\/streaming-data-into-bigquery#template-tables +-- for considerations when working with templates tables. +tdiarTemplateSuffix :: Lens' TableDataInsertAllRequest (Maybe Text) +tdiarTemplateSuffix + = lens _tdiarTemplateSuffix + (\ s a -> s{_tdiarTemplateSuffix = a}) + +-- | [Optional] Insert all valid rows of a request, even if invalid rows +-- exist. The default value is false, which causes the entire request to +-- fail if any invalid rows exist. +tdiarSkipInvalidRows :: Lens' TableDataInsertAllRequest (Maybe Bool) +tdiarSkipInvalidRows + = lens _tdiarSkipInvalidRows + (\ s a -> s{_tdiarSkipInvalidRows = a}) + +instance FromJSON TableDataInsertAllRequest where + parseJSON + = withObject "TableDataInsertAllRequest" + (\ o -> + TableDataInsertAllRequest' <$> + (o .:? "kind" .!= + "bigquery#tableDataInsertAllRequest") + <*> (o .:? "ignoreUnknownValues") + <*> (o .:? "rows" .!= mempty) + <*> (o .:? "templateSuffix") + <*> (o .:? "skipInvalidRows")) + +instance ToJSON TableDataInsertAllRequest where + toJSON TableDataInsertAllRequest'{..} + = object + (catMaybes + [Just ("kind" .= _tdiarKind), + ("ignoreUnknownValues" .=) <$> + _tdiarIgnoreUnknownValues, + ("rows" .=) <$> _tdiarRows, + ("templateSuffix" .=) <$> _tdiarTemplateSuffix, + ("skipInvalidRows" .=) <$> _tdiarSkipInvalidRows]) + +-- +-- /See:/ 'projectListProjectsItem' smart constructor. +data ProjectListProjectsItem = ProjectListProjectsItem' + { _plpiFriendlyName :: !(Maybe Text) + , _plpiKind :: !Text + , _plpiProjectReference :: !(Maybe ProjectReference) + , _plpiId :: !(Maybe Text) + , _plpiNumericId :: !(Maybe (Textual Word64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectListProjectsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plpiFriendlyName' +-- +-- * 'plpiKind' +-- +-- * 'plpiProjectReference' +-- +-- * 'plpiId' +-- +-- * 'plpiNumericId' +projectListProjectsItem + :: ProjectListProjectsItem +projectListProjectsItem = + ProjectListProjectsItem' + { _plpiFriendlyName = Nothing + , _plpiKind = "bigquery#project" + , _plpiProjectReference = Nothing + , _plpiId = Nothing + , _plpiNumericId = Nothing + } + +-- | A descriptive name for this project. +plpiFriendlyName :: Lens' ProjectListProjectsItem (Maybe Text) +plpiFriendlyName + = lens _plpiFriendlyName + (\ s a -> s{_plpiFriendlyName = a}) + +-- | The resource type. +plpiKind :: Lens' ProjectListProjectsItem Text +plpiKind = lens _plpiKind (\ s a -> s{_plpiKind = a}) + +-- | A unique reference to this project. +plpiProjectReference :: Lens' ProjectListProjectsItem (Maybe ProjectReference) +plpiProjectReference + = lens _plpiProjectReference + (\ s a -> s{_plpiProjectReference = a}) + +-- | An opaque ID of this project. +plpiId :: Lens' ProjectListProjectsItem (Maybe Text) +plpiId = lens _plpiId (\ s a -> s{_plpiId = a}) + +-- | The numeric ID of this project. +plpiNumericId :: Lens' ProjectListProjectsItem (Maybe Word64) +plpiNumericId + = lens _plpiNumericId + (\ s a -> s{_plpiNumericId = a}) + . mapping _Coerce + +instance FromJSON ProjectListProjectsItem where + parseJSON + = withObject "ProjectListProjectsItem" + (\ o -> + ProjectListProjectsItem' <$> + (o .:? "friendlyName") <*> + (o .:? "kind" .!= "bigquery#project") + <*> (o .:? "projectReference") + <*> (o .:? "id") + <*> (o .:? "numericId")) + +instance ToJSON ProjectListProjectsItem where + toJSON ProjectListProjectsItem'{..} + = object + (catMaybes + [("friendlyName" .=) <$> _plpiFriendlyName, + Just ("kind" .= _plpiKind), + ("projectReference" .=) <$> _plpiProjectReference, + ("id" .=) <$> _plpiId, + ("numericId" .=) <$> _plpiNumericId]) + +-- +-- /See:/ 'bigtableColumn' smart constructor. +data BigtableColumn = BigtableColumn' + { _bcQualifierEncoded :: !(Maybe Base64) + , _bcFieldName :: !(Maybe Text) + , _bcQualifierString :: !(Maybe Text) + , _bcOnlyReadLatest :: !(Maybe Bool) + , _bcType :: !(Maybe Text) + , _bcEncoding :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BigtableColumn' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bcQualifierEncoded' +-- +-- * 'bcFieldName' +-- +-- * 'bcQualifierString' +-- +-- * 'bcOnlyReadLatest' +-- +-- * 'bcType' +-- +-- * 'bcEncoding' +bigtableColumn + :: BigtableColumn +bigtableColumn = + BigtableColumn' + { _bcQualifierEncoded = Nothing + , _bcFieldName = Nothing + , _bcQualifierString = Nothing + , _bcOnlyReadLatest = Nothing + , _bcType = Nothing + , _bcEncoding = Nothing + } + +-- | [Required] Qualifier of the column. Columns in the parent column family +-- that has this exact qualifier are exposed as . field. If the qualifier +-- is valid UTF-8 string, it can be specified in the qualifier_string +-- field. Otherwise, a base-64 encoded value must be set to +-- qualifier_encoded. The column field name is the same as the column +-- qualifier. However, 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 provided as field_name. +bcQualifierEncoded :: Lens' BigtableColumn (Maybe ByteString) +bcQualifierEncoded + = lens _bcQualifierEncoded + (\ s a -> s{_bcQualifierEncoded = a}) + . mapping _Base64 + +-- | [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 +-- provided as the column field name and is used as field name in queries. +bcFieldName :: Lens' BigtableColumn (Maybe Text) +bcFieldName + = lens _bcFieldName (\ s a -> s{_bcFieldName = a}) + +bcQualifierString :: Lens' BigtableColumn (Maybe Text) +bcQualifierString + = lens _bcQualifierString + (\ s a -> s{_bcQualifierString = a}) + +-- | [Optional] If this is set, only the latest version of value in this +-- column are exposed. \'onlyReadLatest\' can also be set at the column +-- family level. However, the setting at this level takes precedence if +-- \'onlyReadLatest\' is set at both levels. +bcOnlyReadLatest :: Lens' BigtableColumn (Maybe Bool) +bcOnlyReadLatest + = lens _bcOnlyReadLatest + (\ s a -> s{_bcOnlyReadLatest = a}) + +-- | [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 +-- 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. +bcType :: Lens' BigtableColumn (Maybe Text) +bcType = lens _bcType (\ s a -> s{_bcType = a}) + +-- | [Optional] The encoding of the values when the type is not STRING. +-- Acceptable encoding values are: TEXT - indicates values are alphanumeric +-- text strings. BINARY - indicates values are encoded using HBase +-- Bytes.toBytes family of functions. \'encoding\' can also be set at the +-- column family level. However, the setting at this level takes precedence +-- if \'encoding\' is set at both levels. +bcEncoding :: Lens' BigtableColumn (Maybe Text) +bcEncoding + = lens _bcEncoding (\ s a -> s{_bcEncoding = a}) + +instance FromJSON BigtableColumn where + parseJSON + = withObject "BigtableColumn" + (\ o -> + BigtableColumn' <$> + (o .:? "qualifierEncoded") <*> (o .:? "fieldName") + <*> (o .:? "qualifierString") + <*> (o .:? "onlyReadLatest") + <*> (o .:? "type") + <*> (o .:? "encoding")) + +instance ToJSON BigtableColumn where + toJSON BigtableColumn'{..} + = object + (catMaybes + [("qualifierEncoded" .=) <$> _bcQualifierEncoded, + ("fieldName" .=) <$> _bcFieldName, + ("qualifierString" .=) <$> _bcQualifierString, + ("onlyReadLatest" .=) <$> _bcOnlyReadLatest, + ("type" .=) <$> _bcType, + ("encoding" .=) <$> _bcEncoding]) + +-- +-- /See:/ 'streamingbuffer' smart constructor. +data Streamingbuffer = Streamingbuffer' + { _sEstimatedBytes :: !(Maybe (Textual Word64)) + , _sOldestEntryTime :: !(Maybe (Textual Word64)) + , _sEstimatedRows :: !(Maybe (Textual Word64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Streamingbuffer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sEstimatedBytes' +-- +-- * 'sOldestEntryTime' +-- +-- * 'sEstimatedRows' +streamingbuffer + :: Streamingbuffer +streamingbuffer = + Streamingbuffer' + { _sEstimatedBytes = Nothing + , _sOldestEntryTime = Nothing + , _sEstimatedRows = Nothing + } + +-- | [Output-only] A lower-bound estimate of the number of bytes currently in +-- the streaming buffer. +sEstimatedBytes :: Lens' Streamingbuffer (Maybe Word64) +sEstimatedBytes + = lens _sEstimatedBytes + (\ s a -> s{_sEstimatedBytes = a}) + . mapping _Coerce + +-- | [Output-only] Contains the timestamp of the oldest entry in the +-- streaming buffer, in milliseconds since the epoch, if the streaming +-- buffer is available. +sOldestEntryTime :: Lens' Streamingbuffer (Maybe Word64) +sOldestEntryTime + = lens _sOldestEntryTime + (\ s a -> s{_sOldestEntryTime = a}) + . mapping _Coerce + +-- | [Output-only] A lower-bound estimate of the number of rows currently in +-- the streaming buffer. +sEstimatedRows :: Lens' Streamingbuffer (Maybe Word64) +sEstimatedRows + = lens _sEstimatedRows + (\ s a -> s{_sEstimatedRows = a}) + . mapping _Coerce + +instance FromJSON Streamingbuffer where + parseJSON + = withObject "Streamingbuffer" + (\ o -> + Streamingbuffer' <$> + (o .:? "estimatedBytes") <*> + (o .:? "oldestEntryTime") + <*> (o .:? "estimatedRows")) + +instance ToJSON Streamingbuffer where + toJSON Streamingbuffer'{..} + = object + (catMaybes + [("estimatedBytes" .=) <$> _sEstimatedBytes, + ("oldestEntryTime" .=) <$> _sOldestEntryTime, + ("estimatedRows" .=) <$> _sEstimatedRows]) + +-- +-- /See:/ 'tableRow' smart constructor. +newtype TableRow = TableRow' + { _trF :: Maybe [TableCell] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableRow' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'trF' +tableRow + :: TableRow +tableRow = + TableRow' + { _trF = Nothing + } + +-- | Represents a single row in the result set, consisting of one or more +-- fields. +trF :: Lens' TableRow [TableCell] +trF + = lens _trF (\ s a -> s{_trF = a}) . _Default . + _Coerce + +instance FromJSON TableRow where + parseJSON + = withObject "TableRow" + (\ o -> TableRow' <$> (o .:? "f" .!= mempty)) + +instance ToJSON TableRow where + toJSON TableRow'{..} + = object (catMaybes [("f" .=) <$> _trF]) + +-- +-- /See:/ 'jobListJobsItem' smart constructor. +data JobListJobsItem = JobListJobsItem' + { _jljiJobReference :: !(Maybe JobReference) + , _jljiStatus :: !(Maybe JobStatus) + , _jljiState :: !(Maybe Text) + , _jljiUserEmail :: !(Maybe Text) + , _jljiKind :: !Text + , _jljiErrorResult :: !(Maybe ErrorProto) + , _jljiId :: !(Maybe Text) + , _jljiStatistics :: !(Maybe JobStatistics) + , _jljiConfiguration :: !(Maybe JobConfiguration) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobListJobsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jljiJobReference' +-- +-- * 'jljiStatus' +-- +-- * 'jljiState' +-- +-- * 'jljiUserEmail' +-- +-- * 'jljiKind' +-- +-- * 'jljiErrorResult' +-- +-- * 'jljiId' +-- +-- * 'jljiStatistics' +-- +-- * 'jljiConfiguration' +jobListJobsItem + :: JobListJobsItem +jobListJobsItem = + JobListJobsItem' + { _jljiJobReference = Nothing + , _jljiStatus = Nothing + , _jljiState = Nothing + , _jljiUserEmail = Nothing + , _jljiKind = "bigquery#job" + , _jljiErrorResult = Nothing + , _jljiId = Nothing + , _jljiStatistics = Nothing + , _jljiConfiguration = Nothing + } + +-- | Job reference uniquely identifying the job. +jljiJobReference :: Lens' JobListJobsItem (Maybe JobReference) +jljiJobReference + = lens _jljiJobReference + (\ s a -> s{_jljiJobReference = a}) + +-- | [Full-projection-only] Describes the state of the job. +jljiStatus :: Lens' JobListJobsItem (Maybe JobStatus) +jljiStatus + = lens _jljiStatus (\ s a -> s{_jljiStatus = a}) + +-- | Running state of the job. When the state is DONE, errorResult can be +-- checked to determine whether the job succeeded or failed. +jljiState :: Lens' JobListJobsItem (Maybe Text) +jljiState + = lens _jljiState (\ s a -> s{_jljiState = a}) + +-- | [Full-projection-only] Email address of the user who ran the job. +jljiUserEmail :: Lens' JobListJobsItem (Maybe Text) +jljiUserEmail + = lens _jljiUserEmail + (\ s a -> s{_jljiUserEmail = a}) + +-- | The resource type. +jljiKind :: Lens' JobListJobsItem Text +jljiKind = lens _jljiKind (\ s a -> s{_jljiKind = a}) + +-- | A result object that will be present only if the job has failed. +jljiErrorResult :: Lens' JobListJobsItem (Maybe ErrorProto) +jljiErrorResult + = lens _jljiErrorResult + (\ s a -> s{_jljiErrorResult = a}) + +-- | Unique opaque ID of the job. +jljiId :: Lens' JobListJobsItem (Maybe Text) +jljiId = lens _jljiId (\ s a -> s{_jljiId = a}) + +-- | [Output-only] Information about the job, including starting time and +-- ending time of the job. +jljiStatistics :: Lens' JobListJobsItem (Maybe JobStatistics) +jljiStatistics + = lens _jljiStatistics + (\ s a -> s{_jljiStatistics = a}) + +-- | [Full-projection-only] Specifies the job configuration. +jljiConfiguration :: Lens' JobListJobsItem (Maybe JobConfiguration) +jljiConfiguration + = lens _jljiConfiguration + (\ s a -> s{_jljiConfiguration = a}) + +instance FromJSON JobListJobsItem where + parseJSON + = withObject "JobListJobsItem" + (\ o -> + JobListJobsItem' <$> + (o .:? "jobReference") <*> (o .:? "status") <*> + (o .:? "state") + <*> (o .:? "user_email") + <*> (o .:? "kind" .!= "bigquery#job") + <*> (o .:? "errorResult") + <*> (o .:? "id") + <*> (o .:? "statistics") + <*> (o .:? "configuration")) + +instance ToJSON JobListJobsItem where + toJSON JobListJobsItem'{..} + = object + (catMaybes + [("jobReference" .=) <$> _jljiJobReference, + ("status" .=) <$> _jljiStatus, + ("state" .=) <$> _jljiState, + ("user_email" .=) <$> _jljiUserEmail, + Just ("kind" .= _jljiKind), + ("errorResult" .=) <$> _jljiErrorResult, + ("id" .=) <$> _jljiId, + ("statistics" .=) <$> _jljiStatistics, + ("configuration" .=) <$> _jljiConfiguration]) + +-- +-- /See:/ 'timePartitioning' smart constructor. +data TimePartitioning = TimePartitioning' + { _tpExpirationMs :: !(Maybe (Textual Int64)) + , _tpType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TimePartitioning' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tpExpirationMs' +-- +-- * 'tpType' +timePartitioning + :: TimePartitioning +timePartitioning = + TimePartitioning' + { _tpExpirationMs = Nothing + , _tpType = Nothing + } + +-- | [Optional] Number of milliseconds for which to keep the storage for a +-- partition. +tpExpirationMs :: Lens' TimePartitioning (Maybe Int64) +tpExpirationMs + = lens _tpExpirationMs + (\ s a -> s{_tpExpirationMs = a}) + . mapping _Coerce + +-- | [Required] The only type supported is DAY, which will generate one +-- partition per day based on data loading time. +tpType :: Lens' TimePartitioning (Maybe Text) +tpType = lens _tpType (\ s a -> s{_tpType = a}) + +instance FromJSON TimePartitioning where + parseJSON + = withObject "TimePartitioning" + (\ o -> + TimePartitioning' <$> + (o .:? "expirationMs") <*> (o .:? "type")) + +instance ToJSON TimePartitioning where + toJSON TimePartitioning'{..} + = object + (catMaybes + [("expirationMs" .=) <$> _tpExpirationMs, + ("type" .=) <$> _tpType]) + +-- +-- /See:/ 'jobConfiguration' smart constructor. +data JobConfiguration = JobConfiguration' + { _jcCopy :: !(Maybe JobConfigurationTableCopy) + , _jcLoad :: !(Maybe JobConfigurationLoad) + , _jcQuery :: !(Maybe JobConfigurationQuery) + , _jcExtract :: !(Maybe JobConfigurationExtract) + , _jcDryRun :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jcCopy' +-- +-- * 'jcLoad' +-- +-- * 'jcQuery' +-- +-- * 'jcExtract' +-- +-- * 'jcDryRun' +jobConfiguration + :: JobConfiguration +jobConfiguration = + JobConfiguration' + { _jcCopy = Nothing + , _jcLoad = Nothing + , _jcQuery = Nothing + , _jcExtract = Nothing + , _jcDryRun = Nothing + } + +-- | [Pick one] Copies a table. +jcCopy :: Lens' JobConfiguration (Maybe JobConfigurationTableCopy) +jcCopy = lens _jcCopy (\ s a -> s{_jcCopy = a}) + +-- | [Pick one] Configures a load job. +jcLoad :: Lens' JobConfiguration (Maybe JobConfigurationLoad) +jcLoad = lens _jcLoad (\ s a -> s{_jcLoad = a}) + +-- | [Pick one] Configures a query job. +jcQuery :: Lens' JobConfiguration (Maybe JobConfigurationQuery) +jcQuery = lens _jcQuery (\ s a -> s{_jcQuery = a}) + +-- | [Pick one] Configures an extract job. +jcExtract :: Lens' JobConfiguration (Maybe JobConfigurationExtract) +jcExtract + = lens _jcExtract (\ s a -> s{_jcExtract = 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 +-- run. Behavior of non-query jobs is undefined. +jcDryRun :: Lens' JobConfiguration (Maybe Bool) +jcDryRun = lens _jcDryRun (\ s a -> s{_jcDryRun = a}) + +instance FromJSON JobConfiguration where + parseJSON + = withObject "JobConfiguration" + (\ o -> + JobConfiguration' <$> + (o .:? "copy") <*> (o .:? "load") <*> (o .:? "query") + <*> (o .:? "extract") + <*> (o .:? "dryRun")) + +instance ToJSON JobConfiguration where + toJSON JobConfiguration'{..} + = object + (catMaybes + [("copy" .=) <$> _jcCopy, ("load" .=) <$> _jcLoad, + ("query" .=) <$> _jcQuery, + ("extract" .=) <$> _jcExtract, + ("dryRun" .=) <$> _jcDryRun]) + +-- +-- /See:/ 'job' smart constructor. +data Job = Job' + { _jJobReference :: !(Maybe JobReference) + , _jStatus :: !(Maybe JobStatus) + , _jEtag :: !(Maybe Text) + , _jUserEmail :: !(Maybe Text) + , _jKind :: !Text + , _jSelfLink :: !(Maybe Text) + , _jId :: !(Maybe Text) + , _jStatistics :: !(Maybe JobStatistics) + , _jConfiguration :: !(Maybe JobConfiguration) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Job' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jJobReference' +-- +-- * 'jStatus' +-- +-- * 'jEtag' +-- +-- * 'jUserEmail' +-- +-- * 'jKind' +-- +-- * 'jSelfLink' +-- +-- * 'jId' +-- +-- * 'jStatistics' +-- +-- * 'jConfiguration' +job + :: Job +job = + Job' + { _jJobReference = Nothing + , _jStatus = Nothing + , _jEtag = Nothing + , _jUserEmail = Nothing + , _jKind = "bigquery#job" + , _jSelfLink = Nothing + , _jId = Nothing + , _jStatistics = Nothing + , _jConfiguration = Nothing + } + +-- | [Optional] Reference describing the unique-per-user name of the job. +jJobReference :: Lens' Job (Maybe JobReference) +jJobReference + = lens _jJobReference + (\ s a -> s{_jJobReference = a}) + +-- | [Output-only] The status of this job. Examine this value when polling an +-- asynchronous job to see if the job is complete. +jStatus :: Lens' Job (Maybe JobStatus) +jStatus = lens _jStatus (\ s a -> s{_jStatus = a}) + +-- | [Output-only] A hash of this resource. +jEtag :: Lens' Job (Maybe Text) +jEtag = lens _jEtag (\ s a -> s{_jEtag = a}) + +-- | [Output-only] Email address of the user who ran the job. +jUserEmail :: Lens' Job (Maybe Text) +jUserEmail + = lens _jUserEmail (\ s a -> s{_jUserEmail = a}) + +-- | [Output-only] The type of the resource. +jKind :: Lens' Job Text +jKind = lens _jKind (\ s a -> s{_jKind = a}) + +-- | [Output-only] A URL that can be used to access this resource again. +jSelfLink :: Lens' Job (Maybe Text) +jSelfLink + = lens _jSelfLink (\ s a -> s{_jSelfLink = a}) + +-- | [Output-only] Opaque ID field of the job +jId :: Lens' Job (Maybe Text) +jId = lens _jId (\ s a -> s{_jId = a}) + +-- | [Output-only] Information about the job, including starting time and +-- ending time of the job. +jStatistics :: Lens' Job (Maybe JobStatistics) +jStatistics + = lens _jStatistics (\ s a -> s{_jStatistics = a}) + +-- | [Required] Describes the job configuration. +jConfiguration :: Lens' Job (Maybe JobConfiguration) +jConfiguration + = lens _jConfiguration + (\ s a -> s{_jConfiguration = a}) + +instance FromJSON Job where + parseJSON + = withObject "Job" + (\ o -> + Job' <$> + (o .:? "jobReference") <*> (o .:? "status") <*> + (o .:? "etag") + <*> (o .:? "user_email") + <*> (o .:? "kind" .!= "bigquery#job") + <*> (o .:? "selfLink") + <*> (o .:? "id") + <*> (o .:? "statistics") + <*> (o .:? "configuration")) + +instance ToJSON Job where + toJSON Job'{..} + = object + (catMaybes + [("jobReference" .=) <$> _jJobReference, + ("status" .=) <$> _jStatus, ("etag" .=) <$> _jEtag, + ("user_email" .=) <$> _jUserEmail, + Just ("kind" .= _jKind), + ("selfLink" .=) <$> _jSelfLink, ("id" .=) <$> _jId, + ("statistics" .=) <$> _jStatistics, + ("configuration" .=) <$> _jConfiguration]) + +-- +-- /See:/ 'tableDataInsertAllResponseInsertErrorsItem' smart constructor. +data TableDataInsertAllResponseInsertErrorsItem = TableDataInsertAllResponseInsertErrorsItem' + { _tdiarieiErrors :: !(Maybe [ErrorProto]) + , _tdiarieiIndex :: !(Maybe (Textual Word32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableDataInsertAllResponseInsertErrorsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdiarieiErrors' +-- +-- * 'tdiarieiIndex' +tableDataInsertAllResponseInsertErrorsItem + :: TableDataInsertAllResponseInsertErrorsItem +tableDataInsertAllResponseInsertErrorsItem = + TableDataInsertAllResponseInsertErrorsItem' + { _tdiarieiErrors = Nothing + , _tdiarieiIndex = Nothing + } + +-- | Error information for the row indicated by the index property. +tdiarieiErrors :: Lens' TableDataInsertAllResponseInsertErrorsItem [ErrorProto] +tdiarieiErrors + = lens _tdiarieiErrors + (\ s a -> s{_tdiarieiErrors = a}) + . _Default + . _Coerce + +-- | The index of the row that error applies to. +tdiarieiIndex :: Lens' TableDataInsertAllResponseInsertErrorsItem (Maybe Word32) +tdiarieiIndex + = lens _tdiarieiIndex + (\ s a -> s{_tdiarieiIndex = a}) + . mapping _Coerce + +instance FromJSON + TableDataInsertAllResponseInsertErrorsItem where + parseJSON + = withObject + "TableDataInsertAllResponseInsertErrorsItem" + (\ o -> + TableDataInsertAllResponseInsertErrorsItem' <$> + (o .:? "errors" .!= mempty) <*> (o .:? "index")) + +instance ToJSON + TableDataInsertAllResponseInsertErrorsItem where + toJSON + TableDataInsertAllResponseInsertErrorsItem'{..} + = object + (catMaybes + [("errors" .=) <$> _tdiarieiErrors, + ("index" .=) <$> _tdiarieiIndex]) + +-- +-- /See:/ 'jobConfigurationExtract' smart constructor. +data JobConfigurationExtract = JobConfigurationExtract' + { _jceDestinationFormat :: !(Maybe Text) + , _jceSourceTable :: !(Maybe TableReference) + , _jcePrintHeader :: !Bool + , _jceCompression :: !(Maybe Text) + , _jceDestinationURIs :: !(Maybe [Text]) + , _jceDestinationURI :: !(Maybe Text) + , _jceFieldDelimiter :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationExtract' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jceDestinationFormat' +-- +-- * 'jceSourceTable' +-- +-- * 'jcePrintHeader' +-- +-- * 'jceCompression' +-- +-- * 'jceDestinationURIs' +-- +-- * 'jceDestinationURI' +-- +-- * 'jceFieldDelimiter' +jobConfigurationExtract + :: JobConfigurationExtract +jobConfigurationExtract = + JobConfigurationExtract' + { _jceDestinationFormat = Nothing + , _jceSourceTable = Nothing + , _jcePrintHeader = True + , _jceCompression = Nothing + , _jceDestinationURIs = Nothing + , _jceDestinationURI = Nothing + , _jceFieldDelimiter = Nothing + } + +-- | [Optional] The exported file format. Possible values include CSV, +-- NEWLINE_DELIMITED_JSON and AVRO. The default value is CSV. Tables with +-- nested or repeated fields cannot be exported as CSV. +jceDestinationFormat :: Lens' JobConfigurationExtract (Maybe Text) +jceDestinationFormat + = lens _jceDestinationFormat + (\ s a -> s{_jceDestinationFormat = a}) + +-- | [Required] A reference to the table being exported. +jceSourceTable :: Lens' JobConfigurationExtract (Maybe TableReference) +jceSourceTable + = lens _jceSourceTable + (\ s a -> s{_jceSourceTable = a}) + +-- | [Optional] Whether to print out a header row in the results. Default is +-- true. +jcePrintHeader :: Lens' JobConfigurationExtract Bool +jcePrintHeader + = lens _jcePrintHeader + (\ s a -> s{_jcePrintHeader = a}) + +-- | [Optional] The compression type to use for exported files. Possible +-- values include GZIP and NONE. The default value is NONE. +jceCompression :: Lens' JobConfigurationExtract (Maybe Text) +jceCompression + = lens _jceCompression + (\ s a -> s{_jceCompression = a}) + +-- | [Pick one] A list of fully-qualified Google Cloud Storage URIs where the +-- extracted table should be written. +jceDestinationURIs :: Lens' JobConfigurationExtract [Text] +jceDestinationURIs + = lens _jceDestinationURIs + (\ s a -> s{_jceDestinationURIs = a}) + . _Default + . _Coerce + +-- | [Pick one] DEPRECATED: Use destinationUris instead, passing only one URI +-- as necessary. The fully-qualified Google Cloud Storage URI where the +-- extracted table should be written. +jceDestinationURI :: Lens' JobConfigurationExtract (Maybe Text) +jceDestinationURI + = lens _jceDestinationURI + (\ s a -> s{_jceDestinationURI = a}) + +-- | [Optional] Delimiter to use between fields in the exported data. Default +-- is \',\' +jceFieldDelimiter :: Lens' JobConfigurationExtract (Maybe Text) +jceFieldDelimiter + = lens _jceFieldDelimiter + (\ s a -> s{_jceFieldDelimiter = a}) + +instance FromJSON JobConfigurationExtract where + parseJSON + = withObject "JobConfigurationExtract" + (\ o -> + JobConfigurationExtract' <$> + (o .:? "destinationFormat") <*> (o .:? "sourceTable") + <*> (o .:? "printHeader" .!= True) + <*> (o .:? "compression") + <*> (o .:? "destinationUris" .!= mempty) + <*> (o .:? "destinationUri") + <*> (o .:? "fieldDelimiter")) + +instance ToJSON JobConfigurationExtract where + toJSON JobConfigurationExtract'{..} + = object + (catMaybes + [("destinationFormat" .=) <$> _jceDestinationFormat, + ("sourceTable" .=) <$> _jceSourceTable, + Just ("printHeader" .= _jcePrintHeader), + ("compression" .=) <$> _jceCompression, + ("destinationUris" .=) <$> _jceDestinationURIs, + ("destinationUri" .=) <$> _jceDestinationURI, + ("fieldDelimiter" .=) <$> _jceFieldDelimiter]) + +-- +-- /See:/ 'jobCancelResponse' smart constructor. +data JobCancelResponse = JobCancelResponse' + { _jcrKind :: !Text + , _jcrJob :: !(Maybe Job) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobCancelResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jcrKind' +-- +-- * 'jcrJob' +jobCancelResponse + :: JobCancelResponse +jobCancelResponse = + JobCancelResponse' + { _jcrKind = "bigquery#jobCancelResponse" + , _jcrJob = Nothing + } + +-- | The resource type of the response. +jcrKind :: Lens' JobCancelResponse Text +jcrKind = lens _jcrKind (\ s a -> s{_jcrKind = a}) + +-- | The final state of the job. +jcrJob :: Lens' JobCancelResponse (Maybe Job) +jcrJob = lens _jcrJob (\ s a -> s{_jcrJob = a}) + +instance FromJSON JobCancelResponse where + parseJSON + = withObject "JobCancelResponse" + (\ o -> + JobCancelResponse' <$> + (o .:? "kind" .!= "bigquery#jobCancelResponse") <*> + (o .:? "job")) + +instance ToJSON JobCancelResponse where + toJSON JobCancelResponse'{..} + = object + (catMaybes + [Just ("kind" .= _jcrKind), ("job" .=) <$> _jcrJob]) + +-- | Represents a single JSON object. +-- +-- /See:/ 'jsonObject' smart constructor. +newtype JSONObject = JSONObject' + { _joAddtional :: HashMap Text JSONValue + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JSONObject' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'joAddtional' +jsonObject + :: HashMap Text JSONValue -- ^ 'joAddtional' + -> JSONObject +jsonObject pJoAddtional_ = + JSONObject' + { _joAddtional = _Coerce # pJoAddtional_ + } + +joAddtional :: Lens' JSONObject (HashMap Text JSONValue) +joAddtional + = lens _joAddtional (\ s a -> s{_joAddtional = a}) . + _Coerce + +instance FromJSON JSONObject where + parseJSON + = withObject "JSONObject" + (\ o -> JSONObject' <$> (parseJSONObject o)) + +instance ToJSON JSONObject where + toJSON = toJSON . _joAddtional + +-- +-- /See:/ 'jobConfigurationQuery' smart constructor. +data JobConfigurationQuery = JobConfigurationQuery' + { _jcqDestinationTable :: !(Maybe TableReference) + , _jcqWriteDisPosition :: !(Maybe Text) + , _jcqPriority :: !(Maybe Text) + , _jcqUseQueryCache :: !Bool + , _jcqPreserveNulls :: !(Maybe Bool) + , _jcqTableDefinitions :: !(Maybe JobConfigurationQueryTableDefinitions) + , _jcqCreateDisPosition :: !(Maybe Text) + , _jcqUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource]) + , _jcqAllowLargeResults :: !(Maybe Bool) + , _jcqMaximumBillingTier :: !(Textual Int32) + , _jcqQuery :: !(Maybe Text) + , _jcqFlattenResults :: !Bool + , _jcqUseLegacySQL :: !(Maybe Bool) + , _jcqDefaultDataSet :: !(Maybe DataSetReference) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationQuery' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jcqDestinationTable' +-- +-- * 'jcqWriteDisPosition' +-- +-- * 'jcqPriority' +-- +-- * 'jcqUseQueryCache' +-- +-- * 'jcqPreserveNulls' +-- +-- * 'jcqTableDefinitions' +-- +-- * 'jcqCreateDisPosition' +-- +-- * 'jcqUserDefinedFunctionResources' +-- +-- * 'jcqAllowLargeResults' +-- +-- * 'jcqMaximumBillingTier' +-- +-- * 'jcqQuery' +-- +-- * 'jcqFlattenResults' +-- +-- * 'jcqUseLegacySQL' +-- +-- * 'jcqDefaultDataSet' +jobConfigurationQuery + :: JobConfigurationQuery +jobConfigurationQuery = + JobConfigurationQuery' + { _jcqDestinationTable = Nothing + , _jcqWriteDisPosition = Nothing + , _jcqPriority = Nothing + , _jcqUseQueryCache = True + , _jcqPreserveNulls = Nothing + , _jcqTableDefinitions = Nothing + , _jcqCreateDisPosition = Nothing + , _jcqUserDefinedFunctionResources = Nothing + , _jcqAllowLargeResults = Nothing + , _jcqMaximumBillingTier = 1 + , _jcqQuery = Nothing + , _jcqFlattenResults = True + , _jcqUseLegacySQL = Nothing + , _jcqDefaultDataSet = Nothing + } + +-- | [Optional] Describes the table where the query results should be stored. +-- If not present, a new table will be created to store the results. +jcqDestinationTable :: Lens' JobConfigurationQuery (Maybe TableReference) +jcqDestinationTable + = lens _jcqDestinationTable + (\ s a -> s{_jcqDestinationTable = a}) + +-- | [Optional] Specifies the action that occurs if the destination table +-- already exists. The following values are supported: WRITE_TRUNCATE: If +-- the table already exists, BigQuery overwrites the table data. +-- WRITE_APPEND: If the table already exists, BigQuery appends the data to +-- the table. WRITE_EMPTY: If the table already exists and contains data, a +-- \'duplicate\' error is returned in the job result. The default value is +-- WRITE_EMPTY. Each action is atomic and only occurs if BigQuery is able +-- to complete the job successfully. Creation, truncation and append +-- actions occur as one atomic update upon job completion. +jcqWriteDisPosition :: Lens' JobConfigurationQuery (Maybe Text) +jcqWriteDisPosition + = lens _jcqWriteDisPosition + (\ s a -> s{_jcqWriteDisPosition = a}) + +-- | [Optional] Specifies a priority for the query. Possible values include +-- INTERACTIVE and BATCH. The default value is INTERACTIVE. +jcqPriority :: Lens' JobConfigurationQuery (Maybe Text) +jcqPriority + = lens _jcqPriority (\ s a -> s{_jcqPriority = a}) + +-- | [Optional] Whether to look for the result in the query cache. The query +-- cache is a best-effort cache that will be flushed whenever tables in the +-- query are modified. Moreover, the query cache is only available when a +-- query does not have a destination table specified. The default value is +-- true. +jcqUseQueryCache :: Lens' JobConfigurationQuery Bool +jcqUseQueryCache + = lens _jcqUseQueryCache + (\ s a -> s{_jcqUseQueryCache = a}) + +-- | [Deprecated] This property is deprecated. +jcqPreserveNulls :: Lens' JobConfigurationQuery (Maybe Bool) +jcqPreserveNulls + = lens _jcqPreserveNulls + (\ s a -> s{_jcqPreserveNulls = a}) + +-- | [Optional] If querying an external data source outside of BigQuery, +-- describes the data format, location and other properties of the data +-- source. By defining these properties, the data source can then be +-- queried as if it were a standard BigQuery table. +jcqTableDefinitions :: Lens' JobConfigurationQuery (Maybe JobConfigurationQueryTableDefinitions) +jcqTableDefinitions + = lens _jcqTableDefinitions + (\ s a -> s{_jcqTableDefinitions = a}) + +-- | [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 +-- already exist. If it does not, a \'notFound\' error is returned in the +-- job result. The default value is CREATE_IF_NEEDED. Creation, truncation +-- and append actions occur as one atomic update upon job completion. +jcqCreateDisPosition :: Lens' JobConfigurationQuery (Maybe Text) +jcqCreateDisPosition + = lens _jcqCreateDisPosition + (\ s a -> s{_jcqCreateDisPosition = a}) + +-- | [Experimental] Describes user-defined function resources used in the +-- query. +jcqUserDefinedFunctionResources :: Lens' JobConfigurationQuery [UserDefinedFunctionResource] +jcqUserDefinedFunctionResources + = lens _jcqUserDefinedFunctionResources + (\ s a -> s{_jcqUserDefinedFunctionResources = a}) + . _Default + . _Coerce + +-- | If true, allows the query to produce arbitrarily large result tables at +-- a slight cost in performance. Requires destinationTable to be set. +jcqAllowLargeResults :: Lens' JobConfigurationQuery (Maybe Bool) +jcqAllowLargeResults + = lens _jcqAllowLargeResults + (\ s a -> s{_jcqAllowLargeResults = a}) + +-- | [Optional] Limits the billing tier for this job. Queries that have +-- resource usage beyond this tier will fail (without incurring a charge). +-- If unspecified, this will be set to your project default. +jcqMaximumBillingTier :: Lens' JobConfigurationQuery Int32 +jcqMaximumBillingTier + = lens _jcqMaximumBillingTier + (\ s a -> s{_jcqMaximumBillingTier = a}) + . _Coerce + +-- | [Required] BigQuery SQL query to execute. +jcqQuery :: Lens' JobConfigurationQuery (Maybe Text) +jcqQuery = lens _jcqQuery (\ s a -> s{_jcqQuery = a}) + +-- | [Optional] Flattens all nested and repeated fields in the query results. +-- The default value is true. allowLargeResults must be true if this is set +-- to false. +jcqFlattenResults :: Lens' JobConfigurationQuery Bool +jcqFlattenResults + = lens _jcqFlattenResults + (\ s a -> s{_jcqFlattenResults = 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: +-- 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 +-- flattenResults is false. +jcqUseLegacySQL :: Lens' JobConfigurationQuery (Maybe Bool) +jcqUseLegacySQL + = lens _jcqUseLegacySQL + (\ s a -> s{_jcqUseLegacySQL = a}) + +-- | [Optional] Specifies the default dataset to use for unqualified table +-- names in the query. +jcqDefaultDataSet :: Lens' JobConfigurationQuery (Maybe DataSetReference) +jcqDefaultDataSet + = lens _jcqDefaultDataSet + (\ s a -> s{_jcqDefaultDataSet = a}) + +instance FromJSON JobConfigurationQuery where + parseJSON + = withObject "JobConfigurationQuery" + (\ o -> + JobConfigurationQuery' <$> + (o .:? "destinationTable") <*> + (o .:? "writeDisposition") + <*> (o .:? "priority") + <*> (o .:? "useQueryCache" .!= True) + <*> (o .:? "preserveNulls") + <*> (o .:? "tableDefinitions") + <*> (o .:? "createDisposition") + <*> (o .:? "userDefinedFunctionResources" .!= mempty) + <*> (o .:? "allowLargeResults") + <*> (o .:? "maximumBillingTier" .!= 1) + <*> (o .:? "query") + <*> (o .:? "flattenResults" .!= True) + <*> (o .:? "useLegacySql") + <*> (o .:? "defaultDataset")) + +instance ToJSON JobConfigurationQuery where + toJSON JobConfigurationQuery'{..} + = object + (catMaybes + [("destinationTable" .=) <$> _jcqDestinationTable, + ("writeDisposition" .=) <$> _jcqWriteDisPosition, + ("priority" .=) <$> _jcqPriority, + Just ("useQueryCache" .= _jcqUseQueryCache), + ("preserveNulls" .=) <$> _jcqPreserveNulls, + ("tableDefinitions" .=) <$> _jcqTableDefinitions, + ("createDisposition" .=) <$> _jcqCreateDisPosition, + ("userDefinedFunctionResources" .=) <$> + _jcqUserDefinedFunctionResources, + ("allowLargeResults" .=) <$> _jcqAllowLargeResults, + Just + ("maximumBillingTier" .= _jcqMaximumBillingTier), + ("query" .=) <$> _jcqQuery, + Just ("flattenResults" .= _jcqFlattenResults), + ("useLegacySql" .=) <$> _jcqUseLegacySQL, + ("defaultDataset" .=) <$> _jcqDefaultDataSet]) + +-- +-- /See:/ 'googleSheetsOptions' smart constructor. +newtype GoogleSheetsOptions = GoogleSheetsOptions' + { _gsoSkipLeadingRows :: Maybe (Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GoogleSheetsOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gsoSkipLeadingRows' +googleSheetsOptions + :: GoogleSheetsOptions +googleSheetsOptions = + GoogleSheetsOptions' + { _gsoSkipLeadingRows = Nothing + } + +-- | [Optional] The number of rows at the top of a sheet that BigQuery will +-- skip when reading the data. The default value is 0. This property is +-- useful if you have header rows that should be skipped. When autodetect +-- is on, behavior is the following: * skipLeadingRows unspecified - +-- Autodetect tries to detect headers in the first row. If they are not +-- detected, the row is read as data. Otherwise data is read starting from +-- the second row. * skipLeadingRows is 0 - Instructs autodetect that there +-- are no headers and data should be read starting from the first row. * +-- skipLeadingRows = N > 0 - Autodetect skips N-1 rows and tries to detect +-- headers in row N. If headers are not detected, row N is just skipped. +-- Otherwise row N is used to extract column names for the detected schema. +gsoSkipLeadingRows :: Lens' GoogleSheetsOptions (Maybe Int64) +gsoSkipLeadingRows + = lens _gsoSkipLeadingRows + (\ s a -> s{_gsoSkipLeadingRows = a}) + . mapping _Coerce + +instance FromJSON GoogleSheetsOptions where + parseJSON + = withObject "GoogleSheetsOptions" + (\ o -> + GoogleSheetsOptions' <$> (o .:? "skipLeadingRows")) + +instance ToJSON GoogleSheetsOptions where + toJSON GoogleSheetsOptions'{..} + = object + (catMaybes + [("skipLeadingRows" .=) <$> _gsoSkipLeadingRows]) + +-- +-- /See:/ 'tableDataInsertAllRequestRowsItem' smart constructor. +data TableDataInsertAllRequestRowsItem = TableDataInsertAllRequestRowsItem' + { _tdiarriJSON :: !(Maybe JSONObject) + , _tdiarriInsertId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableDataInsertAllRequestRowsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdiarriJSON' +-- +-- * 'tdiarriInsertId' +tableDataInsertAllRequestRowsItem + :: TableDataInsertAllRequestRowsItem +tableDataInsertAllRequestRowsItem = + TableDataInsertAllRequestRowsItem' + { _tdiarriJSON = Nothing + , _tdiarriInsertId = Nothing + } + +-- | [Required] A JSON object that contains a row of data. The object\'s +-- properties and values must match the destination table\'s schema. +tdiarriJSON :: Lens' TableDataInsertAllRequestRowsItem (Maybe JSONObject) +tdiarriJSON + = lens _tdiarriJSON (\ s a -> s{_tdiarriJSON = a}) + +-- | [Optional] A unique ID for each row. BigQuery uses this property to +-- detect duplicate insertion requests on a best-effort basis. +tdiarriInsertId :: Lens' TableDataInsertAllRequestRowsItem (Maybe Text) +tdiarriInsertId + = lens _tdiarriInsertId + (\ s a -> s{_tdiarriInsertId = a}) + +instance FromJSON TableDataInsertAllRequestRowsItem + where + parseJSON + = withObject "TableDataInsertAllRequestRowsItem" + (\ o -> + TableDataInsertAllRequestRowsItem' <$> + (o .:? "json") <*> (o .:? "insertId")) + +instance ToJSON TableDataInsertAllRequestRowsItem + where + toJSON TableDataInsertAllRequestRowsItem'{..} + = object + (catMaybes + [("json" .=) <$> _tdiarriJSON, + ("insertId" .=) <$> _tdiarriInsertId]) + +-- +-- /See:/ 'jobList' smart constructor. +data JobList = JobList' + { _jlEtag :: !(Maybe Text) + , _jlNextPageToken :: !(Maybe Text) + , _jlKind :: !Text + , _jlJobs :: !(Maybe [JobListJobsItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jlEtag' +-- +-- * 'jlNextPageToken' +-- +-- * 'jlKind' +-- +-- * 'jlJobs' +jobList + :: JobList +jobList = + JobList' + { _jlEtag = Nothing + , _jlNextPageToken = Nothing + , _jlKind = "bigquery#jobList" + , _jlJobs = Nothing + } + +-- | A hash of this page of results. +jlEtag :: Lens' JobList (Maybe Text) +jlEtag = lens _jlEtag (\ s a -> s{_jlEtag = a}) + +-- | A token to request the next page of results. +jlNextPageToken :: Lens' JobList (Maybe Text) +jlNextPageToken + = lens _jlNextPageToken + (\ s a -> s{_jlNextPageToken = a}) + +-- | The resource type of the response. +jlKind :: Lens' JobList Text +jlKind = lens _jlKind (\ s a -> s{_jlKind = a}) + +-- | List of jobs that were requested. +jlJobs :: Lens' JobList [JobListJobsItem] +jlJobs + = lens _jlJobs (\ s a -> s{_jlJobs = a}) . _Default . + _Coerce + +instance FromJSON JobList where + parseJSON + = withObject "JobList" + (\ o -> + JobList' <$> + (o .:? "etag") <*> (o .:? "nextPageToken") <*> + (o .:? "kind" .!= "bigquery#jobList") + <*> (o .:? "jobs" .!= mempty)) + +instance ToJSON JobList where + toJSON JobList'{..} + = object + (catMaybes + [("etag" .=) <$> _jlEtag, + ("nextPageToken" .=) <$> _jlNextPageToken, + Just ("kind" .= _jlKind), ("jobs" .=) <$> _jlJobs]) + +-- | [Optional] If querying an external data source outside of BigQuery, +-- describes the data format, location and other properties of the data +-- source. By defining these properties, the data source can then be +-- queried as if it were a standard BigQuery table. +-- +-- /See:/ 'jobConfigurationQueryTableDefinitions' smart constructor. +newtype JobConfigurationQueryTableDefinitions = JobConfigurationQueryTableDefinitions' + { _jcqtdAddtional :: HashMap Text ExternalDataConfiguration + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobConfigurationQueryTableDefinitions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jcqtdAddtional' +jobConfigurationQueryTableDefinitions + :: HashMap Text ExternalDataConfiguration -- ^ 'jcqtdAddtional' + -> JobConfigurationQueryTableDefinitions +jobConfigurationQueryTableDefinitions pJcqtdAddtional_ = + JobConfigurationQueryTableDefinitions' + { _jcqtdAddtional = _Coerce # pJcqtdAddtional_ + } + +jcqtdAddtional :: Lens' JobConfigurationQueryTableDefinitions (HashMap Text ExternalDataConfiguration) +jcqtdAddtional + = lens _jcqtdAddtional + (\ s a -> s{_jcqtdAddtional = a}) + . _Coerce + +instance FromJSON + JobConfigurationQueryTableDefinitions where + parseJSON + = withObject "JobConfigurationQueryTableDefinitions" + (\ o -> + JobConfigurationQueryTableDefinitions' <$> + (parseJSONObject o)) + +instance ToJSON JobConfigurationQueryTableDefinitions + where + toJSON = toJSON . _jcqtdAddtional + +-- +-- /See:/ 'tableCell' smart constructor. +newtype TableCell = TableCell' + { _tcV :: Maybe JSONValue + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableCell' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tcV' +tableCell + :: TableCell +tableCell = + TableCell' + { _tcV = Nothing + } + +tcV :: Lens' TableCell (Maybe JSONValue) +tcV = lens _tcV (\ s a -> s{_tcV = a}) + +instance FromJSON TableCell where + parseJSON + = withObject "TableCell" + (\ o -> TableCell' <$> (o .:? "v")) + +instance ToJSON TableCell where + toJSON TableCell'{..} + = object (catMaybes [("v" .=) <$> _tcV]) + +-- +-- /See:/ 'viewDefinition' smart constructor. +data ViewDefinition = ViewDefinition' + { _vdUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource]) + , _vdQuery :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ViewDefinition' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vdUserDefinedFunctionResources' +-- +-- * 'vdQuery' +viewDefinition + :: ViewDefinition +viewDefinition = + ViewDefinition' + { _vdUserDefinedFunctionResources = Nothing + , _vdQuery = Nothing + } + +-- | [Experimental] Describes user-defined function resources used in the +-- query. +vdUserDefinedFunctionResources :: Lens' ViewDefinition [UserDefinedFunctionResource] +vdUserDefinedFunctionResources + = lens _vdUserDefinedFunctionResources + (\ s a -> s{_vdUserDefinedFunctionResources = a}) + . _Default + . _Coerce + +-- | [Required] A query that BigQuery executes when the view is referenced. +vdQuery :: Lens' ViewDefinition (Maybe Text) +vdQuery = lens _vdQuery (\ s a -> s{_vdQuery = a}) + +instance FromJSON ViewDefinition where + parseJSON + = withObject "ViewDefinition" + (\ o -> + ViewDefinition' <$> + (o .:? "userDefinedFunctionResources" .!= mempty) <*> + (o .:? "query")) + +instance ToJSON ViewDefinition where + toJSON ViewDefinition'{..} + = object + (catMaybes + [("userDefinedFunctionResources" .=) <$> + _vdUserDefinedFunctionResources, + ("query" .=) <$> _vdQuery]) + +-- +-- /See:/ 'userDefinedFunctionResource' smart constructor. +data UserDefinedFunctionResource = UserDefinedFunctionResource' + { _udfrResourceURI :: !(Maybe Text) + , _udfrInlineCode :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UserDefinedFunctionResource' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'udfrResourceURI' +-- +-- * 'udfrInlineCode' +userDefinedFunctionResource + :: UserDefinedFunctionResource +userDefinedFunctionResource = + UserDefinedFunctionResource' + { _udfrResourceURI = Nothing + , _udfrInlineCode = Nothing + } + +-- | [Pick one] A code resource to load from a Google Cloud Storage URI +-- (gs:\/\/bucket\/path). +udfrResourceURI :: Lens' UserDefinedFunctionResource (Maybe Text) +udfrResourceURI + = lens _udfrResourceURI + (\ s a -> s{_udfrResourceURI = a}) + +-- | [Pick one] An inline resource that contains code for a user-defined +-- function (UDF). Providing a inline code resource is equivalent to +-- providing a URI for a file containing the same code. +udfrInlineCode :: Lens' UserDefinedFunctionResource (Maybe Text) +udfrInlineCode + = lens _udfrInlineCode + (\ s a -> s{_udfrInlineCode = a}) + +instance FromJSON UserDefinedFunctionResource where + parseJSON + = withObject "UserDefinedFunctionResource" + (\ o -> + UserDefinedFunctionResource' <$> + (o .:? "resourceUri") <*> (o .:? "inlineCode")) + +instance ToJSON UserDefinedFunctionResource where + toJSON UserDefinedFunctionResource'{..} + = object + (catMaybes + [("resourceUri" .=) <$> _udfrResourceURI, + ("inlineCode" .=) <$> _udfrInlineCode]) + +-- +-- /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)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobStatistics2' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jSchema' +-- +-- * 'jTotalBytesProcessed' +-- +-- * 'jBillingTier' +-- +-- * 'jReferencedTables' +-- +-- * 'jQueryPlan' +-- +-- * 'jCacheHit' +-- +-- * 'jTotalBytesBilled' +jobStatistics2 + :: JobStatistics2 +jobStatistics2 = + JobStatistics2' + { _jSchema = Nothing + , _jTotalBytesProcessed = Nothing + , _jBillingTier = Nothing + , _jReferencedTables = Nothing + , _jQueryPlan = Nothing + , _jCacheHit = Nothing + , _jTotalBytesBilled = Nothing + } + +-- | [Output-only, Experimental] The schema of the results. Present only for +-- successful dry run of non-legacy SQL queries. +jSchema :: Lens' JobStatistics2 (Maybe TableSchema) +jSchema = lens _jSchema (\ s a -> s{_jSchema = a}) + +-- | [Output-only] Total bytes processed for the job. +jTotalBytesProcessed :: Lens' JobStatistics2 (Maybe Int64) +jTotalBytesProcessed + = lens _jTotalBytesProcessed + (\ s a -> s{_jTotalBytesProcessed = a}) + . mapping _Coerce + +-- | [Output-only] Billing tier for the job. +jBillingTier :: Lens' JobStatistics2 (Maybe Int32) +jBillingTier + = lens _jBillingTier (\ s a -> s{_jBillingTier = a}) + . mapping _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] +jReferencedTables + = lens _jReferencedTables + (\ s a -> s{_jReferencedTables = a}) + . _Default + . _Coerce + +-- | [Output-only, Experimental] Describes execution plan for the query as a +-- list of stages. +jQueryPlan :: Lens' JobStatistics2 [ExplainQueryStage] +jQueryPlan + = lens _jQueryPlan (\ s a -> s{_jQueryPlan = a}) . + _Default + . _Coerce + +-- | [Output-only] Whether the query result was fetched from the query cache. +jCacheHit :: Lens' JobStatistics2 (Maybe Bool) +jCacheHit + = lens _jCacheHit (\ s a -> s{_jCacheHit = a}) + +-- | [Output-only] Total bytes billed for the job. +jTotalBytesBilled :: Lens' JobStatistics2 (Maybe Int64) +jTotalBytesBilled + = lens _jTotalBytesBilled + (\ s a -> s{_jTotalBytesBilled = a}) + . mapping _Coerce + +instance FromJSON JobStatistics2 where + parseJSON + = withObject "JobStatistics2" + (\ o -> + JobStatistics2' <$> + (o .:? "schema") <*> (o .:? "totalBytesProcessed") + <*> (o .:? "billingTier") + <*> (o .:? "referencedTables" .!= mempty) + <*> (o .:? "queryPlan" .!= mempty) + <*> (o .:? "cacheHit") + <*> (o .:? "totalBytesBilled")) + +instance ToJSON JobStatistics2 where + toJSON JobStatistics2'{..} + = object + (catMaybes + [("schema" .=) <$> _jSchema, + ("totalBytesProcessed" .=) <$> _jTotalBytesProcessed, + ("billingTier" .=) <$> _jBillingTier, + ("referencedTables" .=) <$> _jReferencedTables, + ("queryPlan" .=) <$> _jQueryPlan, + ("cacheHit" .=) <$> _jCacheHit, + ("totalBytesBilled" .=) <$> _jTotalBytesBilled]) + +-- +-- /See:/ 'jobStatus' smart constructor. +data JobStatus = JobStatus' + { _jsState :: !(Maybe Text) + , _jsErrorResult :: !(Maybe ErrorProto) + , _jsErrors :: !(Maybe [ErrorProto]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jsState' +-- +-- * 'jsErrorResult' +-- +-- * 'jsErrors' +jobStatus + :: JobStatus +jobStatus = + JobStatus' + { _jsState = Nothing + , _jsErrorResult = Nothing + , _jsErrors = Nothing + } + +-- | [Output-only] Running state of the job. +jsState :: Lens' JobStatus (Maybe Text) +jsState = lens _jsState (\ s a -> s{_jsState = a}) + +-- | [Output-only] Final error result of the job. If present, indicates that +-- the job has completed and was unsuccessful. +jsErrorResult :: Lens' JobStatus (Maybe ErrorProto) +jsErrorResult + = lens _jsErrorResult + (\ s a -> s{_jsErrorResult = a}) + +-- | [Output-only] All errors encountered during the running of the job. +-- Errors here do not necessarily mean that the job has completed or was +-- unsuccessful. +jsErrors :: Lens' JobStatus [ErrorProto] +jsErrors + = lens _jsErrors (\ s a -> s{_jsErrors = a}) . + _Default + . _Coerce + +instance FromJSON JobStatus where + parseJSON + = withObject "JobStatus" + (\ o -> + JobStatus' <$> + (o .:? "state") <*> (o .:? "errorResult") <*> + (o .:? "errors" .!= mempty)) + +instance ToJSON JobStatus where + toJSON JobStatus'{..} + = object + (catMaybes + [("state" .=) <$> _jsState, + ("errorResult" .=) <$> _jsErrorResult, + ("errors" .=) <$> _jsErrors]) + +-- +-- /See:/ 'dataSetAccessItem' smart constructor. +data DataSetAccessItem = DataSetAccessItem' + { _dsaiGroupByEmail :: !(Maybe Text) + , _dsaiDomain :: !(Maybe Text) + , _dsaiSpecialGroup :: !(Maybe Text) + , _dsaiRole :: !(Maybe Text) + , _dsaiView :: !(Maybe TableReference) + , _dsaiUserByEmail :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataSetAccessItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsaiGroupByEmail' +-- +-- * 'dsaiDomain' +-- +-- * 'dsaiSpecialGroup' +-- +-- * 'dsaiRole' +-- +-- * 'dsaiView' +-- +-- * 'dsaiUserByEmail' +dataSetAccessItem + :: DataSetAccessItem +dataSetAccessItem = + DataSetAccessItem' + { _dsaiGroupByEmail = Nothing + , _dsaiDomain = Nothing + , _dsaiSpecialGroup = Nothing + , _dsaiRole = Nothing + , _dsaiView = Nothing + , _dsaiUserByEmail = Nothing + } + +-- | [Pick one] An email address of a Google Group to grant access to. +dsaiGroupByEmail :: Lens' DataSetAccessItem (Maybe Text) +dsaiGroupByEmail + = lens _dsaiGroupByEmail + (\ s a -> s{_dsaiGroupByEmail = a}) + +-- | [Pick one] A domain to grant access to. Any users signed in with the +-- domain specified will be granted the specified access. Example: +-- \"example.com\". +dsaiDomain :: Lens' DataSetAccessItem (Maybe Text) +dsaiDomain + = lens _dsaiDomain (\ s a -> s{_dsaiDomain = a}) + +-- | [Pick one] A special group to grant access to. Possible values include: +-- projectOwners: Owners of the enclosing project. projectReaders: Readers +-- of the enclosing project. projectWriters: Writers of the enclosing +-- project. allAuthenticatedUsers: All authenticated BigQuery users. +dsaiSpecialGroup :: Lens' DataSetAccessItem (Maybe Text) +dsaiSpecialGroup + = lens _dsaiSpecialGroup + (\ s a -> s{_dsaiSpecialGroup = a}) + +-- | [Required] Describes the rights granted to the user specified by the +-- other member of the access object. The following string values are +-- supported: READER, WRITER, OWNER. +dsaiRole :: Lens' DataSetAccessItem (Maybe Text) +dsaiRole = lens _dsaiRole (\ s a -> s{_dsaiRole = a}) + +-- | [Pick one] A view from a different dataset to grant access to. Queries +-- executed against that view will have read access to tables in this +-- dataset. The role field is not required when this field is set. If that +-- view is updated by any user, access to the view needs to be granted +-- again via an update operation. +dsaiView :: Lens' DataSetAccessItem (Maybe TableReference) +dsaiView = lens _dsaiView (\ s a -> s{_dsaiView = a}) + +-- | [Pick one] An email address of a user to grant access to. For example: +-- fred\'example.com. +dsaiUserByEmail :: Lens' DataSetAccessItem (Maybe Text) +dsaiUserByEmail + = lens _dsaiUserByEmail + (\ s a -> s{_dsaiUserByEmail = a}) + +instance FromJSON DataSetAccessItem where + parseJSON + = withObject "DataSetAccessItem" + (\ o -> + DataSetAccessItem' <$> + (o .:? "groupByEmail") <*> (o .:? "domain") <*> + (o .:? "specialGroup") + <*> (o .:? "role") + <*> (o .:? "view") + <*> (o .:? "userByEmail")) + +instance ToJSON DataSetAccessItem where + toJSON DataSetAccessItem'{..} + = object + (catMaybes + [("groupByEmail" .=) <$> _dsaiGroupByEmail, + ("domain" .=) <$> _dsaiDomain, + ("specialGroup" .=) <$> _dsaiSpecialGroup, + ("role" .=) <$> _dsaiRole, ("view" .=) <$> _dsaiView, + ("userByEmail" .=) <$> _dsaiUserByEmail]) + +-- +-- /See:/ 'tableDataInsertAllResponse' smart constructor. +data TableDataInsertAllResponse = TableDataInsertAllResponse' + { _tKind :: !Text + , _tInsertErrors :: !(Maybe [TableDataInsertAllResponseInsertErrorsItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TableDataInsertAllResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tKind' +-- +-- * 'tInsertErrors' +tableDataInsertAllResponse + :: TableDataInsertAllResponse +tableDataInsertAllResponse = + TableDataInsertAllResponse' + { _tKind = "bigquery#tableDataInsertAllResponse" + , _tInsertErrors = Nothing + } + +-- | The resource type of the response. +tKind :: Lens' TableDataInsertAllResponse Text +tKind = lens _tKind (\ s a -> s{_tKind = a}) + +-- | An array of errors for rows that were not inserted. +tInsertErrors :: Lens' TableDataInsertAllResponse [TableDataInsertAllResponseInsertErrorsItem] +tInsertErrors + = lens _tInsertErrors + (\ s a -> s{_tInsertErrors = a}) + . _Default + . _Coerce + +instance FromJSON TableDataInsertAllResponse where + parseJSON + = withObject "TableDataInsertAllResponse" + (\ o -> + TableDataInsertAllResponse' <$> + (o .:? "kind" .!= + "bigquery#tableDataInsertAllResponse") + <*> (o .:? "insertErrors" .!= mempty)) + +instance ToJSON TableDataInsertAllResponse where + toJSON TableDataInsertAllResponse'{..} + = object + (catMaybes + [Just ("kind" .= _tKind), + ("insertErrors" .=) <$> _tInsertErrors]) + +-- +-- /See:/ 'table' smart constructor. +data Table = Table' + { _tabCreationTime :: !(Maybe (Textual Int64)) + , _tabEtag :: !(Maybe Text) + , _tabNumBytes :: !(Maybe (Textual Int64)) + , _tabExternalDataConfiguration :: !(Maybe ExternalDataConfiguration) + , _tabLocation :: !(Maybe Text) + , _tabTableReference :: !(Maybe TableReference) + , _tabFriendlyName :: !(Maybe Text) + , _tabKind :: !Text + , _tabLastModifiedTime :: !(Maybe (Textual Word64)) + , _tabSchema :: !(Maybe TableSchema) + , _tabStreamingBuffer :: !(Maybe Streamingbuffer) + , _tabSelfLink :: !(Maybe Text) + , _tabTimePartitioning :: !(Maybe TimePartitioning) + , _tabNumRows :: !(Maybe (Textual Word64)) + , _tabView :: !(Maybe ViewDefinition) + , _tabId :: !(Maybe Text) + , _tabType :: !(Maybe Text) + , _tabNumLongTermBytes :: !(Maybe (Textual Int64)) + , _tabExpirationTime :: !(Maybe (Textual Int64)) + , _tabDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Table' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tabCreationTime' +-- +-- * 'tabEtag' +-- +-- * 'tabNumBytes' +-- +-- * 'tabExternalDataConfiguration' +-- +-- * 'tabLocation' +-- +-- * 'tabTableReference' +-- +-- * 'tabFriendlyName' +-- +-- * 'tabKind' +-- +-- * 'tabLastModifiedTime' +-- +-- * 'tabSchema' +-- +-- * 'tabStreamingBuffer' +-- +-- * 'tabSelfLink' +-- +-- * 'tabTimePartitioning' +-- +-- * 'tabNumRows' +-- +-- * 'tabView' +-- +-- * 'tabId' +-- +-- * 'tabType' +-- +-- * 'tabNumLongTermBytes' +-- +-- * 'tabExpirationTime' +-- +-- * 'tabDescription' +table + :: Table +table = + Table' + { _tabCreationTime = Nothing + , _tabEtag = Nothing + , _tabNumBytes = Nothing + , _tabExternalDataConfiguration = Nothing + , _tabLocation = Nothing + , _tabTableReference = Nothing + , _tabFriendlyName = Nothing + , _tabKind = "bigquery#table" + , _tabLastModifiedTime = Nothing + , _tabSchema = Nothing + , _tabStreamingBuffer = Nothing + , _tabSelfLink = Nothing + , _tabTimePartitioning = Nothing + , _tabNumRows = Nothing + , _tabView = Nothing + , _tabId = Nothing + , _tabType = Nothing + , _tabNumLongTermBytes = Nothing + , _tabExpirationTime = Nothing + , _tabDescription = Nothing + } + +-- | [Output-only] The time when this table was created, in milliseconds +-- since the epoch. +tabCreationTime :: Lens' Table (Maybe Int64) +tabCreationTime + = lens _tabCreationTime + (\ s a -> s{_tabCreationTime = a}) + . mapping _Coerce + +-- | [Output-only] A hash of this resource. +tabEtag :: Lens' Table (Maybe Text) +tabEtag = lens _tabEtag (\ s a -> s{_tabEtag = a}) + +-- | [Output-only] The size of this table in bytes, excluding any data in the +-- streaming buffer. +tabNumBytes :: Lens' Table (Maybe Int64) +tabNumBytes + = lens _tabNumBytes (\ s a -> s{_tabNumBytes = a}) . + mapping _Coerce + +-- | [Optional] Describes the data format, location, and other properties of +-- a table stored outside of BigQuery. By defining these properties, the +-- data source can then be queried as if it were a standard BigQuery table. +tabExternalDataConfiguration :: Lens' Table (Maybe ExternalDataConfiguration) +tabExternalDataConfiguration + = lens _tabExternalDataConfiguration + (\ s a -> s{_tabExternalDataConfiguration = a}) + +-- | [Output-only] The geographic location where the table resides. This +-- value is inherited from the dataset. +tabLocation :: Lens' Table (Maybe Text) +tabLocation + = lens _tabLocation (\ s a -> s{_tabLocation = a}) + +-- | [Required] Reference describing the ID of this table. +tabTableReference :: Lens' Table (Maybe TableReference) +tabTableReference + = lens _tabTableReference + (\ s a -> s{_tabTableReference = a}) + +-- | [Optional] A descriptive name for this table. +tabFriendlyName :: Lens' Table (Maybe Text) +tabFriendlyName + = lens _tabFriendlyName + (\ s a -> s{_tabFriendlyName = a}) + +-- | [Output-only] The type of the resource. +tabKind :: Lens' Table Text +tabKind = lens _tabKind (\ s a -> s{_tabKind = a}) + +-- | [Output-only] The time when this table was last modified, in +-- milliseconds since the epoch. +tabLastModifiedTime :: Lens' Table (Maybe Word64) +tabLastModifiedTime + = lens _tabLastModifiedTime + (\ s a -> s{_tabLastModifiedTime = a}) + . mapping _Coerce + +-- | [Optional] Describes the schema of this table. +tabSchema :: Lens' Table (Maybe TableSchema) +tabSchema + = lens _tabSchema (\ s a -> s{_tabSchema = a}) + +-- | [Output-only] Contains information regarding this table\'s streaming +-- buffer, if one is present. This field will be absent if the table is not +-- being streamed to or if there is no data in the streaming buffer. +tabStreamingBuffer :: Lens' Table (Maybe Streamingbuffer) +tabStreamingBuffer + = lens _tabStreamingBuffer + (\ s a -> s{_tabStreamingBuffer = a}) + +-- | [Output-only] A URL that can be used to access this resource again. +tabSelfLink :: Lens' Table (Maybe Text) +tabSelfLink + = lens _tabSelfLink (\ s a -> s{_tabSelfLink = a}) + +-- | [Experimental] If specified, configures time-based partitioning for this +-- table. +tabTimePartitioning :: Lens' Table (Maybe TimePartitioning) +tabTimePartitioning + = lens _tabTimePartitioning + (\ s a -> s{_tabTimePartitioning = a}) + +-- | [Output-only] The number of rows of data in this table, excluding any +-- data in the streaming buffer. +tabNumRows :: Lens' Table (Maybe Word64) +tabNumRows + = lens _tabNumRows (\ s a -> s{_tabNumRows = a}) . + mapping _Coerce + +-- | [Optional] The view definition. +tabView :: Lens' Table (Maybe ViewDefinition) +tabView = lens _tabView (\ s a -> s{_tabView = a}) + +-- | [Output-only] An opaque ID uniquely identifying the table. +tabId :: Lens' Table (Maybe Text) +tabId = lens _tabId (\ s a -> s{_tabId = 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 +-- external storage system, such as Google Cloud Storage. The default value +-- is TABLE. +tabType :: Lens' Table (Maybe Text) +tabType = lens _tabType (\ s a -> s{_tabType = a}) + +-- | [Output-only] The number of bytes in the table that are considered +-- \"long-term storage\". +tabNumLongTermBytes :: Lens' Table (Maybe Int64) +tabNumLongTermBytes + = lens _tabNumLongTermBytes + (\ s a -> s{_tabNumLongTermBytes = a}) + . mapping _Coerce + +-- | [Optional] The time when this table expires, in milliseconds since the +-- epoch. If not present, the table will persist indefinitely. Expired +-- tables will be deleted and their storage reclaimed. +tabExpirationTime :: Lens' Table (Maybe Int64) +tabExpirationTime + = lens _tabExpirationTime + (\ s a -> s{_tabExpirationTime = a}) + . mapping _Coerce + +-- | [Optional] A user-friendly description of this table. +tabDescription :: Lens' Table (Maybe Text) +tabDescription + = lens _tabDescription + (\ s a -> s{_tabDescription = a}) + +instance FromJSON Table where + parseJSON + = withObject "Table" + (\ o -> + Table' <$> + (o .:? "creationTime") <*> (o .:? "etag") <*> + (o .:? "numBytes") + <*> (o .:? "externalDataConfiguration") + <*> (o .:? "location") + <*> (o .:? "tableReference") + <*> (o .:? "friendlyName") + <*> (o .:? "kind" .!= "bigquery#table") + <*> (o .:? "lastModifiedTime") + <*> (o .:? "schema") + <*> (o .:? "streamingBuffer") + <*> (o .:? "selfLink") + <*> (o .:? "timePartitioning") + <*> (o .:? "numRows") + <*> (o .:? "view") + <*> (o .:? "id") + <*> (o .:? "type") + <*> (o .:? "numLongTermBytes") + <*> (o .:? "expirationTime") + <*> (o .:? "description")) + +instance ToJSON Table where + toJSON Table'{..} + = object + (catMaybes + [("creationTime" .=) <$> _tabCreationTime, + ("etag" .=) <$> _tabEtag, + ("numBytes" .=) <$> _tabNumBytes, + ("externalDataConfiguration" .=) <$> + _tabExternalDataConfiguration, + ("location" .=) <$> _tabLocation, + ("tableReference" .=) <$> _tabTableReference, + ("friendlyName" .=) <$> _tabFriendlyName, + Just ("kind" .= _tabKind), + ("lastModifiedTime" .=) <$> _tabLastModifiedTime, + ("schema" .=) <$> _tabSchema, + ("streamingBuffer" .=) <$> _tabStreamingBuffer, + ("selfLink" .=) <$> _tabSelfLink, + ("timePartitioning" .=) <$> _tabTimePartitioning, + ("numRows" .=) <$> _tabNumRows, + ("view" .=) <$> _tabView, ("id" .=) <$> _tabId, + ("type" .=) <$> _tabType, + ("numLongTermBytes" .=) <$> _tabNumLongTermBytes, + ("expirationTime" .=) <$> _tabExpirationTime, + ("description" .=) <$> _tabDescription]) + +-- +-- /See:/ 'errorProto' smart constructor. +data ErrorProto = ErrorProto' + { _epDebugInfo :: !(Maybe Text) + , _epLocation :: !(Maybe Text) + , _epReason :: !(Maybe Text) + , _epMessage :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ErrorProto' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'epDebugInfo' +-- +-- * 'epLocation' +-- +-- * 'epReason' +-- +-- * 'epMessage' +errorProto + :: ErrorProto +errorProto = + ErrorProto' + { _epDebugInfo = Nothing + , _epLocation = Nothing + , _epReason = Nothing + , _epMessage = Nothing + } + +-- | Debugging information. This property is internal to Google and should +-- not be used. +epDebugInfo :: Lens' ErrorProto (Maybe Text) +epDebugInfo + = lens _epDebugInfo (\ s a -> s{_epDebugInfo = a}) + +-- | Specifies where the error occurred, if present. +epLocation :: Lens' ErrorProto (Maybe Text) +epLocation + = lens _epLocation (\ s a -> s{_epLocation = a}) + +-- | A short error code that summarizes the error. +epReason :: Lens' ErrorProto (Maybe Text) +epReason = lens _epReason (\ s a -> s{_epReason = a}) + +-- | A human-readable description of the error. +epMessage :: Lens' ErrorProto (Maybe Text) +epMessage + = lens _epMessage (\ s a -> s{_epMessage = a}) + +instance FromJSON ErrorProto where + parseJSON + = withObject "ErrorProto" + (\ o -> + ErrorProto' <$> + (o .:? "debugInfo") <*> (o .:? "location") <*> + (o .:? "reason") + <*> (o .:? "message")) + +instance ToJSON ErrorProto where + toJSON ErrorProto'{..} + = object + (catMaybes + [("debugInfo" .=) <$> _epDebugInfo, + ("location" .=) <$> _epLocation, + ("reason" .=) <$> _epReason, + ("message" .=) <$> _epMessage]) + +-- +-- /See:/ 'csvOptions' smart constructor. +data CSVOptions = CSVOptions' + { _coSkipLeadingRows :: !(Maybe (Textual Int64)) + , _coAllowJaggedRows :: !(Maybe Bool) + , _coAllowQuotedNewlines :: !(Maybe Bool) + , _coQuote :: !Text + , _coEncoding :: !(Maybe Text) + , _coFieldDelimiter :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CSVOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'coSkipLeadingRows' +-- +-- * 'coAllowJaggedRows' +-- +-- * 'coAllowQuotedNewlines' +-- +-- * 'coQuote' +-- +-- * 'coEncoding' +-- +-- * 'coFieldDelimiter' +csvOptions + :: CSVOptions +csvOptions = + CSVOptions' + { _coSkipLeadingRows = Nothing + , _coAllowJaggedRows = Nothing + , _coAllowQuotedNewlines = Nothing + , _coQuote = "\"" + , _coEncoding = Nothing + , _coFieldDelimiter = Nothing + } + +-- | [Optional] The number of rows at the top of a CSV file that BigQuery +-- will skip when reading the data. The default value is 0. This property +-- is useful if you have header rows in the file that should be skipped. +coSkipLeadingRows :: Lens' CSVOptions (Maybe Int64) +coSkipLeadingRows + = lens _coSkipLeadingRows + (\ s a -> s{_coSkipLeadingRows = a}) + . mapping _Coerce + +-- | [Optional] Indicates if BigQuery should accept rows that are missing +-- trailing optional columns. If true, BigQuery treats missing trailing +-- columns as null values. If false, records with missing trailing columns +-- are treated as bad records, and if there are too many bad records, an +-- invalid error is returned in the job result. The default value is false. +coAllowJaggedRows :: Lens' CSVOptions (Maybe Bool) +coAllowJaggedRows + = lens _coAllowJaggedRows + (\ s a -> s{_coAllowJaggedRows = a}) + +-- | [Optional] Indicates if BigQuery should allow quoted data sections that +-- contain newline characters in a CSV file. The default value is false. +coAllowQuotedNewlines :: Lens' CSVOptions (Maybe Bool) +coAllowQuotedNewlines + = lens _coAllowQuotedNewlines + (\ s a -> s{_coAllowQuotedNewlines = a}) + +-- | [Optional] The value that is used to quote data sections in a CSV file. +-- BigQuery converts the string to ISO-8859-1 encoding, and then uses the +-- first byte of the encoded string to split the data in its raw, binary +-- state. The default value is a double-quote (\'\"\'). If your data does +-- 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. +coQuote :: Lens' CSVOptions Text +coQuote = lens _coQuote (\ s a -> s{_coQuote = a}) + +-- | [Optional] The character encoding of the data. The supported values are +-- UTF-8 or ISO-8859-1. The default value is UTF-8. BigQuery decodes the +-- data after the raw, binary data has been split using the values of the +-- quote and fieldDelimiter properties. +coEncoding :: Lens' CSVOptions (Maybe Text) +coEncoding + = lens _coEncoding (\ s a -> s{_coEncoding = a}) + +-- | [Optional] The separator for fields in a CSV file. BigQuery converts the +-- string to ISO-8859-1 encoding, and then uses the first byte of the +-- encoded string to split the data in its raw, binary state. BigQuery also +-- supports the escape sequence \"\\t\" to specify a tab separator. The +-- default value is a comma (\',\'). +coFieldDelimiter :: Lens' CSVOptions (Maybe Text) +coFieldDelimiter + = lens _coFieldDelimiter + (\ s a -> s{_coFieldDelimiter = a}) + +instance FromJSON CSVOptions where + parseJSON + = withObject "CSVOptions" + (\ o -> + CSVOptions' <$> + (o .:? "skipLeadingRows") <*> + (o .:? "allowJaggedRows") + <*> (o .:? "allowQuotedNewlines") + <*> (o .:? "quote" .!= "\"") + <*> (o .:? "encoding") + <*> (o .:? "fieldDelimiter")) + +instance ToJSON CSVOptions where + toJSON CSVOptions'{..} + = object + (catMaybes + [("skipLeadingRows" .=) <$> _coSkipLeadingRows, + ("allowJaggedRows" .=) <$> _coAllowJaggedRows, + ("allowQuotedNewlines" .=) <$> + _coAllowQuotedNewlines, + Just ("quote" .= _coQuote), + ("encoding" .=) <$> _coEncoding, + ("fieldDelimiter" .=) <$> _coFieldDelimiter]) + +-- +-- /See:/ 'jobStatistics3' smart constructor. +data JobStatistics3 = JobStatistics3' + { _jsInputFiles :: !(Maybe (Textual Int64)) + , _jsOutputRows :: !(Maybe (Textual Int64)) + , _jsOutputBytes :: !(Maybe (Textual Int64)) + , _jsInputFileBytes :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobStatistics3' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jsInputFiles' +-- +-- * 'jsOutputRows' +-- +-- * 'jsOutputBytes' +-- +-- * 'jsInputFileBytes' +jobStatistics3 + :: JobStatistics3 +jobStatistics3 = + JobStatistics3' + { _jsInputFiles = Nothing + , _jsOutputRows = Nothing + , _jsOutputBytes = Nothing + , _jsInputFileBytes = Nothing + } + +-- | [Output-only] Number of source files in a load job. +jsInputFiles :: Lens' JobStatistics3 (Maybe Int64) +jsInputFiles + = lens _jsInputFiles (\ s a -> s{_jsInputFiles = a}) + . mapping _Coerce + +-- | [Output-only] Number of rows imported in a load job. Note that while an +-- import job is in the running state, this value may change. +jsOutputRows :: Lens' JobStatistics3 (Maybe Int64) +jsOutputRows + = lens _jsOutputRows (\ s a -> s{_jsOutputRows = a}) + . mapping _Coerce + +-- | [Output-only] Size of the loaded data in bytes. Note that while a load +-- job is in the running state, this value may change. +jsOutputBytes :: Lens' JobStatistics3 (Maybe Int64) +jsOutputBytes + = lens _jsOutputBytes + (\ s a -> s{_jsOutputBytes = a}) + . mapping _Coerce + +-- | [Output-only] Number of bytes of source data in a load job. +jsInputFileBytes :: Lens' JobStatistics3 (Maybe Int64) +jsInputFileBytes + = lens _jsInputFileBytes + (\ s a -> s{_jsInputFileBytes = a}) + . mapping _Coerce + +instance FromJSON JobStatistics3 where + parseJSON + = withObject "JobStatistics3" + (\ o -> + JobStatistics3' <$> + (o .:? "inputFiles") <*> (o .:? "outputRows") <*> + (o .:? "outputBytes") + <*> (o .:? "inputFileBytes")) + +instance ToJSON JobStatistics3 where + toJSON JobStatistics3'{..} + = object + (catMaybes + [("inputFiles" .=) <$> _jsInputFiles, + ("outputRows" .=) <$> _jsOutputRows, + ("outputBytes" .=) <$> _jsOutputBytes, + ("inputFileBytes" .=) <$> _jsInputFileBytes]) + +-- +-- /See:/ 'queryResponse' smart constructor. +data QueryResponse = QueryResponse' + { _qJobReference :: !(Maybe JobReference) + , _qKind :: !Text + , _qSchema :: !(Maybe TableSchema) + , _qTotalBytesProcessed :: !(Maybe (Textual Int64)) + , _qRows :: !(Maybe [TableRow]) + , _qPageToken :: !(Maybe Text) + , _qTotalRows :: !(Maybe (Textual Word64)) + , _qErrors :: !(Maybe [ErrorProto]) + , _qJobComplete :: !(Maybe Bool) + , _qCacheHit :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'QueryResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'qJobReference' +-- +-- * 'qKind' +-- +-- * 'qSchema' +-- +-- * 'qTotalBytesProcessed' +-- +-- * 'qRows' +-- +-- * 'qPageToken' +-- +-- * 'qTotalRows' +-- +-- * 'qErrors' +-- +-- * 'qJobComplete' +-- +-- * 'qCacheHit' +queryResponse + :: QueryResponse +queryResponse = + QueryResponse' + { _qJobReference = Nothing + , _qKind = "bigquery#queryResponse" + , _qSchema = Nothing + , _qTotalBytesProcessed = Nothing + , _qRows = Nothing + , _qPageToken = Nothing + , _qTotalRows = Nothing + , _qErrors = Nothing + , _qJobComplete = Nothing + , _qCacheHit = Nothing + } + +-- | Reference to the Job that was created to run the query. This field will +-- be present even if the original request timed out, in which case +-- GetQueryResults can be used to read the results once the query has +-- completed. Since this API only returns the first page of results, +-- subsequent pages can be fetched via the same mechanism +-- (GetQueryResults). +qJobReference :: Lens' QueryResponse (Maybe JobReference) +qJobReference + = lens _qJobReference + (\ s a -> s{_qJobReference = a}) + +-- | The resource type. +qKind :: Lens' QueryResponse Text +qKind = lens _qKind (\ s a -> s{_qKind = a}) + +-- | The schema of the results. Present only when the query completes +-- successfully. +qSchema :: Lens' QueryResponse (Maybe TableSchema) +qSchema = lens _qSchema (\ s a -> s{_qSchema = a}) + +-- | The total number of bytes processed for this query. If this query was a +-- dry run, this is the number of bytes that would be processed if the +-- query were run. +qTotalBytesProcessed :: Lens' QueryResponse (Maybe Int64) +qTotalBytesProcessed + = lens _qTotalBytesProcessed + (\ s a -> s{_qTotalBytesProcessed = a}) + . mapping _Coerce + +-- | An object with as many results as can be contained within the maximum +-- permitted reply size. To get any additional rows, you can call +-- GetQueryResults and specify the jobReference returned above. +qRows :: Lens' QueryResponse [TableRow] +qRows + = lens _qRows (\ s a -> s{_qRows = a}) . _Default . + _Coerce + +-- | A token used for paging results. +qPageToken :: Lens' QueryResponse (Maybe Text) +qPageToken + = lens _qPageToken (\ s a -> s{_qPageToken = a}) + +-- | 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) +qTotalRows + = lens _qTotalRows (\ s a -> s{_qTotalRows = a}) . + mapping _Coerce + +-- | [Output-only] All errors and warnings encountered during the running of +-- the job. Errors here do not necessarily mean that the job has completed +-- or was unsuccessful. +qErrors :: Lens' QueryResponse [ErrorProto] +qErrors + = lens _qErrors (\ s a -> s{_qErrors = a}) . _Default + . _Coerce + +-- | Whether the query has completed or not. If rows or totalRows are +-- present, this will always be true. If this is false, totalRows will not +-- be available. +qJobComplete :: Lens' QueryResponse (Maybe Bool) +qJobComplete + = lens _qJobComplete (\ s a -> s{_qJobComplete = a}) + +-- | Whether the query result was fetched from the query cache. +qCacheHit :: Lens' QueryResponse (Maybe Bool) +qCacheHit + = lens _qCacheHit (\ s a -> s{_qCacheHit = a}) + +instance FromJSON QueryResponse where + parseJSON + = withObject "QueryResponse" + (\ o -> + QueryResponse' <$> + (o .:? "jobReference") <*> + (o .:? "kind" .!= "bigquery#queryResponse") + <*> (o .:? "schema") + <*> (o .:? "totalBytesProcessed") + <*> (o .:? "rows" .!= mempty) + <*> (o .:? "pageToken") + <*> (o .:? "totalRows") + <*> (o .:? "errors" .!= mempty) + <*> (o .:? "jobComplete") + <*> (o .:? "cacheHit")) + +instance ToJSON QueryResponse where + toJSON QueryResponse'{..} = object (catMaybes [("jobReference" .=) <$> _qJobReference, diff --git a/gen/Network/Google/BigQuery/Types/Sum.hs b/gen/Network/Google/BigQuery/Types/Sum.hs --- a/gen/Network/Google/BigQuery/Types/Sum.hs +++ b/gen/Network/Google/BigQuery/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.BigQuery.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,18 +26,18 @@ | Minimal -- ^ @minimal@ -- Does not include the job configuration - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable JobsListProjection -instance FromText JobsListProjection where - fromText = \case - "full" -> Just Full - "minimal" -> Just Minimal - _ -> Nothing +instance FromHttpApiData JobsListProjection where + parseQueryParam = \case + "full" -> Right Full + "minimal" -> Right Minimal + x -> Left ("Unable to parse JobsListProjection from: " <> x) -instance ToText JobsListProjection where - toText = \case +instance ToHttpApiData JobsListProjection where + toQueryParam = \case Full -> "full" Minimal -> "minimal" @@ -58,19 +58,19 @@ | Running -- ^ @running@ -- Running jobs - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable JobsListStateFilter -instance FromText JobsListStateFilter where - fromText = \case - "done" -> Just Done - "pending" -> Just Pending - "running" -> Just Running - _ -> Nothing +instance FromHttpApiData JobsListStateFilter where + parseQueryParam = \case + "done" -> Right Done + "pending" -> Right Pending + "running" -> Right Running + x -> Left ("Unable to parse JobsListStateFilter from: " <> x) -instance ToText JobsListStateFilter where - toText = \case +instance ToHttpApiData JobsListStateFilter where + toQueryParam = \case Done -> "done" Pending -> "pending" Running -> "running" diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hs b/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- another dataset with the same name. -- -- /See:/ 'dataSetsDelete' smart constructor. -data DataSetsDelete = DataSetsDelete +data DataSetsDelete = DataSetsDelete' { _dsdDataSetId :: !Text , _dsdProjectId :: !Text , _dsdDeleteContents :: !(Maybe Bool) @@ -82,7 +82,7 @@ -> Text -- ^ 'dsdProjectId' -> DataSetsDelete dataSetsDelete pDsdDataSetId_ pDsdProjectId_ = - DataSetsDelete + DataSetsDelete' { _dsdDataSetId = pDsdDataSetId_ , _dsdProjectId = pDsdProjectId_ , _dsdDeleteContents = Nothing @@ -107,7 +107,10 @@ instance GoogleRequest DataSetsDelete where type Rs DataSetsDelete = () - requestClient DataSetsDelete{..} + type Scopes DataSetsDelete = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient DataSetsDelete'{..} = go _dsdProjectId _dsdDataSetId _dsdDeleteContents (Just AltJSON) bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/Get.hs b/gen/Network/Google/Resource/BigQuery/DataSets/Get.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/Get.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Returns the dataset specified by datasetID. -- -- /See:/ 'dataSetsGet' smart constructor. -data DataSetsGet = DataSetsGet +data DataSetsGet = DataSetsGet' { _dsgDataSetId :: !Text , _dsgProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'dsgProjectId' -> DataSetsGet dataSetsGet pDsgDataSetId_ pDsgProjectId_ = - DataSetsGet + DataSetsGet' { _dsgDataSetId = pDsgDataSetId_ , _dsgProjectId = pDsgProjectId_ } @@ -88,7 +88,11 @@ instance GoogleRequest DataSetsGet where type Rs DataSetsGet = DataSet - requestClient DataSetsGet{..} + type Scopes DataSetsGet = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient DataSetsGet'{..} = go _dsgProjectId _dsgDataSetId (Just AltJSON) bigQueryService where go diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hs b/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Creates a new empty dataset. -- -- /See:/ 'dataSetsInsert' smart constructor. -data DataSetsInsert = DataSetsInsert +data DataSetsInsert = DataSetsInsert' { _dsiPayload :: !DataSet , _dsiProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'dsiProjectId' -> DataSetsInsert dataSetsInsert pDsiPayload_ pDsiProjectId_ = - DataSetsInsert + DataSetsInsert' { _dsiPayload = pDsiPayload_ , _dsiProjectId = pDsiProjectId_ } @@ -88,7 +88,10 @@ instance GoogleRequest DataSetsInsert where type Rs DataSetsInsert = DataSet - requestClient DataSetsInsert{..} + type Scopes DataSetsInsert = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient DataSetsInsert'{..} = go _dsiProjectId (Just AltJSON) _dsiPayload bigQueryService where go 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- granted the READER dataset role. -- -- /See:/ 'dataSetsList' smart constructor. -data DataSetsList = DataSetsList +data DataSetsList = DataSetsList' { _dslAll :: !(Maybe Bool) , _dslPageToken :: !(Maybe Text) , _dslProjectId :: !Text @@ -82,7 +82,7 @@ :: Text -- ^ 'dslProjectId' -> DataSetsList dataSetsList pDslProjectId_ = - DataSetsList + DataSetsList' { _dslAll = Nothing , _dslPageToken = Nothing , _dslProjectId = pDslProjectId_ @@ -113,7 +113,11 @@ instance GoogleRequest DataSetsList where type Rs DataSetsList = DataSetList - requestClient DataSetsList{..} + type Scopes DataSetsList = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient DataSetsList'{..} = go _dslProjectId _dslAll _dslPageToken _dslMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hs b/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- supports patch semantics. -- -- /See:/ 'dataSetsPatch' smart constructor. -data DataSetsPatch = DataSetsPatch +data DataSetsPatch = DataSetsPatch' { _dspPayload :: !DataSet , _dspDataSetId :: !Text , _dspProjectId :: !Text @@ -83,7 +83,7 @@ -> Text -- ^ 'dspProjectId' -> DataSetsPatch dataSetsPatch pDspPayload_ pDspDataSetId_ pDspProjectId_ = - DataSetsPatch + DataSetsPatch' { _dspPayload = pDspPayload_ , _dspDataSetId = pDspDataSetId_ , _dspProjectId = pDspProjectId_ @@ -106,7 +106,10 @@ instance GoogleRequest DataSetsPatch where type Rs DataSetsPatch = DataSet - requestClient DataSetsPatch{..} + type Scopes DataSetsPatch = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient DataSetsPatch'{..} = go _dspProjectId _dspDataSetId (Just AltJSON) _dspPayload bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/DataSets/Update.hs b/gen/Network/Google/Resource/BigQuery/DataSets/Update.hs --- a/gen/Network/Google/Resource/BigQuery/DataSets/Update.hs +++ b/gen/Network/Google/Resource/BigQuery/DataSets/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.DataSets.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- fields that are provided in the submitted dataset resource. -- -- /See:/ 'dataSetsUpdate' smart constructor. -data DataSetsUpdate = DataSetsUpdate +data DataSetsUpdate = DataSetsUpdate' { _dsuPayload :: !DataSet , _dsuDataSetId :: !Text , _dsuProjectId :: !Text @@ -81,7 +81,7 @@ -> Text -- ^ 'dsuProjectId' -> DataSetsUpdate dataSetsUpdate pDsuPayload_ pDsuDataSetId_ pDsuProjectId_ = - DataSetsUpdate + DataSetsUpdate' { _dsuPayload = pDsuPayload_ , _dsuDataSetId = pDsuDataSetId_ , _dsuProjectId = pDsuProjectId_ @@ -104,7 +104,10 @@ instance GoogleRequest DataSetsUpdate where type Rs DataSetsUpdate = DataSet - requestClient DataSetsUpdate{..} + type Scopes DataSetsUpdate = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient DataSetsUpdate'{..} = go _dsuProjectId _dsuDataSetId (Just AltJSON) _dsuPayload 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 @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.Cancel --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- completed successfully. Cancelled jobs may still incur costs. -- -- /See:/ 'jobsCancel' smart constructor. -data JobsCancel = JobsCancel +data JobsCancel = JobsCancel' { _jcJobId :: !Text , _jcProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -77,23 +77,26 @@ -> Text -- ^ 'jcProjectId' -> JobsCancel jobsCancel pJcJobId_ pJcProjectId_ = - JobsCancel + JobsCancel' { _jcJobId = pJcJobId_ , _jcProjectId = pJcProjectId_ } --- | Job ID of the job to cancel +-- | [Required] Job ID of the job to cancel jcJobId :: Lens' JobsCancel Text jcJobId = lens _jcJobId (\ s a -> s{_jcJobId = a}) --- | Project ID of the job to cancel +-- | [Required] Project ID of the job to cancel jcProjectId :: Lens' JobsCancel Text jcProjectId = lens _jcProjectId (\ s a -> s{_jcProjectId = a}) instance GoogleRequest JobsCancel where type Rs JobsCancel = JobCancelResponse - requestClient JobsCancel{..} + type Scopes JobsCancel = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient JobsCancel'{..} = go _jcProjectId _jcJobId (Just AltJSON) bigQueryService where go diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs b/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- who ran the job, or have the Is Owner project role. -- -- /See:/ 'jobsGet' smart constructor. -data JobsGet = JobsGet +data JobsGet = JobsGet' { _jgJobId :: !Text , _jgProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -75,23 +75,27 @@ -> Text -- ^ 'jgProjectId' -> JobsGet jobsGet pJgJobId_ pJgProjectId_ = - JobsGet + JobsGet' { _jgJobId = pJgJobId_ , _jgProjectId = pJgProjectId_ } --- | Job ID of the requested job +-- | [Required] Job ID of the requested job jgJobId :: Lens' JobsGet Text jgJobId = lens _jgJobId (\ s a -> s{_jgJobId = a}) --- | Project ID of the requested job +-- | [Required] Project ID of the requested job jgProjectId :: Lens' JobsGet Text jgProjectId = lens _jgProjectId (\ s a -> s{_jgProjectId = a}) instance GoogleRequest JobsGet where type Rs JobsGet = Job - requestClient JobsGet{..} + type Scopes JobsGet = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient JobsGet'{..} = go _jgProjectId _jgJobId (Just AltJSON) bigQueryService where go diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs b/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.GetQueryResults --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- | Retrieves the results of a query job. -- -- /See:/ 'jobsGetQueryResults' smart constructor. -data JobsGetQueryResults = JobsGetQueryResults +data JobsGetQueryResults = JobsGetQueryResults' { _jgqrJobId :: !Text , _jgqrTimeoutMs :: !(Maybe (Textual Word32)) , _jgqrPageToken :: !(Maybe Text) @@ -92,7 +92,7 @@ -> Text -- ^ 'jgqrProjectId' -> JobsGetQueryResults jobsGetQueryResults pJgqrJobId_ pJgqrProjectId_ = - JobsGetQueryResults + JobsGetQueryResults' { _jgqrJobId = pJgqrJobId_ , _jgqrTimeoutMs = Nothing , _jgqrPageToken = Nothing @@ -101,7 +101,7 @@ , _jgqrMaxResults = Nothing } --- | Job ID of the query job +-- | [Required] Job ID of the query job jgqrJobId :: Lens' JobsGetQueryResults Text jgqrJobId = lens _jgqrJobId (\ s a -> s{_jgqrJobId = a}) @@ -122,7 +122,7 @@ = lens _jgqrPageToken (\ s a -> s{_jgqrPageToken = a}) --- | Project ID of the query job +-- | [Required] Project ID of the query job jgqrProjectId :: Lens' JobsGetQueryResults Text jgqrProjectId = lens _jgqrProjectId @@ -144,7 +144,11 @@ instance GoogleRequest JobsGetQueryResults where type Rs JobsGetQueryResults = GetQueryResultsResponse - requestClient JobsGetQueryResults{..} + type Scopes JobsGetQueryResults = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient JobsGetQueryResults'{..} = go _jgqrProjectId _jgqrJobId _jgqrTimeoutMs _jgqrPageToken _jgqrStartIndex diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs b/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,14 +58,13 @@ Capture "projectId" Text :> "jobs" :> QueryParam "alt" AltJSON :> - QueryParam "uploadType" AltMedia :> - MultipartRelated '[JSON] Job RequestBody :> - Post '[JSON] Job + QueryParam "uploadType" Multipart :> + MultipartRelated '[JSON] Job :> Post '[JSON] Job -- | Starts a new asynchronous job. Requires the Can View project role. -- -- /See:/ 'jobsInsert' smart constructor. -data JobsInsert = JobsInsert +data JobsInsert = JobsInsert' { _jiPayload :: !Job , _jiProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -82,7 +81,7 @@ -> Text -- ^ 'jiProjectId' -> JobsInsert jobsInsert pJiPayload_ pJiProjectId_ = - JobsInsert + JobsInsert' { _jiPayload = pJiPayload_ , _jiProjectId = pJiProjectId_ } @@ -99,7 +98,13 @@ instance GoogleRequest JobsInsert where type Rs JobsInsert = Job - requestClient JobsInsert{..} + type Scopes JobsInsert = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/devstorage.full_control", + "https://www.googleapis.com/auth/devstorage.read_only", + "https://www.googleapis.com/auth/devstorage.read_write"] + requestClient JobsInsert'{..} = go _jiProjectId (Just AltJSON) _jiPayload bigQueryService where go :<|> _ @@ -108,8 +113,10 @@ instance GoogleRequest (MediaUpload JobsInsert) where type Rs (MediaUpload JobsInsert) = Job - requestClient (MediaUpload JobsInsert{..} body) - = go _jiProjectId (Just AltJSON) (Just AltMedia) + type Scopes (MediaUpload JobsInsert) = + Scopes JobsInsert + requestClient (MediaUpload JobsInsert'{..} body) + = go _jiProjectId (Just AltJSON) (Just Multipart) _jiPayload body bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/List.hs b/gen/Network/Google/Resource/BigQuery/Jobs/List.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/List.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,7 +70,7 @@ -- set the allUsers property. -- -- /See:/ 'jobsList' smart constructor. -data JobsList = JobsList +data JobsList = JobsList' { _jlStateFilter :: !(Maybe [JobsListStateFilter]) , _jlProjection :: !(Maybe JobsListProjection) , _jlPageToken :: !(Maybe Text) @@ -98,7 +98,7 @@ :: Text -- ^ 'jlProjectId' -> JobsList jobsList pJlProjectId_ = - JobsList + JobsList' { _jlStateFilter = Nothing , _jlProjection = Nothing , _jlPageToken = Nothing @@ -144,7 +144,11 @@ instance GoogleRequest JobsList where type Rs JobsList = JobList - requestClient JobsList{..} + type Scopes JobsList = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient JobsList'{..} = go _jlProjectId (_jlStateFilter ^. _Default) _jlProjection _jlPageToken diff --git a/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs b/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs --- a/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs +++ b/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Jobs.Query --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- query completes within a specified timeout. -- -- /See:/ 'jobsQuery' smart constructor. -data JobsQuery = JobsQuery +data JobsQuery = JobsQuery' { _jqPayload :: !QueryRequest , _jqProjectId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -74,7 +74,7 @@ -> Text -- ^ 'jqProjectId' -> JobsQuery jobsQuery pJqPayload_ pJqProjectId_ = - JobsQuery + JobsQuery' { _jqPayload = pJqPayload_ , _jqProjectId = pJqProjectId_ } @@ -91,7 +91,11 @@ instance GoogleRequest JobsQuery where type Rs JobsQuery = QueryResponse - requestClient JobsQuery{..} + type Scopes JobsQuery = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient JobsQuery'{..} = go _jqProjectId (Just AltJSON) _jqPayload bigQueryService where go diff --git a/gen/Network/Google/Resource/BigQuery/Projects/List.hs b/gen/Network/Google/Resource/BigQuery/Projects/List.hs --- a/gen/Network/Google/Resource/BigQuery/Projects/List.hs +++ b/gen/Network/Google/Resource/BigQuery/Projects/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Projects.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Lists all projects to which you have been granted any project role. -- -- /See:/ 'projectsList' smart constructor. -data ProjectsList = ProjectsList +data ProjectsList = ProjectsList' { _plPageToken :: !(Maybe Text) , _plMaxResults :: !(Maybe (Textual Word32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ projectsList :: ProjectsList projectsList = - ProjectsList + ProjectsList' { _plPageToken = Nothing , _plMaxResults = Nothing } @@ -87,7 +87,11 @@ instance GoogleRequest ProjectsList where type Rs ProjectsList = ProjectList - requestClient ProjectsList{..} + type Scopes ProjectsList = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient ProjectsList'{..} = go _plPageToken _plMaxResults (Just AltJSON) bigQueryService where go diff --git a/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs b/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs --- a/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs +++ b/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.TableData.InsertAll --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- load job. Requires the WRITER dataset role. -- -- /See:/ 'tableDataInsertAll' smart constructor. -data TableDataInsertAll = TableDataInsertAll +data TableDataInsertAll = TableDataInsertAll' { _tdiaPayload :: !TableDataInsertAllRequest , _tdiaDataSetId :: !Text , _tdiaProjectId :: !Text @@ -88,7 +88,7 @@ -> Text -- ^ 'tdiaTableId' -> TableDataInsertAll tableDataInsertAll pTdiaPayload_ pTdiaDataSetId_ pTdiaProjectId_ pTdiaTableId_ = - TableDataInsertAll + TableDataInsertAll' { _tdiaPayload = pTdiaPayload_ , _tdiaDataSetId = pTdiaDataSetId_ , _tdiaProjectId = pTdiaProjectId_ @@ -120,7 +120,11 @@ instance GoogleRequest TableDataInsertAll where type Rs TableDataInsertAll = TableDataInsertAllResponse - requestClient TableDataInsertAll{..} + type Scopes TableDataInsertAll = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/bigquery.insertdata", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient TableDataInsertAll'{..} = go _tdiaProjectId _tdiaDataSetId _tdiaTableId (Just AltJSON) _tdiaPayload diff --git a/gen/Network/Google/Resource/BigQuery/TableData/List.hs b/gen/Network/Google/Resource/BigQuery/TableData/List.hs --- a/gen/Network/Google/Resource/BigQuery/TableData/List.hs +++ b/gen/Network/Google/Resource/BigQuery/TableData/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.TableData.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,7 +67,7 @@ -- dataset role. -- -- /See:/ 'tableDataList'' smart constructor. -data TableDataList' = TableDataList' +data TableDataList' = TableDataList'' { _tDataSetId :: !Text , _tPageToken :: !(Maybe Text) , _tProjectId :: !Text @@ -97,7 +97,7 @@ -> Text -- ^ 'tTableId' -> TableDataList' tableDataList' pTDataSetId_ pTProjectId_ pTTableId_ = - TableDataList' + TableDataList'' { _tDataSetId = pTDataSetId_ , _tPageToken = Nothing , _tProjectId = pTProjectId_ @@ -141,7 +141,11 @@ instance GoogleRequest TableDataList' where type Rs TableDataList' = TableDataList - requestClient TableDataList'{..} + type Scopes TableDataList' = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient TableDataList''{..} = go _tProjectId _tDataSetId _tTableId _tPageToken _tStartIndex _tMaxResults diff --git a/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs b/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- contains data, all the data will be deleted. -- -- /See:/ 'tablesDelete' smart constructor. -data TablesDelete = TablesDelete +data TablesDelete = TablesDelete' { _tdDataSetId :: !Text , _tdProjectId :: !Text , _tdTableId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'tdTableId' -> TablesDelete tablesDelete pTdDataSetId_ pTdProjectId_ pTdTableId_ = - TablesDelete + TablesDelete' { _tdDataSetId = pTdDataSetId_ , _tdProjectId = pTdProjectId_ , _tdTableId = pTdTableId_ @@ -103,7 +103,10 @@ instance GoogleRequest TablesDelete where type Rs TablesDelete = () - requestClient TablesDelete{..} + type Scopes TablesDelete = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient TablesDelete'{..} = go _tdProjectId _tdDataSetId _tdTableId (Just AltJSON) bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/Tables/Get.hs b/gen/Network/Google/Resource/BigQuery/Tables/Get.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/Get.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- describes the structure of this table. -- -- /See:/ 'tablesGet' smart constructor. -data TablesGet = TablesGet +data TablesGet = TablesGet' { _tgDataSetId :: !Text , _tgProjectId :: !Text , _tgTableId :: !Text @@ -82,7 +82,7 @@ -> Text -- ^ 'tgTableId' -> TablesGet tablesGet pTgDataSetId_ pTgProjectId_ pTgTableId_ = - TablesGet + TablesGet' { _tgDataSetId = pTgDataSetId_ , _tgProjectId = pTgProjectId_ , _tgTableId = pTgTableId_ @@ -105,7 +105,11 @@ instance GoogleRequest TablesGet where type Rs TablesGet = Table - requestClient TablesGet{..} + type Scopes TablesGet = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient TablesGet'{..} = go _tgProjectId _tgDataSetId _tgTableId (Just AltJSON) bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs b/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Creates a new, empty table in the dataset. -- -- /See:/ 'tablesInsert' smart constructor. -data TablesInsert = TablesInsert +data TablesInsert = TablesInsert' { _tiPayload :: !Table , _tiDataSetId :: !Text , _tiProjectId :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'tiProjectId' -> TablesInsert tablesInsert pTiPayload_ pTiDataSetId_ pTiProjectId_ = - TablesInsert + TablesInsert' { _tiPayload = pTiPayload_ , _tiDataSetId = pTiDataSetId_ , _tiProjectId = pTiProjectId_ @@ -101,7 +101,10 @@ instance GoogleRequest TablesInsert where type Rs TablesInsert = Table - requestClient TablesInsert{..} + type Scopes TablesInsert = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient TablesInsert'{..} = go _tiProjectId _tiDataSetId (Just AltJSON) _tiPayload bigQueryService diff --git a/gen/Network/Google/Resource/BigQuery/Tables/List.hs b/gen/Network/Google/Resource/BigQuery/Tables/List.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/List.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- role. -- -- /See:/ 'tablesList' smart constructor. -data TablesList = TablesList +data TablesList = TablesList' { _tlDataSetId :: !Text , _tlPageToken :: !(Maybe Text) , _tlProjectId :: !Text @@ -84,7 +84,7 @@ -> Text -- ^ 'tlProjectId' -> TablesList tablesList pTlDataSetId_ pTlProjectId_ = - TablesList + TablesList' { _tlDataSetId = pTlDataSetId_ , _tlPageToken = Nothing , _tlProjectId = pTlProjectId_ @@ -115,7 +115,11 @@ instance GoogleRequest TablesList where type Rs TablesList = TableList - requestClient TablesList{..} + type Scopes TablesList = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only"] + requestClient TablesList'{..} = go _tlProjectId _tlDataSetId _tlPageToken _tlMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs b/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,7 +65,7 @@ -- patch semantics. -- -- /See:/ 'tablesPatch' smart constructor. -data TablesPatch = TablesPatch +data TablesPatch = TablesPatch' { _tpPayload :: !Table , _tpDataSetId :: !Text , _tpProjectId :: !Text @@ -90,7 +90,7 @@ -> Text -- ^ 'tpTableId' -> TablesPatch tablesPatch pTpPayload_ pTpDataSetId_ pTpProjectId_ pTpTableId_ = - TablesPatch + TablesPatch' { _tpPayload = pTpPayload_ , _tpDataSetId = pTpDataSetId_ , _tpProjectId = pTpProjectId_ @@ -119,7 +119,10 @@ instance GoogleRequest TablesPatch where type Rs TablesPatch = Table - requestClient TablesPatch{..} + type Scopes TablesPatch = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient TablesPatch'{..} = go _tpProjectId _tpDataSetId _tpTableId (Just AltJSON) _tpPayload diff --git a/gen/Network/Google/Resource/BigQuery/Tables/Update.hs b/gen/Network/Google/Resource/BigQuery/Tables/Update.hs --- a/gen/Network/Google/Resource/BigQuery/Tables/Update.hs +++ b/gen/Network/Google/Resource/BigQuery/Tables/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.BigQuery.Tables.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- that are provided in the submitted table resource. -- -- /See:/ 'tablesUpdate' smart constructor. -data TablesUpdate = TablesUpdate +data TablesUpdate = TablesUpdate' { _tuPayload :: !Table , _tuDataSetId :: !Text , _tuProjectId :: !Text @@ -88,7 +88,7 @@ -> Text -- ^ 'tuTableId' -> TablesUpdate tablesUpdate pTuPayload_ pTuDataSetId_ pTuProjectId_ pTuTableId_ = - TablesUpdate + TablesUpdate' { _tuPayload = pTuPayload_ , _tuDataSetId = pTuDataSetId_ , _tuProjectId = pTuProjectId_ @@ -117,7 +117,10 @@ instance GoogleRequest TablesUpdate where type Rs TablesUpdate = Table - requestClient TablesUpdate{..} + type Scopes TablesUpdate = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient TablesUpdate'{..} = go _tuProjectId _tuDataSetId _tuTableId (Just AltJSON) _tuPayload 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.0.1 +version: 0.1.0 synopsis: Google BigQuery SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 @@ -62,5 +62,5 @@ , Network.Google.BigQuery.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5