module Network.Google.BigQuery.Types.Product where
import Network.Google.BigQuery.Types.Sum
import Network.Google.Prelude
data JobReference = JobReference'
{ _jrJobId :: !(Maybe Text)
, _jrProjectId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
jobReference
:: JobReference
jobReference =
JobReference'
{ _jrJobId = Nothing
, _jrProjectId = Nothing
}
jrJobId :: Lens' JobReference (Maybe Text)
jrJobId = lens _jrJobId (\ s a -> s{_jrJobId = a})
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])
data TableList = TableList'
{ _tlTotalItems :: !(Maybe (Textual Int32))
, _tlEtag :: !(Maybe Text)
, _tlNextPageToken :: !(Maybe Text)
, _tlKind :: !Text
, _tlTables :: !(Maybe [TableListTablesItem])
} deriving (Eq,Show,Data,Typeable,Generic)
tableList
:: TableList
tableList =
TableList'
{ _tlTotalItems = Nothing
, _tlEtag = Nothing
, _tlNextPageToken = Nothing
, _tlKind = "bigquery#tableList"
, _tlTables = Nothing
}
tlTotalItems :: Lens' TableList (Maybe Int32)
tlTotalItems
= lens _tlTotalItems (\ s a -> s{_tlTotalItems = a})
. mapping _Coerce
tlEtag :: Lens' TableList (Maybe Text)
tlEtag = lens _tlEtag (\ s a -> s{_tlEtag = a})
tlNextPageToken :: Lens' TableList (Maybe Text)
tlNextPageToken
= lens _tlNextPageToken
(\ s a -> s{_tlNextPageToken = a})
tlKind :: Lens' TableList Text
tlKind = lens _tlKind (\ s a -> s{_tlKind = a})
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])
data DataSetListDataSetsItem = DataSetListDataSetsItem'
{ _dsldsiFriendlyName :: !(Maybe Text)
, _dsldsiKind :: !Text
, _dsldsiDataSetReference :: !(Maybe DataSetReference)
, _dsldsiId :: !(Maybe Text)
, _dsldsiLabels :: !(Maybe DataSetListDataSetsItemLabels)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetListDataSetsItem
:: DataSetListDataSetsItem
dataSetListDataSetsItem =
DataSetListDataSetsItem'
{ _dsldsiFriendlyName = Nothing
, _dsldsiKind = "bigquery#dataset"
, _dsldsiDataSetReference = Nothing
, _dsldsiId = Nothing
, _dsldsiLabels = Nothing
}
dsldsiFriendlyName :: Lens' DataSetListDataSetsItem (Maybe Text)
dsldsiFriendlyName
= lens _dsldsiFriendlyName
(\ s a -> s{_dsldsiFriendlyName = a})
dsldsiKind :: Lens' DataSetListDataSetsItem Text
dsldsiKind
= lens _dsldsiKind (\ s a -> s{_dsldsiKind = a})
dsldsiDataSetReference :: Lens' DataSetListDataSetsItem (Maybe DataSetReference)
dsldsiDataSetReference
= lens _dsldsiDataSetReference
(\ s a -> s{_dsldsiDataSetReference = a})
dsldsiId :: Lens' DataSetListDataSetsItem (Maybe Text)
dsldsiId = lens _dsldsiId (\ s a -> s{_dsldsiId = a})
dsldsiLabels :: Lens' DataSetListDataSetsItem (Maybe DataSetListDataSetsItemLabels)
dsldsiLabels
= lens _dsldsiLabels (\ s a -> s{_dsldsiLabels = a})
instance FromJSON DataSetListDataSetsItem where
parseJSON
= withObject "DataSetListDataSetsItem"
(\ o ->
DataSetListDataSetsItem' <$>
(o .:? "friendlyName") <*>
(o .:? "kind" .!= "bigquery#dataset")
<*> (o .:? "datasetReference")
<*> (o .:? "id")
<*> (o .:? "labels"))
instance ToJSON DataSetListDataSetsItem where
toJSON DataSetListDataSetsItem'{..}
= object
(catMaybes
[("friendlyName" .=) <$> _dsldsiFriendlyName,
Just ("kind" .= _dsldsiKind),
("datasetReference" .=) <$> _dsldsiDataSetReference,
("id" .=) <$> _dsldsiId,
("labels" .=) <$> _dsldsiLabels])
data TableDataList = TableDataList'
{ _tdlEtag :: !(Maybe Text)
, _tdlKind :: !Text
, _tdlRows :: !(Maybe [TableRow])
, _tdlPageToken :: !(Maybe Text)
, _tdlTotalRows :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
tableDataList
:: TableDataList
tableDataList =
TableDataList'
{ _tdlEtag = Nothing
, _tdlKind = "bigquery#tableDataList"
, _tdlRows = Nothing
, _tdlPageToken = Nothing
, _tdlTotalRows = Nothing
}
tdlEtag :: Lens' TableDataList (Maybe Text)
tdlEtag = lens _tdlEtag (\ s a -> s{_tdlEtag = a})
tdlKind :: Lens' TableDataList Text
tdlKind = lens _tdlKind (\ s a -> s{_tdlKind = a})
tdlRows :: Lens' TableDataList [TableRow]
tdlRows
= lens _tdlRows (\ s a -> s{_tdlRows = a}) . _Default
. _Coerce
tdlPageToken :: Lens' TableDataList (Maybe Text)
tdlPageToken
= lens _tdlPageToken (\ s a -> s{_tdlPageToken = a})
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])
data JobConfigurationTableCopy = JobConfigurationTableCopy'
{ _jctcDestinationTable :: !(Maybe TableReference)
, _jctcWriteDisPosition :: !(Maybe Text)
, _jctcSourceTables :: !(Maybe [TableReference])
, _jctcCreateDisPosition :: !(Maybe Text)
, _jctcSourceTable :: !(Maybe TableReference)
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfigurationTableCopy
:: JobConfigurationTableCopy
jobConfigurationTableCopy =
JobConfigurationTableCopy'
{ _jctcDestinationTable = Nothing
, _jctcWriteDisPosition = Nothing
, _jctcSourceTables = Nothing
, _jctcCreateDisPosition = Nothing
, _jctcSourceTable = Nothing
}
jctcDestinationTable :: Lens' JobConfigurationTableCopy (Maybe TableReference)
jctcDestinationTable
= lens _jctcDestinationTable
(\ s a -> s{_jctcDestinationTable = a})
jctcWriteDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text)
jctcWriteDisPosition
= lens _jctcWriteDisPosition
(\ s a -> s{_jctcWriteDisPosition = a})
jctcSourceTables :: Lens' JobConfigurationTableCopy [TableReference]
jctcSourceTables
= lens _jctcSourceTables
(\ s a -> s{_jctcSourceTables = a})
. _Default
. _Coerce
jctcCreateDisPosition :: Lens' JobConfigurationTableCopy (Maybe Text)
jctcCreateDisPosition
= lens _jctcCreateDisPosition
(\ s a -> s{_jctcCreateDisPosition = a})
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])
data TableListTablesItem = TableListTablesItem'
{ _tltiTableReference :: !(Maybe TableReference)
, _tltiFriendlyName :: !(Maybe Text)
, _tltiKind :: !Text
, _tltiId :: !(Maybe Text)
, _tltiLabels :: !(Maybe TableListTablesItemLabels)
, _tltiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
tableListTablesItem
:: TableListTablesItem
tableListTablesItem =
TableListTablesItem'
{ _tltiTableReference = Nothing
, _tltiFriendlyName = Nothing
, _tltiKind = "bigquery#table"
, _tltiId = Nothing
, _tltiLabels = Nothing
, _tltiType = Nothing
}
tltiTableReference :: Lens' TableListTablesItem (Maybe TableReference)
tltiTableReference
= lens _tltiTableReference
(\ s a -> s{_tltiTableReference = a})
tltiFriendlyName :: Lens' TableListTablesItem (Maybe Text)
tltiFriendlyName
= lens _tltiFriendlyName
(\ s a -> s{_tltiFriendlyName = a})
tltiKind :: Lens' TableListTablesItem Text
tltiKind = lens _tltiKind (\ s a -> s{_tltiKind = a})
tltiId :: Lens' TableListTablesItem (Maybe Text)
tltiId = lens _tltiId (\ s a -> s{_tltiId = a})
tltiLabels :: Lens' TableListTablesItem (Maybe TableListTablesItemLabels)
tltiLabels
= lens _tltiLabels (\ s a -> s{_tltiLabels = a})
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 .:? "labels")
<*> (o .:? "type"))
instance ToJSON TableListTablesItem where
toJSON TableListTablesItem'{..}
= object
(catMaybes
[("tableReference" .=) <$> _tltiTableReference,
("friendlyName" .=) <$> _tltiFriendlyName,
Just ("kind" .= _tltiKind), ("id" .=) <$> _tltiId,
("labels" .=) <$> _tltiLabels,
("type" .=) <$> _tltiType])
newtype TableSchema = TableSchema'
{ _tsFields :: Maybe [TableFieldSchema]
} deriving (Eq,Show,Data,Typeable,Generic)
tableSchema
:: TableSchema
tableSchema =
TableSchema'
{ _tsFields = Nothing
}
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])
data ProjectList = ProjectList'
{ _plTotalItems :: !(Maybe (Textual Int32))
, _plEtag :: !(Maybe Text)
, _plNextPageToken :: !(Maybe Text)
, _plKind :: !Text
, _plProjects :: !(Maybe [ProjectListProjectsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
projectList
:: ProjectList
projectList =
ProjectList'
{ _plTotalItems = Nothing
, _plEtag = Nothing
, _plNextPageToken = Nothing
, _plKind = "bigquery#projectList"
, _plProjects = Nothing
}
plTotalItems :: Lens' ProjectList (Maybe Int32)
plTotalItems
= lens _plTotalItems (\ s a -> s{_plTotalItems = a})
. mapping _Coerce
plEtag :: Lens' ProjectList (Maybe Text)
plEtag = lens _plEtag (\ s a -> s{_plEtag = a})
plNextPageToken :: Lens' ProjectList (Maybe Text)
plNextPageToken
= lens _plNextPageToken
(\ s a -> s{_plNextPageToken = a})
plKind :: Lens' ProjectList Text
plKind = lens _plKind (\ s a -> s{_plKind = a})
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])
data ExplainQueryStep = ExplainQueryStep'
{ _eqsSubsteps :: !(Maybe [Text])
, _eqsKind :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
explainQueryStep
:: ExplainQueryStep
explainQueryStep =
ExplainQueryStep'
{ _eqsSubsteps = Nothing
, _eqsKind = Nothing
}
eqsSubsteps :: Lens' ExplainQueryStep [Text]
eqsSubsteps
= lens _eqsSubsteps (\ s a -> s{_eqsSubsteps = a}) .
_Default
. _Coerce
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])
data QueryParameterTypeStructTypesItem = QueryParameterTypeStructTypesItem'
{ _qptstiName :: !(Maybe Text)
, _qptstiType :: !(Maybe QueryParameterType)
, _qptstiDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
queryParameterTypeStructTypesItem
:: QueryParameterTypeStructTypesItem
queryParameterTypeStructTypesItem =
QueryParameterTypeStructTypesItem'
{ _qptstiName = Nothing
, _qptstiType = Nothing
, _qptstiDescription = Nothing
}
qptstiName :: Lens' QueryParameterTypeStructTypesItem (Maybe Text)
qptstiName
= lens _qptstiName (\ s a -> s{_qptstiName = a})
qptstiType :: Lens' QueryParameterTypeStructTypesItem (Maybe QueryParameterType)
qptstiType
= lens _qptstiType (\ s a -> s{_qptstiType = a})
qptstiDescription :: Lens' QueryParameterTypeStructTypesItem (Maybe Text)
qptstiDescription
= lens _qptstiDescription
(\ s a -> s{_qptstiDescription = a})
instance FromJSON QueryParameterTypeStructTypesItem
where
parseJSON
= withObject "QueryParameterTypeStructTypesItem"
(\ o ->
QueryParameterTypeStructTypesItem' <$>
(o .:? "name") <*> (o .:? "type") <*>
(o .:? "description"))
instance ToJSON QueryParameterTypeStructTypesItem
where
toJSON QueryParameterTypeStructTypesItem'{..}
= object
(catMaybes
[("name" .=) <$> _qptstiName,
("type" .=) <$> _qptstiType,
("description" .=) <$> _qptstiDescription])
data BigtableColumnFamily = BigtableColumnFamily'
{ _bcfFamilyId :: !(Maybe Text)
, _bcfColumns :: !(Maybe [BigtableColumn])
, _bcfOnlyReadLatest :: !(Maybe Bool)
, _bcfType :: !(Maybe Text)
, _bcfEncoding :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bigtableColumnFamily
:: BigtableColumnFamily
bigtableColumnFamily =
BigtableColumnFamily'
{ _bcfFamilyId = Nothing
, _bcfColumns = Nothing
, _bcfOnlyReadLatest = Nothing
, _bcfType = Nothing
, _bcfEncoding = Nothing
}
bcfFamilyId :: Lens' BigtableColumnFamily (Maybe Text)
bcfFamilyId
= lens _bcfFamilyId (\ s a -> s{_bcfFamilyId = a})
bcfColumns :: Lens' BigtableColumnFamily [BigtableColumn]
bcfColumns
= lens _bcfColumns (\ s a -> s{_bcfColumns = a}) .
_Default
. _Coerce
bcfOnlyReadLatest :: Lens' BigtableColumnFamily (Maybe Bool)
bcfOnlyReadLatest
= lens _bcfOnlyReadLatest
(\ s a -> s{_bcfOnlyReadLatest = a})
bcfType :: Lens' BigtableColumnFamily (Maybe Text)
bcfType = lens _bcfType (\ s a -> s{_bcfType = a})
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])
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)
jobStatistics
:: JobStatistics
jobStatistics =
JobStatistics'
{ _jsCreationTime = Nothing
, _jsStartTime = Nothing
, _jsLoad = Nothing
, _jsTotalBytesProcessed = Nothing
, _jsEndTime = Nothing
, _jsQuery = Nothing
, _jsExtract = Nothing
}
jsCreationTime :: Lens' JobStatistics (Maybe Int64)
jsCreationTime
= lens _jsCreationTime
(\ s a -> s{_jsCreationTime = a})
. mapping _Coerce
jsStartTime :: Lens' JobStatistics (Maybe Int64)
jsStartTime
= lens _jsStartTime (\ s a -> s{_jsStartTime = a}) .
mapping _Coerce
jsLoad :: Lens' JobStatistics (Maybe JobStatistics3)
jsLoad = lens _jsLoad (\ s a -> s{_jsLoad = a})
jsTotalBytesProcessed :: Lens' JobStatistics (Maybe Int64)
jsTotalBytesProcessed
= lens _jsTotalBytesProcessed
(\ s a -> s{_jsTotalBytesProcessed = a})
. mapping _Coerce
jsEndTime :: Lens' JobStatistics (Maybe Int64)
jsEndTime
= lens _jsEndTime (\ s a -> s{_jsEndTime = a}) .
mapping _Coerce
jsQuery :: Lens' JobStatistics (Maybe JobStatistics2)
jsQuery = lens _jsQuery (\ s a -> s{_jsQuery = a})
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])
newtype JobConfigurationLabels = JobConfigurationLabels'
{ _jclAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfigurationLabels
:: HashMap Text Text
-> JobConfigurationLabels
jobConfigurationLabels pJclAddtional_ =
JobConfigurationLabels'
{ _jclAddtional = _Coerce # pJclAddtional_
}
jclAddtional :: Lens' JobConfigurationLabels (HashMap Text Text)
jclAddtional
= lens _jclAddtional (\ s a -> s{_jclAddtional = a})
. _Coerce
instance FromJSON JobConfigurationLabels where
parseJSON
= withObject "JobConfigurationLabels"
(\ o ->
JobConfigurationLabels' <$> (parseJSONObject o))
instance ToJSON JobConfigurationLabels where
toJSON = toJSON . _jclAddtional
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)
, _dsLabels :: !(Maybe DataSetLabels)
, _dsDefaultTableExpirationMs :: !(Maybe (Textual Int64))
, _dsDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
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
, _dsLabels = Nothing
, _dsDefaultTableExpirationMs = Nothing
, _dsDescription = Nothing
}
dsCreationTime :: Lens' DataSet (Maybe Int64)
dsCreationTime
= lens _dsCreationTime
(\ s a -> s{_dsCreationTime = a})
. mapping _Coerce
dsAccess :: Lens' DataSet [DataSetAccessItem]
dsAccess
= lens _dsAccess (\ s a -> s{_dsAccess = a}) .
_Default
. _Coerce
dsEtag :: Lens' DataSet (Maybe Text)
dsEtag = lens _dsEtag (\ s a -> s{_dsEtag = a})
dsLocation :: Lens' DataSet (Maybe Text)
dsLocation
= lens _dsLocation (\ s a -> s{_dsLocation = a})
dsFriendlyName :: Lens' DataSet (Maybe Text)
dsFriendlyName
= lens _dsFriendlyName
(\ s a -> s{_dsFriendlyName = a})
dsKind :: Lens' DataSet Text
dsKind = lens _dsKind (\ s a -> s{_dsKind = a})
dsLastModifiedTime :: Lens' DataSet (Maybe Int64)
dsLastModifiedTime
= lens _dsLastModifiedTime
(\ s a -> s{_dsLastModifiedTime = a})
. mapping _Coerce
dsDataSetReference :: Lens' DataSet (Maybe DataSetReference)
dsDataSetReference
= lens _dsDataSetReference
(\ s a -> s{_dsDataSetReference = a})
dsSelfLink :: Lens' DataSet (Maybe Text)
dsSelfLink
= lens _dsSelfLink (\ s a -> s{_dsSelfLink = a})
dsId :: Lens' DataSet (Maybe Text)
dsId = lens _dsId (\ s a -> s{_dsId = a})
dsLabels :: Lens' DataSet (Maybe DataSetLabels)
dsLabels = lens _dsLabels (\ s a -> s{_dsLabels = a})
dsDefaultTableExpirationMs :: Lens' DataSet (Maybe Int64)
dsDefaultTableExpirationMs
= lens _dsDefaultTableExpirationMs
(\ s a -> s{_dsDefaultTableExpirationMs = a})
. mapping _Coerce
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 .:? "labels")
<*> (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,
("labels" .=) <$> _dsLabels,
("defaultTableExpirationMs" .=) <$>
_dsDefaultTableExpirationMs,
("description" .=) <$> _dsDescription])
data BigtableOptions = BigtableOptions'
{ _boReadRowkeyAsString :: !(Maybe Bool)
, _boIgnoreUnspecifiedColumnFamilies :: !(Maybe Bool)
, _boColumnFamilies :: !(Maybe [BigtableColumnFamily])
} deriving (Eq,Show,Data,Typeable,Generic)
bigtableOptions
:: BigtableOptions
bigtableOptions =
BigtableOptions'
{ _boReadRowkeyAsString = Nothing
, _boIgnoreUnspecifiedColumnFamilies = Nothing
, _boColumnFamilies = Nothing
}
boReadRowkeyAsString :: Lens' BigtableOptions (Maybe Bool)
boReadRowkeyAsString
= lens _boReadRowkeyAsString
(\ s a -> s{_boReadRowkeyAsString = a})
boIgnoreUnspecifiedColumnFamilies :: Lens' BigtableOptions (Maybe Bool)
boIgnoreUnspecifiedColumnFamilies
= lens _boIgnoreUnspecifiedColumnFamilies
(\ s a -> s{_boIgnoreUnspecifiedColumnFamilies = a})
boColumnFamilies :: Lens' BigtableOptions [BigtableColumnFamily]
boColumnFamilies
= lens _boColumnFamilies
(\ s a -> s{_boColumnFamilies = a})
. _Default
. _Coerce
instance FromJSON BigtableOptions where
parseJSON
= withObject "BigtableOptions"
(\ o ->
BigtableOptions' <$>
(o .:? "readRowkeyAsString") <*>
(o .:? "ignoreUnspecifiedColumnFamilies")
<*> (o .:? "columnFamilies" .!= mempty))
instance ToJSON BigtableOptions where
toJSON BigtableOptions'{..}
= object
(catMaybes
[("readRowkeyAsString" .=) <$> _boReadRowkeyAsString,
("ignoreUnspecifiedColumnFamilies" .=) <$>
_boIgnoreUnspecifiedColumnFamilies,
("columnFamilies" .=) <$> _boColumnFamilies])
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)
externalDataConfiguration
:: ExternalDataConfiguration
externalDataConfiguration =
ExternalDataConfiguration'
{ _edcBigtableOptions = Nothing
, _edcIgnoreUnknownValues = Nothing
, _edcCompression = Nothing
, _edcSourceFormat = Nothing
, _edcSchema = Nothing
, _edcMaxBadRecords = Nothing
, _edcGoogleSheetsOptions = Nothing
, _edcAutodetect = Nothing
, _edcSourceURIs = Nothing
, _edcCSVOptions = Nothing
}
edcBigtableOptions :: Lens' ExternalDataConfiguration (Maybe BigtableOptions)
edcBigtableOptions
= lens _edcBigtableOptions
(\ s a -> s{_edcBigtableOptions = a})
edcIgnoreUnknownValues :: Lens' ExternalDataConfiguration (Maybe Bool)
edcIgnoreUnknownValues
= lens _edcIgnoreUnknownValues
(\ s a -> s{_edcIgnoreUnknownValues = a})
edcCompression :: Lens' ExternalDataConfiguration (Maybe Text)
edcCompression
= lens _edcCompression
(\ s a -> s{_edcCompression = a})
edcSourceFormat :: Lens' ExternalDataConfiguration (Maybe Text)
edcSourceFormat
= lens _edcSourceFormat
(\ s a -> s{_edcSourceFormat = a})
edcSchema :: Lens' ExternalDataConfiguration (Maybe TableSchema)
edcSchema
= lens _edcSchema (\ s a -> s{_edcSchema = a})
edcMaxBadRecords :: Lens' ExternalDataConfiguration (Maybe Int32)
edcMaxBadRecords
= lens _edcMaxBadRecords
(\ s a -> s{_edcMaxBadRecords = a})
. mapping _Coerce
edcGoogleSheetsOptions :: Lens' ExternalDataConfiguration (Maybe GoogleSheetsOptions)
edcGoogleSheetsOptions
= lens _edcGoogleSheetsOptions
(\ s a -> s{_edcGoogleSheetsOptions = a})
edcAutodetect :: Lens' ExternalDataConfiguration (Maybe Bool)
edcAutodetect
= lens _edcAutodetect
(\ s a -> s{_edcAutodetect = a})
edcSourceURIs :: Lens' ExternalDataConfiguration [Text]
edcSourceURIs
= lens _edcSourceURIs
(\ s a -> s{_edcSourceURIs = a})
. _Default
. _Coerce
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])
data TableReference = TableReference'
{ _trDataSetId :: !(Maybe Text)
, _trProjectId :: !(Maybe Text)
, _trTableId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
tableReference
:: TableReference
tableReference =
TableReference'
{ _trDataSetId = Nothing
, _trProjectId = Nothing
, _trTableId = Nothing
}
trDataSetId :: Lens' TableReference (Maybe Text)
trDataSetId
= lens _trDataSetId (\ s a -> s{_trDataSetId = a})
trProjectId :: Lens' TableReference (Maybe Text)
trProjectId
= lens _trProjectId (\ s a -> s{_trProjectId = a})
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])
data TableFieldSchema = TableFieldSchema'
{ _tfsMode :: !(Maybe Text)
, _tfsName :: !(Maybe Text)
, _tfsType :: !(Maybe Text)
, _tfsDescription :: !(Maybe Text)
, _tfsFields :: !(Maybe [TableFieldSchema])
} deriving (Eq,Show,Data,Typeable,Generic)
tableFieldSchema
:: TableFieldSchema
tableFieldSchema =
TableFieldSchema'
{ _tfsMode = Nothing
, _tfsName = Nothing
, _tfsType = Nothing
, _tfsDescription = Nothing
, _tfsFields = Nothing
}
tfsMode :: Lens' TableFieldSchema (Maybe Text)
tfsMode = lens _tfsMode (\ s a -> s{_tfsMode = a})
tfsName :: Lens' TableFieldSchema (Maybe Text)
tfsName = lens _tfsName (\ s a -> s{_tfsName = a})
tfsType :: Lens' TableFieldSchema (Maybe Text)
tfsType = lens _tfsType (\ s a -> s{_tfsType = a})
tfsDescription :: Lens' TableFieldSchema (Maybe Text)
tfsDescription
= lens _tfsDescription
(\ s a -> s{_tfsDescription = a})
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])
data GetQueryResultsResponse = GetQueryResultsResponse'
{ _gqrrJobReference :: !(Maybe JobReference)
, _gqrrEtag :: !(Maybe Text)
, _gqrrKind :: !Text
, _gqrrSchema :: !(Maybe TableSchema)
, _gqrrTotalBytesProcessed :: !(Maybe (Textual Int64))
, _gqrrRows :: !(Maybe [TableRow])
, _gqrrPageToken :: !(Maybe Text)
, _gqrrNumDmlAffectedRows :: !(Maybe (Textual Int64))
, _gqrrTotalRows :: !(Maybe (Textual Word64))
, _gqrrErrors :: !(Maybe [ErrorProto])
, _gqrrJobComplete :: !(Maybe Bool)
, _gqrrCacheHit :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
getQueryResultsResponse
:: GetQueryResultsResponse
getQueryResultsResponse =
GetQueryResultsResponse'
{ _gqrrJobReference = Nothing
, _gqrrEtag = Nothing
, _gqrrKind = "bigquery#getQueryResultsResponse"
, _gqrrSchema = Nothing
, _gqrrTotalBytesProcessed = Nothing
, _gqrrRows = Nothing
, _gqrrPageToken = Nothing
, _gqrrNumDmlAffectedRows = Nothing
, _gqrrTotalRows = Nothing
, _gqrrErrors = Nothing
, _gqrrJobComplete = Nothing
, _gqrrCacheHit = Nothing
}
gqrrJobReference :: Lens' GetQueryResultsResponse (Maybe JobReference)
gqrrJobReference
= lens _gqrrJobReference
(\ s a -> s{_gqrrJobReference = a})
gqrrEtag :: Lens' GetQueryResultsResponse (Maybe Text)
gqrrEtag = lens _gqrrEtag (\ s a -> s{_gqrrEtag = a})
gqrrKind :: Lens' GetQueryResultsResponse Text
gqrrKind = lens _gqrrKind (\ s a -> s{_gqrrKind = a})
gqrrSchema :: Lens' GetQueryResultsResponse (Maybe TableSchema)
gqrrSchema
= lens _gqrrSchema (\ s a -> s{_gqrrSchema = a})
gqrrTotalBytesProcessed :: Lens' GetQueryResultsResponse (Maybe Int64)
gqrrTotalBytesProcessed
= lens _gqrrTotalBytesProcessed
(\ s a -> s{_gqrrTotalBytesProcessed = a})
. mapping _Coerce
gqrrRows :: Lens' GetQueryResultsResponse [TableRow]
gqrrRows
= lens _gqrrRows (\ s a -> s{_gqrrRows = a}) .
_Default
. _Coerce
gqrrPageToken :: Lens' GetQueryResultsResponse (Maybe Text)
gqrrPageToken
= lens _gqrrPageToken
(\ s a -> s{_gqrrPageToken = a})
gqrrNumDmlAffectedRows :: Lens' GetQueryResultsResponse (Maybe Int64)
gqrrNumDmlAffectedRows
= lens _gqrrNumDmlAffectedRows
(\ s a -> s{_gqrrNumDmlAffectedRows = a})
. mapping _Coerce
gqrrTotalRows :: Lens' GetQueryResultsResponse (Maybe Word64)
gqrrTotalRows
= lens _gqrrTotalRows
(\ s a -> s{_gqrrTotalRows = a})
. mapping _Coerce
gqrrErrors :: Lens' GetQueryResultsResponse [ErrorProto]
gqrrErrors
= lens _gqrrErrors (\ s a -> s{_gqrrErrors = a}) .
_Default
. _Coerce
gqrrJobComplete :: Lens' GetQueryResultsResponse (Maybe Bool)
gqrrJobComplete
= lens _gqrrJobComplete
(\ s a -> s{_gqrrJobComplete = a})
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 .:? "numDmlAffectedRows")
<*> (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,
("numDmlAffectedRows" .=) <$>
_gqrrNumDmlAffectedRows,
("totalRows" .=) <$> _gqrrTotalRows,
("errors" .=) <$> _gqrrErrors,
("jobComplete" .=) <$> _gqrrJobComplete,
("cacheHit" .=) <$> _gqrrCacheHit])
data DataSetList = DataSetList'
{ _dslEtag :: !(Maybe Text)
, _dslNextPageToken :: !(Maybe Text)
, _dslKind :: !Text
, _dslDataSets :: !(Maybe [DataSetListDataSetsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetList
:: DataSetList
dataSetList =
DataSetList'
{ _dslEtag = Nothing
, _dslNextPageToken = Nothing
, _dslKind = "bigquery#datasetList"
, _dslDataSets = Nothing
}
dslEtag :: Lens' DataSetList (Maybe Text)
dslEtag = lens _dslEtag (\ s a -> s{_dslEtag = a})
dslNextPageToken :: Lens' DataSetList (Maybe Text)
dslNextPageToken
= lens _dslNextPageToken
(\ s a -> s{_dslNextPageToken = a})
dslKind :: Lens' DataSetList Text
dslKind = lens _dslKind (\ s a -> s{_dslKind = a})
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])
data QueryRequest = QueryRequest'
{ _qrUseQueryCache :: !Bool
, _qrPreserveNulls :: !(Maybe Bool)
, _qrKind :: !Text
, _qrQueryParameters :: !(Maybe [QueryParameter])
, _qrQuery :: !(Maybe Text)
, _qrParameterMode :: !(Maybe Text)
, _qrTimeoutMs :: !(Maybe (Textual Word32))
, _qrUseLegacySQL :: !Bool
, _qrDryRun :: !(Maybe Bool)
, _qrMaxResults :: !(Maybe (Textual Word32))
, _qrDefaultDataSet :: !(Maybe DataSetReference)
} deriving (Eq,Show,Data,Typeable,Generic)
queryRequest
:: QueryRequest
queryRequest =
QueryRequest'
{ _qrUseQueryCache = True
, _qrPreserveNulls = Nothing
, _qrKind = "bigquery#queryRequest"
, _qrQueryParameters = Nothing
, _qrQuery = Nothing
, _qrParameterMode = Nothing
, _qrTimeoutMs = Nothing
, _qrUseLegacySQL = True
, _qrDryRun = Nothing
, _qrMaxResults = Nothing
, _qrDefaultDataSet = Nothing
}
qrUseQueryCache :: Lens' QueryRequest Bool
qrUseQueryCache
= lens _qrUseQueryCache
(\ s a -> s{_qrUseQueryCache = a})
qrPreserveNulls :: Lens' QueryRequest (Maybe Bool)
qrPreserveNulls
= lens _qrPreserveNulls
(\ s a -> s{_qrPreserveNulls = a})
qrKind :: Lens' QueryRequest Text
qrKind = lens _qrKind (\ s a -> s{_qrKind = a})
qrQueryParameters :: Lens' QueryRequest [QueryParameter]
qrQueryParameters
= lens _qrQueryParameters
(\ s a -> s{_qrQueryParameters = a})
. _Default
. _Coerce
qrQuery :: Lens' QueryRequest (Maybe Text)
qrQuery = lens _qrQuery (\ s a -> s{_qrQuery = a})
qrParameterMode :: Lens' QueryRequest (Maybe Text)
qrParameterMode
= lens _qrParameterMode
(\ s a -> s{_qrParameterMode = a})
qrTimeoutMs :: Lens' QueryRequest (Maybe Word32)
qrTimeoutMs
= lens _qrTimeoutMs (\ s a -> s{_qrTimeoutMs = a}) .
mapping _Coerce
qrUseLegacySQL :: Lens' QueryRequest Bool
qrUseLegacySQL
= lens _qrUseLegacySQL
(\ s a -> s{_qrUseLegacySQL = a})
qrDryRun :: Lens' QueryRequest (Maybe Bool)
qrDryRun = lens _qrDryRun (\ s a -> s{_qrDryRun = a})
qrMaxResults :: Lens' QueryRequest (Maybe Word32)
qrMaxResults
= lens _qrMaxResults (\ s a -> s{_qrMaxResults = a})
. mapping _Coerce
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 .:? "queryParameters" .!= mempty)
<*> (o .:? "query")
<*> (o .:? "parameterMode")
<*> (o .:? "timeoutMs")
<*> (o .:? "useLegacySql" .!= True)
<*> (o .:? "dryRun")
<*> (o .:? "maxResults")
<*> (o .:? "defaultDataset"))
instance ToJSON QueryRequest where
toJSON QueryRequest'{..}
= object
(catMaybes
[Just ("useQueryCache" .= _qrUseQueryCache),
("preserveNulls" .=) <$> _qrPreserveNulls,
Just ("kind" .= _qrKind),
("queryParameters" .=) <$> _qrQueryParameters,
("query" .=) <$> _qrQuery,
("parameterMode" .=) <$> _qrParameterMode,
("timeoutMs" .=) <$> _qrTimeoutMs,
Just ("useLegacySql" .= _qrUseLegacySQL),
("dryRun" .=) <$> _qrDryRun,
("maxResults" .=) <$> _qrMaxResults,
("defaultDataset" .=) <$> _qrDefaultDataSet])
data QueryParameter = QueryParameter'
{ _qpParameterValue :: !(Maybe QueryParameterValue)
, _qpParameterType :: !(Maybe QueryParameterType)
, _qpName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
queryParameter
:: QueryParameter
queryParameter =
QueryParameter'
{ _qpParameterValue = Nothing
, _qpParameterType = Nothing
, _qpName = Nothing
}
qpParameterValue :: Lens' QueryParameter (Maybe QueryParameterValue)
qpParameterValue
= lens _qpParameterValue
(\ s a -> s{_qpParameterValue = a})
qpParameterType :: Lens' QueryParameter (Maybe QueryParameterType)
qpParameterType
= lens _qpParameterType
(\ s a -> s{_qpParameterType = a})
qpName :: Lens' QueryParameter (Maybe Text)
qpName = lens _qpName (\ s a -> s{_qpName = a})
instance FromJSON QueryParameter where
parseJSON
= withObject "QueryParameter"
(\ o ->
QueryParameter' <$>
(o .:? "parameterValue") <*> (o .:? "parameterType")
<*> (o .:? "name"))
instance ToJSON QueryParameter where
toJSON QueryParameter'{..}
= object
(catMaybes
[("parameterValue" .=) <$> _qpParameterValue,
("parameterType" .=) <$> _qpParameterType,
("name" .=) <$> _qpName])
newtype JobStatistics4 = JobStatistics4'
{ _jsDestinationURIFileCounts :: Maybe [Textual Int64]
} deriving (Eq,Show,Data,Typeable,Generic)
jobStatistics4
:: JobStatistics4
jobStatistics4 =
JobStatistics4'
{ _jsDestinationURIFileCounts = Nothing
}
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])
newtype ProjectReference = ProjectReference'
{ _prProjectId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
projectReference
:: ProjectReference
projectReference =
ProjectReference'
{ _prProjectId = Nothing
}
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])
data ExplainQueryStage = ExplainQueryStage'
{ _eqsStatus :: !(Maybe Text)
, _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)
explainQueryStage
:: ExplainQueryStage
explainQueryStage =
ExplainQueryStage'
{ _eqsStatus = Nothing
, _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
}
eqsStatus :: Lens' ExplainQueryStage (Maybe Text)
eqsStatus
= lens _eqsStatus (\ s a -> s{_eqsStatus = a})
eqsWaitRatioMax :: Lens' ExplainQueryStage (Maybe Double)
eqsWaitRatioMax
= lens _eqsWaitRatioMax
(\ s a -> s{_eqsWaitRatioMax = a})
. mapping _Coerce
eqsRecordsWritten :: Lens' ExplainQueryStage (Maybe Int64)
eqsRecordsWritten
= lens _eqsRecordsWritten
(\ s a -> s{_eqsRecordsWritten = a})
. mapping _Coerce
eqsSteps :: Lens' ExplainQueryStage [ExplainQueryStep]
eqsSteps
= lens _eqsSteps (\ s a -> s{_eqsSteps = a}) .
_Default
. _Coerce
eqsWriteRatioAvg :: Lens' ExplainQueryStage (Maybe Double)
eqsWriteRatioAvg
= lens _eqsWriteRatioAvg
(\ s a -> s{_eqsWriteRatioAvg = a})
. mapping _Coerce
eqsRecordsRead :: Lens' ExplainQueryStage (Maybe Int64)
eqsRecordsRead
= lens _eqsRecordsRead
(\ s a -> s{_eqsRecordsRead = a})
. mapping _Coerce
eqsComputeRatioAvg :: Lens' ExplainQueryStage (Maybe Double)
eqsComputeRatioAvg
= lens _eqsComputeRatioAvg
(\ s a -> s{_eqsComputeRatioAvg = a})
. mapping _Coerce
eqsName :: Lens' ExplainQueryStage (Maybe Text)
eqsName = lens _eqsName (\ s a -> s{_eqsName = a})
eqsReadRatioMax :: Lens' ExplainQueryStage (Maybe Double)
eqsReadRatioMax
= lens _eqsReadRatioMax
(\ s a -> s{_eqsReadRatioMax = a})
. mapping _Coerce
eqsWaitRatioAvg :: Lens' ExplainQueryStage (Maybe Double)
eqsWaitRatioAvg
= lens _eqsWaitRatioAvg
(\ s a -> s{_eqsWaitRatioAvg = a})
. mapping _Coerce
eqsId :: Lens' ExplainQueryStage (Maybe Int64)
eqsId
= lens _eqsId (\ s a -> s{_eqsId = a}) .
mapping _Coerce
eqsComputeRatioMax :: Lens' ExplainQueryStage (Maybe Double)
eqsComputeRatioMax
= lens _eqsComputeRatioMax
(\ s a -> s{_eqsComputeRatioMax = a})
. mapping _Coerce
eqsWriteRatioMax :: Lens' ExplainQueryStage (Maybe Double)
eqsWriteRatioMax
= lens _eqsWriteRatioMax
(\ s a -> s{_eqsWriteRatioMax = a})
. mapping _Coerce
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 .:? "status") <*> (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
[("status" .=) <$> _eqsStatus,
("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])
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)
, _jclSchemaUpdateOptions :: !(Maybe [Text])
, _jclCreateDisPosition :: !(Maybe Text)
, _jclSchemaInlineFormat :: !(Maybe Text)
, _jclAllowQuotedNewlines :: !(Maybe Bool)
, _jclSourceFormat :: !(Maybe Text)
, _jclSchema :: !(Maybe TableSchema)
, _jclQuote :: !(Maybe Text)
, _jclMaxBadRecords :: !(Maybe (Textual Int32))
, _jclAutodetect :: !(Maybe Bool)
, _jclSourceURIs :: !(Maybe [Text])
, _jclEncoding :: !(Maybe Text)
, _jclFieldDelimiter :: !(Maybe Text)
, _jclNullMarker :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfigurationLoad
:: JobConfigurationLoad
jobConfigurationLoad =
JobConfigurationLoad'
{ _jclSkipLeadingRows = Nothing
, _jclProjectionFields = Nothing
, _jclDestinationTable = Nothing
, _jclWriteDisPosition = Nothing
, _jclAllowJaggedRows = Nothing
, _jclSchemaInline = Nothing
, _jclIgnoreUnknownValues = Nothing
, _jclSchemaUpdateOptions = Nothing
, _jclCreateDisPosition = Nothing
, _jclSchemaInlineFormat = Nothing
, _jclAllowQuotedNewlines = Nothing
, _jclSourceFormat = Nothing
, _jclSchema = Nothing
, _jclQuote = Nothing
, _jclMaxBadRecords = Nothing
, _jclAutodetect = Nothing
, _jclSourceURIs = Nothing
, _jclEncoding = Nothing
, _jclFieldDelimiter = Nothing
, _jclNullMarker = Nothing
}
jclSkipLeadingRows :: Lens' JobConfigurationLoad (Maybe Int32)
jclSkipLeadingRows
= lens _jclSkipLeadingRows
(\ s a -> s{_jclSkipLeadingRows = a})
. mapping _Coerce
jclProjectionFields :: Lens' JobConfigurationLoad [Text]
jclProjectionFields
= lens _jclProjectionFields
(\ s a -> s{_jclProjectionFields = a})
. _Default
. _Coerce
jclDestinationTable :: Lens' JobConfigurationLoad (Maybe TableReference)
jclDestinationTable
= lens _jclDestinationTable
(\ s a -> s{_jclDestinationTable = a})
jclWriteDisPosition :: Lens' JobConfigurationLoad (Maybe Text)
jclWriteDisPosition
= lens _jclWriteDisPosition
(\ s a -> s{_jclWriteDisPosition = a})
jclAllowJaggedRows :: Lens' JobConfigurationLoad (Maybe Bool)
jclAllowJaggedRows
= lens _jclAllowJaggedRows
(\ s a -> s{_jclAllowJaggedRows = a})
jclSchemaInline :: Lens' JobConfigurationLoad (Maybe Text)
jclSchemaInline
= lens _jclSchemaInline
(\ s a -> s{_jclSchemaInline = a})
jclIgnoreUnknownValues :: Lens' JobConfigurationLoad (Maybe Bool)
jclIgnoreUnknownValues
= lens _jclIgnoreUnknownValues
(\ s a -> s{_jclIgnoreUnknownValues = a})
jclSchemaUpdateOptions :: Lens' JobConfigurationLoad [Text]
jclSchemaUpdateOptions
= lens _jclSchemaUpdateOptions
(\ s a -> s{_jclSchemaUpdateOptions = a})
. _Default
. _Coerce
jclCreateDisPosition :: Lens' JobConfigurationLoad (Maybe Text)
jclCreateDisPosition
= lens _jclCreateDisPosition
(\ s a -> s{_jclCreateDisPosition = a})
jclSchemaInlineFormat :: Lens' JobConfigurationLoad (Maybe Text)
jclSchemaInlineFormat
= lens _jclSchemaInlineFormat
(\ s a -> s{_jclSchemaInlineFormat = a})
jclAllowQuotedNewlines :: Lens' JobConfigurationLoad (Maybe Bool)
jclAllowQuotedNewlines
= lens _jclAllowQuotedNewlines
(\ s a -> s{_jclAllowQuotedNewlines = a})
jclSourceFormat :: Lens' JobConfigurationLoad (Maybe Text)
jclSourceFormat
= lens _jclSourceFormat
(\ s a -> s{_jclSourceFormat = a})
jclSchema :: Lens' JobConfigurationLoad (Maybe TableSchema)
jclSchema
= lens _jclSchema (\ s a -> s{_jclSchema = a})
jclQuote :: Lens' JobConfigurationLoad (Maybe Text)
jclQuote = lens _jclQuote (\ s a -> s{_jclQuote = a})
jclMaxBadRecords :: Lens' JobConfigurationLoad (Maybe Int32)
jclMaxBadRecords
= lens _jclMaxBadRecords
(\ s a -> s{_jclMaxBadRecords = a})
. mapping _Coerce
jclAutodetect :: Lens' JobConfigurationLoad (Maybe Bool)
jclAutodetect
= lens _jclAutodetect
(\ s a -> s{_jclAutodetect = a})
jclSourceURIs :: Lens' JobConfigurationLoad [Text]
jclSourceURIs
= lens _jclSourceURIs
(\ s a -> s{_jclSourceURIs = a})
. _Default
. _Coerce
jclEncoding :: Lens' JobConfigurationLoad (Maybe Text)
jclEncoding
= lens _jclEncoding (\ s a -> s{_jclEncoding = a})
jclFieldDelimiter :: Lens' JobConfigurationLoad (Maybe Text)
jclFieldDelimiter
= lens _jclFieldDelimiter
(\ s a -> s{_jclFieldDelimiter = a})
jclNullMarker :: Lens' JobConfigurationLoad (Maybe Text)
jclNullMarker
= lens _jclNullMarker
(\ s a -> s{_jclNullMarker = 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 .:? "schemaUpdateOptions" .!= mempty)
<*> (o .:? "createDisposition")
<*> (o .:? "schemaInlineFormat")
<*> (o .:? "allowQuotedNewlines")
<*> (o .:? "sourceFormat")
<*> (o .:? "schema")
<*> (o .:? "quote")
<*> (o .:? "maxBadRecords")
<*> (o .:? "autodetect")
<*> (o .:? "sourceUris" .!= mempty)
<*> (o .:? "encoding")
<*> (o .:? "fieldDelimiter")
<*> (o .:? "nullMarker"))
instance ToJSON JobConfigurationLoad where
toJSON JobConfigurationLoad'{..}
= object
(catMaybes
[("skipLeadingRows" .=) <$> _jclSkipLeadingRows,
("projectionFields" .=) <$> _jclProjectionFields,
("destinationTable" .=) <$> _jclDestinationTable,
("writeDisposition" .=) <$> _jclWriteDisPosition,
("allowJaggedRows" .=) <$> _jclAllowJaggedRows,
("schemaInline" .=) <$> _jclSchemaInline,
("ignoreUnknownValues" .=) <$>
_jclIgnoreUnknownValues,
("schemaUpdateOptions" .=) <$>
_jclSchemaUpdateOptions,
("createDisposition" .=) <$> _jclCreateDisPosition,
("schemaInlineFormat" .=) <$> _jclSchemaInlineFormat,
("allowQuotedNewlines" .=) <$>
_jclAllowQuotedNewlines,
("sourceFormat" .=) <$> _jclSourceFormat,
("schema" .=) <$> _jclSchema,
("quote" .=) <$> _jclQuote,
("maxBadRecords" .=) <$> _jclMaxBadRecords,
("autodetect" .=) <$> _jclAutodetect,
("sourceUris" .=) <$> _jclSourceURIs,
("encoding" .=) <$> _jclEncoding,
("fieldDelimiter" .=) <$> _jclFieldDelimiter,
("nullMarker" .=) <$> _jclNullMarker])
data DataSetReference = DataSetReference'
{ _dsrDataSetId :: !(Maybe Text)
, _dsrProjectId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetReference
:: DataSetReference
dataSetReference =
DataSetReference'
{ _dsrDataSetId = Nothing
, _dsrProjectId = Nothing
}
dsrDataSetId :: Lens' DataSetReference (Maybe Text)
dsrDataSetId
= lens _dsrDataSetId (\ s a -> s{_dsrDataSetId = a})
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])
data TableDataInsertAllRequest = TableDataInsertAllRequest'
{ _tdiarKind :: !Text
, _tdiarIgnoreUnknownValues :: !(Maybe Bool)
, _tdiarRows :: !(Maybe [TableDataInsertAllRequestRowsItem])
, _tdiarTemplateSuffix :: !(Maybe Text)
, _tdiarSkipInvalidRows :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
tableDataInsertAllRequest
:: TableDataInsertAllRequest
tableDataInsertAllRequest =
TableDataInsertAllRequest'
{ _tdiarKind = "bigquery#tableDataInsertAllRequest"
, _tdiarIgnoreUnknownValues = Nothing
, _tdiarRows = Nothing
, _tdiarTemplateSuffix = Nothing
, _tdiarSkipInvalidRows = Nothing
}
tdiarKind :: Lens' TableDataInsertAllRequest Text
tdiarKind
= lens _tdiarKind (\ s a -> s{_tdiarKind = a})
tdiarIgnoreUnknownValues :: Lens' TableDataInsertAllRequest (Maybe Bool)
tdiarIgnoreUnknownValues
= lens _tdiarIgnoreUnknownValues
(\ s a -> s{_tdiarIgnoreUnknownValues = a})
tdiarRows :: Lens' TableDataInsertAllRequest [TableDataInsertAllRequestRowsItem]
tdiarRows
= lens _tdiarRows (\ s a -> s{_tdiarRows = a}) .
_Default
. _Coerce
tdiarTemplateSuffix :: Lens' TableDataInsertAllRequest (Maybe Text)
tdiarTemplateSuffix
= lens _tdiarTemplateSuffix
(\ s a -> s{_tdiarTemplateSuffix = a})
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])
data ProjectListProjectsItem = ProjectListProjectsItem'
{ _plpiFriendlyName :: !(Maybe Text)
, _plpiKind :: !Text
, _plpiProjectReference :: !(Maybe ProjectReference)
, _plpiId :: !(Maybe Text)
, _plpiNumericId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
projectListProjectsItem
:: ProjectListProjectsItem
projectListProjectsItem =
ProjectListProjectsItem'
{ _plpiFriendlyName = Nothing
, _plpiKind = "bigquery#project"
, _plpiProjectReference = Nothing
, _plpiId = Nothing
, _plpiNumericId = Nothing
}
plpiFriendlyName :: Lens' ProjectListProjectsItem (Maybe Text)
plpiFriendlyName
= lens _plpiFriendlyName
(\ s a -> s{_plpiFriendlyName = a})
plpiKind :: Lens' ProjectListProjectsItem Text
plpiKind = lens _plpiKind (\ s a -> s{_plpiKind = a})
plpiProjectReference :: Lens' ProjectListProjectsItem (Maybe ProjectReference)
plpiProjectReference
= lens _plpiProjectReference
(\ s a -> s{_plpiProjectReference = a})
plpiId :: Lens' ProjectListProjectsItem (Maybe Text)
plpiId = lens _plpiId (\ s a -> s{_plpiId = a})
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])
data BigtableColumn = BigtableColumn'
{ _bcQualifierEncoded :: !(Maybe Bytes)
, _bcFieldName :: !(Maybe Text)
, _bcQualifierString :: !(Maybe Text)
, _bcOnlyReadLatest :: !(Maybe Bool)
, _bcType :: !(Maybe Text)
, _bcEncoding :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bigtableColumn
:: BigtableColumn
bigtableColumn =
BigtableColumn'
{ _bcQualifierEncoded = Nothing
, _bcFieldName = Nothing
, _bcQualifierString = Nothing
, _bcOnlyReadLatest = Nothing
, _bcType = Nothing
, _bcEncoding = Nothing
}
bcQualifierEncoded :: Lens' BigtableColumn (Maybe ByteString)
bcQualifierEncoded
= lens _bcQualifierEncoded
(\ s a -> s{_bcQualifierEncoded = a})
. mapping _Bytes
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})
bcOnlyReadLatest :: Lens' BigtableColumn (Maybe Bool)
bcOnlyReadLatest
= lens _bcOnlyReadLatest
(\ s a -> s{_bcOnlyReadLatest = a})
bcType :: Lens' BigtableColumn (Maybe Text)
bcType = lens _bcType (\ s a -> s{_bcType = a})
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])
data Streamingbuffer = Streamingbuffer'
{ _sEstimatedBytes :: !(Maybe (Textual Word64))
, _sOldestEntryTime :: !(Maybe (Textual Word64))
, _sEstimatedRows :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
streamingbuffer
:: Streamingbuffer
streamingbuffer =
Streamingbuffer'
{ _sEstimatedBytes = Nothing
, _sOldestEntryTime = Nothing
, _sEstimatedRows = Nothing
}
sEstimatedBytes :: Lens' Streamingbuffer (Maybe Word64)
sEstimatedBytes
= lens _sEstimatedBytes
(\ s a -> s{_sEstimatedBytes = a})
. mapping _Coerce
sOldestEntryTime :: Lens' Streamingbuffer (Maybe Word64)
sOldestEntryTime
= lens _sOldestEntryTime
(\ s a -> s{_sOldestEntryTime = a})
. mapping _Coerce
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])
newtype TableRow = TableRow'
{ _trF :: Maybe [TableCell]
} deriving (Eq,Show,Data,Typeable,Generic)
tableRow
:: TableRow
tableRow =
TableRow'
{ _trF = Nothing
}
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])
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)
jobListJobsItem
:: JobListJobsItem
jobListJobsItem =
JobListJobsItem'
{ _jljiJobReference = Nothing
, _jljiStatus = Nothing
, _jljiState = Nothing
, _jljiUserEmail = Nothing
, _jljiKind = "bigquery#job"
, _jljiErrorResult = Nothing
, _jljiId = Nothing
, _jljiStatistics = Nothing
, _jljiConfiguration = Nothing
}
jljiJobReference :: Lens' JobListJobsItem (Maybe JobReference)
jljiJobReference
= lens _jljiJobReference
(\ s a -> s{_jljiJobReference = a})
jljiStatus :: Lens' JobListJobsItem (Maybe JobStatus)
jljiStatus
= lens _jljiStatus (\ s a -> s{_jljiStatus = a})
jljiState :: Lens' JobListJobsItem (Maybe Text)
jljiState
= lens _jljiState (\ s a -> s{_jljiState = a})
jljiUserEmail :: Lens' JobListJobsItem (Maybe Text)
jljiUserEmail
= lens _jljiUserEmail
(\ s a -> s{_jljiUserEmail = a})
jljiKind :: Lens' JobListJobsItem Text
jljiKind = lens _jljiKind (\ s a -> s{_jljiKind = a})
jljiErrorResult :: Lens' JobListJobsItem (Maybe ErrorProto)
jljiErrorResult
= lens _jljiErrorResult
(\ s a -> s{_jljiErrorResult = a})
jljiId :: Lens' JobListJobsItem (Maybe Text)
jljiId = lens _jljiId (\ s a -> s{_jljiId = a})
jljiStatistics :: Lens' JobListJobsItem (Maybe JobStatistics)
jljiStatistics
= lens _jljiStatistics
(\ s a -> s{_jljiStatistics = a})
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])
data TimePartitioning = TimePartitioning'
{ _tpExpirationMs :: !(Maybe (Textual Int64))
, _tpType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
timePartitioning
:: TimePartitioning
timePartitioning =
TimePartitioning'
{ _tpExpirationMs = Nothing
, _tpType = Nothing
}
tpExpirationMs :: Lens' TimePartitioning (Maybe Int64)
tpExpirationMs
= lens _tpExpirationMs
(\ s a -> s{_tpExpirationMs = a})
. mapping _Coerce
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])
newtype QueryParameterValueStructValues = QueryParameterValueStructValues'
{ _qpvsvAddtional :: HashMap Text QueryParameterValue
} deriving (Eq,Show,Data,Typeable,Generic)
queryParameterValueStructValues
:: HashMap Text QueryParameterValue
-> QueryParameterValueStructValues
queryParameterValueStructValues pQpvsvAddtional_ =
QueryParameterValueStructValues'
{ _qpvsvAddtional = _Coerce # pQpvsvAddtional_
}
qpvsvAddtional :: Lens' QueryParameterValueStructValues (HashMap Text QueryParameterValue)
qpvsvAddtional
= lens _qpvsvAddtional
(\ s a -> s{_qpvsvAddtional = a})
. _Coerce
instance FromJSON QueryParameterValueStructValues
where
parseJSON
= withObject "QueryParameterValueStructValues"
(\ o ->
QueryParameterValueStructValues' <$>
(parseJSONObject o))
instance ToJSON QueryParameterValueStructValues where
toJSON = toJSON . _qpvsvAddtional
newtype DataSetLabels = DataSetLabels'
{ _dslAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetLabels
:: HashMap Text Text
-> DataSetLabels
dataSetLabels pDslAddtional_ =
DataSetLabels'
{ _dslAddtional = _Coerce # pDslAddtional_
}
dslAddtional :: Lens' DataSetLabels (HashMap Text Text)
dslAddtional
= lens _dslAddtional (\ s a -> s{_dslAddtional = a})
. _Coerce
instance FromJSON DataSetLabels where
parseJSON
= withObject "DataSetLabels"
(\ o -> DataSetLabels' <$> (parseJSONObject o))
instance ToJSON DataSetLabels where
toJSON = toJSON . _dslAddtional
data JobConfiguration = JobConfiguration'
{ _jcCopy :: !(Maybe JobConfigurationTableCopy)
, _jcLoad :: !(Maybe JobConfigurationLoad)
, _jcQuery :: !(Maybe JobConfigurationQuery)
, _jcExtract :: !(Maybe JobConfigurationExtract)
, _jcLabels :: !(Maybe JobConfigurationLabels)
, _jcDryRun :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfiguration
:: JobConfiguration
jobConfiguration =
JobConfiguration'
{ _jcCopy = Nothing
, _jcLoad = Nothing
, _jcQuery = Nothing
, _jcExtract = Nothing
, _jcLabels = Nothing
, _jcDryRun = Nothing
}
jcCopy :: Lens' JobConfiguration (Maybe JobConfigurationTableCopy)
jcCopy = lens _jcCopy (\ s a -> s{_jcCopy = a})
jcLoad :: Lens' JobConfiguration (Maybe JobConfigurationLoad)
jcLoad = lens _jcLoad (\ s a -> s{_jcLoad = a})
jcQuery :: Lens' JobConfiguration (Maybe JobConfigurationQuery)
jcQuery = lens _jcQuery (\ s a -> s{_jcQuery = a})
jcExtract :: Lens' JobConfiguration (Maybe JobConfigurationExtract)
jcExtract
= lens _jcExtract (\ s a -> s{_jcExtract = a})
jcLabels :: Lens' JobConfiguration (Maybe JobConfigurationLabels)
jcLabels = lens _jcLabels (\ s a -> s{_jcLabels = a})
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 .:? "labels")
<*> (o .:? "dryRun"))
instance ToJSON JobConfiguration where
toJSON JobConfiguration'{..}
= object
(catMaybes
[("copy" .=) <$> _jcCopy, ("load" .=) <$> _jcLoad,
("query" .=) <$> _jcQuery,
("extract" .=) <$> _jcExtract,
("labels" .=) <$> _jcLabels,
("dryRun" .=) <$> _jcDryRun])
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)
job
:: Job
job =
Job'
{ _jJobReference = Nothing
, _jStatus = Nothing
, _jEtag = Nothing
, _jUserEmail = Nothing
, _jKind = "bigquery#job"
, _jSelfLink = Nothing
, _jId = Nothing
, _jStatistics = Nothing
, _jConfiguration = Nothing
}
jJobReference :: Lens' Job (Maybe JobReference)
jJobReference
= lens _jJobReference
(\ s a -> s{_jJobReference = a})
jStatus :: Lens' Job (Maybe JobStatus)
jStatus = lens _jStatus (\ s a -> s{_jStatus = a})
jEtag :: Lens' Job (Maybe Text)
jEtag = lens _jEtag (\ s a -> s{_jEtag = a})
jUserEmail :: Lens' Job (Maybe Text)
jUserEmail
= lens _jUserEmail (\ s a -> s{_jUserEmail = a})
jKind :: Lens' Job Text
jKind = lens _jKind (\ s a -> s{_jKind = a})
jSelfLink :: Lens' Job (Maybe Text)
jSelfLink
= lens _jSelfLink (\ s a -> s{_jSelfLink = a})
jId :: Lens' Job (Maybe Text)
jId = lens _jId (\ s a -> s{_jId = a})
jStatistics :: Lens' Job (Maybe JobStatistics)
jStatistics
= lens _jStatistics (\ s a -> s{_jStatistics = a})
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])
data TableDataInsertAllResponseInsertErrorsItem = TableDataInsertAllResponseInsertErrorsItem'
{ _tdiarieiErrors :: !(Maybe [ErrorProto])
, _tdiarieiIndex :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
tableDataInsertAllResponseInsertErrorsItem
:: TableDataInsertAllResponseInsertErrorsItem
tableDataInsertAllResponseInsertErrorsItem =
TableDataInsertAllResponseInsertErrorsItem'
{ _tdiarieiErrors = Nothing
, _tdiarieiIndex = Nothing
}
tdiarieiErrors :: Lens' TableDataInsertAllResponseInsertErrorsItem [ErrorProto]
tdiarieiErrors
= lens _tdiarieiErrors
(\ s a -> s{_tdiarieiErrors = a})
. _Default
. _Coerce
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])
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)
jobConfigurationExtract
:: JobConfigurationExtract
jobConfigurationExtract =
JobConfigurationExtract'
{ _jceDestinationFormat = Nothing
, _jceSourceTable = Nothing
, _jcePrintHeader = True
, _jceCompression = Nothing
, _jceDestinationURIs = Nothing
, _jceDestinationURI = Nothing
, _jceFieldDelimiter = Nothing
}
jceDestinationFormat :: Lens' JobConfigurationExtract (Maybe Text)
jceDestinationFormat
= lens _jceDestinationFormat
(\ s a -> s{_jceDestinationFormat = a})
jceSourceTable :: Lens' JobConfigurationExtract (Maybe TableReference)
jceSourceTable
= lens _jceSourceTable
(\ s a -> s{_jceSourceTable = a})
jcePrintHeader :: Lens' JobConfigurationExtract Bool
jcePrintHeader
= lens _jcePrintHeader
(\ s a -> s{_jcePrintHeader = a})
jceCompression :: Lens' JobConfigurationExtract (Maybe Text)
jceCompression
= lens _jceCompression
(\ s a -> s{_jceCompression = a})
jceDestinationURIs :: Lens' JobConfigurationExtract [Text]
jceDestinationURIs
= lens _jceDestinationURIs
(\ s a -> s{_jceDestinationURIs = a})
. _Default
. _Coerce
jceDestinationURI :: Lens' JobConfigurationExtract (Maybe Text)
jceDestinationURI
= lens _jceDestinationURI
(\ s a -> s{_jceDestinationURI = a})
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])
data JobCancelResponse = JobCancelResponse'
{ _jcrKind :: !Text
, _jcrJob :: !(Maybe Job)
} deriving (Eq,Show,Data,Typeable,Generic)
jobCancelResponse
:: JobCancelResponse
jobCancelResponse =
JobCancelResponse'
{ _jcrKind = "bigquery#jobCancelResponse"
, _jcrJob = Nothing
}
jcrKind :: Lens' JobCancelResponse Text
jcrKind = lens _jcrKind (\ s a -> s{_jcrKind = a})
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])
newtype JSONObject = JSONObject'
{ _joAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
jsonObject
:: HashMap Text JSONValue
-> 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
data JobConfigurationQuery = JobConfigurationQuery'
{ _jcqDestinationTable :: !(Maybe TableReference)
, _jcqWriteDisPosition :: !(Maybe Text)
, _jcqPriority :: !(Maybe Text)
, _jcqUseQueryCache :: !Bool
, _jcqPreserveNulls :: !(Maybe Bool)
, _jcqTableDefinitions :: !(Maybe JobConfigurationQueryTableDefinitions)
, _jcqQueryParameters :: !(Maybe [QueryParameter])
, _jcqSchemaUpdateOptions :: !(Maybe [Text])
, _jcqMaximumBytesBilled :: !(Maybe (Textual Int64))
, _jcqCreateDisPosition :: !(Maybe Text)
, _jcqUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource])
, _jcqAllowLargeResults :: !(Maybe Bool)
, _jcqMaximumBillingTier :: !(Textual Int32)
, _jcqQuery :: !(Maybe Text)
, _jcqFlattenResults :: !Bool
, _jcqParameterMode :: !(Maybe Text)
, _jcqUseLegacySQL :: !(Maybe Bool)
, _jcqDefaultDataSet :: !(Maybe DataSetReference)
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfigurationQuery
:: JobConfigurationQuery
jobConfigurationQuery =
JobConfigurationQuery'
{ _jcqDestinationTable = Nothing
, _jcqWriteDisPosition = Nothing
, _jcqPriority = Nothing
, _jcqUseQueryCache = True
, _jcqPreserveNulls = Nothing
, _jcqTableDefinitions = Nothing
, _jcqQueryParameters = Nothing
, _jcqSchemaUpdateOptions = Nothing
, _jcqMaximumBytesBilled = Nothing
, _jcqCreateDisPosition = Nothing
, _jcqUserDefinedFunctionResources = Nothing
, _jcqAllowLargeResults = Nothing
, _jcqMaximumBillingTier = 1
, _jcqQuery = Nothing
, _jcqFlattenResults = True
, _jcqParameterMode = Nothing
, _jcqUseLegacySQL = Nothing
, _jcqDefaultDataSet = Nothing
}
jcqDestinationTable :: Lens' JobConfigurationQuery (Maybe TableReference)
jcqDestinationTable
= lens _jcqDestinationTable
(\ s a -> s{_jcqDestinationTable = a})
jcqWriteDisPosition :: Lens' JobConfigurationQuery (Maybe Text)
jcqWriteDisPosition
= lens _jcqWriteDisPosition
(\ s a -> s{_jcqWriteDisPosition = a})
jcqPriority :: Lens' JobConfigurationQuery (Maybe Text)
jcqPriority
= lens _jcqPriority (\ s a -> s{_jcqPriority = a})
jcqUseQueryCache :: Lens' JobConfigurationQuery Bool
jcqUseQueryCache
= lens _jcqUseQueryCache
(\ s a -> s{_jcqUseQueryCache = a})
jcqPreserveNulls :: Lens' JobConfigurationQuery (Maybe Bool)
jcqPreserveNulls
= lens _jcqPreserveNulls
(\ s a -> s{_jcqPreserveNulls = a})
jcqTableDefinitions :: Lens' JobConfigurationQuery (Maybe JobConfigurationQueryTableDefinitions)
jcqTableDefinitions
= lens _jcqTableDefinitions
(\ s a -> s{_jcqTableDefinitions = a})
jcqQueryParameters :: Lens' JobConfigurationQuery [QueryParameter]
jcqQueryParameters
= lens _jcqQueryParameters
(\ s a -> s{_jcqQueryParameters = a})
. _Default
. _Coerce
jcqSchemaUpdateOptions :: Lens' JobConfigurationQuery [Text]
jcqSchemaUpdateOptions
= lens _jcqSchemaUpdateOptions
(\ s a -> s{_jcqSchemaUpdateOptions = a})
. _Default
. _Coerce
jcqMaximumBytesBilled :: Lens' JobConfigurationQuery (Maybe Int64)
jcqMaximumBytesBilled
= lens _jcqMaximumBytesBilled
(\ s a -> s{_jcqMaximumBytesBilled = a})
. mapping _Coerce
jcqCreateDisPosition :: Lens' JobConfigurationQuery (Maybe Text)
jcqCreateDisPosition
= lens _jcqCreateDisPosition
(\ s a -> s{_jcqCreateDisPosition = a})
jcqUserDefinedFunctionResources :: Lens' JobConfigurationQuery [UserDefinedFunctionResource]
jcqUserDefinedFunctionResources
= lens _jcqUserDefinedFunctionResources
(\ s a -> s{_jcqUserDefinedFunctionResources = a})
. _Default
. _Coerce
jcqAllowLargeResults :: Lens' JobConfigurationQuery (Maybe Bool)
jcqAllowLargeResults
= lens _jcqAllowLargeResults
(\ s a -> s{_jcqAllowLargeResults = a})
jcqMaximumBillingTier :: Lens' JobConfigurationQuery Int32
jcqMaximumBillingTier
= lens _jcqMaximumBillingTier
(\ s a -> s{_jcqMaximumBillingTier = a})
. _Coerce
jcqQuery :: Lens' JobConfigurationQuery (Maybe Text)
jcqQuery = lens _jcqQuery (\ s a -> s{_jcqQuery = a})
jcqFlattenResults :: Lens' JobConfigurationQuery Bool
jcqFlattenResults
= lens _jcqFlattenResults
(\ s a -> s{_jcqFlattenResults = a})
jcqParameterMode :: Lens' JobConfigurationQuery (Maybe Text)
jcqParameterMode
= lens _jcqParameterMode
(\ s a -> s{_jcqParameterMode = a})
jcqUseLegacySQL :: Lens' JobConfigurationQuery (Maybe Bool)
jcqUseLegacySQL
= lens _jcqUseLegacySQL
(\ s a -> s{_jcqUseLegacySQL = a})
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 .:? "queryParameters" .!= mempty)
<*> (o .:? "schemaUpdateOptions" .!= mempty)
<*> (o .:? "maximumBytesBilled")
<*> (o .:? "createDisposition")
<*> (o .:? "userDefinedFunctionResources" .!= mempty)
<*> (o .:? "allowLargeResults")
<*> (o .:? "maximumBillingTier" .!= 1)
<*> (o .:? "query")
<*> (o .:? "flattenResults" .!= True)
<*> (o .:? "parameterMode")
<*> (o .:? "useLegacySql")
<*> (o .:? "defaultDataset"))
instance ToJSON JobConfigurationQuery where
toJSON JobConfigurationQuery'{..}
= object
(catMaybes
[("destinationTable" .=) <$> _jcqDestinationTable,
("writeDisposition" .=) <$> _jcqWriteDisPosition,
("priority" .=) <$> _jcqPriority,
Just ("useQueryCache" .= _jcqUseQueryCache),
("preserveNulls" .=) <$> _jcqPreserveNulls,
("tableDefinitions" .=) <$> _jcqTableDefinitions,
("queryParameters" .=) <$> _jcqQueryParameters,
("schemaUpdateOptions" .=) <$>
_jcqSchemaUpdateOptions,
("maximumBytesBilled" .=) <$> _jcqMaximumBytesBilled,
("createDisposition" .=) <$> _jcqCreateDisPosition,
("userDefinedFunctionResources" .=) <$>
_jcqUserDefinedFunctionResources,
("allowLargeResults" .=) <$> _jcqAllowLargeResults,
Just
("maximumBillingTier" .= _jcqMaximumBillingTier),
("query" .=) <$> _jcqQuery,
Just ("flattenResults" .= _jcqFlattenResults),
("parameterMode" .=) <$> _jcqParameterMode,
("useLegacySql" .=) <$> _jcqUseLegacySQL,
("defaultDataset" .=) <$> _jcqDefaultDataSet])
newtype GoogleSheetsOptions = GoogleSheetsOptions'
{ _gsoSkipLeadingRows :: Maybe (Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
googleSheetsOptions
:: GoogleSheetsOptions
googleSheetsOptions =
GoogleSheetsOptions'
{ _gsoSkipLeadingRows = Nothing
}
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])
data TableDataInsertAllRequestRowsItem = TableDataInsertAllRequestRowsItem'
{ _tdiarriJSON :: !(Maybe JSONObject)
, _tdiarriInsertId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
tableDataInsertAllRequestRowsItem
:: TableDataInsertAllRequestRowsItem
tableDataInsertAllRequestRowsItem =
TableDataInsertAllRequestRowsItem'
{ _tdiarriJSON = Nothing
, _tdiarriInsertId = Nothing
}
tdiarriJSON :: Lens' TableDataInsertAllRequestRowsItem (Maybe JSONObject)
tdiarriJSON
= lens _tdiarriJSON (\ s a -> s{_tdiarriJSON = a})
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])
data JobList = JobList'
{ _jlEtag :: !(Maybe Text)
, _jlNextPageToken :: !(Maybe Text)
, _jlKind :: !Text
, _jlJobs :: !(Maybe [JobListJobsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
jobList
:: JobList
jobList =
JobList'
{ _jlEtag = Nothing
, _jlNextPageToken = Nothing
, _jlKind = "bigquery#jobList"
, _jlJobs = Nothing
}
jlEtag :: Lens' JobList (Maybe Text)
jlEtag = lens _jlEtag (\ s a -> s{_jlEtag = a})
jlNextPageToken :: Lens' JobList (Maybe Text)
jlNextPageToken
= lens _jlNextPageToken
(\ s a -> s{_jlNextPageToken = a})
jlKind :: Lens' JobList Text
jlKind = lens _jlKind (\ s a -> s{_jlKind = a})
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])
newtype JobConfigurationQueryTableDefinitions = JobConfigurationQueryTableDefinitions'
{ _jcqtdAddtional :: HashMap Text ExternalDataConfiguration
} deriving (Eq,Show,Data,Typeable,Generic)
jobConfigurationQueryTableDefinitions
:: HashMap Text ExternalDataConfiguration
-> 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
newtype TableCell = TableCell'
{ _tcV :: Maybe JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
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])
data QueryParameterValue = QueryParameterValue'
{ _qpvStructValues :: !(Maybe QueryParameterValueStructValues)
, _qpvValue :: !(Maybe Text)
, _qpvArrayValues :: !(Maybe [QueryParameterValue])
} deriving (Eq,Show,Data,Typeable,Generic)
queryParameterValue
:: QueryParameterValue
queryParameterValue =
QueryParameterValue'
{ _qpvStructValues = Nothing
, _qpvValue = Nothing
, _qpvArrayValues = Nothing
}
qpvStructValues :: Lens' QueryParameterValue (Maybe QueryParameterValueStructValues)
qpvStructValues
= lens _qpvStructValues
(\ s a -> s{_qpvStructValues = a})
qpvValue :: Lens' QueryParameterValue (Maybe Text)
qpvValue = lens _qpvValue (\ s a -> s{_qpvValue = a})
qpvArrayValues :: Lens' QueryParameterValue [QueryParameterValue]
qpvArrayValues
= lens _qpvArrayValues
(\ s a -> s{_qpvArrayValues = a})
. _Default
. _Coerce
instance FromJSON QueryParameterValue where
parseJSON
= withObject "QueryParameterValue"
(\ o ->
QueryParameterValue' <$>
(o .:? "structValues") <*> (o .:? "value") <*>
(o .:? "arrayValues" .!= mempty))
instance ToJSON QueryParameterValue where
toJSON QueryParameterValue'{..}
= object
(catMaybes
[("structValues" .=) <$> _qpvStructValues,
("value" .=) <$> _qpvValue,
("arrayValues" .=) <$> _qpvArrayValues])
data ViewDefinition = ViewDefinition'
{ _vdUserDefinedFunctionResources :: !(Maybe [UserDefinedFunctionResource])
, _vdQuery :: !(Maybe Text)
, _vdUseLegacySQL :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
viewDefinition
:: ViewDefinition
viewDefinition =
ViewDefinition'
{ _vdUserDefinedFunctionResources = Nothing
, _vdQuery = Nothing
, _vdUseLegacySQL = Nothing
}
vdUserDefinedFunctionResources :: Lens' ViewDefinition [UserDefinedFunctionResource]
vdUserDefinedFunctionResources
= lens _vdUserDefinedFunctionResources
(\ s a -> s{_vdUserDefinedFunctionResources = a})
. _Default
. _Coerce
vdQuery :: Lens' ViewDefinition (Maybe Text)
vdQuery = lens _vdQuery (\ s a -> s{_vdQuery = a})
vdUseLegacySQL :: Lens' ViewDefinition (Maybe Bool)
vdUseLegacySQL
= lens _vdUseLegacySQL
(\ s a -> s{_vdUseLegacySQL = a})
instance FromJSON ViewDefinition where
parseJSON
= withObject "ViewDefinition"
(\ o ->
ViewDefinition' <$>
(o .:? "userDefinedFunctionResources" .!= mempty) <*>
(o .:? "query")
<*> (o .:? "useLegacySql"))
instance ToJSON ViewDefinition where
toJSON ViewDefinition'{..}
= object
(catMaybes
[("userDefinedFunctionResources" .=) <$>
_vdUserDefinedFunctionResources,
("query" .=) <$> _vdQuery,
("useLegacySql" .=) <$> _vdUseLegacySQL])
data UserDefinedFunctionResource = UserDefinedFunctionResource'
{ _udfrResourceURI :: !(Maybe Text)
, _udfrInlineCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
userDefinedFunctionResource
:: UserDefinedFunctionResource
userDefinedFunctionResource =
UserDefinedFunctionResource'
{ _udfrResourceURI = Nothing
, _udfrInlineCode = Nothing
}
udfrResourceURI :: Lens' UserDefinedFunctionResource (Maybe Text)
udfrResourceURI
= lens _udfrResourceURI
(\ s a -> s{_udfrResourceURI = a})
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])
data JobStatistics2 = JobStatistics2'
{ _jSchema :: !(Maybe TableSchema)
, _jTotalBytesProcessed :: !(Maybe (Textual Int64))
, _jBillingTier :: !(Maybe (Textual Int32))
, _jUndeclaredQueryParameters :: !(Maybe [QueryParameter])
, _jReferencedTables :: !(Maybe [TableReference])
, _jStatementType :: !(Maybe Text)
, _jNumDmlAffectedRows :: !(Maybe (Textual Int64))
, _jQueryPlan :: !(Maybe [ExplainQueryStage])
, _jCacheHit :: !(Maybe Bool)
, _jTotalBytesBilled :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
jobStatistics2
:: JobStatistics2
jobStatistics2 =
JobStatistics2'
{ _jSchema = Nothing
, _jTotalBytesProcessed = Nothing
, _jBillingTier = Nothing
, _jUndeclaredQueryParameters = Nothing
, _jReferencedTables = Nothing
, _jStatementType = Nothing
, _jNumDmlAffectedRows = Nothing
, _jQueryPlan = Nothing
, _jCacheHit = Nothing
, _jTotalBytesBilled = Nothing
}
jSchema :: Lens' JobStatistics2 (Maybe TableSchema)
jSchema = lens _jSchema (\ s a -> s{_jSchema = a})
jTotalBytesProcessed :: Lens' JobStatistics2 (Maybe Int64)
jTotalBytesProcessed
= lens _jTotalBytesProcessed
(\ s a -> s{_jTotalBytesProcessed = a})
. mapping _Coerce
jBillingTier :: Lens' JobStatistics2 (Maybe Int32)
jBillingTier
= lens _jBillingTier (\ s a -> s{_jBillingTier = a})
. mapping _Coerce
jUndeclaredQueryParameters :: Lens' JobStatistics2 [QueryParameter]
jUndeclaredQueryParameters
= lens _jUndeclaredQueryParameters
(\ s a -> s{_jUndeclaredQueryParameters = a})
. _Default
. _Coerce
jReferencedTables :: Lens' JobStatistics2 [TableReference]
jReferencedTables
= lens _jReferencedTables
(\ s a -> s{_jReferencedTables = a})
. _Default
. _Coerce
jStatementType :: Lens' JobStatistics2 (Maybe Text)
jStatementType
= lens _jStatementType
(\ s a -> s{_jStatementType = a})
jNumDmlAffectedRows :: Lens' JobStatistics2 (Maybe Int64)
jNumDmlAffectedRows
= lens _jNumDmlAffectedRows
(\ s a -> s{_jNumDmlAffectedRows = a})
. mapping _Coerce
jQueryPlan :: Lens' JobStatistics2 [ExplainQueryStage]
jQueryPlan
= lens _jQueryPlan (\ s a -> s{_jQueryPlan = a}) .
_Default
. _Coerce
jCacheHit :: Lens' JobStatistics2 (Maybe Bool)
jCacheHit
= lens _jCacheHit (\ s a -> s{_jCacheHit = a})
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 .:? "undeclaredQueryParameters" .!= mempty)
<*> (o .:? "referencedTables" .!= mempty)
<*> (o .:? "statementType")
<*> (o .:? "numDmlAffectedRows")
<*> (o .:? "queryPlan" .!= mempty)
<*> (o .:? "cacheHit")
<*> (o .:? "totalBytesBilled"))
instance ToJSON JobStatistics2 where
toJSON JobStatistics2'{..}
= object
(catMaybes
[("schema" .=) <$> _jSchema,
("totalBytesProcessed" .=) <$> _jTotalBytesProcessed,
("billingTier" .=) <$> _jBillingTier,
("undeclaredQueryParameters" .=) <$>
_jUndeclaredQueryParameters,
("referencedTables" .=) <$> _jReferencedTables,
("statementType" .=) <$> _jStatementType,
("numDmlAffectedRows" .=) <$> _jNumDmlAffectedRows,
("queryPlan" .=) <$> _jQueryPlan,
("cacheHit" .=) <$> _jCacheHit,
("totalBytesBilled" .=) <$> _jTotalBytesBilled])
data JobStatus = JobStatus'
{ _jsState :: !(Maybe Text)
, _jsErrorResult :: !(Maybe ErrorProto)
, _jsErrors :: !(Maybe [ErrorProto])
} deriving (Eq,Show,Data,Typeable,Generic)
jobStatus
:: JobStatus
jobStatus =
JobStatus'
{ _jsState = Nothing
, _jsErrorResult = Nothing
, _jsErrors = Nothing
}
jsState :: Lens' JobStatus (Maybe Text)
jsState = lens _jsState (\ s a -> s{_jsState = a})
jsErrorResult :: Lens' JobStatus (Maybe ErrorProto)
jsErrorResult
= lens _jsErrorResult
(\ s a -> s{_jsErrorResult = a})
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])
newtype TableLabels = TableLabels'
{ _tlAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
tableLabels
:: HashMap Text Text
-> TableLabels
tableLabels pTlAddtional_ =
TableLabels'
{ _tlAddtional = _Coerce # pTlAddtional_
}
tlAddtional :: Lens' TableLabels (HashMap Text Text)
tlAddtional
= lens _tlAddtional (\ s a -> s{_tlAddtional = a}) .
_Coerce
instance FromJSON TableLabels where
parseJSON
= withObject "TableLabels"
(\ o -> TableLabels' <$> (parseJSONObject o))
instance ToJSON TableLabels where
toJSON = toJSON . _tlAddtional
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)
dataSetAccessItem
:: DataSetAccessItem
dataSetAccessItem =
DataSetAccessItem'
{ _dsaiGroupByEmail = Nothing
, _dsaiDomain = Nothing
, _dsaiSpecialGroup = Nothing
, _dsaiRole = Nothing
, _dsaiView = Nothing
, _dsaiUserByEmail = Nothing
}
dsaiGroupByEmail :: Lens' DataSetAccessItem (Maybe Text)
dsaiGroupByEmail
= lens _dsaiGroupByEmail
(\ s a -> s{_dsaiGroupByEmail = a})
dsaiDomain :: Lens' DataSetAccessItem (Maybe Text)
dsaiDomain
= lens _dsaiDomain (\ s a -> s{_dsaiDomain = a})
dsaiSpecialGroup :: Lens' DataSetAccessItem (Maybe Text)
dsaiSpecialGroup
= lens _dsaiSpecialGroup
(\ s a -> s{_dsaiSpecialGroup = a})
dsaiRole :: Lens' DataSetAccessItem (Maybe Text)
dsaiRole = lens _dsaiRole (\ s a -> s{_dsaiRole = a})
dsaiView :: Lens' DataSetAccessItem (Maybe TableReference)
dsaiView = lens _dsaiView (\ s a -> s{_dsaiView = a})
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])
data TableDataInsertAllResponse = TableDataInsertAllResponse'
{ _tKind :: !Text
, _tInsertErrors :: !(Maybe [TableDataInsertAllResponseInsertErrorsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
tableDataInsertAllResponse
:: TableDataInsertAllResponse
tableDataInsertAllResponse =
TableDataInsertAllResponse'
{ _tKind = "bigquery#tableDataInsertAllResponse"
, _tInsertErrors = Nothing
}
tKind :: Lens' TableDataInsertAllResponse Text
tKind = lens _tKind (\ s a -> s{_tKind = a})
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])
data QueryParameterType = QueryParameterType'
{ _qptStructTypes :: !(Maybe [QueryParameterTypeStructTypesItem])
, _qptType :: !(Maybe Text)
, _qptArrayType :: !(Maybe QueryParameterType)
} deriving (Eq,Show,Data,Typeable,Generic)
queryParameterType
:: QueryParameterType
queryParameterType =
QueryParameterType'
{ _qptStructTypes = Nothing
, _qptType = Nothing
, _qptArrayType = Nothing
}
qptStructTypes :: Lens' QueryParameterType [QueryParameterTypeStructTypesItem]
qptStructTypes
= lens _qptStructTypes
(\ s a -> s{_qptStructTypes = a})
. _Default
. _Coerce
qptType :: Lens' QueryParameterType (Maybe Text)
qptType = lens _qptType (\ s a -> s{_qptType = a})
qptArrayType :: Lens' QueryParameterType (Maybe QueryParameterType)
qptArrayType
= lens _qptArrayType (\ s a -> s{_qptArrayType = a})
instance FromJSON QueryParameterType where
parseJSON
= withObject "QueryParameterType"
(\ o ->
QueryParameterType' <$>
(o .:? "structTypes" .!= mempty) <*> (o .:? "type")
<*> (o .:? "arrayType"))
instance ToJSON QueryParameterType where
toJSON QueryParameterType'{..}
= object
(catMaybes
[("structTypes" .=) <$> _qptStructTypes,
("type" .=) <$> _qptType,
("arrayType" .=) <$> _qptArrayType])
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)
, _tabLabels :: !(Maybe TableLabels)
, _tabType :: !(Maybe Text)
, _tabNumLongTermBytes :: !(Maybe (Textual Int64))
, _tabExpirationTime :: !(Maybe (Textual Int64))
, _tabDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
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
, _tabLabels = Nothing
, _tabType = Nothing
, _tabNumLongTermBytes = Nothing
, _tabExpirationTime = Nothing
, _tabDescription = Nothing
}
tabCreationTime :: Lens' Table (Maybe Int64)
tabCreationTime
= lens _tabCreationTime
(\ s a -> s{_tabCreationTime = a})
. mapping _Coerce
tabEtag :: Lens' Table (Maybe Text)
tabEtag = lens _tabEtag (\ s a -> s{_tabEtag = a})
tabNumBytes :: Lens' Table (Maybe Int64)
tabNumBytes
= lens _tabNumBytes (\ s a -> s{_tabNumBytes = a}) .
mapping _Coerce
tabExternalDataConfiguration :: Lens' Table (Maybe ExternalDataConfiguration)
tabExternalDataConfiguration
= lens _tabExternalDataConfiguration
(\ s a -> s{_tabExternalDataConfiguration = a})
tabLocation :: Lens' Table (Maybe Text)
tabLocation
= lens _tabLocation (\ s a -> s{_tabLocation = a})
tabTableReference :: Lens' Table (Maybe TableReference)
tabTableReference
= lens _tabTableReference
(\ s a -> s{_tabTableReference = a})
tabFriendlyName :: Lens' Table (Maybe Text)
tabFriendlyName
= lens _tabFriendlyName
(\ s a -> s{_tabFriendlyName = a})
tabKind :: Lens' Table Text
tabKind = lens _tabKind (\ s a -> s{_tabKind = a})
tabLastModifiedTime :: Lens' Table (Maybe Word64)
tabLastModifiedTime
= lens _tabLastModifiedTime
(\ s a -> s{_tabLastModifiedTime = a})
. mapping _Coerce
tabSchema :: Lens' Table (Maybe TableSchema)
tabSchema
= lens _tabSchema (\ s a -> s{_tabSchema = a})
tabStreamingBuffer :: Lens' Table (Maybe Streamingbuffer)
tabStreamingBuffer
= lens _tabStreamingBuffer
(\ s a -> s{_tabStreamingBuffer = a})
tabSelfLink :: Lens' Table (Maybe Text)
tabSelfLink
= lens _tabSelfLink (\ s a -> s{_tabSelfLink = a})
tabTimePartitioning :: Lens' Table (Maybe TimePartitioning)
tabTimePartitioning
= lens _tabTimePartitioning
(\ s a -> s{_tabTimePartitioning = a})
tabNumRows :: Lens' Table (Maybe Word64)
tabNumRows
= lens _tabNumRows (\ s a -> s{_tabNumRows = a}) .
mapping _Coerce
tabView :: Lens' Table (Maybe ViewDefinition)
tabView = lens _tabView (\ s a -> s{_tabView = a})
tabId :: Lens' Table (Maybe Text)
tabId = lens _tabId (\ s a -> s{_tabId = a})
tabLabels :: Lens' Table (Maybe TableLabels)
tabLabels
= lens _tabLabels (\ s a -> s{_tabLabels = a})
tabType :: Lens' Table (Maybe Text)
tabType = lens _tabType (\ s a -> s{_tabType = a})
tabNumLongTermBytes :: Lens' Table (Maybe Int64)
tabNumLongTermBytes
= lens _tabNumLongTermBytes
(\ s a -> s{_tabNumLongTermBytes = a})
. mapping _Coerce
tabExpirationTime :: Lens' Table (Maybe Int64)
tabExpirationTime
= lens _tabExpirationTime
(\ s a -> s{_tabExpirationTime = a})
. mapping _Coerce
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 .:? "labels")
<*> (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,
("labels" .=) <$> _tabLabels,
("type" .=) <$> _tabType,
("numLongTermBytes" .=) <$> _tabNumLongTermBytes,
("expirationTime" .=) <$> _tabExpirationTime,
("description" .=) <$> _tabDescription])
data ErrorProto = ErrorProto'
{ _epDebugInfo :: !(Maybe Text)
, _epLocation :: !(Maybe Text)
, _epReason :: !(Maybe Text)
, _epMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
errorProto
:: ErrorProto
errorProto =
ErrorProto'
{ _epDebugInfo = Nothing
, _epLocation = Nothing
, _epReason = Nothing
, _epMessage = Nothing
}
epDebugInfo :: Lens' ErrorProto (Maybe Text)
epDebugInfo
= lens _epDebugInfo (\ s a -> s{_epDebugInfo = a})
epLocation :: Lens' ErrorProto (Maybe Text)
epLocation
= lens _epLocation (\ s a -> s{_epLocation = a})
epReason :: Lens' ErrorProto (Maybe Text)
epReason = lens _epReason (\ s a -> s{_epReason = a})
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])
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)
csvOptions
:: CSVOptions
csvOptions =
CSVOptions'
{ _coSkipLeadingRows = Nothing
, _coAllowJaggedRows = Nothing
, _coAllowQuotedNewlines = Nothing
, _coQuote = "\""
, _coEncoding = Nothing
, _coFieldDelimiter = Nothing
}
coSkipLeadingRows :: Lens' CSVOptions (Maybe Int64)
coSkipLeadingRows
= lens _coSkipLeadingRows
(\ s a -> s{_coSkipLeadingRows = a})
. mapping _Coerce
coAllowJaggedRows :: Lens' CSVOptions (Maybe Bool)
coAllowJaggedRows
= lens _coAllowJaggedRows
(\ s a -> s{_coAllowJaggedRows = a})
coAllowQuotedNewlines :: Lens' CSVOptions (Maybe Bool)
coAllowQuotedNewlines
= lens _coAllowQuotedNewlines
(\ s a -> s{_coAllowQuotedNewlines = a})
coQuote :: Lens' CSVOptions Text
coQuote = lens _coQuote (\ s a -> s{_coQuote = a})
coEncoding :: Lens' CSVOptions (Maybe Text)
coEncoding
= lens _coEncoding (\ s a -> s{_coEncoding = a})
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])
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)
jobStatistics3
:: JobStatistics3
jobStatistics3 =
JobStatistics3'
{ _jsInputFiles = Nothing
, _jsOutputRows = Nothing
, _jsOutputBytes = Nothing
, _jsInputFileBytes = Nothing
}
jsInputFiles :: Lens' JobStatistics3 (Maybe Int64)
jsInputFiles
= lens _jsInputFiles (\ s a -> s{_jsInputFiles = a})
. mapping _Coerce
jsOutputRows :: Lens' JobStatistics3 (Maybe Int64)
jsOutputRows
= lens _jsOutputRows (\ s a -> s{_jsOutputRows = a})
. mapping _Coerce
jsOutputBytes :: Lens' JobStatistics3 (Maybe Int64)
jsOutputBytes
= lens _jsOutputBytes
(\ s a -> s{_jsOutputBytes = a})
. mapping _Coerce
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])
data QueryResponse = QueryResponse'
{ _qJobReference :: !(Maybe JobReference)
, _qKind :: !Text
, _qSchema :: !(Maybe TableSchema)
, _qTotalBytesProcessed :: !(Maybe (Textual Int64))
, _qRows :: !(Maybe [TableRow])
, _qPageToken :: !(Maybe Text)
, _qNumDmlAffectedRows :: !(Maybe (Textual Int64))
, _qTotalRows :: !(Maybe (Textual Word64))
, _qErrors :: !(Maybe [ErrorProto])
, _qJobComplete :: !(Maybe Bool)
, _qCacheHit :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
queryResponse
:: QueryResponse
queryResponse =
QueryResponse'
{ _qJobReference = Nothing
, _qKind = "bigquery#queryResponse"
, _qSchema = Nothing
, _qTotalBytesProcessed = Nothing
, _qRows = Nothing
, _qPageToken = Nothing
, _qNumDmlAffectedRows = Nothing
, _qTotalRows = Nothing
, _qErrors = Nothing
, _qJobComplete = Nothing
, _qCacheHit = Nothing
}
qJobReference :: Lens' QueryResponse (Maybe JobReference)
qJobReference
= lens _qJobReference
(\ s a -> s{_qJobReference = a})
qKind :: Lens' QueryResponse Text
qKind = lens _qKind (\ s a -> s{_qKind = a})
qSchema :: Lens' QueryResponse (Maybe TableSchema)
qSchema = lens _qSchema (\ s a -> s{_qSchema = a})
qTotalBytesProcessed :: Lens' QueryResponse (Maybe Int64)
qTotalBytesProcessed
= lens _qTotalBytesProcessed
(\ s a -> s{_qTotalBytesProcessed = a})
. mapping _Coerce
qRows :: Lens' QueryResponse [TableRow]
qRows
= lens _qRows (\ s a -> s{_qRows = a}) . _Default .
_Coerce
qPageToken :: Lens' QueryResponse (Maybe Text)
qPageToken
= lens _qPageToken (\ s a -> s{_qPageToken = a})
qNumDmlAffectedRows :: Lens' QueryResponse (Maybe Int64)
qNumDmlAffectedRows
= lens _qNumDmlAffectedRows
(\ s a -> s{_qNumDmlAffectedRows = a})
. mapping _Coerce
qTotalRows :: Lens' QueryResponse (Maybe Word64)
qTotalRows
= lens _qTotalRows (\ s a -> s{_qTotalRows = a}) .
mapping _Coerce
qErrors :: Lens' QueryResponse [ErrorProto]
qErrors
= lens _qErrors (\ s a -> s{_qErrors = a}) . _Default
. _Coerce
qJobComplete :: Lens' QueryResponse (Maybe Bool)
qJobComplete
= lens _qJobComplete (\ s a -> s{_qJobComplete = a})
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 .:? "numDmlAffectedRows")
<*> (o .:? "totalRows")
<*> (o .:? "errors" .!= mempty)
<*> (o .:? "jobComplete")
<*> (o .:? "cacheHit"))
instance ToJSON QueryResponse where
toJSON QueryResponse'{..}
= object
(catMaybes
[("jobReference" .=) <$> _qJobReference,
Just ("kind" .= _qKind), ("schema" .=) <$> _qSchema,
("totalBytesProcessed" .=) <$> _qTotalBytesProcessed,
("rows" .=) <$> _qRows,
("pageToken" .=) <$> _qPageToken,
("numDmlAffectedRows" .=) <$> _qNumDmlAffectedRows,
("totalRows" .=) <$> _qTotalRows,
("errors" .=) <$> _qErrors,
("jobComplete" .=) <$> _qJobComplete,
("cacheHit" .=) <$> _qCacheHit])
newtype DataSetListDataSetsItemLabels = DataSetListDataSetsItemLabels'
{ _dsldsilAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetListDataSetsItemLabels
:: HashMap Text Text
-> DataSetListDataSetsItemLabels
dataSetListDataSetsItemLabels pDsldsilAddtional_ =
DataSetListDataSetsItemLabels'
{ _dsldsilAddtional = _Coerce # pDsldsilAddtional_
}
dsldsilAddtional :: Lens' DataSetListDataSetsItemLabels (HashMap Text Text)
dsldsilAddtional
= lens _dsldsilAddtional
(\ s a -> s{_dsldsilAddtional = a})
. _Coerce
instance FromJSON DataSetListDataSetsItemLabels where
parseJSON
= withObject "DataSetListDataSetsItemLabels"
(\ o ->
DataSetListDataSetsItemLabels' <$>
(parseJSONObject o))
instance ToJSON DataSetListDataSetsItemLabels where
toJSON = toJSON . _dsldsilAddtional
newtype TableListTablesItemLabels = TableListTablesItemLabels'
{ _tltilAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
tableListTablesItemLabels
:: HashMap Text Text
-> TableListTablesItemLabels
tableListTablesItemLabels pTltilAddtional_ =
TableListTablesItemLabels'
{ _tltilAddtional = _Coerce # pTltilAddtional_
}
tltilAddtional :: Lens' TableListTablesItemLabels (HashMap Text Text)
tltilAddtional
= lens _tltilAddtional
(\ s a -> s{_tltilAddtional = a})
. _Coerce
instance FromJSON TableListTablesItemLabels where
parseJSON
= withObject "TableListTablesItemLabels"
(\ o ->
TableListTablesItemLabels' <$> (parseJSONObject o))
instance ToJSON TableListTablesItemLabels where
toJSON = toJSON . _tltilAddtional