on develop help sign in
Recasing resource names
commit343ea59f9f44993409a135b43f299d2f9ad7da04 authorBrendan Hay <brendan.g.hay@gmail.com> dateThu 22 Oct 2015, 12:43 (11 years ago) parentbd11cd3
134 files changed+7400−7335
gen/src/Gen/Text.hs+3 gogol-bigquery/gen/Network/Google/BigQuery.hs+64−64 gogol-bigquery/gen/Network/Google/BigQuery/Types.hs+46−46 gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+281−278 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Delete.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hs+43−43 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Get.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Get.hs+36−36 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Insert.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hs+36−36 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/List.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/List.hs+50−48 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Patch.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hs+45−45 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Update.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Update.hs+45−45 gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs+11−11 gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/List.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Get.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/List.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs+10−10 gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Update.hs+10−10 gogol-bigquery/gogol-bigquery.cabal+6−6 gogol-books/gen/Network/Google/Books.hs+21−21 gogol-books/gen/Network/Google/Books/Types.hs+21−21 gogol-books/gen/Network/Google/Books/Types/Product.hs+118−115 gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/List.hs+18−18 gogol-books/gen/Network/Google/Resource/Books/MyConfig/GetUserSettings.hs+2−2 gogol-books/gen/Network/Google/Resource/Books/MyConfig/UpdateUserSettings.hs+6−6 gogol-dataflow/gen/Network/Google/Dataflow.hs+2−2 gogol-dataflow/gen/Network/Google/Dataflow/Types.hs+2−2 gogol-dataflow/gen/Network/Google/Dataflow/Types/Product.hs+13−13 gogol-datastore/gen/Network/Google/Datastore.hs+20−20 gogol-datastore/gen/Network/Google/Datastore/Types.hs+2−2 gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+13−13 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/AllocateIds.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/AllocateIds.hs+36−35 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/BeginTransaction.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/BeginTransaction.hs+36−35 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Commit.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Commit.hs+35−35 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Lookup.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Lookup.hs+35−35 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Rollback.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Rollback.hs+35−35 gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/RunQuery.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/RunQuery.hs+36−35 gogol-datastore/gogol-datastore.cabal+6−6 gogol-dfareporting/gen/Network/Google/DFAReporting.hs+7−7 gogol-dfareporting/gen/Network/Google/DFAReporting/Types.hs+7−7 gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Product.hs+39−39 gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Sum.hs+18−18 gogol-dns/gen/Network/Google/DNS.hs+5−5 gogol-dns/gen/Network/Google/DNS/Types.hs+5−5 gogol-dns/gen/Network/Google/DNS/Types/Product.hs+39−39 gogol-fitness/gen/Network/Google/Fitness.hs+21−21 gogol-fitness/gen/Network/Google/Fitness/Types.hs+9−9 gogol-fitness/gen/Network/Google/Fitness/Types/Product.hs+59−59 gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Dataset/Aggregate.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSet/Aggregate.hs+35−35 gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Delete.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Delete.hs+64−63 gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Get.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Get.hs+64−63 gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Patch.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Patch.hs+66−64 gogol-fitness/gogol-fitness.cabal+4−4 gogol-fonts/gen/Network/Google/Fonts.hs+1−1 gogol-fonts/gen/Network/Google/Fonts/Types.hs+1−1 gogol-fonts/gen/Network/Google/Fonts/Types/Product.hs+7−7 gogol-genomics/gen/Network/Google/Genomics.hs+130−130 gogol-genomics/gen/Network/Google/Genomics/Types.hs+49−49 gogol-genomics/gen/Network/Google/Genomics/Types/Product.hs+329−328 gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Create.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Delete.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Get.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Patch.hs+195 gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Search.hs+171 gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Create.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Delete.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Get.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Patch.hs−193 gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Search.hs−170 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Create.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Delete.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Get.hs+167 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/GetIAMPolicy.hs+189 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/List.hs+194 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Patch.hs+195 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/SetIAMPolicy.hs+187 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/TestIAMPermissions.hs+189 gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Undelete.hs+186 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Create.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Delete.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Get.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/GetIAMPolicy.hs−187 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/List.hs−193 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Patch.hs−193 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/SetIAMPolicy.hs−185 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/TestIAMPermissions.hs−187 gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Undelete.hs−185 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/CoverageBuckets/List.hs+279 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Delete.hs+172 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Export.hs+193 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Get.hs+171 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Import.hs → gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Import.hs+85−83 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Patch.hs+202 gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Search.hs+174 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Coveragebuckets/List.hs−272 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Delete.hs−169 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Export.hs−190 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Get.hs−166 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Patch.hs−198 gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Search.hs−173 gogol-genomics/gen/Network/Google/Resource/Genomics/References/Get.hs+63−67 gogol-genomics/gen/Network/Google/Resource/Genomics/References/Search.hs+66−65 gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Create.hs+172 gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Delete.hs+171 gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Export.hs+185 gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Get.hs+168 gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Patch.hs+198 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Search.hs → gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Search.hs+26−26 gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Create.hs+65−66 gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Delete.hs+65−66 gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Get.hs+65−62 gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Patch.hs+82−84 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Create.hs−171 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Delete.hs−170 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Export.hs−184 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Get.hs−167 gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Patch.hs−196 gogol-genomics/gogol-genomics.cabal+27−27 gogol-plus-domains/gen/Network/Google/PlusDomains.hs+2−2 gogol-plus-domains/gen/Network/Google/PlusDomains/Types.hs+2−2 gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Product.hs+16−16 gogol-plus/gen/Network/Google/Plus.hs+2−2 gogol-plus/gen/Network/Google/Plus/Types.hs+2−2 gogol-plus/gen/Network/Google/Plus/Types/Product.hs+16−16 gogol-sqladmin/gen/Network/Google/SQLAdmin.hs+1−1 gogol-sqladmin/gen/Network/Google/SQLAdmin/Types.hs+1−1 gogol-sqladmin/gen/Network/Google/SQLAdmin/Types/Product.hs+6−6 gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Control.hs+9−9 gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Unset.hs → gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/UnSet.hs+35−35 gogol-youtube/gen/Network/Google/YouTube.hs+4−4 gogol-youtube/gen/Network/Google/YouTube/Types.hs+1−1 gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+7−7 gogol-youtube/gen/Network/Google/YouTube/Types/Sum.hs+6−6 gogol-youtube/gogol-youtube.cabal+1−1
gen/src/Gen/Text.hs+3
@@ -274,6 +274,9 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
274274 , ("unit", "Unit")
275275 , ("upload", "Upload")
276276 , ("user", "User")
277+ , ("bucket", "Bucket")
278+ , ("([^se])set", "$1Set")
279+ , ("group", "Group")
277280 ]
278281
279282acronyms :: [(String, String)]
gogol-bigquery/gen/Network/Google/BigQuery.hs+64−64
@@ -27,22 +27,22 @@ module Network.Google.BigQuery
2727 -- * Resources
2828
2929 -- ** bigquery.datasets.delete
30− , module Network.Google.Resource.BigQuery.Datasets.Delete
30+ , module Network.Google.Resource.BigQuery.DataSets.Delete
3131
3232 -- ** bigquery.datasets.get
33− , module Network.Google.Resource.BigQuery.Datasets.Get
33+ , module Network.Google.Resource.BigQuery.DataSets.Get
3434
3535 -- ** bigquery.datasets.insert
36− , module Network.Google.Resource.BigQuery.Datasets.Insert
36+ , module Network.Google.Resource.BigQuery.DataSets.Insert
3737
3838 -- ** bigquery.datasets.list
39− , module Network.Google.Resource.BigQuery.Datasets.List
39+ , module Network.Google.Resource.BigQuery.DataSets.List
4040
4141 -- ** bigquery.datasets.patch
42− , module Network.Google.Resource.BigQuery.Datasets.Patch
42+ , module Network.Google.Resource.BigQuery.DataSets.Patch
4343
4444 -- ** bigquery.datasets.update
45− , module Network.Google.Resource.BigQuery.Datasets.Update
45+ , module Network.Google.Resource.BigQuery.DataSets.Update
4646
4747 -- ** bigquery.jobs.cancel
4848 , module Network.Google.Resource.BigQuery.Jobs.Cancel
@@ -106,13 +106,13 @@ module Network.Google.BigQuery
106106 , tlKind
107107 , tlTables
108108
109− -- ** DatasetListDatasetsItem
110− , DatasetListDatasetsItem
111− , datasetListDatasetsItem
112− , dldiFriendlyName
113− , dldiKind
114− , dldiDatasetReference
115− , dldiId
109+ -- ** DataSetListDataSetsItem
110+ , DataSetListDataSetsItem
111+ , dataSetListDataSetsItem
112+ , dsldsiFriendlyName
113+ , dsldsiKind
114+ , dsldsiDataSetReference
115+ , dsldsiId
116116
117117 -- ** TableDataList
118118 , TableDataList
@@ -166,21 +166,21 @@ module Network.Google.BigQuery
166166 , jsQuery
167167 , jsExtract
168168
169− -- ** Dataset
170− , Dataset
171− , dataset
172− , dCreationTime
173− , dAccess
174− , dEtag
175− , dLocation
176− , dFriendlyName
177− , dKind
178− , dLastModifiedTime
179− , dDatasetReference
180− , dSelfLink
181− , dId
182− , dDefaultTableExpirationMs
183− , dDescription
169+ -- ** DataSet
170+ , DataSet
171+ , dataSet
172+ , dsCreationTime
173+ , dsAccess
174+ , dsEtag
175+ , dsLocation
176+ , dsFriendlyName
177+ , dsKind
178+ , dsLastModifiedTime
179+ , dsDataSetReference
180+ , dsSelfLink
181+ , dsId
182+ , dsDefaultTableExpirationMs
183+ , dsDescription
184184
185185 -- ** ExternalDataConfiguration
186186 , ExternalDataConfiguration
@@ -196,7 +196,7 @@ module Network.Google.BigQuery
196196 -- ** TableReference
197197 , TableReference
198198 , tableReference
199− , trDatasetId
199+ , trDataSetId
200200 , trProjectId
201201 , trTableId
202202
@@ -224,13 +224,13 @@ module Network.Google.BigQuery
224224 , gqrrJobComplete
225225 , gqrrCacheHit
226226
227− -- ** DatasetList
228− , DatasetList
229− , datasetList
230− , dlEtag
231− , dlNextPageToken
232− , dlKind
233− , dlDatasets
227+ -- ** DataSetList
228+ , DataSetList
229+ , dataSetList
230+ , dslEtag
231+ , dslNextPageToken
232+ , dslKind
233+ , dslDataSets
234234
235235 -- ** QueryRequest
236236 , QueryRequest
@@ -242,7 +242,7 @@ module Network.Google.BigQuery
242242 , qrTimeoutMs
243243 , qrDryRun
244244 , qrMaxResults
245− , qrDefaultDataset
245+ , qrDefaultDataSet
246246
247247 -- ** JobsListProjection
248248 , JobsListProjection (..)
@@ -281,11 +281,11 @@ module Network.Google.BigQuery
281281 -- ** JobsListStateFilter
282282 , JobsListStateFilter (..)
283283
284− -- ** DatasetReference
285− , DatasetReference
286− , datasetReference
287− , drDatasetId
288− , drProjectId
284+ -- ** DataSetReference
285+ , DataSetReference
286+ , dataSetReference
287+ , dsrDataSetId
288+ , dsrProjectId
289289
290290 -- ** TableDataInsertAllRequest
291291 , TableDataInsertAllRequest
@@ -402,7 +402,7 @@ module Network.Google.BigQuery
402402 , jcqAllowLargeResults
403403 , jcqQuery
404404 , jcqFlattenResults
405− , jcqDefaultDataset
405+ , jcqDefaultDataSet
406406
407407 -- ** TableDataInsertAllRequestRowsItem
408408 , TableDataInsertAllRequestRowsItem
@@ -454,15 +454,15 @@ module Network.Google.BigQuery
454454 , jsErrorResult
455455 , jsErrors
456456
457− -- ** DatasetAccessItem
458− , DatasetAccessItem
459− , datasetAccessItem
460− , daiGroupByEmail
461− , daiDomain
462− , daiSpecialGroup
463− , daiRole
464− , daiView
465− , daiUserByEmail
457+ -- ** DataSetAccessItem
458+ , DataSetAccessItem
459+ , dataSetAccessItem
460+ , dsaiGroupByEmail
461+ , dsaiDomain
462+ , dsaiSpecialGroup
463+ , dsaiRole
464+ , dsaiView
465+ , dsaiUserByEmail
466466
467467 -- ** TableDataInsertAllResponse
468468 , TableDataInsertAllResponse
@@ -535,12 +535,12 @@ module Network.Google.BigQuery
535535
536536import Network.Google.BigQuery.Types
537537import Network.Google.Prelude
538−import Network.Google.Resource.BigQuery.Datasets.Delete
539−import Network.Google.Resource.BigQuery.Datasets.Get
540−import Network.Google.Resource.BigQuery.Datasets.Insert
541−import Network.Google.Resource.BigQuery.Datasets.List
542−import Network.Google.Resource.BigQuery.Datasets.Patch
543−import Network.Google.Resource.BigQuery.Datasets.Update
538+import Network.Google.Resource.BigQuery.DataSets.Delete
539+import Network.Google.Resource.BigQuery.DataSets.Get
540+import Network.Google.Resource.BigQuery.DataSets.Insert
541+import Network.Google.Resource.BigQuery.DataSets.List
542+import Network.Google.Resource.BigQuery.DataSets.Patch
543+import Network.Google.Resource.BigQuery.DataSets.Update
544544import Network.Google.Resource.BigQuery.Jobs.Cancel
545545import Network.Google.Resource.BigQuery.Jobs.Get
546546import Network.Google.Resource.BigQuery.Jobs.GetQueryResults
@@ -577,9 +577,9 @@ type BigQueryAPI =
577577 :<|> TableDataListResource
578578 :<|> TableDataInsertAllResource
579579 :<|> ProjectsListResource
580− :<|> DatasetsInsertResource
581− :<|> DatasetsListResource
582− :<|> DatasetsPatchResource
583− :<|> DatasetsGetResource
584− :<|> DatasetsDeleteResource
585− :<|> DatasetsUpdateResource
580+ :<|> DataSetsInsertResource
581+ :<|> DataSetsListResource
582+ :<|> DataSetsPatchResource
583+ :<|> DataSetsGetResource
584+ :<|> DataSetsDeleteResource
585+ :<|> DataSetsUpdateResource
gogol-bigquery/gen/Network/Google/BigQuery/Types.hs+46−46
@@ -42,13 +42,13 @@ module Network.Google.BigQuery.Types
4242 , tlKind
4343 , tlTables
4444
45− -- * DatasetListDatasetsItem
46− , DatasetListDatasetsItem
47− , datasetListDatasetsItem
48− , dldiFriendlyName
49− , dldiKind
50− , dldiDatasetReference
51− , dldiId
45+ -- * DataSetListDataSetsItem
46+ , DataSetListDataSetsItem
47+ , dataSetListDataSetsItem
48+ , dsldsiFriendlyName
49+ , dsldsiKind
50+ , dsldsiDataSetReference
51+ , dsldsiId
5252
5353 -- * TableDataList
5454 , TableDataList
@@ -102,21 +102,21 @@ module Network.Google.BigQuery.Types
102102 , jsQuery
103103 , jsExtract
104104
105− -- * Dataset
106− , Dataset
107− , dataset
108− , dCreationTime
109− , dAccess
110− , dEtag
111− , dLocation
112− , dFriendlyName
113− , dKind
114− , dLastModifiedTime
115− , dDatasetReference
116− , dSelfLink
117− , dId
118− , dDefaultTableExpirationMs
119− , dDescription
105+ -- * DataSet
106+ , DataSet
107+ , dataSet
108+ , dsCreationTime
109+ , dsAccess
110+ , dsEtag
111+ , dsLocation
112+ , dsFriendlyName
113+ , dsKind
114+ , dsLastModifiedTime
115+ , dsDataSetReference
116+ , dsSelfLink
117+ , dsId
118+ , dsDefaultTableExpirationMs
119+ , dsDescription
120120
121121 -- * ExternalDataConfiguration
122122 , ExternalDataConfiguration
@@ -132,7 +132,7 @@ module Network.Google.BigQuery.Types
132132 -- * TableReference
133133 , TableReference
134134 , tableReference
135− , trDatasetId
135+ , trDataSetId
136136 , trProjectId
137137 , trTableId
138138
@@ -160,13 +160,13 @@ module Network.Google.BigQuery.Types
160160 , gqrrJobComplete
161161 , gqrrCacheHit
162162
163− -- * DatasetList
164− , DatasetList
165− , datasetList
166− , dlEtag
167− , dlNextPageToken
168− , dlKind
169− , dlDatasets
163+ -- * DataSetList
164+ , DataSetList
165+ , dataSetList
166+ , dslEtag
167+ , dslNextPageToken
168+ , dslKind
169+ , dslDataSets
170170
171171 -- * QueryRequest
172172 , QueryRequest
@@ -178,7 +178,7 @@ module Network.Google.BigQuery.Types
178178 , qrTimeoutMs
179179 , qrDryRun
180180 , qrMaxResults
181− , qrDefaultDataset
181+ , qrDefaultDataSet
182182
183183 -- * JobsListProjection
184184 , JobsListProjection (..)
@@ -217,11 +217,11 @@ module Network.Google.BigQuery.Types
217217 -- * JobsListStateFilter
218218 , JobsListStateFilter (..)
219219
220− -- * DatasetReference
221− , DatasetReference
222− , datasetReference
223− , drDatasetId
224− , drProjectId
220+ -- * DataSetReference
221+ , DataSetReference
222+ , dataSetReference
223+ , dsrDataSetId
224+ , dsrProjectId
225225
226226 -- * TableDataInsertAllRequest
227227 , TableDataInsertAllRequest
@@ -338,7 +338,7 @@ module Network.Google.BigQuery.Types
338338 , jcqAllowLargeResults
339339 , jcqQuery
340340 , jcqFlattenResults
341− , jcqDefaultDataset
341+ , jcqDefaultDataSet
342342
343343 -- * TableDataInsertAllRequestRowsItem
344344 , TableDataInsertAllRequestRowsItem
@@ -390,15 +390,15 @@ module Network.Google.BigQuery.Types
390390 , jsErrorResult
391391 , jsErrors
392392
393− -- * DatasetAccessItem
394− , DatasetAccessItem
395− , datasetAccessItem
396− , daiGroupByEmail
397− , daiDomain
398− , daiSpecialGroup
399− , daiRole
400− , daiView
401− , daiUserByEmail
393+ -- * DataSetAccessItem
394+ , DataSetAccessItem
395+ , dataSetAccessItem
396+ , dsaiGroupByEmail
397+ , dsaiDomain
398+ , dsaiSpecialGroup
399+ , dsaiRole
400+ , dsaiView
401+ , dsaiUserByEmail
402402
403403 -- * TableDataInsertAllResponse
404404 , TableDataInsertAllResponse
gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+281−278
@@ -148,75 +148,76 @@ instance ToJSON TableList where
148148 ("tables" .=) <$> _tlTables])
149149
150150--
151−-- /See:/ 'datasetListDatasetsItem' smart constructor.
152−data DatasetListDatasetsItem = DatasetListDatasetsItem
153− { _dldiFriendlyName :: !(Maybe Text)
154− , _dldiKind :: !Text
155− , _dldiDatasetReference :: !(Maybe DatasetReference)
156− , _dldiId :: !(Maybe Text)
151+-- /See:/ 'dataSetListDataSetsItem' smart constructor.
152+data DataSetListDataSetsItem = DataSetListDataSetsItem
153+ { _dsldsiFriendlyName :: !(Maybe Text)
154+ , _dsldsiKind :: !Text
155+ , _dsldsiDataSetReference :: !(Maybe DataSetReference)
156+ , _dsldsiId :: !(Maybe Text)
157157 } deriving (Eq,Show,Data,Typeable,Generic)
158158
159−-- | Creates a value of 'DatasetListDatasetsItem' with the minimum fields required to make a request.
159+-- | Creates a value of 'DataSetListDataSetsItem' with the minimum fields required to make a request.
160160--
161161-- Use one of the following lenses to modify other fields as desired:
162162--
163−-- * 'dldiFriendlyName'
163+-- * 'dsldsiFriendlyName'
164164--
165−-- * 'dldiKind'
165+-- * 'dsldsiKind'
166166--
167−-- * 'dldiDatasetReference'
167+-- * 'dsldsiDataSetReference'
168168--
169−-- * 'dldiId'
170−datasetListDatasetsItem
171− :: DatasetListDatasetsItem
172−datasetListDatasetsItem =
173− DatasetListDatasetsItem
174− { _dldiFriendlyName = Nothing
175− , _dldiKind = "bigquery#dataset"
176− , _dldiDatasetReference = Nothing
177− , _dldiId = Nothing
169+-- * 'dsldsiId'
170+dataSetListDataSetsItem
171+ :: DataSetListDataSetsItem
172+dataSetListDataSetsItem =
173+ DataSetListDataSetsItem
174+ { _dsldsiFriendlyName = Nothing
175+ , _dsldsiKind = "bigquery#dataset"
176+ , _dsldsiDataSetReference = Nothing
177+ , _dsldsiId = Nothing
178178 }
179179
180180-- | A descriptive name for the dataset, if one exists.
181−dldiFriendlyName :: Lens' DatasetListDatasetsItem (Maybe Text)
182−dldiFriendlyName
183− = lens _dldiFriendlyName
184− (\ s a -> s{_dldiFriendlyName = a})
181+dsldsiFriendlyName :: Lens' DataSetListDataSetsItem (Maybe Text)
182+dsldsiFriendlyName
183+ = lens _dsldsiFriendlyName
184+ (\ s a -> s{_dsldsiFriendlyName = a})
185185
186186-- | The resource type. This property always returns the value
187187-- \"bigquery#dataset\".
188−dldiKind :: Lens' DatasetListDatasetsItem Text
189−dldiKind = lens _dldiKind (\ s a -> s{_dldiKind = a})
188+dsldsiKind :: Lens' DataSetListDataSetsItem Text
189+dsldsiKind
190+ = lens _dsldsiKind (\ s a -> s{_dsldsiKind = a})
190191
191192-- | The dataset reference. Use this property to access specific parts of the
192193-- dataset\'s ID, such as project ID or dataset ID.
193−dldiDatasetReference :: Lens' DatasetListDatasetsItem (Maybe DatasetReference)
194−dldiDatasetReference
195− = lens _dldiDatasetReference
196− (\ s a -> s{_dldiDatasetReference = a})
194+dsldsiDataSetReference :: Lens' DataSetListDataSetsItem (Maybe DataSetReference)
195+dsldsiDataSetReference
196+ = lens _dsldsiDataSetReference
197+ (\ s a -> s{_dsldsiDataSetReference = a})
197198
198199-- | The fully-qualified, unique, opaque ID of the dataset.
199−dldiId :: Lens' DatasetListDatasetsItem (Maybe Text)
200−dldiId = lens _dldiId (\ s a -> s{_dldiId = a})
200+dsldsiId :: Lens' DataSetListDataSetsItem (Maybe Text)
201+dsldsiId = lens _dsldsiId (\ s a -> s{_dsldsiId = a})
201202
202−instance FromJSON DatasetListDatasetsItem where
203+instance FromJSON DataSetListDataSetsItem where
203204 parseJSON
204− = withObject "DatasetListDatasetsItem"
205+ = withObject "DataSetListDataSetsItem"
205206 (\ o ->
206− DatasetListDatasetsItem <$>
207+ DataSetListDataSetsItem <$>
207208 (o .:? "friendlyName") <*>
208209 (o .:? "kind" .!= "bigquery#dataset")
209210 <*> (o .:? "datasetReference")
210211 <*> (o .:? "id"))
211212
212−instance ToJSON DatasetListDatasetsItem where
213− toJSON DatasetListDatasetsItem{..}
213+instance ToJSON DataSetListDataSetsItem where
214+ toJSON DataSetListDataSetsItem{..}
214215 = object
215216 (catMaybes
216− [("friendlyName" .=) <$> _dldiFriendlyName,
217− Just ("kind" .= _dldiKind),
218− ("datasetReference" .=) <$> _dldiDatasetReference,
219− ("id" .=) <$> _dldiId])
217+ [("friendlyName" .=) <$> _dsldsiFriendlyName,
218+ Just ("kind" .= _dsldsiKind),
219+ ("datasetReference" .=) <$> _dsldsiDataSetReference,
220+ ("id" .=) <$> _dsldsiId])
220221
221222--
222223-- /See:/ 'tableDataList' smart constructor.
@@ -697,73 +698,73 @@ instance ToJSON JobStatistics where
697698 ("extract" .=) <$> _jsExtract])
698699
699700--
700−-- /See:/ 'dataset' smart constructor.
701−data Dataset = Dataset
702− { _dCreationTime :: !(Maybe Int64)
703− , _dAccess :: !(Maybe [DatasetAccessItem])
704− , _dEtag :: !(Maybe Text)
705− , _dLocation :: !(Maybe Text)
706− , _dFriendlyName :: !(Maybe Text)
707− , _dKind :: !Text
708− , _dLastModifiedTime :: !(Maybe Int64)
709− , _dDatasetReference :: !(Maybe DatasetReference)
710− , _dSelfLink :: !(Maybe Text)
711− , _dId :: !(Maybe Text)
712− , _dDefaultTableExpirationMs :: !(Maybe Int64)
713− , _dDescription :: !(Maybe Text)
701+-- /See:/ 'dataSet' smart constructor.
702+data DataSet = DataSet
703+ { _dsCreationTime :: !(Maybe Int64)
704+ , _dsAccess :: !(Maybe [DataSetAccessItem])
705+ , _dsEtag :: !(Maybe Text)
706+ , _dsLocation :: !(Maybe Text)
707+ , _dsFriendlyName :: !(Maybe Text)
708+ , _dsKind :: !Text
709+ , _dsLastModifiedTime :: !(Maybe Int64)
710+ , _dsDataSetReference :: !(Maybe DataSetReference)
711+ , _dsSelfLink :: !(Maybe Text)
712+ , _dsId :: !(Maybe Text)
713+ , _dsDefaultTableExpirationMs :: !(Maybe Int64)
714+ , _dsDescription :: !(Maybe Text)
714715 } deriving (Eq,Show,Data,Typeable,Generic)
715716
716−-- | Creates a value of 'Dataset' with the minimum fields required to make a request.
717+-- | Creates a value of 'DataSet' with the minimum fields required to make a request.
717718--
718719-- Use one of the following lenses to modify other fields as desired:
719720--
720−-- * 'dCreationTime'
721+-- * 'dsCreationTime'
721722--
722−-- * 'dAccess'
723+-- * 'dsAccess'
723724--
724−-- * 'dEtag'
725+-- * 'dsEtag'
725726--
726−-- * 'dLocation'
727+-- * 'dsLocation'
727728--
728−-- * 'dFriendlyName'
729+-- * 'dsFriendlyName'
729730--
730−-- * 'dKind'
731+-- * 'dsKind'
731732--
732−-- * 'dLastModifiedTime'
733+-- * 'dsLastModifiedTime'
733734--
734−-- * 'dDatasetReference'
735+-- * 'dsDataSetReference'
735736--
736−-- * 'dSelfLink'
737+-- * 'dsSelfLink'
737738--
738−-- * 'dId'
739+-- * 'dsId'
739740--
740−-- * 'dDefaultTableExpirationMs'
741+-- * 'dsDefaultTableExpirationMs'
741742--
742−-- * 'dDescription'
743−dataset
744− :: Dataset
745−dataset =
746− Dataset
747− { _dCreationTime = Nothing
748− , _dAccess = Nothing
749− , _dEtag = Nothing
750− , _dLocation = Nothing
751− , _dFriendlyName = Nothing
752− , _dKind = "bigquery#dataset"
753− , _dLastModifiedTime = Nothing
754− , _dDatasetReference = Nothing
755− , _dSelfLink = Nothing
756− , _dId = Nothing
757− , _dDefaultTableExpirationMs = Nothing
758− , _dDescription = Nothing
743+-- * 'dsDescription'
744+dataSet
745+ :: DataSet
746+dataSet =
747+ DataSet
748+ { _dsCreationTime = Nothing
749+ , _dsAccess = Nothing
750+ , _dsEtag = Nothing
751+ , _dsLocation = Nothing
752+ , _dsFriendlyName = Nothing
753+ , _dsKind = "bigquery#dataset"
754+ , _dsLastModifiedTime = Nothing
755+ , _dsDataSetReference = Nothing
756+ , _dsSelfLink = Nothing
757+ , _dsId = Nothing
758+ , _dsDefaultTableExpirationMs = Nothing
759+ , _dsDescription = Nothing
759760 }
760761
761762-- | [Output-only] The time when this dataset was created, in milliseconds
762763-- since the epoch.
763−dCreationTime :: Lens' Dataset (Maybe Int64)
764−dCreationTime
765− = lens _dCreationTime
766− (\ s a -> s{_dCreationTime = a})
764+dsCreationTime :: Lens' DataSet (Maybe Int64)
765+dsCreationTime
766+ = lens _dsCreationTime
767+ (\ s a -> s{_dsCreationTime = a})
767768
768769-- | [Optional] An array of objects that define dataset access for one or
769770-- more entities. You can set this property when inserting or updating a
@@ -773,56 +774,57 @@ dCreationTime
773774-- access.role: READER; access.specialGroup: projectWriters; access.role:
774775-- WRITER; access.specialGroup: projectOwners; access.role: OWNER;
775776-- access.userByEmail: [dataset creator email]; access.role: OWNER;
776−dAccess :: Lens' Dataset [DatasetAccessItem]
777−dAccess
778− = lens _dAccess (\ s a -> s{_dAccess = a}) . _Default
777+dsAccess :: Lens' DataSet [DataSetAccessItem]
778+dsAccess
779+ = lens _dsAccess (\ s a -> s{_dsAccess = a}) .
780+ _Default
779781 . _Coerce
780782
781783-- | [Output-only] A hash of the resource.
782−dEtag :: Lens' Dataset (Maybe Text)
783−dEtag = lens _dEtag (\ s a -> s{_dEtag = a})
784+dsEtag :: Lens' DataSet (Maybe Text)
785+dsEtag = lens _dsEtag (\ s a -> s{_dsEtag = a})
784786
785787-- | [Experimental] The geographic location where the dataset should reside.
786788-- Possible values include EU and US. The default value is US.
787−dLocation :: Lens' Dataset (Maybe Text)
788−dLocation
789− = lens _dLocation (\ s a -> s{_dLocation = a})
789+dsLocation :: Lens' DataSet (Maybe Text)
790+dsLocation
791+ = lens _dsLocation (\ s a -> s{_dsLocation = a})
790792
791793-- | [Optional] A descriptive name for the dataset.
792−dFriendlyName :: Lens' Dataset (Maybe Text)
793−dFriendlyName
794− = lens _dFriendlyName
795− (\ s a -> s{_dFriendlyName = a})
794+dsFriendlyName :: Lens' DataSet (Maybe Text)
795+dsFriendlyName
796+ = lens _dsFriendlyName
797+ (\ s a -> s{_dsFriendlyName = a})
796798
797799-- | [Output-only] The resource type.
798−dKind :: Lens' Dataset Text
799−dKind = lens _dKind (\ s a -> s{_dKind = a})
800+dsKind :: Lens' DataSet Text
801+dsKind = lens _dsKind (\ s a -> s{_dsKind = a})
800802
801803-- | [Output-only] The date when this dataset or any of its tables was last
802804-- modified, in milliseconds since the epoch.
803−dLastModifiedTime :: Lens' Dataset (Maybe Int64)
804−dLastModifiedTime
805− = lens _dLastModifiedTime
806− (\ s a -> s{_dLastModifiedTime = a})
805+dsLastModifiedTime :: Lens' DataSet (Maybe Int64)
806+dsLastModifiedTime
807+ = lens _dsLastModifiedTime
808+ (\ s a -> s{_dsLastModifiedTime = a})
807809
808810-- | [Required] A reference that identifies the dataset.
809−dDatasetReference :: Lens' Dataset (Maybe DatasetReference)
810−dDatasetReference
811− = lens _dDatasetReference
812− (\ s a -> s{_dDatasetReference = a})
811+dsDataSetReference :: Lens' DataSet (Maybe DataSetReference)
812+dsDataSetReference
813+ = lens _dsDataSetReference
814+ (\ s a -> s{_dsDataSetReference = a})
813815
814816-- | [Output-only] A URL that can be used to access the resource again. You
815817-- can use this URL in Get or Update requests to the resource.
816−dSelfLink :: Lens' Dataset (Maybe Text)
817−dSelfLink
818− = lens _dSelfLink (\ s a -> s{_dSelfLink = a})
818+dsSelfLink :: Lens' DataSet (Maybe Text)
819+dsSelfLink
820+ = lens _dsSelfLink (\ s a -> s{_dsSelfLink = a})
819821
820822-- | [Output-only] The fully-qualified unique name of the dataset in the
821823-- format projectId:datasetId. The dataset name without the project name is
822824-- given in the datasetId field. When creating a new dataset, leave this
823825-- field blank, and instead specify the datasetId field.
824−dId :: Lens' Dataset (Maybe Text)
825−dId = lens _dId (\ s a -> s{_dId = a})
826+dsId :: Lens' DataSet (Maybe Text)
827+dsId = lens _dsId (\ s a -> s{_dsId = a})
826828
827829-- | [Experimental] The default lifetime of all tables in the dataset, in
828830-- milliseconds. The minimum value is 3600000 milliseconds (one hour). Once
@@ -834,21 +836,22 @@ dId = lens _dId (\ s a -> s{_dId = a})
834836-- is modified or removed before the table expires, or if you provide an
835837-- explicit expirationTime when creating a table, that value takes
836838-- precedence over the default expiration time indicated by this property.
837−dDefaultTableExpirationMs :: Lens' Dataset (Maybe Int64)
838−dDefaultTableExpirationMs
839− = lens _dDefaultTableExpirationMs
840− (\ s a -> s{_dDefaultTableExpirationMs = a})
839+dsDefaultTableExpirationMs :: Lens' DataSet (Maybe Int64)
840+dsDefaultTableExpirationMs
841+ = lens _dsDefaultTableExpirationMs
842+ (\ s a -> s{_dsDefaultTableExpirationMs = a})
841843
842844-- | [Optional] A user-friendly description of the dataset.
843−dDescription :: Lens' Dataset (Maybe Text)
844−dDescription
845− = lens _dDescription (\ s a -> s{_dDescription = a})
845+dsDescription :: Lens' DataSet (Maybe Text)
846+dsDescription
847+ = lens _dsDescription
848+ (\ s a -> s{_dsDescription = a})
846849
847−instance FromJSON Dataset where
850+instance FromJSON DataSet where
848851 parseJSON
849− = withObject "Dataset"
852+ = withObject "DataSet"
850853 (\ o ->
851− Dataset <$>
854+ DataSet <$>
852855 (o .:? "creationTime") <*>
853856 (o .:? "access" .!= mempty)
854857 <*> (o .:? "etag")
@@ -862,21 +865,21 @@ instance FromJSON Dataset where
862865 <*> (o .:? "defaultTableExpirationMs")
863866 <*> (o .:? "description"))
864867
865−instance ToJSON Dataset where
866− toJSON Dataset{..}
868+instance ToJSON DataSet where
869+ toJSON DataSet{..}
867870 = object
868871 (catMaybes
869− [("creationTime" .=) <$> _dCreationTime,
870− ("access" .=) <$> _dAccess, ("etag" .=) <$> _dEtag,
871− ("location" .=) <$> _dLocation,
872− ("friendlyName" .=) <$> _dFriendlyName,
873− Just ("kind" .= _dKind),
874− ("lastModifiedTime" .=) <$> _dLastModifiedTime,
875− ("datasetReference" .=) <$> _dDatasetReference,
876− ("selfLink" .=) <$> _dSelfLink, ("id" .=) <$> _dId,
872+ [("creationTime" .=) <$> _dsCreationTime,
873+ ("access" .=) <$> _dsAccess, ("etag" .=) <$> _dsEtag,
874+ ("location" .=) <$> _dsLocation,
875+ ("friendlyName" .=) <$> _dsFriendlyName,
876+ Just ("kind" .= _dsKind),
877+ ("lastModifiedTime" .=) <$> _dsLastModifiedTime,
878+ ("datasetReference" .=) <$> _dsDataSetReference,
879+ ("selfLink" .=) <$> _dsSelfLink, ("id" .=) <$> _dsId,
877880 ("defaultTableExpirationMs" .=) <$>
878− _dDefaultTableExpirationMs,
879− ("description" .=) <$> _dDescription])
881+ _dsDefaultTableExpirationMs,
882+ ("description" .=) <$> _dsDescription])
880883
881884--
882885-- /See:/ 'externalDataConfiguration' smart constructor.
@@ -1007,7 +1010,7 @@ instance ToJSON ExternalDataConfiguration where
10071010--
10081011-- /See:/ 'tableReference' smart constructor.
10091012data TableReference = TableReference
1010− { _trDatasetId :: !(Maybe Text)
1013+ { _trDataSetId :: !(Maybe Text)
10111014 , _trProjectId :: !(Maybe Text)
10121015 , _trTableId :: !(Maybe Text)
10131016 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -1016,7 +1019,7 @@ data TableReference = TableReference
10161019--
10171020-- Use one of the following lenses to modify other fields as desired:
10181021--
1019−-- * 'trDatasetId'
1022+-- * 'trDataSetId'
10201023--
10211024-- * 'trProjectId'
10221025--
@@ -1025,15 +1028,15 @@ tableReference
10251028 :: TableReference
10261029tableReference =
10271030 TableReference
1028− { _trDatasetId = Nothing
1031+ { _trDataSetId = Nothing
10291032 , _trProjectId = Nothing
10301033 , _trTableId = Nothing
10311034 }
10321035
10331036-- | [Required] The ID of the dataset containing this table.
1034−trDatasetId :: Lens' TableReference (Maybe Text)
1035−trDatasetId
1036− = lens _trDatasetId (\ s a -> s{_trDatasetId = a})
1037+trDataSetId :: Lens' TableReference (Maybe Text)
1038+trDataSetId
1039+ = lens _trDataSetId (\ s a -> s{_trDataSetId = a})
10371040
10381041-- | [Required] The ID of the project containing this table.
10391042trProjectId :: Lens' TableReference (Maybe Text)
@@ -1059,7 +1062,7 @@ instance ToJSON TableReference where
10591062 toJSON TableReference{..}
10601063 = object
10611064 (catMaybes
1062− [("datasetId" .=) <$> _trDatasetId,
1065+ [("datasetId" .=) <$> _trDataSetId,
10631066 ("projectId" .=) <$> _trProjectId,
10641067 ("tableId" .=) <$> _trTableId])
10651068
@@ -1315,79 +1318,79 @@ instance ToJSON GetQueryResultsResponse where
13151318 ("cacheHit" .=) <$> _gqrrCacheHit])
13161319
13171320--
1318−-- /See:/ 'datasetList' smart constructor.
1319−data DatasetList = DatasetList
1320− { _dlEtag :: !(Maybe Text)
1321− , _dlNextPageToken :: !(Maybe Text)
1322− , _dlKind :: !Text
1323− , _dlDatasets :: !(Maybe [DatasetListDatasetsItem])
1321+-- /See:/ 'dataSetList' smart constructor.
1322+data DataSetList = DataSetList
1323+ { _dslEtag :: !(Maybe Text)
1324+ , _dslNextPageToken :: !(Maybe Text)
1325+ , _dslKind :: !Text
1326+ , _dslDataSets :: !(Maybe [DataSetListDataSetsItem])
13241327 } deriving (Eq,Show,Data,Typeable,Generic)
13251328
1326−-- | Creates a value of 'DatasetList' with the minimum fields required to make a request.
1329+-- | Creates a value of 'DataSetList' with the minimum fields required to make a request.
13271330--
13281331-- Use one of the following lenses to modify other fields as desired:
13291332--
1330−-- * 'dlEtag'
1333+-- * 'dslEtag'
13311334--
1332−-- * 'dlNextPageToken'
1335+-- * 'dslNextPageToken'
13331336--
1334−-- * 'dlKind'
1337+-- * 'dslKind'
13351338--
1336−-- * 'dlDatasets'
1337−datasetList
1338− :: DatasetList
1339−datasetList =
1340− DatasetList
1341− { _dlEtag = Nothing
1342− , _dlNextPageToken = Nothing
1343− , _dlKind = "bigquery#datasetList"
1344− , _dlDatasets = Nothing
1339+-- * 'dslDataSets'
1340+dataSetList
1341+ :: DataSetList
1342+dataSetList =
1343+ DataSetList
1344+ { _dslEtag = Nothing
1345+ , _dslNextPageToken = Nothing
1346+ , _dslKind = "bigquery#datasetList"
1347+ , _dslDataSets = Nothing
13451348 }
13461349
13471350-- | A hash value of the results page. You can use this property to determine
13481351-- if the page has changed since the last request.
1349−dlEtag :: Lens' DatasetList (Maybe Text)
1350−dlEtag = lens _dlEtag (\ s a -> s{_dlEtag = a})
1352+dslEtag :: Lens' DataSetList (Maybe Text)
1353+dslEtag = lens _dslEtag (\ s a -> s{_dslEtag = a})
13511354
13521355-- | A token that can be used to request the next results page. This property
13531356-- is omitted on the final results page.
1354−dlNextPageToken :: Lens' DatasetList (Maybe Text)
1355−dlNextPageToken
1356− = lens _dlNextPageToken
1357− (\ s a -> s{_dlNextPageToken = a})
1357+dslNextPageToken :: Lens' DataSetList (Maybe Text)
1358+dslNextPageToken
1359+ = lens _dslNextPageToken
1360+ (\ s a -> s{_dslNextPageToken = a})
13581361
13591362-- | The list type. This property always returns the value
13601363-- \"bigquery#datasetList\".
1361−dlKind :: Lens' DatasetList Text
1362−dlKind = lens _dlKind (\ s a -> s{_dlKind = a})
1364+dslKind :: Lens' DataSetList Text
1365+dslKind = lens _dslKind (\ s a -> s{_dslKind = a})
13631366
13641367-- | An array of the dataset resources in the project. Each resource contains
13651368-- basic information. For full information about a particular dataset
13661369-- resource, use the Datasets: get method. This property is omitted when
13671370-- there are no datasets in the project.
1368−dlDatasets :: Lens' DatasetList [DatasetListDatasetsItem]
1369−dlDatasets
1370− = lens _dlDatasets (\ s a -> s{_dlDatasets = a}) .
1371+dslDataSets :: Lens' DataSetList [DataSetListDataSetsItem]
1372+dslDataSets
1373+ = lens _dslDataSets (\ s a -> s{_dslDataSets = a}) .
13711374 _Default
13721375 . _Coerce
13731376
1374−instance FromJSON DatasetList where
1377+instance FromJSON DataSetList where
13751378 parseJSON
1376− = withObject "DatasetList"
1379+ = withObject "DataSetList"
13771380 (\ o ->
1378− DatasetList <$>
1381+ DataSetList <$>
13791382 (o .:? "etag") <*> (o .:? "nextPageToken") <*>
13801383 (o .:? "kind" .!= "bigquery#datasetList")
13811384 <*> (o .:? "datasets" .!= mempty))
13821385
1383−instance ToJSON DatasetList where
1384− toJSON DatasetList{..}
1386+instance ToJSON DataSetList where
1387+ toJSON DataSetList{..}
13851388 = object
13861389 (catMaybes
1387− [("etag" .=) <$> _dlEtag,
1388− ("nextPageToken" .=) <$> _dlNextPageToken,
1389− Just ("kind" .= _dlKind),
1390− ("datasets" .=) <$> _dlDatasets])
1390+ [("etag" .=) <$> _dslEtag,
1391+ ("nextPageToken" .=) <$> _dslNextPageToken,
1392+ Just ("kind" .= _dslKind),
1393+ ("datasets" .=) <$> _dslDataSets])
13911394
13921395--
13931396-- /See:/ 'queryRequest' smart constructor.
@@ -1399,7 +1402,7 @@ data QueryRequest = QueryRequest
13991402 , _qrTimeoutMs :: !(Maybe Word32)
14001403 , _qrDryRun :: !(Maybe Bool)
14011404 , _qrMaxResults :: !(Maybe Word32)
1402− , _qrDefaultDataset :: !(Maybe DatasetReference)
1405+ , _qrDefaultDataSet :: !(Maybe DataSetReference)
14031406 } deriving (Eq,Show,Data,Typeable,Generic)
14041407
14051408-- | Creates a value of 'QueryRequest' with the minimum fields required to make a request.
@@ -1420,7 +1423,7 @@ data QueryRequest = QueryRequest
14201423--
14211424-- * 'qrMaxResults'
14221425--
1423−-- * 'qrDefaultDataset'
1426+-- * 'qrDefaultDataSet'
14241427queryRequest
14251428 :: QueryRequest
14261429queryRequest =
@@ -1432,7 +1435,7 @@ queryRequest =
14321435 , _qrTimeoutMs = Nothing
14331436 , _qrDryRun = Nothing
14341437 , _qrMaxResults = Nothing
1435− , _qrDefaultDataset = Nothing
1438+ , _qrDefaultDataSet = Nothing
14361439 }
14371440
14381441-- | [Optional] Whether to look for the result in the query cache. The query
@@ -1490,10 +1493,10 @@ qrMaxResults
14901493-- | [Optional] Specifies the default datasetId and projectId to assume for
14911494-- any unqualified table names in the query. If not set, all table names in
14921495-- the query string must be qualified in the format \'datasetId.tableId\'.
1493−qrDefaultDataset :: Lens' QueryRequest (Maybe DatasetReference)
1494−qrDefaultDataset
1495− = lens _qrDefaultDataset
1496− (\ s a -> s{_qrDefaultDataset = a})
1496+qrDefaultDataSet :: Lens' QueryRequest (Maybe DataSetReference)
1497+qrDefaultDataSet
1498+ = lens _qrDefaultDataSet
1499+ (\ s a -> s{_qrDefaultDataSet = a})
14971500
14981501instance FromJSON QueryRequest where
14991502 parseJSON
@@ -1519,7 +1522,7 @@ instance ToJSON QueryRequest where
15191522 ("timeoutMs" .=) <$> _qrTimeoutMs,
15201523 ("dryRun" .=) <$> _qrDryRun,
15211524 ("maxResults" .=) <$> _qrMaxResults,
1522− ("defaultDataset" .=) <$> _qrDefaultDataset])
1525+ ("defaultDataset" .=) <$> _qrDefaultDataSet])
15231526
15241527--
15251528-- /See:/ 'jobStatistics4' smart constructor.
@@ -1885,52 +1888,52 @@ instance ToJSON JobConfigurationLoad where
18851888 ("fieldDelimiter" .=) <$> _jclFieldDelimiter])
18861889
18871890--
1888−-- /See:/ 'datasetReference' smart constructor.
1889−data DatasetReference = DatasetReference
1890− { _drDatasetId :: !(Maybe Text)
1891− , _drProjectId :: !(Maybe Text)
1891+-- /See:/ 'dataSetReference' smart constructor.
1892+data DataSetReference = DataSetReference
1893+ { _dsrDataSetId :: !(Maybe Text)
1894+ , _dsrProjectId :: !(Maybe Text)
18921895 } deriving (Eq,Show,Data,Typeable,Generic)
18931896
1894−-- | Creates a value of 'DatasetReference' with the minimum fields required to make a request.
1897+-- | Creates a value of 'DataSetReference' with the minimum fields required to make a request.
18951898--
18961899-- Use one of the following lenses to modify other fields as desired:
18971900--
1898−-- * 'drDatasetId'
1901+-- * 'dsrDataSetId'
18991902--
1900−-- * 'drProjectId'
1901−datasetReference
1902− :: DatasetReference
1903−datasetReference =
1904− DatasetReference
1905− { _drDatasetId = Nothing
1906− , _drProjectId = Nothing
1903+-- * 'dsrProjectId'
1904+dataSetReference
1905+ :: DataSetReference
1906+dataSetReference =
1907+ DataSetReference
1908+ { _dsrDataSetId = Nothing
1909+ , _dsrProjectId = Nothing
19071910 }
19081911
19091912-- | [Required] A unique ID for this dataset, without the project name. The
19101913-- ID must contain only letters (a-z, A-Z), numbers (0-9), or underscores
19111914-- (_). The maximum length is 1,024 characters.
1912−drDatasetId :: Lens' DatasetReference (Maybe Text)
1913−drDatasetId
1914− = lens _drDatasetId (\ s a -> s{_drDatasetId = a})
1915+dsrDataSetId :: Lens' DataSetReference (Maybe Text)
1916+dsrDataSetId
1917+ = lens _dsrDataSetId (\ s a -> s{_dsrDataSetId = a})
19151918
19161919-- | [Optional] The ID of the project containing this dataset.
1917−drProjectId :: Lens' DatasetReference (Maybe Text)
1918−drProjectId
1919− = lens _drProjectId (\ s a -> s{_drProjectId = a})
1920+dsrProjectId :: Lens' DataSetReference (Maybe Text)
1921+dsrProjectId
1922+ = lens _dsrProjectId (\ s a -> s{_dsrProjectId = a})
19201923
1921−instance FromJSON DatasetReference where
1924+instance FromJSON DataSetReference where
19221925 parseJSON
1923− = withObject "DatasetReference"
1926+ = withObject "DataSetReference"
19241927 (\ o ->
1925− DatasetReference <$>
1928+ DataSetReference <$>
19261929 (o .:? "datasetId") <*> (o .:? "projectId"))
19271930
1928−instance ToJSON DatasetReference where
1929− toJSON DatasetReference{..}
1931+instance ToJSON DataSetReference where
1932+ toJSON DataSetReference{..}
19301933 = object
19311934 (catMaybes
1932− [("datasetId" .=) <$> _drDatasetId,
1933− ("projectId" .=) <$> _drProjectId])
1935+ [("datasetId" .=) <$> _dsrDataSetId,
1936+ ("projectId" .=) <$> _dsrProjectId])
19341937
19351938--
19361939-- /See:/ 'tableDataInsertAllRequest' smart constructor.
@@ -2873,7 +2876,7 @@ data JobConfigurationQuery = JobConfigurationQuery
28732876 , _jcqAllowLargeResults :: !(Maybe Bool)
28742877 , _jcqQuery :: !(Maybe Text)
28752878 , _jcqFlattenResults :: !Bool
2876− , _jcqDefaultDataset :: !(Maybe DatasetReference)
2879+ , _jcqDefaultDataSet :: !(Maybe DataSetReference)
28772880 } deriving (Eq,Show,Data,Typeable,Generic)
28782881
28792882-- | Creates a value of 'JobConfigurationQuery' with the minimum fields required to make a request.
@@ -2902,7 +2905,7 @@ data JobConfigurationQuery = JobConfigurationQuery
29022905--
29032906-- * 'jcqFlattenResults'
29042907--
2905−-- * 'jcqDefaultDataset'
2908+-- * 'jcqDefaultDataSet'
29062909jobConfigurationQuery
29072910 :: JobConfigurationQuery
29082911jobConfigurationQuery =
@@ -2918,7 +2921,7 @@ jobConfigurationQuery =
29182921 , _jcqAllowLargeResults = Nothing
29192922 , _jcqQuery = Nothing
29202923 , _jcqFlattenResults = True
2921− , _jcqDefaultDataset = Nothing
2924+ , _jcqDefaultDataSet = Nothing
29222925 }
29232926
29242927-- | [Optional] Describes the table where the query results should be stored.
@@ -3014,10 +3017,10 @@ jcqFlattenResults
30143017
30153018-- | [Optional] Specifies the default dataset to use for unqualified table
30163019-- names in the query.
3017−jcqDefaultDataset :: Lens' JobConfigurationQuery (Maybe DatasetReference)
3018−jcqDefaultDataset
3019− = lens _jcqDefaultDataset
3020− (\ s a -> s{_jcqDefaultDataset = a})
3020+jcqDefaultDataSet :: Lens' JobConfigurationQuery (Maybe DataSetReference)
3021+jcqDefaultDataSet
3022+ = lens _jcqDefaultDataSet
3023+ (\ s a -> s{_jcqDefaultDataSet = a})
30213024
30223025instance FromJSON JobConfigurationQuery where
30233026 parseJSON
@@ -3053,7 +3056,7 @@ instance ToJSON JobConfigurationQuery where
30533056 ("allowLargeResults" .=) <$> _jcqAllowLargeResults,
30543057 ("query" .=) <$> _jcqQuery,
30553058 Just ("flattenResults" .= _jcqFlattenResults),
3056− ("defaultDataset" .=) <$> _jcqDefaultDataset])
3059+ ("defaultDataset" .=) <$> _jcqDefaultDataSet])
30573060
30583061--
30593062-- /See:/ 'tableDataInsertAllRequestRowsItem' smart constructor.
@@ -3460,106 +3463,106 @@ instance ToJSON JobStatus where
34603463 ("errors" .=) <$> _jsErrors])
34613464
34623465--
3463−-- /See:/ 'datasetAccessItem' smart constructor.
3464−data DatasetAccessItem = DatasetAccessItem
3465− { _daiGroupByEmail :: !(Maybe Text)
3466− , _daiDomain :: !(Maybe Text)
3467− , _daiSpecialGroup :: !(Maybe Text)
3468− , _daiRole :: !(Maybe Text)
3469− , _daiView :: !(Maybe TableReference)
3470− , _daiUserByEmail :: !(Maybe Text)
3466+-- /See:/ 'dataSetAccessItem' smart constructor.
3467+data DataSetAccessItem = DataSetAccessItem
3468+ { _dsaiGroupByEmail :: !(Maybe Text)
3469+ , _dsaiDomain :: !(Maybe Text)
3470+ , _dsaiSpecialGroup :: !(Maybe Text)
3471+ , _dsaiRole :: !(Maybe Text)
3472+ , _dsaiView :: !(Maybe TableReference)
3473+ , _dsaiUserByEmail :: !(Maybe Text)
34713474 } deriving (Eq,Show,Data,Typeable,Generic)
34723475
3473−-- | Creates a value of 'DatasetAccessItem' with the minimum fields required to make a request.
3476+-- | Creates a value of 'DataSetAccessItem' with the minimum fields required to make a request.
34743477--
34753478-- Use one of the following lenses to modify other fields as desired:
34763479--
3477−-- * 'daiGroupByEmail'
3480+-- * 'dsaiGroupByEmail'
34783481--
3479−-- * 'daiDomain'
3482+-- * 'dsaiDomain'
34803483--
3481−-- * 'daiSpecialGroup'
3484+-- * 'dsaiSpecialGroup'
34823485--
3483−-- * 'daiRole'
3486+-- * 'dsaiRole'
34843487--
3485−-- * 'daiView'
3488+-- * 'dsaiView'
34863489--
3487−-- * 'daiUserByEmail'
3488−datasetAccessItem
3489− :: DatasetAccessItem
3490−datasetAccessItem =
3491− DatasetAccessItem
3492− { _daiGroupByEmail = Nothing
3493− , _daiDomain = Nothing
3494− , _daiSpecialGroup = Nothing
3495− , _daiRole = Nothing
3496− , _daiView = Nothing
3497− , _daiUserByEmail = Nothing
3490+-- * 'dsaiUserByEmail'
3491+dataSetAccessItem
3492+ :: DataSetAccessItem
3493+dataSetAccessItem =
3494+ DataSetAccessItem
3495+ { _dsaiGroupByEmail = Nothing
3496+ , _dsaiDomain = Nothing
3497+ , _dsaiSpecialGroup = Nothing
3498+ , _dsaiRole = Nothing
3499+ , _dsaiView = Nothing
3500+ , _dsaiUserByEmail = Nothing
34983501 }
34993502
35003503-- | [Pick one] An email address of a Google Group to grant access to.
3501−daiGroupByEmail :: Lens' DatasetAccessItem (Maybe Text)
3502−daiGroupByEmail
3503− = lens _daiGroupByEmail
3504− (\ s a -> s{_daiGroupByEmail = a})
3504+dsaiGroupByEmail :: Lens' DataSetAccessItem (Maybe Text)
3505+dsaiGroupByEmail
3506+ = lens _dsaiGroupByEmail
3507+ (\ s a -> s{_dsaiGroupByEmail = a})
35053508
35063509-- | [Pick one] A domain to grant access to. Any users signed in with the
35073510-- domain specified will be granted the specified access. Example:
35083511-- \"example.com\".
3509−daiDomain :: Lens' DatasetAccessItem (Maybe Text)
3510−daiDomain
3511− = lens _daiDomain (\ s a -> s{_daiDomain = a})
3512+dsaiDomain :: Lens' DataSetAccessItem (Maybe Text)
3513+dsaiDomain
3514+ = lens _dsaiDomain (\ s a -> s{_dsaiDomain = a})
35123515
35133516-- | [Pick one] A special group to grant access to. Possible values include:
35143517-- projectOwners: Owners of the enclosing project. projectReaders: Readers
35153518-- of the enclosing project. projectWriters: Writers of the enclosing
35163519-- project. allAuthenticatedUsers: All authenticated BigQuery users.
3517−daiSpecialGroup :: Lens' DatasetAccessItem (Maybe Text)
3518−daiSpecialGroup
3519− = lens _daiSpecialGroup
3520− (\ s a -> s{_daiSpecialGroup = a})
3520+dsaiSpecialGroup :: Lens' DataSetAccessItem (Maybe Text)
3521+dsaiSpecialGroup
3522+ = lens _dsaiSpecialGroup
3523+ (\ s a -> s{_dsaiSpecialGroup = a})
35213524
35223525-- | [Required] Describes the rights granted to the user specified by the
35233526-- other member of the access object. The following string values are
35243527-- supported: READER, WRITER, OWNER.
3525−daiRole :: Lens' DatasetAccessItem (Maybe Text)
3526−daiRole = lens _daiRole (\ s a -> s{_daiRole = a})
3528+dsaiRole :: Lens' DataSetAccessItem (Maybe Text)
3529+dsaiRole = lens _dsaiRole (\ s a -> s{_dsaiRole = a})
35273530
35283531-- | [Pick one] A view from a different dataset to grant access to. Queries
35293532-- executed against that view will have read access to tables in this
35303533-- dataset. The role field is not required when this field is set. If that
35313534-- view is updated by any user, access to the view needs to be granted
35323535-- again via an update operation.
3533−daiView :: Lens' DatasetAccessItem (Maybe TableReference)
3534−daiView = lens _daiView (\ s a -> s{_daiView = a})
3536+dsaiView :: Lens' DataSetAccessItem (Maybe TableReference)
3537+dsaiView = lens _dsaiView (\ s a -> s{_dsaiView = a})
35353538
35363539-- | [Pick one] An email address of a user to grant access to. For example:
35373540-- fred\'example.com.
3538−daiUserByEmail :: Lens' DatasetAccessItem (Maybe Text)
3539−daiUserByEmail
3540− = lens _daiUserByEmail
3541− (\ s a -> s{_daiUserByEmail = a})
3541+dsaiUserByEmail :: Lens' DataSetAccessItem (Maybe Text)
3542+dsaiUserByEmail
3543+ = lens _dsaiUserByEmail
3544+ (\ s a -> s{_dsaiUserByEmail = a})
35423545
3543−instance FromJSON DatasetAccessItem where
3546+instance FromJSON DataSetAccessItem where
35443547 parseJSON
3545− = withObject "DatasetAccessItem"
3548+ = withObject "DataSetAccessItem"
35463549 (\ o ->
3547− DatasetAccessItem <$>
3550+ DataSetAccessItem <$>
35483551 (o .:? "groupByEmail") <*> (o .:? "domain") <*>
35493552 (o .:? "specialGroup")
35503553 <*> (o .:? "role")
35513554 <*> (o .:? "view")
35523555 <*> (o .:? "userByEmail"))
35533556
3554−instance ToJSON DatasetAccessItem where
3555− toJSON DatasetAccessItem{..}
3557+instance ToJSON DataSetAccessItem where
3558+ toJSON DataSetAccessItem{..}
35563559 = object
35573560 (catMaybes
3558− [("groupByEmail" .=) <$> _daiGroupByEmail,
3559− ("domain" .=) <$> _daiDomain,
3560− ("specialGroup" .=) <$> _daiSpecialGroup,
3561− ("role" .=) <$> _daiRole, ("view" .=) <$> _daiView,
3562− ("userByEmail" .=) <$> _daiUserByEmail])
3561+ [("groupByEmail" .=) <$> _dsaiGroupByEmail,
3562+ ("domain" .=) <$> _dsaiDomain,
3563+ ("specialGroup" .=) <$> _dsaiSpecialGroup,
3564+ ("role" .=) <$> _dsaiRole, ("view" .=) <$> _dsaiView,
3565+ ("userByEmail" .=) <$> _dsaiUserByEmail])
35633566
35643567--
35653568-- /See:/ 'tableDataInsertAllResponse' smart constructor.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Delete.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Delete.hsrenamed+43−43
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.Delete
16+-- Module : Network.Google.Resource.BigQuery.DataSets.Delete
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -26,27 +26,27 @@
2626-- another dataset with the same name.
2727--
2828-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.delete@.
29−module Network.Google.Resource.BigQuery.Datasets.Delete
29+module Network.Google.Resource.BigQuery.DataSets.Delete
3030 (
3131 -- * REST Resource
32− DatasetsDeleteResource
32+ DataSetsDeleteResource
3333
3434 -- * Creating a Request
35− , datasetsDelete
36− , DatasetsDelete
35+ , dataSetsDelete
36+ , DataSetsDelete
3737
3838 -- * Request Lenses
39− , ddDatasetId
40− , ddProjectId
41− , ddDeleteContents
39+ , dsdDataSetId
40+ , dsdProjectId
41+ , dsdDeleteContents
4242 ) where
4343
4444import Network.Google.BigQuery.Types
4545import Network.Google.Prelude
4646
4747-- | A resource alias for @bigquery.datasets.delete@ method which the
48−-- 'DatasetsDelete' request conforms to.
49−type DatasetsDeleteResource =
48+-- 'DataSetsDelete' request conforms to.
49+type DataSetsDeleteResource =
5050 "projects" :>
5151 Capture "projectId" Text :>
5252 "datasets" :>
@@ -59,56 +59,56 @@ type DatasetsDeleteResource =
5959-- specifying deleteContents. Immediately after deletion, you can create
6060-- another dataset with the same name.
6161--
62−-- /See:/ 'datasetsDelete' smart constructor.
63−data DatasetsDelete = DatasetsDelete
64− { _ddDatasetId :: !Text
65− , _ddProjectId :: !Text
66− , _ddDeleteContents :: !(Maybe Bool)
62+-- /See:/ 'dataSetsDelete' smart constructor.
63+data DataSetsDelete = DataSetsDelete
64+ { _dsdDataSetId :: !Text
65+ , _dsdProjectId :: !Text
66+ , _dsdDeleteContents :: !(Maybe Bool)
6767 } deriving (Eq,Show,Data,Typeable,Generic)
6868
69−-- | Creates a value of 'DatasetsDelete' with the minimum fields required to make a request.
69+-- | Creates a value of 'DataSetsDelete' with the minimum fields required to make a request.
7070--
7171-- Use one of the following lenses to modify other fields as desired:
7272--
73−-- * 'ddDatasetId'
73+-- * 'dsdDataSetId'
7474--
75−-- * 'ddProjectId'
75+-- * 'dsdProjectId'
7676--
77−-- * 'ddDeleteContents'
78−datasetsDelete
79− :: Text -- ^ 'ddDatasetId'
80− -> Text -- ^ 'ddProjectId'
81− -> DatasetsDelete
82−datasetsDelete pDdDatasetId_ pDdProjectId_ =
83− DatasetsDelete
84− { _ddDatasetId = pDdDatasetId_
85− , _ddProjectId = pDdProjectId_
86− , _ddDeleteContents = Nothing
77+-- * 'dsdDeleteContents'
78+dataSetsDelete
79+ :: Text -- ^ 'dsdDataSetId'
80+ -> Text -- ^ 'dsdProjectId'
81+ -> DataSetsDelete
82+dataSetsDelete pDsdDataSetId_ pDsdProjectId_ =
83+ DataSetsDelete
84+ { _dsdDataSetId = pDsdDataSetId_
85+ , _dsdProjectId = pDsdProjectId_
86+ , _dsdDeleteContents = Nothing
8787 }
8888
8989-- | Dataset ID of dataset being deleted
90−ddDatasetId :: Lens' DatasetsDelete Text
91−ddDatasetId
92− = lens _ddDatasetId (\ s a -> s{_ddDatasetId = a})
90+dsdDataSetId :: Lens' DataSetsDelete Text
91+dsdDataSetId
92+ = lens _dsdDataSetId (\ s a -> s{_dsdDataSetId = a})
9393
9494-- | Project ID of the dataset being deleted
95−ddProjectId :: Lens' DatasetsDelete Text
96−ddProjectId
97− = lens _ddProjectId (\ s a -> s{_ddProjectId = a})
95+dsdProjectId :: Lens' DataSetsDelete Text
96+dsdProjectId
97+ = lens _dsdProjectId (\ s a -> s{_dsdProjectId = a})
9898
9999-- | If True, delete all the tables in the dataset. If False and the dataset
100100-- contains tables, the request will fail. Default is False
101−ddDeleteContents :: Lens' DatasetsDelete (Maybe Bool)
102−ddDeleteContents
103− = lens _ddDeleteContents
104− (\ s a -> s{_ddDeleteContents = a})
101+dsdDeleteContents :: Lens' DataSetsDelete (Maybe Bool)
102+dsdDeleteContents
103+ = lens _dsdDeleteContents
104+ (\ s a -> s{_dsdDeleteContents = a})
105105
106−instance GoogleRequest DatasetsDelete where
107− type Rs DatasetsDelete = ()
108− requestClient DatasetsDelete{..}
109− = go _ddProjectId _ddDatasetId _ddDeleteContents
106+instance GoogleRequest DataSetsDelete where
107+ type Rs DataSetsDelete = ()
108+ requestClient DataSetsDelete{..}
109+ = go _dsdProjectId _dsdDataSetId _dsdDeleteContents
110110 (Just AltJSON)
111111 bigQueryService
112112 where go
113− = buildClient (Proxy :: Proxy DatasetsDeleteResource)
113+ = buildClient (Proxy :: Proxy DataSetsDeleteResource)
114114 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Get.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Get.hsrenamed+36−36
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.Get
16+-- Module : Network.Google.Resource.BigQuery.DataSets.Get
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,72 +23,72 @@
2323-- Returns the dataset specified by datasetID.
2424--
2525-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.get@.
26−module Network.Google.Resource.BigQuery.Datasets.Get
26+module Network.Google.Resource.BigQuery.DataSets.Get
2727 (
2828 -- * REST Resource
29− DatasetsGetResource
29+ DataSetsGetResource
3030
3131 -- * Creating a Request
32− , datasetsGet
33− , DatasetsGet
32+ , dataSetsGet
33+ , DataSetsGet
3434
3535 -- * Request Lenses
36− , dgDatasetId
37− , dgProjectId
36+ , dsgDataSetId
37+ , dsgProjectId
3838 ) where
3939
4040import Network.Google.BigQuery.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @bigquery.datasets.get@ method which the
44−-- 'DatasetsGet' request conforms to.
45−type DatasetsGetResource =
44+-- 'DataSetsGet' request conforms to.
45+type DataSetsGetResource =
4646 "projects" :>
4747 Capture "projectId" Text :>
4848 "datasets" :>
4949 Capture "datasetId" Text :>
50− QueryParam "alt" AltJSON :> Get '[JSON] Dataset
50+ QueryParam "alt" AltJSON :> Get '[JSON] DataSet
5151
5252-- | Returns the dataset specified by datasetID.
5353--
54−-- /See:/ 'datasetsGet' smart constructor.
55−data DatasetsGet = DatasetsGet
56− { _dgDatasetId :: !Text
57− , _dgProjectId :: !Text
54+-- /See:/ 'dataSetsGet' smart constructor.
55+data DataSetsGet = DataSetsGet
56+ { _dsgDataSetId :: !Text
57+ , _dsgProjectId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsGet' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsGet' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'dgDatasetId'
64+-- * 'dsgDataSetId'
6565--
66−-- * 'dgProjectId'
67−datasetsGet
68− :: Text -- ^ 'dgDatasetId'
69− -> Text -- ^ 'dgProjectId'
70− -> DatasetsGet
71−datasetsGet pDgDatasetId_ pDgProjectId_ =
72− DatasetsGet
73− { _dgDatasetId = pDgDatasetId_
74− , _dgProjectId = pDgProjectId_
66+-- * 'dsgProjectId'
67+dataSetsGet
68+ :: Text -- ^ 'dsgDataSetId'
69+ -> Text -- ^ 'dsgProjectId'
70+ -> DataSetsGet
71+dataSetsGet pDsgDataSetId_ pDsgProjectId_ =
72+ DataSetsGet
73+ { _dsgDataSetId = pDsgDataSetId_
74+ , _dsgProjectId = pDsgProjectId_
7575 }
7676
7777-- | Dataset ID of the requested dataset
78−dgDatasetId :: Lens' DatasetsGet Text
79−dgDatasetId
80− = lens _dgDatasetId (\ s a -> s{_dgDatasetId = a})
78+dsgDataSetId :: Lens' DataSetsGet Text
79+dsgDataSetId
80+ = lens _dsgDataSetId (\ s a -> s{_dsgDataSetId = a})
8181
8282-- | Project ID of the requested dataset
83−dgProjectId :: Lens' DatasetsGet Text
84−dgProjectId
85− = lens _dgProjectId (\ s a -> s{_dgProjectId = a})
83+dsgProjectId :: Lens' DataSetsGet Text
84+dsgProjectId
85+ = lens _dsgProjectId (\ s a -> s{_dsgProjectId = a})
8686
87−instance GoogleRequest DatasetsGet where
88− type Rs DatasetsGet = Dataset
89− requestClient DatasetsGet{..}
90− = go _dgProjectId _dgDatasetId (Just AltJSON)
87+instance GoogleRequest DataSetsGet where
88+ type Rs DataSetsGet = DataSet
89+ requestClient DataSetsGet{..}
90+ = go _dsgProjectId _dsgDataSetId (Just AltJSON)
9191 bigQueryService
9292 where go
93− = buildClient (Proxy :: Proxy DatasetsGetResource)
93+ = buildClient (Proxy :: Proxy DataSetsGetResource)
9494 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Insert.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Insert.hsrenamed+36−36
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.Insert
16+-- Module : Network.Google.Resource.BigQuery.DataSets.Insert
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,72 +23,72 @@
2323-- Creates a new empty dataset.
2424--
2525-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.insert@.
26−module Network.Google.Resource.BigQuery.Datasets.Insert
26+module Network.Google.Resource.BigQuery.DataSets.Insert
2727 (
2828 -- * REST Resource
29− DatasetsInsertResource
29+ DataSetsInsertResource
3030
3131 -- * Creating a Request
32− , datasetsInsert
33− , DatasetsInsert
32+ , dataSetsInsert
33+ , DataSetsInsert
3434
3535 -- * Request Lenses
36− , diPayload
37− , diProjectId
36+ , dsiPayload
37+ , dsiProjectId
3838 ) where
3939
4040import Network.Google.BigQuery.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @bigquery.datasets.insert@ method which the
44−-- 'DatasetsInsert' request conforms to.
45−type DatasetsInsertResource =
44+-- 'DataSetsInsert' request conforms to.
45+type DataSetsInsertResource =
4646 "projects" :>
4747 Capture "projectId" Text :>
4848 "datasets" :>
4949 QueryParam "alt" AltJSON :>
50− ReqBody '[JSON] Dataset :> Post '[JSON] Dataset
50+ ReqBody '[JSON] DataSet :> Post '[JSON] DataSet
5151
5252-- | Creates a new empty dataset.
5353--
54−-- /See:/ 'datasetsInsert' smart constructor.
55−data DatasetsInsert = DatasetsInsert
56− { _diPayload :: !Dataset
57− , _diProjectId :: !Text
54+-- /See:/ 'dataSetsInsert' smart constructor.
55+data DataSetsInsert = DataSetsInsert
56+ { _dsiPayload :: !DataSet
57+ , _dsiProjectId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsInsert' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsInsert' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'diPayload'
64+-- * 'dsiPayload'
6565--
66−-- * 'diProjectId'
67−datasetsInsert
68− :: Dataset -- ^ 'diPayload'
69− -> Text -- ^ 'diProjectId'
70− -> DatasetsInsert
71−datasetsInsert pDiPayload_ pDiProjectId_ =
72− DatasetsInsert
73− { _diPayload = pDiPayload_
74− , _diProjectId = pDiProjectId_
66+-- * 'dsiProjectId'
67+dataSetsInsert
68+ :: DataSet -- ^ 'dsiPayload'
69+ -> Text -- ^ 'dsiProjectId'
70+ -> DataSetsInsert
71+dataSetsInsert pDsiPayload_ pDsiProjectId_ =
72+ DataSetsInsert
73+ { _dsiPayload = pDsiPayload_
74+ , _dsiProjectId = pDsiProjectId_
7575 }
7676
7777-- | Multipart request metadata.
78−diPayload :: Lens' DatasetsInsert Dataset
79−diPayload
80− = lens _diPayload (\ s a -> s{_diPayload = a})
78+dsiPayload :: Lens' DataSetsInsert DataSet
79+dsiPayload
80+ = lens _dsiPayload (\ s a -> s{_dsiPayload = a})
8181
8282-- | Project ID of the new dataset
83−diProjectId :: Lens' DatasetsInsert Text
84−diProjectId
85− = lens _diProjectId (\ s a -> s{_diProjectId = a})
83+dsiProjectId :: Lens' DataSetsInsert Text
84+dsiProjectId
85+ = lens _dsiProjectId (\ s a -> s{_dsiProjectId = a})
8686
87−instance GoogleRequest DatasetsInsert where
88− type Rs DatasetsInsert = Dataset
89− requestClient DatasetsInsert{..}
90− = go _diProjectId (Just AltJSON) _diPayload
87+instance GoogleRequest DataSetsInsert where
88+ type Rs DataSetsInsert = DataSet
89+ requestClient DataSetsInsert{..}
90+ = go _dsiProjectId (Just AltJSON) _dsiPayload
9191 bigQueryService
9292 where go
93− = buildClient (Proxy :: Proxy DatasetsInsertResource)
93+ = buildClient (Proxy :: Proxy DataSetsInsertResource)
9494 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/List.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/List.hsrenamed+50−48
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.List
16+-- Module : Network.Google.Resource.BigQuery.DataSets.List
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -24,95 +24,97 @@
2424-- granted the READER dataset role.
2525--
2626-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.list@.
27−module Network.Google.Resource.BigQuery.Datasets.List
27+module Network.Google.Resource.BigQuery.DataSets.List
2828 (
2929 -- * REST Resource
30− DatasetsListResource
30+ DataSetsListResource
3131
3232 -- * Creating a Request
33− , datasetsList
34− , DatasetsList
33+ , dataSetsList
34+ , DataSetsList
3535
3636 -- * Request Lenses
37− , dlAll
38− , dlPageToken
39− , dlProjectId
40− , dlMaxResults
37+ , dslAll
38+ , dslPageToken
39+ , dslProjectId
40+ , dslMaxResults
4141 ) where
4242
4343import Network.Google.BigQuery.Types
4444import Network.Google.Prelude
4545
4646-- | A resource alias for @bigquery.datasets.list@ method which the
47−-- 'DatasetsList' request conforms to.
48−type DatasetsListResource =
47+-- 'DataSetsList' request conforms to.
48+type DataSetsListResource =
4949 "projects" :>
5050 Capture "projectId" Text :>
5151 "datasets" :>
5252 QueryParam "all" Bool :>
5353 QueryParam "pageToken" Text :>
5454 QueryParam "maxResults" Word32 :>
55− QueryParam "alt" AltJSON :> Get '[JSON] DatasetList
55+ QueryParam "alt" AltJSON :> Get '[JSON] DataSetList
5656
5757-- | Lists all datasets in the specified project to which you have been
5858-- granted the READER dataset role.
5959--
60−-- /See:/ 'datasetsList' smart constructor.
61−data DatasetsList = DatasetsList
62− { _dlAll :: !(Maybe Bool)
63− , _dlPageToken :: !(Maybe Text)
64− , _dlProjectId :: !Text
65− , _dlMaxResults :: !(Maybe Word32)
60+-- /See:/ 'dataSetsList' smart constructor.
61+data DataSetsList = DataSetsList
62+ { _dslAll :: !(Maybe Bool)
63+ , _dslPageToken :: !(Maybe Text)
64+ , _dslProjectId :: !Text
65+ , _dslMaxResults :: !(Maybe Word32)
6666 } deriving (Eq,Show,Data,Typeable,Generic)
6767
68−-- | Creates a value of 'DatasetsList' with the minimum fields required to make a request.
68+-- | Creates a value of 'DataSetsList' with the minimum fields required to make a request.
6969--
7070-- Use one of the following lenses to modify other fields as desired:
7171--
72−-- * 'dlAll'
72+-- * 'dslAll'
7373--
74−-- * 'dlPageToken'
74+-- * 'dslPageToken'
7575--
76−-- * 'dlProjectId'
76+-- * 'dslProjectId'
7777--
78−-- * 'dlMaxResults'
79−datasetsList
80− :: Text -- ^ 'dlProjectId'
81− -> DatasetsList
82−datasetsList pDlProjectId_ =
83− DatasetsList
84− { _dlAll = Nothing
85− , _dlPageToken = Nothing
86− , _dlProjectId = pDlProjectId_
87− , _dlMaxResults = Nothing
78+-- * 'dslMaxResults'
79+dataSetsList
80+ :: Text -- ^ 'dslProjectId'
81+ -> DataSetsList
82+dataSetsList pDslProjectId_ =
83+ DataSetsList
84+ { _dslAll = Nothing
85+ , _dslPageToken = Nothing
86+ , _dslProjectId = pDslProjectId_
87+ , _dslMaxResults = Nothing
8888 }
8989
9090-- | Whether to list all datasets, including hidden ones
91−dlAll :: Lens' DatasetsList (Maybe Bool)
92−dlAll = lens _dlAll (\ s a -> s{_dlAll = a})
91+dslAll :: Lens' DataSetsList (Maybe Bool)
92+dslAll = lens _dslAll (\ s a -> s{_dslAll = a})
9393
9494-- | Page token, returned by a previous call, to request the next page of
9595-- results
96−dlPageToken :: Lens' DatasetsList (Maybe Text)
97−dlPageToken
98− = lens _dlPageToken (\ s a -> s{_dlPageToken = a})
96+dslPageToken :: Lens' DataSetsList (Maybe Text)
97+dslPageToken
98+ = lens _dslPageToken (\ s a -> s{_dslPageToken = a})
9999
100100-- | Project ID of the datasets to be listed
101−dlProjectId :: Lens' DatasetsList Text
102−dlProjectId
103− = lens _dlProjectId (\ s a -> s{_dlProjectId = a})
101+dslProjectId :: Lens' DataSetsList Text
102+dslProjectId
103+ = lens _dslProjectId (\ s a -> s{_dslProjectId = a})
104104
105105-- | The maximum number of results to return
106−dlMaxResults :: Lens' DatasetsList (Maybe Word32)
107−dlMaxResults
108− = lens _dlMaxResults (\ s a -> s{_dlMaxResults = a})
106+dslMaxResults :: Lens' DataSetsList (Maybe Word32)
107+dslMaxResults
108+ = lens _dslMaxResults
109+ (\ s a -> s{_dslMaxResults = a})
109110
110−instance GoogleRequest DatasetsList where
111− type Rs DatasetsList = DatasetList
112− requestClient DatasetsList{..}
113− = go _dlProjectId _dlAll _dlPageToken _dlMaxResults
111+instance GoogleRequest DataSetsList where
112+ type Rs DataSetsList = DataSetList
113+ requestClient DataSetsList{..}
114+ = go _dslProjectId _dslAll _dslPageToken
115+ _dslMaxResults
114116 (Just AltJSON)
115117 bigQueryService
116118 where go
117− = buildClient (Proxy :: Proxy DatasetsListResource)
119+ = buildClient (Proxy :: Proxy DataSetsListResource)
118120 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Patch.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Patch.hsrenamed+45−45
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.Patch
16+-- Module : Network.Google.Resource.BigQuery.DataSets.Patch
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -26,88 +26,88 @@
2626-- supports patch semantics.
2727--
2828-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.patch@.
29−module Network.Google.Resource.BigQuery.Datasets.Patch
29+module Network.Google.Resource.BigQuery.DataSets.Patch
3030 (
3131 -- * REST Resource
32− DatasetsPatchResource
32+ DataSetsPatchResource
3333
3434 -- * Creating a Request
35− , datasetsPatch
36− , DatasetsPatch
35+ , dataSetsPatch
36+ , DataSetsPatch
3737
3838 -- * Request Lenses
39− , dpPayload
40− , dpDatasetId
41− , dpProjectId
39+ , dspPayload
40+ , dspDataSetId
41+ , dspProjectId
4242 ) where
4343
4444import Network.Google.BigQuery.Types
4545import Network.Google.Prelude
4646
4747-- | A resource alias for @bigquery.datasets.patch@ method which the
48−-- 'DatasetsPatch' request conforms to.
49−type DatasetsPatchResource =
48+-- 'DataSetsPatch' request conforms to.
49+type DataSetsPatchResource =
5050 "projects" :>
5151 Capture "projectId" Text :>
5252 "datasets" :>
5353 Capture "datasetId" Text :>
5454 QueryParam "alt" AltJSON :>
55− ReqBody '[JSON] Dataset :> Patch '[JSON] Dataset
55+ ReqBody '[JSON] DataSet :> Patch '[JSON] DataSet
5656
5757-- | Updates information in an existing dataset. The update method replaces
5858-- the entire dataset resource, whereas the patch method only replaces
5959-- fields that are provided in the submitted dataset resource. This method
6060-- supports patch semantics.
6161--
62−-- /See:/ 'datasetsPatch' smart constructor.
63−data DatasetsPatch = DatasetsPatch
64− { _dpPayload :: !Dataset
65− , _dpDatasetId :: !Text
66− , _dpProjectId :: !Text
62+-- /See:/ 'dataSetsPatch' smart constructor.
63+data DataSetsPatch = DataSetsPatch
64+ { _dspPayload :: !DataSet
65+ , _dspDataSetId :: !Text
66+ , _dspProjectId :: !Text
6767 } deriving (Eq,Show,Data,Typeable,Generic)
6868
69−-- | Creates a value of 'DatasetsPatch' with the minimum fields required to make a request.
69+-- | Creates a value of 'DataSetsPatch' with the minimum fields required to make a request.
7070--
7171-- Use one of the following lenses to modify other fields as desired:
7272--
73−-- * 'dpPayload'
73+-- * 'dspPayload'
7474--
75−-- * 'dpDatasetId'
75+-- * 'dspDataSetId'
7676--
77−-- * 'dpProjectId'
78−datasetsPatch
79− :: Dataset -- ^ 'dpPayload'
80− -> Text -- ^ 'dpDatasetId'
81− -> Text -- ^ 'dpProjectId'
82− -> DatasetsPatch
83−datasetsPatch pDpPayload_ pDpDatasetId_ pDpProjectId_ =
84− DatasetsPatch
85− { _dpPayload = pDpPayload_
86− , _dpDatasetId = pDpDatasetId_
87− , _dpProjectId = pDpProjectId_
77+-- * 'dspProjectId'
78+dataSetsPatch
79+ :: DataSet -- ^ 'dspPayload'
80+ -> Text -- ^ 'dspDataSetId'
81+ -> Text -- ^ 'dspProjectId'
82+ -> DataSetsPatch
83+dataSetsPatch pDspPayload_ pDspDataSetId_ pDspProjectId_ =
84+ DataSetsPatch
85+ { _dspPayload = pDspPayload_
86+ , _dspDataSetId = pDspDataSetId_
87+ , _dspProjectId = pDspProjectId_
8888 }
8989
9090-- | Multipart request metadata.
91−dpPayload :: Lens' DatasetsPatch Dataset
92−dpPayload
93− = lens _dpPayload (\ s a -> s{_dpPayload = a})
91+dspPayload :: Lens' DataSetsPatch DataSet
92+dspPayload
93+ = lens _dspPayload (\ s a -> s{_dspPayload = a})
9494
9595-- | Dataset ID of the dataset being updated
96−dpDatasetId :: Lens' DatasetsPatch Text
97−dpDatasetId
98− = lens _dpDatasetId (\ s a -> s{_dpDatasetId = a})
96+dspDataSetId :: Lens' DataSetsPatch Text
97+dspDataSetId
98+ = lens _dspDataSetId (\ s a -> s{_dspDataSetId = a})
9999
100100-- | Project ID of the dataset being updated
101−dpProjectId :: Lens' DatasetsPatch Text
102−dpProjectId
103− = lens _dpProjectId (\ s a -> s{_dpProjectId = a})
101+dspProjectId :: Lens' DataSetsPatch Text
102+dspProjectId
103+ = lens _dspProjectId (\ s a -> s{_dspProjectId = a})
104104
105−instance GoogleRequest DatasetsPatch where
106− type Rs DatasetsPatch = Dataset
107− requestClient DatasetsPatch{..}
108− = go _dpProjectId _dpDatasetId (Just AltJSON)
109− _dpPayload
105+instance GoogleRequest DataSetsPatch where
106+ type Rs DataSetsPatch = DataSet
107+ requestClient DataSetsPatch{..}
108+ = go _dspProjectId _dspDataSetId (Just AltJSON)
109+ _dspPayload
110110 bigQueryService
111111 where go
112− = buildClient (Proxy :: Proxy DatasetsPatchResource)
112+ = buildClient (Proxy :: Proxy DataSetsPatchResource)
113113 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Update.hs → gogol-bigquery/gen/Network/Google/Resource/BigQuery/DataSets/Update.hsrenamed+45−45
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.BigQuery.Datasets.Update
16+-- Module : Network.Google.Resource.BigQuery.DataSets.Update
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -25,87 +25,87 @@
2525-- fields that are provided in the submitted dataset resource.
2626--
2727-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference> for @bigquery.datasets.update@.
28−module Network.Google.Resource.BigQuery.Datasets.Update
28+module Network.Google.Resource.BigQuery.DataSets.Update
2929 (
3030 -- * REST Resource
31− DatasetsUpdateResource
31+ DataSetsUpdateResource
3232
3333 -- * Creating a Request
34− , datasetsUpdate
35− , DatasetsUpdate
34+ , dataSetsUpdate
35+ , DataSetsUpdate
3636
3737 -- * Request Lenses
38− , duPayload
39− , duDatasetId
40− , duProjectId
38+ , dsuPayload
39+ , dsuDataSetId
40+ , dsuProjectId
4141 ) where
4242
4343import Network.Google.BigQuery.Types
4444import Network.Google.Prelude
4545
4646-- | A resource alias for @bigquery.datasets.update@ method which the
47−-- 'DatasetsUpdate' request conforms to.
48−type DatasetsUpdateResource =
47+-- 'DataSetsUpdate' request conforms to.
48+type DataSetsUpdateResource =
4949 "projects" :>
5050 Capture "projectId" Text :>
5151 "datasets" :>
5252 Capture "datasetId" Text :>
5353 QueryParam "alt" AltJSON :>
54− ReqBody '[JSON] Dataset :> Put '[JSON] Dataset
54+ ReqBody '[JSON] DataSet :> Put '[JSON] DataSet
5555
5656-- | Updates information in an existing dataset. The update method replaces
5757-- the entire dataset resource, whereas the patch method only replaces
5858-- fields that are provided in the submitted dataset resource.
5959--
60−-- /See:/ 'datasetsUpdate' smart constructor.
61−data DatasetsUpdate = DatasetsUpdate
62− { _duPayload :: !Dataset
63− , _duDatasetId :: !Text
64− , _duProjectId :: !Text
60+-- /See:/ 'dataSetsUpdate' smart constructor.
61+data DataSetsUpdate = DataSetsUpdate
62+ { _dsuPayload :: !DataSet
63+ , _dsuDataSetId :: !Text
64+ , _dsuProjectId :: !Text
6565 } deriving (Eq,Show,Data,Typeable,Generic)
6666
67−-- | Creates a value of 'DatasetsUpdate' with the minimum fields required to make a request.
67+-- | Creates a value of 'DataSetsUpdate' with the minimum fields required to make a request.
6868--
6969-- Use one of the following lenses to modify other fields as desired:
7070--
71−-- * 'duPayload'
71+-- * 'dsuPayload'
7272--
73−-- * 'duDatasetId'
73+-- * 'dsuDataSetId'
7474--
75−-- * 'duProjectId'
76−datasetsUpdate
77− :: Dataset -- ^ 'duPayload'
78− -> Text -- ^ 'duDatasetId'
79− -> Text -- ^ 'duProjectId'
80− -> DatasetsUpdate
81−datasetsUpdate pDuPayload_ pDuDatasetId_ pDuProjectId_ =
82− DatasetsUpdate
83− { _duPayload = pDuPayload_
84− , _duDatasetId = pDuDatasetId_
85− , _duProjectId = pDuProjectId_
75+-- * 'dsuProjectId'
76+dataSetsUpdate
77+ :: DataSet -- ^ 'dsuPayload'
78+ -> Text -- ^ 'dsuDataSetId'
79+ -> Text -- ^ 'dsuProjectId'
80+ -> DataSetsUpdate
81+dataSetsUpdate pDsuPayload_ pDsuDataSetId_ pDsuProjectId_ =
82+ DataSetsUpdate
83+ { _dsuPayload = pDsuPayload_
84+ , _dsuDataSetId = pDsuDataSetId_
85+ , _dsuProjectId = pDsuProjectId_
8686 }
8787
8888-- | Multipart request metadata.
89−duPayload :: Lens' DatasetsUpdate Dataset
90−duPayload
91− = lens _duPayload (\ s a -> s{_duPayload = a})
89+dsuPayload :: Lens' DataSetsUpdate DataSet
90+dsuPayload
91+ = lens _dsuPayload (\ s a -> s{_dsuPayload = a})
9292
9393-- | Dataset ID of the dataset being updated
94−duDatasetId :: Lens' DatasetsUpdate Text
95−duDatasetId
96− = lens _duDatasetId (\ s a -> s{_duDatasetId = a})
94+dsuDataSetId :: Lens' DataSetsUpdate Text
95+dsuDataSetId
96+ = lens _dsuDataSetId (\ s a -> s{_dsuDataSetId = a})
9797
9898-- | Project ID of the dataset being updated
99−duProjectId :: Lens' DatasetsUpdate Text
100−duProjectId
101− = lens _duProjectId (\ s a -> s{_duProjectId = a})
99+dsuProjectId :: Lens' DataSetsUpdate Text
100+dsuProjectId
101+ = lens _dsuProjectId (\ s a -> s{_dsuProjectId = a})
102102
103−instance GoogleRequest DatasetsUpdate where
104− type Rs DatasetsUpdate = Dataset
105− requestClient DatasetsUpdate{..}
106− = go _duProjectId _duDatasetId (Just AltJSON)
107− _duPayload
103+instance GoogleRequest DataSetsUpdate where
104+ type Rs DataSetsUpdate = DataSet
105+ requestClient DataSetsUpdate{..}
106+ = go _dsuProjectId _dsuDataSetId (Just AltJSON)
107+ _dsuPayload
108108 bigQueryService
109109 where go
110− = buildClient (Proxy :: Proxy DatasetsUpdateResource)
110+ = buildClient (Proxy :: Proxy DataSetsUpdateResource)
111111 mempty
gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs+11−11
@@ -35,7 +35,7 @@ module Network.Google.Resource.BigQuery.TableData.InsertAll
3535
3636 -- * Request Lenses
3737 , tdiaPayload
38− , tdiaDatasetId
38+ , tdiaDataSetId
3939 , tdiaProjectId
4040 , tdiaTableId
4141 ) where
@@ -63,7 +63,7 @@ type TableDataInsertAllResource =
6363-- /See:/ 'tableDataInsertAll' smart constructor.
6464data TableDataInsertAll = TableDataInsertAll
6565 { _tdiaPayload :: !TableDataInsertAllRequest
66− , _tdiaDatasetId :: !Text
66+ , _tdiaDataSetId :: !Text
6767 , _tdiaProjectId :: !Text
6868 , _tdiaTableId :: !Text
6969 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -74,21 +74,21 @@ data TableDataInsertAll = TableDataInsertAll
7474--
7575-- * 'tdiaPayload'
7676--
77−-- * 'tdiaDatasetId'
77+-- * 'tdiaDataSetId'
7878--
7979-- * 'tdiaProjectId'
8080--
8181-- * 'tdiaTableId'
8282tableDataInsertAll
8383 :: TableDataInsertAllRequest -- ^ 'tdiaPayload'
84− -> Text -- ^ 'tdiaDatasetId'
84+ -> Text -- ^ 'tdiaDataSetId'
8585 -> Text -- ^ 'tdiaProjectId'
8686 -> Text -- ^ 'tdiaTableId'
8787 -> TableDataInsertAll
88−tableDataInsertAll pTdiaPayload_ pTdiaDatasetId_ pTdiaProjectId_ pTdiaTableId_ =
88+tableDataInsertAll pTdiaPayload_ pTdiaDataSetId_ pTdiaProjectId_ pTdiaTableId_ =
8989 TableDataInsertAll
9090 { _tdiaPayload = pTdiaPayload_
91− , _tdiaDatasetId = pTdiaDatasetId_
91+ , _tdiaDataSetId = pTdiaDataSetId_
9292 , _tdiaProjectId = pTdiaProjectId_
9393 , _tdiaTableId = pTdiaTableId_
9494 }
@@ -99,10 +99,10 @@ tdiaPayload
9999 = lens _tdiaPayload (\ s a -> s{_tdiaPayload = a})
100100
101101-- | Dataset ID of the destination table.
102−tdiaDatasetId :: Lens' TableDataInsertAll Text
103−tdiaDatasetId
104− = lens _tdiaDatasetId
105− (\ s a -> s{_tdiaDatasetId = a})
102+tdiaDataSetId :: Lens' TableDataInsertAll Text
103+tdiaDataSetId
104+ = lens _tdiaDataSetId
105+ (\ s a -> s{_tdiaDataSetId = a})
106106
107107-- | Project ID of the destination table.
108108tdiaProjectId :: Lens' TableDataInsertAll Text
@@ -119,7 +119,7 @@ instance GoogleRequest TableDataInsertAll where
119119 type Rs TableDataInsertAll =
120120 TableDataInsertAllResponse
121121 requestClient TableDataInsertAll{..}
122− = go _tdiaProjectId _tdiaDatasetId _tdiaTableId
122+ = go _tdiaProjectId _tdiaDataSetId _tdiaTableId
123123 (Just AltJSON)
124124 _tdiaPayload
125125 bigQueryService
gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/List.hs+10−10
@@ -34,7 +34,7 @@ module Network.Google.Resource.BigQuery.TableData.List
3434 , TableDataList'
3535
3636 -- * Request Lenses
37− , tDatasetId
37+ , tDataSetId
3838 , tPageToken
3939 , tProjectId
4040 , tTableId
@@ -65,7 +65,7 @@ type TableDataListResource =
6565--
6666-- /See:/ 'tableDataList'' smart constructor.
6767data TableDataList' = TableDataList'
68− { _tDatasetId :: !Text
68+ { _tDataSetId :: !Text
6969 , _tPageToken :: !(Maybe Text)
7070 , _tProjectId :: !Text
7171 , _tTableId :: !Text
@@ -77,7 +77,7 @@ data TableDataList' = TableDataList'
7777--
7878-- Use one of the following lenses to modify other fields as desired:
7979--
80−-- * 'tDatasetId'
80+-- * 'tDataSetId'
8181--
8282-- * 'tPageToken'
8383--
@@ -89,13 +89,13 @@ data TableDataList' = TableDataList'
8989--
9090-- * 'tMaxResults'
9191tableDataList'
92− :: Text -- ^ 'tDatasetId'
92+ :: Text -- ^ 'tDataSetId'
9393 -> Text -- ^ 'tProjectId'
9494 -> Text -- ^ 'tTableId'
9595 -> TableDataList'
96−tableDataList' pTDatasetId_ pTProjectId_ pTTableId_ =
96+tableDataList' pTDataSetId_ pTProjectId_ pTTableId_ =
9797 TableDataList'
98− { _tDatasetId = pTDatasetId_
98+ { _tDataSetId = pTDataSetId_
9999 , _tPageToken = Nothing
100100 , _tProjectId = pTProjectId_
101101 , _tTableId = pTTableId_
@@ -104,9 +104,9 @@ tableDataList' pTDatasetId_ pTProjectId_ pTTableId_ =
104104 }
105105
106106-- | Dataset ID of the table to read
107−tDatasetId :: Lens' TableDataList' Text
108−tDatasetId
109− = lens _tDatasetId (\ s a -> s{_tDatasetId = a})
107+tDataSetId :: Lens' TableDataList' Text
108+tDataSetId
109+ = lens _tDataSetId (\ s a -> s{_tDataSetId = a})
110110
111111-- | A token used for paging results. Providing this token instead of the
112112-- startIndex parameter can help you retrieve stable results when an
@@ -137,7 +137,7 @@ tMaxResults
137137instance GoogleRequest TableDataList' where
138138 type Rs TableDataList' = TableDataList
139139 requestClient TableDataList'{..}
140− = go _tProjectId _tDatasetId _tTableId _tPageToken
140+ = go _tProjectId _tDataSetId _tTableId _tPageToken
141141 _tStartIndex
142142 _tMaxResults
143143 (Just AltJSON)
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs+10−10
@@ -34,7 +34,7 @@ module Network.Google.Resource.BigQuery.Tables.Delete
3434 , TablesDelete
3535
3636 -- * Request Lenses
37− , tdDatasetId
37+ , tdDataSetId
3838 , tdProjectId
3939 , tdTableId
4040 ) where
@@ -58,7 +58,7 @@ type TablesDeleteResource =
5858--
5959-- /See:/ 'tablesDelete' smart constructor.
6060data TablesDelete = TablesDelete
61− { _tdDatasetId :: !Text
61+ { _tdDataSetId :: !Text
6262 , _tdProjectId :: !Text
6363 , _tdTableId :: !Text
6464 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -67,27 +67,27 @@ data TablesDelete = TablesDelete
6767--
6868-- Use one of the following lenses to modify other fields as desired:
6969--
70−-- * 'tdDatasetId'
70+-- * 'tdDataSetId'
7171--
7272-- * 'tdProjectId'
7373--
7474-- * 'tdTableId'
7575tablesDelete
76− :: Text -- ^ 'tdDatasetId'
76+ :: Text -- ^ 'tdDataSetId'
7777 -> Text -- ^ 'tdProjectId'
7878 -> Text -- ^ 'tdTableId'
7979 -> TablesDelete
80−tablesDelete pTdDatasetId_ pTdProjectId_ pTdTableId_ =
80+tablesDelete pTdDataSetId_ pTdProjectId_ pTdTableId_ =
8181 TablesDelete
82− { _tdDatasetId = pTdDatasetId_
82+ { _tdDataSetId = pTdDataSetId_
8383 , _tdProjectId = pTdProjectId_
8484 , _tdTableId = pTdTableId_
8585 }
8686
8787-- | Dataset ID of the table to delete
88−tdDatasetId :: Lens' TablesDelete Text
89−tdDatasetId
90− = lens _tdDatasetId (\ s a -> s{_tdDatasetId = a})
88+tdDataSetId :: Lens' TablesDelete Text
89+tdDataSetId
90+ = lens _tdDataSetId (\ s a -> s{_tdDataSetId = a})
9191
9292-- | Project ID of the table to delete
9393tdProjectId :: Lens' TablesDelete Text
@@ -102,7 +102,7 @@ tdTableId
102102instance GoogleRequest TablesDelete where
103103 type Rs TablesDelete = ()
104104 requestClient TablesDelete{..}
105− = go _tdProjectId _tdDatasetId _tdTableId
105+ = go _tdProjectId _tdDataSetId _tdTableId
106106 (Just AltJSON)
107107 bigQueryService
108108 where go
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Get.hs+10−10
@@ -35,7 +35,7 @@ module Network.Google.Resource.BigQuery.Tables.Get
3535 , TablesGet
3636
3737 -- * Request Lenses
38− , tgDatasetId
38+ , tgDataSetId
3939 , tgProjectId
4040 , tgTableId
4141 ) where
@@ -60,7 +60,7 @@ type TablesGetResource =
6060--
6161-- /See:/ 'tablesGet' smart constructor.
6262data TablesGet = TablesGet
63− { _tgDatasetId :: !Text
63+ { _tgDataSetId :: !Text
6464 , _tgProjectId :: !Text
6565 , _tgTableId :: !Text
6666 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -69,27 +69,27 @@ data TablesGet = TablesGet
6969--
7070-- Use one of the following lenses to modify other fields as desired:
7171--
72−-- * 'tgDatasetId'
72+-- * 'tgDataSetId'
7373--
7474-- * 'tgProjectId'
7575--
7676-- * 'tgTableId'
7777tablesGet
78− :: Text -- ^ 'tgDatasetId'
78+ :: Text -- ^ 'tgDataSetId'
7979 -> Text -- ^ 'tgProjectId'
8080 -> Text -- ^ 'tgTableId'
8181 -> TablesGet
82−tablesGet pTgDatasetId_ pTgProjectId_ pTgTableId_ =
82+tablesGet pTgDataSetId_ pTgProjectId_ pTgTableId_ =
8383 TablesGet
84− { _tgDatasetId = pTgDatasetId_
84+ { _tgDataSetId = pTgDataSetId_
8585 , _tgProjectId = pTgProjectId_
8686 , _tgTableId = pTgTableId_
8787 }
8888
8989-- | Dataset ID of the requested table
90−tgDatasetId :: Lens' TablesGet Text
91−tgDatasetId
92− = lens _tgDatasetId (\ s a -> s{_tgDatasetId = a})
90+tgDataSetId :: Lens' TablesGet Text
91+tgDataSetId
92+ = lens _tgDataSetId (\ s a -> s{_tgDataSetId = a})
9393
9494-- | Project ID of the requested table
9595tgProjectId :: Lens' TablesGet Text
@@ -104,7 +104,7 @@ tgTableId
104104instance GoogleRequest TablesGet where
105105 type Rs TablesGet = Table
106106 requestClient TablesGet{..}
107− = go _tgProjectId _tgDatasetId _tgTableId
107+ = go _tgProjectId _tgDataSetId _tgTableId
108108 (Just AltJSON)
109109 bigQueryService
110110 where go
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs+10−10
@@ -34,7 +34,7 @@ module Network.Google.Resource.BigQuery.Tables.Insert
3434
3535 -- * Request Lenses
3636 , tiPayload
37− , tiDatasetId
37+ , tiDataSetId
3838 , tiProjectId
3939 ) where
4040
@@ -57,7 +57,7 @@ type TablesInsertResource =
5757-- /See:/ 'tablesInsert' smart constructor.
5858data TablesInsert = TablesInsert
5959 { _tiPayload :: !Table
60− , _tiDatasetId :: !Text
60+ , _tiDataSetId :: !Text
6161 , _tiProjectId :: !Text
6262 } deriving (Eq,Show,Data,Typeable,Generic)
6363
@@ -67,18 +67,18 @@ data TablesInsert = TablesInsert
6767--
6868-- * 'tiPayload'
6969--
70−-- * 'tiDatasetId'
70+-- * 'tiDataSetId'
7171--
7272-- * 'tiProjectId'
7373tablesInsert
7474 :: Table -- ^ 'tiPayload'
75− -> Text -- ^ 'tiDatasetId'
75+ -> Text -- ^ 'tiDataSetId'
7676 -> Text -- ^ 'tiProjectId'
7777 -> TablesInsert
78−tablesInsert pTiPayload_ pTiDatasetId_ pTiProjectId_ =
78+tablesInsert pTiPayload_ pTiDataSetId_ pTiProjectId_ =
7979 TablesInsert
8080 { _tiPayload = pTiPayload_
81− , _tiDatasetId = pTiDatasetId_
81+ , _tiDataSetId = pTiDataSetId_
8282 , _tiProjectId = pTiProjectId_
8383 }
8484
@@ -88,9 +88,9 @@ tiPayload
8888 = lens _tiPayload (\ s a -> s{_tiPayload = a})
8989
9090-- | Dataset ID of the new table
91−tiDatasetId :: Lens' TablesInsert Text
92−tiDatasetId
93− = lens _tiDatasetId (\ s a -> s{_tiDatasetId = a})
91+tiDataSetId :: Lens' TablesInsert Text
92+tiDataSetId
93+ = lens _tiDataSetId (\ s a -> s{_tiDataSetId = a})
9494
9595-- | Project ID of the new table
9696tiProjectId :: Lens' TablesInsert Text
@@ -100,7 +100,7 @@ tiProjectId
100100instance GoogleRequest TablesInsert where
101101 type Rs TablesInsert = Table
102102 requestClient TablesInsert{..}
103− = go _tiProjectId _tiDatasetId (Just AltJSON)
103+ = go _tiProjectId _tiDataSetId (Just AltJSON)
104104 _tiPayload
105105 bigQueryService
106106 where go
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/List.hs+10−10
@@ -34,7 +34,7 @@ module Network.Google.Resource.BigQuery.Tables.List
3434 , TablesList
3535
3636 -- * Request Lenses
37− , tlDatasetId
37+ , tlDataSetId
3838 , tlPageToken
3939 , tlProjectId
4040 , tlMaxResults
@@ -60,7 +60,7 @@ type TablesListResource =
6060--
6161-- /See:/ 'tablesList' smart constructor.
6262data TablesList = TablesList
63− { _tlDatasetId :: !Text
63+ { _tlDataSetId :: !Text
6464 , _tlPageToken :: !(Maybe Text)
6565 , _tlProjectId :: !Text
6666 , _tlMaxResults :: !(Maybe Word32)
@@ -70,7 +70,7 @@ data TablesList = TablesList
7070--
7171-- Use one of the following lenses to modify other fields as desired:
7272--
73−-- * 'tlDatasetId'
73+-- * 'tlDataSetId'
7474--
7575-- * 'tlPageToken'
7676--
@@ -78,21 +78,21 @@ data TablesList = TablesList
7878--
7979-- * 'tlMaxResults'
8080tablesList
81− :: Text -- ^ 'tlDatasetId'
81+ :: Text -- ^ 'tlDataSetId'
8282 -> Text -- ^ 'tlProjectId'
8383 -> TablesList
84−tablesList pTlDatasetId_ pTlProjectId_ =
84+tablesList pTlDataSetId_ pTlProjectId_ =
8585 TablesList
86− { _tlDatasetId = pTlDatasetId_
86+ { _tlDataSetId = pTlDataSetId_
8787 , _tlPageToken = Nothing
8888 , _tlProjectId = pTlProjectId_
8989 , _tlMaxResults = Nothing
9090 }
9191
9292-- | Dataset ID of the tables to list
93−tlDatasetId :: Lens' TablesList Text
94−tlDatasetId
95− = lens _tlDatasetId (\ s a -> s{_tlDatasetId = a})
93+tlDataSetId :: Lens' TablesList Text
94+tlDataSetId
95+ = lens _tlDataSetId (\ s a -> s{_tlDataSetId = a})
9696
9797-- | Page token, returned by a previous call, to request the next page of
9898-- results
@@ -113,7 +113,7 @@ tlMaxResults
113113instance GoogleRequest TablesList where
114114 type Rs TablesList = TableList
115115 requestClient TablesList{..}
116− = go _tlProjectId _tlDatasetId _tlPageToken
116+ = go _tlProjectId _tlDataSetId _tlPageToken
117117 _tlMaxResults
118118 (Just AltJSON)
119119 bigQueryService
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs+10−10
@@ -37,7 +37,7 @@ module Network.Google.Resource.BigQuery.Tables.Patch
3737
3838 -- * Request Lenses
3939 , tpPayload
40− , tpDatasetId
40+ , tpDataSetId
4141 , tpProjectId
4242 , tpTableId
4343 ) where
@@ -65,7 +65,7 @@ type TablesPatchResource =
6565-- /See:/ 'tablesPatch' smart constructor.
6666data TablesPatch = TablesPatch
6767 { _tpPayload :: !Table
68− , _tpDatasetId :: !Text
68+ , _tpDataSetId :: !Text
6969 , _tpProjectId :: !Text
7070 , _tpTableId :: !Text
7171 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -76,21 +76,21 @@ data TablesPatch = TablesPatch
7676--
7777-- * 'tpPayload'
7878--
79−-- * 'tpDatasetId'
79+-- * 'tpDataSetId'
8080--
8181-- * 'tpProjectId'
8282--
8383-- * 'tpTableId'
8484tablesPatch
8585 :: Table -- ^ 'tpPayload'
86− -> Text -- ^ 'tpDatasetId'
86+ -> Text -- ^ 'tpDataSetId'
8787 -> Text -- ^ 'tpProjectId'
8888 -> Text -- ^ 'tpTableId'
8989 -> TablesPatch
90−tablesPatch pTpPayload_ pTpDatasetId_ pTpProjectId_ pTpTableId_ =
90+tablesPatch pTpPayload_ pTpDataSetId_ pTpProjectId_ pTpTableId_ =
9191 TablesPatch
9292 { _tpPayload = pTpPayload_
93− , _tpDatasetId = pTpDatasetId_
93+ , _tpDataSetId = pTpDataSetId_
9494 , _tpProjectId = pTpProjectId_
9595 , _tpTableId = pTpTableId_
9696 }
@@ -101,9 +101,9 @@ tpPayload
101101 = lens _tpPayload (\ s a -> s{_tpPayload = a})
102102
103103-- | Dataset ID of the table to update
104−tpDatasetId :: Lens' TablesPatch Text
105−tpDatasetId
106− = lens _tpDatasetId (\ s a -> s{_tpDatasetId = a})
104+tpDataSetId :: Lens' TablesPatch Text
105+tpDataSetId
106+ = lens _tpDataSetId (\ s a -> s{_tpDataSetId = a})
107107
108108-- | Project ID of the table to update
109109tpProjectId :: Lens' TablesPatch Text
@@ -118,7 +118,7 @@ tpTableId
118118instance GoogleRequest TablesPatch where
119119 type Rs TablesPatch = Table
120120 requestClient TablesPatch{..}
121− = go _tpProjectId _tpDatasetId _tpTableId
121+ = go _tpProjectId _tpDataSetId _tpTableId
122122 (Just AltJSON)
123123 _tpPayload
124124 bigQueryService
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Update.hs+10−10
@@ -36,7 +36,7 @@ module Network.Google.Resource.BigQuery.Tables.Update
3636
3737 -- * Request Lenses
3838 , tuPayload
39− , tuDatasetId
39+ , tuDataSetId
4040 , tuProjectId
4141 , tuTableId
4242 ) where
@@ -63,7 +63,7 @@ type TablesUpdateResource =
6363-- /See:/ 'tablesUpdate' smart constructor.
6464data TablesUpdate = TablesUpdate
6565 { _tuPayload :: !Table
66− , _tuDatasetId :: !Text
66+ , _tuDataSetId :: !Text
6767 , _tuProjectId :: !Text
6868 , _tuTableId :: !Text
6969 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -74,21 +74,21 @@ data TablesUpdate = TablesUpdate
7474--
7575-- * 'tuPayload'
7676--
77−-- * 'tuDatasetId'
77+-- * 'tuDataSetId'
7878--
7979-- * 'tuProjectId'
8080--
8181-- * 'tuTableId'
8282tablesUpdate
8383 :: Table -- ^ 'tuPayload'
84− -> Text -- ^ 'tuDatasetId'
84+ -> Text -- ^ 'tuDataSetId'
8585 -> Text -- ^ 'tuProjectId'
8686 -> Text -- ^ 'tuTableId'
8787 -> TablesUpdate
88−tablesUpdate pTuPayload_ pTuDatasetId_ pTuProjectId_ pTuTableId_ =
88+tablesUpdate pTuPayload_ pTuDataSetId_ pTuProjectId_ pTuTableId_ =
8989 TablesUpdate
9090 { _tuPayload = pTuPayload_
91− , _tuDatasetId = pTuDatasetId_
91+ , _tuDataSetId = pTuDataSetId_
9292 , _tuProjectId = pTuProjectId_
9393 , _tuTableId = pTuTableId_
9494 }
@@ -99,9 +99,9 @@ tuPayload
9999 = lens _tuPayload (\ s a -> s{_tuPayload = a})
100100
101101-- | Dataset ID of the table to update
102−tuDatasetId :: Lens' TablesUpdate Text
103−tuDatasetId
104− = lens _tuDatasetId (\ s a -> s{_tuDatasetId = a})
102+tuDataSetId :: Lens' TablesUpdate Text
103+tuDataSetId
104+ = lens _tuDataSetId (\ s a -> s{_tuDataSetId = a})
105105
106106-- | Project ID of the table to update
107107tuProjectId :: Lens' TablesUpdate Text
@@ -116,7 +116,7 @@ tuTableId
116116instance GoogleRequest TablesUpdate where
117117 type Rs TablesUpdate = Table
118118 requestClient TablesUpdate{..}
119− = go _tuProjectId _tuDatasetId _tuTableId
119+ = go _tuProjectId _tuDataSetId _tuTableId
120120 (Just AltJSON)
121121 _tuPayload
122122 bigQueryService
gogol-bigquery/gogol-bigquery.cabal+6−6
@@ -35,12 +35,12 @@ library
3535 exposed-modules:
3636 Network.Google.BigQuery
3737 , Network.Google.BigQuery.Types
38− , Network.Google.Resource.BigQuery.Datasets.Delete
39− , Network.Google.Resource.BigQuery.Datasets.Get
40− , Network.Google.Resource.BigQuery.Datasets.Insert
41− , Network.Google.Resource.BigQuery.Datasets.List
42− , Network.Google.Resource.BigQuery.Datasets.Patch
43− , Network.Google.Resource.BigQuery.Datasets.Update
38+ , Network.Google.Resource.BigQuery.DataSets.Delete
39+ , Network.Google.Resource.BigQuery.DataSets.Get
40+ , Network.Google.Resource.BigQuery.DataSets.Insert
41+ , Network.Google.Resource.BigQuery.DataSets.List
42+ , Network.Google.Resource.BigQuery.DataSets.Patch
43+ , Network.Google.Resource.BigQuery.DataSets.Update
4444 , Network.Google.Resource.BigQuery.Jobs.Cancel
4545 , Network.Google.Resource.BigQuery.Jobs.Get
4646 , Network.Google.Resource.BigQuery.Jobs.GetQueryResults
gogol-books/gen/Network/Google/Books.hs+21−21
@@ -166,12 +166,12 @@ module Network.Google.Books
166166
167167 -- * Types
168168
169− -- ** Usersettings
170− , Usersettings
171− , usersettings
172− , uNotification
173− , uKind
174− , uNotesExport
169+ -- ** UserSettings
170+ , UserSettings
171+ , userSettings
172+ , usNotification
173+ , usKind
174+ , usNotesExport
175175
176176 -- ** Annotations
177177 , Annotations
@@ -198,10 +198,10 @@ module Network.Google.Books
198198 , adKind
199199 , adItems
200200
201− -- ** UsersettingsNotificationMoreFromAuthors
202− , UsersettingsNotificationMoreFromAuthors
203− , usersettingsNotificationMoreFromAuthors
204− , unmfaOptedState
201+ -- ** UserSettingsNotificationMoreFromAuthors
202+ , UserSettingsNotificationMoreFromAuthors
203+ , userSettingsNotificationMoreFromAuthors
204+ , usnmfaOptedState
205205
206206 -- ** Volumeannotations
207207 , Volumeannotations
@@ -614,10 +614,10 @@ module Network.Google.Books
614614 -- ** VolumesListFilter
615615 , VolumesListFilter (..)
616616
617− -- ** UsersettingsNotification
618− , UsersettingsNotification
619− , usersettingsNotification
620− , unMoreFromAuthors
617+ -- ** UserSettingsNotification
618+ , UserSettingsNotification
619+ , userSettingsNotification
620+ , usnMoreFromAuthors
621621
622622 -- ** DictlayerDataDictWordsItemSensesItemSynonymsItem
623623 , DictlayerDataDictWordsItemSensesItemSynonymsItem
@@ -873,11 +873,11 @@ module Network.Google.Books
873873 , dTotalClusters
874874 , dClusters
875875
876− -- ** UsersettingsNotesExport
877− , UsersettingsNotesExport
878− , usersettingsNotesExport
879− , uneFolderName
880− , uneIsEnabled
876+ -- ** UserSettingsNotesExport
877+ , UserSettingsNotesExport
878+ , userSettingsNotesExport
879+ , usneFolderName
880+ , usneIsEnabled
881881
882882 -- ** ConcurrentAccessRestriction
883883 , ConcurrentAccessRestriction
@@ -990,8 +990,8 @@ module Network.Google.Books
990990 -- ** BooksAnnotationsRange
991991 , BooksAnnotationsRange
992992 , booksAnnotationsRange
993− , barStartOffset
994− , barEndOffset
993+ , barStartOffSet
994+ , barEndOffSet
995995 , barEndPosition
996996 , barStartPosition
997997
gogol-books/gen/Network/Google/Books/Types.hs+21−21
@@ -21,12 +21,12 @@ module Network.Google.Books.Types
2121 -- * OAuth Scopes
2222 , booksScope
2323
24− -- * Usersettings
25− , Usersettings
26− , usersettings
27− , uNotification
28− , uKind
29− , uNotesExport
24+ -- * UserSettings
25+ , UserSettings
26+ , userSettings
27+ , usNotification
28+ , usKind
29+ , usNotesExport
3030
3131 -- * Annotations
3232 , Annotations
@@ -53,10 +53,10 @@ module Network.Google.Books.Types
5353 , adKind
5454 , adItems
5555
56− -- * UsersettingsNotificationMoreFromAuthors
57− , UsersettingsNotificationMoreFromAuthors
58− , usersettingsNotificationMoreFromAuthors
59− , unmfaOptedState
56+ -- * UserSettingsNotificationMoreFromAuthors
57+ , UserSettingsNotificationMoreFromAuthors
58+ , userSettingsNotificationMoreFromAuthors
59+ , usnmfaOptedState
6060
6161 -- * Volumeannotations
6262 , Volumeannotations
@@ -469,10 +469,10 @@ module Network.Google.Books.Types
469469 -- * VolumesListFilter
470470 , VolumesListFilter (..)
471471
472− -- * UsersettingsNotification
473− , UsersettingsNotification
474− , usersettingsNotification
475− , unMoreFromAuthors
472+ -- * UserSettingsNotification
473+ , UserSettingsNotification
474+ , userSettingsNotification
475+ , usnMoreFromAuthors
476476
477477 -- * DictlayerDataDictWordsItemSensesItemSynonymsItem
478478 , DictlayerDataDictWordsItemSensesItemSynonymsItem
@@ -728,11 +728,11 @@ module Network.Google.Books.Types
728728 , dTotalClusters
729729 , dClusters
730730
731− -- * UsersettingsNotesExport
732− , UsersettingsNotesExport
733− , usersettingsNotesExport
734− , uneFolderName
735− , uneIsEnabled
731+ -- * UserSettingsNotesExport
732+ , UserSettingsNotesExport
733+ , userSettingsNotesExport
734+ , usneFolderName
735+ , usneIsEnabled
736736
737737 -- * ConcurrentAccessRestriction
738738 , ConcurrentAccessRestriction
@@ -845,8 +845,8 @@ module Network.Google.Books.Types
845845 -- * BooksAnnotationsRange
846846 , BooksAnnotationsRange
847847 , booksAnnotationsRange
848− , barStartOffset
849− , barEndOffset
848+ , barStartOffSet
849+ , barEndOffSet
850850 , barEndPosition
851851 , barStartPosition
852852
gogol-books/gen/Network/Google/Books/Types/Product.hs+118−115
@@ -21,61 +21,62 @@ import Network.Google.Books.Types.Sum
2121import Network.Google.Prelude
2222
2323--
24−-- /See:/ 'usersettings' smart constructor.
25−data Usersettings = Usersettings
26− { _uNotification :: !(Maybe UsersettingsNotification)
27− , _uKind :: !Text
28− , _uNotesExport :: !(Maybe UsersettingsNotesExport)
24+-- /See:/ 'userSettings' smart constructor.
25+data UserSettings = UserSettings
26+ { _usNotification :: !(Maybe UserSettingsNotification)
27+ , _usKind :: !Text
28+ , _usNotesExport :: !(Maybe UserSettingsNotesExport)
2929 } deriving (Eq,Show,Data,Typeable,Generic)
3030
31−-- | Creates a value of 'Usersettings' with the minimum fields required to make a request.
31+-- | Creates a value of 'UserSettings' with the minimum fields required to make a request.
3232--
3333-- Use one of the following lenses to modify other fields as desired:
3434--
35−-- * 'uNotification'
35+-- * 'usNotification'
3636--
37−-- * 'uKind'
37+-- * 'usKind'
3838--
39−-- * 'uNotesExport'
40−usersettings
41− :: Usersettings
42−usersettings =
43− Usersettings
44− { _uNotification = Nothing
45− , _uKind = "books#usersettings"
46− , _uNotesExport = Nothing
39+-- * 'usNotesExport'
40+userSettings
41+ :: UserSettings
42+userSettings =
43+ UserSettings
44+ { _usNotification = Nothing
45+ , _usKind = "books#usersettings"
46+ , _usNotesExport = Nothing
4747 }
4848
49−uNotification :: Lens' Usersettings (Maybe UsersettingsNotification)
50−uNotification
51− = lens _uNotification
52− (\ s a -> s{_uNotification = a})
49+usNotification :: Lens' UserSettings (Maybe UserSettingsNotification)
50+usNotification
51+ = lens _usNotification
52+ (\ s a -> s{_usNotification = a})
5353
5454-- | Resource type.
55−uKind :: Lens' Usersettings Text
56−uKind = lens _uKind (\ s a -> s{_uKind = a})
55+usKind :: Lens' UserSettings Text
56+usKind = lens _usKind (\ s a -> s{_usKind = a})
5757
5858-- | User settings in sub-objects, each for different purposes.
59−uNotesExport :: Lens' Usersettings (Maybe UsersettingsNotesExport)
60−uNotesExport
61− = lens _uNotesExport (\ s a -> s{_uNotesExport = a})
59+usNotesExport :: Lens' UserSettings (Maybe UserSettingsNotesExport)
60+usNotesExport
61+ = lens _usNotesExport
62+ (\ s a -> s{_usNotesExport = a})
6263
63−instance FromJSON Usersettings where
64+instance FromJSON UserSettings where
6465 parseJSON
65− = withObject "Usersettings"
66+ = withObject "UserSettings"
6667 (\ o ->
67− Usersettings <$>
68+ UserSettings <$>
6869 (o .:? "notification") <*>
6970 (o .:? "kind" .!= "books#usersettings")
7071 <*> (o .:? "notesExport"))
7172
72−instance ToJSON Usersettings where
73− toJSON Usersettings{..}
73+instance ToJSON UserSettings where
74+ toJSON UserSettings{..}
7475 = object
7576 (catMaybes
76− [("notification" .=) <$> _uNotification,
77− Just ("kind" .= _uKind),
78− ("notesExport" .=) <$> _uNotesExport])
77+ [("notification" .=) <$> _usNotification,
78+ Just ("kind" .= _usKind),
79+ ("notesExport" .=) <$> _usNotesExport])
7980
8081--
8182-- /See:/ 'annotations' smart constructor.
@@ -217,42 +218,43 @@ instance ToJSON AnnotationsData where
217218 Just ("kind" .= _adKind), ("items" .=) <$> _adItems])
218219
219220--
220−-- /See:/ 'usersettingsNotificationMoreFromAuthors' smart constructor.
221−newtype UsersettingsNotificationMoreFromAuthors = UsersettingsNotificationMoreFromAuthors
222− { _unmfaOptedState :: Maybe Text
221+-- /See:/ 'userSettingsNotificationMoreFromAuthors' smart constructor.
222+newtype UserSettingsNotificationMoreFromAuthors = UserSettingsNotificationMoreFromAuthors
223+ { _usnmfaOptedState :: Maybe Text
223224 } deriving (Eq,Show,Data,Typeable,Generic)
224225
225−-- | Creates a value of 'UsersettingsNotificationMoreFromAuthors' with the minimum fields required to make a request.
226+-- | Creates a value of 'UserSettingsNotificationMoreFromAuthors' with the minimum fields required to make a request.
226227--
227228-- Use one of the following lenses to modify other fields as desired:
228229--
229−-- * 'unmfaOptedState'
230−usersettingsNotificationMoreFromAuthors
231− :: UsersettingsNotificationMoreFromAuthors
232−usersettingsNotificationMoreFromAuthors =
233− UsersettingsNotificationMoreFromAuthors
234− { _unmfaOptedState = Nothing
230+-- * 'usnmfaOptedState'
231+userSettingsNotificationMoreFromAuthors
232+ :: UserSettingsNotificationMoreFromAuthors
233+userSettingsNotificationMoreFromAuthors =
234+ UserSettingsNotificationMoreFromAuthors
235+ { _usnmfaOptedState = Nothing
235236 }
236237
237−unmfaOptedState :: Lens' UsersettingsNotificationMoreFromAuthors (Maybe Text)
238−unmfaOptedState
239− = lens _unmfaOptedState
240− (\ s a -> s{_unmfaOptedState = a})
238+usnmfaOptedState :: Lens' UserSettingsNotificationMoreFromAuthors (Maybe Text)
239+usnmfaOptedState
240+ = lens _usnmfaOptedState
241+ (\ s a -> s{_usnmfaOptedState = a})
241242
242243instance FromJSON
243− UsersettingsNotificationMoreFromAuthors where
244+ UserSettingsNotificationMoreFromAuthors where
244245 parseJSON
245246 = withObject
246− "UsersettingsNotificationMoreFromAuthors"
247+ "UserSettingsNotificationMoreFromAuthors"
247248 (\ o ->
248− UsersettingsNotificationMoreFromAuthors <$>
249+ UserSettingsNotificationMoreFromAuthors <$>
249250 (o .:? "opted_state"))
250251
251252instance ToJSON
252− UsersettingsNotificationMoreFromAuthors where
253− toJSON UsersettingsNotificationMoreFromAuthors{..}
253+ UserSettingsNotificationMoreFromAuthors where
254+ toJSON UserSettingsNotificationMoreFromAuthors{..}
254255 = object
255− (catMaybes [("opted_state" .=) <$> _unmfaOptedState])
256+ (catMaybes
257+ [("opted_state" .=) <$> _usnmfaOptedState])
256258
257259--
258260-- /See:/ 'volumeannotations' smart constructor.
@@ -3707,40 +3709,40 @@ instance ToJSON
37073709 ("attribution" .=) <$> _dddwisisisAttribution])
37083710
37093711--
3710−-- /See:/ 'usersettingsNotification' smart constructor.
3711−newtype UsersettingsNotification = UsersettingsNotification
3712− { _unMoreFromAuthors :: Maybe UsersettingsNotificationMoreFromAuthors
3712+-- /See:/ 'userSettingsNotification' smart constructor.
3713+newtype UserSettingsNotification = UserSettingsNotification
3714+ { _usnMoreFromAuthors :: Maybe UserSettingsNotificationMoreFromAuthors
37133715 } deriving (Eq,Show,Data,Typeable,Generic)
37143716
3715−-- | Creates a value of 'UsersettingsNotification' with the minimum fields required to make a request.
3717+-- | Creates a value of 'UserSettingsNotification' with the minimum fields required to make a request.
37163718--
37173719-- Use one of the following lenses to modify other fields as desired:
37183720--
3719−-- * 'unMoreFromAuthors'
3720−usersettingsNotification
3721− :: UsersettingsNotification
3722−usersettingsNotification =
3723− UsersettingsNotification
3724− { _unMoreFromAuthors = Nothing
3721+-- * 'usnMoreFromAuthors'
3722+userSettingsNotification
3723+ :: UserSettingsNotification
3724+userSettingsNotification =
3725+ UserSettingsNotification
3726+ { _usnMoreFromAuthors = Nothing
37253727 }
37263728
3727−unMoreFromAuthors :: Lens' UsersettingsNotification (Maybe UsersettingsNotificationMoreFromAuthors)
3728−unMoreFromAuthors
3729− = lens _unMoreFromAuthors
3730− (\ s a -> s{_unMoreFromAuthors = a})
3729+usnMoreFromAuthors :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMoreFromAuthors)
3730+usnMoreFromAuthors
3731+ = lens _usnMoreFromAuthors
3732+ (\ s a -> s{_usnMoreFromAuthors = a})
37313733
3732−instance FromJSON UsersettingsNotification where
3734+instance FromJSON UserSettingsNotification where
37333735 parseJSON
3734− = withObject "UsersettingsNotification"
3736+ = withObject "UserSettingsNotification"
37353737 (\ o ->
3736− UsersettingsNotification <$>
3738+ UserSettingsNotification <$>
37373739 (o .:? "moreFromAuthors"))
37383740
3739−instance ToJSON UsersettingsNotification where
3740− toJSON UsersettingsNotification{..}
3741+instance ToJSON UserSettingsNotification where
3742+ toJSON UserSettingsNotification{..}
37413743 = object
37423744 (catMaybes
3743− [("moreFromAuthors" .=) <$> _unMoreFromAuthors])
3745+ [("moreFromAuthors" .=) <$> _usnMoreFromAuthors])
37443746
37453747--
37463748-- /See:/ 'dictlayerDataDictWordsItemSensesItemSynonymsItem' smart constructor.
@@ -5829,49 +5831,50 @@ instance ToJSON Discoveryclusters where
58295831
58305832-- | User settings in sub-objects, each for different purposes.
58315833--
5832−-- /See:/ 'usersettingsNotesExport' smart constructor.
5833−data UsersettingsNotesExport = UsersettingsNotesExport
5834− { _uneFolderName :: !(Maybe Text)
5835− , _uneIsEnabled :: !(Maybe Bool)
5834+-- /See:/ 'userSettingsNotesExport' smart constructor.
5835+data UserSettingsNotesExport = UserSettingsNotesExport
5836+ { _usneFolderName :: !(Maybe Text)
5837+ , _usneIsEnabled :: !(Maybe Bool)
58365838 } deriving (Eq,Show,Data,Typeable,Generic)
58375839
5838−-- | Creates a value of 'UsersettingsNotesExport' with the minimum fields required to make a request.
5840+-- | Creates a value of 'UserSettingsNotesExport' with the minimum fields required to make a request.
58395841--
58405842-- Use one of the following lenses to modify other fields as desired:
58415843--
5842−-- * 'uneFolderName'
5844+-- * 'usneFolderName'
58435845--
5844−-- * 'uneIsEnabled'
5845−usersettingsNotesExport
5846− :: UsersettingsNotesExport
5847−usersettingsNotesExport =
5848− UsersettingsNotesExport
5849− { _uneFolderName = Nothing
5850− , _uneIsEnabled = Nothing
5846+-- * 'usneIsEnabled'
5847+userSettingsNotesExport
5848+ :: UserSettingsNotesExport
5849+userSettingsNotesExport =
5850+ UserSettingsNotesExport
5851+ { _usneFolderName = Nothing
5852+ , _usneIsEnabled = Nothing
58515853 }
58525854
5853−uneFolderName :: Lens' UsersettingsNotesExport (Maybe Text)
5854−uneFolderName
5855− = lens _uneFolderName
5856− (\ s a -> s{_uneFolderName = a})
5855+usneFolderName :: Lens' UserSettingsNotesExport (Maybe Text)
5856+usneFolderName
5857+ = lens _usneFolderName
5858+ (\ s a -> s{_usneFolderName = a})
58575859
5858−uneIsEnabled :: Lens' UsersettingsNotesExport (Maybe Bool)
5859−uneIsEnabled
5860− = lens _uneIsEnabled (\ s a -> s{_uneIsEnabled = a})
5860+usneIsEnabled :: Lens' UserSettingsNotesExport (Maybe Bool)
5861+usneIsEnabled
5862+ = lens _usneIsEnabled
5863+ (\ s a -> s{_usneIsEnabled = a})
58615864
5862−instance FromJSON UsersettingsNotesExport where
5865+instance FromJSON UserSettingsNotesExport where
58635866 parseJSON
5864− = withObject "UsersettingsNotesExport"
5867+ = withObject "UserSettingsNotesExport"
58655868 (\ o ->
5866− UsersettingsNotesExport <$>
5869+ UserSettingsNotesExport <$>
58675870 (o .:? "folderName") <*> (o .:? "isEnabled"))
58685871
5869−instance ToJSON UsersettingsNotesExport where
5870− toJSON UsersettingsNotesExport{..}
5872+instance ToJSON UserSettingsNotesExport where
5873+ toJSON UserSettingsNotesExport{..}
58715874 = object
58725875 (catMaybes
5873− [("folderName" .=) <$> _uneFolderName,
5874− ("isEnabled" .=) <$> _uneIsEnabled])
5876+ [("folderName" .=) <$> _usneFolderName,
5877+ ("isEnabled" .=) <$> _usneIsEnabled])
58755878
58765879--
58775880-- /See:/ 'concurrentAccessRestriction' smart constructor.
@@ -6830,8 +6833,8 @@ instance ToJSON
68306833--
68316834-- /See:/ 'booksAnnotationsRange' smart constructor.
68326835data BooksAnnotationsRange = BooksAnnotationsRange
6833− { _barStartOffset :: !(Maybe Text)
6834− , _barEndOffset :: !(Maybe Text)
6836+ { _barStartOffSet :: !(Maybe Text)
6837+ , _barEndOffSet :: !(Maybe Text)
68356838 , _barEndPosition :: !(Maybe Text)
68366839 , _barStartPosition :: !(Maybe Text)
68376840 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -6840,9 +6843,9 @@ data BooksAnnotationsRange = BooksAnnotationsRange
68406843--
68416844-- Use one of the following lenses to modify other fields as desired:
68426845--
6843−-- * 'barStartOffset'
6846+-- * 'barStartOffSet'
68446847--
6845−-- * 'barEndOffset'
6848+-- * 'barEndOffSet'
68466849--
68476850-- * 'barEndPosition'
68486851--
@@ -6851,22 +6854,22 @@ booksAnnotationsRange
68516854 :: BooksAnnotationsRange
68526855booksAnnotationsRange =
68536856 BooksAnnotationsRange
6854− { _barStartOffset = Nothing
6855− , _barEndOffset = Nothing
6857+ { _barStartOffSet = Nothing
6858+ , _barEndOffSet = Nothing
68566859 , _barEndPosition = Nothing
68576860 , _barStartPosition = Nothing
68586861 }
68596862
68606863-- | The offset from the starting position.
6861−barStartOffset :: Lens' BooksAnnotationsRange (Maybe Text)
6862−barStartOffset
6863− = lens _barStartOffset
6864− (\ s a -> s{_barStartOffset = a})
6864+barStartOffSet :: Lens' BooksAnnotationsRange (Maybe Text)
6865+barStartOffSet
6866+ = lens _barStartOffSet
6867+ (\ s a -> s{_barStartOffSet = a})
68656868
68666869-- | The offset from the ending position.
6867−barEndOffset :: Lens' BooksAnnotationsRange (Maybe Text)
6868−barEndOffset
6869− = lens _barEndOffset (\ s a -> s{_barEndOffset = a})
6870+barEndOffSet :: Lens' BooksAnnotationsRange (Maybe Text)
6871+barEndOffSet
6872+ = lens _barEndOffSet (\ s a -> s{_barEndOffSet = a})
68706873
68716874-- | The ending position for the range.
68726875barEndPosition :: Lens' BooksAnnotationsRange (Maybe Text)
@@ -6893,8 +6896,8 @@ instance ToJSON BooksAnnotationsRange where
68936896 toJSON BooksAnnotationsRange{..}
68946897 = object
68956898 (catMaybes
6896− [("startOffset" .=) <$> _barStartOffset,
6897− ("endOffset" .=) <$> _barEndOffset,
6899+ [("startOffset" .=) <$> _barStartOffSet,
6900+ ("endOffset" .=) <$> _barEndOffSet,
68986901 ("endPosition" .=) <$> _barEndPosition,
68996902 ("startPosition" .=) <$> _barStartPosition])
69006903
gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/List.hs+18−18
@@ -33,14 +33,14 @@ module Network.Google.Resource.Books.Layers.VolumeAnnotations.List
3333 , LayersVolumeAnnotationsList
3434
3535 -- * Request Lenses
36− , lvalStartOffset
36+ , lvalStartOffSet
3737 , lvalLocale
3838 , lvalContentVersion
3939 , lvalShowDeleted
4040 , lvalVolumeAnnotationsVersion
4141 , lvalUpdatedMax
4242 , lvalUpdatedMin
43− , lvalEndOffset
43+ , lvalEndOffSet
4444 , lvalVolumeId
4545 , lvalSource
4646 , lvalPageToken
@@ -80,14 +80,14 @@ type LayersVolumeAnnotationsListResource =
8080--
8181-- /See:/ 'layersVolumeAnnotationsList' smart constructor.
8282data LayersVolumeAnnotationsList = LayersVolumeAnnotationsList
83− { _lvalStartOffset :: !(Maybe Text)
83+ { _lvalStartOffSet :: !(Maybe Text)
8484 , _lvalLocale :: !(Maybe Text)
8585 , _lvalContentVersion :: !Text
8686 , _lvalShowDeleted :: !(Maybe Bool)
8787 , _lvalVolumeAnnotationsVersion :: !(Maybe Text)
8888 , _lvalUpdatedMax :: !(Maybe Text)
8989 , _lvalUpdatedMin :: !(Maybe Text)
90− , _lvalEndOffset :: !(Maybe Text)
90+ , _lvalEndOffSet :: !(Maybe Text)
9191 , _lvalVolumeId :: !Text
9292 , _lvalSource :: !(Maybe Text)
9393 , _lvalPageToken :: !(Maybe Text)
@@ -101,7 +101,7 @@ data LayersVolumeAnnotationsList = LayersVolumeAnnotationsList
101101--
102102-- Use one of the following lenses to modify other fields as desired:
103103--
104−-- * 'lvalStartOffset'
104+-- * 'lvalStartOffSet'
105105--
106106-- * 'lvalLocale'
107107--
@@ -115,7 +115,7 @@ data LayersVolumeAnnotationsList = LayersVolumeAnnotationsList
115115--
116116-- * 'lvalUpdatedMin'
117117--
118−-- * 'lvalEndOffset'
118+-- * 'lvalEndOffSet'
119119--
120120-- * 'lvalVolumeId'
121121--
@@ -137,14 +137,14 @@ layersVolumeAnnotationsList
137137 -> LayersVolumeAnnotationsList
138138layersVolumeAnnotationsList pLvalContentVersion_ pLvalVolumeId_ pLvalLayerId_ =
139139 LayersVolumeAnnotationsList
140− { _lvalStartOffset = Nothing
140+ { _lvalStartOffSet = Nothing
141141 , _lvalLocale = Nothing
142142 , _lvalContentVersion = pLvalContentVersion_
143143 , _lvalShowDeleted = Nothing
144144 , _lvalVolumeAnnotationsVersion = Nothing
145145 , _lvalUpdatedMax = Nothing
146146 , _lvalUpdatedMin = Nothing
147− , _lvalEndOffset = Nothing
147+ , _lvalEndOffSet = Nothing
148148 , _lvalVolumeId = pLvalVolumeId_
149149 , _lvalSource = Nothing
150150 , _lvalPageToken = Nothing
@@ -155,10 +155,10 @@ layersVolumeAnnotationsList pLvalContentVersion_ pLvalVolumeId_ pLvalLayerId_ =
155155 }
156156
157157-- | The start offset to start retrieving data from.
158−lvalStartOffset :: Lens' LayersVolumeAnnotationsList (Maybe Text)
159−lvalStartOffset
160− = lens _lvalStartOffset
161− (\ s a -> s{_lvalStartOffset = a})
158+lvalStartOffSet :: Lens' LayersVolumeAnnotationsList (Maybe Text)
159+lvalStartOffSet
160+ = lens _lvalStartOffSet
161+ (\ s a -> s{_lvalStartOffSet = a})
162162
163163-- | The locale information for the data. ISO-639-1 language and ISO-3166-1
164164-- country code. Ex: \'en_US\'.
@@ -200,10 +200,10 @@ lvalUpdatedMin
200200 (\ s a -> s{_lvalUpdatedMin = a})
201201
202202-- | The end offset to end retrieving data from.
203−lvalEndOffset :: Lens' LayersVolumeAnnotationsList (Maybe Text)
204−lvalEndOffset
205− = lens _lvalEndOffset
206− (\ s a -> s{_lvalEndOffset = a})
203+lvalEndOffSet :: Lens' LayersVolumeAnnotationsList (Maybe Text)
204+lvalEndOffSet
205+ = lens _lvalEndOffSet
206+ (\ s a -> s{_lvalEndOffSet = a})
207207
208208-- | The volume to retrieve annotations for.
209209lvalVolumeId :: Lens' LayersVolumeAnnotationsList Text
@@ -251,13 +251,13 @@ instance GoogleRequest LayersVolumeAnnotationsList
251251 requestClient LayersVolumeAnnotationsList{..}
252252 = go _lvalVolumeId _lvalLayerId
253253 (Just _lvalContentVersion)
254− _lvalStartOffset
254+ _lvalStartOffSet
255255 _lvalLocale
256256 _lvalShowDeleted
257257 _lvalVolumeAnnotationsVersion
258258 _lvalUpdatedMax
259259 _lvalUpdatedMin
260− _lvalEndOffset
260+ _lvalEndOffSet
261261 _lvalSource
262262 _lvalPageToken
263263 _lvalEndPosition
gogol-books/gen/Network/Google/Resource/Books/MyConfig/GetUserSettings.hs+2−2
@@ -42,7 +42,7 @@ import Network.Google.Prelude
4242type MyConfigGetUserSettingsResource =
4343 "myconfig" :>
4444 "getUserSettings" :>
45− QueryParam "alt" AltJSON :> Get '[JSON] Usersettings
45+ QueryParam "alt" AltJSON :> Get '[JSON] UserSettings
4646
4747-- | Gets the current settings for the user.
4848--
@@ -58,7 +58,7 @@ myConfigGetUserSettings
5858myConfigGetUserSettings = MyConfigGetUserSettings
5959
6060instance GoogleRequest MyConfigGetUserSettings where
61− type Rs MyConfigGetUserSettings = Usersettings
61+ type Rs MyConfigGetUserSettings = UserSettings
6262 requestClient MyConfigGetUserSettings{}
6363 = go (Just AltJSON) booksService
6464 where go
gogol-books/gen/Network/Google/Resource/Books/MyConfig/UpdateUserSettings.hs+6−6
@@ -47,8 +47,8 @@ type MyConfigUpdateUserSettingsResource =
4747 "myconfig" :>
4848 "updateUserSettings" :>
4949 QueryParam "alt" AltJSON :>
50− ReqBody '[JSON] Usersettings :>
51− Post '[JSON] Usersettings
50+ ReqBody '[JSON] UserSettings :>
51+ Post '[JSON] UserSettings
5252
5353-- | Sets the settings for the user. If a sub-object is specified, it will
5454-- overwrite the existing sub-object stored in the server. Unspecified
@@ -56,7 +56,7 @@ type MyConfigUpdateUserSettingsResource =
5656--
5757-- /See:/ 'myConfigUpdateUserSettings' smart constructor.
5858newtype MyConfigUpdateUserSettings = MyConfigUpdateUserSettings
59− { _mcuusPayload :: Usersettings
59+ { _mcuusPayload :: UserSettings
6060 } deriving (Eq,Show,Data,Typeable,Generic)
6161
6262-- | Creates a value of 'MyConfigUpdateUserSettings' with the minimum fields required to make a request.
@@ -65,7 +65,7 @@ newtype MyConfigUpdateUserSettings = MyConfigUpdateUserSettings
6565--
6666-- * 'mcuusPayload'
6767myConfigUpdateUserSettings
68− :: Usersettings -- ^ 'mcuusPayload'
68+ :: UserSettings -- ^ 'mcuusPayload'
6969 -> MyConfigUpdateUserSettings
7070myConfigUpdateUserSettings pMcuusPayload_ =
7171 MyConfigUpdateUserSettings
@@ -73,13 +73,13 @@ myConfigUpdateUserSettings pMcuusPayload_ =
7373 }
7474
7575-- | Multipart request metadata.
76−mcuusPayload :: Lens' MyConfigUpdateUserSettings Usersettings
76+mcuusPayload :: Lens' MyConfigUpdateUserSettings UserSettings
7777mcuusPayload
7878 = lens _mcuusPayload (\ s a -> s{_mcuusPayload = a})
7979
8080instance GoogleRequest MyConfigUpdateUserSettings
8181 where
82− type Rs MyConfigUpdateUserSettings = Usersettings
82+ type Rs MyConfigUpdateUserSettings = UserSettings
8383 requestClient MyConfigUpdateUserSettings{..}
8484 = go (Just AltJSON) _mcuusPayload booksService
8585 where go
gogol-dataflow/gen/Network/Google/Dataflow.hs+2−2
@@ -193,7 +193,7 @@ module Network.Google.Dataflow
193193 -- ** Environment
194194 , Environment
195195 , environment
196− , eDataset
196+ , eDataSet
197197 , eExperiments
198198 , eWorkerPools
199199 , eClusterManagerAPIService
@@ -724,7 +724,7 @@ module Network.Google.Dataflow
724724 -- ** Position
725725 , Position
726726 , position
727− , pByteOffset
727+ , pByteOffSet
728728 , pConcatPosition
729729 , pRecordIndex
730730 , pShufflePosition
gogol-dataflow/gen/Network/Google/Dataflow/Types.hs+2−2
@@ -163,7 +163,7 @@ module Network.Google.Dataflow.Types
163163 -- * Environment
164164 , Environment
165165 , environment
166− , eDataset
166+ , eDataSet
167167 , eExperiments
168168 , eWorkerPools
169169 , eClusterManagerAPIService
@@ -694,7 +694,7 @@ module Network.Google.Dataflow.Types
694694 -- * Position
695695 , Position
696696 , position
697− , pByteOffset
697+ , pByteOffSet
698698 , pConcatPosition
699699 , pRecordIndex
700700 , pShufflePosition
gogol-dataflow/gen/Network/Google/Dataflow/Types/Product.hs+13−13
@@ -1292,7 +1292,7 @@ instance ToJSON SourceGetMetadataResponse where
12921292--
12931293-- /See:/ 'environment' smart constructor.
12941294data Environment = Environment
1295− { _eDataset :: !(Maybe Text)
1295+ { _eDataSet :: !(Maybe Text)
12961296 , _eExperiments :: !(Maybe [Text])
12971297 , _eWorkerPools :: !(Maybe [WorkerPool])
12981298 , _eClusterManagerAPIService :: !(Maybe Text)
@@ -1307,7 +1307,7 @@ data Environment = Environment
13071307--
13081308-- Use one of the following lenses to modify other fields as desired:
13091309--
1310−-- * 'eDataset'
1310+-- * 'eDataSet'
13111311--
13121312-- * 'eExperiments'
13131313--
@@ -1328,7 +1328,7 @@ environment
13281328 :: Environment
13291329environment =
13301330 Environment
1331− { _eDataset = Nothing
1331+ { _eDataSet = Nothing
13321332 , _eExperiments = Nothing
13331333 , _eWorkerPools = Nothing
13341334 , _eClusterManagerAPIService = Nothing
@@ -1342,8 +1342,8 @@ environment =
13421342-- | The dataset for the current project where various workflow related
13431343-- tables are stored. The supported resource type is: Google BigQuery:
13441344-- bigquery.googleapis.com\/{dataset}
1345−eDataset :: Lens' Environment (Maybe Text)
1346−eDataset = lens _eDataset (\ s a -> s{_eDataset = a})
1345+eDataSet :: Lens' Environment (Maybe Text)
1346+eDataSet = lens _eDataSet (\ s a -> s{_eDataSet = a})
13471347
13481348-- | The list of experiments to enable.
13491349eExperiments :: Lens' Environment [Text]
@@ -1426,7 +1426,7 @@ instance ToJSON Environment where
14261426 toJSON Environment{..}
14271427 = object
14281428 (catMaybes
1429− [("dataset" .=) <$> _eDataset,
1429+ [("dataset" .=) <$> _eDataSet,
14301430 ("experiments" .=) <$> _eExperiments,
14311431 ("workerPools" .=) <$> _eWorkerPools,
14321432 ("clusterManagerApiService" .=) <$>
@@ -6105,7 +6105,7 @@ instance ToJSON LeaseWorkItemResponse where
61056105--
61066106-- /See:/ 'position' smart constructor.
61076107data Position = Position
6108− { _pByteOffset :: !(Maybe Int64)
6108+ { _pByteOffSet :: !(Maybe Int64)
61096109 , _pConcatPosition :: !(Maybe ConcatPosition)
61106110 , _pRecordIndex :: !(Maybe Int64)
61116111 , _pShufflePosition :: !(Maybe Text)
@@ -6117,7 +6117,7 @@ data Position = Position
61176117--
61186118-- Use one of the following lenses to modify other fields as desired:
61196119--
6120−-- * 'pByteOffset'
6120+-- * 'pByteOffSet'
61216121--
61226122-- * 'pConcatPosition'
61236123--
@@ -6132,7 +6132,7 @@ position
61326132 :: Position
61336133position =
61346134 Position
6135− { _pByteOffset = Nothing
6135+ { _pByteOffSet = Nothing
61366136 , _pConcatPosition = Nothing
61376137 , _pRecordIndex = Nothing
61386138 , _pShufflePosition = Nothing
@@ -6141,9 +6141,9 @@ position =
61416141 }
61426142
61436143-- | Position is a byte offset.
6144−pByteOffset :: Lens' Position (Maybe Int64)
6145−pByteOffset
6146− = lens _pByteOffset (\ s a -> s{_pByteOffset = a})
6144+pByteOffSet :: Lens' Position (Maybe Int64)
6145+pByteOffSet
6146+ = lens _pByteOffSet (\ s a -> s{_pByteOffSet = a})
61476147
61486148-- | CloudPosition is a concat position.
61496149pConcatPosition :: Lens' Position (Maybe ConcatPosition)
@@ -6187,7 +6187,7 @@ instance ToJSON Position where
61876187 toJSON Position{..}
61886188 = object
61896189 (catMaybes
6190− [("byteOffset" .=) <$> _pByteOffset,
6190+ [("byteOffset" .=) <$> _pByteOffSet,
61916191 ("concatPosition" .=) <$> _pConcatPosition,
61926192 ("recordIndex" .=) <$> _pRecordIndex,
61936193 ("shufflePosition" .=) <$> _pShufflePosition,
gogol-datastore/gen/Network/Google/Datastore.hs+20−20
@@ -27,22 +27,22 @@ module Network.Google.Datastore
2727 -- * Resources
2828
2929 -- ** datastore.datasets.allocateIds
30− , module Network.Google.Resource.Datastore.Datasets.AllocateIds
30+ , module Network.Google.Resource.Datastore.DataSets.AllocateIds
3131
3232 -- ** datastore.datasets.beginTransaction
33− , module Network.Google.Resource.Datastore.Datasets.BeginTransaction
33+ , module Network.Google.Resource.Datastore.DataSets.BeginTransaction
3434
3535 -- ** datastore.datasets.commit
36− , module Network.Google.Resource.Datastore.Datasets.Commit
36+ , module Network.Google.Resource.Datastore.DataSets.Commit
3737
3838 -- ** datastore.datasets.lookup
39− , module Network.Google.Resource.Datastore.Datasets.Lookup
39+ , module Network.Google.Resource.Datastore.DataSets.Lookup
4040
4141 -- ** datastore.datasets.rollback
42− , module Network.Google.Resource.Datastore.Datasets.Rollback
42+ , module Network.Google.Resource.Datastore.DataSets.Rollback
4343
4444 -- ** datastore.datasets.runQuery
45− , module Network.Google.Resource.Datastore.Datasets.RunQuery
45+ , module Network.Google.Resource.Datastore.DataSets.RunQuery
4646
4747 -- * Types
4848
@@ -74,7 +74,7 @@ module Network.Google.Datastore
7474 , PartitionId
7575 , partitionId
7676 , piNamespace
77− , piDatasetId
77+ , piDataSetId
7878
7979 -- ** QueryResultBatch
8080 , QueryResultBatch
@@ -235,7 +235,7 @@ module Network.Google.Datastore
235235 , query
236236 , qGroupBy
237237 , qStartCursor
238− , qOffset
238+ , qOffSet
239239 , qEndCursor
240240 , qLimit
241241 , qProjection
@@ -322,12 +322,12 @@ module Network.Google.Datastore
322322
323323import Network.Google.Datastore.Types
324324import Network.Google.Prelude
325−import Network.Google.Resource.Datastore.Datasets.AllocateIds
326−import Network.Google.Resource.Datastore.Datasets.BeginTransaction
327−import Network.Google.Resource.Datastore.Datasets.Commit
328−import Network.Google.Resource.Datastore.Datasets.Lookup
329−import Network.Google.Resource.Datastore.Datasets.Rollback
330−import Network.Google.Resource.Datastore.Datasets.RunQuery
325+import Network.Google.Resource.Datastore.DataSets.AllocateIds
326+import Network.Google.Resource.Datastore.DataSets.BeginTransaction
327+import Network.Google.Resource.Datastore.DataSets.Commit
328+import Network.Google.Resource.Datastore.DataSets.Lookup
329+import Network.Google.Resource.Datastore.DataSets.Rollback
330+import Network.Google.Resource.Datastore.DataSets.RunQuery
331331
332332{- $resources
333333TODO
@@ -335,9 +335,9 @@ TODO
335335
336336-- | Represents the entirety of the methods and resources available for the Google Cloud Datastore API service.
337337type DatastoreAPI =
338− DatasetsBeginTransactionResource :<|>
339− DatasetsAllocateIdsResource
340− :<|> DatasetsRunQueryResource
341− :<|> DatasetsRollbackResource
342− :<|> DatasetsLookupResource
343− :<|> DatasetsCommitResource
338+ DataSetsBeginTransactionResource :<|>
339+ DataSetsAllocateIdsResource
340+ :<|> DataSetsRunQueryResource
341+ :<|> DataSetsRollbackResource
342+ :<|> DataSetsLookupResource
343+ :<|> DataSetsCommitResource
gogol-datastore/gen/Network/Google/Datastore/Types.hs+2−2
@@ -51,7 +51,7 @@ module Network.Google.Datastore.Types
5151 , PartitionId
5252 , partitionId
5353 , piNamespace
54− , piDatasetId
54+ , piDataSetId
5555
5656 -- * QueryResultBatch
5757 , QueryResultBatch
@@ -212,7 +212,7 @@ module Network.Google.Datastore.Types
212212 , query
213213 , qGroupBy
214214 , qStartCursor
215− , qOffset
215+ , qOffSet
216216 , qEndCursor
217217 , qLimit
218218 , qProjection
gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+13−13
@@ -233,7 +233,7 @@ instance ToJSON Property where
233233-- /See:/ 'partitionId' smart constructor.
234234data PartitionId = PartitionId
235235 { _piNamespace :: !(Maybe Text)
236− , _piDatasetId :: !(Maybe Text)
236+ , _piDataSetId :: !(Maybe Text)
237237 } deriving (Eq,Show,Data,Typeable,Generic)
238238
239239-- | Creates a value of 'PartitionId' with the minimum fields required to make a request.
@@ -242,13 +242,13 @@ data PartitionId = PartitionId
242242--
243243-- * 'piNamespace'
244244--
245−-- * 'piDatasetId'
245+-- * 'piDataSetId'
246246partitionId
247247 :: PartitionId
248248partitionId =
249249 PartitionId
250250 { _piNamespace = Nothing
251− , _piDatasetId = Nothing
251+ , _piDataSetId = Nothing
252252 }
253253
254254-- | The namespace.
@@ -257,9 +257,9 @@ piNamespace
257257 = lens _piNamespace (\ s a -> s{_piNamespace = a})
258258
259259-- | The dataset ID.
260−piDatasetId :: Lens' PartitionId (Maybe Text)
261−piDatasetId
262− = lens _piDatasetId (\ s a -> s{_piDatasetId = a})
260+piDataSetId :: Lens' PartitionId (Maybe Text)
261+piDataSetId
262+ = lens _piDataSetId (\ s a -> s{_piDataSetId = a})
263263
264264instance FromJSON PartitionId where
265265 parseJSON
@@ -273,7 +273,7 @@ instance ToJSON PartitionId where
273273 = object
274274 (catMaybes
275275 [("namespace" .=) <$> _piNamespace,
276− ("datasetId" .=) <$> _piDatasetId])
276+ ("datasetId" .=) <$> _piDataSetId])
277277
278278-- | A batch of results produced by a query.
279279--
@@ -1505,7 +1505,7 @@ instance ToJSON PropertyFilter where
15051505data Query = Query
15061506 { _qGroupBy :: !(Maybe [PropertyReference])
15071507 , _qStartCursor :: !(Maybe Word8)
1508− , _qOffset :: !(Maybe Int32)
1508+ , _qOffSet :: !(Maybe Int32)
15091509 , _qEndCursor :: !(Maybe Word8)
15101510 , _qLimit :: !(Maybe Int32)
15111511 , _qProjection :: !(Maybe [PropertyExpression])
@@ -1522,7 +1522,7 @@ data Query = Query
15221522--
15231523-- * 'qStartCursor'
15241524--
1525−-- * 'qOffset'
1525+-- * 'qOffSet'
15261526--
15271527-- * 'qEndCursor'
15281528--
@@ -1541,7 +1541,7 @@ query =
15411541 Query
15421542 { _qGroupBy = Nothing
15431543 , _qStartCursor = Nothing
1544− , _qOffset = Nothing
1544+ , _qOffSet = Nothing
15451545 , _qEndCursor = Nothing
15461546 , _qLimit = Nothing
15471547 , _qProjection = Nothing
@@ -1566,8 +1566,8 @@ qStartCursor
15661566
15671567-- | The number of results to skip. Applies before limit, but after all other
15681568-- constraints (optional, defaults to 0).
1569−qOffset :: Lens' Query (Maybe Int32)
1570−qOffset = lens _qOffset (\ s a -> s{_qOffset = a})
1569+qOffSet :: Lens' Query (Maybe Int32)
1570+qOffSet = lens _qOffSet (\ s a -> s{_qOffSet = a})
15711571
15721572-- | An ending point for the query results. Optional. Query cursors are
15731573-- returned in query result batches.
@@ -1625,7 +1625,7 @@ instance ToJSON Query where
16251625 (catMaybes
16261626 [("groupBy" .=) <$> _qGroupBy,
16271627 ("startCursor" .=) <$> _qStartCursor,
1628− ("offset" .=) <$> _qOffset,
1628+ ("offset" .=) <$> _qOffSet,
16291629 ("endCursor" .=) <$> _qEndCursor,
16301630 ("limit" .=) <$> _qLimit,
16311631 ("projection" .=) <$> _qProjection,
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/AllocateIds.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/AllocateIds.hsrenamed+36−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.AllocateIds
16+-- Module : Network.Google.Resource.Datastore.DataSets.AllocateIds
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -24,26 +24,26 @@
2424-- before it is inserted).
2525--
2626-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.allocateIds@.
27−module Network.Google.Resource.Datastore.Datasets.AllocateIds
27+module Network.Google.Resource.Datastore.DataSets.AllocateIds
2828 (
2929 -- * REST Resource
30− DatasetsAllocateIdsResource
30+ DataSetsAllocateIdsResource
3131
3232 -- * Creating a Request
33− , datasetsAllocateIds
34− , DatasetsAllocateIds
33+ , dataSetsAllocateIds
34+ , DataSetsAllocateIds
3535
3636 -- * Request Lenses
37− , daiPayload
38− , daiDatasetId
37+ , dsaiPayload
38+ , dsaiDataSetId
3939 ) where
4040
4141import Network.Google.Datastore.Types
4242import Network.Google.Prelude
4343
4444-- | A resource alias for @datastore.datasets.allocateIds@ method which the
45−-- 'DatasetsAllocateIds' request conforms to.
46−type DatasetsAllocateIdsResource =
45+-- 'DataSetsAllocateIds' request conforms to.
46+type DataSetsAllocateIdsResource =
4747 Capture "datasetId" Text :>
4848 "allocateIds" :>
4949 QueryParam "alt" AltJSON :>
@@ -53,45 +53,46 @@ type DatasetsAllocateIdsResource =
5353-- | Allocate IDs for incomplete keys (useful for referencing an entity
5454-- before it is inserted).
5555--
56−-- /See:/ 'datasetsAllocateIds' smart constructor.
57−data DatasetsAllocateIds = DatasetsAllocateIds
58− { _daiPayload :: !AllocateIdsRequest
59− , _daiDatasetId :: !Text
56+-- /See:/ 'dataSetsAllocateIds' smart constructor.
57+data DataSetsAllocateIds = DataSetsAllocateIds
58+ { _dsaiPayload :: !AllocateIdsRequest
59+ , _dsaiDataSetId :: !Text
6060 } deriving (Eq,Show,Data,Typeable,Generic)
6161
62−-- | Creates a value of 'DatasetsAllocateIds' with the minimum fields required to make a request.
62+-- | Creates a value of 'DataSetsAllocateIds' with the minimum fields required to make a request.
6363--
6464-- Use one of the following lenses to modify other fields as desired:
6565--
66−-- * 'daiPayload'
66+-- * 'dsaiPayload'
6767--
68−-- * 'daiDatasetId'
69−datasetsAllocateIds
70− :: AllocateIdsRequest -- ^ 'daiPayload'
71− -> Text -- ^ 'daiDatasetId'
72− -> DatasetsAllocateIds
73−datasetsAllocateIds pDaiPayload_ pDaiDatasetId_ =
74− DatasetsAllocateIds
75− { _daiPayload = pDaiPayload_
76− , _daiDatasetId = pDaiDatasetId_
68+-- * 'dsaiDataSetId'
69+dataSetsAllocateIds
70+ :: AllocateIdsRequest -- ^ 'dsaiPayload'
71+ -> Text -- ^ 'dsaiDataSetId'
72+ -> DataSetsAllocateIds
73+dataSetsAllocateIds pDsaiPayload_ pDsaiDataSetId_ =
74+ DataSetsAllocateIds
75+ { _dsaiPayload = pDsaiPayload_
76+ , _dsaiDataSetId = pDsaiDataSetId_
7777 }
7878
7979-- | Multipart request metadata.
80−daiPayload :: Lens' DatasetsAllocateIds AllocateIdsRequest
81−daiPayload
82− = lens _daiPayload (\ s a -> s{_daiPayload = a})
80+dsaiPayload :: Lens' DataSetsAllocateIds AllocateIdsRequest
81+dsaiPayload
82+ = lens _dsaiPayload (\ s a -> s{_dsaiPayload = a})
8383
8484-- | Identifies the dataset.
85−daiDatasetId :: Lens' DatasetsAllocateIds Text
86−daiDatasetId
87− = lens _daiDatasetId (\ s a -> s{_daiDatasetId = a})
85+dsaiDataSetId :: Lens' DataSetsAllocateIds Text
86+dsaiDataSetId
87+ = lens _dsaiDataSetId
88+ (\ s a -> s{_dsaiDataSetId = a})
8889
89−instance GoogleRequest DatasetsAllocateIds where
90− type Rs DatasetsAllocateIds = AllocateIdsResponse
91− requestClient DatasetsAllocateIds{..}
92− = go _daiDatasetId (Just AltJSON) _daiPayload
90+instance GoogleRequest DataSetsAllocateIds where
91+ type Rs DataSetsAllocateIds = AllocateIdsResponse
92+ requestClient DataSetsAllocateIds{..}
93+ = go _dsaiDataSetId (Just AltJSON) _dsaiPayload
9394 datastoreService
9495 where go
9596 = buildClient
96− (Proxy :: Proxy DatasetsAllocateIdsResource)
97+ (Proxy :: Proxy DataSetsAllocateIdsResource)
9798 mempty
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/BeginTransaction.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/BeginTransaction.hsrenamed+36−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.BeginTransaction
16+-- Module : Network.Google.Resource.Datastore.DataSets.BeginTransaction
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,26 +23,26 @@
2323-- Begin a new transaction.
2424--
2525-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.beginTransaction@.
26−module Network.Google.Resource.Datastore.Datasets.BeginTransaction
26+module Network.Google.Resource.Datastore.DataSets.BeginTransaction
2727 (
2828 -- * REST Resource
29− DatasetsBeginTransactionResource
29+ DataSetsBeginTransactionResource
3030
3131 -- * Creating a Request
32− , datasetsBeginTransaction
33− , DatasetsBeginTransaction
32+ , dataSetsBeginTransaction
33+ , DataSetsBeginTransaction
3434
3535 -- * Request Lenses
36− , dbtPayload
37− , dbtDatasetId
36+ , dsbtPayload
37+ , dsbtDataSetId
3838 ) where
3939
4040import Network.Google.Datastore.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @datastore.datasets.beginTransaction@ method which the
44−-- 'DatasetsBeginTransaction' request conforms to.
45−type DatasetsBeginTransactionResource =
44+-- 'DataSetsBeginTransaction' request conforms to.
45+type DataSetsBeginTransactionResource =
4646 Capture "datasetId" Text :>
4747 "beginTransaction" :>
4848 QueryParam "alt" AltJSON :>
@@ -51,46 +51,47 @@ type DatasetsBeginTransactionResource =
5151
5252-- | Begin a new transaction.
5353--
54−-- /See:/ 'datasetsBeginTransaction' smart constructor.
55−data DatasetsBeginTransaction = DatasetsBeginTransaction
56− { _dbtPayload :: !BeginTransactionRequest
57− , _dbtDatasetId :: !Text
54+-- /See:/ 'dataSetsBeginTransaction' smart constructor.
55+data DataSetsBeginTransaction = DataSetsBeginTransaction
56+ { _dsbtPayload :: !BeginTransactionRequest
57+ , _dsbtDataSetId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsBeginTransaction' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsBeginTransaction' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'dbtPayload'
64+-- * 'dsbtPayload'
6565--
66−-- * 'dbtDatasetId'
67−datasetsBeginTransaction
68− :: BeginTransactionRequest -- ^ 'dbtPayload'
69− -> Text -- ^ 'dbtDatasetId'
70− -> DatasetsBeginTransaction
71−datasetsBeginTransaction pDbtPayload_ pDbtDatasetId_ =
72− DatasetsBeginTransaction
73− { _dbtPayload = pDbtPayload_
74− , _dbtDatasetId = pDbtDatasetId_
66+-- * 'dsbtDataSetId'
67+dataSetsBeginTransaction
68+ :: BeginTransactionRequest -- ^ 'dsbtPayload'
69+ -> Text -- ^ 'dsbtDataSetId'
70+ -> DataSetsBeginTransaction
71+dataSetsBeginTransaction pDsbtPayload_ pDsbtDataSetId_ =
72+ DataSetsBeginTransaction
73+ { _dsbtPayload = pDsbtPayload_
74+ , _dsbtDataSetId = pDsbtDataSetId_
7575 }
7676
7777-- | Multipart request metadata.
78−dbtPayload :: Lens' DatasetsBeginTransaction BeginTransactionRequest
79−dbtPayload
80− = lens _dbtPayload (\ s a -> s{_dbtPayload = a})
78+dsbtPayload :: Lens' DataSetsBeginTransaction BeginTransactionRequest
79+dsbtPayload
80+ = lens _dsbtPayload (\ s a -> s{_dsbtPayload = a})
8181
8282-- | Identifies the dataset.
83−dbtDatasetId :: Lens' DatasetsBeginTransaction Text
84−dbtDatasetId
85− = lens _dbtDatasetId (\ s a -> s{_dbtDatasetId = a})
83+dsbtDataSetId :: Lens' DataSetsBeginTransaction Text
84+dsbtDataSetId
85+ = lens _dsbtDataSetId
86+ (\ s a -> s{_dsbtDataSetId = a})
8687
87−instance GoogleRequest DatasetsBeginTransaction where
88− type Rs DatasetsBeginTransaction =
88+instance GoogleRequest DataSetsBeginTransaction where
89+ type Rs DataSetsBeginTransaction =
8990 BeginTransactionResponse
90− requestClient DatasetsBeginTransaction{..}
91− = go _dbtDatasetId (Just AltJSON) _dbtPayload
91+ requestClient DataSetsBeginTransaction{..}
92+ = go _dsbtDataSetId (Just AltJSON) _dsbtPayload
9293 datastoreService
9394 where go
9495 = buildClient
95− (Proxy :: Proxy DatasetsBeginTransactionResource)
96+ (Proxy :: Proxy DataSetsBeginTransactionResource)
9697 mempty
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Commit.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Commit.hsrenamed+35−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.Commit
16+-- Module : Network.Google.Resource.Datastore.DataSets.Commit
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -24,26 +24,26 @@
2424-- entities.
2525--
2626-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.commit@.
27−module Network.Google.Resource.Datastore.Datasets.Commit
27+module Network.Google.Resource.Datastore.DataSets.Commit
2828 (
2929 -- * REST Resource
30− DatasetsCommitResource
30+ DataSetsCommitResource
3131
3232 -- * Creating a Request
33− , datasetsCommit
34− , DatasetsCommit
33+ , dataSetsCommit
34+ , DataSetsCommit
3535
3636 -- * Request Lenses
37− , dcPayload
38− , dcDatasetId
37+ , dscPayload
38+ , dscDataSetId
3939 ) where
4040
4141import Network.Google.Datastore.Types
4242import Network.Google.Prelude
4343
4444-- | A resource alias for @datastore.datasets.commit@ method which the
45−-- 'DatasetsCommit' request conforms to.
46−type DatasetsCommitResource =
45+-- 'DataSetsCommit' request conforms to.
46+type DataSetsCommitResource =
4747 Capture "datasetId" Text :>
4848 "commit" :>
4949 QueryParam "alt" AltJSON :>
@@ -53,44 +53,44 @@ type DatasetsCommitResource =
5353-- | Commit a transaction, optionally creating, deleting or modifying some
5454-- entities.
5555--
56−-- /See:/ 'datasetsCommit' smart constructor.
57−data DatasetsCommit = DatasetsCommit
58− { _dcPayload :: !CommitRequest
59− , _dcDatasetId :: !Text
56+-- /See:/ 'dataSetsCommit' smart constructor.
57+data DataSetsCommit = DataSetsCommit
58+ { _dscPayload :: !CommitRequest
59+ , _dscDataSetId :: !Text
6060 } deriving (Eq,Show,Data,Typeable,Generic)
6161
62−-- | Creates a value of 'DatasetsCommit' with the minimum fields required to make a request.
62+-- | Creates a value of 'DataSetsCommit' with the minimum fields required to make a request.
6363--
6464-- Use one of the following lenses to modify other fields as desired:
6565--
66−-- * 'dcPayload'
66+-- * 'dscPayload'
6767--
68−-- * 'dcDatasetId'
69−datasetsCommit
70− :: CommitRequest -- ^ 'dcPayload'
71− -> Text -- ^ 'dcDatasetId'
72− -> DatasetsCommit
73−datasetsCommit pDcPayload_ pDcDatasetId_ =
74− DatasetsCommit
75− { _dcPayload = pDcPayload_
76− , _dcDatasetId = pDcDatasetId_
68+-- * 'dscDataSetId'
69+dataSetsCommit
70+ :: CommitRequest -- ^ 'dscPayload'
71+ -> Text -- ^ 'dscDataSetId'
72+ -> DataSetsCommit
73+dataSetsCommit pDscPayload_ pDscDataSetId_ =
74+ DataSetsCommit
75+ { _dscPayload = pDscPayload_
76+ , _dscDataSetId = pDscDataSetId_
7777 }
7878
7979-- | Multipart request metadata.
80−dcPayload :: Lens' DatasetsCommit CommitRequest
81−dcPayload
82− = lens _dcPayload (\ s a -> s{_dcPayload = a})
80+dscPayload :: Lens' DataSetsCommit CommitRequest
81+dscPayload
82+ = lens _dscPayload (\ s a -> s{_dscPayload = a})
8383
8484-- | Identifies the dataset.
85−dcDatasetId :: Lens' DatasetsCommit Text
86−dcDatasetId
87− = lens _dcDatasetId (\ s a -> s{_dcDatasetId = a})
85+dscDataSetId :: Lens' DataSetsCommit Text
86+dscDataSetId
87+ = lens _dscDataSetId (\ s a -> s{_dscDataSetId = a})
8888
89−instance GoogleRequest DatasetsCommit where
90− type Rs DatasetsCommit = CommitResponse
91− requestClient DatasetsCommit{..}
92− = go _dcDatasetId (Just AltJSON) _dcPayload
89+instance GoogleRequest DataSetsCommit where
90+ type Rs DataSetsCommit = CommitResponse
91+ requestClient DataSetsCommit{..}
92+ = go _dscDataSetId (Just AltJSON) _dscPayload
9393 datastoreService
9494 where go
95− = buildClient (Proxy :: Proxy DatasetsCommitResource)
95+ = buildClient (Proxy :: Proxy DataSetsCommitResource)
9696 mempty
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Lookup.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Lookup.hsrenamed+35−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.Lookup
16+-- Module : Network.Google.Resource.Datastore.DataSets.Lookup
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,26 +23,26 @@
2323-- Look up some entities by key.
2424--
2525-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.lookup@.
26−module Network.Google.Resource.Datastore.Datasets.Lookup
26+module Network.Google.Resource.Datastore.DataSets.Lookup
2727 (
2828 -- * REST Resource
29− DatasetsLookupResource
29+ DataSetsLookupResource
3030
3131 -- * Creating a Request
32− , datasetsLookup
33− , DatasetsLookup
32+ , dataSetsLookup
33+ , DataSetsLookup
3434
3535 -- * Request Lenses
36− , dlPayload
37− , dlDatasetId
36+ , dslPayload
37+ , dslDataSetId
3838 ) where
3939
4040import Network.Google.Datastore.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @datastore.datasets.lookup@ method which the
44−-- 'DatasetsLookup' request conforms to.
45−type DatasetsLookupResource =
44+-- 'DataSetsLookup' request conforms to.
45+type DataSetsLookupResource =
4646 Capture "datasetId" Text :>
4747 "lookup" :>
4848 QueryParam "alt" AltJSON :>
@@ -51,44 +51,44 @@ type DatasetsLookupResource =
5151
5252-- | Look up some entities by key.
5353--
54−-- /See:/ 'datasetsLookup' smart constructor.
55−data DatasetsLookup = DatasetsLookup
56− { _dlPayload :: !LookupRequest
57− , _dlDatasetId :: !Text
54+-- /See:/ 'dataSetsLookup' smart constructor.
55+data DataSetsLookup = DataSetsLookup
56+ { _dslPayload :: !LookupRequest
57+ , _dslDataSetId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsLookup' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsLookup' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'dlPayload'
64+-- * 'dslPayload'
6565--
66−-- * 'dlDatasetId'
67−datasetsLookup
68− :: LookupRequest -- ^ 'dlPayload'
69− -> Text -- ^ 'dlDatasetId'
70− -> DatasetsLookup
71−datasetsLookup pDlPayload_ pDlDatasetId_ =
72− DatasetsLookup
73− { _dlPayload = pDlPayload_
74− , _dlDatasetId = pDlDatasetId_
66+-- * 'dslDataSetId'
67+dataSetsLookup
68+ :: LookupRequest -- ^ 'dslPayload'
69+ -> Text -- ^ 'dslDataSetId'
70+ -> DataSetsLookup
71+dataSetsLookup pDslPayload_ pDslDataSetId_ =
72+ DataSetsLookup
73+ { _dslPayload = pDslPayload_
74+ , _dslDataSetId = pDslDataSetId_
7575 }
7676
7777-- | Multipart request metadata.
78−dlPayload :: Lens' DatasetsLookup LookupRequest
79−dlPayload
80− = lens _dlPayload (\ s a -> s{_dlPayload = a})
78+dslPayload :: Lens' DataSetsLookup LookupRequest
79+dslPayload
80+ = lens _dslPayload (\ s a -> s{_dslPayload = a})
8181
8282-- | Identifies the dataset.
83−dlDatasetId :: Lens' DatasetsLookup Text
84−dlDatasetId
85− = lens _dlDatasetId (\ s a -> s{_dlDatasetId = a})
83+dslDataSetId :: Lens' DataSetsLookup Text
84+dslDataSetId
85+ = lens _dslDataSetId (\ s a -> s{_dslDataSetId = a})
8686
87−instance GoogleRequest DatasetsLookup where
88− type Rs DatasetsLookup = LookupResponse
89− requestClient DatasetsLookup{..}
90− = go _dlDatasetId (Just AltJSON) _dlPayload
87+instance GoogleRequest DataSetsLookup where
88+ type Rs DataSetsLookup = LookupResponse
89+ requestClient DataSetsLookup{..}
90+ = go _dslDataSetId (Just AltJSON) _dslPayload
9191 datastoreService
9292 where go
93− = buildClient (Proxy :: Proxy DatasetsLookupResource)
93+ = buildClient (Proxy :: Proxy DataSetsLookupResource)
9494 mempty
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Rollback.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/Rollback.hsrenamed+35−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.Rollback
16+-- Module : Network.Google.Resource.Datastore.DataSets.Rollback
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,26 +23,26 @@
2323-- Roll back a transaction.
2424--
2525-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.rollback@.
26−module Network.Google.Resource.Datastore.Datasets.Rollback
26+module Network.Google.Resource.Datastore.DataSets.Rollback
2727 (
2828 -- * REST Resource
29− DatasetsRollbackResource
29+ DataSetsRollbackResource
3030
3131 -- * Creating a Request
32− , datasetsRollback
33− , DatasetsRollback
32+ , dataSetsRollback
33+ , DataSetsRollback
3434
3535 -- * Request Lenses
36− , drPayload
37− , drDatasetId
36+ , dsrPayload
37+ , dsrDataSetId
3838 ) where
3939
4040import Network.Google.Datastore.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @datastore.datasets.rollback@ method which the
44−-- 'DatasetsRollback' request conforms to.
45−type DatasetsRollbackResource =
44+-- 'DataSetsRollback' request conforms to.
45+type DataSetsRollbackResource =
4646 Capture "datasetId" Text :>
4747 "rollback" :>
4848 QueryParam "alt" AltJSON :>
@@ -51,45 +51,45 @@ type DatasetsRollbackResource =
5151
5252-- | Roll back a transaction.
5353--
54−-- /See:/ 'datasetsRollback' smart constructor.
55−data DatasetsRollback = DatasetsRollback
56− { _drPayload :: !RollbackRequest
57− , _drDatasetId :: !Text
54+-- /See:/ 'dataSetsRollback' smart constructor.
55+data DataSetsRollback = DataSetsRollback
56+ { _dsrPayload :: !RollbackRequest
57+ , _dsrDataSetId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsRollback' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsRollback' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'drPayload'
64+-- * 'dsrPayload'
6565--
66−-- * 'drDatasetId'
67−datasetsRollback
68− :: RollbackRequest -- ^ 'drPayload'
69− -> Text -- ^ 'drDatasetId'
70− -> DatasetsRollback
71−datasetsRollback pDrPayload_ pDrDatasetId_ =
72− DatasetsRollback
73− { _drPayload = pDrPayload_
74− , _drDatasetId = pDrDatasetId_
66+-- * 'dsrDataSetId'
67+dataSetsRollback
68+ :: RollbackRequest -- ^ 'dsrPayload'
69+ -> Text -- ^ 'dsrDataSetId'
70+ -> DataSetsRollback
71+dataSetsRollback pDsrPayload_ pDsrDataSetId_ =
72+ DataSetsRollback
73+ { _dsrPayload = pDsrPayload_
74+ , _dsrDataSetId = pDsrDataSetId_
7575 }
7676
7777-- | Multipart request metadata.
78−drPayload :: Lens' DatasetsRollback RollbackRequest
79−drPayload
80− = lens _drPayload (\ s a -> s{_drPayload = a})
78+dsrPayload :: Lens' DataSetsRollback RollbackRequest
79+dsrPayload
80+ = lens _dsrPayload (\ s a -> s{_dsrPayload = a})
8181
8282-- | Identifies the dataset.
83−drDatasetId :: Lens' DatasetsRollback Text
84−drDatasetId
85− = lens _drDatasetId (\ s a -> s{_drDatasetId = a})
83+dsrDataSetId :: Lens' DataSetsRollback Text
84+dsrDataSetId
85+ = lens _dsrDataSetId (\ s a -> s{_dsrDataSetId = a})
8686
87−instance GoogleRequest DatasetsRollback where
88− type Rs DatasetsRollback = RollbackResponse
89− requestClient DatasetsRollback{..}
90− = go _drDatasetId (Just AltJSON) _drPayload
87+instance GoogleRequest DataSetsRollback where
88+ type Rs DataSetsRollback = RollbackResponse
89+ requestClient DataSetsRollback{..}
90+ = go _dsrDataSetId (Just AltJSON) _dsrPayload
9191 datastoreService
9292 where go
9393 = buildClient
94− (Proxy :: Proxy DatasetsRollbackResource)
94+ (Proxy :: Proxy DataSetsRollbackResource)
9595 mempty
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/RunQuery.hs → gogol-datastore/gen/Network/Google/Resource/Datastore/DataSets/RunQuery.hsrenamed+36−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Datastore.Datasets.RunQuery
16+-- Module : Network.Google.Resource.Datastore.DataSets.RunQuery
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,26 +23,26 @@
2323-- Query for entities.
2424--
2525-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference> for @datastore.datasets.runQuery@.
26−module Network.Google.Resource.Datastore.Datasets.RunQuery
26+module Network.Google.Resource.Datastore.DataSets.RunQuery
2727 (
2828 -- * REST Resource
29− DatasetsRunQueryResource
29+ DataSetsRunQueryResource
3030
3131 -- * Creating a Request
32− , datasetsRunQuery
33− , DatasetsRunQuery
32+ , dataSetsRunQuery
33+ , DataSetsRunQuery
3434
3535 -- * Request Lenses
36− , drqPayload
37− , drqDatasetId
36+ , dsrqPayload
37+ , dsrqDataSetId
3838 ) where
3939
4040import Network.Google.Datastore.Types
4141import Network.Google.Prelude
4242
4343-- | A resource alias for @datastore.datasets.runQuery@ method which the
44−-- 'DatasetsRunQuery' request conforms to.
45−type DatasetsRunQueryResource =
44+-- 'DataSetsRunQuery' request conforms to.
45+type DataSetsRunQueryResource =
4646 Capture "datasetId" Text :>
4747 "runQuery" :>
4848 QueryParam "alt" AltJSON :>
@@ -51,45 +51,46 @@ type DatasetsRunQueryResource =
5151
5252-- | Query for entities.
5353--
54−-- /See:/ 'datasetsRunQuery' smart constructor.
55−data DatasetsRunQuery = DatasetsRunQuery
56− { _drqPayload :: !RunQueryRequest
57− , _drqDatasetId :: !Text
54+-- /See:/ 'dataSetsRunQuery' smart constructor.
55+data DataSetsRunQuery = DataSetsRunQuery
56+ { _dsrqPayload :: !RunQueryRequest
57+ , _dsrqDataSetId :: !Text
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'DatasetsRunQuery' with the minimum fields required to make a request.
60+-- | Creates a value of 'DataSetsRunQuery' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'drqPayload'
64+-- * 'dsrqPayload'
6565--
66−-- * 'drqDatasetId'
67−datasetsRunQuery
68− :: RunQueryRequest -- ^ 'drqPayload'
69− -> Text -- ^ 'drqDatasetId'
70− -> DatasetsRunQuery
71−datasetsRunQuery pDrqPayload_ pDrqDatasetId_ =
72− DatasetsRunQuery
73− { _drqPayload = pDrqPayload_
74− , _drqDatasetId = pDrqDatasetId_
66+-- * 'dsrqDataSetId'
67+dataSetsRunQuery
68+ :: RunQueryRequest -- ^ 'dsrqPayload'
69+ -> Text -- ^ 'dsrqDataSetId'
70+ -> DataSetsRunQuery
71+dataSetsRunQuery pDsrqPayload_ pDsrqDataSetId_ =
72+ DataSetsRunQuery
73+ { _dsrqPayload = pDsrqPayload_
74+ , _dsrqDataSetId = pDsrqDataSetId_
7575 }
7676
7777-- | Multipart request metadata.
78−drqPayload :: Lens' DatasetsRunQuery RunQueryRequest
79−drqPayload
80− = lens _drqPayload (\ s a -> s{_drqPayload = a})
78+dsrqPayload :: Lens' DataSetsRunQuery RunQueryRequest
79+dsrqPayload
80+ = lens _dsrqPayload (\ s a -> s{_dsrqPayload = a})
8181
8282-- | Identifies the dataset.
83−drqDatasetId :: Lens' DatasetsRunQuery Text
84−drqDatasetId
85− = lens _drqDatasetId (\ s a -> s{_drqDatasetId = a})
83+dsrqDataSetId :: Lens' DataSetsRunQuery Text
84+dsrqDataSetId
85+ = lens _dsrqDataSetId
86+ (\ s a -> s{_dsrqDataSetId = a})
8687
87−instance GoogleRequest DatasetsRunQuery where
88− type Rs DatasetsRunQuery = RunQueryResponse
89− requestClient DatasetsRunQuery{..}
90− = go _drqDatasetId (Just AltJSON) _drqPayload
88+instance GoogleRequest DataSetsRunQuery where
89+ type Rs DataSetsRunQuery = RunQueryResponse
90+ requestClient DataSetsRunQuery{..}
91+ = go _dsrqDataSetId (Just AltJSON) _dsrqPayload
9192 datastoreService
9293 where go
9394 = buildClient
94− (Proxy :: Proxy DatasetsRunQueryResource)
95+ (Proxy :: Proxy DataSetsRunQueryResource)
9596 mempty
gogol-datastore/gogol-datastore.cabal+6−6
@@ -35,12 +35,12 @@ library
3535 exposed-modules:
3636 Network.Google.Datastore
3737 , Network.Google.Datastore.Types
38− , Network.Google.Resource.Datastore.Datasets.AllocateIds
39− , Network.Google.Resource.Datastore.Datasets.BeginTransaction
40− , Network.Google.Resource.Datastore.Datasets.Commit
41− , Network.Google.Resource.Datastore.Datasets.Lookup
42− , Network.Google.Resource.Datastore.Datasets.Rollback
43− , Network.Google.Resource.Datastore.Datasets.RunQuery
38+ , Network.Google.Resource.Datastore.DataSets.AllocateIds
39+ , Network.Google.Resource.Datastore.DataSets.BeginTransaction
40+ , Network.Google.Resource.Datastore.DataSets.Commit
41+ , Network.Google.Resource.Datastore.DataSets.Lookup
42+ , Network.Google.Resource.Datastore.DataSets.Rollback
43+ , Network.Google.Resource.Datastore.DataSets.RunQuery
4444
4545 other-modules:
4646 Network.Google.Datastore.Types.Product
gogol-dfareporting/gen/Network/Google/DFAReporting.hs+7−7
@@ -1971,11 +1971,11 @@ module Network.Google.DFAReporting
19711971 -- ** AccountPermissionLevel
19721972 , AccountPermissionLevel (..)
19731973
1974− -- ** OffsetPosition
1975− , OffsetPosition
1976− , offsetPosition
1977− , opLeft
1978− , opTop
1974+ -- ** OffSetPosition
1975+ , OffSetPosition
1976+ , offSetPosition
1977+ , ospLeft
1978+ , ospTop
19791979
19801980 -- ** Metric
19811981 , Metric
@@ -2143,7 +2143,7 @@ module Network.Google.DFAReporting
21432143 -- ** PopupWindowProperties
21442144 , PopupWindowProperties
21452145 , popupWindowProperties
2146− , pwpOffset
2146+ , pwpOffSet
21472147 , pwpDimension
21482148 , pwpShowStatusBar
21492149 , pwpShowMenuBar
@@ -2589,7 +2589,7 @@ module Network.Google.DFAReporting
25892589 , caaPushdownDuration
25902590 , caaSize
25912591 , caaVerticallyLocked
2592− , caaOffset
2592+ , caaOffSet
25932593 , caaStreamingServingURL
25942594 , caaZipFilesize
25952595 , caaTransparency
gogol-dfareporting/gen/Network/Google/DFAReporting/Types.hs+7−7
@@ -1386,11 +1386,11 @@ module Network.Google.DFAReporting.Types
13861386 -- * AccountPermissionLevel
13871387 , AccountPermissionLevel (..)
13881388
1389− -- * OffsetPosition
1390− , OffsetPosition
1391− , offsetPosition
1392− , opLeft
1393− , opTop
1389+ -- * OffSetPosition
1390+ , OffSetPosition
1391+ , offSetPosition
1392+ , ospLeft
1393+ , ospTop
13941394
13951395 -- * Metric
13961396 , Metric
@@ -1558,7 +1558,7 @@ module Network.Google.DFAReporting.Types
15581558 -- * PopupWindowProperties
15591559 , PopupWindowProperties
15601560 , popupWindowProperties
1561− , pwpOffset
1561+ , pwpOffSet
15621562 , pwpDimension
15631563 , pwpShowStatusBar
15641564 , pwpShowMenuBar
@@ -2004,7 +2004,7 @@ module Network.Google.DFAReporting.Types
20042004 , caaPushdownDuration
20052005 , caaSize
20062006 , caaVerticallyLocked
2007− , caaOffset
2007+ , caaOffSet
20082008 , caaStreamingServingURL
20092009 , caaZipFilesize
20102010 , caaTransparency
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Product.hs+39−39
@@ -10955,46 +10955,46 @@ instance ToJSON AccountActiveAdSummary where
1095510955
1095610956-- | Offset Position.
1095710957--
10958−-- /See:/ 'offsetPosition' smart constructor.
10959−data OffsetPosition = OffsetPosition
10960− { _opLeft :: !(Maybe Int32)
10961− , _opTop :: !(Maybe Int32)
10958+-- /See:/ 'offSetPosition' smart constructor.
10959+data OffSetPosition = OffSetPosition
10960+ { _ospLeft :: !(Maybe Int32)
10961+ , _ospTop :: !(Maybe Int32)
1096210962 } deriving (Eq,Show,Data,Typeable,Generic)
1096310963
10964−-- | Creates a value of 'OffsetPosition' with the minimum fields required to make a request.
10964+-- | Creates a value of 'OffSetPosition' with the minimum fields required to make a request.
1096510965--
1096610966-- Use one of the following lenses to modify other fields as desired:
1096710967--
10968−-- * 'opLeft'
10968+-- * 'ospLeft'
1096910969--
10970−-- * 'opTop'
10971−offsetPosition
10972− :: OffsetPosition
10973−offsetPosition =
10974− OffsetPosition
10975− { _opLeft = Nothing
10976− , _opTop = Nothing
10970+-- * 'ospTop'
10971+offSetPosition
10972+ :: OffSetPosition
10973+offSetPosition =
10974+ OffSetPosition
10975+ { _ospLeft = Nothing
10976+ , _ospTop = Nothing
1097710977 }
1097810978
1097910979-- | Offset distance from left side of an asset or a window.
10980−opLeft :: Lens' OffsetPosition (Maybe Int32)
10981−opLeft = lens _opLeft (\ s a -> s{_opLeft = a})
10980+ospLeft :: Lens' OffSetPosition (Maybe Int32)
10981+ospLeft = lens _ospLeft (\ s a -> s{_ospLeft = a})
1098210982
1098310983-- | Offset distance from top side of an asset or a window.
10984−opTop :: Lens' OffsetPosition (Maybe Int32)
10985−opTop = lens _opTop (\ s a -> s{_opTop = a})
10984+ospTop :: Lens' OffSetPosition (Maybe Int32)
10985+ospTop = lens _ospTop (\ s a -> s{_ospTop = a})
1098610986
10987−instance FromJSON OffsetPosition where
10987+instance FromJSON OffSetPosition where
1098810988 parseJSON
10989− = withObject "OffsetPosition"
10989+ = withObject "OffSetPosition"
1099010990 (\ o ->
10991− OffsetPosition <$> (o .:? "left") <*> (o .:? "top"))
10991+ OffSetPosition <$> (o .:? "left") <*> (o .:? "top"))
1099210992
10993−instance ToJSON OffsetPosition where
10994− toJSON OffsetPosition{..}
10993+instance ToJSON OffSetPosition where
10994+ toJSON OffSetPosition{..}
1099510995 = object
1099610996 (catMaybes
10997− [("left" .=) <$> _opLeft, ("top" .=) <$> _opTop])
10997+ [("left" .=) <$> _ospLeft, ("top" .=) <$> _ospTop])
1099810998
1099910999-- | Represents a metric.
1100011000--
@@ -12044,7 +12044,7 @@ instance ToJSON AccountPermissionGroupsListResponse
1204412044--
1204512045-- /See:/ 'popupWindowProperties' smart constructor.
1204612046data PopupWindowProperties = PopupWindowProperties
12047− { _pwpOffset :: !(Maybe OffsetPosition)
12047+ { _pwpOffSet :: !(Maybe OffSetPosition)
1204812048 , _pwpDimension :: !(Maybe Size)
1204912049 , _pwpShowStatusBar :: !(Maybe Bool)
1205012050 , _pwpShowMenuBar :: !(Maybe Bool)
@@ -12059,7 +12059,7 @@ data PopupWindowProperties = PopupWindowProperties
1205912059--
1206012060-- Use one of the following lenses to modify other fields as desired:
1206112061--
12062−-- * 'pwpOffset'
12062+-- * 'pwpOffSet'
1206312063--
1206412064-- * 'pwpDimension'
1206512065--
@@ -12080,7 +12080,7 @@ popupWindowProperties
1208012080 :: PopupWindowProperties
1208112081popupWindowProperties =
1208212082 PopupWindowProperties
12083− { _pwpOffset = Nothing
12083+ { _pwpOffSet = Nothing
1208412084 , _pwpDimension = Nothing
1208512085 , _pwpShowStatusBar = Nothing
1208612086 , _pwpShowMenuBar = Nothing
@@ -12093,9 +12093,9 @@ popupWindowProperties =
1209312093
1209412094-- | Upper-left corner coordinates of the popup window. Applicable if
1209512095-- positionType is COORDINATES.
12096−pwpOffset :: Lens' PopupWindowProperties (Maybe OffsetPosition)
12097−pwpOffset
12098− = lens _pwpOffset (\ s a -> s{_pwpOffset = a})
12096+pwpOffSet :: Lens' PopupWindowProperties (Maybe OffSetPosition)
12097+pwpOffSet
12098+ = lens _pwpOffSet (\ s a -> s{_pwpOffSet = a})
1209912099
1210012100-- | Popup dimension for a creative. This is a read-only field. Applicable to
1210112101-- the following creative types: all RICH_MEDIA and all VPAID
@@ -12161,7 +12161,7 @@ instance ToJSON PopupWindowProperties where
1216112161 toJSON PopupWindowProperties{..}
1216212162 = object
1216312163 (catMaybes
12164− [("offset" .=) <$> _pwpOffset,
12164+ [("offset" .=) <$> _pwpOffSet,
1216512165 ("dimension" .=) <$> _pwpDimension,
1216612166 ("showStatusBar" .=) <$> _pwpShowStatusBar,
1216712167 ("showMenuBar" .=) <$> _pwpShowMenuBar,
@@ -15445,7 +15445,7 @@ data CreativeAsset = CreativeAsset
1544515445 , _caaPushdownDuration :: !(Maybe Float)
1544615446 , _caaSize :: !(Maybe Size)
1544715447 , _caaVerticallyLocked :: !(Maybe Bool)
15448− , _caaOffset :: !(Maybe OffsetPosition)
15448+ , _caaOffSet :: !(Maybe OffSetPosition)
1544915449 , _caaStreamingServingURL :: !(Maybe Text)
1545015450 , _caaZipFilesize :: !(Maybe Text)
1545115451 , _caaTransparency :: !(Maybe Bool)
@@ -15476,7 +15476,7 @@ data CreativeAsset = CreativeAsset
1547615476 , _caaHideFlashObjects :: !(Maybe Bool)
1547715477 , _caaDetectedFeatures :: !(Maybe [CreativeAssetDetectedFeaturesItem])
1547815478 , _caaBackupImageExit :: !(Maybe CreativeCustomEvent)
15479− , _caaPosition :: !(Maybe OffsetPosition)
15479+ , _caaPosition :: !(Maybe OffSetPosition)
1548015480 , _caaHorizontallyLocked :: !(Maybe Bool)
1548115481 } deriving (Eq,Show,Data,Typeable,Generic)
1548215482
@@ -15502,7 +15502,7 @@ data CreativeAsset = CreativeAsset
1550215502--
1550315503-- * 'caaVerticallyLocked'
1550415504--
15505−-- * 'caaOffset'
15505+-- * 'caaOffSet'
1550615506--
1550715507-- * 'caaStreamingServingURL'
1550815508--
@@ -15580,7 +15580,7 @@ creativeAsset =
1558015580 , _caaPushdownDuration = Nothing
1558115581 , _caaSize = Nothing
1558215582 , _caaVerticallyLocked = Nothing
15583− , _caaOffset = Nothing
15583+ , _caaOffSet = Nothing
1558415584 , _caaStreamingServingURL = Nothing
1558515585 , _caaZipFilesize = Nothing
1558615586 , _caaTransparency = Nothing
@@ -15692,9 +15692,9 @@ caaVerticallyLocked
1569215692-- field. Applicable to the following creative types: all RICH_MEDIA and
1569315693-- all VPAID. Additionally, only applicable to assets whose displayType is
1569415694-- ASSET_DISPLAY_TYPE_EXPANDING or ASSET_DISPLAY_TYPE_PEEL_DOWN.
15695−caaOffset :: Lens' CreativeAsset (Maybe OffsetPosition)
15696−caaOffset
15697− = lens _caaOffset (\ s a -> s{_caaOffset = a})
15695+caaOffSet :: Lens' CreativeAsset (Maybe OffSetPosition)
15696+caaOffSet
15697+ = lens _caaOffSet (\ s a -> s{_caaOffSet = a})
1569815698
1569915699-- | Streaming URL for video asset. This is a read-only field. Applicable to
1570015700-- the following creative types: INSTREAM_VIDEO and all VPAID.
@@ -15932,7 +15932,7 @@ caaBackupImageExit
1593215932
1593315933-- | Offset position for an asset. Applicable to the following creative
1593415934-- types: all RICH_MEDIA.
15935−caaPosition :: Lens' CreativeAsset (Maybe OffsetPosition)
15935+caaPosition :: Lens' CreativeAsset (Maybe OffSetPosition)
1593615936caaPosition
1593715937 = lens _caaPosition (\ s a -> s{_caaPosition = a})
1593815938
@@ -16003,7 +16003,7 @@ instance ToJSON CreativeAsset where
1600316003 ("pushdownDuration" .=) <$> _caaPushdownDuration,
1600416004 ("size" .=) <$> _caaSize,
1600516005 ("verticallyLocked" .=) <$> _caaVerticallyLocked,
16006− ("offset" .=) <$> _caaOffset,
16006+ ("offset" .=) <$> _caaOffSet,
1600716007 ("streamingServingUrl" .=) <$>
1600816008 _caaStreamingServingURL,
1600916009 ("zipFilesize" .=) <$> _caaZipFilesize,
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Sum.hs+18−18
@@ -474,11 +474,11 @@ instance ToJSON TargetableRemarketingListsListSortOrder where
474474-- | Offset left unit for an asset. This is a read-only field. Applicable to
475475-- the following creative types: all RICH_MEDIA.
476476data CreativeAssetPositionLeftUnit
477− = OffsetUnitPercent
477+ = OffSetUnitPercent
478478 -- ^ @OFFSET_UNIT_PERCENT@
479− | OffsetUnitPixel
479+ | OffSetUnitPixel
480480 -- ^ @OFFSET_UNIT_PIXEL@
481− | OffsetUnitPixelFromCenter
481+ | OffSetUnitPixelFromCenter
482482 -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@
483483 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
484484
@@ -486,16 +486,16 @@ instance Hashable CreativeAssetPositionLeftUnit
486486
487487instance FromText CreativeAssetPositionLeftUnit where
488488 fromText = \case
489− "OFFSET_UNIT_PERCENT" -> Just OffsetUnitPercent
490− "OFFSET_UNIT_PIXEL" -> Just OffsetUnitPixel
491− "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just OffsetUnitPixelFromCenter
489+ "OFFSET_UNIT_PERCENT" -> Just OffSetUnitPercent
490+ "OFFSET_UNIT_PIXEL" -> Just OffSetUnitPixel
491+ "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just OffSetUnitPixelFromCenter
492492 _ -> Nothing
493493
494494instance ToText CreativeAssetPositionLeftUnit where
495495 toText = \case
496− OffsetUnitPercent -> "OFFSET_UNIT_PERCENT"
497− OffsetUnitPixel -> "OFFSET_UNIT_PIXEL"
498− OffsetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"
496+ OffSetUnitPercent -> "OFFSET_UNIT_PERCENT"
497+ OffSetUnitPixel -> "OFFSET_UNIT_PIXEL"
498+ OffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"
499499
500500instance FromJSON CreativeAssetPositionLeftUnit where
501501 parseJSON = parseJSONText "CreativeAssetPositionLeftUnit"
@@ -4277,11 +4277,11 @@ instance ToJSON EventTagsListSortField where
42774277-- displayType is ASSET_DISPLAY_TYPE_OVERLAY. Applicable to the following
42784278-- creative types: all RICH_MEDIA.
42794279data CreativeAssetPositionTopUnit
4280− = CAPTUOffsetUnitPercent
4280+ = CAPTUOffSetUnitPercent
42814281 -- ^ @OFFSET_UNIT_PERCENT@
4282− | CAPTUOffsetUnitPixel
4282+ | CAPTUOffSetUnitPixel
42834283 -- ^ @OFFSET_UNIT_PIXEL@
4284− | CAPTUOffsetUnitPixelFromCenter
4284+ | CAPTUOffSetUnitPixelFromCenter
42854285 -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@
42864286 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
42874287
@@ -4289,16 +4289,16 @@ instance Hashable CreativeAssetPositionTopUnit
42894289
42904290instance FromText CreativeAssetPositionTopUnit where
42914291 fromText = \case
4292− "OFFSET_UNIT_PERCENT" -> Just CAPTUOffsetUnitPercent
4293− "OFFSET_UNIT_PIXEL" -> Just CAPTUOffsetUnitPixel
4294− "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just CAPTUOffsetUnitPixelFromCenter
4292+ "OFFSET_UNIT_PERCENT" -> Just CAPTUOffSetUnitPercent
4293+ "OFFSET_UNIT_PIXEL" -> Just CAPTUOffSetUnitPixel
4294+ "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just CAPTUOffSetUnitPixelFromCenter
42954295 _ -> Nothing
42964296
42974297instance ToText CreativeAssetPositionTopUnit where
42984298 toText = \case
4299− CAPTUOffsetUnitPercent -> "OFFSET_UNIT_PERCENT"
4300− CAPTUOffsetUnitPixel -> "OFFSET_UNIT_PIXEL"
4301− CAPTUOffsetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"
4299+ CAPTUOffSetUnitPercent -> "OFFSET_UNIT_PERCENT"
4300+ CAPTUOffSetUnitPixel -> "OFFSET_UNIT_PIXEL"
4301+ CAPTUOffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"
43024302
43034303instance FromJSON CreativeAssetPositionTopUnit where
43044304 parseJSON = parseJSONText "CreativeAssetPositionTopUnit"
gogol-dns/gen/Network/Google/DNS.hs+5−5
@@ -89,7 +89,7 @@ module Network.Google.DNS
8989 , resourceRecordSetsListResponse
9090 , rrslrNextPageToken
9191 , rrslrKind
92− , rrslrRrsets
92+ , rrslrRrSets
9393
9494 -- ** ChangeStatus
9595 , ChangeStatus (..)
@@ -118,11 +118,11 @@ module Network.Google.DNS
118118 -- ** Quota
119119 , Quota
120120 , quota
121− , qRrsetDeletionsPerChange
122− , qRrsetsPerManagedZone
121+ , qRrSetDeletionsPerChange
122+ , qRrSetsPerManagedZone
123123 , qKind
124− , qResourceRecordsPerRrset
125− , qRrsetAdditionsPerChange
124+ , qResourceRecordsPerRrSet
125+ , qRrSetAdditionsPerChange
126126 , qManagedZones
127127 , qTotalRrDataSizePerChange
128128
gogol-dns/gen/Network/Google/DNS/Types.hs+5−5
@@ -57,7 +57,7 @@ module Network.Google.DNS.Types
5757 , resourceRecordSetsListResponse
5858 , rrslrNextPageToken
5959 , rrslrKind
60− , rrslrRrsets
60+ , rrslrRrSets
6161
6262 -- * ChangeStatus
6363 , ChangeStatus (..)
@@ -86,11 +86,11 @@ module Network.Google.DNS.Types
8686 -- * Quota
8787 , Quota
8888 , quota
89− , qRrsetDeletionsPerChange
90− , qRrsetsPerManagedZone
89+ , qRrSetDeletionsPerChange
90+ , qRrSetsPerManagedZone
9191 , qKind
92− , qResourceRecordsPerRrset
93− , qRrsetAdditionsPerChange
92+ , qResourceRecordsPerRrSet
93+ , qRrSetAdditionsPerChange
9494 , qManagedZones
9595 , qTotalRrDataSizePerChange
9696
gogol-dns/gen/Network/Google/DNS/Types/Product.hs+39−39
@@ -257,7 +257,7 @@ instance ToJSON Change where
257257data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse
258258 { _rrslrNextPageToken :: !(Maybe Text)
259259 , _rrslrKind :: !Text
260− , _rrslrRrsets :: !(Maybe [ResourceRecordSet])
260+ , _rrslrRrSets :: !(Maybe [ResourceRecordSet])
261261 } deriving (Eq,Show,Data,Typeable,Generic)
262262
263263-- | Creates a value of 'ResourceRecordSetsListResponse' with the minimum fields required to make a request.
@@ -268,14 +268,14 @@ data ResourceRecordSetsListResponse = ResourceRecordSetsListResponse
268268--
269269-- * 'rrslrKind'
270270--
271−-- * 'rrslrRrsets'
271+-- * 'rrslrRrSets'
272272resourceRecordSetsListResponse
273273 :: ResourceRecordSetsListResponse
274274resourceRecordSetsListResponse =
275275 ResourceRecordSetsListResponse
276276 { _rrslrNextPageToken = Nothing
277277 , _rrslrKind = "dns#resourceRecordSetsListResponse"
278− , _rrslrRrsets = Nothing
278+ , _rrslrRrSets = Nothing
279279 }
280280
281281-- | The presence of this field indicates that there exist more results
@@ -298,9 +298,9 @@ rrslrKind
298298 = lens _rrslrKind (\ s a -> s{_rrslrKind = a})
299299
300300-- | The resource record set resources.
301−rrslrRrsets :: Lens' ResourceRecordSetsListResponse [ResourceRecordSet]
302−rrslrRrsets
303− = lens _rrslrRrsets (\ s a -> s{_rrslrRrsets = a}) .
301+rrslrRrSets :: Lens' ResourceRecordSetsListResponse [ResourceRecordSet]
302+rrslrRrSets
303+ = lens _rrslrRrSets (\ s a -> s{_rrslrRrSets = a}) .
304304 _Default
305305 . _Coerce
306306
@@ -321,7 +321,7 @@ instance ToJSON ResourceRecordSetsListResponse where
321321 (catMaybes
322322 [("nextPageToken" .=) <$> _rrslrNextPageToken,
323323 Just ("kind" .= _rrslrKind),
324− ("rrsets" .=) <$> _rrslrRrsets])
324+ ("rrsets" .=) <$> _rrslrRrSets])
325325
326326-- | A unit of data that will be returned by the DNS servers.
327327--
@@ -535,11 +535,11 @@ instance ToJSON ManagedZone where
535535--
536536-- /See:/ 'quota' smart constructor.
537537data Quota = Quota
538− { _qRrsetDeletionsPerChange :: !(Maybe Int32)
539− , _qRrsetsPerManagedZone :: !(Maybe Int32)
538+ { _qRrSetDeletionsPerChange :: !(Maybe Int32)
539+ , _qRrSetsPerManagedZone :: !(Maybe Int32)
540540 , _qKind :: !Text
541− , _qResourceRecordsPerRrset :: !(Maybe Int32)
542− , _qRrsetAdditionsPerChange :: !(Maybe Int32)
541+ , _qResourceRecordsPerRrSet :: !(Maybe Int32)
542+ , _qRrSetAdditionsPerChange :: !(Maybe Int32)
543543 , _qManagedZones :: !(Maybe Int32)
544544 , _qTotalRrDataSizePerChange :: !(Maybe Int32)
545545 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -548,15 +548,15 @@ data Quota = Quota
548548--
549549-- Use one of the following lenses to modify other fields as desired:
550550--
551−-- * 'qRrsetDeletionsPerChange'
551+-- * 'qRrSetDeletionsPerChange'
552552--
553−-- * 'qRrsetsPerManagedZone'
553+-- * 'qRrSetsPerManagedZone'
554554--
555555-- * 'qKind'
556556--
557−-- * 'qResourceRecordsPerRrset'
557+-- * 'qResourceRecordsPerRrSet'
558558--
559−-- * 'qRrsetAdditionsPerChange'
559+-- * 'qRrSetAdditionsPerChange'
560560--
561561-- * 'qManagedZones'
562562--
@@ -565,27 +565,27 @@ quota
565565 :: Quota
566566quota =
567567 Quota
568− { _qRrsetDeletionsPerChange = Nothing
569− , _qRrsetsPerManagedZone = Nothing
568+ { _qRrSetDeletionsPerChange = Nothing
569+ , _qRrSetsPerManagedZone = Nothing
570570 , _qKind = "dns#quota"
571− , _qResourceRecordsPerRrset = Nothing
572− , _qRrsetAdditionsPerChange = Nothing
571+ , _qResourceRecordsPerRrSet = Nothing
572+ , _qRrSetAdditionsPerChange = Nothing
573573 , _qManagedZones = Nothing
574574 , _qTotalRrDataSizePerChange = Nothing
575575 }
576576
577577-- | Maximum allowed number of ResourceRecordSets to delete per
578578-- ChangesCreateRequest.
579−qRrsetDeletionsPerChange :: Lens' Quota (Maybe Int32)
580−qRrsetDeletionsPerChange
581− = lens _qRrsetDeletionsPerChange
582− (\ s a -> s{_qRrsetDeletionsPerChange = a})
579+qRrSetDeletionsPerChange :: Lens' Quota (Maybe Int32)
580+qRrSetDeletionsPerChange
581+ = lens _qRrSetDeletionsPerChange
582+ (\ s a -> s{_qRrSetDeletionsPerChange = a})
583583
584584-- | Maximum allowed number of ResourceRecordSets per zone in the project.
585−qRrsetsPerManagedZone :: Lens' Quota (Maybe Int32)
586−qRrsetsPerManagedZone
587− = lens _qRrsetsPerManagedZone
588− (\ s a -> s{_qRrsetsPerManagedZone = a})
585+qRrSetsPerManagedZone :: Lens' Quota (Maybe Int32)
586+qRrSetsPerManagedZone
587+ = lens _qRrSetsPerManagedZone
588+ (\ s a -> s{_qRrSetsPerManagedZone = a})
589589
590590-- | Identifies what kind of resource this is. Value: the fixed string
591591-- \"dns#quota\".
@@ -593,17 +593,17 @@ qKind :: Lens' Quota Text
593593qKind = lens _qKind (\ s a -> s{_qKind = a})
594594
595595-- | Maximum allowed number of ResourceRecords per ResourceRecordSet.
596−qResourceRecordsPerRrset :: Lens' Quota (Maybe Int32)
597−qResourceRecordsPerRrset
598− = lens _qResourceRecordsPerRrset
599− (\ s a -> s{_qResourceRecordsPerRrset = a})
596+qResourceRecordsPerRrSet :: Lens' Quota (Maybe Int32)
597+qResourceRecordsPerRrSet
598+ = lens _qResourceRecordsPerRrSet
599+ (\ s a -> s{_qResourceRecordsPerRrSet = a})
600600
601601-- | Maximum allowed number of ResourceRecordSets to add per
602602-- ChangesCreateRequest.
603−qRrsetAdditionsPerChange :: Lens' Quota (Maybe Int32)
604−qRrsetAdditionsPerChange
605− = lens _qRrsetAdditionsPerChange
606− (\ s a -> s{_qRrsetAdditionsPerChange = a})
603+qRrSetAdditionsPerChange :: Lens' Quota (Maybe Int32)
604+qRrSetAdditionsPerChange
605+ = lens _qRrSetAdditionsPerChange
606+ (\ s a -> s{_qRrSetAdditionsPerChange = a})
607607
608608-- | Maximum allowed number of managed zones in the project.
609609qManagedZones :: Lens' Quota (Maybe Int32)
@@ -636,14 +636,14 @@ instance ToJSON Quota where
636636 = object
637637 (catMaybes
638638 [("rrsetDeletionsPerChange" .=) <$>
639− _qRrsetDeletionsPerChange,
639+ _qRrSetDeletionsPerChange,
640640 ("rrsetsPerManagedZone" .=) <$>
641− _qRrsetsPerManagedZone,
641+ _qRrSetsPerManagedZone,
642642 Just ("kind" .= _qKind),
643643 ("resourceRecordsPerRrset" .=) <$>
644− _qResourceRecordsPerRrset,
644+ _qResourceRecordsPerRrSet,
645645 ("rrsetAdditionsPerChange" .=) <$>
646− _qRrsetAdditionsPerChange,
646+ _qRrSetAdditionsPerChange,
647647 ("managedZones" .=) <$> _qManagedZones,
648648 ("totalRrdataSizePerChange" .=) <$>
649649 _qTotalRrDataSizePerChange])
gogol-fitness/gen/Network/Google/Fitness.hs+21−21
@@ -30,13 +30,13 @@ module Network.Google.Fitness
3030 , module Network.Google.Resource.Fitness.Users.DataSources.Create
3131
3232 -- ** fitness.users.dataSources.datasets.delete
33− , module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Delete
33+ , module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete
3434
3535 -- ** fitness.users.dataSources.datasets.get
36− , module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Get
36+ , module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get
3737
3838 -- ** fitness.users.dataSources.datasets.patch
39− , module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Patch
39+ , module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch
4040
4141 -- ** fitness.users.dataSources.delete
4242 , module Network.Google.Resource.Fitness.Users.DataSources.Delete
@@ -54,7 +54,7 @@ module Network.Google.Fitness
5454 , module Network.Google.Resource.Fitness.Users.DataSources.Update
5555
5656 -- ** fitness.users.dataset.aggregate
57− , module Network.Google.Resource.Fitness.Users.Dataset.Aggregate
57+ , module Network.Google.Resource.Fitness.Users.DataSet.Aggregate
5858
5959 -- ** fitness.users.sessions.delete
6060 , module Network.Google.Resource.Fitness.Users.Sessions.Delete
@@ -70,14 +70,14 @@ module Network.Google.Fitness
7070 -- ** AggregateBucketType
7171 , AggregateBucketType (..)
7272
73− -- ** Dataset
74− , Dataset
75− , dataset
76− , dNextPageToken
77− , dDataSourceId
78− , dPoint
79− , dMinStartTimeNs
80− , dMaxEndTimeNs
73+ -- ** DataSet
74+ , DataSet
75+ , dataSet
76+ , dsNextPageToken
77+ , dsDataSourceId
78+ , dsPoint
79+ , dsMinStartTimeNs
80+ , dsMaxEndTimeNs
8181
8282 -- ** Application
8383 , Application
@@ -163,7 +163,7 @@ module Network.Google.Fitness
163163 , AggregateBucket
164164 , aggregateBucket
165165 , abEndTimeMillis
166− , abDataset
166+ , abDataSet
167167 , abActivity
168168 , abType
169169 , abStartTimeMillis
@@ -236,11 +236,11 @@ module Network.Google.Fitness
236236
237237import Network.Google.Fitness.Types
238238import Network.Google.Prelude
239−import Network.Google.Resource.Fitness.Users.Dataset.Aggregate
239+import Network.Google.Resource.Fitness.Users.DataSet.Aggregate
240240import Network.Google.Resource.Fitness.Users.DataSources.Create
241−import Network.Google.Resource.Fitness.Users.DataSources.Datasets.Delete
242−import Network.Google.Resource.Fitness.Users.DataSources.Datasets.Get
243−import Network.Google.Resource.Fitness.Users.DataSources.Datasets.Patch
241+import Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete
242+import Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get
243+import Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch
244244import Network.Google.Resource.Fitness.Users.DataSources.Delete
245245import Network.Google.Resource.Fitness.Users.DataSources.Get
246246import Network.Google.Resource.Fitness.Users.DataSources.List
@@ -256,10 +256,10 @@ TODO
256256
257257-- | Represents the entirety of the methods and resources available for the Fitness service.
258258type FitnessAPI =
259− UsersDatasetAggregateResource :<|>
260− UsersDataSourcesDatasetsPatchResource
261− :<|> UsersDataSourcesDatasetsGetResource
262− :<|> UsersDataSourcesDatasetsDeleteResource
259+ UsersDataSetAggregateResource :<|>
260+ UsersDataSourcesDataSetsPatchResource
261+ :<|> UsersDataSourcesDataSetsGetResource
262+ :<|> UsersDataSourcesDataSetsDeleteResource
263263 :<|> UsersDataSourcesListResource
264264 :<|> UsersDataSourcesPatchResource
265265 :<|> UsersDataSourcesGetResource
gogol-fitness/gen/Network/Google/Fitness/Types.hs+9−9
@@ -29,14 +29,14 @@ module Network.Google.Fitness.Types
2929 -- * AggregateBucketType
3030 , AggregateBucketType (..)
3131
32− -- * Dataset
33− , Dataset
34− , dataset
35− , dNextPageToken
36− , dDataSourceId
37− , dPoint
38− , dMinStartTimeNs
39− , dMaxEndTimeNs
32+ -- * DataSet
33+ , DataSet
34+ , dataSet
35+ , dsNextPageToken
36+ , dsDataSourceId
37+ , dsPoint
38+ , dsMinStartTimeNs
39+ , dsMaxEndTimeNs
4040
4141 -- * Application
4242 , Application
@@ -122,7 +122,7 @@ module Network.Google.Fitness.Types
122122 , AggregateBucket
123123 , aggregateBucket
124124 , abEndTimeMillis
125− , abDataset
125+ , abDataSet
126126 , abActivity
127127 , abType
128128 , abStartTimeMillis
gogol-fitness/gen/Network/Google/Fitness/Types/Product.hs+59−59
@@ -25,99 +25,99 @@ import Network.Google.Prelude
2525-- from a particular data source. A data point can be found in more than
2626-- one dataset.
2727--
28−-- /See:/ 'dataset' smart constructor.
29−data Dataset = Dataset
30− { _dNextPageToken :: !(Maybe Text)
31− , _dDataSourceId :: !(Maybe Text)
32− , _dPoint :: !(Maybe [DataPoint])
33− , _dMinStartTimeNs :: !(Maybe Int64)
34− , _dMaxEndTimeNs :: !(Maybe Int64)
28+-- /See:/ 'dataSet' smart constructor.
29+data DataSet = DataSet
30+ { _dsNextPageToken :: !(Maybe Text)
31+ , _dsDataSourceId :: !(Maybe Text)
32+ , _dsPoint :: !(Maybe [DataPoint])
33+ , _dsMinStartTimeNs :: !(Maybe Int64)
34+ , _dsMaxEndTimeNs :: !(Maybe Int64)
3535 } deriving (Eq,Show,Data,Typeable,Generic)
3636
37−-- | Creates a value of 'Dataset' with the minimum fields required to make a request.
37+-- | Creates a value of 'DataSet' with the minimum fields required to make a request.
3838--
3939-- Use one of the following lenses to modify other fields as desired:
4040--
41−-- * 'dNextPageToken'
41+-- * 'dsNextPageToken'
4242--
43−-- * 'dDataSourceId'
43+-- * 'dsDataSourceId'
4444--
45−-- * 'dPoint'
45+-- * 'dsPoint'
4646--
47−-- * 'dMinStartTimeNs'
47+-- * 'dsMinStartTimeNs'
4848--
49−-- * 'dMaxEndTimeNs'
50−dataset
51− :: Dataset
52−dataset =
53− Dataset
54− { _dNextPageToken = Nothing
55− , _dDataSourceId = Nothing
56− , _dPoint = Nothing
57− , _dMinStartTimeNs = Nothing
58− , _dMaxEndTimeNs = Nothing
49+-- * 'dsMaxEndTimeNs'
50+dataSet
51+ :: DataSet
52+dataSet =
53+ DataSet
54+ { _dsNextPageToken = Nothing
55+ , _dsDataSourceId = Nothing
56+ , _dsPoint = Nothing
57+ , _dsMinStartTimeNs = Nothing
58+ , _dsMaxEndTimeNs = Nothing
5959 }
6060
6161-- | This token will be set when a dataset is received in response to a GET
6262-- request and the dataset is too large to be included in a single
6363-- response. Provide this value in a subsequent GET request to return the
6464-- next page of data points within this dataset.
65−dNextPageToken :: Lens' Dataset (Maybe Text)
66−dNextPageToken
67− = lens _dNextPageToken
68− (\ s a -> s{_dNextPageToken = a})
65+dsNextPageToken :: Lens' DataSet (Maybe Text)
66+dsNextPageToken
67+ = lens _dsNextPageToken
68+ (\ s a -> s{_dsNextPageToken = a})
6969
7070-- | The data stream ID of the data source that created the points in this
7171-- dataset.
72−dDataSourceId :: Lens' Dataset (Maybe Text)
73−dDataSourceId
74− = lens _dDataSourceId
75− (\ s a -> s{_dDataSourceId = a})
72+dsDataSourceId :: Lens' DataSet (Maybe Text)
73+dsDataSourceId
74+ = lens _dsDataSourceId
75+ (\ s a -> s{_dsDataSourceId = a})
7676
7777-- | A partial list of data points contained in the dataset, ordered by
7878-- largest endTimeNanos first. This list is considered complete when
7979-- retrieving a small dataset and partial when patching a dataset or
8080-- retrieving a dataset that is too large to include in a single response.
81−dPoint :: Lens' Dataset [DataPoint]
82−dPoint
83− = lens _dPoint (\ s a -> s{_dPoint = a}) . _Default .
84− _Coerce
81+dsPoint :: Lens' DataSet [DataPoint]
82+dsPoint
83+ = lens _dsPoint (\ s a -> s{_dsPoint = a}) . _Default
84+ . _Coerce
8585
8686-- | The smallest start time of all data points in this possibly partial
8787-- representation of the dataset. Time is in nanoseconds from epoch. This
8888-- should also match the first part of the dataset identifier.
89−dMinStartTimeNs :: Lens' Dataset (Maybe Int64)
90−dMinStartTimeNs
91− = lens _dMinStartTimeNs
92− (\ s a -> s{_dMinStartTimeNs = a})
89+dsMinStartTimeNs :: Lens' DataSet (Maybe Int64)
90+dsMinStartTimeNs
91+ = lens _dsMinStartTimeNs
92+ (\ s a -> s{_dsMinStartTimeNs = a})
9393
9494-- | The largest end time of all data points in this possibly partial
9595-- representation of the dataset. Time is in nanoseconds from epoch. This
9696-- should also match the first part of the dataset identifier.
97−dMaxEndTimeNs :: Lens' Dataset (Maybe Int64)
98−dMaxEndTimeNs
99− = lens _dMaxEndTimeNs
100− (\ s a -> s{_dMaxEndTimeNs = a})
97+dsMaxEndTimeNs :: Lens' DataSet (Maybe Int64)
98+dsMaxEndTimeNs
99+ = lens _dsMaxEndTimeNs
100+ (\ s a -> s{_dsMaxEndTimeNs = a})
101101
102−instance FromJSON Dataset where
102+instance FromJSON DataSet where
103103 parseJSON
104− = withObject "Dataset"
104+ = withObject "DataSet"
105105 (\ o ->
106− Dataset <$>
106+ DataSet <$>
107107 (o .:? "nextPageToken") <*> (o .:? "dataSourceId")
108108 <*> (o .:? "point" .!= mempty)
109109 <*> (o .:? "minStartTimeNs")
110110 <*> (o .:? "maxEndTimeNs"))
111111
112−instance ToJSON Dataset where
113− toJSON Dataset{..}
112+instance ToJSON DataSet where
113+ toJSON DataSet{..}
114114 = object
115115 (catMaybes
116− [("nextPageToken" .=) <$> _dNextPageToken,
117− ("dataSourceId" .=) <$> _dDataSourceId,
118− ("point" .=) <$> _dPoint,
119− ("minStartTimeNs" .=) <$> _dMinStartTimeNs,
120− ("maxEndTimeNs" .=) <$> _dMaxEndTimeNs])
116+ [("nextPageToken" .=) <$> _dsNextPageToken,
117+ ("dataSourceId" .=) <$> _dsDataSourceId,
118+ ("point" .=) <$> _dsPoint,
119+ ("minStartTimeNs" .=) <$> _dsMinStartTimeNs,
120+ ("maxEndTimeNs" .=) <$> _dsMaxEndTimeNs])
121121
122122-- | See:
123123-- google3\/java\/com\/google\/android\/apps\/heart\/platform\/api\/Application.java
@@ -881,7 +881,7 @@ instance ToJSON ListSessionsResponse where
881881-- /See:/ 'aggregateBucket' smart constructor.
882882data AggregateBucket = AggregateBucket
883883 { _abEndTimeMillis :: !(Maybe Int64)
884− , _abDataset :: !(Maybe [Dataset])
884+ , _abDataSet :: !(Maybe [DataSet])
885885 , _abActivity :: !(Maybe Int32)
886886 , _abType :: !(Maybe AggregateBucketType)
887887 , _abStartTimeMillis :: !(Maybe Int64)
@@ -894,7 +894,7 @@ data AggregateBucket = AggregateBucket
894894--
895895-- * 'abEndTimeMillis'
896896--
897−-- * 'abDataset'
897+-- * 'abDataSet'
898898--
899899-- * 'abActivity'
900900--
@@ -908,7 +908,7 @@ aggregateBucket
908908aggregateBucket =
909909 AggregateBucket
910910 { _abEndTimeMillis = Nothing
911− , _abDataset = Nothing
911+ , _abDataSet = Nothing
912912 , _abActivity = Nothing
913913 , _abType = Nothing
914914 , _abStartTimeMillis = Nothing
@@ -923,9 +923,9 @@ abEndTimeMillis
923923 (\ s a -> s{_abEndTimeMillis = a})
924924
925925-- | There will be one dataset per AggregateBy in the request.
926−abDataset :: Lens' AggregateBucket [Dataset]
927−abDataset
928− = lens _abDataset (\ s a -> s{_abDataset = a}) .
926+abDataSet :: Lens' AggregateBucket [DataSet]
927+abDataSet
928+ = lens _abDataSet (\ s a -> s{_abDataSet = a}) .
929929 _Default
930930 . _Coerce
931931
@@ -968,7 +968,7 @@ instance ToJSON AggregateBucket where
968968 = object
969969 (catMaybes
970970 [("endTimeMillis" .=) <$> _abEndTimeMillis,
971− ("dataset" .=) <$> _abDataset,
971+ ("dataset" .=) <$> _abDataSet,
972972 ("activity" .=) <$> _abActivity,
973973 ("type" .=) <$> _abType,
974974 ("startTimeMillis" .=) <$> _abStartTimeMillis,
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Dataset/Aggregate.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSet/Aggregate.hsrenamed+35−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Fitness.Users.Dataset.Aggregate
16+-- Module : Network.Google.Resource.Fitness.Users.DataSet.Aggregate
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -26,26 +26,26 @@
2626-- request.
2727--
2828-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataset.aggregate@.
29−module Network.Google.Resource.Fitness.Users.Dataset.Aggregate
29+module Network.Google.Resource.Fitness.Users.DataSet.Aggregate
3030 (
3131 -- * REST Resource
32− UsersDatasetAggregateResource
32+ UsersDataSetAggregateResource
3333
3434 -- * Creating a Request
35− , usersDatasetAggregate
36− , UsersDatasetAggregate
35+ , usersDataSetAggregate
36+ , UsersDataSetAggregate
3737
3838 -- * Request Lenses
39− , udaPayload
40− , udaUserId
39+ , udsaPayload
40+ , udsaUserId
4141 ) where
4242
4343import Network.Google.Fitness.Types
4444import Network.Google.Prelude
4545
4646-- | A resource alias for @fitness.users.dataset.aggregate@ method which the
47−-- 'UsersDatasetAggregate' request conforms to.
48−type UsersDatasetAggregateResource =
47+-- 'UsersDataSetAggregate' request conforms to.
48+type UsersDataSetAggregateResource =
4949 Capture "userId" Text :>
5050 "dataset:aggregate" :>
5151 QueryParam "alt" AltJSON :>
@@ -57,46 +57,46 @@ type UsersDatasetAggregateResource =
5757-- multiple sources can be aggreated into exactly one bucket type per
5858-- request.
5959--
60−-- /See:/ 'usersDatasetAggregate' smart constructor.
61−data UsersDatasetAggregate = UsersDatasetAggregate
62− { _udaPayload :: !AggregateRequest
63− , _udaUserId :: !Text
60+-- /See:/ 'usersDataSetAggregate' smart constructor.
61+data UsersDataSetAggregate = UsersDataSetAggregate
62+ { _udsaPayload :: !AggregateRequest
63+ , _udsaUserId :: !Text
6464 } deriving (Eq,Show,Data,Typeable,Generic)
6565
66−-- | Creates a value of 'UsersDatasetAggregate' with the minimum fields required to make a request.
66+-- | Creates a value of 'UsersDataSetAggregate' with the minimum fields required to make a request.
6767--
6868-- Use one of the following lenses to modify other fields as desired:
6969--
70−-- * 'udaPayload'
70+-- * 'udsaPayload'
7171--
72−-- * 'udaUserId'
73−usersDatasetAggregate
74− :: AggregateRequest -- ^ 'udaPayload'
75− -> Text -- ^ 'udaUserId'
76− -> UsersDatasetAggregate
77−usersDatasetAggregate pUdaPayload_ pUdaUserId_ =
78− UsersDatasetAggregate
79− { _udaPayload = pUdaPayload_
80− , _udaUserId = pUdaUserId_
72+-- * 'udsaUserId'
73+usersDataSetAggregate
74+ :: AggregateRequest -- ^ 'udsaPayload'
75+ -> Text -- ^ 'udsaUserId'
76+ -> UsersDataSetAggregate
77+usersDataSetAggregate pUdsaPayload_ pUdsaUserId_ =
78+ UsersDataSetAggregate
79+ { _udsaPayload = pUdsaPayload_
80+ , _udsaUserId = pUdsaUserId_
8181 }
8282
8383-- | Multipart request metadata.
84−udaPayload :: Lens' UsersDatasetAggregate AggregateRequest
85−udaPayload
86− = lens _udaPayload (\ s a -> s{_udaPayload = a})
84+udsaPayload :: Lens' UsersDataSetAggregate AggregateRequest
85+udsaPayload
86+ = lens _udsaPayload (\ s a -> s{_udsaPayload = a})
8787
8888-- | Aggregate data for the person identified. Use me to indicate the
8989-- authenticated user. Only me is supported at this time.
90−udaUserId :: Lens' UsersDatasetAggregate Text
91−udaUserId
92− = lens _udaUserId (\ s a -> s{_udaUserId = a})
90+udsaUserId :: Lens' UsersDataSetAggregate Text
91+udsaUserId
92+ = lens _udsaUserId (\ s a -> s{_udsaUserId = a})
9393
94−instance GoogleRequest UsersDatasetAggregate where
95− type Rs UsersDatasetAggregate = AggregateResponse
96− requestClient UsersDatasetAggregate{..}
97− = go _udaUserId (Just AltJSON) _udaPayload
94+instance GoogleRequest UsersDataSetAggregate where
95+ type Rs UsersDataSetAggregate = AggregateResponse
96+ requestClient UsersDataSetAggregate{..}
97+ = go _udsaUserId (Just AltJSON) _udsaPayload
9898 fitnessService
9999 where go
100100 = buildClient
101− (Proxy :: Proxy UsersDatasetAggregateResource)
101+ (Proxy :: Proxy UsersDataSetAggregateResource)
102102 mempty
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Delete.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Delete.hsrenamed+64−63
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Fitness.Users.DataSources.Datasets.Delete
16+-- Module : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -29,29 +29,29 @@
2929-- will be deleted.
3030--
3131-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.datasets.delete@.
32−module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Delete
32+module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete
3333 (
3434 -- * REST Resource
35− UsersDataSourcesDatasetsDeleteResource
35+ UsersDataSourcesDataSetsDeleteResource
3636
3737 -- * Creating a Request
38− , usersDataSourcesDatasetsDelete
39− , UsersDataSourcesDatasetsDelete
38+ , usersDataSourcesDataSetsDelete
39+ , UsersDataSourcesDataSetsDelete
4040
4141 -- * Request Lenses
42− , udsddDataSourceId
43− , udsddUserId
44− , udsddDatasetId
45− , udsddModifiedTimeMillis
46− , udsddCurrentTimeMillis
42+ , udsdsdDataSourceId
43+ , udsdsdUserId
44+ , udsdsdDataSetId
45+ , udsdsdModifiedTimeMillis
46+ , udsdsdCurrentTimeMillis
4747 ) where
4848
4949import Network.Google.Fitness.Types
5050import Network.Google.Prelude
5151
5252-- | A resource alias for @fitness.users.dataSources.datasets.delete@ method which the
53−-- 'UsersDataSourcesDatasetsDelete' request conforms to.
54−type UsersDataSourcesDatasetsDeleteResource =
53+-- 'UsersDataSourcesDataSetsDelete' request conforms to.
54+type UsersDataSourcesDataSetsDeleteResource =
5555 Capture "userId" Text :>
5656 "dataSources" :>
5757 Capture "dataSourceId" Text :>
@@ -69,86 +69,87 @@ type UsersDataSourcesDatasetsDeleteResource =
6969-- point of the dataset, only the overlapping portion of the data point
7070-- will be deleted.
7171--
72−-- /See:/ 'usersDataSourcesDatasetsDelete' smart constructor.
73−data UsersDataSourcesDatasetsDelete = UsersDataSourcesDatasetsDelete
74− { _udsddDataSourceId :: !Text
75− , _udsddUserId :: !Text
76− , _udsddDatasetId :: !Text
77− , _udsddModifiedTimeMillis :: !(Maybe Int64)
78− , _udsddCurrentTimeMillis :: !(Maybe Int64)
72+-- /See:/ 'usersDataSourcesDataSetsDelete' smart constructor.
73+data UsersDataSourcesDataSetsDelete = UsersDataSourcesDataSetsDelete
74+ { _udsdsdDataSourceId :: !Text
75+ , _udsdsdUserId :: !Text
76+ , _udsdsdDataSetId :: !Text
77+ , _udsdsdModifiedTimeMillis :: !(Maybe Int64)
78+ , _udsdsdCurrentTimeMillis :: !(Maybe Int64)
7979 } deriving (Eq,Show,Data,Typeable,Generic)
8080
81−-- | Creates a value of 'UsersDataSourcesDatasetsDelete' with the minimum fields required to make a request.
81+-- | Creates a value of 'UsersDataSourcesDataSetsDelete' with the minimum fields required to make a request.
8282--
8383-- Use one of the following lenses to modify other fields as desired:
8484--
85−-- * 'udsddDataSourceId'
85+-- * 'udsdsdDataSourceId'
8686--
87−-- * 'udsddUserId'
87+-- * 'udsdsdUserId'
8888--
89−-- * 'udsddDatasetId'
89+-- * 'udsdsdDataSetId'
9090--
91−-- * 'udsddModifiedTimeMillis'
91+-- * 'udsdsdModifiedTimeMillis'
9292--
93−-- * 'udsddCurrentTimeMillis'
94−usersDataSourcesDatasetsDelete
95− :: Text -- ^ 'udsddDataSourceId'
96− -> Text -- ^ 'udsddUserId'
97− -> Text -- ^ 'udsddDatasetId'
98− -> UsersDataSourcesDatasetsDelete
99−usersDataSourcesDatasetsDelete pUdsddDataSourceId_ pUdsddUserId_ pUdsddDatasetId_ =
100− UsersDataSourcesDatasetsDelete
101− { _udsddDataSourceId = pUdsddDataSourceId_
102− , _udsddUserId = pUdsddUserId_
103− , _udsddDatasetId = pUdsddDatasetId_
104− , _udsddModifiedTimeMillis = Nothing
105− , _udsddCurrentTimeMillis = Nothing
93+-- * 'udsdsdCurrentTimeMillis'
94+usersDataSourcesDataSetsDelete
95+ :: Text -- ^ 'udsdsdDataSourceId'
96+ -> Text -- ^ 'udsdsdUserId'
97+ -> Text -- ^ 'udsdsdDataSetId'
98+ -> UsersDataSourcesDataSetsDelete
99+usersDataSourcesDataSetsDelete pUdsdsdDataSourceId_ pUdsdsdUserId_ pUdsdsdDataSetId_ =
100+ UsersDataSourcesDataSetsDelete
101+ { _udsdsdDataSourceId = pUdsdsdDataSourceId_
102+ , _udsdsdUserId = pUdsdsdUserId_
103+ , _udsdsdDataSetId = pUdsdsdDataSetId_
104+ , _udsdsdModifiedTimeMillis = Nothing
105+ , _udsdsdCurrentTimeMillis = Nothing
106106 }
107107
108108-- | The data stream ID of the data source that created the dataset.
109−udsddDataSourceId :: Lens' UsersDataSourcesDatasetsDelete Text
110−udsddDataSourceId
111− = lens _udsddDataSourceId
112− (\ s a -> s{_udsddDataSourceId = a})
109+udsdsdDataSourceId :: Lens' UsersDataSourcesDataSetsDelete Text
110+udsdsdDataSourceId
111+ = lens _udsdsdDataSourceId
112+ (\ s a -> s{_udsdsdDataSourceId = a})
113113
114114-- | Delete a dataset for the person identified. Use me to indicate the
115115-- authenticated user. Only me is supported at this time.
116−udsddUserId :: Lens' UsersDataSourcesDatasetsDelete Text
117−udsddUserId
118− = lens _udsddUserId (\ s a -> s{_udsddUserId = a})
116+udsdsdUserId :: Lens' UsersDataSourcesDataSetsDelete Text
117+udsdsdUserId
118+ = lens _udsdsdUserId (\ s a -> s{_udsdsdUserId = a})
119119
120120-- | Dataset identifier that is a composite of the minimum data point start
121121-- time and maximum data point end time represented as nanoseconds from the
122122-- epoch. The ID is formatted like: \"startTime-endTime\" where startTime
123123-- and endTime are 64 bit integers.
124−udsddDatasetId :: Lens' UsersDataSourcesDatasetsDelete Text
125−udsddDatasetId
126− = lens _udsddDatasetId
127− (\ s a -> s{_udsddDatasetId = a})
124+udsdsdDataSetId :: Lens' UsersDataSourcesDataSetsDelete Text
125+udsdsdDataSetId
126+ = lens _udsdsdDataSetId
127+ (\ s a -> s{_udsdsdDataSetId = a})
128128
129129-- | When the operation was performed on the client.
130−udsddModifiedTimeMillis :: Lens' UsersDataSourcesDatasetsDelete (Maybe Int64)
131−udsddModifiedTimeMillis
132− = lens _udsddModifiedTimeMillis
133− (\ s a -> s{_udsddModifiedTimeMillis = a})
130+udsdsdModifiedTimeMillis :: Lens' UsersDataSourcesDataSetsDelete (Maybe Int64)
131+udsdsdModifiedTimeMillis
132+ = lens _udsdsdModifiedTimeMillis
133+ (\ s a -> s{_udsdsdModifiedTimeMillis = a})
134134
135135-- | The client\'s current time in milliseconds since epoch.
136−udsddCurrentTimeMillis :: Lens' UsersDataSourcesDatasetsDelete (Maybe Int64)
137−udsddCurrentTimeMillis
138− = lens _udsddCurrentTimeMillis
139− (\ s a -> s{_udsddCurrentTimeMillis = a})
136+udsdsdCurrentTimeMillis :: Lens' UsersDataSourcesDataSetsDelete (Maybe Int64)
137+udsdsdCurrentTimeMillis
138+ = lens _udsdsdCurrentTimeMillis
139+ (\ s a -> s{_udsdsdCurrentTimeMillis = a})
140140
141−instance GoogleRequest UsersDataSourcesDatasetsDelete
141+instance GoogleRequest UsersDataSourcesDataSetsDelete
142142 where
143− type Rs UsersDataSourcesDatasetsDelete = ()
144− requestClient UsersDataSourcesDatasetsDelete{..}
145− = go _udsddUserId _udsddDataSourceId _udsddDatasetId
146− _udsddModifiedTimeMillis
147− _udsddCurrentTimeMillis
143+ type Rs UsersDataSourcesDataSetsDelete = ()
144+ requestClient UsersDataSourcesDataSetsDelete{..}
145+ = go _udsdsdUserId _udsdsdDataSourceId
146+ _udsdsdDataSetId
147+ _udsdsdModifiedTimeMillis
148+ _udsdsdCurrentTimeMillis
148149 (Just AltJSON)
149150 fitnessService
150151 where go
151152 = buildClient
152153 (Proxy ::
153− Proxy UsersDataSourcesDatasetsDeleteResource)
154+ Proxy UsersDataSourcesDataSetsDeleteResource)
154155 mempty
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Get.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Get.hsrenamed+64−63
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Fitness.Users.DataSources.Datasets.Get
16+-- Module : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -27,29 +27,29 @@
2727-- or equal to the dataset start time.
2828--
2929-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.datasets.get@.
30−module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Get
30+module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get
3131 (
3232 -- * REST Resource
33− UsersDataSourcesDatasetsGetResource
33+ UsersDataSourcesDataSetsGetResource
3434
3535 -- * Creating a Request
36− , usersDataSourcesDatasetsGet
37− , UsersDataSourcesDatasetsGet
36+ , usersDataSourcesDataSetsGet
37+ , UsersDataSourcesDataSetsGet
3838
3939 -- * Request Lenses
40− , udsdgDataSourceId
41− , udsdgUserId
42− , udsdgDatasetId
43− , udsdgLimit
44− , udsdgPageToken
40+ , udsdsgDataSourceId
41+ , udsdsgUserId
42+ , udsdsgDataSetId
43+ , udsdsgLimit
44+ , udsdsgPageToken
4545 ) where
4646
4747import Network.Google.Fitness.Types
4848import Network.Google.Prelude
4949
5050-- | A resource alias for @fitness.users.dataSources.datasets.get@ method which the
51−-- 'UsersDataSourcesDatasetsGet' request conforms to.
52−type UsersDataSourcesDatasetsGetResource =
51+-- 'UsersDataSourcesDataSetsGet' request conforms to.
52+type UsersDataSourcesDataSetsGetResource =
5353 Capture "userId" Text :>
5454 "dataSources" :>
5555 Capture "dataSourceId" Text :>
@@ -57,7 +57,7 @@ type UsersDataSourcesDatasetsGetResource =
5757 Capture "datasetId" Text :>
5858 QueryParam "limit" Int32 :>
5959 QueryParam "pageToken" Text :>
60− QueryParam "alt" AltJSON :> Get '[JSON] Dataset
60+ QueryParam "alt" AltJSON :> Get '[JSON] DataSet
6161
6262-- | Returns a dataset containing all data points whose start and end times
6363-- overlap with the specified range of the dataset minimum start time and
@@ -65,90 +65,91 @@ type UsersDataSourcesDatasetsGetResource =
6565-- than or equal to the dataset end time and whose end time is greater than
6666-- or equal to the dataset start time.
6767--
68−-- /See:/ 'usersDataSourcesDatasetsGet' smart constructor.
69−data UsersDataSourcesDatasetsGet = UsersDataSourcesDatasetsGet
70− { _udsdgDataSourceId :: !Text
71− , _udsdgUserId :: !Text
72− , _udsdgDatasetId :: !Text
73− , _udsdgLimit :: !(Maybe Int32)
74− , _udsdgPageToken :: !(Maybe Text)
68+-- /See:/ 'usersDataSourcesDataSetsGet' smart constructor.
69+data UsersDataSourcesDataSetsGet = UsersDataSourcesDataSetsGet
70+ { _udsdsgDataSourceId :: !Text
71+ , _udsdsgUserId :: !Text
72+ , _udsdsgDataSetId :: !Text
73+ , _udsdsgLimit :: !(Maybe Int32)
74+ , _udsdsgPageToken :: !(Maybe Text)
7575 } deriving (Eq,Show,Data,Typeable,Generic)
7676
77−-- | Creates a value of 'UsersDataSourcesDatasetsGet' with the minimum fields required to make a request.
77+-- | Creates a value of 'UsersDataSourcesDataSetsGet' with the minimum fields required to make a request.
7878--
7979-- Use one of the following lenses to modify other fields as desired:
8080--
81−-- * 'udsdgDataSourceId'
81+-- * 'udsdsgDataSourceId'
8282--
83−-- * 'udsdgUserId'
83+-- * 'udsdsgUserId'
8484--
85−-- * 'udsdgDatasetId'
85+-- * 'udsdsgDataSetId'
8686--
87−-- * 'udsdgLimit'
87+-- * 'udsdsgLimit'
8888--
89−-- * 'udsdgPageToken'
90−usersDataSourcesDatasetsGet
91− :: Text -- ^ 'udsdgDataSourceId'
92− -> Text -- ^ 'udsdgUserId'
93− -> Text -- ^ 'udsdgDatasetId'
94− -> UsersDataSourcesDatasetsGet
95−usersDataSourcesDatasetsGet pUdsdgDataSourceId_ pUdsdgUserId_ pUdsdgDatasetId_ =
96− UsersDataSourcesDatasetsGet
97− { _udsdgDataSourceId = pUdsdgDataSourceId_
98− , _udsdgUserId = pUdsdgUserId_
99− , _udsdgDatasetId = pUdsdgDatasetId_
100− , _udsdgLimit = Nothing
101− , _udsdgPageToken = Nothing
89+-- * 'udsdsgPageToken'
90+usersDataSourcesDataSetsGet
91+ :: Text -- ^ 'udsdsgDataSourceId'
92+ -> Text -- ^ 'udsdsgUserId'
93+ -> Text -- ^ 'udsdsgDataSetId'
94+ -> UsersDataSourcesDataSetsGet
95+usersDataSourcesDataSetsGet pUdsdsgDataSourceId_ pUdsdsgUserId_ pUdsdsgDataSetId_ =
96+ UsersDataSourcesDataSetsGet
97+ { _udsdsgDataSourceId = pUdsdsgDataSourceId_
98+ , _udsdsgUserId = pUdsdsgUserId_
99+ , _udsdsgDataSetId = pUdsdsgDataSetId_
100+ , _udsdsgLimit = Nothing
101+ , _udsdsgPageToken = Nothing
102102 }
103103
104104-- | The data stream ID of the data source that created the dataset.
105−udsdgDataSourceId :: Lens' UsersDataSourcesDatasetsGet Text
106−udsdgDataSourceId
107− = lens _udsdgDataSourceId
108− (\ s a -> s{_udsdgDataSourceId = a})
105+udsdsgDataSourceId :: Lens' UsersDataSourcesDataSetsGet Text
106+udsdsgDataSourceId
107+ = lens _udsdsgDataSourceId
108+ (\ s a -> s{_udsdsgDataSourceId = a})
109109
110110-- | Retrieve a dataset for the person identified. Use me to indicate the
111111-- authenticated user. Only me is supported at this time.
112−udsdgUserId :: Lens' UsersDataSourcesDatasetsGet Text
113−udsdgUserId
114− = lens _udsdgUserId (\ s a -> s{_udsdgUserId = a})
112+udsdsgUserId :: Lens' UsersDataSourcesDataSetsGet Text
113+udsdsgUserId
114+ = lens _udsdsgUserId (\ s a -> s{_udsdsgUserId = a})
115115
116116-- | Dataset identifier that is a composite of the minimum data point start
117117-- time and maximum data point end time represented as nanoseconds from the
118118-- epoch. The ID is formatted like: \"startTime-endTime\" where startTime
119119-- and endTime are 64 bit integers.
120−udsdgDatasetId :: Lens' UsersDataSourcesDatasetsGet Text
121−udsdgDatasetId
122− = lens _udsdgDatasetId
123− (\ s a -> s{_udsdgDatasetId = a})
120+udsdsgDataSetId :: Lens' UsersDataSourcesDataSetsGet Text
121+udsdsgDataSetId
122+ = lens _udsdsgDataSetId
123+ (\ s a -> s{_udsdsgDataSetId = a})
124124
125125-- | If specified, no more than this many data points will be included in the
126126-- dataset. If the there are more data points in the dataset, nextPageToken
127127-- will be set in the dataset response.
128−udsdgLimit :: Lens' UsersDataSourcesDatasetsGet (Maybe Int32)
129−udsdgLimit
130− = lens _udsdgLimit (\ s a -> s{_udsdgLimit = a})
128+udsdsgLimit :: Lens' UsersDataSourcesDataSetsGet (Maybe Int32)
129+udsdsgLimit
130+ = lens _udsdsgLimit (\ s a -> s{_udsdsgLimit = a})
131131
132132-- | The continuation token, which is used to page through large datasets. To
133133-- get the next page of a dataset, set this parameter to the value of
134134-- nextPageToken from the previous response. Each subsequent call will
135135-- yield a partial dataset with data point end timestamps that are strictly
136136-- smaller than those in the previous partial response.
137−udsdgPageToken :: Lens' UsersDataSourcesDatasetsGet (Maybe Text)
138−udsdgPageToken
139− = lens _udsdgPageToken
140− (\ s a -> s{_udsdgPageToken = a})
137+udsdsgPageToken :: Lens' UsersDataSourcesDataSetsGet (Maybe Text)
138+udsdsgPageToken
139+ = lens _udsdsgPageToken
140+ (\ s a -> s{_udsdsgPageToken = a})
141141
142−instance GoogleRequest UsersDataSourcesDatasetsGet
142+instance GoogleRequest UsersDataSourcesDataSetsGet
143143 where
144− type Rs UsersDataSourcesDatasetsGet = Dataset
145− requestClient UsersDataSourcesDatasetsGet{..}
146− = go _udsdgUserId _udsdgDataSourceId _udsdgDatasetId
147− _udsdgLimit
148− _udsdgPageToken
144+ type Rs UsersDataSourcesDataSetsGet = DataSet
145+ requestClient UsersDataSourcesDataSetsGet{..}
146+ = go _udsdsgUserId _udsdsgDataSourceId
147+ _udsdsgDataSetId
148+ _udsdsgLimit
149+ _udsdsgPageToken
149150 (Just AltJSON)
150151 fitnessService
151152 where go
152153 = buildClient
153− (Proxy :: Proxy UsersDataSourcesDatasetsGetResource)
154+ (Proxy :: Proxy UsersDataSourcesDataSetsGetResource)
154155 mempty
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Patch.hs → gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Patch.hsrenamed+66−64
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Fitness.Users.DataSources.Datasets.Patch
16+-- Module : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -26,29 +26,29 @@
2626-- than one dataset. This method does not use patch semantics.
2727--
2828-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.datasets.patch@.
29−module Network.Google.Resource.Fitness.Users.DataSources.Datasets.Patch
29+module Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch
3030 (
3131 -- * REST Resource
32− UsersDataSourcesDatasetsPatchResource
32+ UsersDataSourcesDataSetsPatchResource
3333
3434 -- * Creating a Request
35− , usersDataSourcesDatasetsPatch
36− , UsersDataSourcesDatasetsPatch
35+ , usersDataSourcesDataSetsPatch
36+ , UsersDataSourcesDataSetsPatch
3737
3838 -- * Request Lenses
39− , udsdpDataSourceId
40− , udsdpPayload
41− , udsdpUserId
42− , udsdpDatasetId
43− , udsdpCurrentTimeMillis
39+ , udsdspDataSourceId
40+ , udsdspPayload
41+ , udsdspUserId
42+ , udsdspDataSetId
43+ , udsdspCurrentTimeMillis
4444 ) where
4545
4646import Network.Google.Fitness.Types
4747import Network.Google.Prelude
4848
4949-- | A resource alias for @fitness.users.dataSources.datasets.patch@ method which the
50−-- 'UsersDataSourcesDatasetsPatch' request conforms to.
51−type UsersDataSourcesDatasetsPatchResource =
50+-- 'UsersDataSourcesDataSetsPatch' request conforms to.
51+type UsersDataSourcesDataSetsPatchResource =
5252 Capture "userId" Text :>
5353 "dataSources" :>
5454 Capture "dataSourceId" Text :>
@@ -56,95 +56,97 @@ type UsersDataSourcesDatasetsPatchResource =
5656 Capture "datasetId" Text :>
5757 QueryParam "currentTimeMillis" Int64 :>
5858 QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] Dataset :> Patch '[JSON] Dataset
59+ ReqBody '[JSON] DataSet :> Patch '[JSON] DataSet
6060
6161-- | Adds data points to a dataset. The dataset need not be previously
6262-- created. All points within the given dataset will be returned with
6363-- subsquent calls to retrieve this dataset. Data points can belong to more
6464-- than one dataset. This method does not use patch semantics.
6565--
66−-- /See:/ 'usersDataSourcesDatasetsPatch' smart constructor.
67−data UsersDataSourcesDatasetsPatch = UsersDataSourcesDatasetsPatch
68− { _udsdpDataSourceId :: !Text
69− , _udsdpPayload :: !Dataset
70− , _udsdpUserId :: !Text
71− , _udsdpDatasetId :: !Text
72− , _udsdpCurrentTimeMillis :: !(Maybe Int64)
66+-- /See:/ 'usersDataSourcesDataSetsPatch' smart constructor.
67+data UsersDataSourcesDataSetsPatch = UsersDataSourcesDataSetsPatch
68+ { _udsdspDataSourceId :: !Text
69+ , _udsdspPayload :: !DataSet
70+ , _udsdspUserId :: !Text
71+ , _udsdspDataSetId :: !Text
72+ , _udsdspCurrentTimeMillis :: !(Maybe Int64)
7373 } deriving (Eq,Show,Data,Typeable,Generic)
7474
75−-- | Creates a value of 'UsersDataSourcesDatasetsPatch' with the minimum fields required to make a request.
75+-- | Creates a value of 'UsersDataSourcesDataSetsPatch' with the minimum fields required to make a request.
7676--
7777-- Use one of the following lenses to modify other fields as desired:
7878--
79−-- * 'udsdpDataSourceId'
79+-- * 'udsdspDataSourceId'
8080--
81−-- * 'udsdpPayload'
81+-- * 'udsdspPayload'
8282--
83−-- * 'udsdpUserId'
83+-- * 'udsdspUserId'
8484--
85−-- * 'udsdpDatasetId'
85+-- * 'udsdspDataSetId'
8686--
87−-- * 'udsdpCurrentTimeMillis'
88−usersDataSourcesDatasetsPatch
89− :: Text -- ^ 'udsdpDataSourceId'
90− -> Dataset -- ^ 'udsdpPayload'
91− -> Text -- ^ 'udsdpUserId'
92− -> Text -- ^ 'udsdpDatasetId'
93− -> UsersDataSourcesDatasetsPatch
94−usersDataSourcesDatasetsPatch pUdsdpDataSourceId_ pUdsdpPayload_ pUdsdpUserId_ pUdsdpDatasetId_ =
95− UsersDataSourcesDatasetsPatch
96− { _udsdpDataSourceId = pUdsdpDataSourceId_
97− , _udsdpPayload = pUdsdpPayload_
98− , _udsdpUserId = pUdsdpUserId_
99− , _udsdpDatasetId = pUdsdpDatasetId_
100− , _udsdpCurrentTimeMillis = Nothing
87+-- * 'udsdspCurrentTimeMillis'
88+usersDataSourcesDataSetsPatch
89+ :: Text -- ^ 'udsdspDataSourceId'
90+ -> DataSet -- ^ 'udsdspPayload'
91+ -> Text -- ^ 'udsdspUserId'
92+ -> Text -- ^ 'udsdspDataSetId'
93+ -> UsersDataSourcesDataSetsPatch
94+usersDataSourcesDataSetsPatch pUdsdspDataSourceId_ pUdsdspPayload_ pUdsdspUserId_ pUdsdspDataSetId_ =
95+ UsersDataSourcesDataSetsPatch
96+ { _udsdspDataSourceId = pUdsdspDataSourceId_
97+ , _udsdspPayload = pUdsdspPayload_
98+ , _udsdspUserId = pUdsdspUserId_
99+ , _udsdspDataSetId = pUdsdspDataSetId_
100+ , _udsdspCurrentTimeMillis = Nothing
101101 }
102102
103103-- | The data stream ID of the data source that created the dataset.
104−udsdpDataSourceId :: Lens' UsersDataSourcesDatasetsPatch Text
105−udsdpDataSourceId
106− = lens _udsdpDataSourceId
107− (\ s a -> s{_udsdpDataSourceId = a})
104+udsdspDataSourceId :: Lens' UsersDataSourcesDataSetsPatch Text
105+udsdspDataSourceId
106+ = lens _udsdspDataSourceId
107+ (\ s a -> s{_udsdspDataSourceId = a})
108108
109109-- | Multipart request metadata.
110−udsdpPayload :: Lens' UsersDataSourcesDatasetsPatch Dataset
111−udsdpPayload
112− = lens _udsdpPayload (\ s a -> s{_udsdpPayload = a})
110+udsdspPayload :: Lens' UsersDataSourcesDataSetsPatch DataSet
111+udsdspPayload
112+ = lens _udsdspPayload
113+ (\ s a -> s{_udsdspPayload = a})
113114
114115-- | Patch a dataset for the person identified. Use me to indicate the
115116-- authenticated user. Only me is supported at this time.
116−udsdpUserId :: Lens' UsersDataSourcesDatasetsPatch Text
117−udsdpUserId
118− = lens _udsdpUserId (\ s a -> s{_udsdpUserId = a})
117+udsdspUserId :: Lens' UsersDataSourcesDataSetsPatch Text
118+udsdspUserId
119+ = lens _udsdspUserId (\ s a -> s{_udsdspUserId = a})
119120
120121-- | Dataset identifier that is a composite of the minimum data point start
121122-- time and maximum data point end time represented as nanoseconds from the
122123-- epoch. The ID is formatted like: \"startTime-endTime\" where startTime
123124-- and endTime are 64 bit integers.
124−udsdpDatasetId :: Lens' UsersDataSourcesDatasetsPatch Text
125−udsdpDatasetId
126− = lens _udsdpDatasetId
127− (\ s a -> s{_udsdpDatasetId = a})
125+udsdspDataSetId :: Lens' UsersDataSourcesDataSetsPatch Text
126+udsdspDataSetId
127+ = lens _udsdspDataSetId
128+ (\ s a -> s{_udsdspDataSetId = a})
128129
129130-- | The client\'s current time in milliseconds since epoch. Note that the
130131-- minStartTimeNs and maxEndTimeNs properties in the request body are in
131132-- nanoseconds instead of milliseconds.
132−udsdpCurrentTimeMillis :: Lens' UsersDataSourcesDatasetsPatch (Maybe Int64)
133−udsdpCurrentTimeMillis
134− = lens _udsdpCurrentTimeMillis
135− (\ s a -> s{_udsdpCurrentTimeMillis = a})
133+udsdspCurrentTimeMillis :: Lens' UsersDataSourcesDataSetsPatch (Maybe Int64)
134+udsdspCurrentTimeMillis
135+ = lens _udsdspCurrentTimeMillis
136+ (\ s a -> s{_udsdspCurrentTimeMillis = a})
136137
137−instance GoogleRequest UsersDataSourcesDatasetsPatch
138+instance GoogleRequest UsersDataSourcesDataSetsPatch
138139 where
139− type Rs UsersDataSourcesDatasetsPatch = Dataset
140− requestClient UsersDataSourcesDatasetsPatch{..}
141− = go _udsdpUserId _udsdpDataSourceId _udsdpDatasetId
142− _udsdpCurrentTimeMillis
140+ type Rs UsersDataSourcesDataSetsPatch = DataSet
141+ requestClient UsersDataSourcesDataSetsPatch{..}
142+ = go _udsdspUserId _udsdspDataSourceId
143+ _udsdspDataSetId
144+ _udsdspCurrentTimeMillis
143145 (Just AltJSON)
144− _udsdpPayload
146+ _udsdspPayload
145147 fitnessService
146148 where go
147149 = buildClient
148150 (Proxy ::
149− Proxy UsersDataSourcesDatasetsPatchResource)
151+ Proxy UsersDataSourcesDataSetsPatchResource)
150152 mempty
gogol-fitness/gogol-fitness.cabal+4−4
@@ -35,16 +35,16 @@ library
3535 exposed-modules:
3636 Network.Google.Fitness
3737 , Network.Google.Fitness.Types
38+ , Network.Google.Resource.Fitness.Users.DataSet.Aggregate
3839 , Network.Google.Resource.Fitness.Users.DataSources.Create
39− , Network.Google.Resource.Fitness.Users.DataSources.Datasets.Delete
40− , Network.Google.Resource.Fitness.Users.DataSources.Datasets.Get
41− , Network.Google.Resource.Fitness.Users.DataSources.Datasets.Patch
40+ , Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete
41+ , Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get
42+ , Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch
4243 , Network.Google.Resource.Fitness.Users.DataSources.Delete
4344 , Network.Google.Resource.Fitness.Users.DataSources.Get
4445 , Network.Google.Resource.Fitness.Users.DataSources.List
4546 , Network.Google.Resource.Fitness.Users.DataSources.Patch
4647 , Network.Google.Resource.Fitness.Users.DataSources.Update
47− , Network.Google.Resource.Fitness.Users.Dataset.Aggregate
4848 , Network.Google.Resource.Fitness.Users.Sessions.Delete
4949 , Network.Google.Resource.Fitness.Users.Sessions.List
5050 , Network.Google.Resource.Fitness.Users.Sessions.Update
gogol-fonts/gen/Network/Google/Fonts.hs+1−1
@@ -40,7 +40,7 @@ module Network.Google.Fonts
4040 , wFamily
4141 , wVersion
4242 , wFiles
43− , wSubsets
43+ , wSubSets
4444 , wLastModified
4545
4646 -- ** WebfontList
gogol-fonts/gen/Network/Google/Fonts/Types.hs+1−1
@@ -27,7 +27,7 @@ module Network.Google.Fonts.Types
2727 , wFamily
2828 , wVersion
2929 , wFiles
30− , wSubsets
30+ , wSubSets
3131 , wLastModified
3232
3333 -- * WebfontList
gogol-fonts/gen/Network/Google/Fonts/Types/Product.hs+7−7
@@ -29,7 +29,7 @@ data Webfont = Webfont
2929 , _wFamily :: !(Maybe Text)
3030 , _wVersion :: !(Maybe Text)
3131 , _wFiles :: !(Maybe WebfontFiles)
32− , _wSubsets :: !(Maybe [Text])
32+ , _wSubSets :: !(Maybe [Text])
3333 , _wLastModified :: !(Maybe Date')
3434 } deriving (Eq,Show,Data,Typeable,Generic)
3535
@@ -49,7 +49,7 @@ data Webfont = Webfont
4949--
5050-- * 'wFiles'
5151--
52−-- * 'wSubsets'
52+-- * 'wSubSets'
5353--
5454-- * 'wLastModified'
5555webfont
@@ -62,7 +62,7 @@ webfont =
6262 , _wFamily = Nothing
6363 , _wVersion = Nothing
6464 , _wFiles = Nothing
65− , _wSubsets = Nothing
65+ , _wSubSets = Nothing
6666 , _wLastModified = Nothing
6767 }
6868
@@ -96,9 +96,9 @@ wFiles :: Lens' Webfont (Maybe WebfontFiles)
9696wFiles = lens _wFiles (\ s a -> s{_wFiles = a})
9797
9898-- | The scripts supported by the font.
99−wSubsets :: Lens' Webfont [Text]
100−wSubsets
101− = lens _wSubsets (\ s a -> s{_wSubsets = a}) .
99+wSubSets :: Lens' Webfont [Text]
100+wSubSets
101+ = lens _wSubSets (\ s a -> s{_wSubSets = a}) .
102102 _Default
103103 . _Coerce
104104
@@ -134,7 +134,7 @@ instance ToJSON Webfont where
134134 ("family" .=) <$> _wFamily,
135135 ("version" .=) <$> _wVersion,
136136 ("files" .=) <$> _wFiles,
137− ("subsets" .=) <$> _wSubsets,
137+ ("subsets" .=) <$> _wSubSets,
138138 ("lastModified" .=) <$> _wLastModified])
139139
140140--
gogol-genomics/gen/Network/Google/Genomics.hs+130−130
@@ -28,46 +28,46 @@ module Network.Google.Genomics
2828 -- * Resources
2929
3030 -- ** genomics.callsets.create
31− , module Network.Google.Resource.Genomics.Callsets.Create
31+ , module Network.Google.Resource.Genomics.CallSets.Create
3232
3333 -- ** genomics.callsets.delete
34− , module Network.Google.Resource.Genomics.Callsets.Delete
34+ , module Network.Google.Resource.Genomics.CallSets.Delete
3535
3636 -- ** genomics.callsets.get
37− , module Network.Google.Resource.Genomics.Callsets.Get
37+ , module Network.Google.Resource.Genomics.CallSets.Get
3838
3939 -- ** genomics.callsets.patch
40− , module Network.Google.Resource.Genomics.Callsets.Patch
40+ , module Network.Google.Resource.Genomics.CallSets.Patch
4141
4242 -- ** genomics.callsets.search
43− , module Network.Google.Resource.Genomics.Callsets.Search
43+ , module Network.Google.Resource.Genomics.CallSets.Search
4444
4545 -- ** genomics.datasets.create
46− , module Network.Google.Resource.Genomics.Datasets.Create
46+ , module Network.Google.Resource.Genomics.DataSets.Create
4747
4848 -- ** genomics.datasets.delete
49− , module Network.Google.Resource.Genomics.Datasets.Delete
49+ , module Network.Google.Resource.Genomics.DataSets.Delete
5050
5151 -- ** genomics.datasets.get
52− , module Network.Google.Resource.Genomics.Datasets.Get
52+ , module Network.Google.Resource.Genomics.DataSets.Get
5353
5454 -- ** genomics.datasets.getIamPolicy
55− , module Network.Google.Resource.Genomics.Datasets.GetIAMPolicy
55+ , module Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
5656
5757 -- ** genomics.datasets.list
58− , module Network.Google.Resource.Genomics.Datasets.List
58+ , module Network.Google.Resource.Genomics.DataSets.List
5959
6060 -- ** genomics.datasets.patch
61− , module Network.Google.Resource.Genomics.Datasets.Patch
61+ , module Network.Google.Resource.Genomics.DataSets.Patch
6262
6363 -- ** genomics.datasets.setIamPolicy
64− , module Network.Google.Resource.Genomics.Datasets.SetIAMPolicy
64+ , module Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
6565
6666 -- ** genomics.datasets.testIamPermissions
67− , module Network.Google.Resource.Genomics.Datasets.TestIAMPermissions
67+ , module Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
6868
6969 -- ** genomics.datasets.undelete
70− , module Network.Google.Resource.Genomics.Datasets.Undelete
70+ , module Network.Google.Resource.Genomics.DataSets.Undelete
7171
7272 -- ** genomics.operations.cancel
7373 , module Network.Google.Resource.Genomics.Operations.Cancel
@@ -82,25 +82,25 @@ module Network.Google.Genomics
8282 , module Network.Google.Resource.Genomics.Operations.List
8383
8484 -- ** genomics.readgroupsets.coveragebuckets.list
85− , module Network.Google.Resource.Genomics.Readgroupsets.Coveragebuckets.List
85+ , module Network.Google.Resource.Genomics.ReadGroupSets.CoverageBuckets.List
8686
8787 -- ** genomics.readgroupsets.delete
88− , module Network.Google.Resource.Genomics.Readgroupsets.Delete
88+ , module Network.Google.Resource.Genomics.ReadGroupSets.Delete
8989
9090 -- ** genomics.readgroupsets.export
91− , module Network.Google.Resource.Genomics.Readgroupsets.Export
91+ , module Network.Google.Resource.Genomics.ReadGroupSets.Export
9292
9393 -- ** genomics.readgroupsets.get
94− , module Network.Google.Resource.Genomics.Readgroupsets.Get
94+ , module Network.Google.Resource.Genomics.ReadGroupSets.Get
9595
9696 -- ** genomics.readgroupsets.import
97− , module Network.Google.Resource.Genomics.Readgroupsets.Import
97+ , module Network.Google.Resource.Genomics.ReadGroupSets.Import
9898
9999 -- ** genomics.readgroupsets.patch
100− , module Network.Google.Resource.Genomics.Readgroupsets.Patch
100+ , module Network.Google.Resource.Genomics.ReadGroupSets.Patch
101101
102102 -- ** genomics.readgroupsets.search
103− , module Network.Google.Resource.Genomics.Readgroupsets.Search
103+ , module Network.Google.Resource.Genomics.ReadGroupSets.Search
104104
105105 -- ** genomics.reads.search
106106 , module Network.Google.Resource.Genomics.Reads.Search
@@ -139,22 +139,22 @@ module Network.Google.Genomics
139139 , module Network.Google.Resource.Genomics.Variants.Search
140140
141141 -- ** genomics.variantsets.create
142− , module Network.Google.Resource.Genomics.Variantsets.Create
142+ , module Network.Google.Resource.Genomics.VariantSets.Create
143143
144144 -- ** genomics.variantsets.delete
145− , module Network.Google.Resource.Genomics.Variantsets.Delete
145+ , module Network.Google.Resource.Genomics.VariantSets.Delete
146146
147147 -- ** genomics.variantsets.export
148− , module Network.Google.Resource.Genomics.Variantsets.Export
148+ , module Network.Google.Resource.Genomics.VariantSets.Export
149149
150150 -- ** genomics.variantsets.get
151− , module Network.Google.Resource.Genomics.Variantsets.Get
151+ , module Network.Google.Resource.Genomics.VariantSets.Get
152152
153153 -- ** genomics.variantsets.patch
154− , module Network.Google.Resource.Genomics.Variantsets.Patch
154+ , module Network.Google.Resource.Genomics.VariantSets.Patch
155155
156156 -- ** genomics.variantsets.search
157− , module Network.Google.Resource.Genomics.Variantsets.Search
157+ , module Network.Google.Resource.Genomics.VariantSets.Search
158158
159159 -- * Types
160160
@@ -196,7 +196,7 @@ module Network.Google.Genomics
196196 , ListBasesResponse
197197 , listBasesResponse
198198 , lbrNextPageToken
199− , lbrOffset
199+ , lbrOffSet
200200 , lbrSequence
201201
202202 -- ** ListOperationsResponse
@@ -213,34 +213,34 @@ module Network.Google.Genomics
213213 , CancelOperationRequest
214214 , cancelOperationRequest
215215
216− -- ** Dataset
217− , Dataset
218− , dataset
219− , dName
220− , dId
221− , dProjectId
222− , dCreateTime
216+ -- ** DataSet
217+ , DataSet
218+ , dataSet
219+ , dsName
220+ , dsId
221+ , dsProjectId
222+ , dsCreateTime
223223
224224 -- ** Read'
225225 , Read'
226226 , read'
227− , reaFragmentLength
228− , reaDuplicateFragment
229− , reaReadGroupSetId
230− , reaNextMatePosition
231− , reaFailedVendorQualityChecks
232− , reaAlignment
233− , reaFragmentName
234− , reaNumberReads
235− , reaId
236− , reaSecondaryAlignment
237− , reaReadGroupId
238− , reaSupplementaryAlignment
239− , reaAlignedSequence
240− , reaProperPlacement
241− , reaInfo
242− , reaReadNumber
243− , reaAlignedQuality
227+ , rFragmentLength
228+ , rDuplicateFragment
229+ , rReadGroupSetId
230+ , rNextMatePosition
231+ , rFailedVendorQualityChecks
232+ , rAlignment
233+ , rFragmentName
234+ , rNumberReads
235+ , rId
236+ , rSecondaryAlignment
237+ , rReadGroupId
238+ , rSupplementaryAlignment
239+ , rAlignedSequence
240+ , rProperPlacement
241+ , rInfo
242+ , rReadNumber
243+ , rAlignedQuality
244244
245245 -- ** VariantCall
246246 , VariantCall
@@ -255,16 +255,16 @@ module Network.Google.Genomics
255255 -- ** ReadGroup
256256 , ReadGroup
257257 , readGroup
258− , rReferenceSetId
259− , rPrograms
260− , rExperiment
261− , rName
262− , rDatasetId
263− , rId
264− , rSampleId
265− , rPredictedInsertSize
266− , rDescription
267− , rInfo
258+ , reaReferenceSetId
259+ , reaPrograms
260+ , reaExperiment
261+ , reaName
262+ , reaDataSetId
263+ , reaId
264+ , reaSampleId
265+ , reaPredictedInsertSize
266+ , reaDescription
267+ , reaInfo
268268
269269 -- ** Operation
270270 , Operation
@@ -324,7 +324,7 @@ module Network.Google.Genomics
324324 -- ** SearchReadGroupSetsRequest
325325 , SearchReadGroupSetsRequest
326326 , searchReadGroupSetsRequest
327− , srgsrDatasetIds
327+ , srgsrDataSetIds
328328 , srgsrName
329329 , srgsrPageToken
330330 , srgsrPageSize
@@ -398,7 +398,7 @@ module Network.Google.Genomics
398398 -- ** SearchVariantSetsRequest
399399 , SearchVariantSetsRequest
400400 , searchVariantSetsRequest
401− , svsrDatasetIds
401+ , svsrDataSetIds
402402 , svsrPageToken
403403 , svsrPageSize
404404
@@ -458,7 +458,7 @@ module Network.Google.Genomics
458458 , readGroupSet
459459 , rgsReferenceSetId
460460 , rgsName
461− , rgsDatasetId
461+ , rgsDataSetId
462462 , rgsId
463463 , rgsInfo
464464 , rgsReadGroups
@@ -503,7 +503,7 @@ module Network.Google.Genomics
503503 -- ** VariantSet
504504 , VariantSet
505505 , variantSet
506− , vsDatasetId
506+ , vsDataSetId
507507 , vsReferenceBounds
508508 , vsMetadata
509509 , vsId
@@ -513,17 +513,17 @@ module Network.Google.Genomics
513513 , testIAMPermissionsResponse
514514 , tiamprPermissions
515515
516− -- ** ListDatasetsResponse
517− , ListDatasetsResponse
518− , listDatasetsResponse
519− , ldrNextPageToken
520− , ldrDatasets
516+ -- ** ListDataSetsResponse
517+ , ListDataSetsResponse
518+ , listDataSetsResponse
519+ , ldsrNextPageToken
520+ , ldsrDataSets
521521
522522 -- ** ImportReadGroupSetsRequest
523523 , ImportReadGroupSetsRequest
524524 , importReadGroupSetsRequest
525525 , irgsrReferenceSetId
526− , irgsrDatasetId
526+ , irgsrDataSetId
527527 , irgsrSourceURIs
528528 , irgsrPartitionStrategy
529529
@@ -552,7 +552,7 @@ module Network.Google.Genomics
552552 -- ** ExportVariantSetRequest
553553 , ExportVariantSetRequest
554554 , exportVariantSetRequest
555− , evsrBigQueryDataset
555+ , evsrBigQueryDataSet
556556 , evsrBigQueryTable
557557 , evsrFormat
558558 , evsrCallSetIds
@@ -611,9 +611,9 @@ module Network.Google.Genomics
611611 , rbUpperBound
612612 , rbReferenceName
613613
614− -- ** UndeleteDatasetRequest
615− , UndeleteDatasetRequest
616− , undeleteDatasetRequest
614+ -- ** UndeleteDataSetRequest
615+ , UndeleteDataSetRequest
616+ , undeleteDataSetRequest
617617
618618 -- ** Binding
619619 , Binding
@@ -654,31 +654,31 @@ module Network.Google.Genomics
654654
655655import Network.Google.Genomics.Types
656656import Network.Google.Prelude
657−import Network.Google.Resource.Genomics.Callsets.Create
658−import Network.Google.Resource.Genomics.Callsets.Delete
659−import Network.Google.Resource.Genomics.Callsets.Get
660−import Network.Google.Resource.Genomics.Callsets.Patch
661−import Network.Google.Resource.Genomics.Callsets.Search
662−import Network.Google.Resource.Genomics.Datasets.Create
663−import Network.Google.Resource.Genomics.Datasets.Delete
664−import Network.Google.Resource.Genomics.Datasets.Get
665−import Network.Google.Resource.Genomics.Datasets.GetIAMPolicy
666−import Network.Google.Resource.Genomics.Datasets.List
667−import Network.Google.Resource.Genomics.Datasets.Patch
668−import Network.Google.Resource.Genomics.Datasets.SetIAMPolicy
669−import Network.Google.Resource.Genomics.Datasets.TestIAMPermissions
670−import Network.Google.Resource.Genomics.Datasets.Undelete
657+import Network.Google.Resource.Genomics.CallSets.Create
658+import Network.Google.Resource.Genomics.CallSets.Delete
659+import Network.Google.Resource.Genomics.CallSets.Get
660+import Network.Google.Resource.Genomics.CallSets.Patch
661+import Network.Google.Resource.Genomics.CallSets.Search
662+import Network.Google.Resource.Genomics.DataSets.Create
663+import Network.Google.Resource.Genomics.DataSets.Delete
664+import Network.Google.Resource.Genomics.DataSets.Get
665+import Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
666+import Network.Google.Resource.Genomics.DataSets.List
667+import Network.Google.Resource.Genomics.DataSets.Patch
668+import Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
669+import Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
670+import Network.Google.Resource.Genomics.DataSets.Undelete
671671import Network.Google.Resource.Genomics.Operations.Cancel
672672import Network.Google.Resource.Genomics.Operations.Delete
673673import Network.Google.Resource.Genomics.Operations.Get
674674import Network.Google.Resource.Genomics.Operations.List
675−import Network.Google.Resource.Genomics.Readgroupsets.Coveragebuckets.List
676−import Network.Google.Resource.Genomics.Readgroupsets.Delete
677−import Network.Google.Resource.Genomics.Readgroupsets.Export
678−import Network.Google.Resource.Genomics.Readgroupsets.Get
679−import Network.Google.Resource.Genomics.Readgroupsets.Import
680−import Network.Google.Resource.Genomics.Readgroupsets.Patch
681−import Network.Google.Resource.Genomics.Readgroupsets.Search
675+import Network.Google.Resource.Genomics.ReadGroupSets.CoverageBuckets.List
676+import Network.Google.Resource.Genomics.ReadGroupSets.Delete
677+import Network.Google.Resource.Genomics.ReadGroupSets.Export
678+import Network.Google.Resource.Genomics.ReadGroupSets.Get
679+import Network.Google.Resource.Genomics.ReadGroupSets.Import
680+import Network.Google.Resource.Genomics.ReadGroupSets.Patch
681+import Network.Google.Resource.Genomics.ReadGroupSets.Search
682682import Network.Google.Resource.Genomics.Reads.Search
683683import Network.Google.Resource.Genomics.References.Bases.List
684684import Network.Google.Resource.Genomics.References.Get
@@ -691,12 +691,12 @@ import Network.Google.Resource.Genomics.Variants.Get
691691import Network.Google.Resource.Genomics.Variants.Import
692692import Network.Google.Resource.Genomics.Variants.Patch
693693import Network.Google.Resource.Genomics.Variants.Search
694−import Network.Google.Resource.Genomics.Variantsets.Create
695−import Network.Google.Resource.Genomics.Variantsets.Delete
696−import Network.Google.Resource.Genomics.Variantsets.Export
697−import Network.Google.Resource.Genomics.Variantsets.Get
698−import Network.Google.Resource.Genomics.Variantsets.Patch
699−import Network.Google.Resource.Genomics.Variantsets.Search
694+import Network.Google.Resource.Genomics.VariantSets.Create
695+import Network.Google.Resource.Genomics.VariantSets.Delete
696+import Network.Google.Resource.Genomics.VariantSets.Export
697+import Network.Google.Resource.Genomics.VariantSets.Get
698+import Network.Google.Resource.Genomics.VariantSets.Patch
699+import Network.Google.Resource.Genomics.VariantSets.Search
700700
701701{- $resources
702702TODO
@@ -712,37 +712,37 @@ type GenomicsAPI =
712712 :<|> ReferencesBasesListResource
713713 :<|> ReferencesGetResource
714714 :<|> ReferencesSearchResource
715− :<|> VariantsetsExportResource
716− :<|> VariantsetsPatchResource
717− :<|> VariantsetsGetResource
718− :<|> VariantsetsCreateResource
719− :<|> VariantsetsSearchResource
720− :<|> VariantsetsDeleteResource
721− :<|> ReadgroupsetsCoveragebucketsListResource
722− :<|> ReadgroupsetsExportResource
723− :<|> ReadgroupsetsPatchResource
724− :<|> ReadgroupsetsGetResource
725− :<|> ReadgroupsetsImportResource
726− :<|> ReadgroupsetsSearchResource
727− :<|> ReadgroupsetsDeleteResource
715+ :<|> VariantSetsExportResource
716+ :<|> VariantSetsPatchResource
717+ :<|> VariantSetsGetResource
718+ :<|> VariantSetsCreateResource
719+ :<|> VariantSetsSearchResource
720+ :<|> VariantSetsDeleteResource
721+ :<|> ReadGroupSetsCoverageBucketsListResource
722+ :<|> ReadGroupSetsExportResource
723+ :<|> ReadGroupSetsPatchResource
724+ :<|> ReadGroupSetsGetResource
725+ :<|> ReadGroupSetsImportResource
726+ :<|> ReadGroupSetsSearchResource
727+ :<|> ReadGroupSetsDeleteResource
728728 :<|> ReferencesetsGetResource
729729 :<|> ReferencesetsSearchResource
730− :<|> CallsetsPatchResource
731− :<|> CallsetsGetResource
732− :<|> CallsetsCreateResource
733− :<|> CallsetsSearchResource
734− :<|> CallsetsDeleteResource
730+ :<|> CallSetsPatchResource
731+ :<|> CallSetsGetResource
732+ :<|> CallSetsCreateResource
733+ :<|> CallSetsSearchResource
734+ :<|> CallSetsDeleteResource
735735 :<|> OperationsListResource
736736 :<|> OperationsGetResource
737737 :<|> OperationsCancelResource
738738 :<|> OperationsDeleteResource
739739 :<|> ReadsSearchResource
740− :<|> DatasetsListResource
741− :<|> DatasetsUndeleteResource
742− :<|> DatasetsGetIAMPolicyResource
743− :<|> DatasetsPatchResource
744− :<|> DatasetsGetResource
745− :<|> DatasetsCreateResource
746− :<|> DatasetsSetIAMPolicyResource
747− :<|> DatasetsTestIAMPermissionsResource
748− :<|> DatasetsDeleteResource
740+ :<|> DataSetsListResource
741+ :<|> DataSetsUndeleteResource
742+ :<|> DataSetsGetIAMPolicyResource
743+ :<|> DataSetsPatchResource
744+ :<|> DataSetsGetResource
745+ :<|> DataSetsCreateResource
746+ :<|> DataSetsSetIAMPolicyResource
747+ :<|> DataSetsTestIAMPermissionsResource
748+ :<|> DataSetsDeleteResource
gogol-genomics/gen/Network/Google/Genomics/Types.hs+49−49
@@ -63,7 +63,7 @@ module Network.Google.Genomics.Types
6363 , ListBasesResponse
6464 , listBasesResponse
6565 , lbrNextPageToken
66− , lbrOffset
66+ , lbrOffSet
6767 , lbrSequence
6868
6969 -- * ListOperationsResponse
@@ -80,34 +80,34 @@ module Network.Google.Genomics.Types
8080 , CancelOperationRequest
8181 , cancelOperationRequest
8282
83− -- * Dataset
84− , Dataset
85− , dataset
86− , dName
87− , dId
88− , dProjectId
89− , dCreateTime
83+ -- * DataSet
84+ , DataSet
85+ , dataSet
86+ , dsName
87+ , dsId
88+ , dsProjectId
89+ , dsCreateTime
9090
9191 -- * Read'
9292 , Read'
9393 , read'
94− , reaFragmentLength
95− , reaDuplicateFragment
96− , reaReadGroupSetId
97− , reaNextMatePosition
98− , reaFailedVendorQualityChecks
99− , reaAlignment
100− , reaFragmentName
101− , reaNumberReads
102− , reaId
103− , reaSecondaryAlignment
104− , reaReadGroupId
105− , reaSupplementaryAlignment
106− , reaAlignedSequence
107− , reaProperPlacement
108− , reaInfo
109− , reaReadNumber
110− , reaAlignedQuality
94+ , rFragmentLength
95+ , rDuplicateFragment
96+ , rReadGroupSetId
97+ , rNextMatePosition
98+ , rFailedVendorQualityChecks
99+ , rAlignment
100+ , rFragmentName
101+ , rNumberReads
102+ , rId
103+ , rSecondaryAlignment
104+ , rReadGroupId
105+ , rSupplementaryAlignment
106+ , rAlignedSequence
107+ , rProperPlacement
108+ , rInfo
109+ , rReadNumber
110+ , rAlignedQuality
111111
112112 -- * VariantCall
113113 , VariantCall
@@ -122,16 +122,16 @@ module Network.Google.Genomics.Types
122122 -- * ReadGroup
123123 , ReadGroup
124124 , readGroup
125− , rReferenceSetId
126− , rPrograms
127− , rExperiment
128− , rName
129− , rDatasetId
130− , rId
131− , rSampleId
132− , rPredictedInsertSize
133− , rDescription
134− , rInfo
125+ , reaReferenceSetId
126+ , reaPrograms
127+ , reaExperiment
128+ , reaName
129+ , reaDataSetId
130+ , reaId
131+ , reaSampleId
132+ , reaPredictedInsertSize
133+ , reaDescription
134+ , reaInfo
135135
136136 -- * Operation
137137 , Operation
@@ -191,7 +191,7 @@ module Network.Google.Genomics.Types
191191 -- * SearchReadGroupSetsRequest
192192 , SearchReadGroupSetsRequest
193193 , searchReadGroupSetsRequest
194− , srgsrDatasetIds
194+ , srgsrDataSetIds
195195 , srgsrName
196196 , srgsrPageToken
197197 , srgsrPageSize
@@ -265,7 +265,7 @@ module Network.Google.Genomics.Types
265265 -- * SearchVariantSetsRequest
266266 , SearchVariantSetsRequest
267267 , searchVariantSetsRequest
268− , svsrDatasetIds
268+ , svsrDataSetIds
269269 , svsrPageToken
270270 , svsrPageSize
271271
@@ -325,7 +325,7 @@ module Network.Google.Genomics.Types
325325 , readGroupSet
326326 , rgsReferenceSetId
327327 , rgsName
328− , rgsDatasetId
328+ , rgsDataSetId
329329 , rgsId
330330 , rgsInfo
331331 , rgsReadGroups
@@ -370,7 +370,7 @@ module Network.Google.Genomics.Types
370370 -- * VariantSet
371371 , VariantSet
372372 , variantSet
373− , vsDatasetId
373+ , vsDataSetId
374374 , vsReferenceBounds
375375 , vsMetadata
376376 , vsId
@@ -380,17 +380,17 @@ module Network.Google.Genomics.Types
380380 , testIAMPermissionsResponse
381381 , tiamprPermissions
382382
383− -- * ListDatasetsResponse
384− , ListDatasetsResponse
385− , listDatasetsResponse
386− , ldrNextPageToken
387− , ldrDatasets
383+ -- * ListDataSetsResponse
384+ , ListDataSetsResponse
385+ , listDataSetsResponse
386+ , ldsrNextPageToken
387+ , ldsrDataSets
388388
389389 -- * ImportReadGroupSetsRequest
390390 , ImportReadGroupSetsRequest
391391 , importReadGroupSetsRequest
392392 , irgsrReferenceSetId
393− , irgsrDatasetId
393+ , irgsrDataSetId
394394 , irgsrSourceURIs
395395 , irgsrPartitionStrategy
396396
@@ -419,7 +419,7 @@ module Network.Google.Genomics.Types
419419 -- * ExportVariantSetRequest
420420 , ExportVariantSetRequest
421421 , exportVariantSetRequest
422− , evsrBigQueryDataset
422+ , evsrBigQueryDataSet
423423 , evsrBigQueryTable
424424 , evsrFormat
425425 , evsrCallSetIds
@@ -478,9 +478,9 @@ module Network.Google.Genomics.Types
478478 , rbUpperBound
479479 , rbReferenceName
480480
481− -- * UndeleteDatasetRequest
482− , UndeleteDatasetRequest
483− , undeleteDatasetRequest
481+ -- * UndeleteDataSetRequest
482+ , UndeleteDataSetRequest
483+ , undeleteDataSetRequest
484484
485485 -- * Binding
486486 , Binding
gogol-genomics/gen/Network/Google/Genomics/Types/Product.hs+329−328
@@ -369,7 +369,7 @@ instance ToJSON Variant where
369369-- /See:/ 'listBasesResponse' smart constructor.
370370data ListBasesResponse = ListBasesResponse
371371 { _lbrNextPageToken :: !(Maybe Text)
372− , _lbrOffset :: !(Maybe Int64)
372+ , _lbrOffSet :: !(Maybe Int64)
373373 , _lbrSequence :: !(Maybe Text)
374374 } deriving (Eq,Show,Data,Typeable,Generic)
375375
@@ -379,7 +379,7 @@ data ListBasesResponse = ListBasesResponse
379379--
380380-- * 'lbrNextPageToken'
381381--
382−-- * 'lbrOffset'
382+-- * 'lbrOffSet'
383383--
384384-- * 'lbrSequence'
385385listBasesResponse
@@ -387,7 +387,7 @@ listBasesResponse
387387listBasesResponse =
388388 ListBasesResponse
389389 { _lbrNextPageToken = Nothing
390− , _lbrOffset = Nothing
390+ , _lbrOffSet = Nothing
391391 , _lbrSequence = Nothing
392392 }
393393
@@ -403,9 +403,9 @@ lbrNextPageToken
403403-- | The offset position (0-based) of the given \`sequence\` from the start
404404-- of this \`Reference\`. This value will differ for each page in a
405405-- paginated request.
406−lbrOffset :: Lens' ListBasesResponse (Maybe Int64)
407−lbrOffset
408− = lens _lbrOffset (\ s a -> s{_lbrOffset = a})
406+lbrOffSet :: Lens' ListBasesResponse (Maybe Int64)
407+lbrOffSet
408+ = lens _lbrOffSet (\ s a -> s{_lbrOffSet = a})
409409
410410-- | A substring of the bases that make up this reference.
411411lbrSequence :: Lens' ListBasesResponse (Maybe Text)
@@ -425,7 +425,7 @@ instance ToJSON ListBasesResponse where
425425 = object
426426 (catMaybes
427427 [("nextPageToken" .=) <$> _lbrNextPageToken,
428− ("offset" .=) <$> _lbrOffset,
428+ ("offset" .=) <$> _lbrOffSet,
429429 ("sequence" .=) <$> _lbrSequence])
430430
431431-- | The response message for Operations.ListOperations.
@@ -524,69 +524,69 @@ instance ToJSON CancelOperationRequest where
524524
525525-- | A Dataset is a collection of genomic data.
526526--
527−-- /See:/ 'dataset' smart constructor.
528−data Dataset = Dataset
529− { _dName :: !(Maybe Text)
530− , _dId :: !(Maybe Text)
531− , _dProjectId :: !(Maybe Text)
532− , _dCreateTime :: !(Maybe Text)
527+-- /See:/ 'dataSet' smart constructor.
528+data DataSet = DataSet
529+ { _dsName :: !(Maybe Text)
530+ , _dsId :: !(Maybe Text)
531+ , _dsProjectId :: !(Maybe Text)
532+ , _dsCreateTime :: !(Maybe Text)
533533 } deriving (Eq,Show,Data,Typeable,Generic)
534534
535−-- | Creates a value of 'Dataset' with the minimum fields required to make a request.
535+-- | Creates a value of 'DataSet' with the minimum fields required to make a request.
536536--
537537-- Use one of the following lenses to modify other fields as desired:
538538--
539−-- * 'dName'
539+-- * 'dsName'
540540--
541−-- * 'dId'
541+-- * 'dsId'
542542--
543−-- * 'dProjectId'
543+-- * 'dsProjectId'
544544--
545−-- * 'dCreateTime'
546−dataset
547− :: Dataset
548−dataset =
549− Dataset
550− { _dName = Nothing
551− , _dId = Nothing
552− , _dProjectId = Nothing
553− , _dCreateTime = Nothing
545+-- * 'dsCreateTime'
546+dataSet
547+ :: DataSet
548+dataSet =
549+ DataSet
550+ { _dsName = Nothing
551+ , _dsId = Nothing
552+ , _dsProjectId = Nothing
553+ , _dsCreateTime = Nothing
554554 }
555555
556556-- | The dataset name.
557−dName :: Lens' Dataset (Maybe Text)
558−dName = lens _dName (\ s a -> s{_dName = a})
557+dsName :: Lens' DataSet (Maybe Text)
558+dsName = lens _dsName (\ s a -> s{_dsName = a})
559559
560560-- | The server-generated dataset ID, unique across all datasets.
561−dId :: Lens' Dataset (Maybe Text)
562−dId = lens _dId (\ s a -> s{_dId = a})
561+dsId :: Lens' DataSet (Maybe Text)
562+dsId = lens _dsId (\ s a -> s{_dsId = a})
563563
564564-- | The Google Developers Console project ID that this dataset belongs to.
565−dProjectId :: Lens' Dataset (Maybe Text)
566−dProjectId
567− = lens _dProjectId (\ s a -> s{_dProjectId = a})
565+dsProjectId :: Lens' DataSet (Maybe Text)
566+dsProjectId
567+ = lens _dsProjectId (\ s a -> s{_dsProjectId = a})
568568
569569-- | The time this dataset was created, in seconds from the epoch.
570−dCreateTime :: Lens' Dataset (Maybe Text)
571−dCreateTime
572− = lens _dCreateTime (\ s a -> s{_dCreateTime = a})
570+dsCreateTime :: Lens' DataSet (Maybe Text)
571+dsCreateTime
572+ = lens _dsCreateTime (\ s a -> s{_dsCreateTime = a})
573573
574−instance FromJSON Dataset where
574+instance FromJSON DataSet where
575575 parseJSON
576− = withObject "Dataset"
576+ = withObject "DataSet"
577577 (\ o ->
578− Dataset <$>
578+ DataSet <$>
579579 (o .:? "name") <*> (o .:? "id") <*>
580580 (o .:? "projectId")
581581 <*> (o .:? "createTime"))
582582
583−instance ToJSON Dataset where
584− toJSON Dataset{..}
583+instance ToJSON DataSet where
584+ toJSON DataSet{..}
585585 = object
586586 (catMaybes
587− [("name" .=) <$> _dName, ("id" .=) <$> _dId,
588− ("projectId" .=) <$> _dProjectId,
589− ("createTime" .=) <$> _dCreateTime])
587+ [("name" .=) <$> _dsName, ("id" .=) <$> _dsId,
588+ ("projectId" .=) <$> _dsProjectId,
589+ ("createTime" .=) <$> _dsCreateTime])
590590
591591-- | A read alignment describes a linear alignment of a string of DNA to a
592592-- reference sequence, in addition to metadata about the fragment (the
@@ -616,140 +616,139 @@ instance ToJSON Dataset where
616616--
617617-- /See:/ 'read'' smart constructor.
618618data Read' = Read'
619− { _reaFragmentLength :: !(Maybe Int32)
620− , _reaDuplicateFragment :: !(Maybe Bool)
621− , _reaReadGroupSetId :: !(Maybe Text)
622− , _reaNextMatePosition :: !(Maybe Position)
623− , _reaFailedVendorQualityChecks :: !(Maybe Bool)
624− , _reaAlignment :: !(Maybe LinearAlignment)
625− , _reaFragmentName :: !(Maybe Text)
626− , _reaNumberReads :: !(Maybe Int32)
627− , _reaId :: !(Maybe Text)
628− , _reaSecondaryAlignment :: !(Maybe Bool)
629− , _reaReadGroupId :: !(Maybe Text)
630− , _reaSupplementaryAlignment :: !(Maybe Bool)
631− , _reaAlignedSequence :: !(Maybe Text)
632− , _reaProperPlacement :: !(Maybe Bool)
633− , _reaInfo :: !(Maybe ReadInfo)
634− , _reaReadNumber :: !(Maybe Int32)
635− , _reaAlignedQuality :: !(Maybe [Int32])
619+ { _rFragmentLength :: !(Maybe Int32)
620+ , _rDuplicateFragment :: !(Maybe Bool)
621+ , _rReadGroupSetId :: !(Maybe Text)
622+ , _rNextMatePosition :: !(Maybe Position)
623+ , _rFailedVendorQualityChecks :: !(Maybe Bool)
624+ , _rAlignment :: !(Maybe LinearAlignment)
625+ , _rFragmentName :: !(Maybe Text)
626+ , _rNumberReads :: !(Maybe Int32)
627+ , _rId :: !(Maybe Text)
628+ , _rSecondaryAlignment :: !(Maybe Bool)
629+ , _rReadGroupId :: !(Maybe Text)
630+ , _rSupplementaryAlignment :: !(Maybe Bool)
631+ , _rAlignedSequence :: !(Maybe Text)
632+ , _rProperPlacement :: !(Maybe Bool)
633+ , _rInfo :: !(Maybe ReadInfo)
634+ , _rReadNumber :: !(Maybe Int32)
635+ , _rAlignedQuality :: !(Maybe [Int32])
636636 } deriving (Eq,Show,Data,Typeable,Generic)
637637
638638-- | Creates a value of 'Read' with the minimum fields required to make a request.
639639--
640640-- Use one of the following lenses to modify other fields as desired:
641641--
642−-- * 'reaFragmentLength'
642+-- * 'rFragmentLength'
643643--
644−-- * 'reaDuplicateFragment'
644+-- * 'rDuplicateFragment'
645645--
646−-- * 'reaReadGroupSetId'
646+-- * 'rReadGroupSetId'
647647--
648−-- * 'reaNextMatePosition'
648+-- * 'rNextMatePosition'
649649--
650−-- * 'reaFailedVendorQualityChecks'
650+-- * 'rFailedVendorQualityChecks'
651651--
652−-- * 'reaAlignment'
652+-- * 'rAlignment'
653653--
654−-- * 'reaFragmentName'
654+-- * 'rFragmentName'
655655--
656−-- * 'reaNumberReads'
656+-- * 'rNumberReads'
657657--
658−-- * 'reaId'
658+-- * 'rId'
659659--
660−-- * 'reaSecondaryAlignment'
660+-- * 'rSecondaryAlignment'
661661--
662−-- * 'reaReadGroupId'
662+-- * 'rReadGroupId'
663663--
664−-- * 'reaSupplementaryAlignment'
664+-- * 'rSupplementaryAlignment'
665665--
666−-- * 'reaAlignedSequence'
666+-- * 'rAlignedSequence'
667667--
668−-- * 'reaProperPlacement'
668+-- * 'rProperPlacement'
669669--
670−-- * 'reaInfo'
670+-- * 'rInfo'
671671--
672−-- * 'reaReadNumber'
672+-- * 'rReadNumber'
673673--
674−-- * 'reaAlignedQuality'
674+-- * 'rAlignedQuality'
675675read'
676676 :: Read'
677677read' =
678678 Read'
679− { _reaFragmentLength = Nothing
680− , _reaDuplicateFragment = Nothing
681− , _reaReadGroupSetId = Nothing
682− , _reaNextMatePosition = Nothing
683− , _reaFailedVendorQualityChecks = Nothing
684− , _reaAlignment = Nothing
685− , _reaFragmentName = Nothing
686− , _reaNumberReads = Nothing
687− , _reaId = Nothing
688− , _reaSecondaryAlignment = Nothing
689− , _reaReadGroupId = Nothing
690− , _reaSupplementaryAlignment = Nothing
691− , _reaAlignedSequence = Nothing
692− , _reaProperPlacement = Nothing
693− , _reaInfo = Nothing
694− , _reaReadNumber = Nothing
695− , _reaAlignedQuality = Nothing
679+ { _rFragmentLength = Nothing
680+ , _rDuplicateFragment = Nothing
681+ , _rReadGroupSetId = Nothing
682+ , _rNextMatePosition = Nothing
683+ , _rFailedVendorQualityChecks = Nothing
684+ , _rAlignment = Nothing
685+ , _rFragmentName = Nothing
686+ , _rNumberReads = Nothing
687+ , _rId = Nothing
688+ , _rSecondaryAlignment = Nothing
689+ , _rReadGroupId = Nothing
690+ , _rSupplementaryAlignment = Nothing
691+ , _rAlignedSequence = Nothing
692+ , _rProperPlacement = Nothing
693+ , _rInfo = Nothing
694+ , _rReadNumber = Nothing
695+ , _rAlignedQuality = Nothing
696696 }
697697
698698-- | The observed length of the fragment, equivalent to TLEN in SAM.
699−reaFragmentLength :: Lens' Read' (Maybe Int32)
700−reaFragmentLength
701− = lens _reaFragmentLength
702− (\ s a -> s{_reaFragmentLength = a})
699+rFragmentLength :: Lens' Read' (Maybe Int32)
700+rFragmentLength
701+ = lens _rFragmentLength
702+ (\ s a -> s{_rFragmentLength = a})
703703
704704-- | The fragment is a PCR or optical duplicate (SAM flag 0x400)
705−reaDuplicateFragment :: Lens' Read' (Maybe Bool)
706−reaDuplicateFragment
707− = lens _reaDuplicateFragment
708− (\ s a -> s{_reaDuplicateFragment = a})
705+rDuplicateFragment :: Lens' Read' (Maybe Bool)
706+rDuplicateFragment
707+ = lens _rDuplicateFragment
708+ (\ s a -> s{_rDuplicateFragment = a})
709709
710710-- | The ID of the read group set this read belongs to. (Every read must
711711-- belong to exactly one read group set.)
712−reaReadGroupSetId :: Lens' Read' (Maybe Text)
713−reaReadGroupSetId
714− = lens _reaReadGroupSetId
715− (\ s a -> s{_reaReadGroupSetId = a})
712+rReadGroupSetId :: Lens' Read' (Maybe Text)
713+rReadGroupSetId
714+ = lens _rReadGroupSetId
715+ (\ s a -> s{_rReadGroupSetId = a})
716716
717717-- | The mapping of the primary alignment of the
718718-- \`(readNumber+1)%numberReads\` read in the fragment. It replaces mate
719719-- position and mate strand in SAM.
720−reaNextMatePosition :: Lens' Read' (Maybe Position)
721−reaNextMatePosition
722− = lens _reaNextMatePosition
723− (\ s a -> s{_reaNextMatePosition = a})
720+rNextMatePosition :: Lens' Read' (Maybe Position)
721+rNextMatePosition
722+ = lens _rNextMatePosition
723+ (\ s a -> s{_rNextMatePosition = a})
724724
725725-- | SAM flag 0x200
726−reaFailedVendorQualityChecks :: Lens' Read' (Maybe Bool)
727−reaFailedVendorQualityChecks
728− = lens _reaFailedVendorQualityChecks
729− (\ s a -> s{_reaFailedVendorQualityChecks = a})
726+rFailedVendorQualityChecks :: Lens' Read' (Maybe Bool)
727+rFailedVendorQualityChecks
728+ = lens _rFailedVendorQualityChecks
729+ (\ s a -> s{_rFailedVendorQualityChecks = a})
730730
731731-- | The linear alignment for this alignment record. This field will be null
732732-- if the read is unmapped.
733−reaAlignment :: Lens' Read' (Maybe LinearAlignment)
734−reaAlignment
735− = lens _reaAlignment (\ s a -> s{_reaAlignment = a})
733+rAlignment :: Lens' Read' (Maybe LinearAlignment)
734+rAlignment
735+ = lens _rAlignment (\ s a -> s{_rAlignment = a})
736736
737737-- | The fragment name. Equivalent to QNAME (query template name) in SAM.
738−reaFragmentName :: Lens' Read' (Maybe Text)
739−reaFragmentName
740− = lens _reaFragmentName
741− (\ s a -> s{_reaFragmentName = a})
738+rFragmentName :: Lens' Read' (Maybe Text)
739+rFragmentName
740+ = lens _rFragmentName
741+ (\ s a -> s{_rFragmentName = a})
742742
743743-- | The number of reads in the fragment (extension to SAM flag 0x1).
744−reaNumberReads :: Lens' Read' (Maybe Int32)
745−reaNumberReads
746− = lens _reaNumberReads
747− (\ s a -> s{_reaNumberReads = a})
744+rNumberReads :: Lens' Read' (Maybe Int32)
745+rNumberReads
746+ = lens _rNumberReads (\ s a -> s{_rNumberReads = a})
748747
749748-- | The server-generated read ID, unique across all reads. This is different
750749-- from the \`fragmentName\`.
751−reaId :: Lens' Read' (Maybe Text)
752−reaId = lens _reaId (\ s a -> s{_reaId = a})
750+rId :: Lens' Read' (Maybe Text)
751+rId = lens _rId (\ s a -> s{_rId = a})
753752
754753-- | Whether this alignment is secondary. Equivalent to SAM flag 0x100. A
755754-- secondary alignment represents an alternative to the primary alignment
@@ -757,17 +756,16 @@ reaId = lens _reaId (\ s a -> s{_reaId = a})
757756-- map ambiguously to multiple coordinates in the genome. By convention,
758757-- each read has one and only one alignment where both
759758-- \`secondaryAlignment\` and \`supplementaryAlignment\` are false.
760−reaSecondaryAlignment :: Lens' Read' (Maybe Bool)
761−reaSecondaryAlignment
762− = lens _reaSecondaryAlignment
763− (\ s a -> s{_reaSecondaryAlignment = a})
759+rSecondaryAlignment :: Lens' Read' (Maybe Bool)
760+rSecondaryAlignment
761+ = lens _rSecondaryAlignment
762+ (\ s a -> s{_rSecondaryAlignment = a})
764763
765764-- | The ID of the read group this read belongs to. (Every read must belong
766765-- to exactly one read group.)
767−reaReadGroupId :: Lens' Read' (Maybe Text)
768−reaReadGroupId
769− = lens _reaReadGroupId
770− (\ s a -> s{_reaReadGroupId = a})
766+rReadGroupId :: Lens' Read' (Maybe Text)
767+rReadGroupId
768+ = lens _rReadGroupId (\ s a -> s{_rReadGroupId = a})
771769
772770-- | Whether this alignment is supplementary. Equivalent to SAM flag 0x800.
773771-- Supplementary alignments are used in the representation of a chimeric
@@ -780,10 +778,10 @@ reaReadGroupId
780778-- read will be hard clipped. The \`alignedSequence\` and
781779-- \`alignedQuality\` fields in the alignment record will only represent
782780-- the bases for its respective linear alignment.
783−reaSupplementaryAlignment :: Lens' Read' (Maybe Bool)
784−reaSupplementaryAlignment
785− = lens _reaSupplementaryAlignment
786− (\ s a -> s{_reaSupplementaryAlignment = a})
781+rSupplementaryAlignment :: Lens' Read' (Maybe Bool)
782+rSupplementaryAlignment
783+ = lens _rSupplementaryAlignment
784+ (\ s a -> s{_rSupplementaryAlignment = a})
787785
788786-- | The bases of the read sequence contained in this alignment record,
789787-- *without CIGAR operations applied*. \`alignedSequence\` and
@@ -792,29 +790,28 @@ reaSupplementaryAlignment
792790-- alignment, or if the read was trimmed. When this occurs, the CIGAR for
793791-- this read will begin\/end with a hard clip operator that will indicate
794792-- the length of the excised sequence.
795−reaAlignedSequence :: Lens' Read' (Maybe Text)
796−reaAlignedSequence
797− = lens _reaAlignedSequence
798− (\ s a -> s{_reaAlignedSequence = a})
793+rAlignedSequence :: Lens' Read' (Maybe Text)
794+rAlignedSequence
795+ = lens _rAlignedSequence
796+ (\ s a -> s{_rAlignedSequence = a})
799797
800798-- | The orientation and the distance between reads from the fragment are
801799-- consistent with the sequencing protocol (SAM flag 0x2)
802−reaProperPlacement :: Lens' Read' (Maybe Bool)
803−reaProperPlacement
804− = lens _reaProperPlacement
805− (\ s a -> s{_reaProperPlacement = a})
800+rProperPlacement :: Lens' Read' (Maybe Bool)
801+rProperPlacement
802+ = lens _rProperPlacement
803+ (\ s a -> s{_rProperPlacement = a})
806804
807805-- | A map of additional read alignment information. This must be of the form
808806-- map (string key mapping to a list of string values).
809−reaInfo :: Lens' Read' (Maybe ReadInfo)
810−reaInfo = lens _reaInfo (\ s a -> s{_reaInfo = a})
807+rInfo :: Lens' Read' (Maybe ReadInfo)
808+rInfo = lens _rInfo (\ s a -> s{_rInfo = a})
811809
812810-- | The read number in sequencing. 0-based and less than numberReads. This
813811-- field replaces SAM flag 0x40 and 0x80.
814−reaReadNumber :: Lens' Read' (Maybe Int32)
815−reaReadNumber
816− = lens _reaReadNumber
817− (\ s a -> s{_reaReadNumber = a})
812+rReadNumber :: Lens' Read' (Maybe Int32)
813+rReadNumber
814+ = lens _rReadNumber (\ s a -> s{_rReadNumber = a})
818815
819816-- | The quality of the read sequence contained in this alignment record.
820817-- \`alignedSequence\` and \`alignedQuality\` may be shorter than the full
@@ -822,10 +819,10 @@ reaReadNumber
822819-- chimeric alignment, or if the read was trimmed. When this occurs, the
823820-- CIGAR for this read will begin\/end with a hard clip operator that will
824821-- indicate the length of the excised sequence.
825−reaAlignedQuality :: Lens' Read' [Int32]
826−reaAlignedQuality
827− = lens _reaAlignedQuality
828− (\ s a -> s{_reaAlignedQuality = a})
822+rAlignedQuality :: Lens' Read' [Int32]
823+rAlignedQuality
824+ = lens _rAlignedQuality
825+ (\ s a -> s{_rAlignedQuality = a})
829826 . _Default
830827 . _Coerce
831828
@@ -856,25 +853,25 @@ instance ToJSON Read' where
856853 toJSON Read'{..}
857854 = object
858855 (catMaybes
859− [("fragmentLength" .=) <$> _reaFragmentLength,
860− ("duplicateFragment" .=) <$> _reaDuplicateFragment,
861− ("readGroupSetId" .=) <$> _reaReadGroupSetId,
862− ("nextMatePosition" .=) <$> _reaNextMatePosition,
856+ [("fragmentLength" .=) <$> _rFragmentLength,
857+ ("duplicateFragment" .=) <$> _rDuplicateFragment,
858+ ("readGroupSetId" .=) <$> _rReadGroupSetId,
859+ ("nextMatePosition" .=) <$> _rNextMatePosition,
863860 ("failedVendorQualityChecks" .=) <$>
864− _reaFailedVendorQualityChecks,
865− ("alignment" .=) <$> _reaAlignment,
866− ("fragmentName" .=) <$> _reaFragmentName,
867− ("numberReads" .=) <$> _reaNumberReads,
868− ("id" .=) <$> _reaId,
869− ("secondaryAlignment" .=) <$> _reaSecondaryAlignment,
870− ("readGroupId" .=) <$> _reaReadGroupId,
861+ _rFailedVendorQualityChecks,
862+ ("alignment" .=) <$> _rAlignment,
863+ ("fragmentName" .=) <$> _rFragmentName,
864+ ("numberReads" .=) <$> _rNumberReads,
865+ ("id" .=) <$> _rId,
866+ ("secondaryAlignment" .=) <$> _rSecondaryAlignment,
867+ ("readGroupId" .=) <$> _rReadGroupId,
871868 ("supplementaryAlignment" .=) <$>
872− _reaSupplementaryAlignment,
873− ("alignedSequence" .=) <$> _reaAlignedSequence,
874− ("properPlacement" .=) <$> _reaProperPlacement,
875− ("info" .=) <$> _reaInfo,
876− ("readNumber" .=) <$> _reaReadNumber,
877− ("alignedQuality" .=) <$> _reaAlignedQuality])
869+ _rSupplementaryAlignment,
870+ ("alignedSequence" .=) <$> _rAlignedSequence,
871+ ("properPlacement" .=) <$> _rProperPlacement,
872+ ("info" .=) <$> _rInfo,
873+ ("readNumber" .=) <$> _rReadNumber,
874+ ("alignedQuality" .=) <$> _rAlignedQuality])
878875
879876-- | A call represents the determination of genotype with respect to a
880877-- particular variant. It may include associated information such as
@@ -1001,119 +998,121 @@ instance ToJSON VariantCall where
1001998--
1002999-- /See:/ 'readGroup' smart constructor.
10031000data ReadGroup = ReadGroup
1004− { _rReferenceSetId :: !(Maybe Text)
1005− , _rPrograms :: !(Maybe [Program])
1006− , _rExperiment :: !(Maybe Experiment)
1007− , _rName :: !(Maybe Text)
1008− , _rDatasetId :: !(Maybe Text)
1009− , _rId :: !(Maybe Text)
1010− , _rSampleId :: !(Maybe Text)
1011− , _rPredictedInsertSize :: !(Maybe Int32)
1012− , _rDescription :: !(Maybe Text)
1013− , _rInfo :: !(Maybe ReadGroupInfo)
1001+ { _reaReferenceSetId :: !(Maybe Text)
1002+ , _reaPrograms :: !(Maybe [Program])
1003+ , _reaExperiment :: !(Maybe Experiment)
1004+ , _reaName :: !(Maybe Text)
1005+ , _reaDataSetId :: !(Maybe Text)
1006+ , _reaId :: !(Maybe Text)
1007+ , _reaSampleId :: !(Maybe Text)
1008+ , _reaPredictedInsertSize :: !(Maybe Int32)
1009+ , _reaDescription :: !(Maybe Text)
1010+ , _reaInfo :: !(Maybe ReadGroupInfo)
10141011 } deriving (Eq,Show,Data,Typeable,Generic)
10151012
10161013-- | Creates a value of 'ReadGroup' with the minimum fields required to make a request.
10171014--
10181015-- Use one of the following lenses to modify other fields as desired:
10191016--
1020−-- * 'rReferenceSetId'
1017+-- * 'reaReferenceSetId'
10211018--
1022−-- * 'rPrograms'
1019+-- * 'reaPrograms'
10231020--
1024−-- * 'rExperiment'
1021+-- * 'reaExperiment'
10251022--
1026−-- * 'rName'
1023+-- * 'reaName'
10271024--
1028−-- * 'rDatasetId'
1025+-- * 'reaDataSetId'
10291026--
1030−-- * 'rId'
1027+-- * 'reaId'
10311028--
1032−-- * 'rSampleId'
1029+-- * 'reaSampleId'
10331030--
1034−-- * 'rPredictedInsertSize'
1031+-- * 'reaPredictedInsertSize'
10351032--
1036−-- * 'rDescription'
1033+-- * 'reaDescription'
10371034--
1038−-- * 'rInfo'
1035+-- * 'reaInfo'
10391036readGroup
10401037 :: ReadGroup
10411038readGroup =
10421039 ReadGroup
1043− { _rReferenceSetId = Nothing
1044− , _rPrograms = Nothing
1045− , _rExperiment = Nothing
1046− , _rName = Nothing
1047− , _rDatasetId = Nothing
1048− , _rId = Nothing
1049− , _rSampleId = Nothing
1050− , _rPredictedInsertSize = Nothing
1051− , _rDescription = Nothing
1052− , _rInfo = Nothing
1040+ { _reaReferenceSetId = Nothing
1041+ , _reaPrograms = Nothing
1042+ , _reaExperiment = Nothing
1043+ , _reaName = Nothing
1044+ , _reaDataSetId = Nothing
1045+ , _reaId = Nothing
1046+ , _reaSampleId = Nothing
1047+ , _reaPredictedInsertSize = Nothing
1048+ , _reaDescription = Nothing
1049+ , _reaInfo = Nothing
10531050 }
10541051
10551052-- | The reference set the reads in this read group are aligned to. Required
10561053-- if there are any read alignments.
1057−rReferenceSetId :: Lens' ReadGroup (Maybe Text)
1058−rReferenceSetId
1059− = lens _rReferenceSetId
1060− (\ s a -> s{_rReferenceSetId = a})
1054+reaReferenceSetId :: Lens' ReadGroup (Maybe Text)
1055+reaReferenceSetId
1056+ = lens _reaReferenceSetId
1057+ (\ s a -> s{_reaReferenceSetId = a})
10611058
10621059-- | The programs used to generate this read group. Programs are always
10631060-- identical for all read groups within a read group set. For this reason,
10641061-- only the first read group in a returned set will have this field
10651062-- populated.
1066−rPrograms :: Lens' ReadGroup [Program]
1067−rPrograms
1068− = lens _rPrograms (\ s a -> s{_rPrograms = a}) .
1063+reaPrograms :: Lens' ReadGroup [Program]
1064+reaPrograms
1065+ = lens _reaPrograms (\ s a -> s{_reaPrograms = a}) .
10691066 _Default
10701067 . _Coerce
10711068
10721069-- | The experiment used to generate this read group.
1073−rExperiment :: Lens' ReadGroup (Maybe Experiment)
1074−rExperiment
1075− = lens _rExperiment (\ s a -> s{_rExperiment = a})
1070+reaExperiment :: Lens' ReadGroup (Maybe Experiment)
1071+reaExperiment
1072+ = lens _reaExperiment
1073+ (\ s a -> s{_reaExperiment = a})
10761074
10771075-- | The read group name. This corresponds to the \'RG ID field in the SAM
10781076-- spec.
1079−rName :: Lens' ReadGroup (Maybe Text)
1080−rName = lens _rName (\ s a -> s{_rName = a})
1077+reaName :: Lens' ReadGroup (Maybe Text)
1078+reaName = lens _reaName (\ s a -> s{_reaName = a})
10811079
10821080-- | The ID of the dataset this read group belongs to.
1083−rDatasetId :: Lens' ReadGroup (Maybe Text)
1084−rDatasetId
1085− = lens _rDatasetId (\ s a -> s{_rDatasetId = a})
1081+reaDataSetId :: Lens' ReadGroup (Maybe Text)
1082+reaDataSetId
1083+ = lens _reaDataSetId (\ s a -> s{_reaDataSetId = a})
10861084
10871085-- | The server-generated read group ID, unique for all read groups. Note:
10881086-- This is different than the \`\'RG ID\` field in the SAM spec. For that
10891087-- value, see the \`name\` field.
1090−rId :: Lens' ReadGroup (Maybe Text)
1091−rId = lens _rId (\ s a -> s{_rId = a})
1088+reaId :: Lens' ReadGroup (Maybe Text)
1089+reaId = lens _reaId (\ s a -> s{_reaId = a})
10921090
10931091-- | The sample this read group\'s data was generated from. Note: This is not
10941092-- an actual ID within this repository, but rather an identifier for a
10951093-- sample which may be meaningful to some external system.
1096−rSampleId :: Lens' ReadGroup (Maybe Text)
1097−rSampleId
1098− = lens _rSampleId (\ s a -> s{_rSampleId = a})
1094+reaSampleId :: Lens' ReadGroup (Maybe Text)
1095+reaSampleId
1096+ = lens _reaSampleId (\ s a -> s{_reaSampleId = a})
10991097
11001098-- | The predicted insert size of this read group. The insert size is the
11011099-- length the sequenced DNA fragment from end-to-end, not including the
11021100-- adapters.
1103−rPredictedInsertSize :: Lens' ReadGroup (Maybe Int32)
1104−rPredictedInsertSize
1105− = lens _rPredictedInsertSize
1106− (\ s a -> s{_rPredictedInsertSize = a})
1101+reaPredictedInsertSize :: Lens' ReadGroup (Maybe Int32)
1102+reaPredictedInsertSize
1103+ = lens _reaPredictedInsertSize
1104+ (\ s a -> s{_reaPredictedInsertSize = a})
11071105
11081106-- | A free-form text description of this read group.
1109−rDescription :: Lens' ReadGroup (Maybe Text)
1110−rDescription
1111− = lens _rDescription (\ s a -> s{_rDescription = a})
1107+reaDescription :: Lens' ReadGroup (Maybe Text)
1108+reaDescription
1109+ = lens _reaDescription
1110+ (\ s a -> s{_reaDescription = a})
11121111
11131112-- | A map of additional read group information. This must be of the form map
11141113-- (string key mapping to a list of string values).
1115−rInfo :: Lens' ReadGroup (Maybe ReadGroupInfo)
1116−rInfo = lens _rInfo (\ s a -> s{_rInfo = a})
1114+reaInfo :: Lens' ReadGroup (Maybe ReadGroupInfo)
1115+reaInfo = lens _reaInfo (\ s a -> s{_reaInfo = a})
11171116
11181117instance FromJSON ReadGroup where
11191118 parseJSON
@@ -1135,15 +1134,17 @@ instance ToJSON ReadGroup where
11351134 toJSON ReadGroup{..}
11361135 = object
11371136 (catMaybes
1138− [("referenceSetId" .=) <$> _rReferenceSetId,
1139− ("programs" .=) <$> _rPrograms,
1140− ("experiment" .=) <$> _rExperiment,
1141− ("name" .=) <$> _rName,
1142− ("datasetId" .=) <$> _rDatasetId, ("id" .=) <$> _rId,
1143− ("sampleId" .=) <$> _rSampleId,
1144− ("predictedInsertSize" .=) <$> _rPredictedInsertSize,
1145− ("description" .=) <$> _rDescription,
1146− ("info" .=) <$> _rInfo])
1137+ [("referenceSetId" .=) <$> _reaReferenceSetId,
1138+ ("programs" .=) <$> _reaPrograms,
1139+ ("experiment" .=) <$> _reaExperiment,
1140+ ("name" .=) <$> _reaName,
1141+ ("datasetId" .=) <$> _reaDataSetId,
1142+ ("id" .=) <$> _reaId,
1143+ ("sampleId" .=) <$> _reaSampleId,
1144+ ("predictedInsertSize" .=) <$>
1145+ _reaPredictedInsertSize,
1146+ ("description" .=) <$> _reaDescription,
1147+ ("info" .=) <$> _reaInfo])
11471148
11481149-- | This resource represents a long-running operation that is the result of
11491150-- a network API call.
@@ -1651,7 +1652,7 @@ instance ToJSON CoverageBucket where
16511652--
16521653-- /See:/ 'searchReadGroupSetsRequest' smart constructor.
16531654data SearchReadGroupSetsRequest = SearchReadGroupSetsRequest
1654− { _srgsrDatasetIds :: !(Maybe [Text])
1655+ { _srgsrDataSetIds :: !(Maybe [Text])
16551656 , _srgsrName :: !(Maybe Text)
16561657 , _srgsrPageToken :: !(Maybe Text)
16571658 , _srgsrPageSize :: !(Maybe Int32)
@@ -1661,7 +1662,7 @@ data SearchReadGroupSetsRequest = SearchReadGroupSetsRequest
16611662--
16621663-- Use one of the following lenses to modify other fields as desired:
16631664--
1664−-- * 'srgsrDatasetIds'
1665+-- * 'srgsrDataSetIds'
16651666--
16661667-- * 'srgsrName'
16671668--
@@ -1672,7 +1673,7 @@ searchReadGroupSetsRequest
16721673 :: SearchReadGroupSetsRequest
16731674searchReadGroupSetsRequest =
16741675 SearchReadGroupSetsRequest
1675− { _srgsrDatasetIds = Nothing
1676+ { _srgsrDataSetIds = Nothing
16761677 , _srgsrName = Nothing
16771678 , _srgsrPageToken = Nothing
16781679 , _srgsrPageSize = Nothing
@@ -1680,10 +1681,10 @@ searchReadGroupSetsRequest =
16801681
16811682-- | Restricts this query to read group sets within the given datasets. At
16821683-- least one ID must be provided.
1683−srgsrDatasetIds :: Lens' SearchReadGroupSetsRequest [Text]
1684−srgsrDatasetIds
1685− = lens _srgsrDatasetIds
1686− (\ s a -> s{_srgsrDatasetIds = a})
1684+srgsrDataSetIds :: Lens' SearchReadGroupSetsRequest [Text]
1685+srgsrDataSetIds
1686+ = lens _srgsrDataSetIds
1687+ (\ s a -> s{_srgsrDataSetIds = a})
16871688 . _Default
16881689 . _Coerce
16891690
@@ -1721,7 +1722,7 @@ instance ToJSON SearchReadGroupSetsRequest where
17211722 toJSON SearchReadGroupSetsRequest{..}
17221723 = object
17231724 (catMaybes
1724− [("datasetIds" .=) <$> _srgsrDatasetIds,
1725+ [("datasetIds" .=) <$> _srgsrDataSetIds,
17251726 ("name" .=) <$> _srgsrName,
17261727 ("pageToken" .=) <$> _srgsrPageToken,
17271728 ("pageSize" .=) <$> _srgsrPageSize])
@@ -2296,7 +2297,7 @@ instance ToJSON Experiment where
22962297--
22972298-- /See:/ 'searchVariantSetsRequest' smart constructor.
22982299data SearchVariantSetsRequest = SearchVariantSetsRequest
2299− { _svsrDatasetIds :: !(Maybe [Text])
2300+ { _svsrDataSetIds :: !(Maybe [Text])
23002301 , _svsrPageToken :: !(Maybe Text)
23012302 , _svsrPageSize :: !(Maybe Int32)
23022303 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -2305,7 +2306,7 @@ data SearchVariantSetsRequest = SearchVariantSetsRequest
23052306--
23062307-- Use one of the following lenses to modify other fields as desired:
23072308--
2308−-- * 'svsrDatasetIds'
2309+-- * 'svsrDataSetIds'
23092310--
23102311-- * 'svsrPageToken'
23112312--
@@ -2314,17 +2315,17 @@ searchVariantSetsRequest
23142315 :: SearchVariantSetsRequest
23152316searchVariantSetsRequest =
23162317 SearchVariantSetsRequest
2317− { _svsrDatasetIds = Nothing
2318+ { _svsrDataSetIds = Nothing
23182319 , _svsrPageToken = Nothing
23192320 , _svsrPageSize = Nothing
23202321 }
23212322
23222323-- | Exactly one dataset ID must be provided here. Only variant sets which
23232324-- belong to this dataset will be returned.
2324−svsrDatasetIds :: Lens' SearchVariantSetsRequest [Text]
2325−svsrDatasetIds
2326− = lens _svsrDatasetIds
2327− (\ s a -> s{_svsrDatasetIds = a})
2325+svsrDataSetIds :: Lens' SearchVariantSetsRequest [Text]
2326+svsrDataSetIds
2327+ = lens _svsrDataSetIds
2328+ (\ s a -> s{_svsrDataSetIds = a})
23282329 . _Default
23292330 . _Coerce
23302331
@@ -2354,7 +2355,7 @@ instance ToJSON SearchVariantSetsRequest where
23542355 toJSON SearchVariantSetsRequest{..}
23552356 = object
23562357 (catMaybes
2357− [("datasetIds" .=) <$> _svsrDatasetIds,
2358+ [("datasetIds" .=) <$> _svsrDataSetIds,
23582359 ("pageToken" .=) <$> _svsrPageToken,
23592360 ("pageSize" .=) <$> _svsrPageSize])
23602361
@@ -2837,7 +2838,7 @@ instance ToJSON Range where
28372838data ReadGroupSet = ReadGroupSet
28382839 { _rgsReferenceSetId :: !(Maybe Text)
28392840 , _rgsName :: !(Maybe Text)
2840− , _rgsDatasetId :: !(Maybe Text)
2841+ , _rgsDataSetId :: !(Maybe Text)
28412842 , _rgsId :: !(Maybe Text)
28422843 , _rgsInfo :: !(Maybe ReadGroupSetInfo)
28432844 , _rgsReadGroups :: !(Maybe [ReadGroup])
@@ -2852,7 +2853,7 @@ data ReadGroupSet = ReadGroupSet
28522853--
28532854-- * 'rgsName'
28542855--
2855−-- * 'rgsDatasetId'
2856+-- * 'rgsDataSetId'
28562857--
28572858-- * 'rgsId'
28582859--
@@ -2867,7 +2868,7 @@ readGroupSet =
28672868 ReadGroupSet
28682869 { _rgsReferenceSetId = Nothing
28692870 , _rgsName = Nothing
2870− , _rgsDatasetId = Nothing
2871+ , _rgsDataSetId = Nothing
28712872 , _rgsId = Nothing
28722873 , _rgsInfo = Nothing
28732874 , _rgsReadGroups = Nothing
@@ -2886,9 +2887,9 @@ rgsName :: Lens' ReadGroupSet (Maybe Text)
28862887rgsName = lens _rgsName (\ s a -> s{_rgsName = a})
28872888
28882889-- | The dataset ID.
2889−rgsDatasetId :: Lens' ReadGroupSet (Maybe Text)
2890−rgsDatasetId
2891− = lens _rgsDatasetId (\ s a -> s{_rgsDatasetId = a})
2890+rgsDataSetId :: Lens' ReadGroupSet (Maybe Text)
2891+rgsDataSetId
2892+ = lens _rgsDataSetId (\ s a -> s{_rgsDataSetId = a})
28922893
28932894-- | The server-generated read group set ID, unique for all read group sets.
28942895rgsId :: Lens' ReadGroupSet (Maybe Text)
@@ -2931,7 +2932,7 @@ instance ToJSON ReadGroupSet where
29312932 (catMaybes
29322933 [("referenceSetId" .=) <$> _rgsReferenceSetId,
29332934 ("name" .=) <$> _rgsName,
2934− ("datasetId" .=) <$> _rgsDatasetId,
2935+ ("datasetId" .=) <$> _rgsDataSetId,
29352936 ("id" .=) <$> _rgsId, ("info" .=) <$> _rgsInfo,
29362937 ("readGroups" .=) <$> _rgsReadGroups,
29372938 ("filename" .=) <$> _rgsFilename])
@@ -3269,7 +3270,7 @@ instance ToJSON LinearAlignment where
32693270--
32703271-- /See:/ 'variantSet' smart constructor.
32713272data VariantSet = VariantSet
3272− { _vsDatasetId :: !(Maybe Text)
3273+ { _vsDataSetId :: !(Maybe Text)
32733274 , _vsReferenceBounds :: !(Maybe [ReferenceBound])
32743275 , _vsMetadata :: !(Maybe [VariantSetMetadata])
32753276 , _vsId :: !(Maybe Text)
@@ -3279,7 +3280,7 @@ data VariantSet = VariantSet
32793280--
32803281-- Use one of the following lenses to modify other fields as desired:
32813282--
3282−-- * 'vsDatasetId'
3283+-- * 'vsDataSetId'
32833284--
32843285-- * 'vsReferenceBounds'
32853286--
@@ -3290,16 +3291,16 @@ variantSet
32903291 :: VariantSet
32913292variantSet =
32923293 VariantSet
3293− { _vsDatasetId = Nothing
3294+ { _vsDataSetId = Nothing
32943295 , _vsReferenceBounds = Nothing
32953296 , _vsMetadata = Nothing
32963297 , _vsId = Nothing
32973298 }
32983299
32993300-- | The dataset to which this variant set belongs.
3300−vsDatasetId :: Lens' VariantSet (Maybe Text)
3301−vsDatasetId
3302− = lens _vsDatasetId (\ s a -> s{_vsDatasetId = a})
3301+vsDataSetId :: Lens' VariantSet (Maybe Text)
3302+vsDataSetId
3303+ = lens _vsDataSetId (\ s a -> s{_vsDataSetId = a})
33033304
33043305-- | A list of all references used by the variants in a variant set with
33053306-- associated coordinate upper bounds for each one.
@@ -3335,7 +3336,7 @@ instance ToJSON VariantSet where
33353336 toJSON VariantSet{..}
33363337 = object
33373338 (catMaybes
3338− [("datasetId" .=) <$> _vsDatasetId,
3339+ [("datasetId" .=) <$> _vsDataSetId,
33393340 ("referenceBounds" .=) <$> _vsReferenceBounds,
33403341 ("metadata" .=) <$> _vsMetadata,
33413342 ("id" .=) <$> _vsId])
@@ -3383,64 +3384,64 @@ instance ToJSON TestIAMPermissionsResponse where
33833384
33843385-- | The dataset list response.
33853386--
3386−-- /See:/ 'listDatasetsResponse' smart constructor.
3387−data ListDatasetsResponse = ListDatasetsResponse
3388− { _ldrNextPageToken :: !(Maybe Text)
3389− , _ldrDatasets :: !(Maybe [Dataset])
3387+-- /See:/ 'listDataSetsResponse' smart constructor.
3388+data ListDataSetsResponse = ListDataSetsResponse
3389+ { _ldsrNextPageToken :: !(Maybe Text)
3390+ , _ldsrDataSets :: !(Maybe [DataSet])
33903391 } deriving (Eq,Show,Data,Typeable,Generic)
33913392
3392−-- | Creates a value of 'ListDatasetsResponse' with the minimum fields required to make a request.
3393+-- | Creates a value of 'ListDataSetsResponse' with the minimum fields required to make a request.
33933394--
33943395-- Use one of the following lenses to modify other fields as desired:
33953396--
3396−-- * 'ldrNextPageToken'
3397+-- * 'ldsrNextPageToken'
33973398--
3398−-- * 'ldrDatasets'
3399−listDatasetsResponse
3400− :: ListDatasetsResponse
3401−listDatasetsResponse =
3402− ListDatasetsResponse
3403− { _ldrNextPageToken = Nothing
3404− , _ldrDatasets = Nothing
3399+-- * 'ldsrDataSets'
3400+listDataSetsResponse
3401+ :: ListDataSetsResponse
3402+listDataSetsResponse =
3403+ ListDataSetsResponse
3404+ { _ldsrNextPageToken = Nothing
3405+ , _ldsrDataSets = Nothing
34053406 }
34063407
34073408-- | The continuation token, which is used to page through large result sets.
34083409-- Provide this value in a subsequent request to return the next page of
34093410-- results. This field will be empty if there aren\'t any additional
34103411-- results.
3411−ldrNextPageToken :: Lens' ListDatasetsResponse (Maybe Text)
3412−ldrNextPageToken
3413− = lens _ldrNextPageToken
3414− (\ s a -> s{_ldrNextPageToken = a})
3412+ldsrNextPageToken :: Lens' ListDataSetsResponse (Maybe Text)
3413+ldsrNextPageToken
3414+ = lens _ldsrNextPageToken
3415+ (\ s a -> s{_ldsrNextPageToken = a})
34153416
34163417-- | The list of matching Datasets.
3417−ldrDatasets :: Lens' ListDatasetsResponse [Dataset]
3418−ldrDatasets
3419− = lens _ldrDatasets (\ s a -> s{_ldrDatasets = a}) .
3420− _Default
3418+ldsrDataSets :: Lens' ListDataSetsResponse [DataSet]
3419+ldsrDataSets
3420+ = lens _ldsrDataSets (\ s a -> s{_ldsrDataSets = a})
3421+ . _Default
34213422 . _Coerce
34223423
3423−instance FromJSON ListDatasetsResponse where
3424+instance FromJSON ListDataSetsResponse where
34243425 parseJSON
3425− = withObject "ListDatasetsResponse"
3426+ = withObject "ListDataSetsResponse"
34263427 (\ o ->
3427− ListDatasetsResponse <$>
3428+ ListDataSetsResponse <$>
34283429 (o .:? "nextPageToken") <*>
34293430 (o .:? "datasets" .!= mempty))
34303431
3431−instance ToJSON ListDatasetsResponse where
3432− toJSON ListDatasetsResponse{..}
3432+instance ToJSON ListDataSetsResponse where
3433+ toJSON ListDataSetsResponse{..}
34333434 = object
34343435 (catMaybes
3435− [("nextPageToken" .=) <$> _ldrNextPageToken,
3436− ("datasets" .=) <$> _ldrDatasets])
3436+ [("nextPageToken" .=) <$> _ldsrNextPageToken,
3437+ ("datasets" .=) <$> _ldsrDataSets])
34373438
34383439-- | The read group set import request.
34393440--
34403441-- /See:/ 'importReadGroupSetsRequest' smart constructor.
34413442data ImportReadGroupSetsRequest = ImportReadGroupSetsRequest
34423443 { _irgsrReferenceSetId :: !(Maybe Text)
3443− , _irgsrDatasetId :: !(Maybe Text)
3444+ , _irgsrDataSetId :: !(Maybe Text)
34443445 , _irgsrSourceURIs :: !(Maybe [Text])
34453446 , _irgsrPartitionStrategy :: !(Maybe Text)
34463447 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -3451,7 +3452,7 @@ data ImportReadGroupSetsRequest = ImportReadGroupSetsRequest
34513452--
34523453-- * 'irgsrReferenceSetId'
34533454--
3454−-- * 'irgsrDatasetId'
3455+-- * 'irgsrDataSetId'
34553456--
34563457-- * 'irgsrSourceURIs'
34573458--
@@ -3461,7 +3462,7 @@ importReadGroupSetsRequest
34613462importReadGroupSetsRequest =
34623463 ImportReadGroupSetsRequest
34633464 { _irgsrReferenceSetId = Nothing
3464− , _irgsrDatasetId = Nothing
3465+ , _irgsrDataSetId = Nothing
34653466 , _irgsrSourceURIs = Nothing
34663467 , _irgsrPartitionStrategy = Nothing
34673468 }
@@ -3478,10 +3479,10 @@ irgsrReferenceSetId
34783479
34793480-- | Required. The ID of the dataset these read group sets will belong to.
34803481-- The caller must have WRITE permissions to this dataset.
3481−irgsrDatasetId :: Lens' ImportReadGroupSetsRequest (Maybe Text)
3482−irgsrDatasetId
3483− = lens _irgsrDatasetId
3484− (\ s a -> s{_irgsrDatasetId = a})
3482+irgsrDataSetId :: Lens' ImportReadGroupSetsRequest (Maybe Text)
3483+irgsrDataSetId
3484+ = lens _irgsrDataSetId
3485+ (\ s a -> s{_irgsrDataSetId = a})
34853486
34863487-- | A list of URIs pointing at [BAM
34873488-- files](https:\/\/samtools.github.io\/hts-specs\/SAMv1.pdf) in Google
@@ -3514,7 +3515,7 @@ instance ToJSON ImportReadGroupSetsRequest where
35143515 = object
35153516 (catMaybes
35163517 [("referenceSetId" .=) <$> _irgsrReferenceSetId,
3517− ("datasetId" .=) <$> _irgsrDatasetId,
3518+ ("datasetId" .=) <$> _irgsrDataSetId,
35183519 ("sourceUris" .=) <$> _irgsrSourceURIs,
35193520 ("partitionStrategy" .=) <$>
35203521 _irgsrPartitionStrategy])
@@ -3742,7 +3743,7 @@ instance ToJSON Policy where
37423743--
37433744-- /See:/ 'exportVariantSetRequest' smart constructor.
37443745data ExportVariantSetRequest = ExportVariantSetRequest
3745− { _evsrBigQueryDataset :: !(Maybe Text)
3746+ { _evsrBigQueryDataSet :: !(Maybe Text)
37463747 , _evsrBigQueryTable :: !(Maybe Text)
37473748 , _evsrFormat :: !(Maybe Text)
37483749 , _evsrCallSetIds :: !(Maybe [Text])
@@ -3753,7 +3754,7 @@ data ExportVariantSetRequest = ExportVariantSetRequest
37533754--
37543755-- Use one of the following lenses to modify other fields as desired:
37553756--
3756−-- * 'evsrBigQueryDataset'
3757+-- * 'evsrBigQueryDataSet'
37573758--
37583759-- * 'evsrBigQueryTable'
37593760--
@@ -3766,7 +3767,7 @@ exportVariantSetRequest
37663767 :: ExportVariantSetRequest
37673768exportVariantSetRequest =
37683769 ExportVariantSetRequest
3769− { _evsrBigQueryDataset = Nothing
3770+ { _evsrBigQueryDataSet = Nothing
37703771 , _evsrBigQueryTable = Nothing
37713772 , _evsrFormat = Nothing
37723773 , _evsrCallSetIds = Nothing
@@ -3776,10 +3777,10 @@ exportVariantSetRequest =
37763777-- | Required. The BigQuery dataset to export data to. This dataset must
37773778-- already exist. Note that this is distinct from the Genomics concept of
37783779-- \"dataset\".
3779−evsrBigQueryDataset :: Lens' ExportVariantSetRequest (Maybe Text)
3780−evsrBigQueryDataset
3781− = lens _evsrBigQueryDataset
3782− (\ s a -> s{_evsrBigQueryDataset = a})
3780+evsrBigQueryDataSet :: Lens' ExportVariantSetRequest (Maybe Text)
3781+evsrBigQueryDataSet
3782+ = lens _evsrBigQueryDataSet
3783+ (\ s a -> s{_evsrBigQueryDataSet = a})
37833784
37843785-- | Required. The BigQuery table to export data to. If the table doesn\'t
37853786-- exist, it will be created. If it already exists, it will be overwritten.
@@ -3824,7 +3825,7 @@ instance ToJSON ExportVariantSetRequest where
38243825 toJSON ExportVariantSetRequest{..}
38253826 = object
38263827 (catMaybes
3827− [("bigqueryDataset" .=) <$> _evsrBigQueryDataset,
3828+ [("bigqueryDataset" .=) <$> _evsrBigQueryDataSet,
38283829 ("bigqueryTable" .=) <$> _evsrBigQueryTable,
38293830 ("format" .=) <$> _evsrFormat,
38303831 ("callSetIds" .=) <$> _evsrCallSetIds,
@@ -4293,23 +4294,23 @@ instance ToJSON ReferenceBound where
42934294 ("referenceName" .=) <$> _rbReferenceName])
42944295
42954296--
4296−-- /See:/ 'undeleteDatasetRequest' smart constructor.
4297−data UndeleteDatasetRequest =
4298− UndeleteDatasetRequest
4297+-- /See:/ 'undeleteDataSetRequest' smart constructor.
4298+data UndeleteDataSetRequest =
4299+ UndeleteDataSetRequest
42994300 deriving (Eq,Show,Data,Typeable,Generic)
43004301
4301−-- | Creates a value of 'UndeleteDatasetRequest' with the minimum fields required to make a request.
4302+-- | Creates a value of 'UndeleteDataSetRequest' with the minimum fields required to make a request.
43024303--
4303−undeleteDatasetRequest
4304− :: UndeleteDatasetRequest
4305−undeleteDatasetRequest = UndeleteDatasetRequest
4304+undeleteDataSetRequest
4305+ :: UndeleteDataSetRequest
4306+undeleteDataSetRequest = UndeleteDataSetRequest
43064307
4307−instance FromJSON UndeleteDatasetRequest where
4308+instance FromJSON UndeleteDataSetRequest where
43084309 parseJSON
4309− = withObject "UndeleteDatasetRequest"
4310− (\ o -> pure UndeleteDatasetRequest)
4310+ = withObject "UndeleteDataSetRequest"
4311+ (\ o -> pure UndeleteDataSetRequest)
43114312
4312−instance ToJSON UndeleteDatasetRequest where
4313+instance ToJSON UndeleteDataSetRequest where
43134314 toJSON = const emptyObject
43144315
43154316-- | Associates \`members\` with a \`role\`.
gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Create.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.CallSets.Create
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Creates a new call set.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.callsets.create@.
26+module Network.Google.Resource.Genomics.CallSets.Create
27+ (
28+ -- * REST Resource
29+ CallSetsCreateResource
30+
31+ -- * Creating a Request
32+ , callSetsCreate
33+ , CallSetsCreate
34+
35+ -- * Request Lenses
36+ , cscXgafv
37+ , cscUploadProtocol
38+ , cscPp
39+ , cscAccessToken
40+ , cscUploadType
41+ , cscPayload
42+ , cscBearerToken
43+ , cscCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.callsets.create@ method which the
50+-- 'CallSetsCreate' request conforms to.
51+type CallSetsCreateResource =
52+ "v1" :>
53+ "callsets" :>
54+ QueryParam "$.xgafv" Text :>
55+ QueryParam "upload_protocol" Text :>
56+ QueryParam "pp" Bool :>
57+ QueryParam "access_token" Text :>
58+ QueryParam "uploadType" Text :>
59+ QueryParam "bearer_token" Text :>
60+ QueryParam "callback" Text :>
61+ QueryParam "alt" AltJSON :>
62+ ReqBody '[JSON] CallSet :> Post '[JSON] CallSet
63+
64+-- | Creates a new call set.
65+--
66+-- /See:/ 'callSetsCreate' smart constructor.
67+data CallSetsCreate = CallSetsCreate
68+ { _cscXgafv :: !(Maybe Text)
69+ , _cscUploadProtocol :: !(Maybe Text)
70+ , _cscPp :: !Bool
71+ , _cscAccessToken :: !(Maybe Text)
72+ , _cscUploadType :: !(Maybe Text)
73+ , _cscPayload :: !CallSet
74+ , _cscBearerToken :: !(Maybe Text)
75+ , _cscCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'CallSetsCreate' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'cscXgafv'
83+--
84+-- * 'cscUploadProtocol'
85+--
86+-- * 'cscPp'
87+--
88+-- * 'cscAccessToken'
89+--
90+-- * 'cscUploadType'
91+--
92+-- * 'cscPayload'
93+--
94+-- * 'cscBearerToken'
95+--
96+-- * 'cscCallback'
97+callSetsCreate
98+ :: CallSet -- ^ 'cscPayload'
99+ -> CallSetsCreate
100+callSetsCreate pCscPayload_ =
101+ CallSetsCreate
102+ { _cscXgafv = Nothing
103+ , _cscUploadProtocol = Nothing
104+ , _cscPp = True
105+ , _cscAccessToken = Nothing
106+ , _cscUploadType = Nothing
107+ , _cscPayload = pCscPayload_
108+ , _cscBearerToken = Nothing
109+ , _cscCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+cscXgafv :: Lens' CallSetsCreate (Maybe Text)
114+cscXgafv = lens _cscXgafv (\ s a -> s{_cscXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+cscUploadProtocol :: Lens' CallSetsCreate (Maybe Text)
118+cscUploadProtocol
119+ = lens _cscUploadProtocol
120+ (\ s a -> s{_cscUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+cscPp :: Lens' CallSetsCreate Bool
124+cscPp = lens _cscPp (\ s a -> s{_cscPp = a})
125+
126+-- | OAuth access token.
127+cscAccessToken :: Lens' CallSetsCreate (Maybe Text)
128+cscAccessToken
129+ = lens _cscAccessToken
130+ (\ s a -> s{_cscAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+cscUploadType :: Lens' CallSetsCreate (Maybe Text)
134+cscUploadType
135+ = lens _cscUploadType
136+ (\ s a -> s{_cscUploadType = a})
137+
138+-- | Multipart request metadata.
139+cscPayload :: Lens' CallSetsCreate CallSet
140+cscPayload
141+ = lens _cscPayload (\ s a -> s{_cscPayload = a})
142+
143+-- | OAuth bearer token.
144+cscBearerToken :: Lens' CallSetsCreate (Maybe Text)
145+cscBearerToken
146+ = lens _cscBearerToken
147+ (\ s a -> s{_cscBearerToken = a})
148+
149+-- | JSONP
150+cscCallback :: Lens' CallSetsCreate (Maybe Text)
151+cscCallback
152+ = lens _cscCallback (\ s a -> s{_cscCallback = a})
153+
154+instance GoogleRequest CallSetsCreate where
155+ type Rs CallSetsCreate = CallSet
156+ requestClient CallSetsCreate{..}
157+ = go _cscXgafv _cscUploadProtocol (Just _cscPp)
158+ _cscAccessToken
159+ _cscUploadType
160+ _cscBearerToken
161+ _cscCallback
162+ (Just AltJSON)
163+ _cscPayload
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy CallSetsCreateResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Delete.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.CallSets.Delete
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Deletes a call set.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.callsets.delete@.
26+module Network.Google.Resource.Genomics.CallSets.Delete
27+ (
28+ -- * REST Resource
29+ CallSetsDeleteResource
30+
31+ -- * Creating a Request
32+ , callSetsDelete
33+ , CallSetsDelete
34+
35+ -- * Request Lenses
36+ , csdXgafv
37+ , csdUploadProtocol
38+ , csdPp
39+ , csdAccessToken
40+ , csdUploadType
41+ , csdBearerToken
42+ , csdCallSetId
43+ , csdCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.callsets.delete@ method which the
50+-- 'CallSetsDelete' request conforms to.
51+type CallSetsDeleteResource =
52+ "v1" :>
53+ "callsets" :>
54+ Capture "callSetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63+
64+-- | Deletes a call set.
65+--
66+-- /See:/ 'callSetsDelete' smart constructor.
67+data CallSetsDelete = CallSetsDelete
68+ { _csdXgafv :: !(Maybe Text)
69+ , _csdUploadProtocol :: !(Maybe Text)
70+ , _csdPp :: !Bool
71+ , _csdAccessToken :: !(Maybe Text)
72+ , _csdUploadType :: !(Maybe Text)
73+ , _csdBearerToken :: !(Maybe Text)
74+ , _csdCallSetId :: !Text
75+ , _csdCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'CallSetsDelete' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'csdXgafv'
83+--
84+-- * 'csdUploadProtocol'
85+--
86+-- * 'csdPp'
87+--
88+-- * 'csdAccessToken'
89+--
90+-- * 'csdUploadType'
91+--
92+-- * 'csdBearerToken'
93+--
94+-- * 'csdCallSetId'
95+--
96+-- * 'csdCallback'
97+callSetsDelete
98+ :: Text -- ^ 'csdCallSetId'
99+ -> CallSetsDelete
100+callSetsDelete pCsdCallSetId_ =
101+ CallSetsDelete
102+ { _csdXgafv = Nothing
103+ , _csdUploadProtocol = Nothing
104+ , _csdPp = True
105+ , _csdAccessToken = Nothing
106+ , _csdUploadType = Nothing
107+ , _csdBearerToken = Nothing
108+ , _csdCallSetId = pCsdCallSetId_
109+ , _csdCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+csdXgafv :: Lens' CallSetsDelete (Maybe Text)
114+csdXgafv = lens _csdXgafv (\ s a -> s{_csdXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+csdUploadProtocol :: Lens' CallSetsDelete (Maybe Text)
118+csdUploadProtocol
119+ = lens _csdUploadProtocol
120+ (\ s a -> s{_csdUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+csdPp :: Lens' CallSetsDelete Bool
124+csdPp = lens _csdPp (\ s a -> s{_csdPp = a})
125+
126+-- | OAuth access token.
127+csdAccessToken :: Lens' CallSetsDelete (Maybe Text)
128+csdAccessToken
129+ = lens _csdAccessToken
130+ (\ s a -> s{_csdAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+csdUploadType :: Lens' CallSetsDelete (Maybe Text)
134+csdUploadType
135+ = lens _csdUploadType
136+ (\ s a -> s{_csdUploadType = a})
137+
138+-- | OAuth bearer token.
139+csdBearerToken :: Lens' CallSetsDelete (Maybe Text)
140+csdBearerToken
141+ = lens _csdBearerToken
142+ (\ s a -> s{_csdBearerToken = a})
143+
144+-- | The ID of the call set to be deleted.
145+csdCallSetId :: Lens' CallSetsDelete Text
146+csdCallSetId
147+ = lens _csdCallSetId (\ s a -> s{_csdCallSetId = a})
148+
149+-- | JSONP
150+csdCallback :: Lens' CallSetsDelete (Maybe Text)
151+csdCallback
152+ = lens _csdCallback (\ s a -> s{_csdCallback = a})
153+
154+instance GoogleRequest CallSetsDelete where
155+ type Rs CallSetsDelete = Empty
156+ requestClient CallSetsDelete{..}
157+ = go _csdCallSetId _csdXgafv _csdUploadProtocol
158+ (Just _csdPp)
159+ _csdAccessToken
160+ _csdUploadType
161+ _csdBearerToken
162+ _csdCallback
163+ (Just AltJSON)
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy CallSetsDeleteResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Get.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.CallSets.Get
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets a call set by ID.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.callsets.get@.
26+module Network.Google.Resource.Genomics.CallSets.Get
27+ (
28+ -- * REST Resource
29+ CallSetsGetResource
30+
31+ -- * Creating a Request
32+ , callSetsGet
33+ , CallSetsGet
34+
35+ -- * Request Lenses
36+ , csgXgafv
37+ , csgUploadProtocol
38+ , csgPp
39+ , csgAccessToken
40+ , csgUploadType
41+ , csgBearerToken
42+ , csgCallSetId
43+ , csgCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.callsets.get@ method which the
50+-- 'CallSetsGet' request conforms to.
51+type CallSetsGetResource =
52+ "v1" :>
53+ "callsets" :>
54+ Capture "callSetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Get '[JSON] CallSet
63+
64+-- | Gets a call set by ID.
65+--
66+-- /See:/ 'callSetsGet' smart constructor.
67+data CallSetsGet = CallSetsGet
68+ { _csgXgafv :: !(Maybe Text)
69+ , _csgUploadProtocol :: !(Maybe Text)
70+ , _csgPp :: !Bool
71+ , _csgAccessToken :: !(Maybe Text)
72+ , _csgUploadType :: !(Maybe Text)
73+ , _csgBearerToken :: !(Maybe Text)
74+ , _csgCallSetId :: !Text
75+ , _csgCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'CallSetsGet' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'csgXgafv'
83+--
84+-- * 'csgUploadProtocol'
85+--
86+-- * 'csgPp'
87+--
88+-- * 'csgAccessToken'
89+--
90+-- * 'csgUploadType'
91+--
92+-- * 'csgBearerToken'
93+--
94+-- * 'csgCallSetId'
95+--
96+-- * 'csgCallback'
97+callSetsGet
98+ :: Text -- ^ 'csgCallSetId'
99+ -> CallSetsGet
100+callSetsGet pCsgCallSetId_ =
101+ CallSetsGet
102+ { _csgXgafv = Nothing
103+ , _csgUploadProtocol = Nothing
104+ , _csgPp = True
105+ , _csgAccessToken = Nothing
106+ , _csgUploadType = Nothing
107+ , _csgBearerToken = Nothing
108+ , _csgCallSetId = pCsgCallSetId_
109+ , _csgCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+csgXgafv :: Lens' CallSetsGet (Maybe Text)
114+csgXgafv = lens _csgXgafv (\ s a -> s{_csgXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+csgUploadProtocol :: Lens' CallSetsGet (Maybe Text)
118+csgUploadProtocol
119+ = lens _csgUploadProtocol
120+ (\ s a -> s{_csgUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+csgPp :: Lens' CallSetsGet Bool
124+csgPp = lens _csgPp (\ s a -> s{_csgPp = a})
125+
126+-- | OAuth access token.
127+csgAccessToken :: Lens' CallSetsGet (Maybe Text)
128+csgAccessToken
129+ = lens _csgAccessToken
130+ (\ s a -> s{_csgAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+csgUploadType :: Lens' CallSetsGet (Maybe Text)
134+csgUploadType
135+ = lens _csgUploadType
136+ (\ s a -> s{_csgUploadType = a})
137+
138+-- | OAuth bearer token.
139+csgBearerToken :: Lens' CallSetsGet (Maybe Text)
140+csgBearerToken
141+ = lens _csgBearerToken
142+ (\ s a -> s{_csgBearerToken = a})
143+
144+-- | The ID of the call set.
145+csgCallSetId :: Lens' CallSetsGet Text
146+csgCallSetId
147+ = lens _csgCallSetId (\ s a -> s{_csgCallSetId = a})
148+
149+-- | JSONP
150+csgCallback :: Lens' CallSetsGet (Maybe Text)
151+csgCallback
152+ = lens _csgCallback (\ s a -> s{_csgCallback = a})
153+
154+instance GoogleRequest CallSetsGet where
155+ type Rs CallSetsGet = CallSet
156+ requestClient CallSetsGet{..}
157+ = go _csgCallSetId _csgXgafv _csgUploadProtocol
158+ (Just _csgPp)
159+ _csgAccessToken
160+ _csgUploadType
161+ _csgBearerToken
162+ _csgCallback
163+ (Just AltJSON)
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy CallSetsGetResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Patch.hsnew file+195
@@ -0,0 +1,195 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.CallSets.Patch
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Updates a call set. This method supports patch semantics.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.callsets.patch@.
26+module Network.Google.Resource.Genomics.CallSets.Patch
27+ (
28+ -- * REST Resource
29+ CallSetsPatchResource
30+
31+ -- * Creating a Request
32+ , callSetsPatch
33+ , CallSetsPatch
34+
35+ -- * Request Lenses
36+ , cspXgafv
37+ , cspUploadProtocol
38+ , cspUpdateMask
39+ , cspPp
40+ , cspAccessToken
41+ , cspUploadType
42+ , cspPayload
43+ , cspBearerToken
44+ , cspCallSetId
45+ , cspCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.callsets.patch@ method which the
52+-- 'CallSetsPatch' request conforms to.
53+type CallSetsPatchResource =
54+ "v1" :>
55+ "callsets" :>
56+ Capture "callSetId" Text :>
57+ QueryParam "$.xgafv" Text :>
58+ QueryParam "upload_protocol" Text :>
59+ QueryParam "updateMask" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] CallSet :> Patch '[JSON] CallSet
67+
68+-- | Updates a call set. This method supports patch semantics.
69+--
70+-- /See:/ 'callSetsPatch' smart constructor.
71+data CallSetsPatch = CallSetsPatch
72+ { _cspXgafv :: !(Maybe Text)
73+ , _cspUploadProtocol :: !(Maybe Text)
74+ , _cspUpdateMask :: !(Maybe Text)
75+ , _cspPp :: !Bool
76+ , _cspAccessToken :: !(Maybe Text)
77+ , _cspUploadType :: !(Maybe Text)
78+ , _cspPayload :: !CallSet
79+ , _cspBearerToken :: !(Maybe Text)
80+ , _cspCallSetId :: !Text
81+ , _cspCallback :: !(Maybe Text)
82+ } deriving (Eq,Show,Data,Typeable,Generic)
83+
84+-- | Creates a value of 'CallSetsPatch' with the minimum fields required to make a request.
85+--
86+-- Use one of the following lenses to modify other fields as desired:
87+--
88+-- * 'cspXgafv'
89+--
90+-- * 'cspUploadProtocol'
91+--
92+-- * 'cspUpdateMask'
93+--
94+-- * 'cspPp'
95+--
96+-- * 'cspAccessToken'
97+--
98+-- * 'cspUploadType'
99+--
100+-- * 'cspPayload'
101+--
102+-- * 'cspBearerToken'
103+--
104+-- * 'cspCallSetId'
105+--
106+-- * 'cspCallback'
107+callSetsPatch
108+ :: CallSet -- ^ 'cspPayload'
109+ -> Text -- ^ 'cspCallSetId'
110+ -> CallSetsPatch
111+callSetsPatch pCspPayload_ pCspCallSetId_ =
112+ CallSetsPatch
113+ { _cspXgafv = Nothing
114+ , _cspUploadProtocol = Nothing
115+ , _cspUpdateMask = Nothing
116+ , _cspPp = True
117+ , _cspAccessToken = Nothing
118+ , _cspUploadType = Nothing
119+ , _cspPayload = pCspPayload_
120+ , _cspBearerToken = Nothing
121+ , _cspCallSetId = pCspCallSetId_
122+ , _cspCallback = Nothing
123+ }
124+
125+-- | V1 error format.
126+cspXgafv :: Lens' CallSetsPatch (Maybe Text)
127+cspXgafv = lens _cspXgafv (\ s a -> s{_cspXgafv = a})
128+
129+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
130+cspUploadProtocol :: Lens' CallSetsPatch (Maybe Text)
131+cspUploadProtocol
132+ = lens _cspUploadProtocol
133+ (\ s a -> s{_cspUploadProtocol = a})
134+
135+-- | An optional mask specifying which fields to update. At this time, the
136+-- only mutable field is name. The only acceptable value is \"name\". If
137+-- unspecified, all mutable fields will be updated.
138+cspUpdateMask :: Lens' CallSetsPatch (Maybe Text)
139+cspUpdateMask
140+ = lens _cspUpdateMask
141+ (\ s a -> s{_cspUpdateMask = a})
142+
143+-- | Pretty-print response.
144+cspPp :: Lens' CallSetsPatch Bool
145+cspPp = lens _cspPp (\ s a -> s{_cspPp = a})
146+
147+-- | OAuth access token.
148+cspAccessToken :: Lens' CallSetsPatch (Maybe Text)
149+cspAccessToken
150+ = lens _cspAccessToken
151+ (\ s a -> s{_cspAccessToken = a})
152+
153+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
154+cspUploadType :: Lens' CallSetsPatch (Maybe Text)
155+cspUploadType
156+ = lens _cspUploadType
157+ (\ s a -> s{_cspUploadType = a})
158+
159+-- | Multipart request metadata.
160+cspPayload :: Lens' CallSetsPatch CallSet
161+cspPayload
162+ = lens _cspPayload (\ s a -> s{_cspPayload = a})
163+
164+-- | OAuth bearer token.
165+cspBearerToken :: Lens' CallSetsPatch (Maybe Text)
166+cspBearerToken
167+ = lens _cspBearerToken
168+ (\ s a -> s{_cspBearerToken = a})
169+
170+-- | The ID of the call set to be updated.
171+cspCallSetId :: Lens' CallSetsPatch Text
172+cspCallSetId
173+ = lens _cspCallSetId (\ s a -> s{_cspCallSetId = a})
174+
175+-- | JSONP
176+cspCallback :: Lens' CallSetsPatch (Maybe Text)
177+cspCallback
178+ = lens _cspCallback (\ s a -> s{_cspCallback = a})
179+
180+instance GoogleRequest CallSetsPatch where
181+ type Rs CallSetsPatch = CallSet
182+ requestClient CallSetsPatch{..}
183+ = go _cspCallSetId _cspXgafv _cspUploadProtocol
184+ _cspUpdateMask
185+ (Just _cspPp)
186+ _cspAccessToken
187+ _cspUploadType
188+ _cspBearerToken
189+ _cspCallback
190+ (Just AltJSON)
191+ _cspPayload
192+ genomicsService
193+ where go
194+ = buildClient (Proxy :: Proxy CallSetsPatchResource)
195+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/CallSets/Search.hsnew file+171
@@ -0,0 +1,171 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.CallSets.Search
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets a list of call sets matching the criteria. Implements
24+-- [GlobalAllianceApi.searchCallSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L178).
25+--
26+-- /See:/ < Genomics API Reference> for @genomics.callsets.search@.
27+module Network.Google.Resource.Genomics.CallSets.Search
28+ (
29+ -- * REST Resource
30+ CallSetsSearchResource
31+
32+ -- * Creating a Request
33+ , callSetsSearch
34+ , CallSetsSearch
35+
36+ -- * Request Lenses
37+ , cssXgafv
38+ , cssUploadProtocol
39+ , cssPp
40+ , cssAccessToken
41+ , cssUploadType
42+ , cssPayload
43+ , cssBearerToken
44+ , cssCallback
45+ ) where
46+
47+import Network.Google.Genomics.Types
48+import Network.Google.Prelude
49+
50+-- | A resource alias for @genomics.callsets.search@ method which the
51+-- 'CallSetsSearch' request conforms to.
52+type CallSetsSearchResource =
53+ "v1" :>
54+ "callsets" :>
55+ "search" :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] SearchCallSetsRequest :>
65+ Post '[JSON] SearchCallSetsResponse
66+
67+-- | Gets a list of call sets matching the criteria. Implements
68+-- [GlobalAllianceApi.searchCallSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L178).
69+--
70+-- /See:/ 'callSetsSearch' smart constructor.
71+data CallSetsSearch = CallSetsSearch
72+ { _cssXgafv :: !(Maybe Text)
73+ , _cssUploadProtocol :: !(Maybe Text)
74+ , _cssPp :: !Bool
75+ , _cssAccessToken :: !(Maybe Text)
76+ , _cssUploadType :: !(Maybe Text)
77+ , _cssPayload :: !SearchCallSetsRequest
78+ , _cssBearerToken :: !(Maybe Text)
79+ , _cssCallback :: !(Maybe Text)
80+ } deriving (Eq,Show,Data,Typeable,Generic)
81+
82+-- | Creates a value of 'CallSetsSearch' with the minimum fields required to make a request.
83+--
84+-- Use one of the following lenses to modify other fields as desired:
85+--
86+-- * 'cssXgafv'
87+--
88+-- * 'cssUploadProtocol'
89+--
90+-- * 'cssPp'
91+--
92+-- * 'cssAccessToken'
93+--
94+-- * 'cssUploadType'
95+--
96+-- * 'cssPayload'
97+--
98+-- * 'cssBearerToken'
99+--
100+-- * 'cssCallback'
101+callSetsSearch
102+ :: SearchCallSetsRequest -- ^ 'cssPayload'
103+ -> CallSetsSearch
104+callSetsSearch pCssPayload_ =
105+ CallSetsSearch
106+ { _cssXgafv = Nothing
107+ , _cssUploadProtocol = Nothing
108+ , _cssPp = True
109+ , _cssAccessToken = Nothing
110+ , _cssUploadType = Nothing
111+ , _cssPayload = pCssPayload_
112+ , _cssBearerToken = Nothing
113+ , _cssCallback = Nothing
114+ }
115+
116+-- | V1 error format.
117+cssXgafv :: Lens' CallSetsSearch (Maybe Text)
118+cssXgafv = lens _cssXgafv (\ s a -> s{_cssXgafv = a})
119+
120+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121+cssUploadProtocol :: Lens' CallSetsSearch (Maybe Text)
122+cssUploadProtocol
123+ = lens _cssUploadProtocol
124+ (\ s a -> s{_cssUploadProtocol = a})
125+
126+-- | Pretty-print response.
127+cssPp :: Lens' CallSetsSearch Bool
128+cssPp = lens _cssPp (\ s a -> s{_cssPp = a})
129+
130+-- | OAuth access token.
131+cssAccessToken :: Lens' CallSetsSearch (Maybe Text)
132+cssAccessToken
133+ = lens _cssAccessToken
134+ (\ s a -> s{_cssAccessToken = a})
135+
136+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137+cssUploadType :: Lens' CallSetsSearch (Maybe Text)
138+cssUploadType
139+ = lens _cssUploadType
140+ (\ s a -> s{_cssUploadType = a})
141+
142+-- | Multipart request metadata.
143+cssPayload :: Lens' CallSetsSearch SearchCallSetsRequest
144+cssPayload
145+ = lens _cssPayload (\ s a -> s{_cssPayload = a})
146+
147+-- | OAuth bearer token.
148+cssBearerToken :: Lens' CallSetsSearch (Maybe Text)
149+cssBearerToken
150+ = lens _cssBearerToken
151+ (\ s a -> s{_cssBearerToken = a})
152+
153+-- | JSONP
154+cssCallback :: Lens' CallSetsSearch (Maybe Text)
155+cssCallback
156+ = lens _cssCallback (\ s a -> s{_cssCallback = a})
157+
158+instance GoogleRequest CallSetsSearch where
159+ type Rs CallSetsSearch = SearchCallSetsResponse
160+ requestClient CallSetsSearch{..}
161+ = go _cssXgafv _cssUploadProtocol (Just _cssPp)
162+ _cssAccessToken
163+ _cssUploadType
164+ _cssBearerToken
165+ _cssCallback
166+ (Just AltJSON)
167+ _cssPayload
168+ genomicsService
169+ where go
170+ = buildClient (Proxy :: Proxy CallSetsSearchResource)
171+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Create.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Callsets.Create
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Creates a new call set.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.callsets.create@.
26−module Network.Google.Resource.Genomics.Callsets.Create
27− (
28− -- * REST Resource
29− CallsetsCreateResource
30−
31− -- * Creating a Request
32− , callsetsCreate
33− , CallsetsCreate
34−
35− -- * Request Lenses
36− , ccXgafv
37− , ccUploadProtocol
38− , ccPp
39− , ccAccessToken
40− , ccUploadType
41− , ccPayload
42− , ccBearerToken
43− , ccCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.callsets.create@ method which the
50−-- 'CallsetsCreate' request conforms to.
51−type CallsetsCreateResource =
52− "v1" :>
53− "callsets" :>
54− QueryParam "$.xgafv" Text :>
55− QueryParam "upload_protocol" Text :>
56− QueryParam "pp" Bool :>
57− QueryParam "access_token" Text :>
58− QueryParam "uploadType" Text :>
59− QueryParam "bearer_token" Text :>
60− QueryParam "callback" Text :>
61− QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] CallSet :> Post '[JSON] CallSet
63−
64−-- | Creates a new call set.
65−--
66−-- /See:/ 'callsetsCreate' smart constructor.
67−data CallsetsCreate = CallsetsCreate
68− { _ccXgafv :: !(Maybe Text)
69− , _ccUploadProtocol :: !(Maybe Text)
70− , _ccPp :: !Bool
71− , _ccAccessToken :: !(Maybe Text)
72− , _ccUploadType :: !(Maybe Text)
73− , _ccPayload :: !CallSet
74− , _ccBearerToken :: !(Maybe Text)
75− , _ccCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'CallsetsCreate' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'ccXgafv'
83−--
84−-- * 'ccUploadProtocol'
85−--
86−-- * 'ccPp'
87−--
88−-- * 'ccAccessToken'
89−--
90−-- * 'ccUploadType'
91−--
92−-- * 'ccPayload'
93−--
94−-- * 'ccBearerToken'
95−--
96−-- * 'ccCallback'
97−callsetsCreate
98− :: CallSet -- ^ 'ccPayload'
99− -> CallsetsCreate
100−callsetsCreate pCcPayload_ =
101− CallsetsCreate
102− { _ccXgafv = Nothing
103− , _ccUploadProtocol = Nothing
104− , _ccPp = True
105− , _ccAccessToken = Nothing
106− , _ccUploadType = Nothing
107− , _ccPayload = pCcPayload_
108− , _ccBearerToken = Nothing
109− , _ccCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−ccXgafv :: Lens' CallsetsCreate (Maybe Text)
114−ccXgafv = lens _ccXgafv (\ s a -> s{_ccXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−ccUploadProtocol :: Lens' CallsetsCreate (Maybe Text)
118−ccUploadProtocol
119− = lens _ccUploadProtocol
120− (\ s a -> s{_ccUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−ccPp :: Lens' CallsetsCreate Bool
124−ccPp = lens _ccPp (\ s a -> s{_ccPp = a})
125−
126−-- | OAuth access token.
127−ccAccessToken :: Lens' CallsetsCreate (Maybe Text)
128−ccAccessToken
129− = lens _ccAccessToken
130− (\ s a -> s{_ccAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−ccUploadType :: Lens' CallsetsCreate (Maybe Text)
134−ccUploadType
135− = lens _ccUploadType (\ s a -> s{_ccUploadType = a})
136−
137−-- | Multipart request metadata.
138−ccPayload :: Lens' CallsetsCreate CallSet
139−ccPayload
140− = lens _ccPayload (\ s a -> s{_ccPayload = a})
141−
142−-- | OAuth bearer token.
143−ccBearerToken :: Lens' CallsetsCreate (Maybe Text)
144−ccBearerToken
145− = lens _ccBearerToken
146− (\ s a -> s{_ccBearerToken = a})
147−
148−-- | JSONP
149−ccCallback :: Lens' CallsetsCreate (Maybe Text)
150−ccCallback
151− = lens _ccCallback (\ s a -> s{_ccCallback = a})
152−
153−instance GoogleRequest CallsetsCreate where
154− type Rs CallsetsCreate = CallSet
155− requestClient CallsetsCreate{..}
156− = go _ccXgafv _ccUploadProtocol (Just _ccPp)
157− _ccAccessToken
158− _ccUploadType
159− _ccBearerToken
160− _ccCallback
161− (Just AltJSON)
162− _ccPayload
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy CallsetsCreateResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Delete.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Callsets.Delete
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Deletes a call set.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.callsets.delete@.
26−module Network.Google.Resource.Genomics.Callsets.Delete
27− (
28− -- * REST Resource
29− CallsetsDeleteResource
30−
31− -- * Creating a Request
32− , callsetsDelete
33− , CallsetsDelete
34−
35− -- * Request Lenses
36− , cdXgafv
37− , cdUploadProtocol
38− , cdPp
39− , cdAccessToken
40− , cdUploadType
41− , cdBearerToken
42− , cdCallSetId
43− , cdCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.callsets.delete@ method which the
50−-- 'CallsetsDelete' request conforms to.
51−type CallsetsDeleteResource =
52− "v1" :>
53− "callsets" :>
54− Capture "callSetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63−
64−-- | Deletes a call set.
65−--
66−-- /See:/ 'callsetsDelete' smart constructor.
67−data CallsetsDelete = CallsetsDelete
68− { _cdXgafv :: !(Maybe Text)
69− , _cdUploadProtocol :: !(Maybe Text)
70− , _cdPp :: !Bool
71− , _cdAccessToken :: !(Maybe Text)
72− , _cdUploadType :: !(Maybe Text)
73− , _cdBearerToken :: !(Maybe Text)
74− , _cdCallSetId :: !Text
75− , _cdCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'CallsetsDelete' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'cdXgafv'
83−--
84−-- * 'cdUploadProtocol'
85−--
86−-- * 'cdPp'
87−--
88−-- * 'cdAccessToken'
89−--
90−-- * 'cdUploadType'
91−--
92−-- * 'cdBearerToken'
93−--
94−-- * 'cdCallSetId'
95−--
96−-- * 'cdCallback'
97−callsetsDelete
98− :: Text -- ^ 'cdCallSetId'
99− -> CallsetsDelete
100−callsetsDelete pCdCallSetId_ =
101− CallsetsDelete
102− { _cdXgafv = Nothing
103− , _cdUploadProtocol = Nothing
104− , _cdPp = True
105− , _cdAccessToken = Nothing
106− , _cdUploadType = Nothing
107− , _cdBearerToken = Nothing
108− , _cdCallSetId = pCdCallSetId_
109− , _cdCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−cdXgafv :: Lens' CallsetsDelete (Maybe Text)
114−cdXgafv = lens _cdXgafv (\ s a -> s{_cdXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−cdUploadProtocol :: Lens' CallsetsDelete (Maybe Text)
118−cdUploadProtocol
119− = lens _cdUploadProtocol
120− (\ s a -> s{_cdUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−cdPp :: Lens' CallsetsDelete Bool
124−cdPp = lens _cdPp (\ s a -> s{_cdPp = a})
125−
126−-- | OAuth access token.
127−cdAccessToken :: Lens' CallsetsDelete (Maybe Text)
128−cdAccessToken
129− = lens _cdAccessToken
130− (\ s a -> s{_cdAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−cdUploadType :: Lens' CallsetsDelete (Maybe Text)
134−cdUploadType
135− = lens _cdUploadType (\ s a -> s{_cdUploadType = a})
136−
137−-- | OAuth bearer token.
138−cdBearerToken :: Lens' CallsetsDelete (Maybe Text)
139−cdBearerToken
140− = lens _cdBearerToken
141− (\ s a -> s{_cdBearerToken = a})
142−
143−-- | The ID of the call set to be deleted.
144−cdCallSetId :: Lens' CallsetsDelete Text
145−cdCallSetId
146− = lens _cdCallSetId (\ s a -> s{_cdCallSetId = a})
147−
148−-- | JSONP
149−cdCallback :: Lens' CallsetsDelete (Maybe Text)
150−cdCallback
151− = lens _cdCallback (\ s a -> s{_cdCallback = a})
152−
153−instance GoogleRequest CallsetsDelete where
154− type Rs CallsetsDelete = Empty
155− requestClient CallsetsDelete{..}
156− = go _cdCallSetId _cdXgafv _cdUploadProtocol
157− (Just _cdPp)
158− _cdAccessToken
159− _cdUploadType
160− _cdBearerToken
161− _cdCallback
162− (Just AltJSON)
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy CallsetsDeleteResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Get.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Callsets.Get
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets a call set by ID.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.callsets.get@.
26−module Network.Google.Resource.Genomics.Callsets.Get
27− (
28− -- * REST Resource
29− CallsetsGetResource
30−
31− -- * Creating a Request
32− , callsetsGet
33− , CallsetsGet
34−
35− -- * Request Lenses
36− , cgXgafv
37− , cgUploadProtocol
38− , cgPp
39− , cgAccessToken
40− , cgUploadType
41− , cgBearerToken
42− , cgCallSetId
43− , cgCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.callsets.get@ method which the
50−-- 'CallsetsGet' request conforms to.
51−type CallsetsGetResource =
52− "v1" :>
53− "callsets" :>
54− Capture "callSetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Get '[JSON] CallSet
63−
64−-- | Gets a call set by ID.
65−--
66−-- /See:/ 'callsetsGet' smart constructor.
67−data CallsetsGet = CallsetsGet
68− { _cgXgafv :: !(Maybe Text)
69− , _cgUploadProtocol :: !(Maybe Text)
70− , _cgPp :: !Bool
71− , _cgAccessToken :: !(Maybe Text)
72− , _cgUploadType :: !(Maybe Text)
73− , _cgBearerToken :: !(Maybe Text)
74− , _cgCallSetId :: !Text
75− , _cgCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'CallsetsGet' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'cgXgafv'
83−--
84−-- * 'cgUploadProtocol'
85−--
86−-- * 'cgPp'
87−--
88−-- * 'cgAccessToken'
89−--
90−-- * 'cgUploadType'
91−--
92−-- * 'cgBearerToken'
93−--
94−-- * 'cgCallSetId'
95−--
96−-- * 'cgCallback'
97−callsetsGet
98− :: Text -- ^ 'cgCallSetId'
99− -> CallsetsGet
100−callsetsGet pCgCallSetId_ =
101− CallsetsGet
102− { _cgXgafv = Nothing
103− , _cgUploadProtocol = Nothing
104− , _cgPp = True
105− , _cgAccessToken = Nothing
106− , _cgUploadType = Nothing
107− , _cgBearerToken = Nothing
108− , _cgCallSetId = pCgCallSetId_
109− , _cgCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−cgXgafv :: Lens' CallsetsGet (Maybe Text)
114−cgXgafv = lens _cgXgafv (\ s a -> s{_cgXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−cgUploadProtocol :: Lens' CallsetsGet (Maybe Text)
118−cgUploadProtocol
119− = lens _cgUploadProtocol
120− (\ s a -> s{_cgUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−cgPp :: Lens' CallsetsGet Bool
124−cgPp = lens _cgPp (\ s a -> s{_cgPp = a})
125−
126−-- | OAuth access token.
127−cgAccessToken :: Lens' CallsetsGet (Maybe Text)
128−cgAccessToken
129− = lens _cgAccessToken
130− (\ s a -> s{_cgAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−cgUploadType :: Lens' CallsetsGet (Maybe Text)
134−cgUploadType
135− = lens _cgUploadType (\ s a -> s{_cgUploadType = a})
136−
137−-- | OAuth bearer token.
138−cgBearerToken :: Lens' CallsetsGet (Maybe Text)
139−cgBearerToken
140− = lens _cgBearerToken
141− (\ s a -> s{_cgBearerToken = a})
142−
143−-- | The ID of the call set.
144−cgCallSetId :: Lens' CallsetsGet Text
145−cgCallSetId
146− = lens _cgCallSetId (\ s a -> s{_cgCallSetId = a})
147−
148−-- | JSONP
149−cgCallback :: Lens' CallsetsGet (Maybe Text)
150−cgCallback
151− = lens _cgCallback (\ s a -> s{_cgCallback = a})
152−
153−instance GoogleRequest CallsetsGet where
154− type Rs CallsetsGet = CallSet
155− requestClient CallsetsGet{..}
156− = go _cgCallSetId _cgXgafv _cgUploadProtocol
157− (Just _cgPp)
158− _cgAccessToken
159− _cgUploadType
160− _cgBearerToken
161− _cgCallback
162− (Just AltJSON)
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy CallsetsGetResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Patch.hsdeleted−193
@@ -1,193 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Callsets.Patch
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Updates a call set. This method supports patch semantics.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.callsets.patch@.
26−module Network.Google.Resource.Genomics.Callsets.Patch
27− (
28− -- * REST Resource
29− CallsetsPatchResource
30−
31− -- * Creating a Request
32− , callsetsPatch
33− , CallsetsPatch
34−
35− -- * Request Lenses
36− , cpXgafv
37− , cpUploadProtocol
38− , cpUpdateMask
39− , cpPp
40− , cpAccessToken
41− , cpUploadType
42− , cpPayload
43− , cpBearerToken
44− , cpCallSetId
45− , cpCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.callsets.patch@ method which the
52−-- 'CallsetsPatch' request conforms to.
53−type CallsetsPatchResource =
54− "v1" :>
55− "callsets" :>
56− Capture "callSetId" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "updateMask" Text :>
60− QueryParam "pp" Bool :>
61− QueryParam "access_token" Text :>
62− QueryParam "uploadType" Text :>
63− QueryParam "bearer_token" Text :>
64− QueryParam "callback" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] CallSet :> Patch '[JSON] CallSet
67−
68−-- | Updates a call set. This method supports patch semantics.
69−--
70−-- /See:/ 'callsetsPatch' smart constructor.
71−data CallsetsPatch = CallsetsPatch
72− { _cpXgafv :: !(Maybe Text)
73− , _cpUploadProtocol :: !(Maybe Text)
74− , _cpUpdateMask :: !(Maybe Text)
75− , _cpPp :: !Bool
76− , _cpAccessToken :: !(Maybe Text)
77− , _cpUploadType :: !(Maybe Text)
78− , _cpPayload :: !CallSet
79− , _cpBearerToken :: !(Maybe Text)
80− , _cpCallSetId :: !Text
81− , _cpCallback :: !(Maybe Text)
82− } deriving (Eq,Show,Data,Typeable,Generic)
83−
84−-- | Creates a value of 'CallsetsPatch' with the minimum fields required to make a request.
85−--
86−-- Use one of the following lenses to modify other fields as desired:
87−--
88−-- * 'cpXgafv'
89−--
90−-- * 'cpUploadProtocol'
91−--
92−-- * 'cpUpdateMask'
93−--
94−-- * 'cpPp'
95−--
96−-- * 'cpAccessToken'
97−--
98−-- * 'cpUploadType'
99−--
100−-- * 'cpPayload'
101−--
102−-- * 'cpBearerToken'
103−--
104−-- * 'cpCallSetId'
105−--
106−-- * 'cpCallback'
107−callsetsPatch
108− :: CallSet -- ^ 'cpPayload'
109− -> Text -- ^ 'cpCallSetId'
110− -> CallsetsPatch
111−callsetsPatch pCpPayload_ pCpCallSetId_ =
112− CallsetsPatch
113− { _cpXgafv = Nothing
114− , _cpUploadProtocol = Nothing
115− , _cpUpdateMask = Nothing
116− , _cpPp = True
117− , _cpAccessToken = Nothing
118− , _cpUploadType = Nothing
119− , _cpPayload = pCpPayload_
120− , _cpBearerToken = Nothing
121− , _cpCallSetId = pCpCallSetId_
122− , _cpCallback = Nothing
123− }
124−
125−-- | V1 error format.
126−cpXgafv :: Lens' CallsetsPatch (Maybe Text)
127−cpXgafv = lens _cpXgafv (\ s a -> s{_cpXgafv = a})
128−
129−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
130−cpUploadProtocol :: Lens' CallsetsPatch (Maybe Text)
131−cpUploadProtocol
132− = lens _cpUploadProtocol
133− (\ s a -> s{_cpUploadProtocol = a})
134−
135−-- | An optional mask specifying which fields to update. At this time, the
136−-- only mutable field is name. The only acceptable value is \"name\". If
137−-- unspecified, all mutable fields will be updated.
138−cpUpdateMask :: Lens' CallsetsPatch (Maybe Text)
139−cpUpdateMask
140− = lens _cpUpdateMask (\ s a -> s{_cpUpdateMask = a})
141−
142−-- | Pretty-print response.
143−cpPp :: Lens' CallsetsPatch Bool
144−cpPp = lens _cpPp (\ s a -> s{_cpPp = a})
145−
146−-- | OAuth access token.
147−cpAccessToken :: Lens' CallsetsPatch (Maybe Text)
148−cpAccessToken
149− = lens _cpAccessToken
150− (\ s a -> s{_cpAccessToken = a})
151−
152−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
153−cpUploadType :: Lens' CallsetsPatch (Maybe Text)
154−cpUploadType
155− = lens _cpUploadType (\ s a -> s{_cpUploadType = a})
156−
157−-- | Multipart request metadata.
158−cpPayload :: Lens' CallsetsPatch CallSet
159−cpPayload
160− = lens _cpPayload (\ s a -> s{_cpPayload = a})
161−
162−-- | OAuth bearer token.
163−cpBearerToken :: Lens' CallsetsPatch (Maybe Text)
164−cpBearerToken
165− = lens _cpBearerToken
166− (\ s a -> s{_cpBearerToken = a})
167−
168−-- | The ID of the call set to be updated.
169−cpCallSetId :: Lens' CallsetsPatch Text
170−cpCallSetId
171− = lens _cpCallSetId (\ s a -> s{_cpCallSetId = a})
172−
173−-- | JSONP
174−cpCallback :: Lens' CallsetsPatch (Maybe Text)
175−cpCallback
176− = lens _cpCallback (\ s a -> s{_cpCallback = a})
177−
178−instance GoogleRequest CallsetsPatch where
179− type Rs CallsetsPatch = CallSet
180− requestClient CallsetsPatch{..}
181− = go _cpCallSetId _cpXgafv _cpUploadProtocol
182− _cpUpdateMask
183− (Just _cpPp)
184− _cpAccessToken
185− _cpUploadType
186− _cpBearerToken
187− _cpCallback
188− (Just AltJSON)
189− _cpPayload
190− genomicsService
191− where go
192− = buildClient (Proxy :: Proxy CallsetsPatchResource)
193− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Search.hsdeleted−170
@@ -1,170 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Callsets.Search
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets a list of call sets matching the criteria. Implements
24−-- [GlobalAllianceApi.searchCallSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L178).
25−--
26−-- /See:/ < Genomics API Reference> for @genomics.callsets.search@.
27−module Network.Google.Resource.Genomics.Callsets.Search
28− (
29− -- * REST Resource
30− CallsetsSearchResource
31−
32− -- * Creating a Request
33− , callsetsSearch
34− , CallsetsSearch
35−
36− -- * Request Lenses
37− , csXgafv
38− , csUploadProtocol
39− , csPp
40− , csAccessToken
41− , csUploadType
42− , csPayload
43− , csBearerToken
44− , csCallback
45− ) where
46−
47−import Network.Google.Genomics.Types
48−import Network.Google.Prelude
49−
50−-- | A resource alias for @genomics.callsets.search@ method which the
51−-- 'CallsetsSearch' request conforms to.
52−type CallsetsSearchResource =
53− "v1" :>
54− "callsets" :>
55− "search" :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] SearchCallSetsRequest :>
65− Post '[JSON] SearchCallSetsResponse
66−
67−-- | Gets a list of call sets matching the criteria. Implements
68−-- [GlobalAllianceApi.searchCallSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L178).
69−--
70−-- /See:/ 'callsetsSearch' smart constructor.
71−data CallsetsSearch = CallsetsSearch
72− { _csXgafv :: !(Maybe Text)
73− , _csUploadProtocol :: !(Maybe Text)
74− , _csPp :: !Bool
75− , _csAccessToken :: !(Maybe Text)
76− , _csUploadType :: !(Maybe Text)
77− , _csPayload :: !SearchCallSetsRequest
78− , _csBearerToken :: !(Maybe Text)
79− , _csCallback :: !(Maybe Text)
80− } deriving (Eq,Show,Data,Typeable,Generic)
81−
82−-- | Creates a value of 'CallsetsSearch' with the minimum fields required to make a request.
83−--
84−-- Use one of the following lenses to modify other fields as desired:
85−--
86−-- * 'csXgafv'
87−--
88−-- * 'csUploadProtocol'
89−--
90−-- * 'csPp'
91−--
92−-- * 'csAccessToken'
93−--
94−-- * 'csUploadType'
95−--
96−-- * 'csPayload'
97−--
98−-- * 'csBearerToken'
99−--
100−-- * 'csCallback'
101−callsetsSearch
102− :: SearchCallSetsRequest -- ^ 'csPayload'
103− -> CallsetsSearch
104−callsetsSearch pCsPayload_ =
105− CallsetsSearch
106− { _csXgafv = Nothing
107− , _csUploadProtocol = Nothing
108− , _csPp = True
109− , _csAccessToken = Nothing
110− , _csUploadType = Nothing
111− , _csPayload = pCsPayload_
112− , _csBearerToken = Nothing
113− , _csCallback = Nothing
114− }
115−
116−-- | V1 error format.
117−csXgafv :: Lens' CallsetsSearch (Maybe Text)
118−csXgafv = lens _csXgafv (\ s a -> s{_csXgafv = a})
119−
120−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121−csUploadProtocol :: Lens' CallsetsSearch (Maybe Text)
122−csUploadProtocol
123− = lens _csUploadProtocol
124− (\ s a -> s{_csUploadProtocol = a})
125−
126−-- | Pretty-print response.
127−csPp :: Lens' CallsetsSearch Bool
128−csPp = lens _csPp (\ s a -> s{_csPp = a})
129−
130−-- | OAuth access token.
131−csAccessToken :: Lens' CallsetsSearch (Maybe Text)
132−csAccessToken
133− = lens _csAccessToken
134− (\ s a -> s{_csAccessToken = a})
135−
136−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137−csUploadType :: Lens' CallsetsSearch (Maybe Text)
138−csUploadType
139− = lens _csUploadType (\ s a -> s{_csUploadType = a})
140−
141−-- | Multipart request metadata.
142−csPayload :: Lens' CallsetsSearch SearchCallSetsRequest
143−csPayload
144− = lens _csPayload (\ s a -> s{_csPayload = a})
145−
146−-- | OAuth bearer token.
147−csBearerToken :: Lens' CallsetsSearch (Maybe Text)
148−csBearerToken
149− = lens _csBearerToken
150− (\ s a -> s{_csBearerToken = a})
151−
152−-- | JSONP
153−csCallback :: Lens' CallsetsSearch (Maybe Text)
154−csCallback
155− = lens _csCallback (\ s a -> s{_csCallback = a})
156−
157−instance GoogleRequest CallsetsSearch where
158− type Rs CallsetsSearch = SearchCallSetsResponse
159− requestClient CallsetsSearch{..}
160− = go _csXgafv _csUploadProtocol (Just _csPp)
161− _csAccessToken
162− _csUploadType
163− _csBearerToken
164− _csCallback
165− (Just AltJSON)
166− _csPayload
167− genomicsService
168− where go
169− = buildClient (Proxy :: Proxy CallsetsSearchResource)
170− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Create.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.Create
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Creates a new dataset.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.datasets.create@.
26+module Network.Google.Resource.Genomics.DataSets.Create
27+ (
28+ -- * REST Resource
29+ DataSetsCreateResource
30+
31+ -- * Creating a Request
32+ , dataSetsCreate
33+ , DataSetsCreate
34+
35+ -- * Request Lenses
36+ , dscXgafv
37+ , dscUploadProtocol
38+ , dscPp
39+ , dscAccessToken
40+ , dscUploadType
41+ , dscPayload
42+ , dscBearerToken
43+ , dscCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.datasets.create@ method which the
50+-- 'DataSetsCreate' request conforms to.
51+type DataSetsCreateResource =
52+ "v1" :>
53+ "datasets" :>
54+ QueryParam "$.xgafv" Text :>
55+ QueryParam "upload_protocol" Text :>
56+ QueryParam "pp" Bool :>
57+ QueryParam "access_token" Text :>
58+ QueryParam "uploadType" Text :>
59+ QueryParam "bearer_token" Text :>
60+ QueryParam "callback" Text :>
61+ QueryParam "alt" AltJSON :>
62+ ReqBody '[JSON] DataSet :> Post '[JSON] DataSet
63+
64+-- | Creates a new dataset.
65+--
66+-- /See:/ 'dataSetsCreate' smart constructor.
67+data DataSetsCreate = DataSetsCreate
68+ { _dscXgafv :: !(Maybe Text)
69+ , _dscUploadProtocol :: !(Maybe Text)
70+ , _dscPp :: !Bool
71+ , _dscAccessToken :: !(Maybe Text)
72+ , _dscUploadType :: !(Maybe Text)
73+ , _dscPayload :: !DataSet
74+ , _dscBearerToken :: !(Maybe Text)
75+ , _dscCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'DataSetsCreate' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'dscXgafv'
83+--
84+-- * 'dscUploadProtocol'
85+--
86+-- * 'dscPp'
87+--
88+-- * 'dscAccessToken'
89+--
90+-- * 'dscUploadType'
91+--
92+-- * 'dscPayload'
93+--
94+-- * 'dscBearerToken'
95+--
96+-- * 'dscCallback'
97+dataSetsCreate
98+ :: DataSet -- ^ 'dscPayload'
99+ -> DataSetsCreate
100+dataSetsCreate pDscPayload_ =
101+ DataSetsCreate
102+ { _dscXgafv = Nothing
103+ , _dscUploadProtocol = Nothing
104+ , _dscPp = True
105+ , _dscAccessToken = Nothing
106+ , _dscUploadType = Nothing
107+ , _dscPayload = pDscPayload_
108+ , _dscBearerToken = Nothing
109+ , _dscCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+dscXgafv :: Lens' DataSetsCreate (Maybe Text)
114+dscXgafv = lens _dscXgafv (\ s a -> s{_dscXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+dscUploadProtocol :: Lens' DataSetsCreate (Maybe Text)
118+dscUploadProtocol
119+ = lens _dscUploadProtocol
120+ (\ s a -> s{_dscUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+dscPp :: Lens' DataSetsCreate Bool
124+dscPp = lens _dscPp (\ s a -> s{_dscPp = a})
125+
126+-- | OAuth access token.
127+dscAccessToken :: Lens' DataSetsCreate (Maybe Text)
128+dscAccessToken
129+ = lens _dscAccessToken
130+ (\ s a -> s{_dscAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+dscUploadType :: Lens' DataSetsCreate (Maybe Text)
134+dscUploadType
135+ = lens _dscUploadType
136+ (\ s a -> s{_dscUploadType = a})
137+
138+-- | Multipart request metadata.
139+dscPayload :: Lens' DataSetsCreate DataSet
140+dscPayload
141+ = lens _dscPayload (\ s a -> s{_dscPayload = a})
142+
143+-- | OAuth bearer token.
144+dscBearerToken :: Lens' DataSetsCreate (Maybe Text)
145+dscBearerToken
146+ = lens _dscBearerToken
147+ (\ s a -> s{_dscBearerToken = a})
148+
149+-- | JSONP
150+dscCallback :: Lens' DataSetsCreate (Maybe Text)
151+dscCallback
152+ = lens _dscCallback (\ s a -> s{_dscCallback = a})
153+
154+instance GoogleRequest DataSetsCreate where
155+ type Rs DataSetsCreate = DataSet
156+ requestClient DataSetsCreate{..}
157+ = go _dscXgafv _dscUploadProtocol (Just _dscPp)
158+ _dscAccessToken
159+ _dscUploadType
160+ _dscBearerToken
161+ _dscCallback
162+ (Just AltJSON)
163+ _dscPayload
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy DataSetsCreateResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Delete.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.Delete
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Deletes a dataset.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.datasets.delete@.
26+module Network.Google.Resource.Genomics.DataSets.Delete
27+ (
28+ -- * REST Resource
29+ DataSetsDeleteResource
30+
31+ -- * Creating a Request
32+ , dataSetsDelete
33+ , DataSetsDelete
34+
35+ -- * Request Lenses
36+ , dsdXgafv
37+ , dsdUploadProtocol
38+ , dsdPp
39+ , dsdAccessToken
40+ , dsdUploadType
41+ , dsdBearerToken
42+ , dsdDataSetId
43+ , dsdCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.datasets.delete@ method which the
50+-- 'DataSetsDelete' request conforms to.
51+type DataSetsDeleteResource =
52+ "v1" :>
53+ "datasets" :>
54+ Capture "datasetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63+
64+-- | Deletes a dataset.
65+--
66+-- /See:/ 'dataSetsDelete' smart constructor.
67+data DataSetsDelete = DataSetsDelete
68+ { _dsdXgafv :: !(Maybe Text)
69+ , _dsdUploadProtocol :: !(Maybe Text)
70+ , _dsdPp :: !Bool
71+ , _dsdAccessToken :: !(Maybe Text)
72+ , _dsdUploadType :: !(Maybe Text)
73+ , _dsdBearerToken :: !(Maybe Text)
74+ , _dsdDataSetId :: !Text
75+ , _dsdCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'DataSetsDelete' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'dsdXgafv'
83+--
84+-- * 'dsdUploadProtocol'
85+--
86+-- * 'dsdPp'
87+--
88+-- * 'dsdAccessToken'
89+--
90+-- * 'dsdUploadType'
91+--
92+-- * 'dsdBearerToken'
93+--
94+-- * 'dsdDataSetId'
95+--
96+-- * 'dsdCallback'
97+dataSetsDelete
98+ :: Text -- ^ 'dsdDataSetId'
99+ -> DataSetsDelete
100+dataSetsDelete pDsdDataSetId_ =
101+ DataSetsDelete
102+ { _dsdXgafv = Nothing
103+ , _dsdUploadProtocol = Nothing
104+ , _dsdPp = True
105+ , _dsdAccessToken = Nothing
106+ , _dsdUploadType = Nothing
107+ , _dsdBearerToken = Nothing
108+ , _dsdDataSetId = pDsdDataSetId_
109+ , _dsdCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+dsdXgafv :: Lens' DataSetsDelete (Maybe Text)
114+dsdXgafv = lens _dsdXgafv (\ s a -> s{_dsdXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+dsdUploadProtocol :: Lens' DataSetsDelete (Maybe Text)
118+dsdUploadProtocol
119+ = lens _dsdUploadProtocol
120+ (\ s a -> s{_dsdUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+dsdPp :: Lens' DataSetsDelete Bool
124+dsdPp = lens _dsdPp (\ s a -> s{_dsdPp = a})
125+
126+-- | OAuth access token.
127+dsdAccessToken :: Lens' DataSetsDelete (Maybe Text)
128+dsdAccessToken
129+ = lens _dsdAccessToken
130+ (\ s a -> s{_dsdAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+dsdUploadType :: Lens' DataSetsDelete (Maybe Text)
134+dsdUploadType
135+ = lens _dsdUploadType
136+ (\ s a -> s{_dsdUploadType = a})
137+
138+-- | OAuth bearer token.
139+dsdBearerToken :: Lens' DataSetsDelete (Maybe Text)
140+dsdBearerToken
141+ = lens _dsdBearerToken
142+ (\ s a -> s{_dsdBearerToken = a})
143+
144+-- | The ID of the dataset to be deleted.
145+dsdDataSetId :: Lens' DataSetsDelete Text
146+dsdDataSetId
147+ = lens _dsdDataSetId (\ s a -> s{_dsdDataSetId = a})
148+
149+-- | JSONP
150+dsdCallback :: Lens' DataSetsDelete (Maybe Text)
151+dsdCallback
152+ = lens _dsdCallback (\ s a -> s{_dsdCallback = a})
153+
154+instance GoogleRequest DataSetsDelete where
155+ type Rs DataSetsDelete = Empty
156+ requestClient DataSetsDelete{..}
157+ = go _dsdDataSetId _dsdXgafv _dsdUploadProtocol
158+ (Just _dsdPp)
159+ _dsdAccessToken
160+ _dsdUploadType
161+ _dsdBearerToken
162+ _dsdCallback
163+ (Just AltJSON)
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy DataSetsDeleteResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Get.hsnew file+167
@@ -0,0 +1,167 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.Get
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets a dataset by ID.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.datasets.get@.
26+module Network.Google.Resource.Genomics.DataSets.Get
27+ (
28+ -- * REST Resource
29+ DataSetsGetResource
30+
31+ -- * Creating a Request
32+ , dataSetsGet
33+ , DataSetsGet
34+
35+ -- * Request Lenses
36+ , dsgXgafv
37+ , dsgUploadProtocol
38+ , dsgPp
39+ , dsgAccessToken
40+ , dsgUploadType
41+ , dsgBearerToken
42+ , dsgDataSetId
43+ , dsgCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.datasets.get@ method which the
50+-- 'DataSetsGet' request conforms to.
51+type DataSetsGetResource =
52+ "v1" :>
53+ "datasets" :>
54+ Capture "datasetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Get '[JSON] DataSet
63+
64+-- | Gets a dataset by ID.
65+--
66+-- /See:/ 'dataSetsGet' smart constructor.
67+data DataSetsGet = DataSetsGet
68+ { _dsgXgafv :: !(Maybe Text)
69+ , _dsgUploadProtocol :: !(Maybe Text)
70+ , _dsgPp :: !Bool
71+ , _dsgAccessToken :: !(Maybe Text)
72+ , _dsgUploadType :: !(Maybe Text)
73+ , _dsgBearerToken :: !(Maybe Text)
74+ , _dsgDataSetId :: !Text
75+ , _dsgCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'DataSetsGet' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'dsgXgafv'
83+--
84+-- * 'dsgUploadProtocol'
85+--
86+-- * 'dsgPp'
87+--
88+-- * 'dsgAccessToken'
89+--
90+-- * 'dsgUploadType'
91+--
92+-- * 'dsgBearerToken'
93+--
94+-- * 'dsgDataSetId'
95+--
96+-- * 'dsgCallback'
97+dataSetsGet
98+ :: Text -- ^ 'dsgDataSetId'
99+ -> DataSetsGet
100+dataSetsGet pDsgDataSetId_ =
101+ DataSetsGet
102+ { _dsgXgafv = Nothing
103+ , _dsgUploadProtocol = Nothing
104+ , _dsgPp = True
105+ , _dsgAccessToken = Nothing
106+ , _dsgUploadType = Nothing
107+ , _dsgBearerToken = Nothing
108+ , _dsgDataSetId = pDsgDataSetId_
109+ , _dsgCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+dsgXgafv :: Lens' DataSetsGet (Maybe Text)
114+dsgXgafv = lens _dsgXgafv (\ s a -> s{_dsgXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+dsgUploadProtocol :: Lens' DataSetsGet (Maybe Text)
118+dsgUploadProtocol
119+ = lens _dsgUploadProtocol
120+ (\ s a -> s{_dsgUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+dsgPp :: Lens' DataSetsGet Bool
124+dsgPp = lens _dsgPp (\ s a -> s{_dsgPp = a})
125+
126+-- | OAuth access token.
127+dsgAccessToken :: Lens' DataSetsGet (Maybe Text)
128+dsgAccessToken
129+ = lens _dsgAccessToken
130+ (\ s a -> s{_dsgAccessToken = a})
131+
132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133+dsgUploadType :: Lens' DataSetsGet (Maybe Text)
134+dsgUploadType
135+ = lens _dsgUploadType
136+ (\ s a -> s{_dsgUploadType = a})
137+
138+-- | OAuth bearer token.
139+dsgBearerToken :: Lens' DataSetsGet (Maybe Text)
140+dsgBearerToken
141+ = lens _dsgBearerToken
142+ (\ s a -> s{_dsgBearerToken = a})
143+
144+-- | The ID of the dataset.
145+dsgDataSetId :: Lens' DataSetsGet Text
146+dsgDataSetId
147+ = lens _dsgDataSetId (\ s a -> s{_dsgDataSetId = a})
148+
149+-- | JSONP
150+dsgCallback :: Lens' DataSetsGet (Maybe Text)
151+dsgCallback
152+ = lens _dsgCallback (\ s a -> s{_dsgCallback = a})
153+
154+instance GoogleRequest DataSetsGet where
155+ type Rs DataSetsGet = DataSet
156+ requestClient DataSetsGet{..}
157+ = go _dsgDataSetId _dsgXgafv _dsgUploadProtocol
158+ (Just _dsgPp)
159+ _dsgAccessToken
160+ _dsgUploadType
161+ _dsgBearerToken
162+ _dsgCallback
163+ (Just AltJSON)
164+ genomicsService
165+ where go
166+ = buildClient (Proxy :: Proxy DataSetsGetResource)
167+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/GetIAMPolicy.hsnew file+189
@@ -0,0 +1,189 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets the access control policy for the dataset. Is empty if the policy
24+-- or the resource does not exist. See Getting a Policy for more
25+-- information.
26+--
27+-- /See:/ < Genomics API Reference> for @genomics.datasets.getIamPolicy@.
28+module Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
29+ (
30+ -- * REST Resource
31+ DataSetsGetIAMPolicyResource
32+
33+ -- * Creating a Request
34+ , dataSetsGetIAMPolicy
35+ , DataSetsGetIAMPolicy
36+
37+ -- * Request Lenses
38+ , dsgipXgafv
39+ , dsgipUploadProtocol
40+ , dsgipPp
41+ , dsgipAccessToken
42+ , dsgipUploadType
43+ , dsgipPayload
44+ , dsgipBearerToken
45+ , dsgipResource
46+ , dsgipCallback
47+ ) where
48+
49+import Network.Google.Genomics.Types
50+import Network.Google.Prelude
51+
52+-- | A resource alias for @genomics.datasets.getIamPolicy@ method which the
53+-- 'DataSetsGetIAMPolicy' request conforms to.
54+type DataSetsGetIAMPolicyResource =
55+ "v1" :>
56+ CaptureMode "resource" "getIamPolicy" Text :>
57+ QueryParam "$.xgafv" Text :>
58+ QueryParam "upload_protocol" Text :>
59+ QueryParam "pp" Bool :>
60+ QueryParam "access_token" Text :>
61+ QueryParam "uploadType" Text :>
62+ QueryParam "bearer_token" Text :>
63+ QueryParam "callback" Text :>
64+ QueryParam "alt" AltJSON :>
65+ ReqBody '[JSON] GetIAMPolicyRequest :>
66+ Post '[JSON] Policy
67+
68+-- | Gets the access control policy for the dataset. Is empty if the policy
69+-- or the resource does not exist. See Getting a Policy for more
70+-- information.
71+--
72+-- /See:/ 'dataSetsGetIAMPolicy' smart constructor.
73+data DataSetsGetIAMPolicy = DataSetsGetIAMPolicy
74+ { _dsgipXgafv :: !(Maybe Text)
75+ , _dsgipUploadProtocol :: !(Maybe Text)
76+ , _dsgipPp :: !Bool
77+ , _dsgipAccessToken :: !(Maybe Text)
78+ , _dsgipUploadType :: !(Maybe Text)
79+ , _dsgipPayload :: !GetIAMPolicyRequest
80+ , _dsgipBearerToken :: !(Maybe Text)
81+ , _dsgipResource :: !Text
82+ , _dsgipCallback :: !(Maybe Text)
83+ } deriving (Eq,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'DataSetsGetIAMPolicy' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'dsgipXgafv'
90+--
91+-- * 'dsgipUploadProtocol'
92+--
93+-- * 'dsgipPp'
94+--
95+-- * 'dsgipAccessToken'
96+--
97+-- * 'dsgipUploadType'
98+--
99+-- * 'dsgipPayload'
100+--
101+-- * 'dsgipBearerToken'
102+--
103+-- * 'dsgipResource'
104+--
105+-- * 'dsgipCallback'
106+dataSetsGetIAMPolicy
107+ :: GetIAMPolicyRequest -- ^ 'dsgipPayload'
108+ -> Text -- ^ 'dsgipResource'
109+ -> DataSetsGetIAMPolicy
110+dataSetsGetIAMPolicy pDsgipPayload_ pDsgipResource_ =
111+ DataSetsGetIAMPolicy
112+ { _dsgipXgafv = Nothing
113+ , _dsgipUploadProtocol = Nothing
114+ , _dsgipPp = True
115+ , _dsgipAccessToken = Nothing
116+ , _dsgipUploadType = Nothing
117+ , _dsgipPayload = pDsgipPayload_
118+ , _dsgipBearerToken = Nothing
119+ , _dsgipResource = pDsgipResource_
120+ , _dsgipCallback = Nothing
121+ }
122+
123+-- | V1 error format.
124+dsgipXgafv :: Lens' DataSetsGetIAMPolicy (Maybe Text)
125+dsgipXgafv
126+ = lens _dsgipXgafv (\ s a -> s{_dsgipXgafv = a})
127+
128+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129+dsgipUploadProtocol :: Lens' DataSetsGetIAMPolicy (Maybe Text)
130+dsgipUploadProtocol
131+ = lens _dsgipUploadProtocol
132+ (\ s a -> s{_dsgipUploadProtocol = a})
133+
134+-- | Pretty-print response.
135+dsgipPp :: Lens' DataSetsGetIAMPolicy Bool
136+dsgipPp = lens _dsgipPp (\ s a -> s{_dsgipPp = a})
137+
138+-- | OAuth access token.
139+dsgipAccessToken :: Lens' DataSetsGetIAMPolicy (Maybe Text)
140+dsgipAccessToken
141+ = lens _dsgipAccessToken
142+ (\ s a -> s{_dsgipAccessToken = a})
143+
144+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145+dsgipUploadType :: Lens' DataSetsGetIAMPolicy (Maybe Text)
146+dsgipUploadType
147+ = lens _dsgipUploadType
148+ (\ s a -> s{_dsgipUploadType = a})
149+
150+-- | Multipart request metadata.
151+dsgipPayload :: Lens' DataSetsGetIAMPolicy GetIAMPolicyRequest
152+dsgipPayload
153+ = lens _dsgipPayload (\ s a -> s{_dsgipPayload = a})
154+
155+-- | OAuth bearer token.
156+dsgipBearerToken :: Lens' DataSetsGetIAMPolicy (Maybe Text)
157+dsgipBearerToken
158+ = lens _dsgipBearerToken
159+ (\ s a -> s{_dsgipBearerToken = a})
160+
161+-- | REQUIRED: The resource for which policy is being specified. Format is
162+-- \`datasets\/\`.
163+dsgipResource :: Lens' DataSetsGetIAMPolicy Text
164+dsgipResource
165+ = lens _dsgipResource
166+ (\ s a -> s{_dsgipResource = a})
167+
168+-- | JSONP
169+dsgipCallback :: Lens' DataSetsGetIAMPolicy (Maybe Text)
170+dsgipCallback
171+ = lens _dsgipCallback
172+ (\ s a -> s{_dsgipCallback = a})
173+
174+instance GoogleRequest DataSetsGetIAMPolicy where
175+ type Rs DataSetsGetIAMPolicy = Policy
176+ requestClient DataSetsGetIAMPolicy{..}
177+ = go _dsgipResource _dsgipXgafv _dsgipUploadProtocol
178+ (Just _dsgipPp)
179+ _dsgipAccessToken
180+ _dsgipUploadType
181+ _dsgipBearerToken
182+ _dsgipCallback
183+ (Just AltJSON)
184+ _dsgipPayload
185+ genomicsService
186+ where go
187+ = buildClient
188+ (Proxy :: Proxy DataSetsGetIAMPolicyResource)
189+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/List.hsnew file+194
@@ -0,0 +1,194 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.List
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Lists datasets within a project.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.datasets.list@.
26+module Network.Google.Resource.Genomics.DataSets.List
27+ (
28+ -- * REST Resource
29+ DataSetsListResource
30+
31+ -- * Creating a Request
32+ , dataSetsList
33+ , DataSetsList
34+
35+ -- * Request Lenses
36+ , dslXgafv
37+ , dslUploadProtocol
38+ , dslPp
39+ , dslAccessToken
40+ , dslUploadType
41+ , dslBearerToken
42+ , dslPageToken
43+ , dslProjectId
44+ , dslPageSize
45+ , dslCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.datasets.list@ method which the
52+-- 'DataSetsList' request conforms to.
53+type DataSetsListResource =
54+ "v1" :>
55+ "datasets" :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "pageToken" Text :>
63+ QueryParam "projectId" Text :>
64+ QueryParam "pageSize" Int32 :>
65+ QueryParam "callback" Text :>
66+ QueryParam "alt" AltJSON :>
67+ Get '[JSON] ListDataSetsResponse
68+
69+-- | Lists datasets within a project.
70+--
71+-- /See:/ 'dataSetsList' smart constructor.
72+data DataSetsList = DataSetsList
73+ { _dslXgafv :: !(Maybe Text)
74+ , _dslUploadProtocol :: !(Maybe Text)
75+ , _dslPp :: !Bool
76+ , _dslAccessToken :: !(Maybe Text)
77+ , _dslUploadType :: !(Maybe Text)
78+ , _dslBearerToken :: !(Maybe Text)
79+ , _dslPageToken :: !(Maybe Text)
80+ , _dslProjectId :: !(Maybe Text)
81+ , _dslPageSize :: !(Maybe Int32)
82+ , _dslCallback :: !(Maybe Text)
83+ } deriving (Eq,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'DataSetsList' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'dslXgafv'
90+--
91+-- * 'dslUploadProtocol'
92+--
93+-- * 'dslPp'
94+--
95+-- * 'dslAccessToken'
96+--
97+-- * 'dslUploadType'
98+--
99+-- * 'dslBearerToken'
100+--
101+-- * 'dslPageToken'
102+--
103+-- * 'dslProjectId'
104+--
105+-- * 'dslPageSize'
106+--
107+-- * 'dslCallback'
108+dataSetsList
109+ :: DataSetsList
110+dataSetsList =
111+ DataSetsList
112+ { _dslXgafv = Nothing
113+ , _dslUploadProtocol = Nothing
114+ , _dslPp = True
115+ , _dslAccessToken = Nothing
116+ , _dslUploadType = Nothing
117+ , _dslBearerToken = Nothing
118+ , _dslPageToken = Nothing
119+ , _dslProjectId = Nothing
120+ , _dslPageSize = Nothing
121+ , _dslCallback = Nothing
122+ }
123+
124+-- | V1 error format.
125+dslXgafv :: Lens' DataSetsList (Maybe Text)
126+dslXgafv = lens _dslXgafv (\ s a -> s{_dslXgafv = a})
127+
128+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129+dslUploadProtocol :: Lens' DataSetsList (Maybe Text)
130+dslUploadProtocol
131+ = lens _dslUploadProtocol
132+ (\ s a -> s{_dslUploadProtocol = a})
133+
134+-- | Pretty-print response.
135+dslPp :: Lens' DataSetsList Bool
136+dslPp = lens _dslPp (\ s a -> s{_dslPp = a})
137+
138+-- | OAuth access token.
139+dslAccessToken :: Lens' DataSetsList (Maybe Text)
140+dslAccessToken
141+ = lens _dslAccessToken
142+ (\ s a -> s{_dslAccessToken = a})
143+
144+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145+dslUploadType :: Lens' DataSetsList (Maybe Text)
146+dslUploadType
147+ = lens _dslUploadType
148+ (\ s a -> s{_dslUploadType = a})
149+
150+-- | OAuth bearer token.
151+dslBearerToken :: Lens' DataSetsList (Maybe Text)
152+dslBearerToken
153+ = lens _dslBearerToken
154+ (\ s a -> s{_dslBearerToken = a})
155+
156+-- | The continuation token, which is used to page through large result sets.
157+-- To get the next page of results, set this parameter to the value of
158+-- \`nextPageToken\` from the previous response.
159+dslPageToken :: Lens' DataSetsList (Maybe Text)
160+dslPageToken
161+ = lens _dslPageToken (\ s a -> s{_dslPageToken = a})
162+
163+-- | Required. The project to list datasets for.
164+dslProjectId :: Lens' DataSetsList (Maybe Text)
165+dslProjectId
166+ = lens _dslProjectId (\ s a -> s{_dslProjectId = a})
167+
168+-- | The maximum number of results returned by this request. If unspecified,
169+-- defaults to 50. The maximum value is 1024.
170+dslPageSize :: Lens' DataSetsList (Maybe Int32)
171+dslPageSize
172+ = lens _dslPageSize (\ s a -> s{_dslPageSize = a})
173+
174+-- | JSONP
175+dslCallback :: Lens' DataSetsList (Maybe Text)
176+dslCallback
177+ = lens _dslCallback (\ s a -> s{_dslCallback = a})
178+
179+instance GoogleRequest DataSetsList where
180+ type Rs DataSetsList = ListDataSetsResponse
181+ requestClient DataSetsList{..}
182+ = go _dslXgafv _dslUploadProtocol (Just _dslPp)
183+ _dslAccessToken
184+ _dslUploadType
185+ _dslBearerToken
186+ _dslPageToken
187+ _dslProjectId
188+ _dslPageSize
189+ _dslCallback
190+ (Just AltJSON)
191+ genomicsService
192+ where go
193+ = buildClient (Proxy :: Proxy DataSetsListResource)
194+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Patch.hsnew file+195
@@ -0,0 +1,195 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.Patch
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Updates a dataset. This method supports patch semantics.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.datasets.patch@.
26+module Network.Google.Resource.Genomics.DataSets.Patch
27+ (
28+ -- * REST Resource
29+ DataSetsPatchResource
30+
31+ -- * Creating a Request
32+ , dataSetsPatch
33+ , DataSetsPatch
34+
35+ -- * Request Lenses
36+ , dspXgafv
37+ , dspUploadProtocol
38+ , dspUpdateMask
39+ , dspPp
40+ , dspAccessToken
41+ , dspUploadType
42+ , dspPayload
43+ , dspBearerToken
44+ , dspDataSetId
45+ , dspCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.datasets.patch@ method which the
52+-- 'DataSetsPatch' request conforms to.
53+type DataSetsPatchResource =
54+ "v1" :>
55+ "datasets" :>
56+ Capture "datasetId" Text :>
57+ QueryParam "$.xgafv" Text :>
58+ QueryParam "upload_protocol" Text :>
59+ QueryParam "updateMask" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] DataSet :> Patch '[JSON] DataSet
67+
68+-- | Updates a dataset. This method supports patch semantics.
69+--
70+-- /See:/ 'dataSetsPatch' smart constructor.
71+data DataSetsPatch = DataSetsPatch
72+ { _dspXgafv :: !(Maybe Text)
73+ , _dspUploadProtocol :: !(Maybe Text)
74+ , _dspUpdateMask :: !(Maybe Text)
75+ , _dspPp :: !Bool
76+ , _dspAccessToken :: !(Maybe Text)
77+ , _dspUploadType :: !(Maybe Text)
78+ , _dspPayload :: !DataSet
79+ , _dspBearerToken :: !(Maybe Text)
80+ , _dspDataSetId :: !Text
81+ , _dspCallback :: !(Maybe Text)
82+ } deriving (Eq,Show,Data,Typeable,Generic)
83+
84+-- | Creates a value of 'DataSetsPatch' with the minimum fields required to make a request.
85+--
86+-- Use one of the following lenses to modify other fields as desired:
87+--
88+-- * 'dspXgafv'
89+--
90+-- * 'dspUploadProtocol'
91+--
92+-- * 'dspUpdateMask'
93+--
94+-- * 'dspPp'
95+--
96+-- * 'dspAccessToken'
97+--
98+-- * 'dspUploadType'
99+--
100+-- * 'dspPayload'
101+--
102+-- * 'dspBearerToken'
103+--
104+-- * 'dspDataSetId'
105+--
106+-- * 'dspCallback'
107+dataSetsPatch
108+ :: DataSet -- ^ 'dspPayload'
109+ -> Text -- ^ 'dspDataSetId'
110+ -> DataSetsPatch
111+dataSetsPatch pDspPayload_ pDspDataSetId_ =
112+ DataSetsPatch
113+ { _dspXgafv = Nothing
114+ , _dspUploadProtocol = Nothing
115+ , _dspUpdateMask = Nothing
116+ , _dspPp = True
117+ , _dspAccessToken = Nothing
118+ , _dspUploadType = Nothing
119+ , _dspPayload = pDspPayload_
120+ , _dspBearerToken = Nothing
121+ , _dspDataSetId = pDspDataSetId_
122+ , _dspCallback = Nothing
123+ }
124+
125+-- | V1 error format.
126+dspXgafv :: Lens' DataSetsPatch (Maybe Text)
127+dspXgafv = lens _dspXgafv (\ s a -> s{_dspXgafv = a})
128+
129+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
130+dspUploadProtocol :: Lens' DataSetsPatch (Maybe Text)
131+dspUploadProtocol
132+ = lens _dspUploadProtocol
133+ (\ s a -> s{_dspUploadProtocol = a})
134+
135+-- | An optional mask specifying which fields to update. At this time, the
136+-- only mutable field is name. The only acceptable value is \"name\". If
137+-- unspecified, all mutable fields will be updated.
138+dspUpdateMask :: Lens' DataSetsPatch (Maybe Text)
139+dspUpdateMask
140+ = lens _dspUpdateMask
141+ (\ s a -> s{_dspUpdateMask = a})
142+
143+-- | Pretty-print response.
144+dspPp :: Lens' DataSetsPatch Bool
145+dspPp = lens _dspPp (\ s a -> s{_dspPp = a})
146+
147+-- | OAuth access token.
148+dspAccessToken :: Lens' DataSetsPatch (Maybe Text)
149+dspAccessToken
150+ = lens _dspAccessToken
151+ (\ s a -> s{_dspAccessToken = a})
152+
153+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
154+dspUploadType :: Lens' DataSetsPatch (Maybe Text)
155+dspUploadType
156+ = lens _dspUploadType
157+ (\ s a -> s{_dspUploadType = a})
158+
159+-- | Multipart request metadata.
160+dspPayload :: Lens' DataSetsPatch DataSet
161+dspPayload
162+ = lens _dspPayload (\ s a -> s{_dspPayload = a})
163+
164+-- | OAuth bearer token.
165+dspBearerToken :: Lens' DataSetsPatch (Maybe Text)
166+dspBearerToken
167+ = lens _dspBearerToken
168+ (\ s a -> s{_dspBearerToken = a})
169+
170+-- | The ID of the dataset to be updated.
171+dspDataSetId :: Lens' DataSetsPatch Text
172+dspDataSetId
173+ = lens _dspDataSetId (\ s a -> s{_dspDataSetId = a})
174+
175+-- | JSONP
176+dspCallback :: Lens' DataSetsPatch (Maybe Text)
177+dspCallback
178+ = lens _dspCallback (\ s a -> s{_dspCallback = a})
179+
180+instance GoogleRequest DataSetsPatch where
181+ type Rs DataSetsPatch = DataSet
182+ requestClient DataSetsPatch{..}
183+ = go _dspDataSetId _dspXgafv _dspUploadProtocol
184+ _dspUpdateMask
185+ (Just _dspPp)
186+ _dspAccessToken
187+ _dspUploadType
188+ _dspBearerToken
189+ _dspCallback
190+ (Just AltJSON)
191+ _dspPayload
192+ genomicsService
193+ where go
194+ = buildClient (Proxy :: Proxy DataSetsPatchResource)
195+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/SetIAMPolicy.hsnew file+187
@@ -0,0 +1,187 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Sets the access control policy on the specified dataset. Replaces any
24+-- existing policy. See Setting a Policy for more information.
25+--
26+-- /See:/ < Genomics API Reference> for @genomics.datasets.setIamPolicy@.
27+module Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
28+ (
29+ -- * REST Resource
30+ DataSetsSetIAMPolicyResource
31+
32+ -- * Creating a Request
33+ , dataSetsSetIAMPolicy
34+ , DataSetsSetIAMPolicy
35+
36+ -- * Request Lenses
37+ , dssipXgafv
38+ , dssipUploadProtocol
39+ , dssipPp
40+ , dssipAccessToken
41+ , dssipUploadType
42+ , dssipPayload
43+ , dssipBearerToken
44+ , dssipResource
45+ , dssipCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.datasets.setIamPolicy@ method which the
52+-- 'DataSetsSetIAMPolicy' request conforms to.
53+type DataSetsSetIAMPolicyResource =
54+ "v1" :>
55+ CaptureMode "resource" "setIamPolicy" Text :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] SetIAMPolicyRequest :>
65+ Post '[JSON] Policy
66+
67+-- | Sets the access control policy on the specified dataset. Replaces any
68+-- existing policy. See Setting a Policy for more information.
69+--
70+-- /See:/ 'dataSetsSetIAMPolicy' smart constructor.
71+data DataSetsSetIAMPolicy = DataSetsSetIAMPolicy
72+ { _dssipXgafv :: !(Maybe Text)
73+ , _dssipUploadProtocol :: !(Maybe Text)
74+ , _dssipPp :: !Bool
75+ , _dssipAccessToken :: !(Maybe Text)
76+ , _dssipUploadType :: !(Maybe Text)
77+ , _dssipPayload :: !SetIAMPolicyRequest
78+ , _dssipBearerToken :: !(Maybe Text)
79+ , _dssipResource :: !Text
80+ , _dssipCallback :: !(Maybe Text)
81+ } deriving (Eq,Show,Data,Typeable,Generic)
82+
83+-- | Creates a value of 'DataSetsSetIAMPolicy' with the minimum fields required to make a request.
84+--
85+-- Use one of the following lenses to modify other fields as desired:
86+--
87+-- * 'dssipXgafv'
88+--
89+-- * 'dssipUploadProtocol'
90+--
91+-- * 'dssipPp'
92+--
93+-- * 'dssipAccessToken'
94+--
95+-- * 'dssipUploadType'
96+--
97+-- * 'dssipPayload'
98+--
99+-- * 'dssipBearerToken'
100+--
101+-- * 'dssipResource'
102+--
103+-- * 'dssipCallback'
104+dataSetsSetIAMPolicy
105+ :: SetIAMPolicyRequest -- ^ 'dssipPayload'
106+ -> Text -- ^ 'dssipResource'
107+ -> DataSetsSetIAMPolicy
108+dataSetsSetIAMPolicy pDssipPayload_ pDssipResource_ =
109+ DataSetsSetIAMPolicy
110+ { _dssipXgafv = Nothing
111+ , _dssipUploadProtocol = Nothing
112+ , _dssipPp = True
113+ , _dssipAccessToken = Nothing
114+ , _dssipUploadType = Nothing
115+ , _dssipPayload = pDssipPayload_
116+ , _dssipBearerToken = Nothing
117+ , _dssipResource = pDssipResource_
118+ , _dssipCallback = Nothing
119+ }
120+
121+-- | V1 error format.
122+dssipXgafv :: Lens' DataSetsSetIAMPolicy (Maybe Text)
123+dssipXgafv
124+ = lens _dssipXgafv (\ s a -> s{_dssipXgafv = a})
125+
126+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
127+dssipUploadProtocol :: Lens' DataSetsSetIAMPolicy (Maybe Text)
128+dssipUploadProtocol
129+ = lens _dssipUploadProtocol
130+ (\ s a -> s{_dssipUploadProtocol = a})
131+
132+-- | Pretty-print response.
133+dssipPp :: Lens' DataSetsSetIAMPolicy Bool
134+dssipPp = lens _dssipPp (\ s a -> s{_dssipPp = a})
135+
136+-- | OAuth access token.
137+dssipAccessToken :: Lens' DataSetsSetIAMPolicy (Maybe Text)
138+dssipAccessToken
139+ = lens _dssipAccessToken
140+ (\ s a -> s{_dssipAccessToken = a})
141+
142+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
143+dssipUploadType :: Lens' DataSetsSetIAMPolicy (Maybe Text)
144+dssipUploadType
145+ = lens _dssipUploadType
146+ (\ s a -> s{_dssipUploadType = a})
147+
148+-- | Multipart request metadata.
149+dssipPayload :: Lens' DataSetsSetIAMPolicy SetIAMPolicyRequest
150+dssipPayload
151+ = lens _dssipPayload (\ s a -> s{_dssipPayload = a})
152+
153+-- | OAuth bearer token.
154+dssipBearerToken :: Lens' DataSetsSetIAMPolicy (Maybe Text)
155+dssipBearerToken
156+ = lens _dssipBearerToken
157+ (\ s a -> s{_dssipBearerToken = a})
158+
159+-- | REQUIRED: The resource for which policy is being specified. Format is
160+-- \`datasets\/\`.
161+dssipResource :: Lens' DataSetsSetIAMPolicy Text
162+dssipResource
163+ = lens _dssipResource
164+ (\ s a -> s{_dssipResource = a})
165+
166+-- | JSONP
167+dssipCallback :: Lens' DataSetsSetIAMPolicy (Maybe Text)
168+dssipCallback
169+ = lens _dssipCallback
170+ (\ s a -> s{_dssipCallback = a})
171+
172+instance GoogleRequest DataSetsSetIAMPolicy where
173+ type Rs DataSetsSetIAMPolicy = Policy
174+ requestClient DataSetsSetIAMPolicy{..}
175+ = go _dssipResource _dssipXgafv _dssipUploadProtocol
176+ (Just _dssipPp)
177+ _dssipAccessToken
178+ _dssipUploadType
179+ _dssipBearerToken
180+ _dssipCallback
181+ (Just AltJSON)
182+ _dssipPayload
183+ genomicsService
184+ where go
185+ = buildClient
186+ (Proxy :: Proxy DataSetsSetIAMPolicyResource)
187+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/TestIAMPermissions.hsnew file+189
@@ -0,0 +1,189 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Returns permissions that a caller has on the specified resource. See
24+-- Testing Permissions for more information.
25+--
26+-- /See:/ < Genomics API Reference> for @genomics.datasets.testIamPermissions@.
27+module Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
28+ (
29+ -- * REST Resource
30+ DataSetsTestIAMPermissionsResource
31+
32+ -- * Creating a Request
33+ , dataSetsTestIAMPermissions
34+ , DataSetsTestIAMPermissions
35+
36+ -- * Request Lenses
37+ , dstipXgafv
38+ , dstipUploadProtocol
39+ , dstipPp
40+ , dstipAccessToken
41+ , dstipUploadType
42+ , dstipPayload
43+ , dstipBearerToken
44+ , dstipResource
45+ , dstipCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.datasets.testIamPermissions@ method which the
52+-- 'DataSetsTestIAMPermissions' request conforms to.
53+type DataSetsTestIAMPermissionsResource =
54+ "v1" :>
55+ CaptureMode "resource" "testIamPermissions" Text :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] TestIAMPermissionsRequest :>
65+ Post '[JSON] TestIAMPermissionsResponse
66+
67+-- | Returns permissions that a caller has on the specified resource. See
68+-- Testing Permissions for more information.
69+--
70+-- /See:/ 'dataSetsTestIAMPermissions' smart constructor.
71+data DataSetsTestIAMPermissions = DataSetsTestIAMPermissions
72+ { _dstipXgafv :: !(Maybe Text)
73+ , _dstipUploadProtocol :: !(Maybe Text)
74+ , _dstipPp :: !Bool
75+ , _dstipAccessToken :: !(Maybe Text)
76+ , _dstipUploadType :: !(Maybe Text)
77+ , _dstipPayload :: !TestIAMPermissionsRequest
78+ , _dstipBearerToken :: !(Maybe Text)
79+ , _dstipResource :: !Text
80+ , _dstipCallback :: !(Maybe Text)
81+ } deriving (Eq,Show,Data,Typeable,Generic)
82+
83+-- | Creates a value of 'DataSetsTestIAMPermissions' with the minimum fields required to make a request.
84+--
85+-- Use one of the following lenses to modify other fields as desired:
86+--
87+-- * 'dstipXgafv'
88+--
89+-- * 'dstipUploadProtocol'
90+--
91+-- * 'dstipPp'
92+--
93+-- * 'dstipAccessToken'
94+--
95+-- * 'dstipUploadType'
96+--
97+-- * 'dstipPayload'
98+--
99+-- * 'dstipBearerToken'
100+--
101+-- * 'dstipResource'
102+--
103+-- * 'dstipCallback'
104+dataSetsTestIAMPermissions
105+ :: TestIAMPermissionsRequest -- ^ 'dstipPayload'
106+ -> Text -- ^ 'dstipResource'
107+ -> DataSetsTestIAMPermissions
108+dataSetsTestIAMPermissions pDstipPayload_ pDstipResource_ =
109+ DataSetsTestIAMPermissions
110+ { _dstipXgafv = Nothing
111+ , _dstipUploadProtocol = Nothing
112+ , _dstipPp = True
113+ , _dstipAccessToken = Nothing
114+ , _dstipUploadType = Nothing
115+ , _dstipPayload = pDstipPayload_
116+ , _dstipBearerToken = Nothing
117+ , _dstipResource = pDstipResource_
118+ , _dstipCallback = Nothing
119+ }
120+
121+-- | V1 error format.
122+dstipXgafv :: Lens' DataSetsTestIAMPermissions (Maybe Text)
123+dstipXgafv
124+ = lens _dstipXgafv (\ s a -> s{_dstipXgafv = a})
125+
126+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
127+dstipUploadProtocol :: Lens' DataSetsTestIAMPermissions (Maybe Text)
128+dstipUploadProtocol
129+ = lens _dstipUploadProtocol
130+ (\ s a -> s{_dstipUploadProtocol = a})
131+
132+-- | Pretty-print response.
133+dstipPp :: Lens' DataSetsTestIAMPermissions Bool
134+dstipPp = lens _dstipPp (\ s a -> s{_dstipPp = a})
135+
136+-- | OAuth access token.
137+dstipAccessToken :: Lens' DataSetsTestIAMPermissions (Maybe Text)
138+dstipAccessToken
139+ = lens _dstipAccessToken
140+ (\ s a -> s{_dstipAccessToken = a})
141+
142+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
143+dstipUploadType :: Lens' DataSetsTestIAMPermissions (Maybe Text)
144+dstipUploadType
145+ = lens _dstipUploadType
146+ (\ s a -> s{_dstipUploadType = a})
147+
148+-- | Multipart request metadata.
149+dstipPayload :: Lens' DataSetsTestIAMPermissions TestIAMPermissionsRequest
150+dstipPayload
151+ = lens _dstipPayload (\ s a -> s{_dstipPayload = a})
152+
153+-- | OAuth bearer token.
154+dstipBearerToken :: Lens' DataSetsTestIAMPermissions (Maybe Text)
155+dstipBearerToken
156+ = lens _dstipBearerToken
157+ (\ s a -> s{_dstipBearerToken = a})
158+
159+-- | REQUIRED: The resource for which policy is being specified. Format is
160+-- \`datasets\/\`.
161+dstipResource :: Lens' DataSetsTestIAMPermissions Text
162+dstipResource
163+ = lens _dstipResource
164+ (\ s a -> s{_dstipResource = a})
165+
166+-- | JSONP
167+dstipCallback :: Lens' DataSetsTestIAMPermissions (Maybe Text)
168+dstipCallback
169+ = lens _dstipCallback
170+ (\ s a -> s{_dstipCallback = a})
171+
172+instance GoogleRequest DataSetsTestIAMPermissions
173+ where
174+ type Rs DataSetsTestIAMPermissions =
175+ TestIAMPermissionsResponse
176+ requestClient DataSetsTestIAMPermissions{..}
177+ = go _dstipResource _dstipXgafv _dstipUploadProtocol
178+ (Just _dstipPp)
179+ _dstipAccessToken
180+ _dstipUploadType
181+ _dstipBearerToken
182+ _dstipCallback
183+ (Just AltJSON)
184+ _dstipPayload
185+ genomicsService
186+ where go
187+ = buildClient
188+ (Proxy :: Proxy DataSetsTestIAMPermissionsResource)
189+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/DataSets/Undelete.hsnew file+186
@@ -0,0 +1,186 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.DataSets.Undelete
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Undeletes a dataset by restoring a dataset which was deleted via this
24+-- API. This operation is only possible for a week after the deletion
25+-- occurred.
26+--
27+-- /See:/ < Genomics API Reference> for @genomics.datasets.undelete@.
28+module Network.Google.Resource.Genomics.DataSets.Undelete
29+ (
30+ -- * REST Resource
31+ DataSetsUndeleteResource
32+
33+ -- * Creating a Request
34+ , dataSetsUndelete
35+ , DataSetsUndelete
36+
37+ -- * Request Lenses
38+ , dsuXgafv
39+ , dsuUploadProtocol
40+ , dsuPp
41+ , dsuAccessToken
42+ , dsuUploadType
43+ , dsuPayload
44+ , dsuBearerToken
45+ , dsuDataSetId
46+ , dsuCallback
47+ ) where
48+
49+import Network.Google.Genomics.Types
50+import Network.Google.Prelude
51+
52+-- | A resource alias for @genomics.datasets.undelete@ method which the
53+-- 'DataSetsUndelete' request conforms to.
54+type DataSetsUndeleteResource =
55+ "v1" :>
56+ "datasets" :>
57+ CaptureMode "datasetId" "undelete" Text :>
58+ QueryParam "$.xgafv" Text :>
59+ QueryParam "upload_protocol" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] UndeleteDataSetRequest :>
67+ Post '[JSON] DataSet
68+
69+-- | Undeletes a dataset by restoring a dataset which was deleted via this
70+-- API. This operation is only possible for a week after the deletion
71+-- occurred.
72+--
73+-- /See:/ 'dataSetsUndelete' smart constructor.
74+data DataSetsUndelete = DataSetsUndelete
75+ { _dsuXgafv :: !(Maybe Text)
76+ , _dsuUploadProtocol :: !(Maybe Text)
77+ , _dsuPp :: !Bool
78+ , _dsuAccessToken :: !(Maybe Text)
79+ , _dsuUploadType :: !(Maybe Text)
80+ , _dsuPayload :: !UndeleteDataSetRequest
81+ , _dsuBearerToken :: !(Maybe Text)
82+ , _dsuDataSetId :: !Text
83+ , _dsuCallback :: !(Maybe Text)
84+ } deriving (Eq,Show,Data,Typeable,Generic)
85+
86+-- | Creates a value of 'DataSetsUndelete' with the minimum fields required to make a request.
87+--
88+-- Use one of the following lenses to modify other fields as desired:
89+--
90+-- * 'dsuXgafv'
91+--
92+-- * 'dsuUploadProtocol'
93+--
94+-- * 'dsuPp'
95+--
96+-- * 'dsuAccessToken'
97+--
98+-- * 'dsuUploadType'
99+--
100+-- * 'dsuPayload'
101+--
102+-- * 'dsuBearerToken'
103+--
104+-- * 'dsuDataSetId'
105+--
106+-- * 'dsuCallback'
107+dataSetsUndelete
108+ :: UndeleteDataSetRequest -- ^ 'dsuPayload'
109+ -> Text -- ^ 'dsuDataSetId'
110+ -> DataSetsUndelete
111+dataSetsUndelete pDsuPayload_ pDsuDataSetId_ =
112+ DataSetsUndelete
113+ { _dsuXgafv = Nothing
114+ , _dsuUploadProtocol = Nothing
115+ , _dsuPp = True
116+ , _dsuAccessToken = Nothing
117+ , _dsuUploadType = Nothing
118+ , _dsuPayload = pDsuPayload_
119+ , _dsuBearerToken = Nothing
120+ , _dsuDataSetId = pDsuDataSetId_
121+ , _dsuCallback = Nothing
122+ }
123+
124+-- | V1 error format.
125+dsuXgafv :: Lens' DataSetsUndelete (Maybe Text)
126+dsuXgafv = lens _dsuXgafv (\ s a -> s{_dsuXgafv = a})
127+
128+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129+dsuUploadProtocol :: Lens' DataSetsUndelete (Maybe Text)
130+dsuUploadProtocol
131+ = lens _dsuUploadProtocol
132+ (\ s a -> s{_dsuUploadProtocol = a})
133+
134+-- | Pretty-print response.
135+dsuPp :: Lens' DataSetsUndelete Bool
136+dsuPp = lens _dsuPp (\ s a -> s{_dsuPp = a})
137+
138+-- | OAuth access token.
139+dsuAccessToken :: Lens' DataSetsUndelete (Maybe Text)
140+dsuAccessToken
141+ = lens _dsuAccessToken
142+ (\ s a -> s{_dsuAccessToken = a})
143+
144+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145+dsuUploadType :: Lens' DataSetsUndelete (Maybe Text)
146+dsuUploadType
147+ = lens _dsuUploadType
148+ (\ s a -> s{_dsuUploadType = a})
149+
150+-- | Multipart request metadata.
151+dsuPayload :: Lens' DataSetsUndelete UndeleteDataSetRequest
152+dsuPayload
153+ = lens _dsuPayload (\ s a -> s{_dsuPayload = a})
154+
155+-- | OAuth bearer token.
156+dsuBearerToken :: Lens' DataSetsUndelete (Maybe Text)
157+dsuBearerToken
158+ = lens _dsuBearerToken
159+ (\ s a -> s{_dsuBearerToken = a})
160+
161+-- | The ID of the dataset to be undeleted.
162+dsuDataSetId :: Lens' DataSetsUndelete Text
163+dsuDataSetId
164+ = lens _dsuDataSetId (\ s a -> s{_dsuDataSetId = a})
165+
166+-- | JSONP
167+dsuCallback :: Lens' DataSetsUndelete (Maybe Text)
168+dsuCallback
169+ = lens _dsuCallback (\ s a -> s{_dsuCallback = a})
170+
171+instance GoogleRequest DataSetsUndelete where
172+ type Rs DataSetsUndelete = DataSet
173+ requestClient DataSetsUndelete{..}
174+ = go _dsuDataSetId _dsuXgafv _dsuUploadProtocol
175+ (Just _dsuPp)
176+ _dsuAccessToken
177+ _dsuUploadType
178+ _dsuBearerToken
179+ _dsuCallback
180+ (Just AltJSON)
181+ _dsuPayload
182+ genomicsService
183+ where go
184+ = buildClient
185+ (Proxy :: Proxy DataSetsUndeleteResource)
186+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Create.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.Create
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Creates a new dataset.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.datasets.create@.
26−module Network.Google.Resource.Genomics.Datasets.Create
27− (
28− -- * REST Resource
29− DatasetsCreateResource
30−
31− -- * Creating a Request
32− , datasetsCreate
33− , DatasetsCreate
34−
35− -- * Request Lenses
36− , dcXgafv
37− , dcUploadProtocol
38− , dcPp
39− , dcAccessToken
40− , dcUploadType
41− , dcPayload
42− , dcBearerToken
43− , dcCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.datasets.create@ method which the
50−-- 'DatasetsCreate' request conforms to.
51−type DatasetsCreateResource =
52− "v1" :>
53− "datasets" :>
54− QueryParam "$.xgafv" Text :>
55− QueryParam "upload_protocol" Text :>
56− QueryParam "pp" Bool :>
57− QueryParam "access_token" Text :>
58− QueryParam "uploadType" Text :>
59− QueryParam "bearer_token" Text :>
60− QueryParam "callback" Text :>
61− QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Dataset :> Post '[JSON] Dataset
63−
64−-- | Creates a new dataset.
65−--
66−-- /See:/ 'datasetsCreate' smart constructor.
67−data DatasetsCreate = DatasetsCreate
68− { _dcXgafv :: !(Maybe Text)
69− , _dcUploadProtocol :: !(Maybe Text)
70− , _dcPp :: !Bool
71− , _dcAccessToken :: !(Maybe Text)
72− , _dcUploadType :: !(Maybe Text)
73− , _dcPayload :: !Dataset
74− , _dcBearerToken :: !(Maybe Text)
75− , _dcCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'DatasetsCreate' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'dcXgafv'
83−--
84−-- * 'dcUploadProtocol'
85−--
86−-- * 'dcPp'
87−--
88−-- * 'dcAccessToken'
89−--
90−-- * 'dcUploadType'
91−--
92−-- * 'dcPayload'
93−--
94−-- * 'dcBearerToken'
95−--
96−-- * 'dcCallback'
97−datasetsCreate
98− :: Dataset -- ^ 'dcPayload'
99− -> DatasetsCreate
100−datasetsCreate pDcPayload_ =
101− DatasetsCreate
102− { _dcXgafv = Nothing
103− , _dcUploadProtocol = Nothing
104− , _dcPp = True
105− , _dcAccessToken = Nothing
106− , _dcUploadType = Nothing
107− , _dcPayload = pDcPayload_
108− , _dcBearerToken = Nothing
109− , _dcCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−dcXgafv :: Lens' DatasetsCreate (Maybe Text)
114−dcXgafv = lens _dcXgafv (\ s a -> s{_dcXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−dcUploadProtocol :: Lens' DatasetsCreate (Maybe Text)
118−dcUploadProtocol
119− = lens _dcUploadProtocol
120− (\ s a -> s{_dcUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−dcPp :: Lens' DatasetsCreate Bool
124−dcPp = lens _dcPp (\ s a -> s{_dcPp = a})
125−
126−-- | OAuth access token.
127−dcAccessToken :: Lens' DatasetsCreate (Maybe Text)
128−dcAccessToken
129− = lens _dcAccessToken
130− (\ s a -> s{_dcAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−dcUploadType :: Lens' DatasetsCreate (Maybe Text)
134−dcUploadType
135− = lens _dcUploadType (\ s a -> s{_dcUploadType = a})
136−
137−-- | Multipart request metadata.
138−dcPayload :: Lens' DatasetsCreate Dataset
139−dcPayload
140− = lens _dcPayload (\ s a -> s{_dcPayload = a})
141−
142−-- | OAuth bearer token.
143−dcBearerToken :: Lens' DatasetsCreate (Maybe Text)
144−dcBearerToken
145− = lens _dcBearerToken
146− (\ s a -> s{_dcBearerToken = a})
147−
148−-- | JSONP
149−dcCallback :: Lens' DatasetsCreate (Maybe Text)
150−dcCallback
151− = lens _dcCallback (\ s a -> s{_dcCallback = a})
152−
153−instance GoogleRequest DatasetsCreate where
154− type Rs DatasetsCreate = Dataset
155− requestClient DatasetsCreate{..}
156− = go _dcXgafv _dcUploadProtocol (Just _dcPp)
157− _dcAccessToken
158− _dcUploadType
159− _dcBearerToken
160− _dcCallback
161− (Just AltJSON)
162− _dcPayload
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy DatasetsCreateResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Delete.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.Delete
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Deletes a dataset.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.datasets.delete@.
26−module Network.Google.Resource.Genomics.Datasets.Delete
27− (
28− -- * REST Resource
29− DatasetsDeleteResource
30−
31− -- * Creating a Request
32− , datasetsDelete
33− , DatasetsDelete
34−
35− -- * Request Lenses
36− , ddXgafv
37− , ddUploadProtocol
38− , ddPp
39− , ddAccessToken
40− , ddUploadType
41− , ddBearerToken
42− , ddDatasetId
43− , ddCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.datasets.delete@ method which the
50−-- 'DatasetsDelete' request conforms to.
51−type DatasetsDeleteResource =
52− "v1" :>
53− "datasets" :>
54− Capture "datasetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63−
64−-- | Deletes a dataset.
65−--
66−-- /See:/ 'datasetsDelete' smart constructor.
67−data DatasetsDelete = DatasetsDelete
68− { _ddXgafv :: !(Maybe Text)
69− , _ddUploadProtocol :: !(Maybe Text)
70− , _ddPp :: !Bool
71− , _ddAccessToken :: !(Maybe Text)
72− , _ddUploadType :: !(Maybe Text)
73− , _ddBearerToken :: !(Maybe Text)
74− , _ddDatasetId :: !Text
75− , _ddCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'DatasetsDelete' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'ddXgafv'
83−--
84−-- * 'ddUploadProtocol'
85−--
86−-- * 'ddPp'
87−--
88−-- * 'ddAccessToken'
89−--
90−-- * 'ddUploadType'
91−--
92−-- * 'ddBearerToken'
93−--
94−-- * 'ddDatasetId'
95−--
96−-- * 'ddCallback'
97−datasetsDelete
98− :: Text -- ^ 'ddDatasetId'
99− -> DatasetsDelete
100−datasetsDelete pDdDatasetId_ =
101− DatasetsDelete
102− { _ddXgafv = Nothing
103− , _ddUploadProtocol = Nothing
104− , _ddPp = True
105− , _ddAccessToken = Nothing
106− , _ddUploadType = Nothing
107− , _ddBearerToken = Nothing
108− , _ddDatasetId = pDdDatasetId_
109− , _ddCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−ddXgafv :: Lens' DatasetsDelete (Maybe Text)
114−ddXgafv = lens _ddXgafv (\ s a -> s{_ddXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−ddUploadProtocol :: Lens' DatasetsDelete (Maybe Text)
118−ddUploadProtocol
119− = lens _ddUploadProtocol
120− (\ s a -> s{_ddUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−ddPp :: Lens' DatasetsDelete Bool
124−ddPp = lens _ddPp (\ s a -> s{_ddPp = a})
125−
126−-- | OAuth access token.
127−ddAccessToken :: Lens' DatasetsDelete (Maybe Text)
128−ddAccessToken
129− = lens _ddAccessToken
130− (\ s a -> s{_ddAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−ddUploadType :: Lens' DatasetsDelete (Maybe Text)
134−ddUploadType
135− = lens _ddUploadType (\ s a -> s{_ddUploadType = a})
136−
137−-- | OAuth bearer token.
138−ddBearerToken :: Lens' DatasetsDelete (Maybe Text)
139−ddBearerToken
140− = lens _ddBearerToken
141− (\ s a -> s{_ddBearerToken = a})
142−
143−-- | The ID of the dataset to be deleted.
144−ddDatasetId :: Lens' DatasetsDelete Text
145−ddDatasetId
146− = lens _ddDatasetId (\ s a -> s{_ddDatasetId = a})
147−
148−-- | JSONP
149−ddCallback :: Lens' DatasetsDelete (Maybe Text)
150−ddCallback
151− = lens _ddCallback (\ s a -> s{_ddCallback = a})
152−
153−instance GoogleRequest DatasetsDelete where
154− type Rs DatasetsDelete = Empty
155− requestClient DatasetsDelete{..}
156− = go _ddDatasetId _ddXgafv _ddUploadProtocol
157− (Just _ddPp)
158− _ddAccessToken
159− _ddUploadType
160− _ddBearerToken
161− _ddCallback
162− (Just AltJSON)
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy DatasetsDeleteResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Get.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.Get
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets a dataset by ID.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.datasets.get@.
26−module Network.Google.Resource.Genomics.Datasets.Get
27− (
28− -- * REST Resource
29− DatasetsGetResource
30−
31− -- * Creating a Request
32− , datasetsGet
33− , DatasetsGet
34−
35− -- * Request Lenses
36− , dgXgafv
37− , dgUploadProtocol
38− , dgPp
39− , dgAccessToken
40− , dgUploadType
41− , dgBearerToken
42− , dgDatasetId
43− , dgCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.datasets.get@ method which the
50−-- 'DatasetsGet' request conforms to.
51−type DatasetsGetResource =
52− "v1" :>
53− "datasets" :>
54− Capture "datasetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Get '[JSON] Dataset
63−
64−-- | Gets a dataset by ID.
65−--
66−-- /See:/ 'datasetsGet' smart constructor.
67−data DatasetsGet = DatasetsGet
68− { _dgXgafv :: !(Maybe Text)
69− , _dgUploadProtocol :: !(Maybe Text)
70− , _dgPp :: !Bool
71− , _dgAccessToken :: !(Maybe Text)
72− , _dgUploadType :: !(Maybe Text)
73− , _dgBearerToken :: !(Maybe Text)
74− , _dgDatasetId :: !Text
75− , _dgCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'DatasetsGet' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'dgXgafv'
83−--
84−-- * 'dgUploadProtocol'
85−--
86−-- * 'dgPp'
87−--
88−-- * 'dgAccessToken'
89−--
90−-- * 'dgUploadType'
91−--
92−-- * 'dgBearerToken'
93−--
94−-- * 'dgDatasetId'
95−--
96−-- * 'dgCallback'
97−datasetsGet
98− :: Text -- ^ 'dgDatasetId'
99− -> DatasetsGet
100−datasetsGet pDgDatasetId_ =
101− DatasetsGet
102− { _dgXgafv = Nothing
103− , _dgUploadProtocol = Nothing
104− , _dgPp = True
105− , _dgAccessToken = Nothing
106− , _dgUploadType = Nothing
107− , _dgBearerToken = Nothing
108− , _dgDatasetId = pDgDatasetId_
109− , _dgCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−dgXgafv :: Lens' DatasetsGet (Maybe Text)
114−dgXgafv = lens _dgXgafv (\ s a -> s{_dgXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−dgUploadProtocol :: Lens' DatasetsGet (Maybe Text)
118−dgUploadProtocol
119− = lens _dgUploadProtocol
120− (\ s a -> s{_dgUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−dgPp :: Lens' DatasetsGet Bool
124−dgPp = lens _dgPp (\ s a -> s{_dgPp = a})
125−
126−-- | OAuth access token.
127−dgAccessToken :: Lens' DatasetsGet (Maybe Text)
128−dgAccessToken
129− = lens _dgAccessToken
130− (\ s a -> s{_dgAccessToken = a})
131−
132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−dgUploadType :: Lens' DatasetsGet (Maybe Text)
134−dgUploadType
135− = lens _dgUploadType (\ s a -> s{_dgUploadType = a})
136−
137−-- | OAuth bearer token.
138−dgBearerToken :: Lens' DatasetsGet (Maybe Text)
139−dgBearerToken
140− = lens _dgBearerToken
141− (\ s a -> s{_dgBearerToken = a})
142−
143−-- | The ID of the dataset.
144−dgDatasetId :: Lens' DatasetsGet Text
145−dgDatasetId
146− = lens _dgDatasetId (\ s a -> s{_dgDatasetId = a})
147−
148−-- | JSONP
149−dgCallback :: Lens' DatasetsGet (Maybe Text)
150−dgCallback
151− = lens _dgCallback (\ s a -> s{_dgCallback = a})
152−
153−instance GoogleRequest DatasetsGet where
154− type Rs DatasetsGet = Dataset
155− requestClient DatasetsGet{..}
156− = go _dgDatasetId _dgXgafv _dgUploadProtocol
157− (Just _dgPp)
158− _dgAccessToken
159− _dgUploadType
160− _dgBearerToken
161− _dgCallback
162− (Just AltJSON)
163− genomicsService
164− where go
165− = buildClient (Proxy :: Proxy DatasetsGetResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/GetIAMPolicy.hsdeleted−187
@@ -1,187 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.GetIAMPolicy
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets the access control policy for the dataset. Is empty if the policy
24−-- or the resource does not exist. See Getting a Policy for more
25−-- information.
26−--
27−-- /See:/ < Genomics API Reference> for @genomics.datasets.getIamPolicy@.
28−module Network.Google.Resource.Genomics.Datasets.GetIAMPolicy
29− (
30− -- * REST Resource
31− DatasetsGetIAMPolicyResource
32−
33− -- * Creating a Request
34− , datasetsGetIAMPolicy
35− , DatasetsGetIAMPolicy
36−
37− -- * Request Lenses
38− , dgipXgafv
39− , dgipUploadProtocol
40− , dgipPp
41− , dgipAccessToken
42− , dgipUploadType
43− , dgipPayload
44− , dgipBearerToken
45− , dgipResource
46− , dgipCallback
47− ) where
48−
49−import Network.Google.Genomics.Types
50−import Network.Google.Prelude
51−
52−-- | A resource alias for @genomics.datasets.getIamPolicy@ method which the
53−-- 'DatasetsGetIAMPolicy' request conforms to.
54−type DatasetsGetIAMPolicyResource =
55− "v1" :>
56− CaptureMode "resource" "getIamPolicy" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "pp" Bool :>
60− QueryParam "access_token" Text :>
61− QueryParam "uploadType" Text :>
62− QueryParam "bearer_token" Text :>
63− QueryParam "callback" Text :>
64− QueryParam "alt" AltJSON :>
65− ReqBody '[JSON] GetIAMPolicyRequest :>
66− Post '[JSON] Policy
67−
68−-- | Gets the access control policy for the dataset. Is empty if the policy
69−-- or the resource does not exist. See Getting a Policy for more
70−-- information.
71−--
72−-- /See:/ 'datasetsGetIAMPolicy' smart constructor.
73−data DatasetsGetIAMPolicy = DatasetsGetIAMPolicy
74− { _dgipXgafv :: !(Maybe Text)
75− , _dgipUploadProtocol :: !(Maybe Text)
76− , _dgipPp :: !Bool
77− , _dgipAccessToken :: !(Maybe Text)
78− , _dgipUploadType :: !(Maybe Text)
79− , _dgipPayload :: !GetIAMPolicyRequest
80− , _dgipBearerToken :: !(Maybe Text)
81− , _dgipResource :: !Text
82− , _dgipCallback :: !(Maybe Text)
83− } deriving (Eq,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'DatasetsGetIAMPolicy' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'dgipXgafv'
90−--
91−-- * 'dgipUploadProtocol'
92−--
93−-- * 'dgipPp'
94−--
95−-- * 'dgipAccessToken'
96−--
97−-- * 'dgipUploadType'
98−--
99−-- * 'dgipPayload'
100−--
101−-- * 'dgipBearerToken'
102−--
103−-- * 'dgipResource'
104−--
105−-- * 'dgipCallback'
106−datasetsGetIAMPolicy
107− :: GetIAMPolicyRequest -- ^ 'dgipPayload'
108− -> Text -- ^ 'dgipResource'
109− -> DatasetsGetIAMPolicy
110−datasetsGetIAMPolicy pDgipPayload_ pDgipResource_ =
111− DatasetsGetIAMPolicy
112− { _dgipXgafv = Nothing
113− , _dgipUploadProtocol = Nothing
114− , _dgipPp = True
115− , _dgipAccessToken = Nothing
116− , _dgipUploadType = Nothing
117− , _dgipPayload = pDgipPayload_
118− , _dgipBearerToken = Nothing
119− , _dgipResource = pDgipResource_
120− , _dgipCallback = Nothing
121− }
122−
123−-- | V1 error format.
124−dgipXgafv :: Lens' DatasetsGetIAMPolicy (Maybe Text)
125−dgipXgafv
126− = lens _dgipXgafv (\ s a -> s{_dgipXgafv = a})
127−
128−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129−dgipUploadProtocol :: Lens' DatasetsGetIAMPolicy (Maybe Text)
130−dgipUploadProtocol
131− = lens _dgipUploadProtocol
132− (\ s a -> s{_dgipUploadProtocol = a})
133−
134−-- | Pretty-print response.
135−dgipPp :: Lens' DatasetsGetIAMPolicy Bool
136−dgipPp = lens _dgipPp (\ s a -> s{_dgipPp = a})
137−
138−-- | OAuth access token.
139−dgipAccessToken :: Lens' DatasetsGetIAMPolicy (Maybe Text)
140−dgipAccessToken
141− = lens _dgipAccessToken
142− (\ s a -> s{_dgipAccessToken = a})
143−
144−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145−dgipUploadType :: Lens' DatasetsGetIAMPolicy (Maybe Text)
146−dgipUploadType
147− = lens _dgipUploadType
148− (\ s a -> s{_dgipUploadType = a})
149−
150−-- | Multipart request metadata.
151−dgipPayload :: Lens' DatasetsGetIAMPolicy GetIAMPolicyRequest
152−dgipPayload
153− = lens _dgipPayload (\ s a -> s{_dgipPayload = a})
154−
155−-- | OAuth bearer token.
156−dgipBearerToken :: Lens' DatasetsGetIAMPolicy (Maybe Text)
157−dgipBearerToken
158− = lens _dgipBearerToken
159− (\ s a -> s{_dgipBearerToken = a})
160−
161−-- | REQUIRED: The resource for which policy is being specified. Format is
162−-- \`datasets\/\`.
163−dgipResource :: Lens' DatasetsGetIAMPolicy Text
164−dgipResource
165− = lens _dgipResource (\ s a -> s{_dgipResource = a})
166−
167−-- | JSONP
168−dgipCallback :: Lens' DatasetsGetIAMPolicy (Maybe Text)
169−dgipCallback
170− = lens _dgipCallback (\ s a -> s{_dgipCallback = a})
171−
172−instance GoogleRequest DatasetsGetIAMPolicy where
173− type Rs DatasetsGetIAMPolicy = Policy
174− requestClient DatasetsGetIAMPolicy{..}
175− = go _dgipResource _dgipXgafv _dgipUploadProtocol
176− (Just _dgipPp)
177− _dgipAccessToken
178− _dgipUploadType
179− _dgipBearerToken
180− _dgipCallback
181− (Just AltJSON)
182− _dgipPayload
183− genomicsService
184− where go
185− = buildClient
186− (Proxy :: Proxy DatasetsGetIAMPolicyResource)
187− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/List.hsdeleted−193
@@ -1,193 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.List
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Lists datasets within a project.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.datasets.list@.
26−module Network.Google.Resource.Genomics.Datasets.List
27− (
28− -- * REST Resource
29− DatasetsListResource
30−
31− -- * Creating a Request
32− , datasetsList
33− , DatasetsList
34−
35− -- * Request Lenses
36− , dlXgafv
37− , dlUploadProtocol
38− , dlPp
39− , dlAccessToken
40− , dlUploadType
41− , dlBearerToken
42− , dlPageToken
43− , dlProjectId
44− , dlPageSize
45− , dlCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.datasets.list@ method which the
52−-- 'DatasetsList' request conforms to.
53−type DatasetsListResource =
54− "v1" :>
55− "datasets" :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "pageToken" Text :>
63− QueryParam "projectId" Text :>
64− QueryParam "pageSize" Int32 :>
65− QueryParam "callback" Text :>
66− QueryParam "alt" AltJSON :>
67− Get '[JSON] ListDatasetsResponse
68−
69−-- | Lists datasets within a project.
70−--
71−-- /See:/ 'datasetsList' smart constructor.
72−data DatasetsList = DatasetsList
73− { _dlXgafv :: !(Maybe Text)
74− , _dlUploadProtocol :: !(Maybe Text)
75− , _dlPp :: !Bool
76− , _dlAccessToken :: !(Maybe Text)
77− , _dlUploadType :: !(Maybe Text)
78− , _dlBearerToken :: !(Maybe Text)
79− , _dlPageToken :: !(Maybe Text)
80− , _dlProjectId :: !(Maybe Text)
81− , _dlPageSize :: !(Maybe Int32)
82− , _dlCallback :: !(Maybe Text)
83− } deriving (Eq,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'DatasetsList' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'dlXgafv'
90−--
91−-- * 'dlUploadProtocol'
92−--
93−-- * 'dlPp'
94−--
95−-- * 'dlAccessToken'
96−--
97−-- * 'dlUploadType'
98−--
99−-- * 'dlBearerToken'
100−--
101−-- * 'dlPageToken'
102−--
103−-- * 'dlProjectId'
104−--
105−-- * 'dlPageSize'
106−--
107−-- * 'dlCallback'
108−datasetsList
109− :: DatasetsList
110−datasetsList =
111− DatasetsList
112− { _dlXgafv = Nothing
113− , _dlUploadProtocol = Nothing
114− , _dlPp = True
115− , _dlAccessToken = Nothing
116− , _dlUploadType = Nothing
117− , _dlBearerToken = Nothing
118− , _dlPageToken = Nothing
119− , _dlProjectId = Nothing
120− , _dlPageSize = Nothing
121− , _dlCallback = Nothing
122− }
123−
124−-- | V1 error format.
125−dlXgafv :: Lens' DatasetsList (Maybe Text)
126−dlXgafv = lens _dlXgafv (\ s a -> s{_dlXgafv = a})
127−
128−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129−dlUploadProtocol :: Lens' DatasetsList (Maybe Text)
130−dlUploadProtocol
131− = lens _dlUploadProtocol
132− (\ s a -> s{_dlUploadProtocol = a})
133−
134−-- | Pretty-print response.
135−dlPp :: Lens' DatasetsList Bool
136−dlPp = lens _dlPp (\ s a -> s{_dlPp = a})
137−
138−-- | OAuth access token.
139−dlAccessToken :: Lens' DatasetsList (Maybe Text)
140−dlAccessToken
141− = lens _dlAccessToken
142− (\ s a -> s{_dlAccessToken = a})
143−
144−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145−dlUploadType :: Lens' DatasetsList (Maybe Text)
146−dlUploadType
147− = lens _dlUploadType (\ s a -> s{_dlUploadType = a})
148−
149−-- | OAuth bearer token.
150−dlBearerToken :: Lens' DatasetsList (Maybe Text)
151−dlBearerToken
152− = lens _dlBearerToken
153− (\ s a -> s{_dlBearerToken = a})
154−
155−-- | The continuation token, which is used to page through large result sets.
156−-- To get the next page of results, set this parameter to the value of
157−-- \`nextPageToken\` from the previous response.
158−dlPageToken :: Lens' DatasetsList (Maybe Text)
159−dlPageToken
160− = lens _dlPageToken (\ s a -> s{_dlPageToken = a})
161−
162−-- | Required. The project to list datasets for.
163−dlProjectId :: Lens' DatasetsList (Maybe Text)
164−dlProjectId
165− = lens _dlProjectId (\ s a -> s{_dlProjectId = a})
166−
167−-- | The maximum number of results returned by this request. If unspecified,
168−-- defaults to 50. The maximum value is 1024.
169−dlPageSize :: Lens' DatasetsList (Maybe Int32)
170−dlPageSize
171− = lens _dlPageSize (\ s a -> s{_dlPageSize = a})
172−
173−-- | JSONP
174−dlCallback :: Lens' DatasetsList (Maybe Text)
175−dlCallback
176− = lens _dlCallback (\ s a -> s{_dlCallback = a})
177−
178−instance GoogleRequest DatasetsList where
179− type Rs DatasetsList = ListDatasetsResponse
180− requestClient DatasetsList{..}
181− = go _dlXgafv _dlUploadProtocol (Just _dlPp)
182− _dlAccessToken
183− _dlUploadType
184− _dlBearerToken
185− _dlPageToken
186− _dlProjectId
187− _dlPageSize
188− _dlCallback
189− (Just AltJSON)
190− genomicsService
191− where go
192− = buildClient (Proxy :: Proxy DatasetsListResource)
193− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Patch.hsdeleted−193
@@ -1,193 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.Patch
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Updates a dataset. This method supports patch semantics.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.datasets.patch@.
26−module Network.Google.Resource.Genomics.Datasets.Patch
27− (
28− -- * REST Resource
29− DatasetsPatchResource
30−
31− -- * Creating a Request
32− , datasetsPatch
33− , DatasetsPatch
34−
35− -- * Request Lenses
36− , dpXgafv
37− , dpUploadProtocol
38− , dpUpdateMask
39− , dpPp
40− , dpAccessToken
41− , dpUploadType
42− , dpPayload
43− , dpBearerToken
44− , dpDatasetId
45− , dpCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.datasets.patch@ method which the
52−-- 'DatasetsPatch' request conforms to.
53−type DatasetsPatchResource =
54− "v1" :>
55− "datasets" :>
56− Capture "datasetId" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "updateMask" Text :>
60− QueryParam "pp" Bool :>
61− QueryParam "access_token" Text :>
62− QueryParam "uploadType" Text :>
63− QueryParam "bearer_token" Text :>
64− QueryParam "callback" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] Dataset :> Patch '[JSON] Dataset
67−
68−-- | Updates a dataset. This method supports patch semantics.
69−--
70−-- /See:/ 'datasetsPatch' smart constructor.
71−data DatasetsPatch = DatasetsPatch
72− { _dpXgafv :: !(Maybe Text)
73− , _dpUploadProtocol :: !(Maybe Text)
74− , _dpUpdateMask :: !(Maybe Text)
75− , _dpPp :: !Bool
76− , _dpAccessToken :: !(Maybe Text)
77− , _dpUploadType :: !(Maybe Text)
78− , _dpPayload :: !Dataset
79− , _dpBearerToken :: !(Maybe Text)
80− , _dpDatasetId :: !Text
81− , _dpCallback :: !(Maybe Text)
82− } deriving (Eq,Show,Data,Typeable,Generic)
83−
84−-- | Creates a value of 'DatasetsPatch' with the minimum fields required to make a request.
85−--
86−-- Use one of the following lenses to modify other fields as desired:
87−--
88−-- * 'dpXgafv'
89−--
90−-- * 'dpUploadProtocol'
91−--
92−-- * 'dpUpdateMask'
93−--
94−-- * 'dpPp'
95−--
96−-- * 'dpAccessToken'
97−--
98−-- * 'dpUploadType'
99−--
100−-- * 'dpPayload'
101−--
102−-- * 'dpBearerToken'
103−--
104−-- * 'dpDatasetId'
105−--
106−-- * 'dpCallback'
107−datasetsPatch
108− :: Dataset -- ^ 'dpPayload'
109− -> Text -- ^ 'dpDatasetId'
110− -> DatasetsPatch
111−datasetsPatch pDpPayload_ pDpDatasetId_ =
112− DatasetsPatch
113− { _dpXgafv = Nothing
114− , _dpUploadProtocol = Nothing
115− , _dpUpdateMask = Nothing
116− , _dpPp = True
117− , _dpAccessToken = Nothing
118− , _dpUploadType = Nothing
119− , _dpPayload = pDpPayload_
120− , _dpBearerToken = Nothing
121− , _dpDatasetId = pDpDatasetId_
122− , _dpCallback = Nothing
123− }
124−
125−-- | V1 error format.
126−dpXgafv :: Lens' DatasetsPatch (Maybe Text)
127−dpXgafv = lens _dpXgafv (\ s a -> s{_dpXgafv = a})
128−
129−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
130−dpUploadProtocol :: Lens' DatasetsPatch (Maybe Text)
131−dpUploadProtocol
132− = lens _dpUploadProtocol
133− (\ s a -> s{_dpUploadProtocol = a})
134−
135−-- | An optional mask specifying which fields to update. At this time, the
136−-- only mutable field is name. The only acceptable value is \"name\". If
137−-- unspecified, all mutable fields will be updated.
138−dpUpdateMask :: Lens' DatasetsPatch (Maybe Text)
139−dpUpdateMask
140− = lens _dpUpdateMask (\ s a -> s{_dpUpdateMask = a})
141−
142−-- | Pretty-print response.
143−dpPp :: Lens' DatasetsPatch Bool
144−dpPp = lens _dpPp (\ s a -> s{_dpPp = a})
145−
146−-- | OAuth access token.
147−dpAccessToken :: Lens' DatasetsPatch (Maybe Text)
148−dpAccessToken
149− = lens _dpAccessToken
150− (\ s a -> s{_dpAccessToken = a})
151−
152−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
153−dpUploadType :: Lens' DatasetsPatch (Maybe Text)
154−dpUploadType
155− = lens _dpUploadType (\ s a -> s{_dpUploadType = a})
156−
157−-- | Multipart request metadata.
158−dpPayload :: Lens' DatasetsPatch Dataset
159−dpPayload
160− = lens _dpPayload (\ s a -> s{_dpPayload = a})
161−
162−-- | OAuth bearer token.
163−dpBearerToken :: Lens' DatasetsPatch (Maybe Text)
164−dpBearerToken
165− = lens _dpBearerToken
166− (\ s a -> s{_dpBearerToken = a})
167−
168−-- | The ID of the dataset to be updated.
169−dpDatasetId :: Lens' DatasetsPatch Text
170−dpDatasetId
171− = lens _dpDatasetId (\ s a -> s{_dpDatasetId = a})
172−
173−-- | JSONP
174−dpCallback :: Lens' DatasetsPatch (Maybe Text)
175−dpCallback
176− = lens _dpCallback (\ s a -> s{_dpCallback = a})
177−
178−instance GoogleRequest DatasetsPatch where
179− type Rs DatasetsPatch = Dataset
180− requestClient DatasetsPatch{..}
181− = go _dpDatasetId _dpXgafv _dpUploadProtocol
182− _dpUpdateMask
183− (Just _dpPp)
184− _dpAccessToken
185− _dpUploadType
186− _dpBearerToken
187− _dpCallback
188− (Just AltJSON)
189− _dpPayload
190− genomicsService
191− where go
192− = buildClient (Proxy :: Proxy DatasetsPatchResource)
193− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/SetIAMPolicy.hsdeleted−185
@@ -1,185 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.SetIAMPolicy
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Sets the access control policy on the specified dataset. Replaces any
24−-- existing policy. See Setting a Policy for more information.
25−--
26−-- /See:/ < Genomics API Reference> for @genomics.datasets.setIamPolicy@.
27−module Network.Google.Resource.Genomics.Datasets.SetIAMPolicy
28− (
29− -- * REST Resource
30− DatasetsSetIAMPolicyResource
31−
32− -- * Creating a Request
33− , datasetsSetIAMPolicy
34− , DatasetsSetIAMPolicy
35−
36− -- * Request Lenses
37− , dsipXgafv
38− , dsipUploadProtocol
39− , dsipPp
40− , dsipAccessToken
41− , dsipUploadType
42− , dsipPayload
43− , dsipBearerToken
44− , dsipResource
45− , dsipCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.datasets.setIamPolicy@ method which the
52−-- 'DatasetsSetIAMPolicy' request conforms to.
53−type DatasetsSetIAMPolicyResource =
54− "v1" :>
55− CaptureMode "resource" "setIamPolicy" Text :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] SetIAMPolicyRequest :>
65− Post '[JSON] Policy
66−
67−-- | Sets the access control policy on the specified dataset. Replaces any
68−-- existing policy. See Setting a Policy for more information.
69−--
70−-- /See:/ 'datasetsSetIAMPolicy' smart constructor.
71−data DatasetsSetIAMPolicy = DatasetsSetIAMPolicy
72− { _dsipXgafv :: !(Maybe Text)
73− , _dsipUploadProtocol :: !(Maybe Text)
74− , _dsipPp :: !Bool
75− , _dsipAccessToken :: !(Maybe Text)
76− , _dsipUploadType :: !(Maybe Text)
77− , _dsipPayload :: !SetIAMPolicyRequest
78− , _dsipBearerToken :: !(Maybe Text)
79− , _dsipResource :: !Text
80− , _dsipCallback :: !(Maybe Text)
81− } deriving (Eq,Show,Data,Typeable,Generic)
82−
83−-- | Creates a value of 'DatasetsSetIAMPolicy' with the minimum fields required to make a request.
84−--
85−-- Use one of the following lenses to modify other fields as desired:
86−--
87−-- * 'dsipXgafv'
88−--
89−-- * 'dsipUploadProtocol'
90−--
91−-- * 'dsipPp'
92−--
93−-- * 'dsipAccessToken'
94−--
95−-- * 'dsipUploadType'
96−--
97−-- * 'dsipPayload'
98−--
99−-- * 'dsipBearerToken'
100−--
101−-- * 'dsipResource'
102−--
103−-- * 'dsipCallback'
104−datasetsSetIAMPolicy
105− :: SetIAMPolicyRequest -- ^ 'dsipPayload'
106− -> Text -- ^ 'dsipResource'
107− -> DatasetsSetIAMPolicy
108−datasetsSetIAMPolicy pDsipPayload_ pDsipResource_ =
109− DatasetsSetIAMPolicy
110− { _dsipXgafv = Nothing
111− , _dsipUploadProtocol = Nothing
112− , _dsipPp = True
113− , _dsipAccessToken = Nothing
114− , _dsipUploadType = Nothing
115− , _dsipPayload = pDsipPayload_
116− , _dsipBearerToken = Nothing
117− , _dsipResource = pDsipResource_
118− , _dsipCallback = Nothing
119− }
120−
121−-- | V1 error format.
122−dsipXgafv :: Lens' DatasetsSetIAMPolicy (Maybe Text)
123−dsipXgafv
124− = lens _dsipXgafv (\ s a -> s{_dsipXgafv = a})
125−
126−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
127−dsipUploadProtocol :: Lens' DatasetsSetIAMPolicy (Maybe Text)
128−dsipUploadProtocol
129− = lens _dsipUploadProtocol
130− (\ s a -> s{_dsipUploadProtocol = a})
131−
132−-- | Pretty-print response.
133−dsipPp :: Lens' DatasetsSetIAMPolicy Bool
134−dsipPp = lens _dsipPp (\ s a -> s{_dsipPp = a})
135−
136−-- | OAuth access token.
137−dsipAccessToken :: Lens' DatasetsSetIAMPolicy (Maybe Text)
138−dsipAccessToken
139− = lens _dsipAccessToken
140− (\ s a -> s{_dsipAccessToken = a})
141−
142−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
143−dsipUploadType :: Lens' DatasetsSetIAMPolicy (Maybe Text)
144−dsipUploadType
145− = lens _dsipUploadType
146− (\ s a -> s{_dsipUploadType = a})
147−
148−-- | Multipart request metadata.
149−dsipPayload :: Lens' DatasetsSetIAMPolicy SetIAMPolicyRequest
150−dsipPayload
151− = lens _dsipPayload (\ s a -> s{_dsipPayload = a})
152−
153−-- | OAuth bearer token.
154−dsipBearerToken :: Lens' DatasetsSetIAMPolicy (Maybe Text)
155−dsipBearerToken
156− = lens _dsipBearerToken
157− (\ s a -> s{_dsipBearerToken = a})
158−
159−-- | REQUIRED: The resource for which policy is being specified. Format is
160−-- \`datasets\/\`.
161−dsipResource :: Lens' DatasetsSetIAMPolicy Text
162−dsipResource
163− = lens _dsipResource (\ s a -> s{_dsipResource = a})
164−
165−-- | JSONP
166−dsipCallback :: Lens' DatasetsSetIAMPolicy (Maybe Text)
167−dsipCallback
168− = lens _dsipCallback (\ s a -> s{_dsipCallback = a})
169−
170−instance GoogleRequest DatasetsSetIAMPolicy where
171− type Rs DatasetsSetIAMPolicy = Policy
172− requestClient DatasetsSetIAMPolicy{..}
173− = go _dsipResource _dsipXgafv _dsipUploadProtocol
174− (Just _dsipPp)
175− _dsipAccessToken
176− _dsipUploadType
177− _dsipBearerToken
178− _dsipCallback
179− (Just AltJSON)
180− _dsipPayload
181− genomicsService
182− where go
183− = buildClient
184− (Proxy :: Proxy DatasetsSetIAMPolicyResource)
185− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/TestIAMPermissions.hsdeleted−187
@@ -1,187 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.TestIAMPermissions
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Returns permissions that a caller has on the specified resource. See
24−-- Testing Permissions for more information.
25−--
26−-- /See:/ < Genomics API Reference> for @genomics.datasets.testIamPermissions@.
27−module Network.Google.Resource.Genomics.Datasets.TestIAMPermissions
28− (
29− -- * REST Resource
30− DatasetsTestIAMPermissionsResource
31−
32− -- * Creating a Request
33− , datasetsTestIAMPermissions
34− , DatasetsTestIAMPermissions
35−
36− -- * Request Lenses
37− , dtipXgafv
38− , dtipUploadProtocol
39− , dtipPp
40− , dtipAccessToken
41− , dtipUploadType
42− , dtipPayload
43− , dtipBearerToken
44− , dtipResource
45− , dtipCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.datasets.testIamPermissions@ method which the
52−-- 'DatasetsTestIAMPermissions' request conforms to.
53−type DatasetsTestIAMPermissionsResource =
54− "v1" :>
55− CaptureMode "resource" "testIamPermissions" Text :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] TestIAMPermissionsRequest :>
65− Post '[JSON] TestIAMPermissionsResponse
66−
67−-- | Returns permissions that a caller has on the specified resource. See
68−-- Testing Permissions for more information.
69−--
70−-- /See:/ 'datasetsTestIAMPermissions' smart constructor.
71−data DatasetsTestIAMPermissions = DatasetsTestIAMPermissions
72− { _dtipXgafv :: !(Maybe Text)
73− , _dtipUploadProtocol :: !(Maybe Text)
74− , _dtipPp :: !Bool
75− , _dtipAccessToken :: !(Maybe Text)
76− , _dtipUploadType :: !(Maybe Text)
77− , _dtipPayload :: !TestIAMPermissionsRequest
78− , _dtipBearerToken :: !(Maybe Text)
79− , _dtipResource :: !Text
80− , _dtipCallback :: !(Maybe Text)
81− } deriving (Eq,Show,Data,Typeable,Generic)
82−
83−-- | Creates a value of 'DatasetsTestIAMPermissions' with the minimum fields required to make a request.
84−--
85−-- Use one of the following lenses to modify other fields as desired:
86−--
87−-- * 'dtipXgafv'
88−--
89−-- * 'dtipUploadProtocol'
90−--
91−-- * 'dtipPp'
92−--
93−-- * 'dtipAccessToken'
94−--
95−-- * 'dtipUploadType'
96−--
97−-- * 'dtipPayload'
98−--
99−-- * 'dtipBearerToken'
100−--
101−-- * 'dtipResource'
102−--
103−-- * 'dtipCallback'
104−datasetsTestIAMPermissions
105− :: TestIAMPermissionsRequest -- ^ 'dtipPayload'
106− -> Text -- ^ 'dtipResource'
107− -> DatasetsTestIAMPermissions
108−datasetsTestIAMPermissions pDtipPayload_ pDtipResource_ =
109− DatasetsTestIAMPermissions
110− { _dtipXgafv = Nothing
111− , _dtipUploadProtocol = Nothing
112− , _dtipPp = True
113− , _dtipAccessToken = Nothing
114− , _dtipUploadType = Nothing
115− , _dtipPayload = pDtipPayload_
116− , _dtipBearerToken = Nothing
117− , _dtipResource = pDtipResource_
118− , _dtipCallback = Nothing
119− }
120−
121−-- | V1 error format.
122−dtipXgafv :: Lens' DatasetsTestIAMPermissions (Maybe Text)
123−dtipXgafv
124− = lens _dtipXgafv (\ s a -> s{_dtipXgafv = a})
125−
126−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
127−dtipUploadProtocol :: Lens' DatasetsTestIAMPermissions (Maybe Text)
128−dtipUploadProtocol
129− = lens _dtipUploadProtocol
130− (\ s a -> s{_dtipUploadProtocol = a})
131−
132−-- | Pretty-print response.
133−dtipPp :: Lens' DatasetsTestIAMPermissions Bool
134−dtipPp = lens _dtipPp (\ s a -> s{_dtipPp = a})
135−
136−-- | OAuth access token.
137−dtipAccessToken :: Lens' DatasetsTestIAMPermissions (Maybe Text)
138−dtipAccessToken
139− = lens _dtipAccessToken
140− (\ s a -> s{_dtipAccessToken = a})
141−
142−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
143−dtipUploadType :: Lens' DatasetsTestIAMPermissions (Maybe Text)
144−dtipUploadType
145− = lens _dtipUploadType
146− (\ s a -> s{_dtipUploadType = a})
147−
148−-- | Multipart request metadata.
149−dtipPayload :: Lens' DatasetsTestIAMPermissions TestIAMPermissionsRequest
150−dtipPayload
151− = lens _dtipPayload (\ s a -> s{_dtipPayload = a})
152−
153−-- | OAuth bearer token.
154−dtipBearerToken :: Lens' DatasetsTestIAMPermissions (Maybe Text)
155−dtipBearerToken
156− = lens _dtipBearerToken
157− (\ s a -> s{_dtipBearerToken = a})
158−
159−-- | REQUIRED: The resource for which policy is being specified. Format is
160−-- \`datasets\/\`.
161−dtipResource :: Lens' DatasetsTestIAMPermissions Text
162−dtipResource
163− = lens _dtipResource (\ s a -> s{_dtipResource = a})
164−
165−-- | JSONP
166−dtipCallback :: Lens' DatasetsTestIAMPermissions (Maybe Text)
167−dtipCallback
168− = lens _dtipCallback (\ s a -> s{_dtipCallback = a})
169−
170−instance GoogleRequest DatasetsTestIAMPermissions
171− where
172− type Rs DatasetsTestIAMPermissions =
173− TestIAMPermissionsResponse
174− requestClient DatasetsTestIAMPermissions{..}
175− = go _dtipResource _dtipXgafv _dtipUploadProtocol
176− (Just _dtipPp)
177− _dtipAccessToken
178− _dtipUploadType
179− _dtipBearerToken
180− _dtipCallback
181− (Just AltJSON)
182− _dtipPayload
183− genomicsService
184− where go
185− = buildClient
186− (Proxy :: Proxy DatasetsTestIAMPermissionsResource)
187− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Undelete.hsdeleted−185
@@ -1,185 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Datasets.Undelete
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Undeletes a dataset by restoring a dataset which was deleted via this
24−-- API. This operation is only possible for a week after the deletion
25−-- occurred.
26−--
27−-- /See:/ < Genomics API Reference> for @genomics.datasets.undelete@.
28−module Network.Google.Resource.Genomics.Datasets.Undelete
29− (
30− -- * REST Resource
31− DatasetsUndeleteResource
32−
33− -- * Creating a Request
34− , datasetsUndelete
35− , DatasetsUndelete
36−
37− -- * Request Lenses
38− , duXgafv
39− , duUploadProtocol
40− , duPp
41− , duAccessToken
42− , duUploadType
43− , duPayload
44− , duBearerToken
45− , duDatasetId
46− , duCallback
47− ) where
48−
49−import Network.Google.Genomics.Types
50−import Network.Google.Prelude
51−
52−-- | A resource alias for @genomics.datasets.undelete@ method which the
53−-- 'DatasetsUndelete' request conforms to.
54−type DatasetsUndeleteResource =
55− "v1" :>
56− "datasets" :>
57− CaptureMode "datasetId" "undelete" Text :>
58− QueryParam "$.xgafv" Text :>
59− QueryParam "upload_protocol" Text :>
60− QueryParam "pp" Bool :>
61− QueryParam "access_token" Text :>
62− QueryParam "uploadType" Text :>
63− QueryParam "bearer_token" Text :>
64− QueryParam "callback" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] UndeleteDatasetRequest :>
67− Post '[JSON] Dataset
68−
69−-- | Undeletes a dataset by restoring a dataset which was deleted via this
70−-- API. This operation is only possible for a week after the deletion
71−-- occurred.
72−--
73−-- /See:/ 'datasetsUndelete' smart constructor.
74−data DatasetsUndelete = DatasetsUndelete
75− { _duXgafv :: !(Maybe Text)
76− , _duUploadProtocol :: !(Maybe Text)
77− , _duPp :: !Bool
78− , _duAccessToken :: !(Maybe Text)
79− , _duUploadType :: !(Maybe Text)
80− , _duPayload :: !UndeleteDatasetRequest
81− , _duBearerToken :: !(Maybe Text)
82− , _duDatasetId :: !Text
83− , _duCallback :: !(Maybe Text)
84− } deriving (Eq,Show,Data,Typeable,Generic)
85−
86−-- | Creates a value of 'DatasetsUndelete' with the minimum fields required to make a request.
87−--
88−-- Use one of the following lenses to modify other fields as desired:
89−--
90−-- * 'duXgafv'
91−--
92−-- * 'duUploadProtocol'
93−--
94−-- * 'duPp'
95−--
96−-- * 'duAccessToken'
97−--
98−-- * 'duUploadType'
99−--
100−-- * 'duPayload'
101−--
102−-- * 'duBearerToken'
103−--
104−-- * 'duDatasetId'
105−--
106−-- * 'duCallback'
107−datasetsUndelete
108− :: UndeleteDatasetRequest -- ^ 'duPayload'
109− -> Text -- ^ 'duDatasetId'
110− -> DatasetsUndelete
111−datasetsUndelete pDuPayload_ pDuDatasetId_ =
112− DatasetsUndelete
113− { _duXgafv = Nothing
114− , _duUploadProtocol = Nothing
115− , _duPp = True
116− , _duAccessToken = Nothing
117− , _duUploadType = Nothing
118− , _duPayload = pDuPayload_
119− , _duBearerToken = Nothing
120− , _duDatasetId = pDuDatasetId_
121− , _duCallback = Nothing
122− }
123−
124−-- | V1 error format.
125−duXgafv :: Lens' DatasetsUndelete (Maybe Text)
126−duXgafv = lens _duXgafv (\ s a -> s{_duXgafv = a})
127−
128−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
129−duUploadProtocol :: Lens' DatasetsUndelete (Maybe Text)
130−duUploadProtocol
131− = lens _duUploadProtocol
132− (\ s a -> s{_duUploadProtocol = a})
133−
134−-- | Pretty-print response.
135−duPp :: Lens' DatasetsUndelete Bool
136−duPp = lens _duPp (\ s a -> s{_duPp = a})
137−
138−-- | OAuth access token.
139−duAccessToken :: Lens' DatasetsUndelete (Maybe Text)
140−duAccessToken
141− = lens _duAccessToken
142− (\ s a -> s{_duAccessToken = a})
143−
144−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
145−duUploadType :: Lens' DatasetsUndelete (Maybe Text)
146−duUploadType
147− = lens _duUploadType (\ s a -> s{_duUploadType = a})
148−
149−-- | Multipart request metadata.
150−duPayload :: Lens' DatasetsUndelete UndeleteDatasetRequest
151−duPayload
152− = lens _duPayload (\ s a -> s{_duPayload = a})
153−
154−-- | OAuth bearer token.
155−duBearerToken :: Lens' DatasetsUndelete (Maybe Text)
156−duBearerToken
157− = lens _duBearerToken
158− (\ s a -> s{_duBearerToken = a})
159−
160−-- | The ID of the dataset to be undeleted.
161−duDatasetId :: Lens' DatasetsUndelete Text
162−duDatasetId
163− = lens _duDatasetId (\ s a -> s{_duDatasetId = a})
164−
165−-- | JSONP
166−duCallback :: Lens' DatasetsUndelete (Maybe Text)
167−duCallback
168− = lens _duCallback (\ s a -> s{_duCallback = a})
169−
170−instance GoogleRequest DatasetsUndelete where
171− type Rs DatasetsUndelete = Dataset
172− requestClient DatasetsUndelete{..}
173− = go _duDatasetId _duXgafv _duUploadProtocol
174− (Just _duPp)
175− _duAccessToken
176− _duUploadType
177− _duBearerToken
178− _duCallback
179− (Just AltJSON)
180− _duPayload
181− genomicsService
182− where go
183− = buildClient
184− (Proxy :: Proxy DatasetsUndeleteResource)
185− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/CoverageBuckets/List.hsnew file+279
@@ -0,0 +1,279 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.CoverageBuckets.List
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Lists fixed width coverage buckets for a read group set, each of which
24+-- correspond to a range of a reference sequence. Each bucket summarizes
25+-- coverage information across its corresponding genomic range. Coverage is
26+-- defined as the number of reads which are aligned to a given base in the
27+-- reference sequence. Coverage buckets are available at several
28+-- precomputed bucket widths, enabling retrieval of various coverage \'zoom
29+-- levels\'. The caller must have READ permissions for the target read
30+-- group set.
31+--
32+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.coveragebuckets.list@.
33+module Network.Google.Resource.Genomics.ReadGroupSets.CoverageBuckets.List
34+ (
35+ -- * REST Resource
36+ ReadGroupSetsCoverageBucketsListResource
37+
38+ -- * Creating a Request
39+ , readGroupSetsCoverageBucketsList
40+ , ReadGroupSetsCoverageBucketsList
41+
42+ -- * Request Lenses
43+ , rgscblXgafv
44+ , rgscblReadGroupSetId
45+ , rgscblUploadProtocol
46+ , rgscblPp
47+ , rgscblAccessToken
48+ , rgscblStart
49+ , rgscblUploadType
50+ , rgscblTargetBucketWidth
51+ , rgscblReferenceName
52+ , rgscblBearerToken
53+ , rgscblEnd
54+ , rgscblPageToken
55+ , rgscblPageSize
56+ , rgscblCallback
57+ ) where
58+
59+import Network.Google.Genomics.Types
60+import Network.Google.Prelude
61+
62+-- | A resource alias for @genomics.readgroupsets.coveragebuckets.list@ method which the
63+-- 'ReadGroupSetsCoverageBucketsList' request conforms to.
64+type ReadGroupSetsCoverageBucketsListResource =
65+ "v1" :>
66+ "readgroupsets" :>
67+ Capture "readGroupSetId" Text :>
68+ "coveragebuckets" :>
69+ QueryParam "$.xgafv" Text :>
70+ QueryParam "upload_protocol" Text :>
71+ QueryParam "pp" Bool :>
72+ QueryParam "access_token" Text :>
73+ QueryParam "start" Int64 :>
74+ QueryParam "uploadType" Text :>
75+ QueryParam "targetBucketWidth" Int64 :>
76+ QueryParam "referenceName" Text :>
77+ QueryParam "bearer_token" Text :>
78+ QueryParam "end" Int64 :>
79+ QueryParam "pageToken" Text :>
80+ QueryParam "pageSize" Int32 :>
81+ QueryParam "callback" Text :>
82+ QueryParam "alt" AltJSON :>
83+ Get '[JSON] ListCoverageBucketsResponse
84+
85+-- | Lists fixed width coverage buckets for a read group set, each of which
86+-- correspond to a range of a reference sequence. Each bucket summarizes
87+-- coverage information across its corresponding genomic range. Coverage is
88+-- defined as the number of reads which are aligned to a given base in the
89+-- reference sequence. Coverage buckets are available at several
90+-- precomputed bucket widths, enabling retrieval of various coverage \'zoom
91+-- levels\'. The caller must have READ permissions for the target read
92+-- group set.
93+--
94+-- /See:/ 'readGroupSetsCoverageBucketsList' smart constructor.
95+data ReadGroupSetsCoverageBucketsList = ReadGroupSetsCoverageBucketsList
96+ { _rgscblXgafv :: !(Maybe Text)
97+ , _rgscblReadGroupSetId :: !Text
98+ , _rgscblUploadProtocol :: !(Maybe Text)
99+ , _rgscblPp :: !Bool
100+ , _rgscblAccessToken :: !(Maybe Text)
101+ , _rgscblStart :: !(Maybe Int64)
102+ , _rgscblUploadType :: !(Maybe Text)
103+ , _rgscblTargetBucketWidth :: !(Maybe Int64)
104+ , _rgscblReferenceName :: !(Maybe Text)
105+ , _rgscblBearerToken :: !(Maybe Text)
106+ , _rgscblEnd :: !(Maybe Int64)
107+ , _rgscblPageToken :: !(Maybe Text)
108+ , _rgscblPageSize :: !(Maybe Int32)
109+ , _rgscblCallback :: !(Maybe Text)
110+ } deriving (Eq,Show,Data,Typeable,Generic)
111+
112+-- | Creates a value of 'ReadGroupSetsCoverageBucketsList' with the minimum fields required to make a request.
113+--
114+-- Use one of the following lenses to modify other fields as desired:
115+--
116+-- * 'rgscblXgafv'
117+--
118+-- * 'rgscblReadGroupSetId'
119+--
120+-- * 'rgscblUploadProtocol'
121+--
122+-- * 'rgscblPp'
123+--
124+-- * 'rgscblAccessToken'
125+--
126+-- * 'rgscblStart'
127+--
128+-- * 'rgscblUploadType'
129+--
130+-- * 'rgscblTargetBucketWidth'
131+--
132+-- * 'rgscblReferenceName'
133+--
134+-- * 'rgscblBearerToken'
135+--
136+-- * 'rgscblEnd'
137+--
138+-- * 'rgscblPageToken'
139+--
140+-- * 'rgscblPageSize'
141+--
142+-- * 'rgscblCallback'
143+readGroupSetsCoverageBucketsList
144+ :: Text -- ^ 'rgscblReadGroupSetId'
145+ -> ReadGroupSetsCoverageBucketsList
146+readGroupSetsCoverageBucketsList pRgscblReadGroupSetId_ =
147+ ReadGroupSetsCoverageBucketsList
148+ { _rgscblXgafv = Nothing
149+ , _rgscblReadGroupSetId = pRgscblReadGroupSetId_
150+ , _rgscblUploadProtocol = Nothing
151+ , _rgscblPp = True
152+ , _rgscblAccessToken = Nothing
153+ , _rgscblStart = Nothing
154+ , _rgscblUploadType = Nothing
155+ , _rgscblTargetBucketWidth = Nothing
156+ , _rgscblReferenceName = Nothing
157+ , _rgscblBearerToken = Nothing
158+ , _rgscblEnd = Nothing
159+ , _rgscblPageToken = Nothing
160+ , _rgscblPageSize = Nothing
161+ , _rgscblCallback = Nothing
162+ }
163+
164+-- | V1 error format.
165+rgscblXgafv :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
166+rgscblXgafv
167+ = lens _rgscblXgafv (\ s a -> s{_rgscblXgafv = a})
168+
169+-- | Required. The ID of the read group set over which coverage is requested.
170+rgscblReadGroupSetId :: Lens' ReadGroupSetsCoverageBucketsList Text
171+rgscblReadGroupSetId
172+ = lens _rgscblReadGroupSetId
173+ (\ s a -> s{_rgscblReadGroupSetId = a})
174+
175+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
176+rgscblUploadProtocol :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
177+rgscblUploadProtocol
178+ = lens _rgscblUploadProtocol
179+ (\ s a -> s{_rgscblUploadProtocol = a})
180+
181+-- | Pretty-print response.
182+rgscblPp :: Lens' ReadGroupSetsCoverageBucketsList Bool
183+rgscblPp = lens _rgscblPp (\ s a -> s{_rgscblPp = a})
184+
185+-- | OAuth access token.
186+rgscblAccessToken :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
187+rgscblAccessToken
188+ = lens _rgscblAccessToken
189+ (\ s a -> s{_rgscblAccessToken = a})
190+
191+-- | The start position of the range on the reference, 0-based inclusive. If
192+-- specified, \`referenceName\` must also be specified. Defaults to 0.
193+rgscblStart :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Int64)
194+rgscblStart
195+ = lens _rgscblStart (\ s a -> s{_rgscblStart = a})
196+
197+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
198+rgscblUploadType :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
199+rgscblUploadType
200+ = lens _rgscblUploadType
201+ (\ s a -> s{_rgscblUploadType = a})
202+
203+-- | The desired width of each reported coverage bucket in base pairs. This
204+-- will be rounded down to the nearest precomputed bucket width; the value
205+-- of which is returned as \`bucketWidth\` in the response. Defaults to
206+-- infinity (each bucket spans an entire reference sequence) or the length
207+-- of the target range, if specified. The smallest precomputed
208+-- \`bucketWidth\` is currently 2048 base pairs; this is subject to change.
209+rgscblTargetBucketWidth :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Int64)
210+rgscblTargetBucketWidth
211+ = lens _rgscblTargetBucketWidth
212+ (\ s a -> s{_rgscblTargetBucketWidth = a})
213+
214+-- | The name of the reference to query, within the reference set associated
215+-- with this query. Optional.
216+rgscblReferenceName :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
217+rgscblReferenceName
218+ = lens _rgscblReferenceName
219+ (\ s a -> s{_rgscblReferenceName = a})
220+
221+-- | OAuth bearer token.
222+rgscblBearerToken :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
223+rgscblBearerToken
224+ = lens _rgscblBearerToken
225+ (\ s a -> s{_rgscblBearerToken = a})
226+
227+-- | The end position of the range on the reference, 0-based exclusive. If
228+-- specified, \`referenceName\` must also be specified. If unset or 0,
229+-- defaults to the length of the reference.
230+rgscblEnd :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Int64)
231+rgscblEnd
232+ = lens _rgscblEnd (\ s a -> s{_rgscblEnd = a})
233+
234+-- | The continuation token, which is used to page through large result sets.
235+-- To get the next page of results, set this parameter to the value of
236+-- \`nextPageToken\` from the previous response.
237+rgscblPageToken :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
238+rgscblPageToken
239+ = lens _rgscblPageToken
240+ (\ s a -> s{_rgscblPageToken = a})
241+
242+-- | The maximum number of results to return in a single page. If
243+-- unspecified, defaults to 1024. The maximum value is 2048.
244+rgscblPageSize :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Int32)
245+rgscblPageSize
246+ = lens _rgscblPageSize
247+ (\ s a -> s{_rgscblPageSize = a})
248+
249+-- | JSONP
250+rgscblCallback :: Lens' ReadGroupSetsCoverageBucketsList (Maybe Text)
251+rgscblCallback
252+ = lens _rgscblCallback
253+ (\ s a -> s{_rgscblCallback = a})
254+
255+instance GoogleRequest
256+ ReadGroupSetsCoverageBucketsList where
257+ type Rs ReadGroupSetsCoverageBucketsList =
258+ ListCoverageBucketsResponse
259+ requestClient ReadGroupSetsCoverageBucketsList{..}
260+ = go _rgscblReadGroupSetId _rgscblXgafv
261+ _rgscblUploadProtocol
262+ (Just _rgscblPp)
263+ _rgscblAccessToken
264+ _rgscblStart
265+ _rgscblUploadType
266+ _rgscblTargetBucketWidth
267+ _rgscblReferenceName
268+ _rgscblBearerToken
269+ _rgscblEnd
270+ _rgscblPageToken
271+ _rgscblPageSize
272+ _rgscblCallback
273+ (Just AltJSON)
274+ genomicsService
275+ where go
276+ = buildClient
277+ (Proxy ::
278+ Proxy ReadGroupSetsCoverageBucketsListResource)
279+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Delete.hsnew file+172
@@ -0,0 +1,172 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Delete
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Deletes a read group set.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.delete@.
26+module Network.Google.Resource.Genomics.ReadGroupSets.Delete
27+ (
28+ -- * REST Resource
29+ ReadGroupSetsDeleteResource
30+
31+ -- * Creating a Request
32+ , readGroupSetsDelete
33+ , ReadGroupSetsDelete
34+
35+ -- * Request Lenses
36+ , rgsdXgafv
37+ , rgsdReadGroupSetId
38+ , rgsdUploadProtocol
39+ , rgsdPp
40+ , rgsdAccessToken
41+ , rgsdUploadType
42+ , rgsdBearerToken
43+ , rgsdCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.readgroupsets.delete@ method which the
50+-- 'ReadGroupSetsDelete' request conforms to.
51+type ReadGroupSetsDeleteResource =
52+ "v1" :>
53+ "readgroupsets" :>
54+ Capture "readGroupSetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63+
64+-- | Deletes a read group set.
65+--
66+-- /See:/ 'readGroupSetsDelete' smart constructor.
67+data ReadGroupSetsDelete = ReadGroupSetsDelete
68+ { _rgsdXgafv :: !(Maybe Text)
69+ , _rgsdReadGroupSetId :: !Text
70+ , _rgsdUploadProtocol :: !(Maybe Text)
71+ , _rgsdPp :: !Bool
72+ , _rgsdAccessToken :: !(Maybe Text)
73+ , _rgsdUploadType :: !(Maybe Text)
74+ , _rgsdBearerToken :: !(Maybe Text)
75+ , _rgsdCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'ReadGroupSetsDelete' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'rgsdXgafv'
83+--
84+-- * 'rgsdReadGroupSetId'
85+--
86+-- * 'rgsdUploadProtocol'
87+--
88+-- * 'rgsdPp'
89+--
90+-- * 'rgsdAccessToken'
91+--
92+-- * 'rgsdUploadType'
93+--
94+-- * 'rgsdBearerToken'
95+--
96+-- * 'rgsdCallback'
97+readGroupSetsDelete
98+ :: Text -- ^ 'rgsdReadGroupSetId'
99+ -> ReadGroupSetsDelete
100+readGroupSetsDelete pRgsdReadGroupSetId_ =
101+ ReadGroupSetsDelete
102+ { _rgsdXgafv = Nothing
103+ , _rgsdReadGroupSetId = pRgsdReadGroupSetId_
104+ , _rgsdUploadProtocol = Nothing
105+ , _rgsdPp = True
106+ , _rgsdAccessToken = Nothing
107+ , _rgsdUploadType = Nothing
108+ , _rgsdBearerToken = Nothing
109+ , _rgsdCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+rgsdXgafv :: Lens' ReadGroupSetsDelete (Maybe Text)
114+rgsdXgafv
115+ = lens _rgsdXgafv (\ s a -> s{_rgsdXgafv = a})
116+
117+-- | The ID of the read group set to be deleted. The caller must have WRITE
118+-- permissions to the dataset associated with this read group set.
119+rgsdReadGroupSetId :: Lens' ReadGroupSetsDelete Text
120+rgsdReadGroupSetId
121+ = lens _rgsdReadGroupSetId
122+ (\ s a -> s{_rgsdReadGroupSetId = a})
123+
124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
125+rgsdUploadProtocol :: Lens' ReadGroupSetsDelete (Maybe Text)
126+rgsdUploadProtocol
127+ = lens _rgsdUploadProtocol
128+ (\ s a -> s{_rgsdUploadProtocol = a})
129+
130+-- | Pretty-print response.
131+rgsdPp :: Lens' ReadGroupSetsDelete Bool
132+rgsdPp = lens _rgsdPp (\ s a -> s{_rgsdPp = a})
133+
134+-- | OAuth access token.
135+rgsdAccessToken :: Lens' ReadGroupSetsDelete (Maybe Text)
136+rgsdAccessToken
137+ = lens _rgsdAccessToken
138+ (\ s a -> s{_rgsdAccessToken = a})
139+
140+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
141+rgsdUploadType :: Lens' ReadGroupSetsDelete (Maybe Text)
142+rgsdUploadType
143+ = lens _rgsdUploadType
144+ (\ s a -> s{_rgsdUploadType = a})
145+
146+-- | OAuth bearer token.
147+rgsdBearerToken :: Lens' ReadGroupSetsDelete (Maybe Text)
148+rgsdBearerToken
149+ = lens _rgsdBearerToken
150+ (\ s a -> s{_rgsdBearerToken = a})
151+
152+-- | JSONP
153+rgsdCallback :: Lens' ReadGroupSetsDelete (Maybe Text)
154+rgsdCallback
155+ = lens _rgsdCallback (\ s a -> s{_rgsdCallback = a})
156+
157+instance GoogleRequest ReadGroupSetsDelete where
158+ type Rs ReadGroupSetsDelete = Empty
159+ requestClient ReadGroupSetsDelete{..}
160+ = go _rgsdReadGroupSetId _rgsdXgafv
161+ _rgsdUploadProtocol
162+ (Just _rgsdPp)
163+ _rgsdAccessToken
164+ _rgsdUploadType
165+ _rgsdBearerToken
166+ _rgsdCallback
167+ (Just AltJSON)
168+ genomicsService
169+ where go
170+ = buildClient
171+ (Proxy :: Proxy ReadGroupSetsDeleteResource)
172+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Export.hsnew file+193
@@ -0,0 +1,193 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Export
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Exports a read group set to a BAM file in Google Cloud Storage. Note
24+-- that currently there may be some differences between exported BAM files
25+-- and the original BAM file at the time of import. See
26+-- [ImportReadGroupSets](google.genomics.v1.ReadServiceV1.ImportReadGroupSets)
27+-- for caveats.
28+--
29+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.export@.
30+module Network.Google.Resource.Genomics.ReadGroupSets.Export
31+ (
32+ -- * REST Resource
33+ ReadGroupSetsExportResource
34+
35+ -- * Creating a Request
36+ , readGroupSetsExport
37+ , ReadGroupSetsExport
38+
39+ -- * Request Lenses
40+ , rgseXgafv
41+ , rgseReadGroupSetId
42+ , rgseUploadProtocol
43+ , rgsePp
44+ , rgseAccessToken
45+ , rgseUploadType
46+ , rgsePayload
47+ , rgseBearerToken
48+ , rgseCallback
49+ ) where
50+
51+import Network.Google.Genomics.Types
52+import Network.Google.Prelude
53+
54+-- | A resource alias for @genomics.readgroupsets.export@ method which the
55+-- 'ReadGroupSetsExport' request conforms to.
56+type ReadGroupSetsExportResource =
57+ "v1" :>
58+ "readgroupsets" :>
59+ CaptureMode "readGroupSetId" "export" Text :>
60+ QueryParam "$.xgafv" Text :>
61+ QueryParam "upload_protocol" Text :>
62+ QueryParam "pp" Bool :>
63+ QueryParam "access_token" Text :>
64+ QueryParam "uploadType" Text :>
65+ QueryParam "bearer_token" Text :>
66+ QueryParam "callback" Text :>
67+ QueryParam "alt" AltJSON :>
68+ ReqBody '[JSON] ExportReadGroupSetRequest :>
69+ Post '[JSON] Operation
70+
71+-- | Exports a read group set to a BAM file in Google Cloud Storage. Note
72+-- that currently there may be some differences between exported BAM files
73+-- and the original BAM file at the time of import. See
74+-- [ImportReadGroupSets](google.genomics.v1.ReadServiceV1.ImportReadGroupSets)
75+-- for caveats.
76+--
77+-- /See:/ 'readGroupSetsExport' smart constructor.
78+data ReadGroupSetsExport = ReadGroupSetsExport
79+ { _rgseXgafv :: !(Maybe Text)
80+ , _rgseReadGroupSetId :: !Text
81+ , _rgseUploadProtocol :: !(Maybe Text)
82+ , _rgsePp :: !Bool
83+ , _rgseAccessToken :: !(Maybe Text)
84+ , _rgseUploadType :: !(Maybe Text)
85+ , _rgsePayload :: !ExportReadGroupSetRequest
86+ , _rgseBearerToken :: !(Maybe Text)
87+ , _rgseCallback :: !(Maybe Text)
88+ } deriving (Eq,Show,Data,Typeable,Generic)
89+
90+-- | Creates a value of 'ReadGroupSetsExport' with the minimum fields required to make a request.
91+--
92+-- Use one of the following lenses to modify other fields as desired:
93+--
94+-- * 'rgseXgafv'
95+--
96+-- * 'rgseReadGroupSetId'
97+--
98+-- * 'rgseUploadProtocol'
99+--
100+-- * 'rgsePp'
101+--
102+-- * 'rgseAccessToken'
103+--
104+-- * 'rgseUploadType'
105+--
106+-- * 'rgsePayload'
107+--
108+-- * 'rgseBearerToken'
109+--
110+-- * 'rgseCallback'
111+readGroupSetsExport
112+ :: Text -- ^ 'rgseReadGroupSetId'
113+ -> ExportReadGroupSetRequest -- ^ 'rgsePayload'
114+ -> ReadGroupSetsExport
115+readGroupSetsExport pRgseReadGroupSetId_ pRgsePayload_ =
116+ ReadGroupSetsExport
117+ { _rgseXgafv = Nothing
118+ , _rgseReadGroupSetId = pRgseReadGroupSetId_
119+ , _rgseUploadProtocol = Nothing
120+ , _rgsePp = True
121+ , _rgseAccessToken = Nothing
122+ , _rgseUploadType = Nothing
123+ , _rgsePayload = pRgsePayload_
124+ , _rgseBearerToken = Nothing
125+ , _rgseCallback = Nothing
126+ }
127+
128+-- | V1 error format.
129+rgseXgafv :: Lens' ReadGroupSetsExport (Maybe Text)
130+rgseXgafv
131+ = lens _rgseXgafv (\ s a -> s{_rgseXgafv = a})
132+
133+-- | Required. The ID of the read group set to export.
134+rgseReadGroupSetId :: Lens' ReadGroupSetsExport Text
135+rgseReadGroupSetId
136+ = lens _rgseReadGroupSetId
137+ (\ s a -> s{_rgseReadGroupSetId = a})
138+
139+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
140+rgseUploadProtocol :: Lens' ReadGroupSetsExport (Maybe Text)
141+rgseUploadProtocol
142+ = lens _rgseUploadProtocol
143+ (\ s a -> s{_rgseUploadProtocol = a})
144+
145+-- | Pretty-print response.
146+rgsePp :: Lens' ReadGroupSetsExport Bool
147+rgsePp = lens _rgsePp (\ s a -> s{_rgsePp = a})
148+
149+-- | OAuth access token.
150+rgseAccessToken :: Lens' ReadGroupSetsExport (Maybe Text)
151+rgseAccessToken
152+ = lens _rgseAccessToken
153+ (\ s a -> s{_rgseAccessToken = a})
154+
155+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
156+rgseUploadType :: Lens' ReadGroupSetsExport (Maybe Text)
157+rgseUploadType
158+ = lens _rgseUploadType
159+ (\ s a -> s{_rgseUploadType = a})
160+
161+-- | Multipart request metadata.
162+rgsePayload :: Lens' ReadGroupSetsExport ExportReadGroupSetRequest
163+rgsePayload
164+ = lens _rgsePayload (\ s a -> s{_rgsePayload = a})
165+
166+-- | OAuth bearer token.
167+rgseBearerToken :: Lens' ReadGroupSetsExport (Maybe Text)
168+rgseBearerToken
169+ = lens _rgseBearerToken
170+ (\ s a -> s{_rgseBearerToken = a})
171+
172+-- | JSONP
173+rgseCallback :: Lens' ReadGroupSetsExport (Maybe Text)
174+rgseCallback
175+ = lens _rgseCallback (\ s a -> s{_rgseCallback = a})
176+
177+instance GoogleRequest ReadGroupSetsExport where
178+ type Rs ReadGroupSetsExport = Operation
179+ requestClient ReadGroupSetsExport{..}
180+ = go _rgseReadGroupSetId _rgseXgafv
181+ _rgseUploadProtocol
182+ (Just _rgsePp)
183+ _rgseAccessToken
184+ _rgseUploadType
185+ _rgseBearerToken
186+ _rgseCallback
187+ (Just AltJSON)
188+ _rgsePayload
189+ genomicsService
190+ where go
191+ = buildClient
192+ (Proxy :: Proxy ReadGroupSetsExportResource)
193+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Get.hsnew file+171
@@ -0,0 +1,171 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Get
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets a read group set by ID.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.get@.
26+module Network.Google.Resource.Genomics.ReadGroupSets.Get
27+ (
28+ -- * REST Resource
29+ ReadGroupSetsGetResource
30+
31+ -- * Creating a Request
32+ , readGroupSetsGet
33+ , ReadGroupSetsGet
34+
35+ -- * Request Lenses
36+ , rgsgXgafv
37+ , rgsgReadGroupSetId
38+ , rgsgUploadProtocol
39+ , rgsgPp
40+ , rgsgAccessToken
41+ , rgsgUploadType
42+ , rgsgBearerToken
43+ , rgsgCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.readgroupsets.get@ method which the
50+-- 'ReadGroupSetsGet' request conforms to.
51+type ReadGroupSetsGetResource =
52+ "v1" :>
53+ "readgroupsets" :>
54+ Capture "readGroupSetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Get '[JSON] ReadGroupSet
63+
64+-- | Gets a read group set by ID.
65+--
66+-- /See:/ 'readGroupSetsGet' smart constructor.
67+data ReadGroupSetsGet = ReadGroupSetsGet
68+ { _rgsgXgafv :: !(Maybe Text)
69+ , _rgsgReadGroupSetId :: !Text
70+ , _rgsgUploadProtocol :: !(Maybe Text)
71+ , _rgsgPp :: !Bool
72+ , _rgsgAccessToken :: !(Maybe Text)
73+ , _rgsgUploadType :: !(Maybe Text)
74+ , _rgsgBearerToken :: !(Maybe Text)
75+ , _rgsgCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'ReadGroupSetsGet' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'rgsgXgafv'
83+--
84+-- * 'rgsgReadGroupSetId'
85+--
86+-- * 'rgsgUploadProtocol'
87+--
88+-- * 'rgsgPp'
89+--
90+-- * 'rgsgAccessToken'
91+--
92+-- * 'rgsgUploadType'
93+--
94+-- * 'rgsgBearerToken'
95+--
96+-- * 'rgsgCallback'
97+readGroupSetsGet
98+ :: Text -- ^ 'rgsgReadGroupSetId'
99+ -> ReadGroupSetsGet
100+readGroupSetsGet pRgsgReadGroupSetId_ =
101+ ReadGroupSetsGet
102+ { _rgsgXgafv = Nothing
103+ , _rgsgReadGroupSetId = pRgsgReadGroupSetId_
104+ , _rgsgUploadProtocol = Nothing
105+ , _rgsgPp = True
106+ , _rgsgAccessToken = Nothing
107+ , _rgsgUploadType = Nothing
108+ , _rgsgBearerToken = Nothing
109+ , _rgsgCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+rgsgXgafv :: Lens' ReadGroupSetsGet (Maybe Text)
114+rgsgXgafv
115+ = lens _rgsgXgafv (\ s a -> s{_rgsgXgafv = a})
116+
117+-- | The ID of the read group set.
118+rgsgReadGroupSetId :: Lens' ReadGroupSetsGet Text
119+rgsgReadGroupSetId
120+ = lens _rgsgReadGroupSetId
121+ (\ s a -> s{_rgsgReadGroupSetId = a})
122+
123+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
124+rgsgUploadProtocol :: Lens' ReadGroupSetsGet (Maybe Text)
125+rgsgUploadProtocol
126+ = lens _rgsgUploadProtocol
127+ (\ s a -> s{_rgsgUploadProtocol = a})
128+
129+-- | Pretty-print response.
130+rgsgPp :: Lens' ReadGroupSetsGet Bool
131+rgsgPp = lens _rgsgPp (\ s a -> s{_rgsgPp = a})
132+
133+-- | OAuth access token.
134+rgsgAccessToken :: Lens' ReadGroupSetsGet (Maybe Text)
135+rgsgAccessToken
136+ = lens _rgsgAccessToken
137+ (\ s a -> s{_rgsgAccessToken = a})
138+
139+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
140+rgsgUploadType :: Lens' ReadGroupSetsGet (Maybe Text)
141+rgsgUploadType
142+ = lens _rgsgUploadType
143+ (\ s a -> s{_rgsgUploadType = a})
144+
145+-- | OAuth bearer token.
146+rgsgBearerToken :: Lens' ReadGroupSetsGet (Maybe Text)
147+rgsgBearerToken
148+ = lens _rgsgBearerToken
149+ (\ s a -> s{_rgsgBearerToken = a})
150+
151+-- | JSONP
152+rgsgCallback :: Lens' ReadGroupSetsGet (Maybe Text)
153+rgsgCallback
154+ = lens _rgsgCallback (\ s a -> s{_rgsgCallback = a})
155+
156+instance GoogleRequest ReadGroupSetsGet where
157+ type Rs ReadGroupSetsGet = ReadGroupSet
158+ requestClient ReadGroupSetsGet{..}
159+ = go _rgsgReadGroupSetId _rgsgXgafv
160+ _rgsgUploadProtocol
161+ (Just _rgsgPp)
162+ _rgsgAccessToken
163+ _rgsgUploadType
164+ _rgsgBearerToken
165+ _rgsgCallback
166+ (Just AltJSON)
167+ genomicsService
168+ where go
169+ = buildClient
170+ (Proxy :: Proxy ReadGroupSetsGetResource)
171+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Import.hs → gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Import.hsrenamed+85−83
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Import
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Import
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -32,32 +32,32 @@
3232-- position)
3333--
3434-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.import@.
35−module Network.Google.Resource.Genomics.Readgroupsets.Import
35+module Network.Google.Resource.Genomics.ReadGroupSets.Import
3636 (
3737 -- * REST Resource
38− ReadgroupsetsImportResource
38+ ReadGroupSetsImportResource
3939
4040 -- * Creating a Request
41− , readgroupsetsImport
42− , ReadgroupsetsImport
41+ , readGroupSetsImport
42+ , ReadGroupSetsImport
4343
4444 -- * Request Lenses
45− , riXgafv
46− , riUploadProtocol
47− , riPp
48− , riAccessToken
49− , riUploadType
50− , riPayload
51− , riBearerToken
52− , riCallback
45+ , rgsiXgafv
46+ , rgsiUploadProtocol
47+ , rgsiPp
48+ , rgsiAccessToken
49+ , rgsiUploadType
50+ , rgsiPayload
51+ , rgsiBearerToken
52+ , rgsiCallback
5353 ) where
5454
5555import Network.Google.Genomics.Types
5656import Network.Google.Prelude
5757
5858-- | A resource alias for @genomics.readgroupsets.import@ method which the
59−-- 'ReadgroupsetsImport' request conforms to.
60−type ReadgroupsetsImportResource =
59+-- 'ReadGroupSetsImport' request conforms to.
60+type ReadGroupSetsImportResource =
6161 "v1" :>
6262 "readgroupsets:import" :>
6363 QueryParam "$.xgafv" Text :>
@@ -82,105 +82,107 @@ type ReadgroupsetsImportResource =
8282-- reads will be stripped of positional information (reference name and
8383-- position)
8484--
85−-- /See:/ 'readgroupsetsImport' smart constructor.
86−data ReadgroupsetsImport = ReadgroupsetsImport
87− { _riXgafv :: !(Maybe Text)
88− , _riUploadProtocol :: !(Maybe Text)
89− , _riPp :: !Bool
90− , _riAccessToken :: !(Maybe Text)
91− , _riUploadType :: !(Maybe Text)
92− , _riPayload :: !ImportReadGroupSetsRequest
93− , _riBearerToken :: !(Maybe Text)
94− , _riCallback :: !(Maybe Text)
85+-- /See:/ 'readGroupSetsImport' smart constructor.
86+data ReadGroupSetsImport = ReadGroupSetsImport
87+ { _rgsiXgafv :: !(Maybe Text)
88+ , _rgsiUploadProtocol :: !(Maybe Text)
89+ , _rgsiPp :: !Bool
90+ , _rgsiAccessToken :: !(Maybe Text)
91+ , _rgsiUploadType :: !(Maybe Text)
92+ , _rgsiPayload :: !ImportReadGroupSetsRequest
93+ , _rgsiBearerToken :: !(Maybe Text)
94+ , _rgsiCallback :: !(Maybe Text)
9595 } deriving (Eq,Show,Data,Typeable,Generic)
9696
97−-- | Creates a value of 'ReadgroupsetsImport' with the minimum fields required to make a request.
97+-- | Creates a value of 'ReadGroupSetsImport' with the minimum fields required to make a request.
9898--
9999-- Use one of the following lenses to modify other fields as desired:
100100--
101−-- * 'riXgafv'
101+-- * 'rgsiXgafv'
102102--
103−-- * 'riUploadProtocol'
103+-- * 'rgsiUploadProtocol'
104104--
105−-- * 'riPp'
105+-- * 'rgsiPp'
106106--
107−-- * 'riAccessToken'
107+-- * 'rgsiAccessToken'
108108--
109−-- * 'riUploadType'
109+-- * 'rgsiUploadType'
110110--
111−-- * 'riPayload'
111+-- * 'rgsiPayload'
112112--
113−-- * 'riBearerToken'
113+-- * 'rgsiBearerToken'
114114--
115−-- * 'riCallback'
116−readgroupsetsImport
117− :: ImportReadGroupSetsRequest -- ^ 'riPayload'
118− -> ReadgroupsetsImport
119−readgroupsetsImport pRiPayload_ =
120− ReadgroupsetsImport
121− { _riXgafv = Nothing
122− , _riUploadProtocol = Nothing
123− , _riPp = True
124− , _riAccessToken = Nothing
125− , _riUploadType = Nothing
126− , _riPayload = pRiPayload_
127− , _riBearerToken = Nothing
128− , _riCallback = Nothing
115+-- * 'rgsiCallback'
116+readGroupSetsImport
117+ :: ImportReadGroupSetsRequest -- ^ 'rgsiPayload'
118+ -> ReadGroupSetsImport
119+readGroupSetsImport pRgsiPayload_ =
120+ ReadGroupSetsImport
121+ { _rgsiXgafv = Nothing
122+ , _rgsiUploadProtocol = Nothing
123+ , _rgsiPp = True
124+ , _rgsiAccessToken = Nothing
125+ , _rgsiUploadType = Nothing
126+ , _rgsiPayload = pRgsiPayload_
127+ , _rgsiBearerToken = Nothing
128+ , _rgsiCallback = Nothing
129129 }
130130
131131-- | V1 error format.
132−riXgafv :: Lens' ReadgroupsetsImport (Maybe Text)
133−riXgafv = lens _riXgafv (\ s a -> s{_riXgafv = a})
132+rgsiXgafv :: Lens' ReadGroupSetsImport (Maybe Text)
133+rgsiXgafv
134+ = lens _rgsiXgafv (\ s a -> s{_rgsiXgafv = a})
134135
135136-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
136−riUploadProtocol :: Lens' ReadgroupsetsImport (Maybe Text)
137−riUploadProtocol
138− = lens _riUploadProtocol
139− (\ s a -> s{_riUploadProtocol = a})
137+rgsiUploadProtocol :: Lens' ReadGroupSetsImport (Maybe Text)
138+rgsiUploadProtocol
139+ = lens _rgsiUploadProtocol
140+ (\ s a -> s{_rgsiUploadProtocol = a})
140141
141142-- | Pretty-print response.
142−riPp :: Lens' ReadgroupsetsImport Bool
143−riPp = lens _riPp (\ s a -> s{_riPp = a})
143+rgsiPp :: Lens' ReadGroupSetsImport Bool
144+rgsiPp = lens _rgsiPp (\ s a -> s{_rgsiPp = a})
144145
145146-- | OAuth access token.
146−riAccessToken :: Lens' ReadgroupsetsImport (Maybe Text)
147−riAccessToken
148− = lens _riAccessToken
149− (\ s a -> s{_riAccessToken = a})
147+rgsiAccessToken :: Lens' ReadGroupSetsImport (Maybe Text)
148+rgsiAccessToken
149+ = lens _rgsiAccessToken
150+ (\ s a -> s{_rgsiAccessToken = a})
150151
151152-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
152−riUploadType :: Lens' ReadgroupsetsImport (Maybe Text)
153−riUploadType
154− = lens _riUploadType (\ s a -> s{_riUploadType = a})
153+rgsiUploadType :: Lens' ReadGroupSetsImport (Maybe Text)
154+rgsiUploadType
155+ = lens _rgsiUploadType
156+ (\ s a -> s{_rgsiUploadType = a})
155157
156158-- | Multipart request metadata.
157−riPayload :: Lens' ReadgroupsetsImport ImportReadGroupSetsRequest
158−riPayload
159− = lens _riPayload (\ s a -> s{_riPayload = a})
159+rgsiPayload :: Lens' ReadGroupSetsImport ImportReadGroupSetsRequest
160+rgsiPayload
161+ = lens _rgsiPayload (\ s a -> s{_rgsiPayload = a})
160162
161163-- | OAuth bearer token.
162−riBearerToken :: Lens' ReadgroupsetsImport (Maybe Text)
163−riBearerToken
164− = lens _riBearerToken
165− (\ s a -> s{_riBearerToken = a})
164+rgsiBearerToken :: Lens' ReadGroupSetsImport (Maybe Text)
165+rgsiBearerToken
166+ = lens _rgsiBearerToken
167+ (\ s a -> s{_rgsiBearerToken = a})
166168
167169-- | JSONP
168−riCallback :: Lens' ReadgroupsetsImport (Maybe Text)
169−riCallback
170− = lens _riCallback (\ s a -> s{_riCallback = a})
171−
172−instance GoogleRequest ReadgroupsetsImport where
173− type Rs ReadgroupsetsImport = Operation
174− requestClient ReadgroupsetsImport{..}
175− = go _riXgafv _riUploadProtocol (Just _riPp)
176− _riAccessToken
177− _riUploadType
178− _riBearerToken
179− _riCallback
170+rgsiCallback :: Lens' ReadGroupSetsImport (Maybe Text)
171+rgsiCallback
172+ = lens _rgsiCallback (\ s a -> s{_rgsiCallback = a})
173+
174+instance GoogleRequest ReadGroupSetsImport where
175+ type Rs ReadGroupSetsImport = Operation
176+ requestClient ReadGroupSetsImport{..}
177+ = go _rgsiXgafv _rgsiUploadProtocol (Just _rgsiPp)
178+ _rgsiAccessToken
179+ _rgsiUploadType
180+ _rgsiBearerToken
181+ _rgsiCallback
180182 (Just AltJSON)
181− _riPayload
183+ _rgsiPayload
182184 genomicsService
183185 where go
184186 = buildClient
185− (Proxy :: Proxy ReadgroupsetsImportResource)
187+ (Proxy :: Proxy ReadGroupSetsImportResource)
186188 mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Patch.hsnew file+202
@@ -0,0 +1,202 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Patch
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Updates a read group set. This method supports patch semantics.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.patch@.
26+module Network.Google.Resource.Genomics.ReadGroupSets.Patch
27+ (
28+ -- * REST Resource
29+ ReadGroupSetsPatchResource
30+
31+ -- * Creating a Request
32+ , readGroupSetsPatch
33+ , ReadGroupSetsPatch
34+
35+ -- * Request Lenses
36+ , rgspXgafv
37+ , rgspReadGroupSetId
38+ , rgspUploadProtocol
39+ , rgspUpdateMask
40+ , rgspPp
41+ , rgspAccessToken
42+ , rgspUploadType
43+ , rgspPayload
44+ , rgspBearerToken
45+ , rgspCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.readgroupsets.patch@ method which the
52+-- 'ReadGroupSetsPatch' request conforms to.
53+type ReadGroupSetsPatchResource =
54+ "v1" :>
55+ "readgroupsets" :>
56+ Capture "readGroupSetId" Text :>
57+ QueryParam "$.xgafv" Text :>
58+ QueryParam "upload_protocol" Text :>
59+ QueryParam "updateMask" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] ReadGroupSet :>
67+ Patch '[JSON] ReadGroupSet
68+
69+-- | Updates a read group set. This method supports patch semantics.
70+--
71+-- /See:/ 'readGroupSetsPatch' smart constructor.
72+data ReadGroupSetsPatch = ReadGroupSetsPatch
73+ { _rgspXgafv :: !(Maybe Text)
74+ , _rgspReadGroupSetId :: !Text
75+ , _rgspUploadProtocol :: !(Maybe Text)
76+ , _rgspUpdateMask :: !(Maybe Text)
77+ , _rgspPp :: !Bool
78+ , _rgspAccessToken :: !(Maybe Text)
79+ , _rgspUploadType :: !(Maybe Text)
80+ , _rgspPayload :: !ReadGroupSet
81+ , _rgspBearerToken :: !(Maybe Text)
82+ , _rgspCallback :: !(Maybe Text)
83+ } deriving (Eq,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'ReadGroupSetsPatch' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'rgspXgafv'
90+--
91+-- * 'rgspReadGroupSetId'
92+--
93+-- * 'rgspUploadProtocol'
94+--
95+-- * 'rgspUpdateMask'
96+--
97+-- * 'rgspPp'
98+--
99+-- * 'rgspAccessToken'
100+--
101+-- * 'rgspUploadType'
102+--
103+-- * 'rgspPayload'
104+--
105+-- * 'rgspBearerToken'
106+--
107+-- * 'rgspCallback'
108+readGroupSetsPatch
109+ :: Text -- ^ 'rgspReadGroupSetId'
110+ -> ReadGroupSet -- ^ 'rgspPayload'
111+ -> ReadGroupSetsPatch
112+readGroupSetsPatch pRgspReadGroupSetId_ pRgspPayload_ =
113+ ReadGroupSetsPatch
114+ { _rgspXgafv = Nothing
115+ , _rgspReadGroupSetId = pRgspReadGroupSetId_
116+ , _rgspUploadProtocol = Nothing
117+ , _rgspUpdateMask = Nothing
118+ , _rgspPp = True
119+ , _rgspAccessToken = Nothing
120+ , _rgspUploadType = Nothing
121+ , _rgspPayload = pRgspPayload_
122+ , _rgspBearerToken = Nothing
123+ , _rgspCallback = Nothing
124+ }
125+
126+-- | V1 error format.
127+rgspXgafv :: Lens' ReadGroupSetsPatch (Maybe Text)
128+rgspXgafv
129+ = lens _rgspXgafv (\ s a -> s{_rgspXgafv = a})
130+
131+-- | The ID of the read group set to be updated. The caller must have WRITE
132+-- permissions to the dataset associated with this read group set.
133+rgspReadGroupSetId :: Lens' ReadGroupSetsPatch Text
134+rgspReadGroupSetId
135+ = lens _rgspReadGroupSetId
136+ (\ s a -> s{_rgspReadGroupSetId = a})
137+
138+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
139+rgspUploadProtocol :: Lens' ReadGroupSetsPatch (Maybe Text)
140+rgspUploadProtocol
141+ = lens _rgspUploadProtocol
142+ (\ s a -> s{_rgspUploadProtocol = a})
143+
144+-- | An optional mask specifying which fields to update. At this time,
145+-- mutable fields are referenceSetId and name. Acceptable values are
146+-- \"referenceSetId\" and \"name\". If unspecified, all mutable fields will
147+-- be updated.
148+rgspUpdateMask :: Lens' ReadGroupSetsPatch (Maybe Text)
149+rgspUpdateMask
150+ = lens _rgspUpdateMask
151+ (\ s a -> s{_rgspUpdateMask = a})
152+
153+-- | Pretty-print response.
154+rgspPp :: Lens' ReadGroupSetsPatch Bool
155+rgspPp = lens _rgspPp (\ s a -> s{_rgspPp = a})
156+
157+-- | OAuth access token.
158+rgspAccessToken :: Lens' ReadGroupSetsPatch (Maybe Text)
159+rgspAccessToken
160+ = lens _rgspAccessToken
161+ (\ s a -> s{_rgspAccessToken = a})
162+
163+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
164+rgspUploadType :: Lens' ReadGroupSetsPatch (Maybe Text)
165+rgspUploadType
166+ = lens _rgspUploadType
167+ (\ s a -> s{_rgspUploadType = a})
168+
169+-- | Multipart request metadata.
170+rgspPayload :: Lens' ReadGroupSetsPatch ReadGroupSet
171+rgspPayload
172+ = lens _rgspPayload (\ s a -> s{_rgspPayload = a})
173+
174+-- | OAuth bearer token.
175+rgspBearerToken :: Lens' ReadGroupSetsPatch (Maybe Text)
176+rgspBearerToken
177+ = lens _rgspBearerToken
178+ (\ s a -> s{_rgspBearerToken = a})
179+
180+-- | JSONP
181+rgspCallback :: Lens' ReadGroupSetsPatch (Maybe Text)
182+rgspCallback
183+ = lens _rgspCallback (\ s a -> s{_rgspCallback = a})
184+
185+instance GoogleRequest ReadGroupSetsPatch where
186+ type Rs ReadGroupSetsPatch = ReadGroupSet
187+ requestClient ReadGroupSetsPatch{..}
188+ = go _rgspReadGroupSetId _rgspXgafv
189+ _rgspUploadProtocol
190+ _rgspUpdateMask
191+ (Just _rgspPp)
192+ _rgspAccessToken
193+ _rgspUploadType
194+ _rgspBearerToken
195+ _rgspCallback
196+ (Just AltJSON)
197+ _rgspPayload
198+ genomicsService
199+ where go
200+ = buildClient
201+ (Proxy :: Proxy ReadGroupSetsPatchResource)
202+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/ReadGroupSets/Search.hsnew file+174
@@ -0,0 +1,174 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.ReadGroupSets.Search
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Searches for read group sets matching the criteria. Implements
24+-- [GlobalAllianceApi.searchReadGroupSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/readmethods.avdl#L135).
25+--
26+-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.search@.
27+module Network.Google.Resource.Genomics.ReadGroupSets.Search
28+ (
29+ -- * REST Resource
30+ ReadGroupSetsSearchResource
31+
32+ -- * Creating a Request
33+ , readGroupSetsSearch
34+ , ReadGroupSetsSearch
35+
36+ -- * Request Lenses
37+ , rgssXgafv
38+ , rgssUploadProtocol
39+ , rgssPp
40+ , rgssAccessToken
41+ , rgssUploadType
42+ , rgssPayload
43+ , rgssBearerToken
44+ , rgssCallback
45+ ) where
46+
47+import Network.Google.Genomics.Types
48+import Network.Google.Prelude
49+
50+-- | A resource alias for @genomics.readgroupsets.search@ method which the
51+-- 'ReadGroupSetsSearch' request conforms to.
52+type ReadGroupSetsSearchResource =
53+ "v1" :>
54+ "readgroupsets" :>
55+ "search" :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] SearchReadGroupSetsRequest :>
65+ Post '[JSON] SearchReadGroupSetsResponse
66+
67+-- | Searches for read group sets matching the criteria. Implements
68+-- [GlobalAllianceApi.searchReadGroupSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/readmethods.avdl#L135).
69+--
70+-- /See:/ 'readGroupSetsSearch' smart constructor.
71+data ReadGroupSetsSearch = ReadGroupSetsSearch
72+ { _rgssXgafv :: !(Maybe Text)
73+ , _rgssUploadProtocol :: !(Maybe Text)
74+ , _rgssPp :: !Bool
75+ , _rgssAccessToken :: !(Maybe Text)
76+ , _rgssUploadType :: !(Maybe Text)
77+ , _rgssPayload :: !SearchReadGroupSetsRequest
78+ , _rgssBearerToken :: !(Maybe Text)
79+ , _rgssCallback :: !(Maybe Text)
80+ } deriving (Eq,Show,Data,Typeable,Generic)
81+
82+-- | Creates a value of 'ReadGroupSetsSearch' with the minimum fields required to make a request.
83+--
84+-- Use one of the following lenses to modify other fields as desired:
85+--
86+-- * 'rgssXgafv'
87+--
88+-- * 'rgssUploadProtocol'
89+--
90+-- * 'rgssPp'
91+--
92+-- * 'rgssAccessToken'
93+--
94+-- * 'rgssUploadType'
95+--
96+-- * 'rgssPayload'
97+--
98+-- * 'rgssBearerToken'
99+--
100+-- * 'rgssCallback'
101+readGroupSetsSearch
102+ :: SearchReadGroupSetsRequest -- ^ 'rgssPayload'
103+ -> ReadGroupSetsSearch
104+readGroupSetsSearch pRgssPayload_ =
105+ ReadGroupSetsSearch
106+ { _rgssXgafv = Nothing
107+ , _rgssUploadProtocol = Nothing
108+ , _rgssPp = True
109+ , _rgssAccessToken = Nothing
110+ , _rgssUploadType = Nothing
111+ , _rgssPayload = pRgssPayload_
112+ , _rgssBearerToken = Nothing
113+ , _rgssCallback = Nothing
114+ }
115+
116+-- | V1 error format.
117+rgssXgafv :: Lens' ReadGroupSetsSearch (Maybe Text)
118+rgssXgafv
119+ = lens _rgssXgafv (\ s a -> s{_rgssXgafv = a})
120+
121+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
122+rgssUploadProtocol :: Lens' ReadGroupSetsSearch (Maybe Text)
123+rgssUploadProtocol
124+ = lens _rgssUploadProtocol
125+ (\ s a -> s{_rgssUploadProtocol = a})
126+
127+-- | Pretty-print response.
128+rgssPp :: Lens' ReadGroupSetsSearch Bool
129+rgssPp = lens _rgssPp (\ s a -> s{_rgssPp = a})
130+
131+-- | OAuth access token.
132+rgssAccessToken :: Lens' ReadGroupSetsSearch (Maybe Text)
133+rgssAccessToken
134+ = lens _rgssAccessToken
135+ (\ s a -> s{_rgssAccessToken = a})
136+
137+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
138+rgssUploadType :: Lens' ReadGroupSetsSearch (Maybe Text)
139+rgssUploadType
140+ = lens _rgssUploadType
141+ (\ s a -> s{_rgssUploadType = a})
142+
143+-- | Multipart request metadata.
144+rgssPayload :: Lens' ReadGroupSetsSearch SearchReadGroupSetsRequest
145+rgssPayload
146+ = lens _rgssPayload (\ s a -> s{_rgssPayload = a})
147+
148+-- | OAuth bearer token.
149+rgssBearerToken :: Lens' ReadGroupSetsSearch (Maybe Text)
150+rgssBearerToken
151+ = lens _rgssBearerToken
152+ (\ s a -> s{_rgssBearerToken = a})
153+
154+-- | JSONP
155+rgssCallback :: Lens' ReadGroupSetsSearch (Maybe Text)
156+rgssCallback
157+ = lens _rgssCallback (\ s a -> s{_rgssCallback = a})
158+
159+instance GoogleRequest ReadGroupSetsSearch where
160+ type Rs ReadGroupSetsSearch =
161+ SearchReadGroupSetsResponse
162+ requestClient ReadGroupSetsSearch{..}
163+ = go _rgssXgafv _rgssUploadProtocol (Just _rgssPp)
164+ _rgssAccessToken
165+ _rgssUploadType
166+ _rgssBearerToken
167+ _rgssCallback
168+ (Just AltJSON)
169+ _rgssPayload
170+ genomicsService
171+ where go
172+ = buildClient
173+ (Proxy :: Proxy ReadGroupSetsSearchResource)
174+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Coveragebuckets/List.hsdeleted−272
@@ -1,272 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Coveragebuckets.List
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Lists fixed width coverage buckets for a read group set, each of which
24−-- correspond to a range of a reference sequence. Each bucket summarizes
25−-- coverage information across its corresponding genomic range. Coverage is
26−-- defined as the number of reads which are aligned to a given base in the
27−-- reference sequence. Coverage buckets are available at several
28−-- precomputed bucket widths, enabling retrieval of various coverage \'zoom
29−-- levels\'. The caller must have READ permissions for the target read
30−-- group set.
31−--
32−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.coveragebuckets.list@.
33−module Network.Google.Resource.Genomics.Readgroupsets.Coveragebuckets.List
34− (
35− -- * REST Resource
36− ReadgroupsetsCoveragebucketsListResource
37−
38− -- * Creating a Request
39− , readgroupsetsCoveragebucketsList
40− , ReadgroupsetsCoveragebucketsList
41−
42− -- * Request Lenses
43− , rclXgafv
44− , rclReadGroupSetId
45− , rclUploadProtocol
46− , rclPp
47− , rclAccessToken
48− , rclStart
49− , rclUploadType
50− , rclTargetBucketWidth
51− , rclReferenceName
52− , rclBearerToken
53− , rclEnd
54− , rclPageToken
55− , rclPageSize
56− , rclCallback
57− ) where
58−
59−import Network.Google.Genomics.Types
60−import Network.Google.Prelude
61−
62−-- | A resource alias for @genomics.readgroupsets.coveragebuckets.list@ method which the
63−-- 'ReadgroupsetsCoveragebucketsList' request conforms to.
64−type ReadgroupsetsCoveragebucketsListResource =
65− "v1" :>
66− "readgroupsets" :>
67− Capture "readGroupSetId" Text :>
68− "coveragebuckets" :>
69− QueryParam "$.xgafv" Text :>
70− QueryParam "upload_protocol" Text :>
71− QueryParam "pp" Bool :>
72− QueryParam "access_token" Text :>
73− QueryParam "start" Int64 :>
74− QueryParam "uploadType" Text :>
75− QueryParam "targetBucketWidth" Int64 :>
76− QueryParam "referenceName" Text :>
77− QueryParam "bearer_token" Text :>
78− QueryParam "end" Int64 :>
79− QueryParam "pageToken" Text :>
80− QueryParam "pageSize" Int32 :>
81− QueryParam "callback" Text :>
82− QueryParam "alt" AltJSON :>
83− Get '[JSON] ListCoverageBucketsResponse
84−
85−-- | Lists fixed width coverage buckets for a read group set, each of which
86−-- correspond to a range of a reference sequence. Each bucket summarizes
87−-- coverage information across its corresponding genomic range. Coverage is
88−-- defined as the number of reads which are aligned to a given base in the
89−-- reference sequence. Coverage buckets are available at several
90−-- precomputed bucket widths, enabling retrieval of various coverage \'zoom
91−-- levels\'. The caller must have READ permissions for the target read
92−-- group set.
93−--
94−-- /See:/ 'readgroupsetsCoveragebucketsList' smart constructor.
95−data ReadgroupsetsCoveragebucketsList = ReadgroupsetsCoveragebucketsList
96− { _rclXgafv :: !(Maybe Text)
97− , _rclReadGroupSetId :: !Text
98− , _rclUploadProtocol :: !(Maybe Text)
99− , _rclPp :: !Bool
100− , _rclAccessToken :: !(Maybe Text)
101− , _rclStart :: !(Maybe Int64)
102− , _rclUploadType :: !(Maybe Text)
103− , _rclTargetBucketWidth :: !(Maybe Int64)
104− , _rclReferenceName :: !(Maybe Text)
105− , _rclBearerToken :: !(Maybe Text)
106− , _rclEnd :: !(Maybe Int64)
107− , _rclPageToken :: !(Maybe Text)
108− , _rclPageSize :: !(Maybe Int32)
109− , _rclCallback :: !(Maybe Text)
110− } deriving (Eq,Show,Data,Typeable,Generic)
111−
112−-- | Creates a value of 'ReadgroupsetsCoveragebucketsList' with the minimum fields required to make a request.
113−--
114−-- Use one of the following lenses to modify other fields as desired:
115−--
116−-- * 'rclXgafv'
117−--
118−-- * 'rclReadGroupSetId'
119−--
120−-- * 'rclUploadProtocol'
121−--
122−-- * 'rclPp'
123−--
124−-- * 'rclAccessToken'
125−--
126−-- * 'rclStart'
127−--
128−-- * 'rclUploadType'
129−--
130−-- * 'rclTargetBucketWidth'
131−--
132−-- * 'rclReferenceName'
133−--
134−-- * 'rclBearerToken'
135−--
136−-- * 'rclEnd'
137−--
138−-- * 'rclPageToken'
139−--
140−-- * 'rclPageSize'
141−--
142−-- * 'rclCallback'
143−readgroupsetsCoveragebucketsList
144− :: Text -- ^ 'rclReadGroupSetId'
145− -> ReadgroupsetsCoveragebucketsList
146−readgroupsetsCoveragebucketsList pRclReadGroupSetId_ =
147− ReadgroupsetsCoveragebucketsList
148− { _rclXgafv = Nothing
149− , _rclReadGroupSetId = pRclReadGroupSetId_
150− , _rclUploadProtocol = Nothing
151− , _rclPp = True
152− , _rclAccessToken = Nothing
153− , _rclStart = Nothing
154− , _rclUploadType = Nothing
155− , _rclTargetBucketWidth = Nothing
156− , _rclReferenceName = Nothing
157− , _rclBearerToken = Nothing
158− , _rclEnd = Nothing
159− , _rclPageToken = Nothing
160− , _rclPageSize = Nothing
161− , _rclCallback = Nothing
162− }
163−
164−-- | V1 error format.
165−rclXgafv :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
166−rclXgafv = lens _rclXgafv (\ s a -> s{_rclXgafv = a})
167−
168−-- | Required. The ID of the read group set over which coverage is requested.
169−rclReadGroupSetId :: Lens' ReadgroupsetsCoveragebucketsList Text
170−rclReadGroupSetId
171− = lens _rclReadGroupSetId
172− (\ s a -> s{_rclReadGroupSetId = a})
173−
174−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
175−rclUploadProtocol :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
176−rclUploadProtocol
177− = lens _rclUploadProtocol
178− (\ s a -> s{_rclUploadProtocol = a})
179−
180−-- | Pretty-print response.
181−rclPp :: Lens' ReadgroupsetsCoveragebucketsList Bool
182−rclPp = lens _rclPp (\ s a -> s{_rclPp = a})
183−
184−-- | OAuth access token.
185−rclAccessToken :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
186−rclAccessToken
187− = lens _rclAccessToken
188− (\ s a -> s{_rclAccessToken = a})
189−
190−-- | The start position of the range on the reference, 0-based inclusive. If
191−-- specified, \`referenceName\` must also be specified. Defaults to 0.
192−rclStart :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Int64)
193−rclStart = lens _rclStart (\ s a -> s{_rclStart = a})
194−
195−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
196−rclUploadType :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
197−rclUploadType
198− = lens _rclUploadType
199− (\ s a -> s{_rclUploadType = a})
200−
201−-- | The desired width of each reported coverage bucket in base pairs. This
202−-- will be rounded down to the nearest precomputed bucket width; the value
203−-- of which is returned as \`bucketWidth\` in the response. Defaults to
204−-- infinity (each bucket spans an entire reference sequence) or the length
205−-- of the target range, if specified. The smallest precomputed
206−-- \`bucketWidth\` is currently 2048 base pairs; this is subject to change.
207−rclTargetBucketWidth :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Int64)
208−rclTargetBucketWidth
209− = lens _rclTargetBucketWidth
210− (\ s a -> s{_rclTargetBucketWidth = a})
211−
212−-- | The name of the reference to query, within the reference set associated
213−-- with this query. Optional.
214−rclReferenceName :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
215−rclReferenceName
216− = lens _rclReferenceName
217− (\ s a -> s{_rclReferenceName = a})
218−
219−-- | OAuth bearer token.
220−rclBearerToken :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
221−rclBearerToken
222− = lens _rclBearerToken
223− (\ s a -> s{_rclBearerToken = a})
224−
225−-- | The end position of the range on the reference, 0-based exclusive. If
226−-- specified, \`referenceName\` must also be specified. If unset or 0,
227−-- defaults to the length of the reference.
228−rclEnd :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Int64)
229−rclEnd = lens _rclEnd (\ s a -> s{_rclEnd = a})
230−
231−-- | The continuation token, which is used to page through large result sets.
232−-- To get the next page of results, set this parameter to the value of
233−-- \`nextPageToken\` from the previous response.
234−rclPageToken :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
235−rclPageToken
236− = lens _rclPageToken (\ s a -> s{_rclPageToken = a})
237−
238−-- | The maximum number of results to return in a single page. If
239−-- unspecified, defaults to 1024. The maximum value is 2048.
240−rclPageSize :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Int32)
241−rclPageSize
242− = lens _rclPageSize (\ s a -> s{_rclPageSize = a})
243−
244−-- | JSONP
245−rclCallback :: Lens' ReadgroupsetsCoveragebucketsList (Maybe Text)
246−rclCallback
247− = lens _rclCallback (\ s a -> s{_rclCallback = a})
248−
249−instance GoogleRequest
250− ReadgroupsetsCoveragebucketsList where
251− type Rs ReadgroupsetsCoveragebucketsList =
252− ListCoverageBucketsResponse
253− requestClient ReadgroupsetsCoveragebucketsList{..}
254− = go _rclReadGroupSetId _rclXgafv _rclUploadProtocol
255− (Just _rclPp)
256− _rclAccessToken
257− _rclStart
258− _rclUploadType
259− _rclTargetBucketWidth
260− _rclReferenceName
261− _rclBearerToken
262− _rclEnd
263− _rclPageToken
264− _rclPageSize
265− _rclCallback
266− (Just AltJSON)
267− genomicsService
268− where go
269− = buildClient
270− (Proxy ::
271− Proxy ReadgroupsetsCoveragebucketsListResource)
272− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Delete.hsdeleted−169
@@ -1,169 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Delete
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Deletes a read group set.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.delete@.
26−module Network.Google.Resource.Genomics.Readgroupsets.Delete
27− (
28− -- * REST Resource
29− ReadgroupsetsDeleteResource
30−
31− -- * Creating a Request
32− , readgroupsetsDelete
33− , ReadgroupsetsDelete
34−
35− -- * Request Lenses
36− , rdXgafv
37− , rdReadGroupSetId
38− , rdUploadProtocol
39− , rdPp
40− , rdAccessToken
41− , rdUploadType
42− , rdBearerToken
43− , rdCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.readgroupsets.delete@ method which the
50−-- 'ReadgroupsetsDelete' request conforms to.
51−type ReadgroupsetsDeleteResource =
52− "v1" :>
53− "readgroupsets" :>
54− Capture "readGroupSetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Delete '[JSON] Empty
63−
64−-- | Deletes a read group set.
65−--
66−-- /See:/ 'readgroupsetsDelete' smart constructor.
67−data ReadgroupsetsDelete = ReadgroupsetsDelete
68− { _rdXgafv :: !(Maybe Text)
69− , _rdReadGroupSetId :: !Text
70− , _rdUploadProtocol :: !(Maybe Text)
71− , _rdPp :: !Bool
72− , _rdAccessToken :: !(Maybe Text)
73− , _rdUploadType :: !(Maybe Text)
74− , _rdBearerToken :: !(Maybe Text)
75− , _rdCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'ReadgroupsetsDelete' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'rdXgafv'
83−--
84−-- * 'rdReadGroupSetId'
85−--
86−-- * 'rdUploadProtocol'
87−--
88−-- * 'rdPp'
89−--
90−-- * 'rdAccessToken'
91−--
92−-- * 'rdUploadType'
93−--
94−-- * 'rdBearerToken'
95−--
96−-- * 'rdCallback'
97−readgroupsetsDelete
98− :: Text -- ^ 'rdReadGroupSetId'
99− -> ReadgroupsetsDelete
100−readgroupsetsDelete pRdReadGroupSetId_ =
101− ReadgroupsetsDelete
102− { _rdXgafv = Nothing
103− , _rdReadGroupSetId = pRdReadGroupSetId_
104− , _rdUploadProtocol = Nothing
105− , _rdPp = True
106− , _rdAccessToken = Nothing
107− , _rdUploadType = Nothing
108− , _rdBearerToken = Nothing
109− , _rdCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−rdXgafv :: Lens' ReadgroupsetsDelete (Maybe Text)
114−rdXgafv = lens _rdXgafv (\ s a -> s{_rdXgafv = a})
115−
116−-- | The ID of the read group set to be deleted. The caller must have WRITE
117−-- permissions to the dataset associated with this read group set.
118−rdReadGroupSetId :: Lens' ReadgroupsetsDelete Text
119−rdReadGroupSetId
120− = lens _rdReadGroupSetId
121− (\ s a -> s{_rdReadGroupSetId = a})
122−
123−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
124−rdUploadProtocol :: Lens' ReadgroupsetsDelete (Maybe Text)
125−rdUploadProtocol
126− = lens _rdUploadProtocol
127− (\ s a -> s{_rdUploadProtocol = a})
128−
129−-- | Pretty-print response.
130−rdPp :: Lens' ReadgroupsetsDelete Bool
131−rdPp = lens _rdPp (\ s a -> s{_rdPp = a})
132−
133−-- | OAuth access token.
134−rdAccessToken :: Lens' ReadgroupsetsDelete (Maybe Text)
135−rdAccessToken
136− = lens _rdAccessToken
137− (\ s a -> s{_rdAccessToken = a})
138−
139−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
140−rdUploadType :: Lens' ReadgroupsetsDelete (Maybe Text)
141−rdUploadType
142− = lens _rdUploadType (\ s a -> s{_rdUploadType = a})
143−
144−-- | OAuth bearer token.
145−rdBearerToken :: Lens' ReadgroupsetsDelete (Maybe Text)
146−rdBearerToken
147− = lens _rdBearerToken
148− (\ s a -> s{_rdBearerToken = a})
149−
150−-- | JSONP
151−rdCallback :: Lens' ReadgroupsetsDelete (Maybe Text)
152−rdCallback
153− = lens _rdCallback (\ s a -> s{_rdCallback = a})
154−
155−instance GoogleRequest ReadgroupsetsDelete where
156− type Rs ReadgroupsetsDelete = Empty
157− requestClient ReadgroupsetsDelete{..}
158− = go _rdReadGroupSetId _rdXgafv _rdUploadProtocol
159− (Just _rdPp)
160− _rdAccessToken
161− _rdUploadType
162− _rdBearerToken
163− _rdCallback
164− (Just AltJSON)
165− genomicsService
166− where go
167− = buildClient
168− (Proxy :: Proxy ReadgroupsetsDeleteResource)
169− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Export.hsdeleted−190
@@ -1,190 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Export
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Exports a read group set to a BAM file in Google Cloud Storage. Note
24−-- that currently there may be some differences between exported BAM files
25−-- and the original BAM file at the time of import. See
26−-- [ImportReadGroupSets](google.genomics.v1.ReadServiceV1.ImportReadGroupSets)
27−-- for caveats.
28−--
29−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.export@.
30−module Network.Google.Resource.Genomics.Readgroupsets.Export
31− (
32− -- * REST Resource
33− ReadgroupsetsExportResource
34−
35− -- * Creating a Request
36− , readgroupsetsExport
37− , ReadgroupsetsExport
38−
39− -- * Request Lenses
40− , reXgafv
41− , reReadGroupSetId
42− , reUploadProtocol
43− , rePp
44− , reAccessToken
45− , reUploadType
46− , rePayload
47− , reBearerToken
48− , reCallback
49− ) where
50−
51−import Network.Google.Genomics.Types
52−import Network.Google.Prelude
53−
54−-- | A resource alias for @genomics.readgroupsets.export@ method which the
55−-- 'ReadgroupsetsExport' request conforms to.
56−type ReadgroupsetsExportResource =
57− "v1" :>
58− "readgroupsets" :>
59− CaptureMode "readGroupSetId" "export" Text :>
60− QueryParam "$.xgafv" Text :>
61− QueryParam "upload_protocol" Text :>
62− QueryParam "pp" Bool :>
63− QueryParam "access_token" Text :>
64− QueryParam "uploadType" Text :>
65− QueryParam "bearer_token" Text :>
66− QueryParam "callback" Text :>
67− QueryParam "alt" AltJSON :>
68− ReqBody '[JSON] ExportReadGroupSetRequest :>
69− Post '[JSON] Operation
70−
71−-- | Exports a read group set to a BAM file in Google Cloud Storage. Note
72−-- that currently there may be some differences between exported BAM files
73−-- and the original BAM file at the time of import. See
74−-- [ImportReadGroupSets](google.genomics.v1.ReadServiceV1.ImportReadGroupSets)
75−-- for caveats.
76−--
77−-- /See:/ 'readgroupsetsExport' smart constructor.
78−data ReadgroupsetsExport = ReadgroupsetsExport
79− { _reXgafv :: !(Maybe Text)
80− , _reReadGroupSetId :: !Text
81− , _reUploadProtocol :: !(Maybe Text)
82− , _rePp :: !Bool
83− , _reAccessToken :: !(Maybe Text)
84− , _reUploadType :: !(Maybe Text)
85− , _rePayload :: !ExportReadGroupSetRequest
86− , _reBearerToken :: !(Maybe Text)
87− , _reCallback :: !(Maybe Text)
88− } deriving (Eq,Show,Data,Typeable,Generic)
89−
90−-- | Creates a value of 'ReadgroupsetsExport' with the minimum fields required to make a request.
91−--
92−-- Use one of the following lenses to modify other fields as desired:
93−--
94−-- * 'reXgafv'
95−--
96−-- * 'reReadGroupSetId'
97−--
98−-- * 'reUploadProtocol'
99−--
100−-- * 'rePp'
101−--
102−-- * 'reAccessToken'
103−--
104−-- * 'reUploadType'
105−--
106−-- * 'rePayload'
107−--
108−-- * 'reBearerToken'
109−--
110−-- * 'reCallback'
111−readgroupsetsExport
112− :: Text -- ^ 'reReadGroupSetId'
113− -> ExportReadGroupSetRequest -- ^ 'rePayload'
114− -> ReadgroupsetsExport
115−readgroupsetsExport pReReadGroupSetId_ pRePayload_ =
116− ReadgroupsetsExport
117− { _reXgafv = Nothing
118− , _reReadGroupSetId = pReReadGroupSetId_
119− , _reUploadProtocol = Nothing
120− , _rePp = True
121− , _reAccessToken = Nothing
122− , _reUploadType = Nothing
123− , _rePayload = pRePayload_
124− , _reBearerToken = Nothing
125− , _reCallback = Nothing
126− }
127−
128−-- | V1 error format.
129−reXgafv :: Lens' ReadgroupsetsExport (Maybe Text)
130−reXgafv = lens _reXgafv (\ s a -> s{_reXgafv = a})
131−
132−-- | Required. The ID of the read group set to export.
133−reReadGroupSetId :: Lens' ReadgroupsetsExport Text
134−reReadGroupSetId
135− = lens _reReadGroupSetId
136− (\ s a -> s{_reReadGroupSetId = a})
137−
138−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
139−reUploadProtocol :: Lens' ReadgroupsetsExport (Maybe Text)
140−reUploadProtocol
141− = lens _reUploadProtocol
142− (\ s a -> s{_reUploadProtocol = a})
143−
144−-- | Pretty-print response.
145−rePp :: Lens' ReadgroupsetsExport Bool
146−rePp = lens _rePp (\ s a -> s{_rePp = a})
147−
148−-- | OAuth access token.
149−reAccessToken :: Lens' ReadgroupsetsExport (Maybe Text)
150−reAccessToken
151− = lens _reAccessToken
152− (\ s a -> s{_reAccessToken = a})
153−
154−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
155−reUploadType :: Lens' ReadgroupsetsExport (Maybe Text)
156−reUploadType
157− = lens _reUploadType (\ s a -> s{_reUploadType = a})
158−
159−-- | Multipart request metadata.
160−rePayload :: Lens' ReadgroupsetsExport ExportReadGroupSetRequest
161−rePayload
162− = lens _rePayload (\ s a -> s{_rePayload = a})
163−
164−-- | OAuth bearer token.
165−reBearerToken :: Lens' ReadgroupsetsExport (Maybe Text)
166−reBearerToken
167− = lens _reBearerToken
168− (\ s a -> s{_reBearerToken = a})
169−
170−-- | JSONP
171−reCallback :: Lens' ReadgroupsetsExport (Maybe Text)
172−reCallback
173− = lens _reCallback (\ s a -> s{_reCallback = a})
174−
175−instance GoogleRequest ReadgroupsetsExport where
176− type Rs ReadgroupsetsExport = Operation
177− requestClient ReadgroupsetsExport{..}
178− = go _reReadGroupSetId _reXgafv _reUploadProtocol
179− (Just _rePp)
180− _reAccessToken
181− _reUploadType
182− _reBearerToken
183− _reCallback
184− (Just AltJSON)
185− _rePayload
186− genomicsService
187− where go
188− = buildClient
189− (Proxy :: Proxy ReadgroupsetsExportResource)
190− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Get.hsdeleted−166
@@ -1,166 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Get
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets a read group set by ID.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.get@.
26−module Network.Google.Resource.Genomics.Readgroupsets.Get
27− (
28− -- * REST Resource
29− ReadgroupsetsGetResource
30−
31− -- * Creating a Request
32− , readgroupsetsGet
33− , ReadgroupsetsGet
34−
35− -- * Request Lenses
36− , rXgafv
37− , rReadGroupSetId
38− , rUploadProtocol
39− , rPp
40− , rAccessToken
41− , rUploadType
42− , rBearerToken
43− , rCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.readgroupsets.get@ method which the
50−-- 'ReadgroupsetsGet' request conforms to.
51−type ReadgroupsetsGetResource =
52− "v1" :>
53− "readgroupsets" :>
54− Capture "readGroupSetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Get '[JSON] ReadGroupSet
63−
64−-- | Gets a read group set by ID.
65−--
66−-- /See:/ 'readgroupsetsGet' smart constructor.
67−data ReadgroupsetsGet = ReadgroupsetsGet
68− { _rXgafv :: !(Maybe Text)
69− , _rReadGroupSetId :: !Text
70− , _rUploadProtocol :: !(Maybe Text)
71− , _rPp :: !Bool
72− , _rAccessToken :: !(Maybe Text)
73− , _rUploadType :: !(Maybe Text)
74− , _rBearerToken :: !(Maybe Text)
75− , _rCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'ReadgroupsetsGet' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'rXgafv'
83−--
84−-- * 'rReadGroupSetId'
85−--
86−-- * 'rUploadProtocol'
87−--
88−-- * 'rPp'
89−--
90−-- * 'rAccessToken'
91−--
92−-- * 'rUploadType'
93−--
94−-- * 'rBearerToken'
95−--
96−-- * 'rCallback'
97−readgroupsetsGet
98− :: Text -- ^ 'rReadGroupSetId'
99− -> ReadgroupsetsGet
100−readgroupsetsGet pRReadGroupSetId_ =
101− ReadgroupsetsGet
102− { _rXgafv = Nothing
103− , _rReadGroupSetId = pRReadGroupSetId_
104− , _rUploadProtocol = Nothing
105− , _rPp = True
106− , _rAccessToken = Nothing
107− , _rUploadType = Nothing
108− , _rBearerToken = Nothing
109− , _rCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−rXgafv :: Lens' ReadgroupsetsGet (Maybe Text)
114−rXgafv = lens _rXgafv (\ s a -> s{_rXgafv = a})
115−
116−-- | The ID of the read group set.
117−rReadGroupSetId :: Lens' ReadgroupsetsGet Text
118−rReadGroupSetId
119− = lens _rReadGroupSetId
120− (\ s a -> s{_rReadGroupSetId = a})
121−
122−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
123−rUploadProtocol :: Lens' ReadgroupsetsGet (Maybe Text)
124−rUploadProtocol
125− = lens _rUploadProtocol
126− (\ s a -> s{_rUploadProtocol = a})
127−
128−-- | Pretty-print response.
129−rPp :: Lens' ReadgroupsetsGet Bool
130−rPp = lens _rPp (\ s a -> s{_rPp = a})
131−
132−-- | OAuth access token.
133−rAccessToken :: Lens' ReadgroupsetsGet (Maybe Text)
134−rAccessToken
135− = lens _rAccessToken (\ s a -> s{_rAccessToken = a})
136−
137−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
138−rUploadType :: Lens' ReadgroupsetsGet (Maybe Text)
139−rUploadType
140− = lens _rUploadType (\ s a -> s{_rUploadType = a})
141−
142−-- | OAuth bearer token.
143−rBearerToken :: Lens' ReadgroupsetsGet (Maybe Text)
144−rBearerToken
145− = lens _rBearerToken (\ s a -> s{_rBearerToken = a})
146−
147−-- | JSONP
148−rCallback :: Lens' ReadgroupsetsGet (Maybe Text)
149−rCallback
150− = lens _rCallback (\ s a -> s{_rCallback = a})
151−
152−instance GoogleRequest ReadgroupsetsGet where
153− type Rs ReadgroupsetsGet = ReadGroupSet
154− requestClient ReadgroupsetsGet{..}
155− = go _rReadGroupSetId _rXgafv _rUploadProtocol
156− (Just _rPp)
157− _rAccessToken
158− _rUploadType
159− _rBearerToken
160− _rCallback
161− (Just AltJSON)
162− genomicsService
163− where go
164− = buildClient
165− (Proxy :: Proxy ReadgroupsetsGetResource)
166− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Patch.hsdeleted−198
@@ -1,198 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Patch
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Updates a read group set. This method supports patch semantics.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.patch@.
26−module Network.Google.Resource.Genomics.Readgroupsets.Patch
27− (
28− -- * REST Resource
29− ReadgroupsetsPatchResource
30−
31− -- * Creating a Request
32− , readgroupsetsPatch
33− , ReadgroupsetsPatch
34−
35− -- * Request Lenses
36− , rpXgafv
37− , rpReadGroupSetId
38− , rpUploadProtocol
39− , rpUpdateMask
40− , rpPp
41− , rpAccessToken
42− , rpUploadType
43− , rpPayload
44− , rpBearerToken
45− , rpCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.readgroupsets.patch@ method which the
52−-- 'ReadgroupsetsPatch' request conforms to.
53−type ReadgroupsetsPatchResource =
54− "v1" :>
55− "readgroupsets" :>
56− Capture "readGroupSetId" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "updateMask" Text :>
60− QueryParam "pp" Bool :>
61− QueryParam "access_token" Text :>
62− QueryParam "uploadType" Text :>
63− QueryParam "bearer_token" Text :>
64− QueryParam "callback" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] ReadGroupSet :>
67− Patch '[JSON] ReadGroupSet
68−
69−-- | Updates a read group set. This method supports patch semantics.
70−--
71−-- /See:/ 'readgroupsetsPatch' smart constructor.
72−data ReadgroupsetsPatch = ReadgroupsetsPatch
73− { _rpXgafv :: !(Maybe Text)
74− , _rpReadGroupSetId :: !Text
75− , _rpUploadProtocol :: !(Maybe Text)
76− , _rpUpdateMask :: !(Maybe Text)
77− , _rpPp :: !Bool
78− , _rpAccessToken :: !(Maybe Text)
79− , _rpUploadType :: !(Maybe Text)
80− , _rpPayload :: !ReadGroupSet
81− , _rpBearerToken :: !(Maybe Text)
82− , _rpCallback :: !(Maybe Text)
83− } deriving (Eq,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'ReadgroupsetsPatch' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'rpXgafv'
90−--
91−-- * 'rpReadGroupSetId'
92−--
93−-- * 'rpUploadProtocol'
94−--
95−-- * 'rpUpdateMask'
96−--
97−-- * 'rpPp'
98−--
99−-- * 'rpAccessToken'
100−--
101−-- * 'rpUploadType'
102−--
103−-- * 'rpPayload'
104−--
105−-- * 'rpBearerToken'
106−--
107−-- * 'rpCallback'
108−readgroupsetsPatch
109− :: Text -- ^ 'rpReadGroupSetId'
110− -> ReadGroupSet -- ^ 'rpPayload'
111− -> ReadgroupsetsPatch
112−readgroupsetsPatch pRpReadGroupSetId_ pRpPayload_ =
113− ReadgroupsetsPatch
114− { _rpXgafv = Nothing
115− , _rpReadGroupSetId = pRpReadGroupSetId_
116− , _rpUploadProtocol = Nothing
117− , _rpUpdateMask = Nothing
118− , _rpPp = True
119− , _rpAccessToken = Nothing
120− , _rpUploadType = Nothing
121− , _rpPayload = pRpPayload_
122− , _rpBearerToken = Nothing
123− , _rpCallback = Nothing
124− }
125−
126−-- | V1 error format.
127−rpXgafv :: Lens' ReadgroupsetsPatch (Maybe Text)
128−rpXgafv = lens _rpXgafv (\ s a -> s{_rpXgafv = a})
129−
130−-- | The ID of the read group set to be updated. The caller must have WRITE
131−-- permissions to the dataset associated with this read group set.
132−rpReadGroupSetId :: Lens' ReadgroupsetsPatch Text
133−rpReadGroupSetId
134− = lens _rpReadGroupSetId
135− (\ s a -> s{_rpReadGroupSetId = a})
136−
137−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
138−rpUploadProtocol :: Lens' ReadgroupsetsPatch (Maybe Text)
139−rpUploadProtocol
140− = lens _rpUploadProtocol
141− (\ s a -> s{_rpUploadProtocol = a})
142−
143−-- | An optional mask specifying which fields to update. At this time,
144−-- mutable fields are referenceSetId and name. Acceptable values are
145−-- \"referenceSetId\" and \"name\". If unspecified, all mutable fields will
146−-- be updated.
147−rpUpdateMask :: Lens' ReadgroupsetsPatch (Maybe Text)
148−rpUpdateMask
149− = lens _rpUpdateMask (\ s a -> s{_rpUpdateMask = a})
150−
151−-- | Pretty-print response.
152−rpPp :: Lens' ReadgroupsetsPatch Bool
153−rpPp = lens _rpPp (\ s a -> s{_rpPp = a})
154−
155−-- | OAuth access token.
156−rpAccessToken :: Lens' ReadgroupsetsPatch (Maybe Text)
157−rpAccessToken
158− = lens _rpAccessToken
159− (\ s a -> s{_rpAccessToken = a})
160−
161−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
162−rpUploadType :: Lens' ReadgroupsetsPatch (Maybe Text)
163−rpUploadType
164− = lens _rpUploadType (\ s a -> s{_rpUploadType = a})
165−
166−-- | Multipart request metadata.
167−rpPayload :: Lens' ReadgroupsetsPatch ReadGroupSet
168−rpPayload
169− = lens _rpPayload (\ s a -> s{_rpPayload = a})
170−
171−-- | OAuth bearer token.
172−rpBearerToken :: Lens' ReadgroupsetsPatch (Maybe Text)
173−rpBearerToken
174− = lens _rpBearerToken
175− (\ s a -> s{_rpBearerToken = a})
176−
177−-- | JSONP
178−rpCallback :: Lens' ReadgroupsetsPatch (Maybe Text)
179−rpCallback
180− = lens _rpCallback (\ s a -> s{_rpCallback = a})
181−
182−instance GoogleRequest ReadgroupsetsPatch where
183− type Rs ReadgroupsetsPatch = ReadGroupSet
184− requestClient ReadgroupsetsPatch{..}
185− = go _rpReadGroupSetId _rpXgafv _rpUploadProtocol
186− _rpUpdateMask
187− (Just _rpPp)
188− _rpAccessToken
189− _rpUploadType
190− _rpBearerToken
191− _rpCallback
192− (Just AltJSON)
193− _rpPayload
194− genomicsService
195− where go
196− = buildClient
197− (Proxy :: Proxy ReadgroupsetsPatchResource)
198− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Search.hsdeleted−173
@@ -1,173 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Readgroupsets.Search
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Searches for read group sets matching the criteria. Implements
24−-- [GlobalAllianceApi.searchReadGroupSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/readmethods.avdl#L135).
25−--
26−-- /See:/ < Genomics API Reference> for @genomics.readgroupsets.search@.
27−module Network.Google.Resource.Genomics.Readgroupsets.Search
28− (
29− -- * REST Resource
30− ReadgroupsetsSearchResource
31−
32− -- * Creating a Request
33− , readgroupsetsSearch
34− , ReadgroupsetsSearch
35−
36− -- * Request Lenses
37− , rssXgafv
38− , rssUploadProtocol
39− , rssPp
40− , rssAccessToken
41− , rssUploadType
42− , rssPayload
43− , rssBearerToken
44− , rssCallback
45− ) where
46−
47−import Network.Google.Genomics.Types
48−import Network.Google.Prelude
49−
50−-- | A resource alias for @genomics.readgroupsets.search@ method which the
51−-- 'ReadgroupsetsSearch' request conforms to.
52−type ReadgroupsetsSearchResource =
53− "v1" :>
54− "readgroupsets" :>
55− "search" :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] SearchReadGroupSetsRequest :>
65− Post '[JSON] SearchReadGroupSetsResponse
66−
67−-- | Searches for read group sets matching the criteria. Implements
68−-- [GlobalAllianceApi.searchReadGroupSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/readmethods.avdl#L135).
69−--
70−-- /See:/ 'readgroupsetsSearch' smart constructor.
71−data ReadgroupsetsSearch = ReadgroupsetsSearch
72− { _rssXgafv :: !(Maybe Text)
73− , _rssUploadProtocol :: !(Maybe Text)
74− , _rssPp :: !Bool
75− , _rssAccessToken :: !(Maybe Text)
76− , _rssUploadType :: !(Maybe Text)
77− , _rssPayload :: !SearchReadGroupSetsRequest
78− , _rssBearerToken :: !(Maybe Text)
79− , _rssCallback :: !(Maybe Text)
80− } deriving (Eq,Show,Data,Typeable,Generic)
81−
82−-- | Creates a value of 'ReadgroupsetsSearch' with the minimum fields required to make a request.
83−--
84−-- Use one of the following lenses to modify other fields as desired:
85−--
86−-- * 'rssXgafv'
87−--
88−-- * 'rssUploadProtocol'
89−--
90−-- * 'rssPp'
91−--
92−-- * 'rssAccessToken'
93−--
94−-- * 'rssUploadType'
95−--
96−-- * 'rssPayload'
97−--
98−-- * 'rssBearerToken'
99−--
100−-- * 'rssCallback'
101−readgroupsetsSearch
102− :: SearchReadGroupSetsRequest -- ^ 'rssPayload'
103− -> ReadgroupsetsSearch
104−readgroupsetsSearch pRssPayload_ =
105− ReadgroupsetsSearch
106− { _rssXgafv = Nothing
107− , _rssUploadProtocol = Nothing
108− , _rssPp = True
109− , _rssAccessToken = Nothing
110− , _rssUploadType = Nothing
111− , _rssPayload = pRssPayload_
112− , _rssBearerToken = Nothing
113− , _rssCallback = Nothing
114− }
115−
116−-- | V1 error format.
117−rssXgafv :: Lens' ReadgroupsetsSearch (Maybe Text)
118−rssXgafv = lens _rssXgafv (\ s a -> s{_rssXgafv = a})
119−
120−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121−rssUploadProtocol :: Lens' ReadgroupsetsSearch (Maybe Text)
122−rssUploadProtocol
123− = lens _rssUploadProtocol
124− (\ s a -> s{_rssUploadProtocol = a})
125−
126−-- | Pretty-print response.
127−rssPp :: Lens' ReadgroupsetsSearch Bool
128−rssPp = lens _rssPp (\ s a -> s{_rssPp = a})
129−
130−-- | OAuth access token.
131−rssAccessToken :: Lens' ReadgroupsetsSearch (Maybe Text)
132−rssAccessToken
133− = lens _rssAccessToken
134− (\ s a -> s{_rssAccessToken = a})
135−
136−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137−rssUploadType :: Lens' ReadgroupsetsSearch (Maybe Text)
138−rssUploadType
139− = lens _rssUploadType
140− (\ s a -> s{_rssUploadType = a})
141−
142−-- | Multipart request metadata.
143−rssPayload :: Lens' ReadgroupsetsSearch SearchReadGroupSetsRequest
144−rssPayload
145− = lens _rssPayload (\ s a -> s{_rssPayload = a})
146−
147−-- | OAuth bearer token.
148−rssBearerToken :: Lens' ReadgroupsetsSearch (Maybe Text)
149−rssBearerToken
150− = lens _rssBearerToken
151− (\ s a -> s{_rssBearerToken = a})
152−
153−-- | JSONP
154−rssCallback :: Lens' ReadgroupsetsSearch (Maybe Text)
155−rssCallback
156− = lens _rssCallback (\ s a -> s{_rssCallback = a})
157−
158−instance GoogleRequest ReadgroupsetsSearch where
159− type Rs ReadgroupsetsSearch =
160− SearchReadGroupSetsResponse
161− requestClient ReadgroupsetsSearch{..}
162− = go _rssXgafv _rssUploadProtocol (Just _rssPp)
163− _rssAccessToken
164− _rssUploadType
165− _rssBearerToken
166− _rssCallback
167− (Just AltJSON)
168− _rssPayload
169− genomicsService
170− where go
171− = buildClient
172− (Proxy :: Proxy ReadgroupsetsSearchResource)
173− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/References/Get.hs+63−67
@@ -34,14 +34,14 @@ module Network.Google.Resource.Genomics.References.Get
3434 , ReferencesGet
3535
3636 -- * Request Lenses
37− , refXgafv
38− , refUploadProtocol
39− , refPp
40− , refAccessToken
41− , refUploadType
42− , refReferenceId
43− , refBearerToken
44− , refCallback
37+ , rXgafv
38+ , rUploadProtocol
39+ , rPp
40+ , rAccessToken
41+ , rUploadType
42+ , rReferenceId
43+ , rBearerToken
44+ , rCallback
4545 ) where
4646
4747import Network.Google.Genomics.Types
@@ -67,102 +67,98 @@ type ReferencesGetResource =
6767--
6868-- /See:/ 'referencesGet' smart constructor.
6969data ReferencesGet = ReferencesGet
70− { _refXgafv :: !(Maybe Text)
71− , _refUploadProtocol :: !(Maybe Text)
72− , _refPp :: !Bool
73− , _refAccessToken :: !(Maybe Text)
74− , _refUploadType :: !(Maybe Text)
75− , _refReferenceId :: !Text
76− , _refBearerToken :: !(Maybe Text)
77− , _refCallback :: !(Maybe Text)
70+ { _rXgafv :: !(Maybe Text)
71+ , _rUploadProtocol :: !(Maybe Text)
72+ , _rPp :: !Bool
73+ , _rAccessToken :: !(Maybe Text)
74+ , _rUploadType :: !(Maybe Text)
75+ , _rReferenceId :: !Text
76+ , _rBearerToken :: !(Maybe Text)
77+ , _rCallback :: !(Maybe Text)
7878 } deriving (Eq,Show,Data,Typeable,Generic)
7979
8080-- | Creates a value of 'ReferencesGet' with the minimum fields required to make a request.
8181--
8282-- Use one of the following lenses to modify other fields as desired:
8383--
84−-- * 'refXgafv'
84+-- * 'rXgafv'
8585--
86−-- * 'refUploadProtocol'
86+-- * 'rUploadProtocol'
8787--
88−-- * 'refPp'
88+-- * 'rPp'
8989--
90−-- * 'refAccessToken'
90+-- * 'rAccessToken'
9191--
92−-- * 'refUploadType'
92+-- * 'rUploadType'
9393--
94−-- * 'refReferenceId'
94+-- * 'rReferenceId'
9595--
96−-- * 'refBearerToken'
96+-- * 'rBearerToken'
9797--
98−-- * 'refCallback'
98+-- * 'rCallback'
9999referencesGet
100− :: Text -- ^ 'refReferenceId'
100+ :: Text -- ^ 'rReferenceId'
101101 -> ReferencesGet
102−referencesGet pRefReferenceId_ =
102+referencesGet pRReferenceId_ =
103103 ReferencesGet
104− { _refXgafv = Nothing
105− , _refUploadProtocol = Nothing
106− , _refPp = True
107− , _refAccessToken = Nothing
108− , _refUploadType = Nothing
109− , _refReferenceId = pRefReferenceId_
110− , _refBearerToken = Nothing
111− , _refCallback = Nothing
104+ { _rXgafv = Nothing
105+ , _rUploadProtocol = Nothing
106+ , _rPp = True
107+ , _rAccessToken = Nothing
108+ , _rUploadType = Nothing
109+ , _rReferenceId = pRReferenceId_
110+ , _rBearerToken = Nothing
111+ , _rCallback = Nothing
112112 }
113113
114114-- | V1 error format.
115−refXgafv :: Lens' ReferencesGet (Maybe Text)
116−refXgafv = lens _refXgafv (\ s a -> s{_refXgafv = a})
115+rXgafv :: Lens' ReferencesGet (Maybe Text)
116+rXgafv = lens _rXgafv (\ s a -> s{_rXgafv = a})
117117
118118-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
119−refUploadProtocol :: Lens' ReferencesGet (Maybe Text)
120−refUploadProtocol
121− = lens _refUploadProtocol
122− (\ s a -> s{_refUploadProtocol = a})
119+rUploadProtocol :: Lens' ReferencesGet (Maybe Text)
120+rUploadProtocol
121+ = lens _rUploadProtocol
122+ (\ s a -> s{_rUploadProtocol = a})
123123
124124-- | Pretty-print response.
125−refPp :: Lens' ReferencesGet Bool
126−refPp = lens _refPp (\ s a -> s{_refPp = a})
125+rPp :: Lens' ReferencesGet Bool
126+rPp = lens _rPp (\ s a -> s{_rPp = a})
127127
128128-- | OAuth access token.
129−refAccessToken :: Lens' ReferencesGet (Maybe Text)
130−refAccessToken
131− = lens _refAccessToken
132− (\ s a -> s{_refAccessToken = a})
129+rAccessToken :: Lens' ReferencesGet (Maybe Text)
130+rAccessToken
131+ = lens _rAccessToken (\ s a -> s{_rAccessToken = a})
133132
134133-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
135−refUploadType :: Lens' ReferencesGet (Maybe Text)
136−refUploadType
137− = lens _refUploadType
138− (\ s a -> s{_refUploadType = a})
134+rUploadType :: Lens' ReferencesGet (Maybe Text)
135+rUploadType
136+ = lens _rUploadType (\ s a -> s{_rUploadType = a})
139137
140138-- | The ID of the reference.
141−refReferenceId :: Lens' ReferencesGet Text
142−refReferenceId
143− = lens _refReferenceId
144− (\ s a -> s{_refReferenceId = a})
139+rReferenceId :: Lens' ReferencesGet Text
140+rReferenceId
141+ = lens _rReferenceId (\ s a -> s{_rReferenceId = a})
145142
146143-- | OAuth bearer token.
147−refBearerToken :: Lens' ReferencesGet (Maybe Text)
148−refBearerToken
149− = lens _refBearerToken
150− (\ s a -> s{_refBearerToken = a})
144+rBearerToken :: Lens' ReferencesGet (Maybe Text)
145+rBearerToken
146+ = lens _rBearerToken (\ s a -> s{_rBearerToken = a})
151147
152148-- | JSONP
153−refCallback :: Lens' ReferencesGet (Maybe Text)
154−refCallback
155− = lens _refCallback (\ s a -> s{_refCallback = a})
149+rCallback :: Lens' ReferencesGet (Maybe Text)
150+rCallback
151+ = lens _rCallback (\ s a -> s{_rCallback = a})
156152
157153instance GoogleRequest ReferencesGet where
158154 type Rs ReferencesGet = Reference
159155 requestClient ReferencesGet{..}
160− = go _refReferenceId _refXgafv _refUploadProtocol
161− (Just _refPp)
162− _refAccessToken
163− _refUploadType
164− _refBearerToken
165− _refCallback
156+ = go _rReferenceId _rXgafv _rUploadProtocol
157+ (Just _rPp)
158+ _rAccessToken
159+ _rUploadType
160+ _rBearerToken
161+ _rCallback
166162 (Just AltJSON)
167163 genomicsService
168164 where go
gogol-genomics/gen/Network/Google/Resource/Genomics/References/Search.hs+66−65
@@ -34,14 +34,14 @@ module Network.Google.Resource.Genomics.References.Search
3434 , ReferencesSearch
3535
3636 -- * Request Lenses
37− , rrXgafv
38− , rrUploadProtocol
39− , rrPp
40− , rrAccessToken
41− , rrUploadType
42− , rrPayload
43− , rrBearerToken
44− , rrCallback
37+ , refXgafv
38+ , refUploadProtocol
39+ , refPp
40+ , refAccessToken
41+ , refUploadType
42+ , refPayload
43+ , refBearerToken
44+ , refCallback
4545 ) where
4646
4747import Network.Google.Genomics.Types
@@ -69,101 +69,102 @@ type ReferencesSearchResource =
6969--
7070-- /See:/ 'referencesSearch' smart constructor.
7171data ReferencesSearch = ReferencesSearch
72− { _rrXgafv :: !(Maybe Text)
73− , _rrUploadProtocol :: !(Maybe Text)
74− , _rrPp :: !Bool
75− , _rrAccessToken :: !(Maybe Text)
76− , _rrUploadType :: !(Maybe Text)
77− , _rrPayload :: !SearchReferencesRequest
78− , _rrBearerToken :: !(Maybe Text)
79− , _rrCallback :: !(Maybe Text)
72+ { _refXgafv :: !(Maybe Text)
73+ , _refUploadProtocol :: !(Maybe Text)
74+ , _refPp :: !Bool
75+ , _refAccessToken :: !(Maybe Text)
76+ , _refUploadType :: !(Maybe Text)
77+ , _refPayload :: !SearchReferencesRequest
78+ , _refBearerToken :: !(Maybe Text)
79+ , _refCallback :: !(Maybe Text)
8080 } deriving (Eq,Show,Data,Typeable,Generic)
8181
8282-- | Creates a value of 'ReferencesSearch' with the minimum fields required to make a request.
8383--
8484-- Use one of the following lenses to modify other fields as desired:
8585--
86−-- * 'rrXgafv'
86+-- * 'refXgafv'
8787--
88−-- * 'rrUploadProtocol'
88+-- * 'refUploadProtocol'
8989--
90−-- * 'rrPp'
90+-- * 'refPp'
9191--
92−-- * 'rrAccessToken'
92+-- * 'refAccessToken'
9393--
94−-- * 'rrUploadType'
94+-- * 'refUploadType'
9595--
96−-- * 'rrPayload'
96+-- * 'refPayload'
9797--
98−-- * 'rrBearerToken'
98+-- * 'refBearerToken'
9999--
100−-- * 'rrCallback'
100+-- * 'refCallback'
101101referencesSearch
102− :: SearchReferencesRequest -- ^ 'rrPayload'
102+ :: SearchReferencesRequest -- ^ 'refPayload'
103103 -> ReferencesSearch
104−referencesSearch pRrPayload_ =
104+referencesSearch pRefPayload_ =
105105 ReferencesSearch
106− { _rrXgafv = Nothing
107− , _rrUploadProtocol = Nothing
108− , _rrPp = True
109− , _rrAccessToken = Nothing
110− , _rrUploadType = Nothing
111− , _rrPayload = pRrPayload_
112− , _rrBearerToken = Nothing
113− , _rrCallback = Nothing
106+ { _refXgafv = Nothing
107+ , _refUploadProtocol = Nothing
108+ , _refPp = True
109+ , _refAccessToken = Nothing
110+ , _refUploadType = Nothing
111+ , _refPayload = pRefPayload_
112+ , _refBearerToken = Nothing
113+ , _refCallback = Nothing
114114 }
115115
116116-- | V1 error format.
117−rrXgafv :: Lens' ReferencesSearch (Maybe Text)
118−rrXgafv = lens _rrXgafv (\ s a -> s{_rrXgafv = a})
117+refXgafv :: Lens' ReferencesSearch (Maybe Text)
118+refXgafv = lens _refXgafv (\ s a -> s{_refXgafv = a})
119119
120120-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121−rrUploadProtocol :: Lens' ReferencesSearch (Maybe Text)
122−rrUploadProtocol
123− = lens _rrUploadProtocol
124− (\ s a -> s{_rrUploadProtocol = a})
121+refUploadProtocol :: Lens' ReferencesSearch (Maybe Text)
122+refUploadProtocol
123+ = lens _refUploadProtocol
124+ (\ s a -> s{_refUploadProtocol = a})
125125
126126-- | Pretty-print response.
127−rrPp :: Lens' ReferencesSearch Bool
128−rrPp = lens _rrPp (\ s a -> s{_rrPp = a})
127+refPp :: Lens' ReferencesSearch Bool
128+refPp = lens _refPp (\ s a -> s{_refPp = a})
129129
130130-- | OAuth access token.
131−rrAccessToken :: Lens' ReferencesSearch (Maybe Text)
132−rrAccessToken
133− = lens _rrAccessToken
134− (\ s a -> s{_rrAccessToken = a})
131+refAccessToken :: Lens' ReferencesSearch (Maybe Text)
132+refAccessToken
133+ = lens _refAccessToken
134+ (\ s a -> s{_refAccessToken = a})
135135
136136-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137−rrUploadType :: Lens' ReferencesSearch (Maybe Text)
138−rrUploadType
139− = lens _rrUploadType (\ s a -> s{_rrUploadType = a})
137+refUploadType :: Lens' ReferencesSearch (Maybe Text)
138+refUploadType
139+ = lens _refUploadType
140+ (\ s a -> s{_refUploadType = a})
140141
141142-- | Multipart request metadata.
142−rrPayload :: Lens' ReferencesSearch SearchReferencesRequest
143−rrPayload
144− = lens _rrPayload (\ s a -> s{_rrPayload = a})
143+refPayload :: Lens' ReferencesSearch SearchReferencesRequest
144+refPayload
145+ = lens _refPayload (\ s a -> s{_refPayload = a})
145146
146147-- | OAuth bearer token.
147−rrBearerToken :: Lens' ReferencesSearch (Maybe Text)
148−rrBearerToken
149− = lens _rrBearerToken
150− (\ s a -> s{_rrBearerToken = a})
148+refBearerToken :: Lens' ReferencesSearch (Maybe Text)
149+refBearerToken
150+ = lens _refBearerToken
151+ (\ s a -> s{_refBearerToken = a})
151152
152153-- | JSONP
153−rrCallback :: Lens' ReferencesSearch (Maybe Text)
154−rrCallback
155− = lens _rrCallback (\ s a -> s{_rrCallback = a})
154+refCallback :: Lens' ReferencesSearch (Maybe Text)
155+refCallback
156+ = lens _refCallback (\ s a -> s{_refCallback = a})
156157
157158instance GoogleRequest ReferencesSearch where
158159 type Rs ReferencesSearch = SearchReferencesResponse
159160 requestClient ReferencesSearch{..}
160− = go _rrXgafv _rrUploadProtocol (Just _rrPp)
161− _rrAccessToken
162− _rrUploadType
163− _rrBearerToken
164− _rrCallback
161+ = go _refXgafv _refUploadProtocol (Just _refPp)
162+ _refAccessToken
163+ _refUploadType
164+ _refBearerToken
165+ _refCallback
165166 (Just AltJSON)
166− _rrPayload
167+ _refPayload
167168 genomicsService
168169 where go
169170 = buildClient
gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Create.hsnew file+172
@@ -0,0 +1,172 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Create
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Creates a new variant set. The provided variant set must have a valid
24+-- \`datasetId\` set - all other fields are optional. Note that the \`id\`
25+-- field will be ignored, as this is assigned by the server.
26+--
27+-- /See:/ < Genomics API Reference> for @genomics.variantsets.create@.
28+module Network.Google.Resource.Genomics.VariantSets.Create
29+ (
30+ -- * REST Resource
31+ VariantSetsCreateResource
32+
33+ -- * Creating a Request
34+ , variantSetsCreate
35+ , VariantSetsCreate
36+
37+ -- * Request Lenses
38+ , vscXgafv
39+ , vscUploadProtocol
40+ , vscPp
41+ , vscAccessToken
42+ , vscUploadType
43+ , vscPayload
44+ , vscBearerToken
45+ , vscCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.variantsets.create@ method which the
52+-- 'VariantSetsCreate' request conforms to.
53+type VariantSetsCreateResource =
54+ "v1" :>
55+ "variantsets" :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] VariantSet :> Post '[JSON] VariantSet
65+
66+-- | Creates a new variant set. The provided variant set must have a valid
67+-- \`datasetId\` set - all other fields are optional. Note that the \`id\`
68+-- field will be ignored, as this is assigned by the server.
69+--
70+-- /See:/ 'variantSetsCreate' smart constructor.
71+data VariantSetsCreate = VariantSetsCreate
72+ { _vscXgafv :: !(Maybe Text)
73+ , _vscUploadProtocol :: !(Maybe Text)
74+ , _vscPp :: !Bool
75+ , _vscAccessToken :: !(Maybe Text)
76+ , _vscUploadType :: !(Maybe Text)
77+ , _vscPayload :: !VariantSet
78+ , _vscBearerToken :: !(Maybe Text)
79+ , _vscCallback :: !(Maybe Text)
80+ } deriving (Eq,Show,Data,Typeable,Generic)
81+
82+-- | Creates a value of 'VariantSetsCreate' with the minimum fields required to make a request.
83+--
84+-- Use one of the following lenses to modify other fields as desired:
85+--
86+-- * 'vscXgafv'
87+--
88+-- * 'vscUploadProtocol'
89+--
90+-- * 'vscPp'
91+--
92+-- * 'vscAccessToken'
93+--
94+-- * 'vscUploadType'
95+--
96+-- * 'vscPayload'
97+--
98+-- * 'vscBearerToken'
99+--
100+-- * 'vscCallback'
101+variantSetsCreate
102+ :: VariantSet -- ^ 'vscPayload'
103+ -> VariantSetsCreate
104+variantSetsCreate pVscPayload_ =
105+ VariantSetsCreate
106+ { _vscXgafv = Nothing
107+ , _vscUploadProtocol = Nothing
108+ , _vscPp = True
109+ , _vscAccessToken = Nothing
110+ , _vscUploadType = Nothing
111+ , _vscPayload = pVscPayload_
112+ , _vscBearerToken = Nothing
113+ , _vscCallback = Nothing
114+ }
115+
116+-- | V1 error format.
117+vscXgafv :: Lens' VariantSetsCreate (Maybe Text)
118+vscXgafv = lens _vscXgafv (\ s a -> s{_vscXgafv = a})
119+
120+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121+vscUploadProtocol :: Lens' VariantSetsCreate (Maybe Text)
122+vscUploadProtocol
123+ = lens _vscUploadProtocol
124+ (\ s a -> s{_vscUploadProtocol = a})
125+
126+-- | Pretty-print response.
127+vscPp :: Lens' VariantSetsCreate Bool
128+vscPp = lens _vscPp (\ s a -> s{_vscPp = a})
129+
130+-- | OAuth access token.
131+vscAccessToken :: Lens' VariantSetsCreate (Maybe Text)
132+vscAccessToken
133+ = lens _vscAccessToken
134+ (\ s a -> s{_vscAccessToken = a})
135+
136+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137+vscUploadType :: Lens' VariantSetsCreate (Maybe Text)
138+vscUploadType
139+ = lens _vscUploadType
140+ (\ s a -> s{_vscUploadType = a})
141+
142+-- | Multipart request metadata.
143+vscPayload :: Lens' VariantSetsCreate VariantSet
144+vscPayload
145+ = lens _vscPayload (\ s a -> s{_vscPayload = a})
146+
147+-- | OAuth bearer token.
148+vscBearerToken :: Lens' VariantSetsCreate (Maybe Text)
149+vscBearerToken
150+ = lens _vscBearerToken
151+ (\ s a -> s{_vscBearerToken = a})
152+
153+-- | JSONP
154+vscCallback :: Lens' VariantSetsCreate (Maybe Text)
155+vscCallback
156+ = lens _vscCallback (\ s a -> s{_vscCallback = a})
157+
158+instance GoogleRequest VariantSetsCreate where
159+ type Rs VariantSetsCreate = VariantSet
160+ requestClient VariantSetsCreate{..}
161+ = go _vscXgafv _vscUploadProtocol (Just _vscPp)
162+ _vscAccessToken
163+ _vscUploadType
164+ _vscBearerToken
165+ _vscCallback
166+ (Just AltJSON)
167+ _vscPayload
168+ genomicsService
169+ where go
170+ = buildClient
171+ (Proxy :: Proxy VariantSetsCreateResource)
172+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Delete.hsnew file+171
@@ -0,0 +1,171 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Delete
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Deletes the contents of a variant set. The variant set object is not
24+-- deleted.
25+--
26+-- /See:/ < Genomics API Reference> for @genomics.variantsets.delete@.
27+module Network.Google.Resource.Genomics.VariantSets.Delete
28+ (
29+ -- * REST Resource
30+ VariantSetsDeleteResource
31+
32+ -- * Creating a Request
33+ , variantSetsDelete
34+ , VariantSetsDelete
35+
36+ -- * Request Lenses
37+ , vsdXgafv
38+ , vsdUploadProtocol
39+ , vsdPp
40+ , vsdVariantSetId
41+ , vsdAccessToken
42+ , vsdUploadType
43+ , vsdBearerToken
44+ , vsdCallback
45+ ) where
46+
47+import Network.Google.Genomics.Types
48+import Network.Google.Prelude
49+
50+-- | A resource alias for @genomics.variantsets.delete@ method which the
51+-- 'VariantSetsDelete' request conforms to.
52+type VariantSetsDeleteResource =
53+ "v1" :>
54+ "variantsets" :>
55+ Capture "variantSetId" Text :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty
64+
65+-- | Deletes the contents of a variant set. The variant set object is not
66+-- deleted.
67+--
68+-- /See:/ 'variantSetsDelete' smart constructor.
69+data VariantSetsDelete = VariantSetsDelete
70+ { _vsdXgafv :: !(Maybe Text)
71+ , _vsdUploadProtocol :: !(Maybe Text)
72+ , _vsdPp :: !Bool
73+ , _vsdVariantSetId :: !Text
74+ , _vsdAccessToken :: !(Maybe Text)
75+ , _vsdUploadType :: !(Maybe Text)
76+ , _vsdBearerToken :: !(Maybe Text)
77+ , _vsdCallback :: !(Maybe Text)
78+ } deriving (Eq,Show,Data,Typeable,Generic)
79+
80+-- | Creates a value of 'VariantSetsDelete' with the minimum fields required to make a request.
81+--
82+-- Use one of the following lenses to modify other fields as desired:
83+--
84+-- * 'vsdXgafv'
85+--
86+-- * 'vsdUploadProtocol'
87+--
88+-- * 'vsdPp'
89+--
90+-- * 'vsdVariantSetId'
91+--
92+-- * 'vsdAccessToken'
93+--
94+-- * 'vsdUploadType'
95+--
96+-- * 'vsdBearerToken'
97+--
98+-- * 'vsdCallback'
99+variantSetsDelete
100+ :: Text -- ^ 'vsdVariantSetId'
101+ -> VariantSetsDelete
102+variantSetsDelete pVsdVariantSetId_ =
103+ VariantSetsDelete
104+ { _vsdXgafv = Nothing
105+ , _vsdUploadProtocol = Nothing
106+ , _vsdPp = True
107+ , _vsdVariantSetId = pVsdVariantSetId_
108+ , _vsdAccessToken = Nothing
109+ , _vsdUploadType = Nothing
110+ , _vsdBearerToken = Nothing
111+ , _vsdCallback = Nothing
112+ }
113+
114+-- | V1 error format.
115+vsdXgafv :: Lens' VariantSetsDelete (Maybe Text)
116+vsdXgafv = lens _vsdXgafv (\ s a -> s{_vsdXgafv = a})
117+
118+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
119+vsdUploadProtocol :: Lens' VariantSetsDelete (Maybe Text)
120+vsdUploadProtocol
121+ = lens _vsdUploadProtocol
122+ (\ s a -> s{_vsdUploadProtocol = a})
123+
124+-- | Pretty-print response.
125+vsdPp :: Lens' VariantSetsDelete Bool
126+vsdPp = lens _vsdPp (\ s a -> s{_vsdPp = a})
127+
128+-- | The ID of the variant set to be deleted.
129+vsdVariantSetId :: Lens' VariantSetsDelete Text
130+vsdVariantSetId
131+ = lens _vsdVariantSetId
132+ (\ s a -> s{_vsdVariantSetId = a})
133+
134+-- | OAuth access token.
135+vsdAccessToken :: Lens' VariantSetsDelete (Maybe Text)
136+vsdAccessToken
137+ = lens _vsdAccessToken
138+ (\ s a -> s{_vsdAccessToken = a})
139+
140+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
141+vsdUploadType :: Lens' VariantSetsDelete (Maybe Text)
142+vsdUploadType
143+ = lens _vsdUploadType
144+ (\ s a -> s{_vsdUploadType = a})
145+
146+-- | OAuth bearer token.
147+vsdBearerToken :: Lens' VariantSetsDelete (Maybe Text)
148+vsdBearerToken
149+ = lens _vsdBearerToken
150+ (\ s a -> s{_vsdBearerToken = a})
151+
152+-- | JSONP
153+vsdCallback :: Lens' VariantSetsDelete (Maybe Text)
154+vsdCallback
155+ = lens _vsdCallback (\ s a -> s{_vsdCallback = a})
156+
157+instance GoogleRequest VariantSetsDelete where
158+ type Rs VariantSetsDelete = Empty
159+ requestClient VariantSetsDelete{..}
160+ = go _vsdVariantSetId _vsdXgafv _vsdUploadProtocol
161+ (Just _vsdPp)
162+ _vsdAccessToken
163+ _vsdUploadType
164+ _vsdBearerToken
165+ _vsdCallback
166+ (Just AltJSON)
167+ genomicsService
168+ where go
169+ = buildClient
170+ (Proxy :: Proxy VariantSetsDeleteResource)
171+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Export.hsnew file+185
@@ -0,0 +1,185 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Export
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Exports variant set data to an external destination.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.variantsets.export@.
26+module Network.Google.Resource.Genomics.VariantSets.Export
27+ (
28+ -- * REST Resource
29+ VariantSetsExportResource
30+
31+ -- * Creating a Request
32+ , variantSetsExport
33+ , VariantSetsExport
34+
35+ -- * Request Lenses
36+ , vseXgafv
37+ , vseUploadProtocol
38+ , vsePp
39+ , vseVariantSetId
40+ , vseAccessToken
41+ , vseUploadType
42+ , vsePayload
43+ , vseBearerToken
44+ , vseCallback
45+ ) where
46+
47+import Network.Google.Genomics.Types
48+import Network.Google.Prelude
49+
50+-- | A resource alias for @genomics.variantsets.export@ method which the
51+-- 'VariantSetsExport' request conforms to.
52+type VariantSetsExportResource =
53+ "v1" :>
54+ "variantsets" :>
55+ CaptureMode "variantSetId" "export" Text :>
56+ QueryParam "$.xgafv" Text :>
57+ QueryParam "upload_protocol" Text :>
58+ QueryParam "pp" Bool :>
59+ QueryParam "access_token" Text :>
60+ QueryParam "uploadType" Text :>
61+ QueryParam "bearer_token" Text :>
62+ QueryParam "callback" Text :>
63+ QueryParam "alt" AltJSON :>
64+ ReqBody '[JSON] ExportVariantSetRequest :>
65+ Post '[JSON] Operation
66+
67+-- | Exports variant set data to an external destination.
68+--
69+-- /See:/ 'variantSetsExport' smart constructor.
70+data VariantSetsExport = VariantSetsExport
71+ { _vseXgafv :: !(Maybe Text)
72+ , _vseUploadProtocol :: !(Maybe Text)
73+ , _vsePp :: !Bool
74+ , _vseVariantSetId :: !Text
75+ , _vseAccessToken :: !(Maybe Text)
76+ , _vseUploadType :: !(Maybe Text)
77+ , _vsePayload :: !ExportVariantSetRequest
78+ , _vseBearerToken :: !(Maybe Text)
79+ , _vseCallback :: !(Maybe Text)
80+ } deriving (Eq,Show,Data,Typeable,Generic)
81+
82+-- | Creates a value of 'VariantSetsExport' with the minimum fields required to make a request.
83+--
84+-- Use one of the following lenses to modify other fields as desired:
85+--
86+-- * 'vseXgafv'
87+--
88+-- * 'vseUploadProtocol'
89+--
90+-- * 'vsePp'
91+--
92+-- * 'vseVariantSetId'
93+--
94+-- * 'vseAccessToken'
95+--
96+-- * 'vseUploadType'
97+--
98+-- * 'vsePayload'
99+--
100+-- * 'vseBearerToken'
101+--
102+-- * 'vseCallback'
103+variantSetsExport
104+ :: Text -- ^ 'vseVariantSetId'
105+ -> ExportVariantSetRequest -- ^ 'vsePayload'
106+ -> VariantSetsExport
107+variantSetsExport pVseVariantSetId_ pVsePayload_ =
108+ VariantSetsExport
109+ { _vseXgafv = Nothing
110+ , _vseUploadProtocol = Nothing
111+ , _vsePp = True
112+ , _vseVariantSetId = pVseVariantSetId_
113+ , _vseAccessToken = Nothing
114+ , _vseUploadType = Nothing
115+ , _vsePayload = pVsePayload_
116+ , _vseBearerToken = Nothing
117+ , _vseCallback = Nothing
118+ }
119+
120+-- | V1 error format.
121+vseXgafv :: Lens' VariantSetsExport (Maybe Text)
122+vseXgafv = lens _vseXgafv (\ s a -> s{_vseXgafv = a})
123+
124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
125+vseUploadProtocol :: Lens' VariantSetsExport (Maybe Text)
126+vseUploadProtocol
127+ = lens _vseUploadProtocol
128+ (\ s a -> s{_vseUploadProtocol = a})
129+
130+-- | Pretty-print response.
131+vsePp :: Lens' VariantSetsExport Bool
132+vsePp = lens _vsePp (\ s a -> s{_vsePp = a})
133+
134+-- | Required. The ID of the variant set that contains variant data which
135+-- should be exported. The caller must have READ access to this variant
136+-- set.
137+vseVariantSetId :: Lens' VariantSetsExport Text
138+vseVariantSetId
139+ = lens _vseVariantSetId
140+ (\ s a -> s{_vseVariantSetId = a})
141+
142+-- | OAuth access token.
143+vseAccessToken :: Lens' VariantSetsExport (Maybe Text)
144+vseAccessToken
145+ = lens _vseAccessToken
146+ (\ s a -> s{_vseAccessToken = a})
147+
148+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
149+vseUploadType :: Lens' VariantSetsExport (Maybe Text)
150+vseUploadType
151+ = lens _vseUploadType
152+ (\ s a -> s{_vseUploadType = a})
153+
154+-- | Multipart request metadata.
155+vsePayload :: Lens' VariantSetsExport ExportVariantSetRequest
156+vsePayload
157+ = lens _vsePayload (\ s a -> s{_vsePayload = a})
158+
159+-- | OAuth bearer token.
160+vseBearerToken :: Lens' VariantSetsExport (Maybe Text)
161+vseBearerToken
162+ = lens _vseBearerToken
163+ (\ s a -> s{_vseBearerToken = a})
164+
165+-- | JSONP
166+vseCallback :: Lens' VariantSetsExport (Maybe Text)
167+vseCallback
168+ = lens _vseCallback (\ s a -> s{_vseCallback = a})
169+
170+instance GoogleRequest VariantSetsExport where
171+ type Rs VariantSetsExport = Operation
172+ requestClient VariantSetsExport{..}
173+ = go _vseVariantSetId _vseXgafv _vseUploadProtocol
174+ (Just _vsePp)
175+ _vseAccessToken
176+ _vseUploadType
177+ _vseBearerToken
178+ _vseCallback
179+ (Just AltJSON)
180+ _vsePayload
181+ genomicsService
182+ where go
183+ = buildClient
184+ (Proxy :: Proxy VariantSetsExportResource)
185+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Get.hsnew file+168
@@ -0,0 +1,168 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Get
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Gets a variant set by ID.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.variantsets.get@.
26+module Network.Google.Resource.Genomics.VariantSets.Get
27+ (
28+ -- * REST Resource
29+ VariantSetsGetResource
30+
31+ -- * Creating a Request
32+ , variantSetsGet
33+ , VariantSetsGet
34+
35+ -- * Request Lenses
36+ , vsgXgafv
37+ , vsgUploadProtocol
38+ , vsgPp
39+ , vsgVariantSetId
40+ , vsgAccessToken
41+ , vsgUploadType
42+ , vsgBearerToken
43+ , vsgCallback
44+ ) where
45+
46+import Network.Google.Genomics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @genomics.variantsets.get@ method which the
50+-- 'VariantSetsGet' request conforms to.
51+type VariantSetsGetResource =
52+ "v1" :>
53+ "variantsets" :>
54+ Capture "variantSetId" Text :>
55+ QueryParam "$.xgafv" Text :>
56+ QueryParam "upload_protocol" Text :>
57+ QueryParam "pp" Bool :>
58+ QueryParam "access_token" Text :>
59+ QueryParam "uploadType" Text :>
60+ QueryParam "bearer_token" Text :>
61+ QueryParam "callback" Text :>
62+ QueryParam "alt" AltJSON :> Get '[JSON] VariantSet
63+
64+-- | Gets a variant set by ID.
65+--
66+-- /See:/ 'variantSetsGet' smart constructor.
67+data VariantSetsGet = VariantSetsGet
68+ { _vsgXgafv :: !(Maybe Text)
69+ , _vsgUploadProtocol :: !(Maybe Text)
70+ , _vsgPp :: !Bool
71+ , _vsgVariantSetId :: !Text
72+ , _vsgAccessToken :: !(Maybe Text)
73+ , _vsgUploadType :: !(Maybe Text)
74+ , _vsgBearerToken :: !(Maybe Text)
75+ , _vsgCallback :: !(Maybe Text)
76+ } deriving (Eq,Show,Data,Typeable,Generic)
77+
78+-- | Creates a value of 'VariantSetsGet' with the minimum fields required to make a request.
79+--
80+-- Use one of the following lenses to modify other fields as desired:
81+--
82+-- * 'vsgXgafv'
83+--
84+-- * 'vsgUploadProtocol'
85+--
86+-- * 'vsgPp'
87+--
88+-- * 'vsgVariantSetId'
89+--
90+-- * 'vsgAccessToken'
91+--
92+-- * 'vsgUploadType'
93+--
94+-- * 'vsgBearerToken'
95+--
96+-- * 'vsgCallback'
97+variantSetsGet
98+ :: Text -- ^ 'vsgVariantSetId'
99+ -> VariantSetsGet
100+variantSetsGet pVsgVariantSetId_ =
101+ VariantSetsGet
102+ { _vsgXgafv = Nothing
103+ , _vsgUploadProtocol = Nothing
104+ , _vsgPp = True
105+ , _vsgVariantSetId = pVsgVariantSetId_
106+ , _vsgAccessToken = Nothing
107+ , _vsgUploadType = Nothing
108+ , _vsgBearerToken = Nothing
109+ , _vsgCallback = Nothing
110+ }
111+
112+-- | V1 error format.
113+vsgXgafv :: Lens' VariantSetsGet (Maybe Text)
114+vsgXgafv = lens _vsgXgafv (\ s a -> s{_vsgXgafv = a})
115+
116+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117+vsgUploadProtocol :: Lens' VariantSetsGet (Maybe Text)
118+vsgUploadProtocol
119+ = lens _vsgUploadProtocol
120+ (\ s a -> s{_vsgUploadProtocol = a})
121+
122+-- | Pretty-print response.
123+vsgPp :: Lens' VariantSetsGet Bool
124+vsgPp = lens _vsgPp (\ s a -> s{_vsgPp = a})
125+
126+-- | Required. The ID of the variant set.
127+vsgVariantSetId :: Lens' VariantSetsGet Text
128+vsgVariantSetId
129+ = lens _vsgVariantSetId
130+ (\ s a -> s{_vsgVariantSetId = a})
131+
132+-- | OAuth access token.
133+vsgAccessToken :: Lens' VariantSetsGet (Maybe Text)
134+vsgAccessToken
135+ = lens _vsgAccessToken
136+ (\ s a -> s{_vsgAccessToken = a})
137+
138+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
139+vsgUploadType :: Lens' VariantSetsGet (Maybe Text)
140+vsgUploadType
141+ = lens _vsgUploadType
142+ (\ s a -> s{_vsgUploadType = a})
143+
144+-- | OAuth bearer token.
145+vsgBearerToken :: Lens' VariantSetsGet (Maybe Text)
146+vsgBearerToken
147+ = lens _vsgBearerToken
148+ (\ s a -> s{_vsgBearerToken = a})
149+
150+-- | JSONP
151+vsgCallback :: Lens' VariantSetsGet (Maybe Text)
152+vsgCallback
153+ = lens _vsgCallback (\ s a -> s{_vsgCallback = a})
154+
155+instance GoogleRequest VariantSetsGet where
156+ type Rs VariantSetsGet = VariantSet
157+ requestClient VariantSetsGet{..}
158+ = go _vsgVariantSetId _vsgXgafv _vsgUploadProtocol
159+ (Just _vsgPp)
160+ _vsgAccessToken
161+ _vsgUploadType
162+ _vsgBearerToken
163+ _vsgCallback
164+ (Just AltJSON)
165+ genomicsService
166+ where go
167+ = buildClient (Proxy :: Proxy VariantSetsGetResource)
168+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Patch.hsnew file+198
@@ -0,0 +1,198 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE OverloadedStrings #-}
7+{-# LANGUAGE RecordWildCards #-}
8+{-# LANGUAGE TypeFamilies #-}
9+{-# LANGUAGE TypeOperators #-}
10+
11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14+
15+-- |
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Patch
17+-- Copyright : (c) 2015 Brendan Hay
18+-- License : Mozilla Public License, v. 2.0.
19+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20+-- Stability : auto-generated
21+-- Portability : non-portable (GHC extensions)
22+--
23+-- Updates a variant set. This method supports patch semantics.
24+--
25+-- /See:/ < Genomics API Reference> for @genomics.variantsets.patch@.
26+module Network.Google.Resource.Genomics.VariantSets.Patch
27+ (
28+ -- * REST Resource
29+ VariantSetsPatchResource
30+
31+ -- * Creating a Request
32+ , variantSetsPatch
33+ , VariantSetsPatch
34+
35+ -- * Request Lenses
36+ , vspXgafv
37+ , vspUploadProtocol
38+ , vspUpdateMask
39+ , vspPp
40+ , vspVariantSetId
41+ , vspAccessToken
42+ , vspUploadType
43+ , vspPayload
44+ , vspBearerToken
45+ , vspCallback
46+ ) where
47+
48+import Network.Google.Genomics.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @genomics.variantsets.patch@ method which the
52+-- 'VariantSetsPatch' request conforms to.
53+type VariantSetsPatchResource =
54+ "v1" :>
55+ "variantsets" :>
56+ Capture "variantSetId" Text :>
57+ QueryParam "$.xgafv" Text :>
58+ QueryParam "upload_protocol" Text :>
59+ QueryParam "updateMask" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] VariantSet :>
67+ Patch '[JSON] VariantSet
68+
69+-- | Updates a variant set. This method supports patch semantics.
70+--
71+-- /See:/ 'variantSetsPatch' smart constructor.
72+data VariantSetsPatch = VariantSetsPatch
73+ { _vspXgafv :: !(Maybe Text)
74+ , _vspUploadProtocol :: !(Maybe Text)
75+ , _vspUpdateMask :: !(Maybe Text)
76+ , _vspPp :: !Bool
77+ , _vspVariantSetId :: !Text
78+ , _vspAccessToken :: !(Maybe Text)
79+ , _vspUploadType :: !(Maybe Text)
80+ , _vspPayload :: !VariantSet
81+ , _vspBearerToken :: !(Maybe Text)
82+ , _vspCallback :: !(Maybe Text)
83+ } deriving (Eq,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'VariantSetsPatch' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'vspXgafv'
90+--
91+-- * 'vspUploadProtocol'
92+--
93+-- * 'vspUpdateMask'
94+--
95+-- * 'vspPp'
96+--
97+-- * 'vspVariantSetId'
98+--
99+-- * 'vspAccessToken'
100+--
101+-- * 'vspUploadType'
102+--
103+-- * 'vspPayload'
104+--
105+-- * 'vspBearerToken'
106+--
107+-- * 'vspCallback'
108+variantSetsPatch
109+ :: Text -- ^ 'vspVariantSetId'
110+ -> VariantSet -- ^ 'vspPayload'
111+ -> VariantSetsPatch
112+variantSetsPatch pVspVariantSetId_ pVspPayload_ =
113+ VariantSetsPatch
114+ { _vspXgafv = Nothing
115+ , _vspUploadProtocol = Nothing
116+ , _vspUpdateMask = Nothing
117+ , _vspPp = True
118+ , _vspVariantSetId = pVspVariantSetId_
119+ , _vspAccessToken = Nothing
120+ , _vspUploadType = Nothing
121+ , _vspPayload = pVspPayload_
122+ , _vspBearerToken = Nothing
123+ , _vspCallback = Nothing
124+ }
125+
126+-- | V1 error format.
127+vspXgafv :: Lens' VariantSetsPatch (Maybe Text)
128+vspXgafv = lens _vspXgafv (\ s a -> s{_vspXgafv = a})
129+
130+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
131+vspUploadProtocol :: Lens' VariantSetsPatch (Maybe Text)
132+vspUploadProtocol
133+ = lens _vspUploadProtocol
134+ (\ s a -> s{_vspUploadProtocol = a})
135+
136+-- | An optional mask specifying which fields to update. At this time, the
137+-- only mutable field is metadata. The only acceptable value is
138+-- \"metadata\". If unspecified, all mutable fields will be updated.
139+vspUpdateMask :: Lens' VariantSetsPatch (Maybe Text)
140+vspUpdateMask
141+ = lens _vspUpdateMask
142+ (\ s a -> s{_vspUpdateMask = a})
143+
144+-- | Pretty-print response.
145+vspPp :: Lens' VariantSetsPatch Bool
146+vspPp = lens _vspPp (\ s a -> s{_vspPp = a})
147+
148+-- | The ID of the variant to be updated (must already exist).
149+vspVariantSetId :: Lens' VariantSetsPatch Text
150+vspVariantSetId
151+ = lens _vspVariantSetId
152+ (\ s a -> s{_vspVariantSetId = a})
153+
154+-- | OAuth access token.
155+vspAccessToken :: Lens' VariantSetsPatch (Maybe Text)
156+vspAccessToken
157+ = lens _vspAccessToken
158+ (\ s a -> s{_vspAccessToken = a})
159+
160+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
161+vspUploadType :: Lens' VariantSetsPatch (Maybe Text)
162+vspUploadType
163+ = lens _vspUploadType
164+ (\ s a -> s{_vspUploadType = a})
165+
166+-- | Multipart request metadata.
167+vspPayload :: Lens' VariantSetsPatch VariantSet
168+vspPayload
169+ = lens _vspPayload (\ s a -> s{_vspPayload = a})
170+
171+-- | OAuth bearer token.
172+vspBearerToken :: Lens' VariantSetsPatch (Maybe Text)
173+vspBearerToken
174+ = lens _vspBearerToken
175+ (\ s a -> s{_vspBearerToken = a})
176+
177+-- | JSONP
178+vspCallback :: Lens' VariantSetsPatch (Maybe Text)
179+vspCallback
180+ = lens _vspCallback (\ s a -> s{_vspCallback = a})
181+
182+instance GoogleRequest VariantSetsPatch where
183+ type Rs VariantSetsPatch = VariantSet
184+ requestClient VariantSetsPatch{..}
185+ = go _vspVariantSetId _vspXgafv _vspUploadProtocol
186+ _vspUpdateMask
187+ (Just _vspPp)
188+ _vspAccessToken
189+ _vspUploadType
190+ _vspBearerToken
191+ _vspCallback
192+ (Just AltJSON)
193+ _vspPayload
194+ genomicsService
195+ where go
196+ = buildClient
197+ (Proxy :: Proxy VariantSetsPatchResource)
198+ mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Search.hs → gogol-genomics/gen/Network/Google/Resource/Genomics/VariantSets/Search.hsrenamed+26−26
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Search
16+-- Module : Network.Google.Resource.Genomics.VariantSets.Search
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -24,14 +24,14 @@
2424-- [GlobalAllianceApi.searchVariantSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L49).
2525--
2626-- /See:/ < Genomics API Reference> for @genomics.variantsets.search@.
27−module Network.Google.Resource.Genomics.Variantsets.Search
27+module Network.Google.Resource.Genomics.VariantSets.Search
2828 (
2929 -- * REST Resource
30− VariantsetsSearchResource
30+ VariantSetsSearchResource
3131
3232 -- * Creating a Request
33− , variantsetsSearch
34− , VariantsetsSearch
33+ , variantSetsSearch
34+ , VariantSetsSearch
3535
3636 -- * Request Lenses
3737 , vssXgafv
@@ -48,8 +48,8 @@ import Network.Google.Genomics.Types
4848import Network.Google.Prelude
4949
5050-- | A resource alias for @genomics.variantsets.search@ method which the
51−-- 'VariantsetsSearch' request conforms to.
52−type VariantsetsSearchResource =
51+-- 'VariantSetsSearch' request conforms to.
52+type VariantSetsSearchResource =
5353 "v1" :>
5454 "variantsets" :>
5555 "search" :>
@@ -67,8 +67,8 @@ type VariantsetsSearchResource =
6767-- | Returns a list of all variant sets matching search criteria. Implements
6868-- [GlobalAllianceApi.searchVariantSets](https:\/\/github.com\/ga4gh\/schemas\/blob\/v0.5.1\/src\/main\/resources\/avro\/variantmethods.avdl#L49).
6969--
70−-- /See:/ 'variantsetsSearch' smart constructor.
71−data VariantsetsSearch = VariantsetsSearch
70+-- /See:/ 'variantSetsSearch' smart constructor.
71+data VariantSetsSearch = VariantSetsSearch
7272 { _vssXgafv :: !(Maybe Text)
7373 , _vssUploadProtocol :: !(Maybe Text)
7474 , _vssPp :: !Bool
@@ -79,7 +79,7 @@ data VariantsetsSearch = VariantsetsSearch
7979 , _vssCallback :: !(Maybe Text)
8080 } deriving (Eq,Show,Data,Typeable,Generic)
8181
82−-- | Creates a value of 'VariantsetsSearch' with the minimum fields required to make a request.
82+-- | Creates a value of 'VariantSetsSearch' with the minimum fields required to make a request.
8383--
8484-- Use one of the following lenses to modify other fields as desired:
8585--
@@ -98,11 +98,11 @@ data VariantsetsSearch = VariantsetsSearch
9898-- * 'vssBearerToken'
9999--
100100-- * 'vssCallback'
101−variantsetsSearch
101+variantSetsSearch
102102 :: SearchVariantSetsRequest -- ^ 'vssPayload'
103− -> VariantsetsSearch
104−variantsetsSearch pVssPayload_ =
105− VariantsetsSearch
103+ -> VariantSetsSearch
104+variantSetsSearch pVssPayload_ =
105+ VariantSetsSearch
106106 { _vssXgafv = Nothing
107107 , _vssUploadProtocol = Nothing
108108 , _vssPp = True
@@ -114,50 +114,50 @@ variantsetsSearch pVssPayload_ =
114114 }
115115
116116-- | V1 error format.
117−vssXgafv :: Lens' VariantsetsSearch (Maybe Text)
117+vssXgafv :: Lens' VariantSetsSearch (Maybe Text)
118118vssXgafv = lens _vssXgafv (\ s a -> s{_vssXgafv = a})
119119
120120-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121−vssUploadProtocol :: Lens' VariantsetsSearch (Maybe Text)
121+vssUploadProtocol :: Lens' VariantSetsSearch (Maybe Text)
122122vssUploadProtocol
123123 = lens _vssUploadProtocol
124124 (\ s a -> s{_vssUploadProtocol = a})
125125
126126-- | Pretty-print response.
127−vssPp :: Lens' VariantsetsSearch Bool
127+vssPp :: Lens' VariantSetsSearch Bool
128128vssPp = lens _vssPp (\ s a -> s{_vssPp = a})
129129
130130-- | OAuth access token.
131−vssAccessToken :: Lens' VariantsetsSearch (Maybe Text)
131+vssAccessToken :: Lens' VariantSetsSearch (Maybe Text)
132132vssAccessToken
133133 = lens _vssAccessToken
134134 (\ s a -> s{_vssAccessToken = a})
135135
136136-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137−vssUploadType :: Lens' VariantsetsSearch (Maybe Text)
137+vssUploadType :: Lens' VariantSetsSearch (Maybe Text)
138138vssUploadType
139139 = lens _vssUploadType
140140 (\ s a -> s{_vssUploadType = a})
141141
142142-- | Multipart request metadata.
143−vssPayload :: Lens' VariantsetsSearch SearchVariantSetsRequest
143+vssPayload :: Lens' VariantSetsSearch SearchVariantSetsRequest
144144vssPayload
145145 = lens _vssPayload (\ s a -> s{_vssPayload = a})
146146
147147-- | OAuth bearer token.
148−vssBearerToken :: Lens' VariantsetsSearch (Maybe Text)
148+vssBearerToken :: Lens' VariantSetsSearch (Maybe Text)
149149vssBearerToken
150150 = lens _vssBearerToken
151151 (\ s a -> s{_vssBearerToken = a})
152152
153153-- | JSONP
154−vssCallback :: Lens' VariantsetsSearch (Maybe Text)
154+vssCallback :: Lens' VariantSetsSearch (Maybe Text)
155155vssCallback
156156 = lens _vssCallback (\ s a -> s{_vssCallback = a})
157157
158−instance GoogleRequest VariantsetsSearch where
159− type Rs VariantsetsSearch = SearchVariantSetsResponse
160− requestClient VariantsetsSearch{..}
158+instance GoogleRequest VariantSetsSearch where
159+ type Rs VariantSetsSearch = SearchVariantSetsResponse
160+ requestClient VariantSetsSearch{..}
161161 = go _vssXgafv _vssUploadProtocol (Just _vssPp)
162162 _vssAccessToken
163163 _vssUploadType
@@ -168,5 +168,5 @@ instance GoogleRequest VariantsetsSearch where
168168 genomicsService
169169 where go
170170 = buildClient
171− (Proxy :: Proxy VariantsetsSearchResource)
171+ (Proxy :: Proxy VariantSetsSearchResource)
172172 mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Create.hs+65−66
@@ -33,14 +33,14 @@ module Network.Google.Resource.Genomics.Variants.Create
3333 , VariantsCreate
3434
3535 -- * Request Lenses
36− , vccXgafv
37− , vccUploadProtocol
38− , vccPp
39− , vccAccessToken
40− , vccUploadType
41− , vccPayload
42− , vccBearerToken
43− , vccCallback
36+ , vcXgafv
37+ , vcUploadProtocol
38+ , vcPp
39+ , vcAccessToken
40+ , vcUploadType
41+ , vcPayload
42+ , vcBearerToken
43+ , vcCallback
4444 ) where
4545
4646import Network.Google.Genomics.Types
@@ -65,102 +65,101 @@ type VariantsCreateResource =
6565--
6666-- /See:/ 'variantsCreate' smart constructor.
6767data VariantsCreate = VariantsCreate
68− { _vccXgafv :: !(Maybe Text)
69− , _vccUploadProtocol :: !(Maybe Text)
70− , _vccPp :: !Bool
71− , _vccAccessToken :: !(Maybe Text)
72− , _vccUploadType :: !(Maybe Text)
73− , _vccPayload :: !Variant
74− , _vccBearerToken :: !(Maybe Text)
75− , _vccCallback :: !(Maybe Text)
68+ { _vcXgafv :: !(Maybe Text)
69+ , _vcUploadProtocol :: !(Maybe Text)
70+ , _vcPp :: !Bool
71+ , _vcAccessToken :: !(Maybe Text)
72+ , _vcUploadType :: !(Maybe Text)
73+ , _vcPayload :: !Variant
74+ , _vcBearerToken :: !(Maybe Text)
75+ , _vcCallback :: !(Maybe Text)
7676 } deriving (Eq,Show,Data,Typeable,Generic)
7777
7878-- | Creates a value of 'VariantsCreate' with the minimum fields required to make a request.
7979--
8080-- Use one of the following lenses to modify other fields as desired:
8181--
82−-- * 'vccXgafv'
82+-- * 'vcXgafv'
8383--
84−-- * 'vccUploadProtocol'
84+-- * 'vcUploadProtocol'
8585--
86−-- * 'vccPp'
86+-- * 'vcPp'
8787--
88−-- * 'vccAccessToken'
88+-- * 'vcAccessToken'
8989--
90−-- * 'vccUploadType'
90+-- * 'vcUploadType'
9191--
92−-- * 'vccPayload'
92+-- * 'vcPayload'
9393--
94−-- * 'vccBearerToken'
94+-- * 'vcBearerToken'
9595--
96−-- * 'vccCallback'
96+-- * 'vcCallback'
9797variantsCreate
98− :: Variant -- ^ 'vccPayload'
98+ :: Variant -- ^ 'vcPayload'
9999 -> VariantsCreate
100−variantsCreate pVccPayload_ =
100+variantsCreate pVcPayload_ =
101101 VariantsCreate
102− { _vccXgafv = Nothing
103− , _vccUploadProtocol = Nothing
104− , _vccPp = True
105− , _vccAccessToken = Nothing
106− , _vccUploadType = Nothing
107− , _vccPayload = pVccPayload_
108− , _vccBearerToken = Nothing
109− , _vccCallback = Nothing
102+ { _vcXgafv = Nothing
103+ , _vcUploadProtocol = Nothing
104+ , _vcPp = True
105+ , _vcAccessToken = Nothing
106+ , _vcUploadType = Nothing
107+ , _vcPayload = pVcPayload_
108+ , _vcBearerToken = Nothing
109+ , _vcCallback = Nothing
110110 }
111111
112112-- | V1 error format.
113−vccXgafv :: Lens' VariantsCreate (Maybe Text)
114−vccXgafv = lens _vccXgafv (\ s a -> s{_vccXgafv = a})
113+vcXgafv :: Lens' VariantsCreate (Maybe Text)
114+vcXgafv = lens _vcXgafv (\ s a -> s{_vcXgafv = a})
115115
116116-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−vccUploadProtocol :: Lens' VariantsCreate (Maybe Text)
118−vccUploadProtocol
119− = lens _vccUploadProtocol
120− (\ s a -> s{_vccUploadProtocol = a})
117+vcUploadProtocol :: Lens' VariantsCreate (Maybe Text)
118+vcUploadProtocol
119+ = lens _vcUploadProtocol
120+ (\ s a -> s{_vcUploadProtocol = a})
121121
122122-- | Pretty-print response.
123−vccPp :: Lens' VariantsCreate Bool
124−vccPp = lens _vccPp (\ s a -> s{_vccPp = a})
123+vcPp :: Lens' VariantsCreate Bool
124+vcPp = lens _vcPp (\ s a -> s{_vcPp = a})
125125
126126-- | OAuth access token.
127−vccAccessToken :: Lens' VariantsCreate (Maybe Text)
128−vccAccessToken
129− = lens _vccAccessToken
130− (\ s a -> s{_vccAccessToken = a})
127+vcAccessToken :: Lens' VariantsCreate (Maybe Text)
128+vcAccessToken
129+ = lens _vcAccessToken
130+ (\ s a -> s{_vcAccessToken = a})
131131
132132-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−vccUploadType :: Lens' VariantsCreate (Maybe Text)
134−vccUploadType
135− = lens _vccUploadType
136− (\ s a -> s{_vccUploadType = a})
133+vcUploadType :: Lens' VariantsCreate (Maybe Text)
134+vcUploadType
135+ = lens _vcUploadType (\ s a -> s{_vcUploadType = a})
137136
138137-- | Multipart request metadata.
139−vccPayload :: Lens' VariantsCreate Variant
140−vccPayload
141− = lens _vccPayload (\ s a -> s{_vccPayload = a})
138+vcPayload :: Lens' VariantsCreate Variant
139+vcPayload
140+ = lens _vcPayload (\ s a -> s{_vcPayload = a})
142141
143142-- | OAuth bearer token.
144−vccBearerToken :: Lens' VariantsCreate (Maybe Text)
145−vccBearerToken
146− = lens _vccBearerToken
147− (\ s a -> s{_vccBearerToken = a})
143+vcBearerToken :: Lens' VariantsCreate (Maybe Text)
144+vcBearerToken
145+ = lens _vcBearerToken
146+ (\ s a -> s{_vcBearerToken = a})
148147
149148-- | JSONP
150−vccCallback :: Lens' VariantsCreate (Maybe Text)
151−vccCallback
152− = lens _vccCallback (\ s a -> s{_vccCallback = a})
149+vcCallback :: Lens' VariantsCreate (Maybe Text)
150+vcCallback
151+ = lens _vcCallback (\ s a -> s{_vcCallback = a})
153152
154153instance GoogleRequest VariantsCreate where
155154 type Rs VariantsCreate = Variant
156155 requestClient VariantsCreate{..}
157− = go _vccXgafv _vccUploadProtocol (Just _vccPp)
158− _vccAccessToken
159− _vccUploadType
160− _vccBearerToken
161− _vccCallback
156+ = go _vcXgafv _vcUploadProtocol (Just _vcPp)
157+ _vcAccessToken
158+ _vcUploadType
159+ _vcBearerToken
160+ _vcCallback
162161 (Just AltJSON)
163− _vccPayload
162+ _vcPayload
164163 genomicsService
165164 where go
166165 = buildClient (Proxy :: Proxy VariantsCreateResource)
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Delete.hs+65−66
@@ -33,14 +33,14 @@ module Network.Google.Resource.Genomics.Variants.Delete
3333 , VariantsDelete
3434
3535 -- * Request Lenses
36− , vddXgafv
37− , vddUploadProtocol
38− , vddPp
39− , vddAccessToken
40− , vddUploadType
41− , vddBearerToken
42− , vddVariantId
43− , vddCallback
36+ , vdXgafv
37+ , vdUploadProtocol
38+ , vdPp
39+ , vdAccessToken
40+ , vdUploadType
41+ , vdBearerToken
42+ , vdVariantId
43+ , vdCallback
4444 ) where
4545
4646import Network.Google.Genomics.Types
@@ -65,101 +65,100 @@ type VariantsDeleteResource =
6565--
6666-- /See:/ 'variantsDelete' smart constructor.
6767data VariantsDelete = VariantsDelete
68− { _vddXgafv :: !(Maybe Text)
69− , _vddUploadProtocol :: !(Maybe Text)
70− , _vddPp :: !Bool
71− , _vddAccessToken :: !(Maybe Text)
72− , _vddUploadType :: !(Maybe Text)
73− , _vddBearerToken :: !(Maybe Text)
74− , _vddVariantId :: !Text
75− , _vddCallback :: !(Maybe Text)
68+ { _vdXgafv :: !(Maybe Text)
69+ , _vdUploadProtocol :: !(Maybe Text)
70+ , _vdPp :: !Bool
71+ , _vdAccessToken :: !(Maybe Text)
72+ , _vdUploadType :: !(Maybe Text)
73+ , _vdBearerToken :: !(Maybe Text)
74+ , _vdVariantId :: !Text
75+ , _vdCallback :: !(Maybe Text)
7676 } deriving (Eq,Show,Data,Typeable,Generic)
7777
7878-- | Creates a value of 'VariantsDelete' with the minimum fields required to make a request.
7979--
8080-- Use one of the following lenses to modify other fields as desired:
8181--
82−-- * 'vddXgafv'
82+-- * 'vdXgafv'
8383--
84−-- * 'vddUploadProtocol'
84+-- * 'vdUploadProtocol'
8585--
86−-- * 'vddPp'
86+-- * 'vdPp'
8787--
88−-- * 'vddAccessToken'
88+-- * 'vdAccessToken'
8989--
90−-- * 'vddUploadType'
90+-- * 'vdUploadType'
9191--
92−-- * 'vddBearerToken'
92+-- * 'vdBearerToken'
9393--
94−-- * 'vddVariantId'
94+-- * 'vdVariantId'
9595--
96−-- * 'vddCallback'
96+-- * 'vdCallback'
9797variantsDelete
98− :: Text -- ^ 'vddVariantId'
98+ :: Text -- ^ 'vdVariantId'
9999 -> VariantsDelete
100−variantsDelete pVddVariantId_ =
100+variantsDelete pVdVariantId_ =
101101 VariantsDelete
102− { _vddXgafv = Nothing
103− , _vddUploadProtocol = Nothing
104− , _vddPp = True
105− , _vddAccessToken = Nothing
106− , _vddUploadType = Nothing
107− , _vddBearerToken = Nothing
108− , _vddVariantId = pVddVariantId_
109− , _vddCallback = Nothing
102+ { _vdXgafv = Nothing
103+ , _vdUploadProtocol = Nothing
104+ , _vdPp = True
105+ , _vdAccessToken = Nothing
106+ , _vdUploadType = Nothing
107+ , _vdBearerToken = Nothing
108+ , _vdVariantId = pVdVariantId_
109+ , _vdCallback = Nothing
110110 }
111111
112112-- | V1 error format.
113−vddXgafv :: Lens' VariantsDelete (Maybe Text)
114−vddXgafv = lens _vddXgafv (\ s a -> s{_vddXgafv = a})
113+vdXgafv :: Lens' VariantsDelete (Maybe Text)
114+vdXgafv = lens _vdXgafv (\ s a -> s{_vdXgafv = a})
115115
116116-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−vddUploadProtocol :: Lens' VariantsDelete (Maybe Text)
118−vddUploadProtocol
119− = lens _vddUploadProtocol
120− (\ s a -> s{_vddUploadProtocol = a})
117+vdUploadProtocol :: Lens' VariantsDelete (Maybe Text)
118+vdUploadProtocol
119+ = lens _vdUploadProtocol
120+ (\ s a -> s{_vdUploadProtocol = a})
121121
122122-- | Pretty-print response.
123−vddPp :: Lens' VariantsDelete Bool
124−vddPp = lens _vddPp (\ s a -> s{_vddPp = a})
123+vdPp :: Lens' VariantsDelete Bool
124+vdPp = lens _vdPp (\ s a -> s{_vdPp = a})
125125
126126-- | OAuth access token.
127−vddAccessToken :: Lens' VariantsDelete (Maybe Text)
128−vddAccessToken
129− = lens _vddAccessToken
130− (\ s a -> s{_vddAccessToken = a})
127+vdAccessToken :: Lens' VariantsDelete (Maybe Text)
128+vdAccessToken
129+ = lens _vdAccessToken
130+ (\ s a -> s{_vdAccessToken = a})
131131
132132-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
133−vddUploadType :: Lens' VariantsDelete (Maybe Text)
134−vddUploadType
135− = lens _vddUploadType
136− (\ s a -> s{_vddUploadType = a})
133+vdUploadType :: Lens' VariantsDelete (Maybe Text)
134+vdUploadType
135+ = lens _vdUploadType (\ s a -> s{_vdUploadType = a})
137136
138137-- | OAuth bearer token.
139−vddBearerToken :: Lens' VariantsDelete (Maybe Text)
140−vddBearerToken
141− = lens _vddBearerToken
142− (\ s a -> s{_vddBearerToken = a})
138+vdBearerToken :: Lens' VariantsDelete (Maybe Text)
139+vdBearerToken
140+ = lens _vdBearerToken
141+ (\ s a -> s{_vdBearerToken = a})
143142
144143-- | The ID of the variant to be deleted.
145−vddVariantId :: Lens' VariantsDelete Text
146−vddVariantId
147− = lens _vddVariantId (\ s a -> s{_vddVariantId = a})
144+vdVariantId :: Lens' VariantsDelete Text
145+vdVariantId
146+ = lens _vdVariantId (\ s a -> s{_vdVariantId = a})
148147
149148-- | JSONP
150−vddCallback :: Lens' VariantsDelete (Maybe Text)
151−vddCallback
152− = lens _vddCallback (\ s a -> s{_vddCallback = a})
149+vdCallback :: Lens' VariantsDelete (Maybe Text)
150+vdCallback
151+ = lens _vdCallback (\ s a -> s{_vdCallback = a})
153152
154153instance GoogleRequest VariantsDelete where
155154 type Rs VariantsDelete = Empty
156155 requestClient VariantsDelete{..}
157− = go _vddVariantId _vddXgafv _vddUploadProtocol
158− (Just _vddPp)
159− _vddAccessToken
160− _vddUploadType
161− _vddBearerToken
162− _vddCallback
156+ = go _vdVariantId _vdXgafv _vdUploadProtocol
157+ (Just _vdPp)
158+ _vdAccessToken
159+ _vdUploadType
160+ _vdBearerToken
161+ _vdCallback
163162 (Just AltJSON)
164163 genomicsService
165164 where go
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Get.hs+65−62
@@ -33,14 +33,14 @@ module Network.Google.Resource.Genomics.Variants.Get
3333 , VariantsGet
3434
3535 -- * Request Lenses
36− , vXgafv
37− , vUploadProtocol
38− , vPp
39− , vAccessToken
40− , vUploadType
41− , vBearerToken
42− , vVariantId
43− , vCallback
36+ , vgXgafv
37+ , vgUploadProtocol
38+ , vgPp
39+ , vgAccessToken
40+ , vgUploadType
41+ , vgBearerToken
42+ , vgVariantId
43+ , vgCallback
4444 ) where
4545
4646import Network.Google.Genomics.Types
@@ -65,97 +65,100 @@ type VariantsGetResource =
6565--
6666-- /See:/ 'variantsGet' smart constructor.
6767data VariantsGet = VariantsGet
68− { _vXgafv :: !(Maybe Text)
69− , _vUploadProtocol :: !(Maybe Text)
70− , _vPp :: !Bool
71− , _vAccessToken :: !(Maybe Text)
72− , _vUploadType :: !(Maybe Text)
73− , _vBearerToken :: !(Maybe Text)
74− , _vVariantId :: !Text
75− , _vCallback :: !(Maybe Text)
68+ { _vgXgafv :: !(Maybe Text)
69+ , _vgUploadProtocol :: !(Maybe Text)
70+ , _vgPp :: !Bool
71+ , _vgAccessToken :: !(Maybe Text)
72+ , _vgUploadType :: !(Maybe Text)
73+ , _vgBearerToken :: !(Maybe Text)
74+ , _vgVariantId :: !Text
75+ , _vgCallback :: !(Maybe Text)
7676 } deriving (Eq,Show,Data,Typeable,Generic)
7777
7878-- | Creates a value of 'VariantsGet' with the minimum fields required to make a request.
7979--
8080-- Use one of the following lenses to modify other fields as desired:
8181--
82−-- * 'vXgafv'
82+-- * 'vgXgafv'
8383--
84−-- * 'vUploadProtocol'
84+-- * 'vgUploadProtocol'
8585--
86−-- * 'vPp'
86+-- * 'vgPp'
8787--
88−-- * 'vAccessToken'
88+-- * 'vgAccessToken'
8989--
90−-- * 'vUploadType'
90+-- * 'vgUploadType'
9191--
92−-- * 'vBearerToken'
92+-- * 'vgBearerToken'
9393--
94−-- * 'vVariantId'
94+-- * 'vgVariantId'
9595--
96−-- * 'vCallback'
96+-- * 'vgCallback'
9797variantsGet
98− :: Text -- ^ 'vVariantId'
98+ :: Text -- ^ 'vgVariantId'
9999 -> VariantsGet
100−variantsGet pVVariantId_ =
100+variantsGet pVgVariantId_ =
101101 VariantsGet
102− { _vXgafv = Nothing
103− , _vUploadProtocol = Nothing
104− , _vPp = True
105− , _vAccessToken = Nothing
106− , _vUploadType = Nothing
107− , _vBearerToken = Nothing
108− , _vVariantId = pVVariantId_
109− , _vCallback = Nothing
102+ { _vgXgafv = Nothing
103+ , _vgUploadProtocol = Nothing
104+ , _vgPp = True
105+ , _vgAccessToken = Nothing
106+ , _vgUploadType = Nothing
107+ , _vgBearerToken = Nothing
108+ , _vgVariantId = pVgVariantId_
109+ , _vgCallback = Nothing
110110 }
111111
112112-- | V1 error format.
113−vXgafv :: Lens' VariantsGet (Maybe Text)
114−vXgafv = lens _vXgafv (\ s a -> s{_vXgafv = a})
113+vgXgafv :: Lens' VariantsGet (Maybe Text)
114+vgXgafv = lens _vgXgafv (\ s a -> s{_vgXgafv = a})
115115
116116-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−vUploadProtocol :: Lens' VariantsGet (Maybe Text)
118−vUploadProtocol
119− = lens _vUploadProtocol
120− (\ s a -> s{_vUploadProtocol = a})
117+vgUploadProtocol :: Lens' VariantsGet (Maybe Text)
118+vgUploadProtocol
119+ = lens _vgUploadProtocol
120+ (\ s a -> s{_vgUploadProtocol = a})
121121
122122-- | Pretty-print response.
123−vPp :: Lens' VariantsGet Bool
124−vPp = lens _vPp (\ s a -> s{_vPp = a})
123+vgPp :: Lens' VariantsGet Bool
124+vgPp = lens _vgPp (\ s a -> s{_vgPp = a})
125125
126126-- | OAuth access token.
127−vAccessToken :: Lens' VariantsGet (Maybe Text)
128−vAccessToken
129− = lens _vAccessToken (\ s a -> s{_vAccessToken = a})
127+vgAccessToken :: Lens' VariantsGet (Maybe Text)
128+vgAccessToken
129+ = lens _vgAccessToken
130+ (\ s a -> s{_vgAccessToken = a})
130131
131132-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
132−vUploadType :: Lens' VariantsGet (Maybe Text)
133−vUploadType
134− = lens _vUploadType (\ s a -> s{_vUploadType = a})
133+vgUploadType :: Lens' VariantsGet (Maybe Text)
134+vgUploadType
135+ = lens _vgUploadType (\ s a -> s{_vgUploadType = a})
135136
136137-- | OAuth bearer token.
137−vBearerToken :: Lens' VariantsGet (Maybe Text)
138−vBearerToken
139− = lens _vBearerToken (\ s a -> s{_vBearerToken = a})
138+vgBearerToken :: Lens' VariantsGet (Maybe Text)
139+vgBearerToken
140+ = lens _vgBearerToken
141+ (\ s a -> s{_vgBearerToken = a})
140142
141143-- | The ID of the variant.
142−vVariantId :: Lens' VariantsGet Text
143−vVariantId
144− = lens _vVariantId (\ s a -> s{_vVariantId = a})
144+vgVariantId :: Lens' VariantsGet Text
145+vgVariantId
146+ = lens _vgVariantId (\ s a -> s{_vgVariantId = a})
145147
146148-- | JSONP
147−vCallback :: Lens' VariantsGet (Maybe Text)
148−vCallback
149− = lens _vCallback (\ s a -> s{_vCallback = a})
149+vgCallback :: Lens' VariantsGet (Maybe Text)
150+vgCallback
151+ = lens _vgCallback (\ s a -> s{_vgCallback = a})
150152
151153instance GoogleRequest VariantsGet where
152154 type Rs VariantsGet = Variant
153155 requestClient VariantsGet{..}
154− = go _vVariantId _vXgafv _vUploadProtocol (Just _vPp)
155− _vAccessToken
156− _vUploadType
157− _vBearerToken
158− _vCallback
156+ = go _vgVariantId _vgXgafv _vgUploadProtocol
157+ (Just _vgPp)
158+ _vgAccessToken
159+ _vgUploadType
160+ _vgBearerToken
161+ _vgCallback
159162 (Just AltJSON)
160163 genomicsService
161164 where go
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Patch.hs+82−84
@@ -34,16 +34,16 @@ module Network.Google.Resource.Genomics.Variants.Patch
3434 , VariantsPatch
3535
3636 -- * Request Lenses
37− , varXgafv
38− , varUploadProtocol
39− , varUpdateMask
40− , varPp
41− , varAccessToken
42− , varUploadType
43− , varPayload
44− , varBearerToken
45− , varVariantId
46− , varCallback
37+ , vpXgafv
38+ , vpUploadProtocol
39+ , vpUpdateMask
40+ , vpPp
41+ , vpAccessToken
42+ , vpUploadType
43+ , vpPayload
44+ , vpBearerToken
45+ , vpVariantId
46+ , vpCallback
4747 ) where
4848
4949import Network.Google.Genomics.Types
@@ -71,126 +71,124 @@ type VariantsPatchResource =
7171--
7272-- /See:/ 'variantsPatch' smart constructor.
7373data VariantsPatch = VariantsPatch
74− { _varXgafv :: !(Maybe Text)
75− , _varUploadProtocol :: !(Maybe Text)
76− , _varUpdateMask :: !(Maybe Text)
77− , _varPp :: !Bool
78− , _varAccessToken :: !(Maybe Text)
79− , _varUploadType :: !(Maybe Text)
80− , _varPayload :: !Variant
81− , _varBearerToken :: !(Maybe Text)
82− , _varVariantId :: !Text
83− , _varCallback :: !(Maybe Text)
74+ { _vpXgafv :: !(Maybe Text)
75+ , _vpUploadProtocol :: !(Maybe Text)
76+ , _vpUpdateMask :: !(Maybe Text)
77+ , _vpPp :: !Bool
78+ , _vpAccessToken :: !(Maybe Text)
79+ , _vpUploadType :: !(Maybe Text)
80+ , _vpPayload :: !Variant
81+ , _vpBearerToken :: !(Maybe Text)
82+ , _vpVariantId :: !Text
83+ , _vpCallback :: !(Maybe Text)
8484 } deriving (Eq,Show,Data,Typeable,Generic)
8585
8686-- | Creates a value of 'VariantsPatch' with the minimum fields required to make a request.
8787--
8888-- Use one of the following lenses to modify other fields as desired:
8989--
90−-- * 'varXgafv'
90+-- * 'vpXgafv'
9191--
92−-- * 'varUploadProtocol'
92+-- * 'vpUploadProtocol'
9393--
94−-- * 'varUpdateMask'
94+-- * 'vpUpdateMask'
9595--
96−-- * 'varPp'
96+-- * 'vpPp'
9797--
98−-- * 'varAccessToken'
98+-- * 'vpAccessToken'
9999--
100−-- * 'varUploadType'
100+-- * 'vpUploadType'
101101--
102−-- * 'varPayload'
102+-- * 'vpPayload'
103103--
104−-- * 'varBearerToken'
104+-- * 'vpBearerToken'
105105--
106−-- * 'varVariantId'
106+-- * 'vpVariantId'
107107--
108−-- * 'varCallback'
108+-- * 'vpCallback'
109109variantsPatch
110− :: Variant -- ^ 'varPayload'
111− -> Text -- ^ 'varVariantId'
110+ :: Variant -- ^ 'vpPayload'
111+ -> Text -- ^ 'vpVariantId'
112112 -> VariantsPatch
113−variantsPatch pVarPayload_ pVarVariantId_ =
113+variantsPatch pVpPayload_ pVpVariantId_ =
114114 VariantsPatch
115− { _varXgafv = Nothing
116− , _varUploadProtocol = Nothing
117− , _varUpdateMask = Nothing
118− , _varPp = True
119− , _varAccessToken = Nothing
120− , _varUploadType = Nothing
121− , _varPayload = pVarPayload_
122− , _varBearerToken = Nothing
123− , _varVariantId = pVarVariantId_
124− , _varCallback = Nothing
115+ { _vpXgafv = Nothing
116+ , _vpUploadProtocol = Nothing
117+ , _vpUpdateMask = Nothing
118+ , _vpPp = True
119+ , _vpAccessToken = Nothing
120+ , _vpUploadType = Nothing
121+ , _vpPayload = pVpPayload_
122+ , _vpBearerToken = Nothing
123+ , _vpVariantId = pVpVariantId_
124+ , _vpCallback = Nothing
125125 }
126126
127127-- | V1 error format.
128−varXgafv :: Lens' VariantsPatch (Maybe Text)
129−varXgafv = lens _varXgafv (\ s a -> s{_varXgafv = a})
128+vpXgafv :: Lens' VariantsPatch (Maybe Text)
129+vpXgafv = lens _vpXgafv (\ s a -> s{_vpXgafv = a})
130130
131131-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
132−varUploadProtocol :: Lens' VariantsPatch (Maybe Text)
133−varUploadProtocol
134− = lens _varUploadProtocol
135− (\ s a -> s{_varUploadProtocol = a})
132+vpUploadProtocol :: Lens' VariantsPatch (Maybe Text)
133+vpUploadProtocol
134+ = lens _vpUploadProtocol
135+ (\ s a -> s{_vpUploadProtocol = a})
136136
137137-- | An optional mask specifying which fields to update. At this time,
138138-- mutable fields are names and info. Acceptable values are \"names\" and
139139-- \"info\". If unspecified, all mutable fields will be updated.
140−varUpdateMask :: Lens' VariantsPatch (Maybe Text)
141−varUpdateMask
142− = lens _varUpdateMask
143− (\ s a -> s{_varUpdateMask = a})
140+vpUpdateMask :: Lens' VariantsPatch (Maybe Text)
141+vpUpdateMask
142+ = lens _vpUpdateMask (\ s a -> s{_vpUpdateMask = a})
144143
145144-- | Pretty-print response.
146−varPp :: Lens' VariantsPatch Bool
147−varPp = lens _varPp (\ s a -> s{_varPp = a})
145+vpPp :: Lens' VariantsPatch Bool
146+vpPp = lens _vpPp (\ s a -> s{_vpPp = a})
148147
149148-- | OAuth access token.
150−varAccessToken :: Lens' VariantsPatch (Maybe Text)
151−varAccessToken
152− = lens _varAccessToken
153− (\ s a -> s{_varAccessToken = a})
149+vpAccessToken :: Lens' VariantsPatch (Maybe Text)
150+vpAccessToken
151+ = lens _vpAccessToken
152+ (\ s a -> s{_vpAccessToken = a})
154153
155154-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
156−varUploadType :: Lens' VariantsPatch (Maybe Text)
157−varUploadType
158− = lens _varUploadType
159− (\ s a -> s{_varUploadType = a})
155+vpUploadType :: Lens' VariantsPatch (Maybe Text)
156+vpUploadType
157+ = lens _vpUploadType (\ s a -> s{_vpUploadType = a})
160158
161159-- | Multipart request metadata.
162−varPayload :: Lens' VariantsPatch Variant
163−varPayload
164− = lens _varPayload (\ s a -> s{_varPayload = a})
160+vpPayload :: Lens' VariantsPatch Variant
161+vpPayload
162+ = lens _vpPayload (\ s a -> s{_vpPayload = a})
165163
166164-- | OAuth bearer token.
167−varBearerToken :: Lens' VariantsPatch (Maybe Text)
168−varBearerToken
169− = lens _varBearerToken
170− (\ s a -> s{_varBearerToken = a})
165+vpBearerToken :: Lens' VariantsPatch (Maybe Text)
166+vpBearerToken
167+ = lens _vpBearerToken
168+ (\ s a -> s{_vpBearerToken = a})
171169
172170-- | The ID of the variant to be updated.
173−varVariantId :: Lens' VariantsPatch Text
174−varVariantId
175− = lens _varVariantId (\ s a -> s{_varVariantId = a})
171+vpVariantId :: Lens' VariantsPatch Text
172+vpVariantId
173+ = lens _vpVariantId (\ s a -> s{_vpVariantId = a})
176174
177175-- | JSONP
178−varCallback :: Lens' VariantsPatch (Maybe Text)
179−varCallback
180− = lens _varCallback (\ s a -> s{_varCallback = a})
176+vpCallback :: Lens' VariantsPatch (Maybe Text)
177+vpCallback
178+ = lens _vpCallback (\ s a -> s{_vpCallback = a})
181179
182180instance GoogleRequest VariantsPatch where
183181 type Rs VariantsPatch = Variant
184182 requestClient VariantsPatch{..}
185− = go _varVariantId _varXgafv _varUploadProtocol
186− _varUpdateMask
187− (Just _varPp)
188− _varAccessToken
189− _varUploadType
190− _varBearerToken
191− _varCallback
183+ = go _vpVariantId _vpXgafv _vpUploadProtocol
184+ _vpUpdateMask
185+ (Just _vpPp)
186+ _vpAccessToken
187+ _vpUploadType
188+ _vpBearerToken
189+ _vpCallback
192190 (Just AltJSON)
193− _varPayload
191+ _vpPayload
194192 genomicsService
195193 where go
196194 = buildClient (Proxy :: Proxy VariantsPatchResource)
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Create.hsdeleted−171
@@ -1,171 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Create
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Creates a new variant set. The provided variant set must have a valid
24−-- \`datasetId\` set - all other fields are optional. Note that the \`id\`
25−-- field will be ignored, as this is assigned by the server.
26−--
27−-- /See:/ < Genomics API Reference> for @genomics.variantsets.create@.
28−module Network.Google.Resource.Genomics.Variantsets.Create
29− (
30− -- * REST Resource
31− VariantsetsCreateResource
32−
33− -- * Creating a Request
34− , variantsetsCreate
35− , VariantsetsCreate
36−
37− -- * Request Lenses
38− , vcXgafv
39− , vcUploadProtocol
40− , vcPp
41− , vcAccessToken
42− , vcUploadType
43− , vcPayload
44− , vcBearerToken
45− , vcCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.variantsets.create@ method which the
52−-- 'VariantsetsCreate' request conforms to.
53−type VariantsetsCreateResource =
54− "v1" :>
55− "variantsets" :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] VariantSet :> Post '[JSON] VariantSet
65−
66−-- | Creates a new variant set. The provided variant set must have a valid
67−-- \`datasetId\` set - all other fields are optional. Note that the \`id\`
68−-- field will be ignored, as this is assigned by the server.
69−--
70−-- /See:/ 'variantsetsCreate' smart constructor.
71−data VariantsetsCreate = VariantsetsCreate
72− { _vcXgafv :: !(Maybe Text)
73− , _vcUploadProtocol :: !(Maybe Text)
74− , _vcPp :: !Bool
75− , _vcAccessToken :: !(Maybe Text)
76− , _vcUploadType :: !(Maybe Text)
77− , _vcPayload :: !VariantSet
78− , _vcBearerToken :: !(Maybe Text)
79− , _vcCallback :: !(Maybe Text)
80− } deriving (Eq,Show,Data,Typeable,Generic)
81−
82−-- | Creates a value of 'VariantsetsCreate' with the minimum fields required to make a request.
83−--
84−-- Use one of the following lenses to modify other fields as desired:
85−--
86−-- * 'vcXgafv'
87−--
88−-- * 'vcUploadProtocol'
89−--
90−-- * 'vcPp'
91−--
92−-- * 'vcAccessToken'
93−--
94−-- * 'vcUploadType'
95−--
96−-- * 'vcPayload'
97−--
98−-- * 'vcBearerToken'
99−--
100−-- * 'vcCallback'
101−variantsetsCreate
102− :: VariantSet -- ^ 'vcPayload'
103− -> VariantsetsCreate
104−variantsetsCreate pVcPayload_ =
105− VariantsetsCreate
106− { _vcXgafv = Nothing
107− , _vcUploadProtocol = Nothing
108− , _vcPp = True
109− , _vcAccessToken = Nothing
110− , _vcUploadType = Nothing
111− , _vcPayload = pVcPayload_
112− , _vcBearerToken = Nothing
113− , _vcCallback = Nothing
114− }
115−
116−-- | V1 error format.
117−vcXgafv :: Lens' VariantsetsCreate (Maybe Text)
118−vcXgafv = lens _vcXgafv (\ s a -> s{_vcXgafv = a})
119−
120−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
121−vcUploadProtocol :: Lens' VariantsetsCreate (Maybe Text)
122−vcUploadProtocol
123− = lens _vcUploadProtocol
124− (\ s a -> s{_vcUploadProtocol = a})
125−
126−-- | Pretty-print response.
127−vcPp :: Lens' VariantsetsCreate Bool
128−vcPp = lens _vcPp (\ s a -> s{_vcPp = a})
129−
130−-- | OAuth access token.
131−vcAccessToken :: Lens' VariantsetsCreate (Maybe Text)
132−vcAccessToken
133− = lens _vcAccessToken
134− (\ s a -> s{_vcAccessToken = a})
135−
136−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
137−vcUploadType :: Lens' VariantsetsCreate (Maybe Text)
138−vcUploadType
139− = lens _vcUploadType (\ s a -> s{_vcUploadType = a})
140−
141−-- | Multipart request metadata.
142−vcPayload :: Lens' VariantsetsCreate VariantSet
143−vcPayload
144− = lens _vcPayload (\ s a -> s{_vcPayload = a})
145−
146−-- | OAuth bearer token.
147−vcBearerToken :: Lens' VariantsetsCreate (Maybe Text)
148−vcBearerToken
149− = lens _vcBearerToken
150− (\ s a -> s{_vcBearerToken = a})
151−
152−-- | JSONP
153−vcCallback :: Lens' VariantsetsCreate (Maybe Text)
154−vcCallback
155− = lens _vcCallback (\ s a -> s{_vcCallback = a})
156−
157−instance GoogleRequest VariantsetsCreate where
158− type Rs VariantsetsCreate = VariantSet
159− requestClient VariantsetsCreate{..}
160− = go _vcXgafv _vcUploadProtocol (Just _vcPp)
161− _vcAccessToken
162− _vcUploadType
163− _vcBearerToken
164− _vcCallback
165− (Just AltJSON)
166− _vcPayload
167− genomicsService
168− where go
169− = buildClient
170− (Proxy :: Proxy VariantsetsCreateResource)
171− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Delete.hsdeleted−170
@@ -1,170 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Delete
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Deletes the contents of a variant set. The variant set object is not
24−-- deleted.
25−--
26−-- /See:/ < Genomics API Reference> for @genomics.variantsets.delete@.
27−module Network.Google.Resource.Genomics.Variantsets.Delete
28− (
29− -- * REST Resource
30− VariantsetsDeleteResource
31−
32− -- * Creating a Request
33− , variantsetsDelete
34− , VariantsetsDelete
35−
36− -- * Request Lenses
37− , vdXgafv
38− , vdUploadProtocol
39− , vdPp
40− , vdVariantSetId
41− , vdAccessToken
42− , vdUploadType
43− , vdBearerToken
44− , vdCallback
45− ) where
46−
47−import Network.Google.Genomics.Types
48−import Network.Google.Prelude
49−
50−-- | A resource alias for @genomics.variantsets.delete@ method which the
51−-- 'VariantsetsDelete' request conforms to.
52−type VariantsetsDeleteResource =
53− "v1" :>
54− "variantsets" :>
55− Capture "variantSetId" Text :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :> Delete '[JSON] Empty
64−
65−-- | Deletes the contents of a variant set. The variant set object is not
66−-- deleted.
67−--
68−-- /See:/ 'variantsetsDelete' smart constructor.
69−data VariantsetsDelete = VariantsetsDelete
70− { _vdXgafv :: !(Maybe Text)
71− , _vdUploadProtocol :: !(Maybe Text)
72− , _vdPp :: !Bool
73− , _vdVariantSetId :: !Text
74− , _vdAccessToken :: !(Maybe Text)
75− , _vdUploadType :: !(Maybe Text)
76− , _vdBearerToken :: !(Maybe Text)
77− , _vdCallback :: !(Maybe Text)
78− } deriving (Eq,Show,Data,Typeable,Generic)
79−
80−-- | Creates a value of 'VariantsetsDelete' with the minimum fields required to make a request.
81−--
82−-- Use one of the following lenses to modify other fields as desired:
83−--
84−-- * 'vdXgafv'
85−--
86−-- * 'vdUploadProtocol'
87−--
88−-- * 'vdPp'
89−--
90−-- * 'vdVariantSetId'
91−--
92−-- * 'vdAccessToken'
93−--
94−-- * 'vdUploadType'
95−--
96−-- * 'vdBearerToken'
97−--
98−-- * 'vdCallback'
99−variantsetsDelete
100− :: Text -- ^ 'vdVariantSetId'
101− -> VariantsetsDelete
102−variantsetsDelete pVdVariantSetId_ =
103− VariantsetsDelete
104− { _vdXgafv = Nothing
105− , _vdUploadProtocol = Nothing
106− , _vdPp = True
107− , _vdVariantSetId = pVdVariantSetId_
108− , _vdAccessToken = Nothing
109− , _vdUploadType = Nothing
110− , _vdBearerToken = Nothing
111− , _vdCallback = Nothing
112− }
113−
114−-- | V1 error format.
115−vdXgafv :: Lens' VariantsetsDelete (Maybe Text)
116−vdXgafv = lens _vdXgafv (\ s a -> s{_vdXgafv = a})
117−
118−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
119−vdUploadProtocol :: Lens' VariantsetsDelete (Maybe Text)
120−vdUploadProtocol
121− = lens _vdUploadProtocol
122− (\ s a -> s{_vdUploadProtocol = a})
123−
124−-- | Pretty-print response.
125−vdPp :: Lens' VariantsetsDelete Bool
126−vdPp = lens _vdPp (\ s a -> s{_vdPp = a})
127−
128−-- | The ID of the variant set to be deleted.
129−vdVariantSetId :: Lens' VariantsetsDelete Text
130−vdVariantSetId
131− = lens _vdVariantSetId
132− (\ s a -> s{_vdVariantSetId = a})
133−
134−-- | OAuth access token.
135−vdAccessToken :: Lens' VariantsetsDelete (Maybe Text)
136−vdAccessToken
137− = lens _vdAccessToken
138− (\ s a -> s{_vdAccessToken = a})
139−
140−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
141−vdUploadType :: Lens' VariantsetsDelete (Maybe Text)
142−vdUploadType
143− = lens _vdUploadType (\ s a -> s{_vdUploadType = a})
144−
145−-- | OAuth bearer token.
146−vdBearerToken :: Lens' VariantsetsDelete (Maybe Text)
147−vdBearerToken
148− = lens _vdBearerToken
149− (\ s a -> s{_vdBearerToken = a})
150−
151−-- | JSONP
152−vdCallback :: Lens' VariantsetsDelete (Maybe Text)
153−vdCallback
154− = lens _vdCallback (\ s a -> s{_vdCallback = a})
155−
156−instance GoogleRequest VariantsetsDelete where
157− type Rs VariantsetsDelete = Empty
158− requestClient VariantsetsDelete{..}
159− = go _vdVariantSetId _vdXgafv _vdUploadProtocol
160− (Just _vdPp)
161− _vdAccessToken
162− _vdUploadType
163− _vdBearerToken
164− _vdCallback
165− (Just AltJSON)
166− genomicsService
167− where go
168− = buildClient
169− (Proxy :: Proxy VariantsetsDeleteResource)
170− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Export.hsdeleted−184
@@ -1,184 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Export
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Exports variant set data to an external destination.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.variantsets.export@.
26−module Network.Google.Resource.Genomics.Variantsets.Export
27− (
28− -- * REST Resource
29− VariantsetsExportResource
30−
31− -- * Creating a Request
32− , variantsetsExport
33− , VariantsetsExport
34−
35− -- * Request Lenses
36− , veXgafv
37− , veUploadProtocol
38− , vePp
39− , veVariantSetId
40− , veAccessToken
41− , veUploadType
42− , vePayload
43− , veBearerToken
44− , veCallback
45− ) where
46−
47−import Network.Google.Genomics.Types
48−import Network.Google.Prelude
49−
50−-- | A resource alias for @genomics.variantsets.export@ method which the
51−-- 'VariantsetsExport' request conforms to.
52−type VariantsetsExportResource =
53− "v1" :>
54− "variantsets" :>
55− CaptureMode "variantSetId" "export" Text :>
56− QueryParam "$.xgafv" Text :>
57− QueryParam "upload_protocol" Text :>
58− QueryParam "pp" Bool :>
59− QueryParam "access_token" Text :>
60− QueryParam "uploadType" Text :>
61− QueryParam "bearer_token" Text :>
62− QueryParam "callback" Text :>
63− QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] ExportVariantSetRequest :>
65− Post '[JSON] Operation
66−
67−-- | Exports variant set data to an external destination.
68−--
69−-- /See:/ 'variantsetsExport' smart constructor.
70−data VariantsetsExport = VariantsetsExport
71− { _veXgafv :: !(Maybe Text)
72− , _veUploadProtocol :: !(Maybe Text)
73− , _vePp :: !Bool
74− , _veVariantSetId :: !Text
75− , _veAccessToken :: !(Maybe Text)
76− , _veUploadType :: !(Maybe Text)
77− , _vePayload :: !ExportVariantSetRequest
78− , _veBearerToken :: !(Maybe Text)
79− , _veCallback :: !(Maybe Text)
80− } deriving (Eq,Show,Data,Typeable,Generic)
81−
82−-- | Creates a value of 'VariantsetsExport' with the minimum fields required to make a request.
83−--
84−-- Use one of the following lenses to modify other fields as desired:
85−--
86−-- * 'veXgafv'
87−--
88−-- * 'veUploadProtocol'
89−--
90−-- * 'vePp'
91−--
92−-- * 'veVariantSetId'
93−--
94−-- * 'veAccessToken'
95−--
96−-- * 'veUploadType'
97−--
98−-- * 'vePayload'
99−--
100−-- * 'veBearerToken'
101−--
102−-- * 'veCallback'
103−variantsetsExport
104− :: Text -- ^ 'veVariantSetId'
105− -> ExportVariantSetRequest -- ^ 'vePayload'
106− -> VariantsetsExport
107−variantsetsExport pVeVariantSetId_ pVePayload_ =
108− VariantsetsExport
109− { _veXgafv = Nothing
110− , _veUploadProtocol = Nothing
111− , _vePp = True
112− , _veVariantSetId = pVeVariantSetId_
113− , _veAccessToken = Nothing
114− , _veUploadType = Nothing
115− , _vePayload = pVePayload_
116− , _veBearerToken = Nothing
117− , _veCallback = Nothing
118− }
119−
120−-- | V1 error format.
121−veXgafv :: Lens' VariantsetsExport (Maybe Text)
122−veXgafv = lens _veXgafv (\ s a -> s{_veXgafv = a})
123−
124−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
125−veUploadProtocol :: Lens' VariantsetsExport (Maybe Text)
126−veUploadProtocol
127− = lens _veUploadProtocol
128− (\ s a -> s{_veUploadProtocol = a})
129−
130−-- | Pretty-print response.
131−vePp :: Lens' VariantsetsExport Bool
132−vePp = lens _vePp (\ s a -> s{_vePp = a})
133−
134−-- | Required. The ID of the variant set that contains variant data which
135−-- should be exported. The caller must have READ access to this variant
136−-- set.
137−veVariantSetId :: Lens' VariantsetsExport Text
138−veVariantSetId
139− = lens _veVariantSetId
140− (\ s a -> s{_veVariantSetId = a})
141−
142−-- | OAuth access token.
143−veAccessToken :: Lens' VariantsetsExport (Maybe Text)
144−veAccessToken
145− = lens _veAccessToken
146− (\ s a -> s{_veAccessToken = a})
147−
148−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
149−veUploadType :: Lens' VariantsetsExport (Maybe Text)
150−veUploadType
151− = lens _veUploadType (\ s a -> s{_veUploadType = a})
152−
153−-- | Multipart request metadata.
154−vePayload :: Lens' VariantsetsExport ExportVariantSetRequest
155−vePayload
156− = lens _vePayload (\ s a -> s{_vePayload = a})
157−
158−-- | OAuth bearer token.
159−veBearerToken :: Lens' VariantsetsExport (Maybe Text)
160−veBearerToken
161− = lens _veBearerToken
162− (\ s a -> s{_veBearerToken = a})
163−
164−-- | JSONP
165−veCallback :: Lens' VariantsetsExport (Maybe Text)
166−veCallback
167− = lens _veCallback (\ s a -> s{_veCallback = a})
168−
169−instance GoogleRequest VariantsetsExport where
170− type Rs VariantsetsExport = Operation
171− requestClient VariantsetsExport{..}
172− = go _veVariantSetId _veXgafv _veUploadProtocol
173− (Just _vePp)
174− _veAccessToken
175− _veUploadType
176− _veBearerToken
177− _veCallback
178− (Just AltJSON)
179− _vePayload
180− genomicsService
181− where go
182− = buildClient
183− (Proxy :: Proxy VariantsetsExportResource)
184− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Get.hsdeleted−167
@@ -1,167 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Get
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Gets a variant set by ID.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.variantsets.get@.
26−module Network.Google.Resource.Genomics.Variantsets.Get
27− (
28− -- * REST Resource
29− VariantsetsGetResource
30−
31− -- * Creating a Request
32− , variantsetsGet
33− , VariantsetsGet
34−
35− -- * Request Lenses
36− , vgXgafv
37− , vgUploadProtocol
38− , vgPp
39− , vgVariantSetId
40− , vgAccessToken
41− , vgUploadType
42− , vgBearerToken
43− , vgCallback
44− ) where
45−
46−import Network.Google.Genomics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @genomics.variantsets.get@ method which the
50−-- 'VariantsetsGet' request conforms to.
51−type VariantsetsGetResource =
52− "v1" :>
53− "variantsets" :>
54− Capture "variantSetId" Text :>
55− QueryParam "$.xgafv" Text :>
56− QueryParam "upload_protocol" Text :>
57− QueryParam "pp" Bool :>
58− QueryParam "access_token" Text :>
59− QueryParam "uploadType" Text :>
60− QueryParam "bearer_token" Text :>
61− QueryParam "callback" Text :>
62− QueryParam "alt" AltJSON :> Get '[JSON] VariantSet
63−
64−-- | Gets a variant set by ID.
65−--
66−-- /See:/ 'variantsetsGet' smart constructor.
67−data VariantsetsGet = VariantsetsGet
68− { _vgXgafv :: !(Maybe Text)
69− , _vgUploadProtocol :: !(Maybe Text)
70− , _vgPp :: !Bool
71− , _vgVariantSetId :: !Text
72− , _vgAccessToken :: !(Maybe Text)
73− , _vgUploadType :: !(Maybe Text)
74− , _vgBearerToken :: !(Maybe Text)
75− , _vgCallback :: !(Maybe Text)
76− } deriving (Eq,Show,Data,Typeable,Generic)
77−
78−-- | Creates a value of 'VariantsetsGet' with the minimum fields required to make a request.
79−--
80−-- Use one of the following lenses to modify other fields as desired:
81−--
82−-- * 'vgXgafv'
83−--
84−-- * 'vgUploadProtocol'
85−--
86−-- * 'vgPp'
87−--
88−-- * 'vgVariantSetId'
89−--
90−-- * 'vgAccessToken'
91−--
92−-- * 'vgUploadType'
93−--
94−-- * 'vgBearerToken'
95−--
96−-- * 'vgCallback'
97−variantsetsGet
98− :: Text -- ^ 'vgVariantSetId'
99− -> VariantsetsGet
100−variantsetsGet pVgVariantSetId_ =
101− VariantsetsGet
102− { _vgXgafv = Nothing
103− , _vgUploadProtocol = Nothing
104− , _vgPp = True
105− , _vgVariantSetId = pVgVariantSetId_
106− , _vgAccessToken = Nothing
107− , _vgUploadType = Nothing
108− , _vgBearerToken = Nothing
109− , _vgCallback = Nothing
110− }
111−
112−-- | V1 error format.
113−vgXgafv :: Lens' VariantsetsGet (Maybe Text)
114−vgXgafv = lens _vgXgafv (\ s a -> s{_vgXgafv = a})
115−
116−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117−vgUploadProtocol :: Lens' VariantsetsGet (Maybe Text)
118−vgUploadProtocol
119− = lens _vgUploadProtocol
120− (\ s a -> s{_vgUploadProtocol = a})
121−
122−-- | Pretty-print response.
123−vgPp :: Lens' VariantsetsGet Bool
124−vgPp = lens _vgPp (\ s a -> s{_vgPp = a})
125−
126−-- | Required. The ID of the variant set.
127−vgVariantSetId :: Lens' VariantsetsGet Text
128−vgVariantSetId
129− = lens _vgVariantSetId
130− (\ s a -> s{_vgVariantSetId = a})
131−
132−-- | OAuth access token.
133−vgAccessToken :: Lens' VariantsetsGet (Maybe Text)
134−vgAccessToken
135− = lens _vgAccessToken
136− (\ s a -> s{_vgAccessToken = a})
137−
138−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
139−vgUploadType :: Lens' VariantsetsGet (Maybe Text)
140−vgUploadType
141− = lens _vgUploadType (\ s a -> s{_vgUploadType = a})
142−
143−-- | OAuth bearer token.
144−vgBearerToken :: Lens' VariantsetsGet (Maybe Text)
145−vgBearerToken
146− = lens _vgBearerToken
147− (\ s a -> s{_vgBearerToken = a})
148−
149−-- | JSONP
150−vgCallback :: Lens' VariantsetsGet (Maybe Text)
151−vgCallback
152− = lens _vgCallback (\ s a -> s{_vgCallback = a})
153−
154−instance GoogleRequest VariantsetsGet where
155− type Rs VariantsetsGet = VariantSet
156− requestClient VariantsetsGet{..}
157− = go _vgVariantSetId _vgXgafv _vgUploadProtocol
158− (Just _vgPp)
159− _vgAccessToken
160− _vgUploadType
161− _vgBearerToken
162− _vgCallback
163− (Just AltJSON)
164− genomicsService
165− where go
166− = buildClient (Proxy :: Proxy VariantsetsGetResource)
167− mempty
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Patch.hsdeleted−196
@@ -1,196 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE FlexibleInstances #-}
5−{-# LANGUAGE NoImplicitPrelude #-}
6−{-# LANGUAGE OverloadedStrings #-}
7−{-# LANGUAGE RecordWildCards #-}
8−{-# LANGUAGE TypeFamilies #-}
9−{-# LANGUAGE TypeOperators #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Genomics.Variantsets.Patch
17−-- Copyright : (c) 2015 Brendan Hay
18−-- License : Mozilla Public License, v. 2.0.
19−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
20−-- Stability : auto-generated
21−-- Portability : non-portable (GHC extensions)
22−--
23−-- Updates a variant set. This method supports patch semantics.
24−--
25−-- /See:/ < Genomics API Reference> for @genomics.variantsets.patch@.
26−module Network.Google.Resource.Genomics.Variantsets.Patch
27− (
28− -- * REST Resource
29− VariantsetsPatchResource
30−
31− -- * Creating a Request
32− , variantsetsPatch
33− , VariantsetsPatch
34−
35− -- * Request Lenses
36− , vpXgafv
37− , vpUploadProtocol
38− , vpUpdateMask
39− , vpPp
40− , vpVariantSetId
41− , vpAccessToken
42− , vpUploadType
43− , vpPayload
44− , vpBearerToken
45− , vpCallback
46− ) where
47−
48−import Network.Google.Genomics.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @genomics.variantsets.patch@ method which the
52−-- 'VariantsetsPatch' request conforms to.
53−type VariantsetsPatchResource =
54− "v1" :>
55− "variantsets" :>
56− Capture "variantSetId" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "updateMask" Text :>
60− QueryParam "pp" Bool :>
61− QueryParam "access_token" Text :>
62− QueryParam "uploadType" Text :>
63− QueryParam "bearer_token" Text :>
64− QueryParam "callback" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] VariantSet :>
67− Patch '[JSON] VariantSet
68−
69−-- | Updates a variant set. This method supports patch semantics.
70−--
71−-- /See:/ 'variantsetsPatch' smart constructor.
72−data VariantsetsPatch = VariantsetsPatch
73− { _vpXgafv :: !(Maybe Text)
74− , _vpUploadProtocol :: !(Maybe Text)
75− , _vpUpdateMask :: !(Maybe Text)
76− , _vpPp :: !Bool
77− , _vpVariantSetId :: !Text
78− , _vpAccessToken :: !(Maybe Text)
79− , _vpUploadType :: !(Maybe Text)
80− , _vpPayload :: !VariantSet
81− , _vpBearerToken :: !(Maybe Text)
82− , _vpCallback :: !(Maybe Text)
83− } deriving (Eq,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'VariantsetsPatch' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'vpXgafv'
90−--
91−-- * 'vpUploadProtocol'
92−--
93−-- * 'vpUpdateMask'
94−--
95−-- * 'vpPp'
96−--
97−-- * 'vpVariantSetId'
98−--
99−-- * 'vpAccessToken'
100−--
101−-- * 'vpUploadType'
102−--
103−-- * 'vpPayload'
104−--
105−-- * 'vpBearerToken'
106−--
107−-- * 'vpCallback'
108−variantsetsPatch
109− :: Text -- ^ 'vpVariantSetId'
110− -> VariantSet -- ^ 'vpPayload'
111− -> VariantsetsPatch
112−variantsetsPatch pVpVariantSetId_ pVpPayload_ =
113− VariantsetsPatch
114− { _vpXgafv = Nothing
115− , _vpUploadProtocol = Nothing
116− , _vpUpdateMask = Nothing
117− , _vpPp = True
118− , _vpVariantSetId = pVpVariantSetId_
119− , _vpAccessToken = Nothing
120− , _vpUploadType = Nothing
121− , _vpPayload = pVpPayload_
122− , _vpBearerToken = Nothing
123− , _vpCallback = Nothing
124− }
125−
126−-- | V1 error format.
127−vpXgafv :: Lens' VariantsetsPatch (Maybe Text)
128−vpXgafv = lens _vpXgafv (\ s a -> s{_vpXgafv = a})
129−
130−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
131−vpUploadProtocol :: Lens' VariantsetsPatch (Maybe Text)
132−vpUploadProtocol
133− = lens _vpUploadProtocol
134− (\ s a -> s{_vpUploadProtocol = a})
135−
136−-- | An optional mask specifying which fields to update. At this time, the
137−-- only mutable field is metadata. The only acceptable value is
138−-- \"metadata\". If unspecified, all mutable fields will be updated.
139−vpUpdateMask :: Lens' VariantsetsPatch (Maybe Text)
140−vpUpdateMask
141− = lens _vpUpdateMask (\ s a -> s{_vpUpdateMask = a})
142−
143−-- | Pretty-print response.
144−vpPp :: Lens' VariantsetsPatch Bool
145−vpPp = lens _vpPp (\ s a -> s{_vpPp = a})
146−
147−-- | The ID of the variant to be updated (must already exist).
148−vpVariantSetId :: Lens' VariantsetsPatch Text
149−vpVariantSetId
150− = lens _vpVariantSetId
151− (\ s a -> s{_vpVariantSetId = a})
152−
153−-- | OAuth access token.
154−vpAccessToken :: Lens' VariantsetsPatch (Maybe Text)
155−vpAccessToken
156− = lens _vpAccessToken
157− (\ s a -> s{_vpAccessToken = a})
158−
159−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
160−vpUploadType :: Lens' VariantsetsPatch (Maybe Text)
161−vpUploadType
162− = lens _vpUploadType (\ s a -> s{_vpUploadType = a})
163−
164−-- | Multipart request metadata.
165−vpPayload :: Lens' VariantsetsPatch VariantSet
166−vpPayload
167− = lens _vpPayload (\ s a -> s{_vpPayload = a})
168−
169−-- | OAuth bearer token.
170−vpBearerToken :: Lens' VariantsetsPatch (Maybe Text)
171−vpBearerToken
172− = lens _vpBearerToken
173− (\ s a -> s{_vpBearerToken = a})
174−
175−-- | JSONP
176−vpCallback :: Lens' VariantsetsPatch (Maybe Text)
177−vpCallback
178− = lens _vpCallback (\ s a -> s{_vpCallback = a})
179−
180−instance GoogleRequest VariantsetsPatch where
181− type Rs VariantsetsPatch = VariantSet
182− requestClient VariantsetsPatch{..}
183− = go _vpVariantSetId _vpXgafv _vpUploadProtocol
184− _vpUpdateMask
185− (Just _vpPp)
186− _vpAccessToken
187− _vpUploadType
188− _vpBearerToken
189− _vpCallback
190− (Just AltJSON)
191− _vpPayload
192− genomicsService
193− where go
194− = buildClient
195− (Proxy :: Proxy VariantsetsPatchResource)
196− mempty
gogol-genomics/gogol-genomics.cabal+27−27
@@ -36,49 +36,49 @@ library
3636 exposed-modules:
3737 Network.Google.Genomics
3838 , Network.Google.Genomics.Types
39− , Network.Google.Resource.Genomics.Callsets.Create
40− , Network.Google.Resource.Genomics.Callsets.Delete
41− , Network.Google.Resource.Genomics.Callsets.Get
42− , Network.Google.Resource.Genomics.Callsets.Patch
43− , Network.Google.Resource.Genomics.Callsets.Search
44− , Network.Google.Resource.Genomics.Datasets.Create
45− , Network.Google.Resource.Genomics.Datasets.Delete
46− , Network.Google.Resource.Genomics.Datasets.Get
47− , Network.Google.Resource.Genomics.Datasets.GetIAMPolicy
48− , Network.Google.Resource.Genomics.Datasets.List
49− , Network.Google.Resource.Genomics.Datasets.Patch
50− , Network.Google.Resource.Genomics.Datasets.SetIAMPolicy
51− , Network.Google.Resource.Genomics.Datasets.TestIAMPermissions
52− , Network.Google.Resource.Genomics.Datasets.Undelete
39+ , Network.Google.Resource.Genomics.CallSets.Create
40+ , Network.Google.Resource.Genomics.CallSets.Delete
41+ , Network.Google.Resource.Genomics.CallSets.Get
42+ , Network.Google.Resource.Genomics.CallSets.Patch
43+ , Network.Google.Resource.Genomics.CallSets.Search
44+ , Network.Google.Resource.Genomics.DataSets.Create
45+ , Network.Google.Resource.Genomics.DataSets.Delete
46+ , Network.Google.Resource.Genomics.DataSets.Get
47+ , Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
48+ , Network.Google.Resource.Genomics.DataSets.List
49+ , Network.Google.Resource.Genomics.DataSets.Patch
50+ , Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
51+ , Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
52+ , Network.Google.Resource.Genomics.DataSets.Undelete
5353 , Network.Google.Resource.Genomics.Operations.Cancel
5454 , Network.Google.Resource.Genomics.Operations.Delete
5555 , Network.Google.Resource.Genomics.Operations.Get
5656 , Network.Google.Resource.Genomics.Operations.List
57− , Network.Google.Resource.Genomics.Readgroupsets.Coveragebuckets.List
58− , Network.Google.Resource.Genomics.Readgroupsets.Delete
59− , Network.Google.Resource.Genomics.Readgroupsets.Export
60− , Network.Google.Resource.Genomics.Readgroupsets.Get
61− , Network.Google.Resource.Genomics.Readgroupsets.Import
62− , Network.Google.Resource.Genomics.Readgroupsets.Patch
63− , Network.Google.Resource.Genomics.Readgroupsets.Search
57+ , Network.Google.Resource.Genomics.ReadGroupSets.CoverageBuckets.List
58+ , Network.Google.Resource.Genomics.ReadGroupSets.Delete
59+ , Network.Google.Resource.Genomics.ReadGroupSets.Export
60+ , Network.Google.Resource.Genomics.ReadGroupSets.Get
61+ , Network.Google.Resource.Genomics.ReadGroupSets.Import
62+ , Network.Google.Resource.Genomics.ReadGroupSets.Patch
63+ , Network.Google.Resource.Genomics.ReadGroupSets.Search
6464 , Network.Google.Resource.Genomics.Reads.Search
6565 , Network.Google.Resource.Genomics.References.Bases.List
6666 , Network.Google.Resource.Genomics.References.Get
6767 , Network.Google.Resource.Genomics.References.Search
6868 , Network.Google.Resource.Genomics.Referencesets.Get
6969 , Network.Google.Resource.Genomics.Referencesets.Search
70+ , Network.Google.Resource.Genomics.VariantSets.Create
71+ , Network.Google.Resource.Genomics.VariantSets.Delete
72+ , Network.Google.Resource.Genomics.VariantSets.Export
73+ , Network.Google.Resource.Genomics.VariantSets.Get
74+ , Network.Google.Resource.Genomics.VariantSets.Patch
75+ , Network.Google.Resource.Genomics.VariantSets.Search
7076 , Network.Google.Resource.Genomics.Variants.Create
7177 , Network.Google.Resource.Genomics.Variants.Delete
7278 , Network.Google.Resource.Genomics.Variants.Get
7379 , Network.Google.Resource.Genomics.Variants.Import
7480 , Network.Google.Resource.Genomics.Variants.Patch
7581 , Network.Google.Resource.Genomics.Variants.Search
76− , Network.Google.Resource.Genomics.Variantsets.Create
77− , Network.Google.Resource.Genomics.Variantsets.Delete
78− , Network.Google.Resource.Genomics.Variantsets.Export
79− , Network.Google.Resource.Genomics.Variantsets.Get
80− , Network.Google.Resource.Genomics.Variantsets.Patch
81− , Network.Google.Resource.Genomics.Variantsets.Search
8282
8383 other-modules:
8484 Network.Google.Genomics.Types.Product
gogol-plus-domains/gen/Network/Google/PlusDomains.hs+2−2
@@ -539,8 +539,8 @@ module Network.Google.PlusDomains
539539 -- ** PersonCoverCoverInfo
540540 , PersonCoverCoverInfo
541541 , personCoverCoverInfo
542− , pcciTopImageOffset
543− , pcciLeftImageOffset
542+ , pcciTopImageOffSet
543+ , pcciLeftImageOffSet
544544
545545 -- ** ActivityObjectResharers
546546 , ActivityObjectResharers
gogol-plus-domains/gen/Network/Google/PlusDomains/Types.hs+2−2
@@ -480,8 +480,8 @@ module Network.Google.PlusDomains.Types
480480 -- * PersonCoverCoverInfo
481481 , PersonCoverCoverInfo
482482 , personCoverCoverInfo
483− , pcciTopImageOffset
484− , pcciLeftImageOffset
483+ , pcciTopImageOffSet
484+ , pcciLeftImageOffSet
485485
486486 -- * ActivityObjectResharers
487487 , ActivityObjectResharers
gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Product.hs+16−16
@@ -3891,38 +3891,38 @@ instance ToJSON PersonURLsItem where
38913891--
38923892-- /See:/ 'personCoverCoverInfo' smart constructor.
38933893data PersonCoverCoverInfo = PersonCoverCoverInfo
3894− { _pcciTopImageOffset :: !(Maybe Int32)
3895− , _pcciLeftImageOffset :: !(Maybe Int32)
3894+ { _pcciTopImageOffSet :: !(Maybe Int32)
3895+ , _pcciLeftImageOffSet :: !(Maybe Int32)
38963896 } deriving (Eq,Show,Data,Typeable,Generic)
38973897
38983898-- | Creates a value of 'PersonCoverCoverInfo' with the minimum fields required to make a request.
38993899--
39003900-- Use one of the following lenses to modify other fields as desired:
39013901--
3902−-- * 'pcciTopImageOffset'
3902+-- * 'pcciTopImageOffSet'
39033903--
3904−-- * 'pcciLeftImageOffset'
3904+-- * 'pcciLeftImageOffSet'
39053905personCoverCoverInfo
39063906 :: PersonCoverCoverInfo
39073907personCoverCoverInfo =
39083908 PersonCoverCoverInfo
3909− { _pcciTopImageOffset = Nothing
3910− , _pcciLeftImageOffset = Nothing
3909+ { _pcciTopImageOffSet = Nothing
3910+ , _pcciLeftImageOffSet = Nothing
39113911 }
39123912
39133913-- | The difference between the top position of the cover image and the
39143914-- actual displayed cover image. Only valid for banner layout.
3915−pcciTopImageOffset :: Lens' PersonCoverCoverInfo (Maybe Int32)
3916−pcciTopImageOffset
3917− = lens _pcciTopImageOffset
3918− (\ s a -> s{_pcciTopImageOffset = a})
3915+pcciTopImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
3916+pcciTopImageOffSet
3917+ = lens _pcciTopImageOffSet
3918+ (\ s a -> s{_pcciTopImageOffSet = a})
39193919
39203920-- | The difference between the left position of the cover image and the
39213921-- actual displayed cover image. Only valid for banner layout.
3922−pcciLeftImageOffset :: Lens' PersonCoverCoverInfo (Maybe Int32)
3923−pcciLeftImageOffset
3924− = lens _pcciLeftImageOffset
3925− (\ s a -> s{_pcciLeftImageOffset = a})
3922+pcciLeftImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
3923+pcciLeftImageOffSet
3924+ = lens _pcciLeftImageOffSet
3925+ (\ s a -> s{_pcciLeftImageOffSet = a})
39263926
39273927instance FromJSON PersonCoverCoverInfo where
39283928 parseJSON
@@ -3936,8 +3936,8 @@ instance ToJSON PersonCoverCoverInfo where
39363936 toJSON PersonCoverCoverInfo{..}
39373937 = object
39383938 (catMaybes
3939− [("topImageOffset" .=) <$> _pcciTopImageOffset,
3940− ("leftImageOffset" .=) <$> _pcciLeftImageOffset])
3939+ [("topImageOffset" .=) <$> _pcciTopImageOffSet,
3940+ ("leftImageOffset" .=) <$> _pcciLeftImageOffSet])
39413941
39423942-- | People who reshared this activity.
39433943--
gogol-plus/gen/Network/Google/Plus.hs+2−2
@@ -491,8 +491,8 @@ module Network.Google.Plus
491491 -- ** PersonCoverCoverInfo
492492 , PersonCoverCoverInfo
493493 , personCoverCoverInfo
494− , pcciTopImageOffset
495− , pcciLeftImageOffset
494+ , pcciTopImageOffSet
495+ , pcciLeftImageOffSet
496496
497497 -- ** ActivityObjectResharers
498498 , ActivityObjectResharers
gogol-plus/gen/Network/Google/Plus/Types.hs+2−2
@@ -453,8 +453,8 @@ module Network.Google.Plus.Types
453453 -- * PersonCoverCoverInfo
454454 , PersonCoverCoverInfo
455455 , personCoverCoverInfo
456− , pcciTopImageOffset
457− , pcciLeftImageOffset
456+ , pcciTopImageOffSet
457+ , pcciLeftImageOffSet
458458
459459 -- * ActivityObjectResharers
460460 , ActivityObjectResharers
gogol-plus/gen/Network/Google/Plus/Types/Product.hs+16−16
@@ -3793,38 +3793,38 @@ instance ToJSON PersonURLsItem where
37933793--
37943794-- /See:/ 'personCoverCoverInfo' smart constructor.
37953795data PersonCoverCoverInfo = PersonCoverCoverInfo
3796− { _pcciTopImageOffset :: !(Maybe Int32)
3797− , _pcciLeftImageOffset :: !(Maybe Int32)
3796+ { _pcciTopImageOffSet :: !(Maybe Int32)
3797+ , _pcciLeftImageOffSet :: !(Maybe Int32)
37983798 } deriving (Eq,Show,Data,Typeable,Generic)
37993799
38003800-- | Creates a value of 'PersonCoverCoverInfo' with the minimum fields required to make a request.
38013801--
38023802-- Use one of the following lenses to modify other fields as desired:
38033803--
3804−-- * 'pcciTopImageOffset'
3804+-- * 'pcciTopImageOffSet'
38053805--
3806−-- * 'pcciLeftImageOffset'
3806+-- * 'pcciLeftImageOffSet'
38073807personCoverCoverInfo
38083808 :: PersonCoverCoverInfo
38093809personCoverCoverInfo =
38103810 PersonCoverCoverInfo
3811− { _pcciTopImageOffset = Nothing
3812− , _pcciLeftImageOffset = Nothing
3811+ { _pcciTopImageOffSet = Nothing
3812+ , _pcciLeftImageOffSet = Nothing
38133813 }
38143814
38153815-- | The difference between the top position of the cover image and the
38163816-- actual displayed cover image. Only valid for banner layout.
3817−pcciTopImageOffset :: Lens' PersonCoverCoverInfo (Maybe Int32)
3818−pcciTopImageOffset
3819− = lens _pcciTopImageOffset
3820− (\ s a -> s{_pcciTopImageOffset = a})
3817+pcciTopImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
3818+pcciTopImageOffSet
3819+ = lens _pcciTopImageOffSet
3820+ (\ s a -> s{_pcciTopImageOffSet = a})
38213821
38223822-- | The difference between the left position of the cover image and the
38233823-- actual displayed cover image. Only valid for banner layout.
3824−pcciLeftImageOffset :: Lens' PersonCoverCoverInfo (Maybe Int32)
3825−pcciLeftImageOffset
3826− = lens _pcciLeftImageOffset
3827− (\ s a -> s{_pcciLeftImageOffset = a})
3824+pcciLeftImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
3825+pcciLeftImageOffSet
3826+ = lens _pcciLeftImageOffSet
3827+ (\ s a -> s{_pcciLeftImageOffSet = a})
38283828
38293829instance FromJSON PersonCoverCoverInfo where
38303830 parseJSON
@@ -3838,8 +3838,8 @@ instance ToJSON PersonCoverCoverInfo where
38383838 toJSON PersonCoverCoverInfo{..}
38393839 = object
38403840 (catMaybes
3841− [("topImageOffset" .=) <$> _pcciTopImageOffset,
3842− ("leftImageOffset" .=) <$> _pcciLeftImageOffset])
3841+ [("topImageOffset" .=) <$> _pcciTopImageOffSet,
3842+ ("leftImageOffset" .=) <$> _pcciLeftImageOffSet])
38433843
38443844-- | People who reshared this activity.
38453845--
gogol-sqladmin/gen/Network/Google/SQLAdmin.hs+1−1
@@ -240,7 +240,7 @@ module Network.Google.SQLAdmin
240240 , dCollation
241241 , dSelfLink
242242 , dName
243− , dCharset
243+ , dCharSet
244244 , dInstance
245245
246246 -- ** SSLCertsCreateEphemeralRequest
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types.hs+1−1
@@ -120,7 +120,7 @@ module Network.Google.SQLAdmin.Types
120120 , dCollation
121121 , dSelfLink
122122 , dName
123− , dCharset
123+ , dCharSet
124124 , dInstance
125125
126126 -- * SSLCertsCreateEphemeralRequest
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types/Product.hs+6−6
@@ -909,7 +909,7 @@ data Database = Database
909909 , _dCollation :: !(Maybe Text)
910910 , _dSelfLink :: !(Maybe Text)
911911 , _dName :: !(Maybe Text)
912− , _dCharset :: !(Maybe Text)
912+ , _dCharSet :: !(Maybe Text)
913913 , _dInstance :: !(Maybe Text)
914914 } deriving (Eq,Show,Data,Typeable,Generic)
915915
@@ -929,7 +929,7 @@ data Database = Database
929929--
930930-- * 'dName'
931931--
932−-- * 'dCharset'
932+-- * 'dCharSet'
933933--
934934-- * 'dInstance'
935935database
@@ -942,7 +942,7 @@ database =
942942 , _dCollation = Nothing
943943 , _dSelfLink = Nothing
944944 , _dName = Nothing
945− , _dCharset = Nothing
945+ , _dCharSet = Nothing
946946 , _dInstance = Nothing
947947 }
948948
@@ -975,8 +975,8 @@ dName :: Lens' Database (Maybe Text)
975975dName = lens _dName (\ s a -> s{_dName = a})
976976
977977-- | The MySQL charset value.
978−dCharset :: Lens' Database (Maybe Text)
979−dCharset = lens _dCharset (\ s a -> s{_dCharset = a})
978+dCharSet :: Lens' Database (Maybe Text)
979+dCharSet = lens _dCharSet (\ s a -> s{_dCharSet = a})
980980
981981-- | The name of the Cloud SQL instance. This does not include the project
982982-- ID.
@@ -1006,7 +1006,7 @@ instance ToJSON Database where
10061006 Just ("kind" .= _dKind),
10071007 ("collation" .=) <$> _dCollation,
10081008 ("selfLink" .=) <$> _dSelfLink,
1009− ("name" .=) <$> _dName, ("charset" .=) <$> _dCharset,
1009+ ("name" .=) <$> _dName, ("charset" .=) <$> _dCharSet,
10101010 ("instance" .=) <$> _dInstance])
10111011
10121012-- | SslCerts create ephemeral certificate request.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Control.hs+9−9
@@ -40,7 +40,7 @@ module Network.Google.Resource.YouTube.LiveBroadcasts.Control
4040 , lbcId
4141 , lbcDisplaySlate
4242 , lbcWalltime
43− , lbcOffsetTimeMs
43+ , lbcOffSetTimeMs
4444 ) where
4545
4646import Network.Google.Prelude
@@ -72,7 +72,7 @@ data LiveBroadcastsControl = LiveBroadcastsControl
7272 , _lbcId :: !Text
7373 , _lbcDisplaySlate :: !(Maybe Bool)
7474 , _lbcWalltime :: !(Maybe DateTime')
75− , _lbcOffsetTimeMs :: !(Maybe Word64)
75+ , _lbcOffSetTimeMs :: !(Maybe Word64)
7676 } deriving (Eq,Show,Data,Typeable,Generic)
7777
7878-- | Creates a value of 'LiveBroadcastsControl' with the minimum fields required to make a request.
@@ -91,7 +91,7 @@ data LiveBroadcastsControl = LiveBroadcastsControl
9191--
9292-- * 'lbcWalltime'
9393--
94−-- * 'lbcOffsetTimeMs'
94+-- * 'lbcOffSetTimeMs'
9595liveBroadcastsControl
9696 :: Text -- ^ 'lbcPart'
9797 -> Text -- ^ 'lbcId'
@@ -104,7 +104,7 @@ liveBroadcastsControl pLbcPart_ pLbcId_ =
104104 , _lbcId = pLbcId_
105105 , _lbcDisplaySlate = Nothing
106106 , _lbcWalltime = Nothing
107− , _lbcOffsetTimeMs = Nothing
107+ , _lbcOffSetTimeMs = Nothing
108108 }
109109
110110-- | The part parameter specifies a comma-separated list of one or more
@@ -180,10 +180,10 @@ lbcWalltime
180180-- performs the action as soon as possible. See the Getting started guide
181181-- for more details. Important: You should only specify a value for this
182182-- parameter if your broadcast stream is delayed.
183−lbcOffsetTimeMs :: Lens' LiveBroadcastsControl (Maybe Word64)
184−lbcOffsetTimeMs
185− = lens _lbcOffsetTimeMs
186− (\ s a -> s{_lbcOffsetTimeMs = a})
183+lbcOffSetTimeMs :: Lens' LiveBroadcastsControl (Maybe Word64)
184+lbcOffSetTimeMs
185+ = lens _lbcOffSetTimeMs
186+ (\ s a -> s{_lbcOffSetTimeMs = a})
187187
188188instance GoogleRequest LiveBroadcastsControl where
189189 type Rs LiveBroadcastsControl = LiveBroadcast
@@ -193,7 +193,7 @@ instance GoogleRequest LiveBroadcastsControl where
193193 _lbcOnBehalfOfContentOwnerChannel
194194 _lbcDisplaySlate
195195 _lbcWalltime
196− _lbcOffsetTimeMs
196+ _lbcOffSetTimeMs
197197 (Just AltJSON)
198198 youTubeService
199199 where go
gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Unset.hs → gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/UnSet.hsrenamed+35−35
@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.YouTube.Watermarks.Unset
16+-- Module : Network.Google.Resource.YouTube.Watermarks.UnSet
1717-- Copyright : (c) 2015 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,26 +23,26 @@
2323-- Deletes a channel\'s watermark image.
2424--
2525-- /See:/ <https://developers.google.com/youtube/v3 YouTube Data API Reference> for @youtube.watermarks.unset@.
26−module Network.Google.Resource.YouTube.Watermarks.Unset
26+module Network.Google.Resource.YouTube.Watermarks.UnSet
2727 (
2828 -- * REST Resource
29− WatermarksUnsetResource
29+ WatermarksUnSetResource
3030
3131 -- * Creating a Request
32− , watermarksUnset
33− , WatermarksUnset
32+ , watermarksUnSet
33+ , WatermarksUnSet
3434
3535 -- * Request Lenses
36− , wuChannelId
37− , wuOnBehalfOfContentOwner
36+ , wusChannelId
37+ , wusOnBehalfOfContentOwner
3838 ) where
3939
4040import Network.Google.Prelude
4141import Network.Google.YouTube.Types
4242
4343-- | A resource alias for @youtube.watermarks.unset@ method which the
44−-- 'WatermarksUnset' request conforms to.
45−type WatermarksUnsetResource =
44+-- 'WatermarksUnSet' request conforms to.
45+type WatermarksUnSetResource =
4646 "watermarks" :>
4747 "unset" :>
4848 QueryParam "channelId" Text :>
@@ -51,33 +51,33 @@ type WatermarksUnsetResource =
5151
5252-- | Deletes a channel\'s watermark image.
5353--
54−-- /See:/ 'watermarksUnset' smart constructor.
55−data WatermarksUnset = WatermarksUnset
56− { _wuChannelId :: !Text
57− , _wuOnBehalfOfContentOwner :: !(Maybe Text)
54+-- /See:/ 'watermarksUnSet' smart constructor.
55+data WatermarksUnSet = WatermarksUnSet
56+ { _wusChannelId :: !Text
57+ , _wusOnBehalfOfContentOwner :: !(Maybe Text)
5858 } deriving (Eq,Show,Data,Typeable,Generic)
5959
60−-- | Creates a value of 'WatermarksUnset' with the minimum fields required to make a request.
60+-- | Creates a value of 'WatermarksUnSet' with the minimum fields required to make a request.
6161--
6262-- Use one of the following lenses to modify other fields as desired:
6363--
64−-- * 'wuChannelId'
64+-- * 'wusChannelId'
6565--
66−-- * 'wuOnBehalfOfContentOwner'
67−watermarksUnset
68− :: Text -- ^ 'wuChannelId'
69− -> WatermarksUnset
70−watermarksUnset pWuChannelId_ =
71− WatermarksUnset
72− { _wuChannelId = pWuChannelId_
73− , _wuOnBehalfOfContentOwner = Nothing
66+-- * 'wusOnBehalfOfContentOwner'
67+watermarksUnSet
68+ :: Text -- ^ 'wusChannelId'
69+ -> WatermarksUnSet
70+watermarksUnSet pWusChannelId_ =
71+ WatermarksUnSet
72+ { _wusChannelId = pWusChannelId_
73+ , _wusOnBehalfOfContentOwner = Nothing
7474 }
7575
7676-- | The channelId parameter specifies the YouTube channel ID for which the
7777-- watermark is being unset.
78−wuChannelId :: Lens' WatermarksUnset Text
79−wuChannelId
80− = lens _wuChannelId (\ s a -> s{_wuChannelId = a})
78+wusChannelId :: Lens' WatermarksUnSet Text
79+wusChannelId
80+ = lens _wusChannelId (\ s a -> s{_wusChannelId = a})
8181
8282-- | Note: This parameter is intended exclusively for YouTube content
8383-- partners. The onBehalfOfContentOwner parameter indicates that the
@@ -89,18 +89,18 @@ wuChannelId
8989-- without having to provide authentication credentials for each individual
9090-- channel. The CMS account that the user authenticates with must be linked
9191-- to the specified YouTube content owner.
92−wuOnBehalfOfContentOwner :: Lens' WatermarksUnset (Maybe Text)
93−wuOnBehalfOfContentOwner
94− = lens _wuOnBehalfOfContentOwner
95− (\ s a -> s{_wuOnBehalfOfContentOwner = a})
92+wusOnBehalfOfContentOwner :: Lens' WatermarksUnSet (Maybe Text)
93+wusOnBehalfOfContentOwner
94+ = lens _wusOnBehalfOfContentOwner
95+ (\ s a -> s{_wusOnBehalfOfContentOwner = a})
9696
97−instance GoogleRequest WatermarksUnset where
98− type Rs WatermarksUnset = ()
99− requestClient WatermarksUnset{..}
100− = go (Just _wuChannelId) _wuOnBehalfOfContentOwner
97+instance GoogleRequest WatermarksUnSet where
98+ type Rs WatermarksUnSet = ()
99+ requestClient WatermarksUnSet{..}
100+ = go (Just _wusChannelId) _wusOnBehalfOfContentOwner
101101 (Just AltJSON)
102102 youTubeService
103103 where go
104104 = buildClient
105− (Proxy :: Proxy WatermarksUnsetResource)
105+ (Proxy :: Proxy WatermarksUnSetResource)
106106 mempty
gogol-youtube/gen/Network/Google/YouTube.hs+4−4
@@ -210,7 +210,7 @@ module Network.Google.YouTube
210210 , module Network.Google.Resource.YouTube.Watermarks.Set
211211
212212 -- ** youtube.watermarks.unset
213− , module Network.Google.Resource.YouTube.Watermarks.Unset
213+ , module Network.Google.Resource.YouTube.Watermarks.UnSet
214214
215215 -- * Types
216216
@@ -917,7 +917,7 @@ module Network.Google.YouTube
917917 , InvideoTiming
918918 , invideoTiming
919919 , itDurationMs
920− , itOffsetMs
920+ , itOffSetMs
921921 , itType
922922
923923 -- ** PlayListLocalizations
@@ -2104,7 +2104,7 @@ import Network.Google.Resource.YouTube.Videos.Rate
21042104import Network.Google.Resource.YouTube.Videos.ReportAbuse
21052105import Network.Google.Resource.YouTube.Videos.Update
21062106import Network.Google.Resource.YouTube.Watermarks.Set
2107−import Network.Google.Resource.YouTube.Watermarks.Unset
2107+import Network.Google.Resource.YouTube.Watermarks.UnSet
21082108import Network.Google.YouTube.Types
21092109
21102110{- $resources
@@ -2143,7 +2143,7 @@ type YouTubeAPI =
21432143 :<|> ActivitiesInsertResource
21442144 :<|> ActivitiesListResource
21452145 :<|> WatermarksSetResource
2146− :<|> WatermarksUnsetResource
2146+ :<|> WatermarksUnSetResource
21472147 :<|> CommentThreadsInsertResource
21482148 :<|> CommentThreadsListResource
21492149 :<|> CommentThreadsUpdateResource
gogol-youtube/gen/Network/Google/YouTube/Types.hs+1−1
@@ -729,7 +729,7 @@ module Network.Google.YouTube.Types
729729 , InvideoTiming
730730 , invideoTiming
731731 , itDurationMs
732− , itOffsetMs
732+ , itOffSetMs
733733 , itType
734734
735735 -- * PlayListLocalizations
gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+7−7
@@ -5245,7 +5245,7 @@ instance ToJSON VideoContentDetailsRegionRestriction
52455245-- /See:/ 'invideoTiming' smart constructor.
52465246data InvideoTiming = InvideoTiming
52475247 { _itDurationMs :: !(Maybe Word64)
5248− , _itOffsetMs :: !(Maybe Word64)
5248+ , _itOffSetMs :: !(Maybe Word64)
52495249 , _itType :: !(Maybe InvideoTimingType)
52505250 } deriving (Eq,Show,Data,Typeable,Generic)
52515251
@@ -5255,7 +5255,7 @@ data InvideoTiming = InvideoTiming
52555255--
52565256-- * 'itDurationMs'
52575257--
5258−-- * 'itOffsetMs'
5258+-- * 'itOffSetMs'
52595259--
52605260-- * 'itType'
52615261invideoTiming
@@ -5263,7 +5263,7 @@ invideoTiming
52635263invideoTiming =
52645264 InvideoTiming
52655265 { _itDurationMs = Nothing
5266− , _itOffsetMs = Nothing
5266+ , _itOffSetMs = Nothing
52675267 , _itType = Nothing
52685268 }
52695269
@@ -5277,9 +5277,9 @@ itDurationMs
52775277-- value of type the value of the offsetMs field will represent a time
52785278-- offset from the start or from the end of the video, expressed in
52795279-- milliseconds.
5280−itOffsetMs :: Lens' InvideoTiming (Maybe Word64)
5281−itOffsetMs
5282− = lens _itOffsetMs (\ s a -> s{_itOffsetMs = a})
5280+itOffSetMs :: Lens' InvideoTiming (Maybe Word64)
5281+itOffSetMs
5282+ = lens _itOffSetMs (\ s a -> s{_itOffSetMs = a})
52835283
52845284-- | Describes a timing type. If the value is offsetFromStart, then the
52855285-- offsetMs field represents an offset from the start of the video. If the
@@ -5301,7 +5301,7 @@ instance ToJSON InvideoTiming where
53015301 = object
53025302 (catMaybes
53035303 [("durationMs" .=) <$> _itDurationMs,
5304− ("offsetMs" .=) <$> _itOffsetMs,
5304+ ("offsetMs" .=) <$> _itOffSetMs,
53055305 ("type" .=) <$> _itType])
53065306
53075307-- | Localizations for different languages
gogol-youtube/gen/Network/Google/YouTube/Types/Sum.hs+6−6
@@ -5361,9 +5361,9 @@ instance ToJSON CdnSettingsIngestionType where
53615361-- value is offsetFromEnd, then the offsetMs field represents an offset
53625362-- from the end of the video.
53635363data InvideoTimingType
5364− = OffsetFromEnd
5364+ = OffSetFromEnd
53655365 -- ^ @offsetFromEnd@
5366− | OffsetFromStart
5366+ | OffSetFromStart
53675367 -- ^ @offsetFromStart@
53685368 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
53695369
@@ -5371,14 +5371,14 @@ instance Hashable InvideoTimingType
53715371
53725372instance FromText InvideoTimingType where
53735373 fromText = \case
5374− "offsetFromEnd" -> Just OffsetFromEnd
5375− "offsetFromStart" -> Just OffsetFromStart
5374+ "offsetFromEnd" -> Just OffSetFromEnd
5375+ "offsetFromStart" -> Just OffSetFromStart
53765376 _ -> Nothing
53775377
53785378instance ToText InvideoTimingType where
53795379 toText = \case
5380− OffsetFromEnd -> "offsetFromEnd"
5381− OffsetFromStart -> "offsetFromStart"
5380+ OffSetFromEnd -> "offsetFromEnd"
5381+ OffSetFromStart -> "offsetFromStart"
53825382
53835383instance FromJSON InvideoTimingType where
53845384 parseJSON = parseJSONText "InvideoTimingType"
gogol-youtube/gogol-youtube.cabal+1−1
@@ -94,7 +94,7 @@ library
9494 , Network.Google.Resource.YouTube.Videos.ReportAbuse
9595 , Network.Google.Resource.YouTube.Videos.Update
9696 , Network.Google.Resource.YouTube.Watermarks.Set
97− , Network.Google.Resource.YouTube.Watermarks.Unset
97+ , Network.Google.Resource.YouTube.Watermarks.UnSet
9898 , Network.Google.YouTube
9999 , Network.Google.YouTube.Types
100100